| Tabela | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| B72 | Interna saude | ||||||||||
| Campo | Tipo | Tamanho | Decimal | Titulo | Formato | Validacao | F3 | Contexto | Lista | Condicao | PYME |
| B72_FILIAL | C | 2 | 0 | Filial | S | ||||||
| B72_VIA | C | 1 | 0 | VIa Acesso | @! | BGR->(ExistCpo("BGR",PLSINTPAD()+M->B72_VIA,1)) | BHRPLS | R | PLS790Whe2() | S | |
| B72_PERVIA | N | 13 | 2 | % Via | @E 9,999,999,999.99 | R | PLS790Whe2() | S | |||
| B72_TPPARE | C | 1 | 0 | Tp Parecer | @! | Iif(M->B72_TPPARE=="1",Eval({||M->B72_INCONS:="3",.T.}),Iif(M->B72_TPPARE=="2",Eval({||M->B72_INCONS:="1",.T.}),.T. ) ) | 0=Em andamento;1=Concorda;2=Nao concorda | B72->B72_RESAUT <> "1" | S | ||
| B72_ALIMOV | C | 3 | 0 | Alias Relac | @! | S | |||||
| B72_RECMOV | C | 10 | 0 | Recno Relac | @! | S | |||||
| B72_DATMOV | D | 8 | 0 | Dt. Moviment | S | ||||||
| B72_CODPRO | C | 16 | 0 | Cod Procedim | @! | S | |||||
| B72_OPERAD | C | 6 | 0 | Operador An. | @! | S | |||||
| B72_CODGLO | C | 3 | 0 | Cod Glosa | @! | S | |||||
| B72_OBSISA | M | 10 | 0 | Obs. Saude | @! | B72->B72_RESAUT <> "1" .And. M->B72_INCONS $ "1" | S | ||||
| B72_DESPRO | C | 50 | 0 | Desc. Proc. | @! | V | S | ||||
| B72_SEQPRO | C | 3 | 0 | Seq Proc | @! | S | |||||
| B72_PARECE | C | 1 | 0 | Parecer | @! | 0=Autorizado;1=Negado | PLSRTTPG() | S | |||
| B72_CODPAD | C | 2 | 0 | Cod. Tabela | @! | S | |||||
| B72_ACOTOD | C | 1 | 0 | Cons. todos | @! | R | 0=Nao;1=Sim | !PLS790INS() | S | ||
| B72_DESGLO | C | 120 | 0 | Desc. Glosa | @! | V | S | ||||
| B72_OBSANA | M | 200 | 0 | Obs. Analis | @! | !PLS790INS() | S | ||||
| B72_MOTIVO | C | 3 | 0 | Motivo | @! | ExistCpo("BCT",PLSIntPad() + M->B72_MOTIVO,1) .AND. Posicione("BCT",1,xFilial("BCT")+PLSINTPAD()+M->B72_MOTIVO,"BCT_MOTISS")='1' | BCTMOT | M->B72_PARECE=="1" .And. !PLS790INS() | S | ||
| B72_DESMOT | C | 120 | 0 | Des. Motivo | @! | V | !PLS790INS() | S | |||
| B72_VLRAUT | N | 16 | 4 | Vlr Uni Auto | @E 99,999,999,999.9999 | M->B72_PARECE=="0" .And. !PLS790INS() | S | ||||
| B72_QTDAUT | N | 9 | 2 | Qtd. Autoriz | @E 999,999.99 | M->B72_QTDAUT > 0 | M->B72_PARECE=="0" .And. !PLS790INS() | S | |||
| B72_INFPRO | M | 200 | 0 | Info. Proced | @! | V | S | ||||
| B72_VALORI | N | 16 | 2 | Vlr Aut Tot | @E 9,999,999,999,999.99 | V | S | ||||
| B72_RESAUT | C | 1 | 0 | Resp. Audit. | @! | 0=Nao;1=Sim | S | ||||
| B72_NOMOPE | C | 40 | 0 | Operador | @! | V | S | ||||
| B72_COPERE | C | 6 | 0 | Cod Operador | @! | BBCPLS | S | ||||
| B72_NOPERE | C | 40 | 0 | Nom Operador | @! | V | S | ||||
| B72_INCONS | C | 1 | 0 | Inconsistenc | @! | Iif(M->B72_INCONS<>"1",Eval( {|| M->B72_TPPARE:="0",M->B72_TPINCO:="",M->B72_DETPIC:="",M->B72_OBSISA:="",.T.} ),.T.) | 1=Sim;2=Pendente;3=Finalizada | B72->B72_RESAUT <> "1" | S | ||
| B72_TPINCO | C | 3 | 0 | Tp Inconsist | @! | PlsSeek("SX5",1,"C7"+M->B72_TPINCO,"B72_DETPIC","X5_DESCRI") | C7 | B72->B72_RESAUT <> "1" .And. M->B72_INCONS $ "1" | S | ||
| B72_DETPIC | C | 55 | 0 | Des tp Incon | @! | V | S | ||||
| B72_DIAAUT | N | 3 | 0 | Qtd Dia Auto | @E 999 | R | S | ||||
| B72_DIASOL | N | 3 | 0 | Qtd Dia Soli | @E 999 | R | S | ||||
| B72_JNTMED | C | 1 | 0 | Junta Med. | R | 0=NAO;1=SIM | N | ||||
| B72_QTDSOL | N | 12 | 4 | Quant. Solic | @E 9,999,999.9999 | R | S | ||||
| B72_VLRAPR | N | 16 | 2 | Vlr. Apresen | @E 9,999,999,999,999.99 | V | S | ||||
| B72_CODDUT | C | 3 | 0 | Codigo DUT | @! | V | S | ||||
| B72_SUBDUT | C | 2 | 0 | Subitem DUT | @! | V | S | ||||