Tabela
BD5 Processamento de Contas
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BD5_FILIAL C 2 0 Filial S
BD5_ERRO C 1 0 Erro Integr. @! 1=Sim;0=Nao S
BD5_CODOPE C 4 0 Operadora @! S
BD5_TIPPAC C 2 0 Tp. Paciente @C BGY->(ExistCpo("BGY",PLSINTPAD()+M->BD5_TIPPAC,1)) BGYPLS S
BD5_DESPAC C 30 0 Descricao @C V S
BD5_CODPAD C 2 0 Cd.Tp.Tabela @! ExistCpo("BR4",M->BD5_CODPAD) B41PLS V S
BD5_CODPRO C 16 0 Cod.Proced. @! (BR8->(ExistCpo("BR8",M->BD5_CODPAD+M->BD5_CODPRO,1)).AND. PlsCkCon(BCI->BCI_TIPGUI,M->BD5_CODPAD,M->BD5_CODPRO)).OR. VAZIO() V S
BD5_DESSTA C 15 0 Situacao @! V S
BD5_DESFAS C 15 0 Fase @! V S
BD5_CODLDP C 4 0 Cd.Local Dig @! S
BD5_CODPEG C 8 0 Codigo PEG @! S
BD5_NUMERO C 8 0 Numero @! S
BD5_NUMIMP C 20 0 Nr. Impresso @! ( Vazio() ) .Or. ( plszero() .And. PLSA720IMP() ) R S
BD5_DATPRO D 8 0 Data Evento dtos(M->BD5_DATPRO) <= dtos(Date()) .and. PLSVLDRDG(M->BD5_CODRDA) S
BD5_HORPRO C 6 0 Hora Evento @R !!:!!:!! PLSVLDHOR(M->BD5_HORPRO) S
BD5_OPEUSR C 4 0 Oper. Usr. @R !.!!! PLSVLDINT(M->BD5_OPEUSR) B89PLS S
BD5_USUARI C 17 0 Matricula @! Vazio() .Or. PLSA090USR(M->BD5_USUARI,M->BD5_DATPRO,M->BD5_HORPRO,"BD5",nil,nil,nil,"2") BD5PLS V S
BD5_MATANT C 17 0 Matr.Antiga @! S
BD5_NOMUSR C 70 0 Usuario @! S
BD5_CODRDA C 6 0 Cd.Cred/Coop @! PlAtuRda() BASPLS S
BD5_OPERDA C 4 0 Oper. RDA @R !.!!! PSVLDINT(M->BD5_OPERDA) B89PLS S
BD5_LOCATE C 6 0 Local @R !!!.!!! PLSVLLCBD5() BT6PLS V S
BD5_TIPRDA C 1 0 Tp. RDA @! F=Pessoa Fisica;J=Pessoa Juridica S
BD5_NOMRDA C 40 0 Nm.Cred/Coop @! S
BD5_DESLOC C 40 0 Desc. Local @! S
BD5_ENDLOC C 100 0 End. Local @! S
BD5_CODESP C 3 0 Cd. Espec. @! PLSVLESBD5() BBGPLS S
BD5_DESESP C 40 0 Desc. Espec. @! V S
BD5_SUBESP C 3 0 Sub-Espec. @! ExistCpo("BFN",M->BD5_OPERDA+M->BD5_CODESP+M->BD5_SUBESP,1) BFEPLS S
BD5_DESSUB C 30 0 Desc.Sub-Esp @! V S
BD5_CID C 8 0 CID @! Vazio() .Or. BA9->(ExistCpo("BA9",M->BD5_CID,1)) BA9PLS S
BD5_DESCID C 50 0 Desc. CID @! V S
BD5_ESTSOL C 2 0 UF Solic. @! ExistCpo("SX5","12"+M->BD5_ESTSOL,1) 12 S
BD5_CIDSEC C 8 0 CID Secund. @! BA9->(ExistCpo("BA9",M->BD5_CIDSEC,1)) .And. M->BD5_CID <> M->BD5_CIDSEC BA9PLS S
BD5_OPESOL C 4 0 Oper. Sol. @R !.!!! BA0->(ExistCpo("BA0",M->BD5_OPESOL,1)) B89PLS S
BD5_SIGLA C 7 0 Sigla C.R. @! If(Empty(M->BD5_SIGLA),.T.,ExistCpo("BAH",M->BD5_SIGLA)) B53PLS S
BD5_DSCDSC C 40 0 Desc.Cid Sec @! V S
BD5_REGSOL C 15 0 C.R. Solic. @R !!!!!!!!!!!!!!! If(M->BD5_OPESOL==PLSINTPAD(),(BB0->(PLVLDPFS("BB0",M->BD5_ESTSOL+M->BD5_REGSOL+M->BD5_SIGLA,4,M->BD5_DATPRO))),.T.) BTYPLS S
BD5_NOMSOL C 30 0 Solicitante @! S
BD5_GRAPAR C 2 0 Grau Partic. @! VAZIO() .OR. BWT->(EXISTCPO("BWT", PLSINTPAD()+M->BD5_GRAPAR,1)) B5DPLS R M->BD5_TIPGUI == '06' N
BD5_TIPCON C 1 0 Tp. Consulta @! 1=Primeira;2=Seguimento;3=Pre-Natal;4=Por Encaminhamento;5=Retorno S
BD5_TIPGUI C 2 0 Tp. Guia @! S
BD5_ATEAMB C 1 0 Atdo.Amb.? @! 1=Sim;0=Nao S
BD5_CDPFSO C 6 0 Cd.Prf.Solic @! M->BD5_TIPRDA="J" S
BD5_CODEMP C 4 0 Grp/Empresa @! S
BD5_MATRIC C 6 0 Matricula @! S
BD5_TIPREG C 2 0 Tp. Reg. @! S
BD5_CPFUSR C 11 0 CPF Usuario @! S
BD5_IDUSR C 11 0 Iden.Usuario @! S
BD5_DATNAS D 8 0 Dt.Nasc.Usr. @D S
BD5_CPFRDA C 14 0 CPF RDA @! S
BD5_VALOR N 16 2 Vlr.Compra @E 9,999,999,999,999.99 S
BD5_VLRBPR N 16 2 Vlr.Contr. @E 9,999,999,999,999.99 S
BD5_VLRMAN N 16 2 Vlr.Bs.Pagto @E 9,999,999,999,999.99 S
BD5_VLRGLO N 16 2 Vlr.Glosas @E 9,999,999,999,999.99 S
BD5_VLRPAG N 16 2 Vlr.Pagto @E 9,999,999,999,999.99 S
BD5_VLRBPF N 16 2 Vlr.Base PF @E 9,999,999,999,999.99 S
BD5_VLRPF N 16 2 Vlr.Co-Par @E 9,999,999,999,999.99 S
BD5_SEQPF C 6 0 Sequencia @! S
BD5_FASE C 1 0 Fase @! 1=Digitacao;2=Conferencia;3=Pronta;4=Faturada;5=Processando S
BD5_SITUAC C 1 0 Situacao @! 1=Ativa;2=Cancelada;3=Bloqueada S
BD5_NUMATE C 12 0 Nr.Atendto @! S
BD5_DIGITO C 1 0 Digito @! S
BD5_CONEMP C 12 0 Cont Empresa @! S
BD5_VERCON C 3 0 Versao Emp. @! S
BD5_SUBCON C 9 0 Subcontrato @! S
BD5_VERSUB C 3 0 Versao Subc. @! S
BD5_LOCAL C 3 0 Localidade @! S
BD5_CODLOC C 3 0 Cd.Local @! S
BD5_MATVID C 8 0 Matr.Vida @! S
BD5_DTDIGI D 8 0 Dt.Digitacao @D S
BD5_MATUSA C 1 0 Matr.Usada @! 1=Matricula Principal;2=Matricula Antiga S
BD5_QTDEVE N 6 0 Qtd Eventos 999999 S
BD5_ATERNA C 1 0 Atdo.Rec.Na? @! 1=Sim;0=Nao S
BD5_GUIORI C 32 0 Guia Orig. @R !!!!.!!!!.!!!!!!!!.!!!!!!!! S
BD5_PACOTE C 1 0 Pacote? @! 1=Sim;0=Nao S
BD5_VLRPAC N 16 2 Vlr.Pacote @E 9,999,999,999,999.99 S
BD5_SENHA C 20 0 Senha @! R S
BD5_CID3 C 8 0 CID 3 @! BA9->(ExistCpo("BA9",M->BD5_CID3,1)) BA9PLS S
BD5_DESCI3 C 50 0 Desc. CID 3 @! V S
BD5_CID4 C 8 0 CID 4 @! BA9->(ExistCpo("BA9",M->BD5_CID4,1)) BA9PLS S
BD5_DESCI4 C 50 0 Desc. CID 4 @! V S
BD5_CID5 C 8 0 CID 5 @! BA9->(ExistCpo("BA9",M->BD5_CID5,1)) BA9PLS S
BD5_DESCI5 C 50 0 Desc. CID 5 @! V S
BD5_REGEXE C 15 0 C.R. Execut. @R !!!!!!!!!!!!!!! Vazio() .Or. BB0->(PLVLDPFS("BB0",M->BD5_ESTEXE+M->BD5_REGEXE+M->BD5_SIGEXE,4,M->BD5_DATPRO)) BTYPLS S
BD5_OPEEXE C 4 0 Oper. Exe. @R !.!!! S
BD5_NOMEXE C 30 0 Executante @! V S
BD5_CDPFRE C 6 0 Cd.Prf.Resp. @! S
BD5_ESTEXE C 2 0 UF Execut. @! SX5->(ExistCpo("SX5","12"+M->BD5_ESTEXE,1)) 12 S
BD5_SIGEXE C 7 0 Sigla Exec. @! If(Empty(M->BD5_SIGEXE),.T.,ExistCpo("BAH",M->BD5_SIGEXE)) B53PLS R S
BD5_ORIMOV C 1 0 Origem Movto @! 1=Guias de Consultas/Servicos;2=Guia de Internacao;3=Outros;5=Dig. Off-Line;6=Novo Autorizador S
BD5_VLRTAD N 16 2 Vlr.Taxa.Adm @E 9,999,999,999,999.99 S
BD5_VLRTPF N 16 2 Vlr.Total PF @E 9,999,999,999,999.99 S
BD5_MESPAG C 2 0 Mes Pagto @! S
BD5_ANOPAG C 4 0 Ano Pagto @! S
BD5_OPELOT C 4 0 Oper. Lt. @R !.!!! S
BD5_NUMLOT C 10 0 Lote Pagto @! S
BD5_GUIACO C 1 0 Guia Comp. @! 1=Sim;0=Nao S
BD5_QUACOB C 1 0 Quando Cobr. @! 1=No Ato;2=Na Fatura S
BD5_CODCLI C 6 0 Cd.Cliente @! S
BD5_LOJA C 2 0 Loja @! S
BD5_LIBERA C 1 0 Liberacao? @! 1=Sim;0=Nao S
BD5_PAGATO C 1 0 Pagto Ato? @! S
BD5_CC C 9 0 Centro Custo @! S
BD5_TIPPRE C 3 0 Tp. RDA @! B42PLS S
BD5_RGIMP C 1 0 Reg. Imp.? @! 1=Sim;0=Nao S
BD5_NRAEMP C 20 0 Nr.Aut.Empr. @! S
BD5_NRAOPE C 20 0 Nr.Aut.Oper. @!
BD5_CODPLA C 4 0 Cd.Produto @! V S
BD5_DESPLA C 40 0 Desc.Produto @! V S
BD5_LOCREQ C 1 0 Loc.Requisic @! R 1=Consultorio;2=Pronto Atendimento;3=Hospital;4=Medicina do Trabalho;5=Medico/Desntista Na Empresa;6=Transcricao S
BD5_TPGRV C 1 0 Tp. Gravacao @! 1=Remote Protheus;2=Internet(RPC);3=POS;4=Importacao Manual S
BD5_PODRFS C 1 0 Pode Rt.Fase @! 1=Sim;0=Nao S
BD5_MOTBLO C 3 0 Mot.Bloq. @! S
BD5_DESBLO C 30 0 Desc.Bloquei @! V S
BD5_SEQIMP C 8 0 Seq.Import. @! BRJ->(ExistCpo("BRJ")) BRJPLS S
BD5_OPEFAT C 4 0 Oper. Fat. @! S
BD5_NUMFAT C 12 0 Nr. Fatura @! S
BD5_STAFAT C 1 0 Status Fat. @! 1=Aberto;0=Faturado S
BD5_INTFAT C 1 0 Interc. Fat. @! 0=Nao;1=Sim S
BD5_SOLORI C 19 0 Cd.Sol.Orig @! S
BD5_NUMFIN C 11 0 Nm.Fat.Int. @! S
BD5_BLOPAG C 1 0 Bloq.Pagto? @! PLSA720B2() 1=Sim;0=Nao S
BD5_MOTBPG C 4 0 Mot.Bloq. Pg @! PlvldMoG() BCTPLS R M->BD5_BLOPAG == "1" S
BD5_DESBPG C 120 0 Desc.Bloq.PG @C PLSA720B2() M->BD5_BLOPAG == "1" S
BD5_NUMSE1 C 13 0 Nr.Fat.Cob. @! R S
BD5_REGATE C 1 0 Reg. Atend. @! R 1=Internacao; 2=Ambulatorial S
BD5_GUIINT C 24 0 Guia Interna @R !!!!.!!!!.!!!!!!!!.!!!!!!!! Vazio() .OR. PLS498vls(M->BD5_GUIINT) BGCPLS R S
BD5_REGFOR C 1 0 Reg.Ate.For. @! R 1=Internacao; 2=Ambulatorial S
BD5_RDAEDI C 8 0 RDA EDI @! BAUPLS R S
BD5_NOMEDI C 40 0 Nome EDI @! R S
BD5_GUESTO C 27 0 Guia Estor. @! R N
BD5_ESTORI C 1 0 Ori.Estor. @! R 1=Sim;0=Nao N
BD5_SEQEST C 8 0 Seq. Estor. @! R N
BD5_DPTETA D 8 0 Data Termino @! R N
BD5_SCDPER C 1 0 Sinais Perio @! R 0=Nao;1=Sim N
BD5_ALTMOL C 1 0 Alter Tecido @! R 0=Nao,1=Sim N
BD5_PREFIX C 3 0 Prefixo @! R N
BD5_NUMTIT C 9 0 Numero @! R N
BD5_PARCEL C 2 0 Parcela @! R N
BD5_TIPTIT C 3 0 Tipo Titulo @! R N
BD5_TIPATO C 1 0 Tipo Atend @! R 1=Tratamento Odontologico;2=Exame Radiologico;3=Ortodontia;4=Urgencia/ Emergencia;5=Auditoria N
BD5_TIPFAT C 1 0 Tp Faturamen @! Pertence("1234TP") B1HPLS R 1=Parcial;2=Final;3=Complementar;4=Total;T=Total;P=Parcial N
BD5_RDACON C 6 0 Cd.Sol.Cont. @! PlValRDA('BD5') B1HPLS R N
BD5_DRDACO C 40 0 Ds.Sol.Cont. @! R N
BD5_GUIPRI C 18 0 Nr Guia Prin @! R N
BD5_TIPDOE C 1 0 Tipo Doenca @! R A=Aguda;C=Cronica N
BD5_TPODOE N 2 0 Tempo Doenca 99 R N
BD5_UTPDOE C 1 0 Unid Tpo Doe @! R A=Anos;M=Meses;D=Dias N
BD5_INDACI C 1 0 Indic Aciden @! R 0=Trabalho;1=Transito;2=Outros;9=Nao Acidente N
BD5_TIPSAI C 1 0 Tipo Saida @! R 1=Retorno;2=Retorno com SADT;3=Referencia;4=Internacao;5=Alta;6=Obito N
BD5_VALSEN D 8 0 Valid Senha @D R N
BD5_DATSOL D 8 0 Data Solicit @D R N
BD5_HORSOL C 4 0 Hora Solicit @R !!:!! PLSVLDHOR(M->BD5_HORSOL) R N
BD5_INDCLI C 250 0 Indic Clinic @S70 R N
BD5_INDCL2 C 250 0 Cont. IndCli @S70 R N
BD5_LOTGUI C 12 0 Lot Guia @! R S
BD5_TIPATE C 2 0 Tipo Atendim @! M->BD5_TIPATE $ "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21" R #PLTpAteBox() N
BD5_STALIB C 1 0 Status Lib. @C R 1=Em Aberto;2=Fechada N
BD5_NRLBOR C 18 0 N.Solicita. @! iIf( empty(M->BD5_NRLBOR),.t.,PLSVLIB(M->BD5_NRLBOR,M->BD5_DATPRO)) BD5BEA R INCLUI .AND. BCI->BCI_TIPGUI$'01|02' N
BD5_DTRECE D 8 0 Dt.Recepcao @D R N
BD5_DTDIG1 D 8 0 nao usado V N
BD5_DTANAL D 8 0 Dt.Analise @D R N
BD5_DTPAGT D 8 0 Dt.Pagto @D R N
BD5_GESTAN C 1 0 Gestante? @! R 0=Nao;1=Sim N
BD5_SEQNFS C 10 0 Numero NFSS @! BBZPLS S
BD5_PARCOP C 1 0 Parc.Co-Part @! R 0=Nao;1=Sim N
BD5_NPARCE N 2 0 Num. Parcela 99 PLSVLDPARC(M->BD5_NPARCE) R N
BD5_LANCF C 3 0 Lancam. Fat. @! R N
BD5_OKMARK C 4 0 Mark @! R S
BD5_LOTPAR C 8 0 Lote Parc. @! R S
BD5_TIPMAJ C 1 0 Tipo Maj. @! R 1=Fisica;2=Juridica;3=Cooperativa N
BD5_REGINT C 1 0 Regime Inter @! Pertence('123') R 1=Hospitalar;2=Hospital-Dia;3=Domiciliar S
BD5_GRPINT C 1 0 Grp.Intern. @! R 1=Clinica;2=Cirurgica;3=Obstetrica;4=Pediatrica;5=Psiquiatrica S
BD5_TIPINT C 2 0 Tipo Intern. @! (!EMPTY(M->BD5_GRPINT) .And. ExistCpo('BQR', M->BD5_GRPINT+M->BD5_TIPINT) .OR. EMPTY(M->BD5_GRPINT)) BBSPLS R S
BD5_DESTIP C 50 0 Dsc.Tp.Inter @! If(Inclui,'',Posicione('BQR',1,xFilial('BQR')+BD5->(BD5_GRPINT+BD5_TIPINT),'BQR_DESTIP')) V S
BD5_PADINT C 2 0 Tipo Acomod. @! BI4->(ExistCpo('BI4',M->BD5_PADINT,1)) .OR. Empty(M->BD5_PADINT) BI4PLS R S
BD5_DESPAD C 40 0 Ds Acomod. @! If(Inclui,'',BI4->(Posicione('BI4',1,xFilial('BI4')+BD5->BD5_PADINT,'BI4_DESCRI'))) V S
BD5_PADCON C 6 0 Pd. conforto @! Vazio() .Or. ExistCpo('BN5',M->BD5_OPEUSR+M->BD5_PADCON,1) BBUPLS R S
BD5_CBOS C 8 0 CBOS @! ExistChav("BAQ",xFilial("BAQ")+M->BD5_CBOS,6) BD5CBO R S
BD5_TIPADM C 6 0 Tp. Admissao @! BDR->(ExistCpo("BDR",PLSINTPAD()+M->BD5_TIPADM,1)) BTAPLS R S
BD5_DESADM C 30 0 Descricao @C V S
BD5_GUIJUR C 1 0 Guia Jurid ? R 0=Nao;1=Sim S
BD5_NUMPRO C 20 0 Num Processo R S
BD5_ANOAUT C 4 0 Ano Autoriz. @! R S
BD5_MESAUT C 2 0 Mes Autoriz. @! R S
BD5_NUMAUT C 8 0 Num Autoriz. @! R S
BD5_LOTEDI C 8 0 Lote EDI @! R S
BD5_CNES C 7 0 CNES @! S
BD5_OPEMOV C 4 0 Oper. Movto. @! R S
BD5_CODGLO C 3 0 Cod Glosa @! R S
BD5_ESPEXE C 3 0 Espec.Exe. @! Vazio() .or. ExistCpo("BQ1",M->BD5_CDPFRE+M->BD5_ESPEXE) BQ1PL1 R S
BD5_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
BD5_ESPSOL C 3 0 Espec.Sol. @! Vazio() .or. ExistCpo("BQ1",M->BD5_CDPFSO+M->BD5_ESPSOL) BQ1PL1 R S
BD5_NUMNDC C 9 0 Titulo @! R S
BD5_PARNDC C 2 0 Parcela @! R S
BD5_PRENDC C 3 0 Prefixo @! R S
BD5_TIPNDC C 3 0 Tipo titulo @! R S
BD5_MATXML C 17 0 Matric. XML @! S
BD5_DTRLZ D 8 0 Data Rlz. R S
BD5_LA C 1 0 nao usado @! R S
BD5_DTRLZ2 D 8 0 Data Rlz. 2 R S
BD5_DTRLZ3 D 8 0 Data Rlz. 3 R S
BD5_DTRLZ4 D 8 0 Data Rlz. 4 R S
BD5_DTRLZ5 D 8 0 Data Rlz. 5 R S
BD5_DTRLZ6 D 8 0 Data Rlz. 6 S
BD5_DTRLZ7 D 8 0 Data Rlz. 7 R S
BD5_DTRLZ8 D 8 0 Data Rlz. 8 R S
BD5_LOTMOP C 18 0 Lote Monit. @! R S
BD5_DTRLZ9 D 8 0 Data Rlz. 9 S
BD5_DTRLZ1 D 8 0 Data Rlz. 10 R S
BD5_OBSGUI C 254 0 Observacao @! R S
BD5_REEANE C 1 0 Reemb Interc @! Pertence('01') .Or. Vazio() R 1=Sim;0=Nao S
BD5_ENV507 C 1 0 Envio R507? @! Pertence('01') .Or. Vazio() R 1=Sim;0=Nao S
BD5_PRE507 C 3 0 Prefixo R507 @! R S
BD5_NUM507 C 9 0 Num Tit R507 @! R S
BD5_PAR507 C 2 0 Parc R507 @! R S
BD5_TIP507 C 3 0 Tip R507 @! R S
BD5_LOTMOF C 18 0 Lote Monit. @! R S
BD5_LOTMOE C 18 0 Lote Exc Mon @! R S
BD5_DTFTIN D 8 0 Ini. Fat R S
BD5_DTFTFN D 8 0 Final Fat R S
BD5_VALORI N 16 2 Vlr Apr Tot @E 9,999,999,999,999.99 R N
BD5_VLRAPR N 16 2 Vlr Apr Uni @E 9,999,999,999,999.99 R N
BD5_PESEDI C 1 0 Tp Pessoa Ed R S
BD5_CGCEDI C 14 0 CGC EDI R S
BD5_CNESED C 7 0 CNES Edi R S
BD5_MUNEDI C 7 0 Municipio Ed R S