Tabela
B0R ATENDIMENTO RESSARCIMENTO SUS
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B0R_FILIAL C 2 0 Filial R S
B0R_CODOPE C 4 0 Operadora @! S
B0R_IDANS C 15 0 Ident. ANS. @! R S
B0R_OFICIO C 6 0 Num. Oficio @! R S
B0R_NUMPRO C 20 0 Num.Processo @! R S
B0R_CODIGO C 8 0 Atendimento @! R S
B0R_STATUS C 1 0 Status @! Pertence("1234") R 1=Autorizada;2=Atendimento Incompleto;3=Cancelado;4=Gerado C.Medicas S
B0R_CODCCO C 12 0 Cod. CCO @! R S
B0R_MESPRO C 2 0 Mes Processo @! R S
B0R_ANOPRO C 4 0 Ano Processo @! R S
B0R_DATPRO D 8 0 Dt.Processo dtos(M->B0R_DATPRO) <= dtos(Date()) R S
B0R_HORPRO C 4 0 Hr. Processo @R !!:!! Empty(M->B0R_HORPRO) .OR. PLSVLDHOR(M->B0R_HORPRO) R S
B0R_TIPADM C 2 0 Tp Admissao @C BDR->(ExistCpo('BDR',PLSINTPAD()+M->B0R_TIPADM,1)) BTAPLS R S
B0R_DATEVE D 8 0 Dt. Evento R S
B0R_VALOR N 16 2 Vlr. Servico @E 9,999,999,999,999.99 R S
B0R_OPEUSR C 4 0 Oper. Usr @R !.!!! If(Empty(M->B0R_OPEUSR),.T.,PLSVLDINT(M->B0R_OPEUSR)) B89PLS R S
B0R_CGC C 14 0 CNPJ/CPF Prf R S
B0R_AIHAPA C 13 0 AIH/APAC N. @! R S
B0R_OPERDA C 4 0 Operad. RDA @R !.!!! If(Empty(M->B0R_OPERDA),.T.,PLSA092VR2()) B89PLS R S
B0R_CODRDA C 6 0 Cod. Prest. @! PLS550VLD(GetNewPar('MV_RDASUS','000001')) R S
B0R_NOMRDA C 60 0 Nome RDA @! R S
B0R_LOCATE C 6 0 Local @R !!!.!!! B0RBB8 R S
B0R_DESLOC C 40 0 Desc. Local @! R S
B0R_CODLOC C 3 0 Local @! B0RBB8 R S
B0R_CODESP C 3 0 Especialidad @! PLS550ESP() R S
B0R_DESESP C 40 0 Desc. Espec. @! R S
B0R_TIPPRE C 3 0 Tipo da RDA @! If(Empty(M->B0R_TIPPRE),.T.,BAG->(ExistCpo('BAG'))) B42PLS R PLSA550WHE() S
B0R_SIGLA C 7 0 Sigla C.R. @! ExistCpo('SX5','B7'+M->B0R_SIGLA,1) B53PLS R S
B0R_USUARI C 17 0 Matric. Usr. @! R S
B0R_CODEMP C 4 0 Grp/Empresa @! R S
B0R_MATRIC C 6 0 Matricula @! R S
B0R_TIPREG C 2 0 Tipo de Reg. @! R S
B0R_CPFUSR C 11 0 CPF Usuario @! R S
B0R_IDUSR C 13 0 Iden Usuario @! R S
B0R_DATNAS D 8 0 Dt.Nasc.Usr. R S
B0R_DIGITO C 1 0 Digito @! R S
B0R_CONEMP C 12 0 Cont.Empresa @! R S
B0R_VERCON C 3 0 Versao Emp. @! R S
B0R_SUBCON C 9 0 SubContrato @! R S
B0R_VERSUB C 3 0 Versao Subc. @! R S
B0R_MATVID C 8 0 Matric.Vida @! R S
B0R_MATUSA C 1 0 Matr.Usada @! R 1=Matricula Principal;2=Matricula Antiga S
B0R_CODLDP C 4 0 Cd.Local Dig @! S
B0R_CODPEG C 8 0 Cd.PEG @! S
B0R_NUMERO C 8 0 Numero Guia @! R S
B0R_DTALTA D 8 0 Data Saida ( dtos(M->B0R_DTALTA) >= dtos(M->B0R_DATPRO) ) .And. ( dtos(M->B0R_DTALTA) <= dtos(dDataBase) ) R S
B0R_MESPAG C 2 0 Mes Pagto @! R S
B0R_ANOPAG C 4 0 Ano Pagto @! R S
B0R_QTDEVE N 3 0 Qtd Eventos 999 R S
B0R_TIPGUI C 2 0 Tipo de Guia @! S
B0R_REGINT C 1 0 Regime Inter @! Pertence('123') R 1=Hospitalar;2=Hospital-Dia;3=Domiciliar S
B0R_DTDIG1 D 8 0 Dt.Digitacao R S
B0R_ARQIMP C 55 0 Arq.Imp XML @! R S
B0R_NOMUSR C 70 0 Nome Usuario @! R S
B0R_CDCNES C 7 0 Cod. CNES S
B0R_CODBEN C 50 0 Cod. Benef R S
B0R_TIPO C 5 0 Tipo @! R S
B0R_NRABI C 20 0 Num. ABI S