Tabela
BEJ Itens Autorizacao Internacao
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BEJ_FILIAL C 2 0 Filial S
BEJ_CODOPE C 4 0 Operadora @! S
BEJ_IMGSTA C 7 0 @BMP V S
BEJ_SEQUEN C 3 0 Sequencia @! S
BEJ_CODPRO C 16 0 Cod. Proc. @! PLSMUDCOD("BEJ").AND.PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL") BPUPLS S
BEJ_DESPRO C 80 0 Descr. Proc. @! R S
BEJ_QTDSOL N 12 4 Qtd Sol/Aut @E 9,999,999.9999 R N
BEJ_QTDPRO N 12 4 Qtd Proced. @E 9,999,999.9999 PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL") S
BEJ_CODPAD C 2 0 Cod. Tab. Pd @! Iif(!EMPTY(M->BEJ_CODPRO),PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL"),.T.) B41PLS S
BEJ_NIVAUT C 3 0 Nivel Autor. @! S
BEJ_DNIVAU M 100 0 Desc. Nivel @! V S
BEJ_NIVCRI C 3 0 Nivel Critic @! S
BEJ_DNIVCR M 100 0 Dsc Niv Crit @! V S
BEJ_AUDITO C 1 0 Auditoria? @! PERTENCE('01') 0=Nao;1=Sim M->BEJ_STATUS=="0" S
BEJ_NIVEL C 1 0 Nivel @! S
BEJ_PROCCI C 1 0 Proced. Cir. @! 1=Sim;0=Nao S
BEJ_VIA C 1 0 Via Acesso @! BGR->(ExistCpo("BGR",M->BE4_OPERDA+M->BEJ_VIA,1)) BHRPLS M->BEJ_PROCCI=="1" S
BEJ_PERVIA N 16 2 % Via @E 9,999,999,999,999.99 M->BEJ_PROCCI=="1" S
BEJ_ANOINT C 4 0 Ano Autoriz. @! S
BEJ_MESINT C 2 0 Mes Autoriz. @! S
BEJ_NUMINT C 8 0 Num Internac @! S
BEJ_STATUS C 1 0 Status Int. @! 1=Autorizada;0=Nao Autorizada S
BEJ_PROPRI C 1 0 Proc.Princ.? @! If(M->BEJ_PROPRI$" ,0",.T.,PLSVLDGD()) 1=Sim;0=Nao S
BEJ_CHVNIV C 20 0 Chave Nivel @! S
BEJ_REGPAG C 1 0 Regra Pagto. @! R 1=Atend. Local;2=Atend. Intercambio !Empty(M->BEJ_CODPRO) N
BEJ_REGCOB C 1 0 Regra Cobr. @! R 1=Atend. Local;2=Atend. Intercambio !Empty(M->BEJ_CODPRO) S
BEJ_CODAUD C 6 0 Cod. Auditor @D N
BEJ_NOMAUD C 40 0 Auditor @D R N
BEJ_NRAOPE C 20 0 Nr Aut Oper. @! S
BEJ_PENDEN C 1 0 Pend. Audit. @! 1=Sim;0=Nao N
BEJ_SOLREV C 1 0 Revisao @! 1=Sim;0=Nao N
BEJ_TPPROC C 1 0 Tipo Proced @! Pertence("0123456789") 0=Procedimento;1=Material;2=Medicamento;3=Taxas;4=Diarias;5=Ortese/Protese;6=Pacote;7=Gases Medicinais;8=Alugueis;9=Outros S
BEJ_NUMIMP C 20 0 Nr. Impresso @! S
BEJ_DATPRO D 8 0 Dt. Proc. S
BEJ_VALORI N 16 2 Vlr Apr Tot @E 9,999,999,999,999.99 V S
BEJ_VLRAPR N 16 2 Vlr Apr Uni @E 9,999,999,999,999.99 PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL") R S
BEJ_NRTROL C 20 0 Nr.Tr.OnLine @! R 1=Sim;0=Nao S
BEJ_TECUTI C 1 0 Tec Utilizad @! Vazio() .Or. Pertence('CVR') R C=Convencional;V=Video;R=Robotica S
BEJ_REFFED C 30 0 Cod.Ref.Fab @! R P090PTUGEN('2') S
BEJ_ESPEXE C 3 0 Espec.Exe. BQ1PL1 R S
BEJ_ESPSOL C 3 0 Espec.Sol. BQ1PL1 R S
BEJ_PARTIC C 1 0 Partic. @! R 0=Nao;1=Sim S
BEJ_PACOTE C 1 0 Pacote? @! (Pertence("01") .Or. Vazio()) R 1=Sim;0=Nao S
BEJ_PROPCT L 1 0 Pacote ? V S
BEJ_CANEDI C 250 0 Desc.Can.Edi @! R S
BEJ_SEQPTU C 2 0 Seq Ptu On @! R S
BEJ_REGANV C 15 0 Reg.Anvisa @! R S