| Tabela | |||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| BE1 | Cabecalho Autorizacao | ||||||||||
| Campo | Tipo | Tamanho | Decimal | Titulo | Formato | Validacao | F3 | Contexto | Lista | Condicao | PYME |
| BE1_FILIAL | C | 2 | 0 | Filial | S | ||||||
| BE1_TIPADM | C | 6 | 0 | Tp. Admissao | @C | BDR->(ExistCpo("BDR",PLSINTPAD()+M->BE1_TIPADM,1)) | BTAPLS | V | S | ||
| BE1_DESADM | C | 30 | 0 | Descricao | @C | V | S | ||||
| BE1_TIPPAC | C | 2 | 0 | Tp. Paciente | @! | If(Empty(M->BE1_TIPPAC),.T.,BGY->(ExistCpo("BGY",PLSINTPAD()+M->BE1_TIPPAC,1))) | BGYPLS | V | S | ||
| BE1_DESPAC | C | 30 | 0 | Descricao | @C | V | S | ||||
| BE1_NUMLIB | C | 18 | 0 | Nr.Liberacao | @R !.!!!-!!!!.!!-!!!!!!!! | If(Empty(M->BE1_NUMLIB),.T.,PLA090LIB(M->BE1_NUMLIB,M->BE1_DATPRO)) | B98PLS | V | INCLUI | S | |
| BE1_NUMAUT | C | 18 | 0 | Nr.Autoriza. | @R !.!!!-!!!!.!!-!!!!!!!! | V | S | ||||
| BE1_DATPRO | D | 8 | 0 | Data Proced. | If(Empty(M->BE1_DATPRO),.T.,PLSA090DAT()), PLSA090DPR() | V | S | ||||
| BE1_HORPRO | C | 6 | 0 | Hora Proced. | @R !!:!!:!! | V | S | ||||
| BE1_USUARI | C | 17 | 0 | Matricula | @! | PLSA090DAT("2") | BY2PLS | V | Empty(M->BE1_NUMLIB) .AND. Empty(M->BE1_NOMUSR) | S | |
| BE1_MATANT | C | 17 | 0 | Mat. Antiga | @! | V | S | ||||
| BE1_NOMUSR | C | 70 | 0 | Usuario | @! | V | S | ||||
| BE1_TIPUSR | C | 2 | 0 | Tp. Usuario | @! | V | 01=Eventual;02=Repasse;04=Usuario Local | S | |||
| BE1_ATERNA | C | 1 | 0 | Recem-Nasc. | @! | V | 1=Sim;0=Nao | Iif(Inclui,Empty(M->BE1_NUMLIB),.F.) | S | ||
| BE1_VIACAR | N | 2 | 0 | Via Cart. | 99 | V | !Empty(M->BE1_MATANT) | S | |||
| BE1_OPERDA | C | 4 | 0 | Operad. RDA | @R !.!!! | If(Empty(M->BE1_OPERDA),.T.,PLSA090VR2()) | B89PLS | V | S | ||
| BE1_CODRDA | C | 6 | 0 | Cd Cred/Coop | @! | If(EMPTY(M->BE1_CODRDA),.T.,(PLSA090CPM("2") .And. If(Empty(M->BE1_CODRDA),.T.,PLSA090VMD()))) | BY4PLS | V | S | ||
| BE1_NOMRDA | C | 40 | 0 | Nm.Cred/Coop | @! | V | S | ||||
| BE1_TIPPRE | C | 3 | 0 | Tp. RDA | @! | If(Empty(M->BE1_TIPPRE),.T.,BAG->(ExistCpo("BAG"))) | B42PLS | V | PLSA090WH1() | S | |
| BE1_CODLOC | C | 6 | 0 | Localidade | @R !!!.!!! | If(Empty(M->BE1_CODRDA),.T.,PLSA090LOC(M->BE1_OPERDA,M->BE1_CODRDA,M->BE1_CODLOC,M->BE1_DATPRO,"BE1",M->BE1_USUARI)) | B93PLS | V | S | ||
| BE1_DESLOC | C | 40 | 0 | Desc. Local | @! | V | S | ||||
| BE1_ENDLOC | C | 100 | 0 | End. Local | @! | V | S | ||||
| BE1_CODESP | C | 3 | 0 | Cod. Espec. | @! | If(Empty(M->BE1_CODESP),.T.,PLSA090ESP(M->BE1_OPERDA,M->BE1_CODRDA,M->BE1_CODLOC,M->BE1_CODESP,M->BE1_DATPRO)) | BBFPL2 | V | S | ||
| BE1_DESESP | C | 40 | 0 | Desc. Espec. | @! | V | S | ||||
| BE1_CID | C | 8 | 0 | CID | @! | If(Empty(M->BE1_CID),.T.,BA9->(ExistCpo("BA9",M->BE1_CID,1))) | BA9PLS | V | S | ||
| BE1_DESCID | C | 50 | 0 | Desc. CID | @! | V | S | ||||
| BE1_CIDSEC | C | 8 | 0 | CID Secund. | @! | If(Empty(M->BE1_CIDSEC),.T.,BA9->(ExistCpo("BA9",M->BE1_CIDSEC,1))) | BA9PLS | V | S | ||
| BE1_DESSEC | C | 50 | 0 | Desc.CID.Sec | @! | V | S | ||||
| BE1_SIGLA | C | 7 | 0 | Sigla C.R. | @! | If(Empty(M->BE1_SIGLA),.T.,ExistCpo("BAH",M->BE1_SIGLA)) | B53PLS | V | S | ||
| BE1_ESTSOL | C | 2 | 0 | UF Solic. | @! | If(Empty(M->BE1_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->BE1_ESTSOL,1))) | V | S | |||
| BE1_OPESOL | C | 4 | 0 | Operad. Sol. | @R !.!!! | If(Empty(M->BE1_OPESOL),.T.,BA0->(ExistCpo("BA0",M->BE1_OPESOL,1))) | B89PLS | V | S | ||
| BE1_REGSOL | C | 15 | 0 | C.R. Solic. | @R !!!!!!!!!!!!!!! | If(Empty(M->BE1_REGSOL),.T.,PLSA090SOL()) | BTYPLS | V | S | ||
| BE1_TIPCON | C | 1 | 0 | Tp. Consulta | @! | V | 1=Primeira Consulta;2=Retorno;3=Pre-natal;4=Por encaminhamento | S | |||
| BE1_NOMSOL | C | 30 | 0 | Solicitante | @! | V | S | ||||
| BE1_OPEEXE | C | 4 | 0 | Operad. Exe. | @R !.!!! | If(Empty(M->BE1_OPESOL),.T.,BA0->(ExistCpo("BA0",M->BE1_OPESOL,1))) | B89PLS | V | S | ||
| BE1_REGEXE | C | 15 | 0 | C.R. Execut. | @R !!!!!!!!!!!!!!! | PLSA090EXE() | BTYPLS | V | S | ||
| BE1_NOMEXE | C | 30 | 0 | Executante | @! | V | S | ||||
| BE1_CDPFSO | C | 6 | 0 | Cd.Prf.Solic | @! | V | S | ||||
| BE1_CDPFRE | C | 6 | 0 | Cd.Prf.Exec. | @! | V | S | ||||
| BE1_ESTEXE | C | 2 | 0 | UF Execut. | @! | If(Empty(M->BE1_ESTEXE),.T.,SX5->(ExistCpo("SX5","12"+M->BE1_ESTEXE,1))) | 12 | V | S | ||
| BE1_MATUSA | C | 1 | 0 | Mat. Usada | @! | V | 1=Matricula Principal;2=Matricula Antiga | S | |||
| BE1_ANOPAG | C | 4 | 0 | Ano Pagto | @! | V | S | ||||
| BE1_MESPAG | C | 2 | 0 | Mes Pagto | @! | V | S | ||||
| BE1_NUMIMP | C | 20 | 0 | Nr.Impresso | @! | ( Vazio() ) .Or. ( plszero() .And. PLSVLDNIMP(M->BE1_NUMIMP) ) | V | S | |||
| BE1_GUIORI | C | 32 | 0 | Guia Orig. | @R !!!!.!!!!.!!!!!!!!.!!!!!!!! | V | S | ||||
| BE1_PACOTE | C | 1 | 0 | Pacote? | @! | V | 1=Sim;0=Nao | S | |||
| BE1_VLRPAC | N | 16 | 2 | Vlr.Pacote | @E 9,999,999,999,999.99 | V | S | ||||
| BE1_ATEAMB | C | 1 | 0 | Atend.Ambul. | @! | V | 1=Sim;0=Nao | S | |||
| BE1_MSG01 | C | 254 | 0 | Mensagem | @C | V | S | ||||
| BE1_MSG02 | C | 254 | 0 | Mensagem 2 | @C | V | S | ||||
| BE1_MSG03 | C | 254 | 0 | Informacao | @C | V | S | ||||
| BE1_CID3 | C | 8 | 0 | CID 3 | @! | If(Empty(M->BE1_CID3),.T.,BA9->(ExistCpo("BA9",M->BE1_CID3,1))) | BA9PLS | V | S | ||
| BE1_DESCI3 | C | 50 | 0 | Desc. CID 3 | @! | V | S | ||||
| BE1_CID4 | C | 8 | 0 | CID 4 | @! | If(Empty(M->BE1_CID4),.T.,BA9->(ExistCpo("BA9",M->BE1_CID4,1))) | BA9PLS | V | S | ||
| BE1_DESCI4 | C | 50 | 0 | Desc. CID 4 | @! | V | S | ||||
| BE1_CID5 | C | 8 | 0 | CID 5 | @! | If(Empty(M->BE1_CID5),.T.,BA9->(ExistCpo("BA9",M->BE1_CID5,1))) | BA9PLS | V | S | ||
| BE1_DESCI5 | C | 50 | 0 | Desc. CID 5 | @! | V | S | ||||
| BE1_SIGEXE | C | 7 | 0 | Sigla Exec. | @! | If(Empty(M->BE1_SIGEXE),.T.,ExistCpo("BAH",M->BE1_SIGEXE)) | B53PLS | R | S | ||
| BE1_GUIACO | C | 1 | 0 | Guia Comp. | @! | V | 1=Sim;0=Nao | S | |||
| BE1_QUACOB | C | 1 | 0 | Quando Cobr. | @! | V | 1=No Ato;2=Na Fatura | S | |||
| BE1_CODCLI | C | 6 | 0 | Cod. Cliente | @! | V | S | ||||
| BE1_LOJA | C | 2 | 0 | Loja | @! | V | S | ||||
| BE1_VALOR | N | 16 | 2 | Valor Compra | @E 9,999,999,999,999.99 | V | S | ||||
| BE1_SENHA | C | 20 | 0 | Senha | @! | V | S | ||||
| BE1_NRAOPE | C | 20 | 0 | Nr.Aut.Oper. | @! | V | S | ||||
| BE1_NRAEMP | C | 20 | 0 | Nr.Aut.Empr. | @! | V | S | ||||
| BE1_PAGATO | C | 1 | 0 | Pagto Ato? | @! | V | 1=Sim;0=Nao | S | |||
| BE1_AUDITO | C | 1 | 0 | Auditoria? | @! | V | 1=Sim;0=Nao | S | |||
| BE1_COMUNI | C | 1 | 0 | On-Line? | @! | V | 1=Sim;0=Nao | S | |||
| BE1_NRTROL | C | 20 | 0 | Nr.Tr.OnLine | @! | V | S | ||||
| BE1_NUMATE | C | 12 | 0 | Nr.Atendto. | @! | V | S | ||||
| BE1_RDAEDI | C | 6 | 0 | RDA EDI | @! | P090RdaEdi() | BAUPLS | V | S | ||
| BE1_NOMEDI | C | 40 | 0 | Nome EDI | @! | V | S | ||||
| BE1_TIPDOE | C | 1 | 0 | Tipo Doenca | @! | V | A=Aguda;C=Cronica | N | |||
| BE1_TPODOE | N | 2 | 0 | Tempo Doenca | 99 | V | N | ||||
| BE1_UTPDOE | C | 1 | 0 | Unid Tpo Doe | @! | V | A=Anos;M=Meses;D=Dias | N | |||
| BE1_INDACI | C | 1 | 0 | Indic Aciden | @! | V | 0=Trabalho;1=Transito;2=Outros;9=Nao Acidente | N | |||
| BE1_TIPSAI | C | 1 | 0 | Tipo Saida | @! | Pertence("123456") | V | 1=Retorno;2=Retorno com SADT;3=Referencia;4=Internacao;5=Alta;6=Obito | N | ||
| BE1_VALSEN | D | 8 | 0 | Valid Senha | @D | V | N | ||||
| BE1_DATSOL | D | 8 | 0 | Data Solicit | @D | V | N | ||||
| BE1_HORSOL | C | 4 | 0 | Hora Solicit | @R !!:!! | PLSVLDHOR(M->BE1_HORSOL) | V | N | |||
| BE1_INDCLI | C | 250 | 0 | Indic Clinic | @S70 | V | N | ||||
| BE1_INDCL2 | C | 250 | 0 | Cont. IndCli | @S70 | V | N | ||||
| BE1_TIPATE | C | 2 | 0 | Tipo Atendim | @! | M->BE1_TIPATE $ "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21" | V | 01=Remocao;02=Peq Cirurgia;03=Terapia;04=Consulta;05=Exame;06=Atend Domic;07=SADT Intern;08=Quimioterapia;09=Radioterapia;10=TRS | N | ||
| BE1_CANCEL | C | 1 | 0 | Cancelado | @! | V | 1=Sim;0=Nao | S | |||
| BE1_MSG04 | C | 254 | 0 | Sol. Revisao | @! | V | N | ||||
| BE1_MSG05 | C | 254 | 0 | Resp. Revisa | @! | V | N | ||||
| BE1_TRACON | C | 1 | 0 | Tra. Conclui | @! | V | 1=Sim;0=Nao | N | |||
| BE1_RDACON | C | 6 | 0 | Cd.Sol.Cont. | @! | PlValRDA('BE1') | B1HPLS | V | N | ||
| BE1_DRDACO | C | 40 | 0 | Ds.Sol.Cont. | @! | V | N | ||||
| BE1_GUIPRI | C | 18 | 0 | Nr Guia Prin | @! | BE4INT | V | N | |||
| BE1_STALIB | C | 1 | 0 | Status Lib. | @C | V | 1=Em Aberto;2=Fechada | N | |||
| BE1_NRLBOR | C | 18 | 0 | Nr. Lib. Or | @! | V | N | ||||
| BE1_LOTGUI | C | 12 | 0 | Lote Guia | @! | R | N | ||||
| BE1_TIPMAJ | C | 1 | 0 | Tipo Maj. | @! | R | 1=Fisica;2=Juridica;3=Cooperativa | N | |||
| BE1_GRAUPA | C | 2 | 0 | Grau Part. | @! | B5DPLS | V | !Empty(M->BE1_NUMLIB) | N | ||
| BE1_GUIJUR | C | 1 | 0 | Guia Jurid ? | @! | PLSGUIJUR("BE1_GUIJUR") | V | 0=Nao;1=Sim | S | ||
| BE1_ESPEXE | C | 3 | 0 | Espec.Exe. | @! | Vazio() .or. ExistCpo("BQ1",M->BE1_CDPFRE+M->BE1_ESPEXE) | BQ1PL1 | V | S | ||
| BE1_NUMPRO | C | 20 | 0 | Num Processo | @! | V | S | ||||
| BE1_ESPSOL | C | 3 | 0 | Espec.Sol. | @! | Vazio() .or. ExistCpo("BQ1",M->BE1_CDPFSO+M->BE1_ESPSOL) | BQ1PL1 | V | S | ||
| BE1_MSG06 | C | 254 | 0 | Sol. Revi. 2 | @! | V | S | ||||
| BE1_MSG07 | C | 254 | 0 | Resp. Rev. 2 | @! | V | S | ||||
| BE1_GUIPRE | C | 20 | 0 | N.Guia Pres. | @! | V | S | ||||
| BE1_CANEDI | C | 250 | 0 | Desc.Can.Edi | @! | V | S | ||||
| BE1_NRTROS | C | 20 | 0 | Nr.Tr.Or.Sev | @! | V | S | ||||
| BE1_DTRLZ | D | 8 | 0 | Data Rlz. | V | S | |||||
| BE1_DTRLZ2 | D | 8 | 0 | Data Rlz. 2 | V | S | |||||
| BE1_DTRLZ3 | D | 8 | 0 | Data Rlz. 3 | V | S | |||||
| BE1_DTRLZ4 | D | 8 | 0 | Data Rlz. 4 | V | S | |||||
| BE1_DTRLZ5 | D | 8 | 0 | Data Rlz. 5 | V | S | |||||
| BE1_DTRLZ6 | D | 8 | 0 | Data Rlz. 6 | V | S | |||||
| BE1_DTRLZ7 | D | 8 | 0 | Data Rlz. 7 | V | S | |||||
| BE1_DTRLZ8 | D | 8 | 0 | Data Rlz. 8 | V | S | |||||
| BE1_DTRLZ9 | D | 8 | 0 | Data Rlz. 9 | V | S | |||||
| BE1_DTRLZ1 | D | 8 | 0 | Data Rlz. 10 | R | S | |||||
| BE1_PROATE | C | 20 | 0 | Protocolo | @! | V | S | ||||
| BE1_CANTIS | C | 15 | 0 | Canc.TISS | @! | V | S | ||||
| BE1_MSG08 | C | 254 | 0 | Mensagem 3 | @! | V | S | ||||
| BE1_MSG09 | C | 254 | 0 | Mensagem 4 | @! | V | S | ||||