Tabela |
BE4 |
Internacoes |
Campo |
Tipo |
Tamanho |
Decimal |
Titulo |
Formato |
Validacao |
F3 |
Contexto |
Lista |
Condicao |
PYME |
BE4_FILIAL |
C |
2 |
0 |
Filial |
|
|
|
|
|
|
S |
BE4_ERRO |
C |
1 |
0 |
Erro Integr. |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_CODOPE |
C |
4 |
0 |
Operadora |
@! |
|
|
|
|
|
S |
BE4_STAIMP |
C |
3 |
0 |
Impressa? |
@C |
|
|
V |
|
|
S |
BE4_TIPADM |
C |
6 |
0 |
Tp Admissao |
@C |
BDR->(ExistCpo("BDR",PLSINTPAD()+M->BE4_TIPADM,1)) .And. PLSA092TPI() |
BTAPLS |
|
|
|
S |
BE4_PARNDC |
C |
2 |
0 |
Parcela |
@! |
|
|
R |
|
|
S |
BE4_TIPNDC |
C |
3 |
0 |
Tipo titulo |
@! |
|
|
R |
|
|
S |
BE4_STADES |
C |
40 |
0 |
Status |
@C |
|
|
V |
|
|
S |
BE4_AUDITO |
C |
1 |
0 |
Auditoria? |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_DESSTA |
C |
15 |
0 |
Situacao |
@! |
|
|
V |
|
|
S |
BE4_DESADM |
C |
30 |
0 |
Descricao |
@C |
|
|
V |
|
|
S |
BE4_DESFAS |
C |
15 |
0 |
Fase |
@C |
|
|
V |
|
|
S |
BE4_PRVINT |
D |
8 |
0 |
Dt.Prv.Inter |
|
PLSA92PRVI() |
|
R |
|
|
S |
BE4_DATVAL |
D |
8 |
0 |
Dt.Validade |
@D |
If(M->BE4_DATVAL <= dDatabase+getmv("MV_PLPRZLB"),.T.,(MsgStop("Data invalida"),.F.)) |
|
|
|
|
S |
BE4_OPEUSR |
C |
4 |
0 |
Oper. Usr |
@R !.!!! |
If(Empty(M->BE4_OPEUSR),.T.,PLSVLDINT(M->BE4_OPEUSR)) |
B89PLS |
|
|
|
S |
BE4_USUARI |
C |
17 |
0 |
Matricula |
@! |
PLBE4USUAR() |
BETPLS |
V |
|
Empty(M->BE4_NOMUSR) |
S |
BE4_ATERNA |
C |
1 |
0 |
Recem-Nasc. |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_SENHA |
C |
20 |
0 |
Senha |
@! |
|
|
|
|
|
S |
BE4_MATANT |
C |
17 |
0 |
Matr Antiga |
@! |
|
|
|
|
|
S |
BE4_OPERDA |
C |
4 |
0 |
Operad. RDA |
@R !.!!! |
If(Empty(M->BE4_OPERDA),.T.,PLSA092VR2()) |
B89PLS |
|
|
|
S |
BE4_TIPUSR |
C |
2 |
0 |
Tipo Usr. |
@! |
|
|
|
|
|
S |
BE4_NOMUSR |
C |
70 |
0 |
Usuario |
@! |
|
|
|
|
|
S |
BE4_CODRDA |
C |
6 |
0 |
Cod. Prest. |
@! |
IF(Empty(M->BE4_CODRDA),.T.,PLSA090RD4()) .And. M->BE4_CODRDA <> GetNewPar("MV_PLSRDAG","999999") .And. PLATURDA() |
BQWPLS |
|
|
|
S |
BE4_NOMRDA |
C |
40 |
0 |
Nm.Cred/Coop |
@! |
|
|
|
|
|
S |
BE4_CODLOC |
C |
3 |
0 |
Local Atend. |
@! |
If(Empty(M->BE4_CODRDA),.T.,PLSA090LOC(M->BE4_OPERDA,M->BE4_CODRDA,M->BE4_CODLOC,M->BE4_DATPRO,"BE4")) |
B9HPLS |
|
|
|
S |
BE4_DESLOC |
C |
40 |
0 |
Desc. Local |
@! |
|
|
V |
|
|
S |
BE4_ENDLOC |
C |
100 |
0 |
End. Local |
@! |
|
|
V |
|
|
S |
BE4_GRPINT |
C |
1 |
0 |
Grp.Intern. |
@! |
Pertence("12345") |
|
|
1=Clinica;2=Cirurgica;3=Obstetrica;4=Pediatrica;5=Psiquiatrica |
|
S |
BE4_TIPINT |
C |
2 |
0 |
Tipo Intern. |
@! |
!EMPTY(M->BE4_GRPINT) .And. BQR->(ExistCpo("BQR", M->BE4_GRPINT+M->BE4_TIPINT)) |
BQVPLS |
|
|
|
S |
BE4_DESTIP |
C |
25 |
0 |
Dsc.Tp.Inter |
@! |
|
|
V |
|
|
S |
BE4_CODESP |
C |
3 |
0 |
Especialidad |
@! |
If(Empty(M->BE4_CODESP),.T.,PLSA090ESP(M->BE4_OPERDA,M->BE4_CODRDA,M->BE4_CODLOC,M->BE4_CODESP,M->BE4_DATPRO,"BE4")) |
B9IPLS |
|
|
|
S |
BE4_DESESP |
C |
40 |
0 |
Desc. Espec. |
@! |
|
|
V |
|
|
S |
BE4_DIASIN |
N |
4 |
0 |
D. Autoriz. |
9999 |
Positivo() |
|
R |
|
|
S |
BE4_INTSIP |
C |
4 |
0 |
Intern SIP |
@! |
vazio() .or. existcpo("SX5","BT"+M->BE4_INTSIP) |
BT |
|
|
|
S |
BE4_INSIPD |
C |
30 |
0 |
Ds.Int.SIP |
@! |
|
|
V |
|
|
S |
BE4_CID |
C |
8 |
0 |
CID Princip. |
@! |
|
BA9PLS |
|
|
|
S |
BE4_DESCID |
C |
50 |
0 |
Descr. CID |
@! |
|
|
|
|
|
S |
BE4_ESTSOL |
C |
2 |
0 |
UF Solic. |
@! |
ExistCpo("SX5","12"+M->BE4_ESTSOL,1) |
12 |
R |
|
|
S |
BE4_OPESOL |
C |
4 |
0 |
Operad. Sol. |
@R !.!!! |
BA0->(ExistCpo("BA0",M->BE4_OPESOL,1)) |
B89PLS |
|
|
|
S |
BE4_SIGLA |
C |
7 |
0 |
Sigla C.R. |
@! |
ExistCpo("BAH",M->BE4_SIGLA) |
B53PLS |
R |
|
|
S |
BE4_REGSOL |
C |
15 |
0 |
C.R. Solic. |
@R !!!!!!!!!!!!!!! |
M->BE4_OPESOL <> PLSINTPAD() .or. BB0->(PLVLDPFS("BB0",M->BE4_ESTSOL+M->BE4_REGSOL+M->BE4_SIGLA,7,dDataBase)) |
BTYPLS |
|
|
|
S |
BE4_ESPSOL |
C |
3 |
0 |
Espec.Sol. |
@! |
Vazio() .or. ExistCpo("BQ1",M->BE4_CDPFSO+M->BE4_ESPSOL) |
BQ1PL1 |
R |
|
|
S |
BE4_NOMSOL |
C |
30 |
0 |
Solicitante |
@! |
|
|
|
|
|
S |
BE4_CDPFSO |
C |
6 |
0 |
Cd.Prf.Solic |
@! |
|
|
|
|
|
S |
BE4_MEDRES |
C |
6 |
0 |
Prof. Resp. |
@! |
Vazio() .Or. PlsZero() .And. BB0->(PLVLDPFS("BB0",M->BE4_MEDRES,1,dDataBase)) |
BB0PLS |
|
|
|
S |
BE4_DESMED |
C |
30 |
0 |
Nome Prof.Re |
@! |
|
|
V |
|
|
S |
BE4_CODEMP |
C |
4 |
0 |
Grp/Empresa |
@! |
|
|
|
|
|
S |
BE4_MATRIC |
C |
6 |
0 |
Matricula |
@! |
|
|
|
|
|
S |
BE4_TIPREG |
C |
2 |
0 |
Tipo de Reg. |
@! |
|
|
|
|
|
S |
BE4_CPFUSR |
C |
11 |
0 |
CPF Usuario |
@! |
|
|
|
|
|
S |
BE4_IDUSR |
C |
11 |
0 |
Iden Usuario |
@! |
|
|
|
|
|
S |
BE4_DATNAS |
D |
8 |
0 |
Dt.Nasc.Usr. |
@D |
|
|
|
|
|
S |
BE4_DIGITO |
C |
1 |
0 |
Digito |
@! |
|
|
|
|
|
S |
BE4_CONEMP |
C |
12 |
0 |
Cont.Empresa |
@! |
|
|
|
|
|
S |
BE4_VERCON |
C |
3 |
0 |
Versao Emp. |
@! |
|
|
|
|
|
S |
BE4_SUBCON |
C |
9 |
0 |
Subcontrato |
@! |
|
|
|
|
|
S |
BE4_VERSUB |
C |
3 |
0 |
Versao Subc. |
@! |
|
|
|
|
|
S |
BE4_MATVID |
C |
8 |
0 |
Matric.Vida |
@! |
|
|
|
|
|
S |
BE4_VLRAPR |
N |
16 |
4 |
Vlr.Apres. |
@E 99,999,999,999.9999 |
|
|
|
|
|
S |
BE4_DTDIGI |
D |
8 |
0 |
Data Digit. |
@D |
PLSA92DTDG() .AND. PLBE4USUAR() |
|
|
|
|
S |
BE4_MATUSA |
C |
1 |
0 |
Matr.Usada |
@! |
|
|
|
1=Matricula Principal;2=Matricula Antiga |
|
S |
BE4_CIDSEC |
C |
8 |
0 |
CID Secundar |
@! |
Vazio() .Or. BA9->(ExistCpo("BA9",M->BE4_CIDSEC,1)) .And. M->BE4_CID <> M->BE4_CIDSEC |
BA9PLS |
|
|
|
S |
BE4_GRAPAR |
C |
2 |
0 |
Grau Partic. |
@! |
VAZIO() .OR. BWT->(EXISTCPO("BWT",PLSINTPAD()+M->BE4_GRAPAR,1)) |
B5DPLS |
R |
|
|
N |
BE4_DESCSE |
C |
50 |
0 |
Descricao |
@! |
|
|
V |
|
|
S |
BE4_DATPRO |
D |
8 |
0 |
Data Intern. |
|
|
|
|
|
|
S |
BE4_HORPRO |
C |
6 |
0 |
Hora Intern. |
@R !!:!!:!! |
PLSVLDHOR(M->BE4_HORPRO) |
|
R |
|
|
S |
BE4_CID3 |
C |
8 |
0 |
CID 3 |
@! |
BA9->(ExistCpo("BA9",M->BE4_CID3,1)) |
BA9PLS |
|
|
|
S |
BE4_DESCI3 |
C |
50 |
0 |
Desc. CID 3 |
@! |
|
|
V |
|
|
S |
BE4_CID4 |
C |
8 |
0 |
CID 4 |
@! |
BA9->(ExistCpo("BA9",M->BE4_CID4,1)) |
BA9PLS |
|
|
|
S |
BE4_DESCI4 |
C |
50 |
0 |
Desc. CID 4 |
@! |
|
|
V |
|
|
S |
BE4_CID5 |
C |
8 |
0 |
CID 5 |
@! |
BA9->(ExistCpo("BA9",M->BE4_CID5,1)) |
BA9PLS |
|
|
|
S |
BE4_DESCI5 |
C |
50 |
0 |
Desc. CID 5 |
@! |
|
|
V |
|
|
S |
BE4_PADINT |
C |
2 |
0 |
Tipo Acomod. |
@! |
BI4->(ExistCpo("BI4",M->BE4_PADINT,1)) |
B45PLS |
|
|
|
S |
BE4_DESPAD |
C |
30 |
0 |
Descricao |
@C |
|
|
V |
|
|
S |
BE4_PADCON |
C |
6 |
0 |
Pd. conforto |
@! |
Vazio() .Or. ExistCpo("BN5",M->BE4_OPEUSR+M->BE4_PADCON,1) |
BVTPLS |
|
|
|
S |
BE4_DESPDC |
C |
40 |
0 |
Descricao |
@! |
|
|
V |
|
|
S |
BE4_VLRBPF |
N |
16 |
2 |
Vlr.Base PF |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_DTALTA |
D |
8 |
0 |
Data Saida |
|
( dtos(M->BE4_DTALTA) >= dtos(M->BE4_DATPRO) ) .And. ( dtos(M->BE4_DTALTA) <= dtos(dDataBase) ) |
|
|
|
|
S |
BE4_HRALTA |
C |
4 |
0 |
Hora Saida |
@R !!:!! |
( PLSVLDHOR(M->BE4_HRALTA) ) |
|
|
|
|
S |
BE4_CIDREA |
C |
8 |
0 |
CID Real |
@C |
BA9->(ExistCpo("BA9",M->BE4_CIDREA,1)) |
BA9PLS |
|
|
|
S |
BE4_DESREA |
C |
50 |
0 |
Descricao |
@C |
|
|
V |
|
|
S |
BE4_TIPALT |
C |
2 |
0 |
Tipo Saida |
@C |
BIY->(ExistCpo("BIY",PLSINTPAD()+M->BE4_TIPALT,1)) |
BTWPLS |
|
|
|
S |
BE4_DESALT |
C |
40 |
0 |
Descricao |
@C |
|
|
V |
|
|
S |
BE4_NRAOPE |
C |
20 |
0 |
Nr Aut Oper. |
@! |
|
|
|
|
|
S |
BE4_NRAEMP |
C |
20 |
0 |
Nr Aut Empr. |
@! |
|
|
|
|
|
S |
BE4_ANOINT |
C |
4 |
0 |
Ano Autoriz. |
@! |
|
|
|
|
|
S |
BE4_MESINT |
C |
2 |
0 |
Mes Autoriz. |
@! |
|
|
|
|
|
S |
BE4_NUMINT |
C |
8 |
0 |
Num.Internac |
@! |
|
|
|
|
|
S |
BE4_CODLDP |
C |
4 |
0 |
Cd.Local Dig |
@! |
|
|
|
|
|
S |
BE4_CODPEG |
C |
8 |
0 |
Cd.PEG |
@! |
|
|
|
|
|
S |
BE4_NUMERO |
C |
8 |
0 |
Numero Guia |
@! |
|
|
|
|
|
S |
BE4_SITUAC |
C |
1 |
0 |
Situacao |
@! |
|
|
|
1=Ativa;2=Cancelada;3=Bloqueada |
|
S |
BE4_STATUS |
C |
1 |
0 |
Status Int. |
@! |
|
|
|
#PLSSTATUS ("BE4") |
|
S |
BE4_FASE |
C |
1 |
0 |
Fase |
@! |
|
|
|
1=Digitacao;2=Conferencia;3=Pronta;4=Faturada |
|
S |
BE4_QTDEVE |
N |
6 |
0 |
Qtd Eventos |
999999 |
|
|
|
|
|
S |
BE4_VLRBPR |
N |
16 |
2 |
Vlr.Bas.Guia |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_TIPPAR |
C |
4 |
0 |
Tipo Parto |
@! |
vazio() .or. existcpo("SX5","BP"+M->BE4_TIPPAR) |
BP |
|
|
|
S |
BE4_DSTPAR |
C |
30 |
0 |
Ds.Tip.Parto |
@! |
|
|
V |
|
|
S |
BE4_TIPNAS |
C |
4 |
0 |
Tipo Nascto |
@! |
vazio() .or. existcpo("BEW",M->(BE4_CODOPE+BE4_TIPNAS)) |
BEWPLS |
|
|
|
S |
BE4_DSTNAS |
C |
30 |
0 |
Ds.Tip.Nasc. |
@! |
|
|
V |
|
|
S |
BE4_GUIORI |
C |
32 |
0 |
Guia Orig. |
@R !!!!.!!!!.!!!!!!!!.!!!!!!!! |
|
|
|
|
|
S |
BE4_LOCAL |
C |
3 |
0 |
Localidade |
@! |
|
|
|
|
|
S |
BE4_SUBESP |
C |
3 |
0 |
Sub-Espec. |
@! |
|
|
|
|
|
S |
BE4_VLRGLO |
N |
16 |
2 |
Vlr.Glosas |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_VLRMAN |
N |
16 |
2 |
Vlr.Base |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_VLRPAG |
N |
16 |
2 |
Vlr.Pagto |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_VLRPF |
N |
16 |
2 |
Vlr.PF |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_MSG01 |
C |
254 |
0 |
Mensagem |
@C |
|
|
|
|
|
S |
BE4_MSG02 |
C |
254 |
0 |
Mensagem 2 |
@C |
|
|
|
|
|
S |
BE4_MSG03 |
C |
254 |
0 |
Informacao |
@C |
|
|
|
|
|
S |
BE4_PACOTE |
C |
1 |
0 |
Pacote? |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_VLRPAC |
N |
16 |
2 |
Vlr.Pacote |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_NUMIMP |
C |
20 |
0 |
Nr. Impresso |
@! |
( Vazio() ) .Or. ( plszero() .And. PLSVLDNIMP(M->BE4_NUMIMP,M->BE4_CODRDA) ) |
|
|
|
|
S |
BE4_ORIMOV |
C |
1 |
0 |
Origem Movto |
@! |
|
|
|
1=Guias de Consultas/Servicos;2=Guia de Internacao;3=Outros;4=Autorizacao Odontologica;5=Dig. Off-Line;6=Novo Autorizador |
|
S |
BE4_VLRTAD |
N |
16 |
2 |
Vlr.Taxa.Adm |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_VLRTPF |
N |
16 |
2 |
Vlr.Total PF |
@E 9,999,999,999,999.99 |
|
|
|
|
|
S |
BE4_TIPGUI |
C |
2 |
0 |
Tipo de Guia |
@! |
|
|
|
|
|
S |
BE4_MESPAG |
C |
2 |
0 |
Mes Pagto |
@! |
|
|
|
|
|
S |
BE4_NUMFIN |
C |
11 |
0 |
Nm.Fat.Int. |
@! |
|
|
|
|
|
S |
BE4_ANOPAG |
C |
4 |
0 |
Ano Pagto |
@! |
|
|
|
|
|
S |
BE4_CC |
C |
9 |
0 |
Centro Custo |
@! |
|
|
|
|
|
S |
BE4_PAGATO |
C |
1 |
0 |
Pagto Ato? |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_OPELOT |
C |
4 |
0 |
Operadora Lt |
@R !.!!! |
|
|
|
|
|
S |
BE4_NUMLOT |
C |
10 |
0 |
Lote Pagto |
@! |
|
|
|
|
|
S |
BE4_CGCRDA |
C |
14 |
0 |
CGC RDA |
@! |
|
|
|
|
|
S |
BE4_TIPPRE |
C |
3 |
0 |
Tipo da RDA |
@! |
|
B42PLS |
|
|
|
S |
BE4_GUIIMP |
C |
1 |
0 |
Impressa? |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_RGIMP |
C |
1 |
0 |
Reg. Imp? |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_OPEEXE |
C |
4 |
0 |
Operad. Exec |
@R !.!!! |
If(Empty(M->BE4_OPESOL),.T.,BA0->(ExistCpo("BA0",M->BE4_OPESOL,1))) |
B89PLS |
|
|
|
S |
BE4_REGEXE |
C |
15 |
0 |
C.R. Execut. |
@R !!!!!!!!!!!!!!! |
PLSA092EXE() |
BTYPLS |
|
|
|
S |
BE4_NOMEXE |
C |
30 |
0 |
Executante |
@! |
|
|
|
|
|
S |
BE4_CDPFRE |
C |
6 |
0 |
Cd.Prf.Exec. |
@! |
|
|
|
|
|
S |
BE4_ESTEXE |
C |
2 |
0 |
UF execut. |
@! |
If(Empty(M->BE4_ESTEXE),.T.,SX5->(ExistCpo("SX5","12"+M->BE4_ESTEXE,1))) |
12 |
|
|
|
S |
BE4_PODRFS |
C |
1 |
0 |
Pode Rt.Fase |
@! |
|
|
|
1=Sim;0=Nao |
|
S |
BE4_SEQPF |
C |
6 |
0 |
Sequencia |
@! |
|
|
|
|
|
S |
BE4_MOTBLO |
C |
3 |
0 |
Mot. Bloquei |
@! |
vazio() .or. ExistCpo("SX5","BW"+M->BE4_MOTBLO) |
|
|
|
|
S |
BE4_BLOPAG |
C |
1 |
0 |
Bloq.Pagto? |
@! |
PLSA720B2() |
|
|
1=Sim;0=Nao |
|
S |
BE4_HHDIGI |
C |
5 |
0 |
Hr.Digitacao |
@R !!:!! |
|
|
|
|
|
S |
BE4_DESBLO |
C |
30 |
0 |
Desc.Bloquei |
@! |
|
|
V |
|
|
S |
BE4_MOTBPG |
C |
3 |
0 |
Mot. Blo Pag |
@! |
vazio() .or. BCT->(ExistCpo("BCT",PLSINTPAD()+M->BE4_MOTBPG,1)) .And. PLSA720B2() |
BCTPLS |
|
|
M->BE4_BLOPAG == "1" |
S |
BE4_DESBPG |
C |
120 |
0 |
Desc.Bloq.PG |
@C |
PLSA720B2() |
|
|
|
|
S |
BE4_DESOPE |
C |
25 |
0 |
Desc. Oper. |
@C |
|
|
|
|
|
S |
BE4_SEQIMP |
C |
8 |
0 |
Seq.Import. |
@! |
|
|
|
|
|
S |
BE4_OPEFAT |
C |
4 |
0 |
Oper. Fatura |
@! |
|
|
|
|
|
S |
BE4_NUMFAT |
C |
12 |
0 |
Num. Fatura |
@! |
|
|
|
|
|
S |
BE4_STAFAT |
C |
1 |
0 |
Status Fat. |
@! |
|
|
|
1=Aberto;0=Faturado |
|
S |
BE4_INTFAT |
C |
1 |
0 |
Interc. Fat. |
@! |
|
|
|
0=Nao;1=Sim |
|
S |
BE4_NUMSE1 |
C |
13 |
0 |
Num.Fat.Cobr |
@! |
|
|
R |
|
|
S |
BE4_GUIAIN |
C |
1 |
0 |
Cons. SIP |
@! |
|
|
|
1=Sim;2=Nao |
|
S |
BE4_ATENRN |
C |
1 |
0 |
Atendim. RN |
@! |
|
|
|
0=Nao;1=Sim |
|
S |
BE4_NASVIV |
N |
2 |
0 |
Nasc Vivos |
99 |
|
|
R |
|
|
N |
BE4_NASMOR |
N |
2 |
0 |
Nasc Mortos |
99 |
|
|
R |
|
|
N |
BE4_NASVPR |
N |
2 |
0 |
Nasc Viv Pre |
99 |
|
|
R |
|
|
N |
BE4_OBTPRE |
N |
1 |
0 |
Obito Precoc |
9 |
|
|
R |
|
|
N |
BE4_OBTTAR |
N |
1 |
0 |
Obito Tardio |
9 |
|
|
R |
|
|
N |
BE4_RDAEDI |
C |
6 |
0 |
RDA EDI |
@! |
|
BAUPLS |
R |
|
|
S |
BE4_NOMEDI |
C |
40 |
0 |
Nome EDI |
@! |
|
|
R |
|
|
S |
BE4_INDCLI |
C |
250 |
0 |
Indic Clinic |
@S70 |
|
|
R |
|
|
N |
BE4_INDCL2 |
C |
250 |
0 |
Cont. IndCli |
@S70 |
|
|
R |
|
|
N |
BE4_TIPDOE |
C |
1 |
0 |
Tipo Doenca |
@! |
|
|
R |
A=Aguda;C=Cronica |
|
N |
BE4_TPODOE |
N |
2 |
0 |
Tempo Doenca |
99 |
|
|
R |
|
|
N |
BE4_UTPDOE |
C |
1 |
0 |
Unid Tpo Doe |
@! |
|
|
R |
A=Anos;M=Meses;D=Dias |
|
N |
BE4_INDACI |
C |
1 |
0 |
Indic Aciden |
@! |
|
|
R |
0=Trabalho;1=Transito;2=Outros;9=Nao Acidente |
|
N |
BE4_REGINT |
C |
1 |
0 |
Regime Inter |
@! |
Pertence("123") |
|
R |
1=Hospitalar;2=Hospital-Dia;3=Domiciliar |
|
N |
BE4_DIASSO |
N |
7 |
2 |
Diarias Sol. |
9999.99 |
|
|
R |
|
|
N |
BE4_PRORRO |
C |
1 |
0 |
Prorrogacao |
@! |
|
|
|
1=Sim;0=Nao |
|
N |
BE4_DIASPR |
N |
4 |
0 |
D. Prorrog. |
9999 |
|
|
|
|
|
N |
BE4_CANCEL |
C |
1 |
0 |
Cancelado |
@! |
|
|
|
1=Sim;0=Nao |
|
N |
BE4_COMUNI |
C |
1 |
0 |
On-Line? |
@! |
|
|
|
1=Sim;0=Nao |
|
N |
BE4_DESJUS |
C |
100 |
0 |
Descr. Justi |
@! |
|
|
|
|
|
N |
BE4_INSIST |
C |
1 |
0 |
Revisao |
@! |
|
|
V |
|
|
N |
BE4_MSG04 |
C |
254 |
0 |
Sol. Revisao |
@! |
|
|
R |
|
|
N |
BE4_MSG05 |
C |
254 |
0 |
Resp. Revisa |
@! |
|
|
R |
|
|
N |
BE4_NRTROL |
C |
20 |
0 |
Nr.Tr.OnLine |
@! |
|
|
|
|
|
N |
BE4_TIPCON |
C |
1 |
0 |
Tp. Consulta |
@! |
|
|
|
1=Primeira Consulta;2=Retorno;3=Pre-natal;4=Por encaminhamento |
|
N |
BE4_TRACON |
C |
1 |
0 |
Tra. Conclui |
@! |
|
|
|
1=Sim;0=Nao |
|
N |
BE4_VIACAR |
N |
2 |
0 |
Via Cart. |
99 |
|
|
|
|
!Empty(M->BE4_MATANT) |
N |
BE4_GUESTO |
C |
27 |
0 |
Guia Estor. |
@! |
|
|
R |
|
|
N |
BE4_ESTORI |
C |
1 |
0 |
Ori.Estor. |
@! |
|
|
R |
1=Sim;0=Nao |
|
N |
BE4_SEQEST |
C |
8 |
0 |
Seq. Estor. |
@! |
|
|
R |
|
|
N |
BE4_OBTMUL |
C |
1 |
0 |
Obito Mulher |
@! |
|
|
R |
1=Gravida;2=ate 42 dias apos termino gestacao;3=de 43 dias a 12 meses apos gestacao |
|
N |
BE4_NRDCNV |
C |
79 |
0 |
N.Dec Nas Vi |
@! |
|
|
R |
|
|
N |
BE4_CIDOBT |
C |
8 |
0 |
CID Obito |
@! |
BA9->(ExistCpo("BA9",M->BE4_CIDOBT,1)) |
BA9PLS |
R |
|
|
N |
BE4_NRDCOB |
C |
11 |
0 |
N.Dec Obito |
@! |
|
|
R |
|
|
N |
BE4_TIPFAT |
C |
1 |
0 |
Tp Faturamen |
@! |
Pertence("1234TP") |
|
R |
1=Parcial;2=Final;3=Complementar;4=Total;T=Total;P=Parcial |
|
N |
BE4_PREFIX |
C |
3 |
0 |
Prefixo |
@! |
|
|
R |
|
|
N |
BE4_NUMTIT |
C |
9 |
0 |
Titulo |
@! |
|
|
R |
|
|
N |
BE4_PARCEL |
C |
2 |
0 |
Parcela |
@! |
|
|
R |
|
|
N |
BE4_TIPTIT |
C |
3 |
0 |
Tipo titulo |
@! |
|
|
R |
|
|
N |
BE4_RDACON |
C |
6 |
0 |
Cd.Sol.Cont. |
@! |
PlValRDA('BE4') |
B1HPLS |
R |
|
|
S |
BE4_DRDACO |
C |
40 |
0 |
Ds.Sol.Cont. |
@! |
|
|
R |
|
|
N |
BE4_EMGEST |
C |
1 |
0 |
Em Gestacao |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_ABORTO |
C |
1 |
0 |
Aborto |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_TRAGRA |
C |
1 |
0 |
Tra. Grav. |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_COMURP |
C |
1 |
0 |
C.P Puerp. |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_ATESPA |
C |
1 |
0 |
RN Sa. Parto |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_COMNAL |
C |
1 |
0 |
C. Neo Natal |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_BAIPES |
C |
1 |
0 |
Baixo Peso |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_PARCES |
C |
1 |
0 |
Parto Cesari |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_PATNOR |
C |
1 |
0 |
Parto Normal |
@! |
|
|
|
1=Sim;0=Nao |
PLSVLDOBS() |
S |
BE4_LOTGUI |
C |
12 |
0 |
Lot Guia XML |
@! |
|
|
R |
|
|
S |
BE4_MSG06 |
C |
254 |
0 |
Sol. Revi. 2 |
@! |
|
|
R |
|
|
S |
BE4_MSG07 |
C |
254 |
0 |
Resp. Rev. 2 |
@! |
|
|
R |
|
|
S |
BE4_PREOPE |
C |
1 |
0 |
Prev. OPME |
|
|
|
R |
0=Sim;1=Nao |
|
S |
BE4_PREQUI |
C |
1 |
0 |
Prev Quimiot |
|
|
|
R |
0=Sim;1=Nao |
|
S |
BE4_DTINIF |
D |
8 |
0 |
Dt Ini Fatur |
|
|
|
R |
|
|
S |
BE4_ARQIMP |
C |
55 |
0 |
Arq.Imp XML |
@! |
|
|
R |
|
|
S |
BE4_HRINIF |
C |
5 |
0 |
Hr Ini Fatur |
99:99 |
|
|
R |
|
|
S |
BE4_DTRECE |
D |
8 |
0 |
Dt. Recepcao |
@D |
|
|
R |
|
|
N |
BE4_DTFIMF |
D |
8 |
0 |
Dt Fim Fatur |
|
|
|
R |
|
|
S |
BE4_DTDIG1 |
D |
8 |
0 |
nao usado |
|
|
|
V |
|
|
N |
BE4_HRFIMF |
C |
5 |
0 |
Hora Fim Fat |
99:99 |
|
|
R |
|
|
S |
BE4_PRENDC |
C |
3 |
0 |
Prefixo |
@! |
|
|
R |
|
|
S |
BE4_NUMNDC |
C |
9 |
0 |
Titulo |
@! |
|
|
R |
|
|
S |
BE4_DTANAL |
D |
8 |
0 |
Dt.Analise |
@D |
|
|
R |
|
|
N |
BE4_DTPAGT |
D |
8 |
0 |
Dt.Pagto |
@D |
|
|
R |
|
|
N |
BE4_SEQNFS |
C |
10 |
0 |
Numero NFSS |
@! |
|
BBZPLS |
|
|
|
S |
BE4_LANCF |
C |
3 |
0 |
Lancam. Fat. |
@! |
|
|
R |
|
|
N |
BE4_TIPMAJ |
C |
1 |
0 |
Tipo Maj. |
@! |
|
|
R |
1=Fisica;2=Juridica;3=Cooperativa |
|
N |
BE4_NASSIP |
C |
6 |
0 |
Ref.SIP NV |
@! |
|
|
R |
|
|
S |
BE4_GUIJUR |
C |
1 |
0 |
Guia Jurid ? |
@! |
PLSGUIJUR("BE4_GUIJUR") |
|
R |
0=Nao;1=Sim |
|
S |
BE4_NUMPRO |
C |
20 |
0 |
Num Processo |
@! |
|
|
|
|
|
S |
BE4_RMAUDI |
C |
15 |
0 |
Reg.Med.Aud. |
@! |
|
|
R |
|
|
S |
BE4_LOTEDI |
C |
8 |
0 |
Lote EDI |
@! |
|
|
R |
|
|
S |
BE4_NMAUDI |
C |
40 |
0 |
Nome.Med.Aud |
@! |
|
|
R |
|
|
S |
BE4_REAUDI |
C |
15 |
0 |
Reg.Enf.Aud. |
@! |
|
|
R |
|
|
S |
BE4_NEAUDI |
C |
40 |
0 |
Nome.Enf.Aud |
@! |
|
|
R |
|
|
S |
BE4_GUIINT |
C |
24 |
0 |
Guia Solic. |
@! |
PLS498vls(M->BE4_GUIINT) |
BGCPLS |
|
|
|
S |
BE4_CODGLO |
C |
3 |
0 |
Cod Glosa |
@! |
|
|
|
|
|
S |
BE4_ESPEXE |
C |
3 |
0 |
Espec.Exe. |
@! |
Vazio() .or. ExistCpo("BQ1",M->BE4_CDPFRE+M->BE4_ESPEXE) |
BQ1PL1 |
R |
|
|
S |
BE4_SITRG |
C |
1 |
0 |
Sit. Rec. Gl |
@! |
|
|
R |
0=Sem rec de glosa;1=Rec Glosa Protocolado;2=Rec Glosa Em Analise;3=Rec Glosa Autorizado;4=Rec Glosa Negado;5=Aut. Parc |
|
S |
BE4_CNES |
C |
7 |
0 |
CNES |
@! |
|
|
R |
|
|
S |
BE4_MATXML |
C |
17 |
0 |
Matric XML |
@! |
|
|
|
|
|
S |
BE4_NRTROS |
C |
20 |
0 |
Nr.Tr.Or.Sev |
@! |
|
|
R |
|
|
S |
BE4_CANEDI |
C |
250 |
0 |
Desc.Can.Edi |
@! |
|
|
R |
|
|
S |
BE4_TPGRV |
C |
1 |
0 |
Tp. Gravacao |
|
|
|
R |
1=Remote Protheus;2=Internet(RPC);3=POS;4=Importacao Manual |
|
S |
BE4_GUIPRE |
C |
20 |
0 |
N.Guia Pres. |
@! |
|
|
R |
|
|
S |
BE4_CANTIS |
C |
15 |
0 |
Canc. TISS |
@! |
|
|
R |
|
|
S |
BE4_LOTMOP |
C |
18 |
0 |
Lote Monit. |
@! |
|
|
R |
|
|
S |
BE4_LOTMOF |
C |
18 |
0 |
Lote Monit. |
@! |
|
|
R |
|
|
S |
BE4_LOTMOE |
C |
18 |
0 |
Lote Exc Mon |
@! |
|
|
R |
|
|
S |
BE4_PROATE |
C |
20 |
0 |
Protocolo |
@! |
|
|
R |
|
|
S |
BE4_STTISS |
C |
1 |
0 |
Status TISS |
|
|
|
R |
#PLSGUTISS() |
|
S |
BE4_VALORI |
N |
16 |
2 |
Vlr Apr Tot |
@E 9,999,999,999,999.99 |
|
|
|
|
|
N |
BE4_MSG08 |
C |
254 |
0 |
Mensagem 3 |
@! |
|
|
R |
|
|
S |
BE4_MSG09 |
C |
254 |
0 |
Mensagem 4 |
@! |
|
|
R |
|
|
S |
BE4_PESEDI |
C |
1 |
0 |
Tp Pessoa Ed |
|
|
|
R |
|
|
S |
BE4_CGCEDI |
C |
14 |
0 |
CGC EDI |
|
|
|
R |
|
|
S |
BE4_CNESED |
C |
7 |
0 |
CNES Edi |
|
|
|
R |
|
|
S |
BE4_MUNEDI |
C |
7 |
0 |
Mun Exec EDI |
|
|
|
R |
|
|
S |