Tabela: B01 - Autorização Odontológica


Arquivos atualizado em 08/12/2020, com pacotes até 04/12/2020

Tabela(SX2)
X2_NOMEX2_UNICOX2_SYSOBJ
Autorização Odontológica



Indices(SIX)
OrdemChaveDescriçãoNickName
1B01_FILIALFilial



Abas(SXA)
XA_ALIASXA_ORDEMXA_DESCRICXA_AGRUPXA_TIPO
B011Dados
B012Compatibilização



Campos(SX3)
X3_CAMPO X3_TITULO X3_DESCRIC HELP Campo X3_TIPO X3_TAMANHO X3_DECIMAL X3_PICTURE X3_VALID X3_RELACAO X3_F3 X3_TRIGGER X3_BROWSE X3_VISUAL X3_CONTEXT X3_CBOX X3_WHEN X3_INIBRW X3_GRPSXG X3_FOLDER X3_CONDSQL X3_CHKSQL X3_AGRUP X3_POSLGT X3_MODAL
B01_FILIAL Filial Filial Filial do Sistema C 2 0 BE4B01 Sim Altera Virtual 033 1 1 2
B01_TIPADM Tp Admissao Tipo de Admissao C 6 0 @C BDR->(ExistCpo("BDR",PLSINTPAD()+M->B01_TIPADM,1)) getNewPar("MV_PLSTPAD","1") BTAPLS Sim Altera Virtual 1 1 1
B01_DESADM Descricao Descricao Descricao C 30 0 @C Posicione("BDR",1,xFilial("BDR")+If(Inclui,PLSINTPAD()+GetNewPar("MV_PLSTPAD","1"),BEA->(BEA_OPEMOV+BEA_TIPADM)),"BDR_DESCRI") Sim Vizualiza Virtual 1 1 2
B01_TIPPAC Tp. Paciente Tipo Paciente C 2 0 @! If(Empty(M->B01_TIPPAC),.T.,BGY->(ExistCpo("BGY",PLSINTPAD()+M->B01_TIPPAC,1))) If(Inclui,GetNewPar("MV_PLSTPAA","05"),BEA->BEA_TIPPAC) BGYPLS Sim Altera Virtual 1 1 1
B01_DESPAC Descricao Descricao Descricao C 30 0 @C Posicione("BGY",1,xFilial("BGY")+If(Inclui,PLSINTPAD()+GetNewPar("MV_PLSTPAA","05"),BEA->(BEA_OPEMOV+BEA_TIPPAC)),"BGY_DESCRI") Sim Vizualiza Virtual 1 1 2
B01_NUMLIB N Liberacao. Numero da Autorizacao C 18 0 @R !.!!!-!!!!.!!-!!!!!!!! If(Empty(M->B01_NUMLIB),.T.,PLAODOLIB(M->B01_NUMLIB,M->B01_DATPRO)) If(Inclui,"",BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT)) B98PLS Sim Altera Virtual 'INCLUI' 1 1 2
B01_NUMAUT N Autorizac. Numero da Autorizacao C 18 0 @R !.!!!-!!!!.!!-!!!!!!!! If(Inclui,"",BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT)) Sim Vizualiza Virtual 1 1 2
B01_DATPRO Data Proced. Data Proced. D 8 0 @D If(Empty(M->B01_DATPRO),.T.,PLSA090DAT()) IF(Inclui,dDataBase,BEA->BEA_DATPRO) Sim Vizualiza Virtual 1 1 1
B01_HORPRO Hora Proced. Hora Proced. hora do procedimento C 6 0 @R !!:!!:!! IF(Inclui,StrTran(Time(),":",""),BEA->BEA_HORPRO) Sim Vizualiza Virtual 1 1 1
B01_USUARI Matricula Matricula C 17 0 @! If(Empty(M->B01_USUARI),.T.,PLSA090USR(M->B01_USUARI,M->B01_DATPRO,M->B01_HORPRO,"B01",,,,,,,,,,,,,,,,,,,.T.)) If(Inclui,"",BEA->(BEA_OPEUSR+BEA_CODEMP+BEA_MATRIC+BEA_TIPREG+BEA_DIGITO)) BY2PLS Sim Altera Virtual Empty(M->B01_NUMLIB) 1 1 1
B01_MATANT Matr Antiga Matricula Antiga C 17 0 @! If(Inclui,"",BA1->BA1_MATANT) Sim Vizualiza Virtual 1 1 2
B01_NOMUSR Usuario Usuario C 70 0 @! If(Inclui,"",BEA->BEA_NOMUSR) Sim Vizualiza Virtual 034 1 1 2
B01_TIPUSR Tipo Usr. Tipo Usuario C 2 0 @! If(Inclui,"",BEA->BEA_TIPUSR) Sim Vizualiza Virtual 01=Eventual;02=Repasse;99=Usuario Local 1 1 2
B01_OPERDA Operad. RDA Operad. RDA C 4 0 @R !.!!! If(Empty(M->B01_OPERDA),.T.,PLA090VR2o()) If(Inclui,PLSINTPAD(RETCODUSR()),BEA->BEA_OPERDA) B89PLS Sim Altera Virtual 1 1 1
B01_CODRDA Cd Cred/Coop Cod. Credenc Código de identificação da Rede de Atendimento (prestador de serviços). C 6 0 @! If(Empty(M->B01_CODRDA),.T.,PLA090VRDo()) IF(Inclui,"",BEA->BEA_CODRDA) BBNPLS Sim Altera Virtual 1 1 1
B01_NOMRDA Nm.Cred/Coop credenciado C 40 0 @! If(Inclui,"",BEA->BEA_NOMRDA) Sim Vizualiza Virtual 1 1 2
B01_TIPPRE Tipo da RDA Tipo da RDA C 3 0 @! If(Empty(M->B01_TIPPRE),.T.,BAG->(ExistCpo("BAG"))) B42PLS Sim Altera Virtual PLSA090WH1() 1 1 2
B01_CODLOC Localidade Localidade Código do Local de Atendimento do Credenciado. Tecle para consultar os códigos válidos. C 6 0 @R !!!.!!! If(Empty(M->B01_CODRDA),.T.,PLSA090LOC(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_DATPRO,"B01")) IF(Inclui,"",BEA->(BEA_CODLOC+BEA_LOCAL)) B9FPLS Sim Altera Virtual 1 1 1
B01_DESLOC Descr. Local Descricao local C 40 0 @! If(Inclui,"",BEA->BEA_DESLOC) Sim Vizualiza Virtual 1 1 2
B01_ENDLOC End. Local Endereco Local C 100 0 @! If(Inclui,"",BEA->BEA_ENDLOC) Sim Vizualiza Virtual 1 1 2
B01_CODESP Cod. Espec. Codigo Especialidade Código da especialidade de acordo com o cadastro de especialidades médicas. C 3 0 @! If(Empty(M->B01_CODESP),.T.,PLSA090ESP(M->B01_OPERDA,M->B01_CODRDA,M->B01_CODLOC,M->B01_CODESP,M->B01_DATPRO,"B01")) If(Inclui,"",BEA->BEA_CODESP) B9GPLS Sim Altera Virtual 1 1 2
B01_DESESP Descr.Espec. Descricao Especialidade C 40 0 @! If(Inclui,"",BEA->BEA_DESESP) Sim Vizualiza Virtual 1 1 2
B01_CID CID CID Código do cadastro internacional de doenças a que se refere tal cadastro/movimentação. C 8 0 @! If(Empty(M->B01_CID),.T.,BA9->(ExistCpo("BA9",M->B01_CID,1))) If(Inclui,"",BEA->BEA_CID) BA9PLS Sim Altera Virtual 1 1 2
B01_SIGLA Sigla C.R. Conselho Sol Sigla do Conselho Regional do Especialista. C 7 0 @! If(Empty(M->B01_SIGLA),.T.,ExistCpo("BAH",M->B01_SIGLA)) GetNewPar("MV_PLSIGLA","CRM") B53PLS S Sim Altera Virtual 1 1 2
B01_ESTSOL UF Solic. Est. Solicitante Sigla do Estado do prestador solicitante. C 2 0 @! If(Empty(M->B01_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTSOL,1))) If(Inclui,GETMV("MV_PLSESPD"),BEA->BEA_ESTSOL) 12 Sim Altera Virtual 1 1 2
B01_OPESOL Operad. Sol. Operadora Solicitante C 4 0 @R !.!!! If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) If(Inclui,PLSINTPAD(),BEA->BEA_OPESOL) B89PLS Sim Altera Virtual 1 1 2
B01_REGSOL C.R. Solic. C.R Solicita C 15 0 @R !!!!!!!!!!!!!!! If(Empty(M->B01_REGSOL),.T.,PLSA090SOL()) If(Inclui,"",BEA->BEA_REGSOL) BTYPLS Sim Altera Virtual 1 1 2
B01_NOMSOL Solicitante Solicitante C 30 0 @! If(Inclui,"",BEA->BEA_NOMSOL) Sim Vizualiza Virtual 1 1 2
B01_OPEEXE Operad. Exec Operadora Executante C 4 0 @R !.!!! If(Empty(M->B01_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B01_OPESOL,1))) If(Inclui,PLSINTPAD(),BEA->BEA_OPEEXE) B89PLS Sim Altera Virtual 1 1 2
B01_REGEXE C.R. Execut. C.R Executante C 15 0 @R !!!!!!!!!!!!!!! PLSA090EXE() If(Inclui,"",BEA->BEA_REGEXE) BTYPLS Sim Altera Virtual 1 1 2
B01_NOMEXE Executante Executante C 30 0 @! If(Inclui,"",BEA->BEA_NOMEXE) Sim Vizualiza Virtual 1 1 2
B01_CDPFSO Cd.Prf.Solic Cd.Prf.Soli C 6 0 @! If(Inclui,"",BEA->BEA_CDPFSO) Sim Vizualiza Virtual 1 1 2
B01_CDPFRE Cd.Prf.Exec. Cd.Prf.Resp. C 6 0 @! If(Inclui,"",BEA->BEA_CDPFRE) Sim Vizualiza Virtual 1 1 2
B01_ESTEXE UF execut. Est. Executante Sigla do Estado do prestador executante. C 2 0 @! If(Empty(M->B01_ESTEXE),.T.,SX5->(ExistCpo("SX5","12"+M->B01_ESTEXE,1))) If(Inclui,GETMV("MV_PLSESPD"),BEA->BEA_ESTEXE) 12 Sim Altera Virtual 1 1 2
B01_MATUSA Matr Usada Matricula Usada no Movto C 1 0 @! If(Inclui,"",BEA->BEA_MATUSA) Sim Vizualiza Virtual 1=Matricula Principal;2=Matricula Antiga 1 1 2
B01_ANOPAG Ano Pagto Ano Pagto C 4 0 @! If(Inclui,"",BEA->BEA_ANOPAG) Sim Vizualiza Virtual 1 1 2
B01_MESPAG Mes Pagto Mes Pagto C 2 0 @! If(Inclui,"",BEA->BEA_MESPAG) Sim Vizualiza Virtual 1 1 2
B01_NUMIMP Nr. Impresso Numero do Impresso C 20 0 @! ( Vazio() ) .Or. ( plszero() .And. PLSVLDNIMP(M->B01_NUMIMP) ) If(Inclui,"",BEA->BEA_NUMIMP) Sim Altera Virtual 1 1 2
B01_GUIORI Guia Orig. Guia Original C 32 0 @R !!!!.!!!!.!!!!!!!!.!!!!!!!! Sim Vizualiza Virtual 1 1 2
B01_MSG01 Mensagem 1 Mensagem 1 Mensagem 1. C 80 0 @C If(Inclui,"",BEA->BEA_MSG01) Sim Altera Virtual 1 1 2
B01_MSG02 Mensagem 2 Mensagem 2 Mensagem 2. C 80 0 @C If(Inclui,"",BEA->BEA_MSG02) Sim Altera Virtual 1 1 2
B01_MSG03 Mensagem 3 Mensagem 3 Mensagem 3. C 80 0 @C If(Inclui,"",BEA->BEA_MSG03) Sim Altera Virtual 1 1 2
B01_SIGEXE Sigla Exec. Sigla Executante Sigla do Conselho Regional do Especialista Executante. C 7 0 @! If(Empty(M->B01_SIGEXE),.T.,ExistCpo("BAH",M->B01_SIGEXE)) IF(Inclui,GETMV("MV_PLSIGLA"),BEA->BEA_SIGLA) B53PLS Sim Altera Virtual 1 1 2
B01_GUIACO Guia Comp. Guia Comprada? C 1 0 @! If(Inclui,"0",BEA->BEA_GUIACO) Sim Vizualiza Virtual 1=Sim;0=Nao 1 1 2
B01_QUACOB Quando Cobr. Quando Cobrar? C 1 0 @! If(Inclui,"",BEA->BEA_QUACOB) Sim Altera Virtual 1=No Ato;2=Na Fatura 1 1 2
B01_CODCLI Cod.Cliente Codigo do Cliente C 6 0 @! If(Inclui,"",BEA->BEA_CODCLI) Sim Vizualiza Virtual 001 1 1 2
B01_LOJA Loja Loja do Cliente C 2 0 @! If(Inclui,"",BEA->BEA_LOJA) Sim Vizualiza Virtual 1 1 2
B01_SENHA Senha Senha Informar senha C 20 0 @! If(inclui,"",BEA->BEA_SENHA) Sim Vizualiza Virtual 1 1 2
B01_NRAOPE Nr Aut Oper. Numero Aut. Operadora C 20 0 @! If(inclui,"",BEA->BEA_NRAOPE) Sim Altera Virtual 1 1 2
B01_NRAEMP Nr Aut Empr. Numero Aut. Empresa C 20 0 @! If(inclui,"",BEA->BEA_NRAEMP) Sim Altera Virtual 1 1 2
B01_AUDITO Auditoria? Enviado a Auditoria? C 1 0 @! If(Inclui,"0",BEA->BEA_AUDITO) Sim Vizualiza Virtual 1=Sim;0=Nao 1 1 2
B01_LOCREQ Loc.Requisic Local da Requisicao C 1 0 @! If(Inclui,"",BEA->BEA_LOCREQ) Nao Altera Virtual 1=Consultorio;2=Pronto Atendimento;3=Hospital;4=Medicina/Odonto. do Trabalho;5=Medico/Dentista na Empresa;6=Transcricao 1 1 2
B01_NRLBOR Nr. Lib. Or? Numero Lib. Original Numero da Liberação Original. 'Ex. Uma autorização gerada por uma liberação C 18 0 @! If(Inclui,"",BEA->BEA_NRLBOR) Nao Vizualiza Virtual 1 2
B01_PAGATO Pagto Ato? Pagamento no Ato? C 1 0 @! If(Inclui,"0",BEA->BEA_PAGATO) Sim Vizualiza Virtual 1=Sim;0=Nao 1 1 2
B01_DPTETA Data Termino Data Prev. Term Tratament Informe neste campo a data de previsão do término do tratamento odontológico. D 8 0 @! Sim Vizualiza Virtual 1 1 2
B01_SCDPER Sinais Perio Sinais Clínico Doença Per Este campo é para informar o indicador de sinais clínicos aparentes de doenças periodontais no tratamento odontológico. C 1 0 @! Sim Vizualiza Virtual 0=Não;1=Sim 1 1 2
B01_ALTMOL Alter Tecido Alter Tecidos Moles Este campo é para informar se houve alteração dos tecidos moles aparentes (Sim ou Não) no tratamento odontológico. C 1 0 @! Sim Vizualiza Virtual 0=Não;1=Sim 1 1 2
B01_TIPATO Tipo Atend Tipo Atendimento Odonto Informe o tipo de atendimento conforme definição da ANS/TISS. 1 - Tratamento Odontológico 2 - Exame Radiológico 3 - Ortodontia 4 - Urgência/Emergência 5 - Auditoria C 1 0 @! "1" Sim Vizualiza Virtual 1=Tratamento Odontológico;2=Exame Radiológico;3=Ortodontia;4=Urgência/ Emergência;5=Auditoria 1 1 2
B01_TIPFAT Tp Faturamen Tipo Faturamento C 1 0 @! Pertence("TP") "T" Nao Vizualiza Virtual T=Total;P=Parcial 1 1 2
B01_DATSOL Data Solicit Data Solicitação Data Solicitacao D 8 0 Iif(Inclui,dDataBase,BEA->BEA_DATSOL) Nao Altera Virtual 1 1 2
B01_GUIJUR Guia Jurid ? É uma Guia Juridica ? Informe se é uma Guia Juridica? C 1 0 @! PLSGUIJUR("B01_GUIJUR") If(Inclui,"",BEA->BEA_GUIJUR) Sim Vizualiza Virtual 0=Não;1=Sim 1 1 2
B01_NUMPRO Num Processo Numero do Processo Informe o Numero do processo C 20 0 @! If(Inclui,"",BEA->BEA_NUMPRO) Sim Vizualiza Virtual 1 1 2
B01_GUIPRI Nr Guia Prin Numero da Guia Principal Informe o Numero da Guia Principal do Beneficiário C 18 0 @! IIF(INCLUI,"",BEA->BEA_GUIPRI) BE4B01 Sim Altera Virtual 1 1 2
B01_PROATE Protocolo Protocolo de Atendimento Protocolo de atendimento do paciente. C 20 0 @! If(Inclui,"",BEA->BEA_PROATE) Sim Vizualiza Virtual 1 1 2
B01_CANTIS Canc.TISS Cod. Cancelamento TISS Informe o código do motivo de cancelamento da TISS. C 15 0 @! BEA->BEA_CANTIS Sim Vizualiza Virtual 1 2
B01_VALSEN Valid Senha Validade Senha Este campo é preenchido com a soma da data base do Sistema e o conteúdo do parâmetro MV_PLPRZLB, sendo que, pode ser alterado caso necessário. D 8 0 IIf(Inclui,dDatabase+GetNewPar("MV_PLPRZLB",30),BEA->BEA_VALSEN) Nao Altera Virtual 1 1 2
B01_CANEDI Canc.TISS Cod. Cancelamento TISS Informe o código do motivo de cancelamento da TISS. C 250 0 @! BEA->BEA_CANEDI Sim Vizualiza Virtual 1 2