| Tabela | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| B01 | Autorizacao Odontologica | ||||||||||
| Campo | Tipo | Tamanho | Decimal | Titulo | Formato | Validacao | F3 | Contexto | Lista | Condicao | PYME |
| B01_FILIAL | C | 2 | 0 | Filial | BE4B01 | S | |||||
| B01_TIPADM | C | 6 | 0 | Tp Admissao | @C | BDR->(ExistCpo("BDR",PLSINTPAD()+M->B01_TIPADM,1)) | BTAPLS | V | S | ||
| B01_DESADM | C | 30 | 0 | Descricao | @C | V | S | ||||
| B01_TIPPAC | C | 2 | 0 | Tp. Paciente | @! | If(Empty(M->B01_TIPPAC),.T.,BGY->(ExistCpo("BGY",PLSINTPAD()+M->B01_TIPPAC,1))) | BGYPLS | V | S | ||
| B01_DESPAC | C | 30 | 0 | Descricao | @C | V | S | ||||
| B01_NUMLIB | C | 18 | 0 | N Liberacao. | @R !.!!!-!!!!.!!-!!!!!!!! | If(Empty(M->B01_NUMLIB),.T.,PLAODOLIB(M->B01_NUMLIB,M->B01_DATPRO)) | B98PLS | V | 'INCLUI' | S | |
| B01_NUMAUT | C | 18 | 0 | N Autorizac. | @R !.!!!-!!!!.!!-!!!!!!!! | V | S | ||||
| B01_DATPRO | D | 8 | 0 | Data Proced. | @D | If(Empty(M->B01_DATPRO),.T.,PLSA090DAT()) | V | S | |||
| B01_HORPRO | C | 6 | 0 | Hora Proced. | @R !!:!!:!! | V | S | ||||
| B01_USUARI | C | 17 | 0 | Matricula | @! | If(Empty(M->B01_USUARI),.T.,PLSA090USR(M->B01_USUARI,M->B01_DATPRO,M->B01_HORPRO,"B01",,,,,,,,,,,,,,,,,,,.T.)) | BY2PLS | V | Empty(M->B01_NUMLIB) | S | |
| B01_MATANT | C | 17 | 0 | Matr Antiga | @! | V | S | ||||
| B01_NOMUSR | C | 70 | 0 | Usuario | @! | V | S | ||||
| B01_TIPUSR | C | 2 | 0 | Tipo Usr. | @! | V | 01=Eventual;02=Repasse;99=Usuario Local | S | |||
| B01_OPERDA | C | 4 | 0 | Operad. RDA | @R !.!!! | If(Empty(M->B01_OPERDA),.T.,PLA090VR2o()) | B89PLS | V | S | ||
| B01_CODRDA | C | 6 | 0 | Cd Cred/Coop | @! | If(Empty(M->B01_CODRDA),.T.,PLA090VRDo()) | BBNPLS | V | S | ||
| B01_NOMRDA | C | 40 | 0 | Nm.Cred/Coop | @! | V | S | ||||
| B01_TIPPRE | C | 3 | 0 | Tipo da RDA | @! | If(Empty(M->B01_TIPPRE),.T.,BAG->(ExistCpo("BAG"))) | B42PLS | V | PLSA090WH1() | S | |
| B01_CODLOC | C | 6 | 0 | Localidade | @R !!!.!!! | If(Empty(M->B01_CODRDA),.T.,PLSA090LOC(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_DATPRO,"B01")) | B9FPLS | V | S | ||
| B01_DESLOC | C | 40 | 0 | Descr. Local | @! | V | S | ||||
| B01_ENDLOC | C | 100 | 0 | End. Local | @! | V | S | ||||
| B01_CODESP | C | 3 | 0 | Cod. Espec. | @! | If(Empty(M->B01_CODESP),.T.,PLSA090ESP(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_CODESP,M->B01_DATPRO,"B01")) | B9GPLS | V | S | ||
| B01_DESESP | C | 40 | 0 | Descr.Espec. | @! | V | S | ||||
| B01_CID | C | 8 | 0 | CID | @! | If(Empty(M->B01_CID),.T.,BA9->(ExistCpo("BA9",M->B01_CID,1))) | BA9PLS | V | S | ||
| B01_SIGLA | C | 7 | 0 | Sigla C.R. | @! | If(Empty(M->B01_SIGLA),.T.,ExistCpo("BAH",M->B01_SIGLA)) | B53PLS | V | S | ||
| B01_ESTSOL | C | 2 | 0 | UF Solic. | @! | If(Empty(M->B01_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTSOL,1))) | 12 | V | S | ||
| B01_OPESOL | C | 4 | 0 | Operad. Sol. | @R !.!!! | If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) | B89PLS | V | S | ||
| B01_REGSOL | C | 15 | 0 | C.R. Solic. | @R !!!!!!!!!!!!!!! | If(Empty(M->B01_REGSOL),.T.,PLSA090SOL()) | BTYPLS | V | S | ||
| B01_NOMSOL | C | 30 | 0 | Solicitante | @! | V | S | ||||
| B01_OPEEXE | C | 4 | 0 | Operad. Exec | @R !.!!! | If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) | B89PLS | V | S | ||
| B01_REGEXE | C | 15 | 0 | C.R. Execut. | @R !!!!!!!!!!!!!!! | PLSA090EXE() | BTYPLS | V | S | ||
| B01_NOMEXE | C | 30 | 0 | Executante | @! | V | S | ||||
| B01_CDPFSO | C | 6 | 0 | Cd.Prf.Solic | @! | V | S | ||||
| B01_CDPFRE | C | 6 | 0 | Cd.Prf.Exec. | @! | V | S | ||||
| B01_ESTEXE | C | 2 | 0 | UF execut. | @! | If(Empty(M->B01_ESTEXE),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTEXE,1))) | 12 | V | S | ||
| B01_MATUSA | C | 1 | 0 | Matr Usada | @! | V | 1=Matricula Principal;2=Matricula Antiga | S | |||
| B01_ANOPAG | C | 4 | 0 | Ano Pagto | @! | V | S | ||||
| B01_MESPAG | C | 2 | 0 | Mes Pagto | @! | V | S | ||||
| B01_NUMIMP | C | 20 | 0 | Nr. Impresso | @! | ( Vazio() ) .Or. ( plszero() .And. PLSVLDNIMP(M->B01_NUMIMP) ) | V | S | |||
| B01_GUIORI | C | 32 | 0 | Guia Orig. | @R !!!!.!!!!.!!!!!!!!.!!!!!!!! | V | S | ||||
| B01_MSG01 | C | 80 | 0 | Mensagem 1 | @C | V | S | ||||
| B01_MSG02 | C | 80 | 0 | Mensagem 2 | @C | V | S | ||||
| B01_MSG03 | C | 80 | 0 | Mensagem 3 | @C | V | S | ||||
| B01_SIGEXE | C | 7 | 0 | Sigla Exec. | @! | If(Empty(M->B01_SIGEXE),.T.,ExistCpo("BAH",M->B01_SIGEXE)) | B53PLS | V | S | ||
| B01_GUIACO | C | 1 | 0 | Guia Comp. | @! | V | 1=Sim;0=Nao | S | |||
| B01_QUACOB | C | 1 | 0 | Quando Cobr. | @! | V | 1=No Ato;2=Na Fatura | S | |||
| B01_CODCLI | C | 6 | 0 | Cod.Cliente | @! | V | S | ||||
| B01_LOJA | C | 2 | 0 | Loja | @! | V | S | ||||
| B01_SENHA | C | 20 | 0 | Senha | @! | V | S | ||||
| B01_NRAOPE | C | 20 | 0 | Nr Aut Oper. | @! | V | S | ||||
| B01_NRAEMP | C | 20 | 0 | Nr Aut Empr. | @! | V | S | ||||
| B01_AUDITO | C | 1 | 0 | Auditoria? | @! | V | 1=Sim;0=Nao | S | |||
| B01_LOCREQ | C | 1 | 0 | Loc.Requisic | @! | V | 1=Consultorio;2=Pronto Atendimento;3=Hospital;4=Medicina/Odonto. do Trabalho;5=Medico/Dentista na Empresa;6=Transcricao | S | |||
| B01_NRLBOR | C | 18 | 0 | Nr. Lib. Or? | @! | V | S | ||||
| B01_PAGATO | C | 1 | 0 | Pagto Ato? | @! | V | 1=Sim;0=Nao | S | |||
| B01_DPTETA | D | 8 | 0 | Data Termino | @! | V | N | ||||
| B01_SCDPER | C | 1 | 0 | Sinais Perio | @! | V | 0=Nao;1=Sim | N | |||
| B01_ALTMOL | C | 1 | 0 | Alter Tecido | @! | V | 0=Nao;1=Sim | N | |||
| B01_TIPATO | C | 1 | 0 | Tipo Atend | @! | V | 1=Tratamento Odontologico;2=Exame Radiologico;3=Ortodontia;4=Urgencia/ Emergencia;5=Auditoria | N | |||
| B01_TIPFAT | C | 1 | 0 | Tp Faturamen | @! | Pertence("TP") | V | T=Total;P=Parcial | N | ||
| B01_DATSOL | D | 8 | 0 | Data Solicit | V | N | |||||
| B01_GUIJUR | C | 1 | 0 | Guia Jurid ? | @! | PLSGUIJUR("B01_GUIJUR") | V | 0=Nao;1=Sim | S | ||
| B01_NUMPRO | C | 20 | 0 | Num Processo | @! | V | S | ||||
| B01_GUIPRI | C | 18 | 0 | Nr Guia Prin | @! | BE4B01 | V | S | |||
| B01_PROATE | C | 20 | 0 | Protocolo | @! | S | |||||
| B01_VALSEN | D | 8 | 0 | Valid Senha | V | S | |||||
| B01_CANTIS | C | 15 | 0 | Canc.TISS | @! | V | S | ||||
| B01_CANEDI | C | 250 | 0 | Canc.TISS | @! | V | S | ||||