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