| Tabela | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| B1N | ITENS PROTOCOLO REEMBOLSO | ||||||||||
| Campo | Tipo | Tamanho | Decimal | Titulo | Formato | Validacao | F3 | Contexto | Lista | Condicao | PYME |
| B1N_FILIAL | C | 2 | 0 | Filial | R | S | |||||
| B1N_IMGSTA | C | 7 | 0 | Lgd | @BMP | R | S | ||||
| B1N_PROTOC | C | 20 | 0 | Num Protocol | @! | R | S | ||||
| B1N_CODPAD | C | 2 | 0 | Cod. Tab. Pd | @! | PLVLDB1N() | B41PLS | R | S | ||
| B1N_CODPRO | C | 16 | 0 | Cod. Proc. | @! | Vazio() .Or. PLVLDB1N() .AND. PLSVLPRLB() .AND. PLB1NPROC() | B1NPLS | R | S | ||
| B1N_DESPRO | C | 50 | 0 | Descr Proced | @! | V | S | ||||
| B1N_VLRAPR | N | 16 | 3 | Vlr.Apres. | @E 999,999,999,999.999 | R | S | ||||
| B1N_USOCON | C | 1 | 0 | Uso Continuo | Pertence('01') .AND. AtCmpoB1N() | R | 0=Nao;1=Sim | S | |||
| B1N_CODREF | C | 14 | 0 | Cod Rda NRef | @! | VAZIO() .OR. BK6->(ExistCpo('BK6',M->B1N_CODREF,4)) | BK6RMB | R | S | ||
| B1N_NOMREF | C | 35 | 0 | Nome RDA | R | S | |||||
| B1N_TIPDOC | C | 25 | 0 | Tipo Doc. | ExistCpo('BBS',M->B1N_TIPDOC,2) | PLSB1N | R | S | |||
| B1N_NUMDOC | C | 20 | 0 | Numero Doc | R | PLVLDTP() | S | ||||
| B1N_DATDOC | D | 8 | 0 | Data Documen | IIF(!(Empty(M->B1N_MATRIC)),PLBLOQREEM(M->B1N_MATRIC, M->B1N_DATDOC ), .T.) | R | S | ||||
| B1N_SEQUEN | C | 3 | 0 | Sequencial | R | S | |||||
| B1N_QTDPRO | N | 3 | 0 | Quantidade | 999 | VAZIO() .OR. PLSVLDLIB("B1N") | R | S | |||
| B1N_PROORI | C | 16 | 0 | Proc. Origem | R | S | |||||
| B1N_EST | C | 2 | 0 | Estado | @! | Vazio() .Or. Vazio() .Or. ExistCpo("SX5","12"+UPPER(M->B1N_EST)) | 12 | R | EMPTY(M->BOW_MUNATE) | S | |
| B1N_CODMUN | C | 7 | 0 | Cd Municipio | @! | Vazio() .Or. ExistCpo("BID",UPPER(M->B1N_EST+M->B1N_CODMUN),4) | B1N992 | R | EMPTY(M->BOW_MUNATE) | S | |
| B1N_DESMUN | C | 50 | 0 | Desc Munic | R | S | |||||
| B1N_SEQREC | C | 6 | 0 | Seq. Receita | R | S | |||||
| B1N_TIPSER | C | 6 | 0 | Tipo Servico | @! | R | S | ||||
| B1N_MATRIC | C | 17 | 0 | Matric. Ben. | @!!!!.!!!!.!!!!!!.!!-! | VAZIO() .OR. BA1->(ExistCpo("BA1",M->B1N_MATRIC,2)) .AND. AtCmpoB1N() .AND. PLBLOQREEM(M->B1N_MATRIC, M->B1N_DATPRO ) | PLSNOB | R | S | ||
| B1N_NUMLIB | C | 18 | 0 | Nr.Liberacao | @R !.!!!-!!!!.!!-!!!!!!!! | VAZIO() .OR. PLSVLDLIB("B1N") | B98PLS | R | !EMPTY(M->B1N_CODPRO) .OR. !EMPTY(M->B1N_NUMLIB) | S | |
| B1N_PRCNPJ | C | 14 | 0 | CPF/CNPJ | @R 99.999.999/9999-99 | CGC(M->B1N_PRCNPJ) | R | S | |||
| B1N_NOMEBE | C | 50 | 0 | Nome Benefi. | V | S | |||||
| B1N_PRNOME | C | 40 | 0 | Nome Prestad | R | S | |||||
| B1N_CODREC | C | 20 | 0 | Cod. Receita | @! | R | S | ||||
| B1N_CODMED | C | 16 | 0 | Cod. Medicam | @! | VAZIO() .OR. Iif(Empty(M->B1N_CODREC), PLSPESMED(), GatCampo()) | PLSPSM | R | M->B1N_USOCON == "1" | S | |
| B1N_DESMED | C | 80 | 0 | Descr. med. | @! | V | S | ||||
| B1N_SEQMED | C | 3 | 0 | seq. med. | R | S | |||||
| B1N_QTDMED | N | 3 | 0 | Qtd. Receita | 999 | VAZIO() .OR. M->B1N_QTDMED > 0 .AND. VldQtdMed() | R | M->B1N_USOCON == "1" | S | ||
| B1N_SIGLA | C | 7 | 0 | Sigla C.R | @! | If(Empty(M->B1N_SIGLA),.T.,ExistCpo("BAH",M->B1N_SIGLA)) .AND. LmpCmpB1n() | B53PLS | R | S | ||
| B1N_ESTSOL | C | 2 | 0 | UF Solic. | @! | If(Empty(M->B1N_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B1N_ESTSOL,1))) .AND. LmpCmpB1n() | 12 | R | S | ||
| B1N_REGSOL | C | 15 | 0 | Solicitante | If(Empty(M->B1N_REGSOL),.T.,PLSA090SOL()) | B1NBTY | R | S | |||
| B1N_NOMSOL | C | 40 | 0 | Nome Solic. | @! | V | S | ||||
| B1N_VLRREE | N | 16 | 2 | Val. Reemb. | @E 9,999,999,999,999.99 | Positivo() | R | S | |||
| B1N_UNICON | C | 20 | 0 | Unidade Cons | R | S | |||||
| B1N_DATPRO | D | 8 | 0 | Data Exec. | M->B1N_DATPRO <= dDataBase .AND. PLEXECCPO("B1N") | R | S | ||||
| B1N_LAPRV | C | 1 | 0 | nao usado | V | S | |||||
| B1N_LAREV | C | 1 | 0 | nao usado | V | S | |||||
| B1N_INTDE | D | 8 | 0 | Dt Intern De | R | S | |||||
| B1N_INTATE | D | 8 | 0 | Dt Inter Ate | R | S | |||||
| B1N_GUIPRI | C | 18 | 0 | Nr Guia Prin | @! | R | S | ||||
| B1N_VLRTOT | N | 16 | 2 | Vlr. Total | @E 9,999,999,999,999.99 | R | S | ||||
| B1N_VIA | C | 1 | 0 | Via Acesso | VAZIO() .OR. BGR->(ExistCpo("BGR", PLSIntPad()+M->B1N_VIA,1)) | BHRPLS | R | S | |||
| B1N_PERVIA | N | 4 | 0 | % Via | 9999 | V | S | ||||
| B1N_SEQBE2 | C | 3 | 0 | Seq. Libera. | R | S | |||||
| B1N_PADINT | C | 2 | 0 | Tipo Acomod. | @! | R | S | ||||
| B1N_PADCON | C | 6 | 0 | Pd. conforto | @! | R | S | ||||
| B1N_REGINT | C | 1 | 0 | Regime Inter | @! | Pertence('123') | R | 1=Hospitalar;2=Hospital-dia;3=Domiciliar | S | ||
| B1N_GRPINT | C | 1 | 0 | Grp. Intern. | @! | R | 1=Clinica;2=Cirurgica;3=Obstetrica;4=Pediatrica;5=Psiquiatrica | S | |||
| B1N_TIPINT | C | 3 | 0 | Tipo Intern | @! | R | S | ||||
| B1N_ABATPF | C | 1 | 0 | Abate Part. | @! | R | 0=Nao;1=Sim | S | |||