Ajude o site desativando o bloqueador de anúncio
Cabeçalho

Tabela 2410 BEJ

Autor: Eurai Criado: 01/03/2025 Atualizado: 01/03/2025 Protheus
Postagem

Salve salve, blz?

 

 

Tabela BEJ. #BEJ

 

 

 

 

SX2 - TABELA

X2_CHAVE X2_PATH X2_ARQUIVO X2_NOME X2_NOMESPA X2_NOMEENG X2_ROTINA X2_MODO X2_MODOUN X2_MODOEMP X2_DELET X2_TTS X2_UNICO X2_PYME X2_MODULO X2_DISPLAY X2_SYSOBJ X2_USROBJ X2_POSLGT X2_CLOB X2_AUTREC X2_TAMFIL X2_TAMUN X2_TAMEMP X2_STAMP X2_INSDT
BEJ DATA BEJ990 Itens Autorização Internação Items Autorización Internación Hospit. authorization items C E E 0 BEJ_FILIAL+BEJ_CODOPE+BEJ_ANOINT+BEJ_MESINT+BEJ_NUMINT+BEJ_SEQUEN N 33 1 2 2 2 0 0

 

 

 

 

SX3 - CAMPOS

X3_ARQUIVO X3_ORDEM X3_CAMPO X3_TIPO X3_TAMANHO X3_DECIMAL X3_TITULO X3_DESCRIC X3_PICTURE X3_VALID X3_RELACAO X3_F3 X3_NIVEL X3_TRIGGER X3_BROWSE X3_VISUAL X3_CONTEXT X3_OBRIGAT X3_CBOX X3_PICTVAR X3_WHEN X3_INIBRW X3_GRPSXG X3_FOLDER
BEJ 01 BEJ_FILIAL C 2 0 Filial Filial 1 033
BEJ 02 BEJ_CODOPE C 4 0 Operadora Operadora @! 1
BEJ 03 BEJ_IMGSTA C 7 0 Imagem Stat. Image Status @BMP If(Inclui,"DISABLE",If(BEJ->BEJ_STATUS=="0","DISABLE","ENABLE")) 1 V V
BEJ 04 BEJ_SEQUEN C 3 0 Sequencia Sequencia @! PLSA092SEQ() 1 V
BEJ 05 BEJ_CODPAD C 2 0 Cod. Tab. Pd Cd Tb @! Iif(!EMPTY(M->BEJ_CODPRO),PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL"),.T.) GETMV("MV_PLSTBPD") B41PLS 1 S
BEJ 06 BEJ_CODPRO C 16 0 Cod. Proc. Cod Proc. @! PLSMUDCOD("BEJ").AND.PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL") BPUPLS 1 S S
BEJ 07 BEJ_DESPRO C 80 0 Descr. Proc. Desc Proc. @! IF(INCLUI,"",POSICIONE("BR8",1,XFILIAL("BR8")+BEJ->BEJ_CODPAD+BEJ->BEJ_CODPRO,"BR8_DESCRI")) 1 S V R
BEJ 08 BEJ_QTDSOL N 12 4 Qtd Sol/Aut Quantidade Solic/Autor @E 9,999,999.9999 1 1 S V R
BEJ 09 BEJ_QTDPRO N 12 4 Qtd Proced. Quantidade Procedimento @E 9,999,999.9999 PLSA092Aut(M->BEJ_SEQUEN,M->BEJ_CODPAD,M->BEJ_CODPRO,M->BEJ_QTDPRO,"1","BEJ","BE4","BEL") 1 1 S S
BEJ 10 BEJ_NIVAUT C 3 0 Nivel Autor. Nivel Autorizado @! 1 V
BEJ 11 BEJ_DNIVAU M 10 0 Desc. Nivel Desc Niv Aut @! IIf(Inclui,"",PLSRETNCRI(BEJ->BEJ_NIVCRI,BEJ->BEJ_CHVNIV,BEJ->BEJ_NIVAUT)) 1 V V
BEJ 12 BEJ_NIVCRI C 3 0 Nivel Critic Nv Critica @! 1 V
BEJ 13 BEJ_DNIVCR M 10 0 Dsc Niv Crit Desc Niv Critica @! IIf(Inclui,"",PLSRETNCRI(BEJ->BEJ_NIVCRI)) 1 V V
BEJ 14 BEJ_AUDITO C 1 0 Auditoria? Auditoria? @! PERTENCE('01') "0" 1 0=Nao;1=Sim M->BEJ_STATUS=="0"
BEJ 15 BEJ_NIVEL C 1 0 Nivel Nivel @! 1 S V
BEJ 16 BEJ_PROCCI C 1 0 Proced. Cir. Procedimento Cirurgico @! "0" 1 V 1=Sim;0=Nao
BEJ 17 BEJ_VIA C 1 0 Via Acesso Via de Acesso @! PlsSeek("BGR",1,M->BE4_OPERDA+M->BEJ_VIA) BHRPLS 1 S M->BEJ_PROCCI=="1"
BEJ 18 BEJ_PERVIA N 16 2 % Via % da Via @E 9,999,999,999,999.99 1 M->BEJ_PROCCI=="1"
BEJ 19 BEJ_ANOINT C 4 0 Ano Autoriz. Ano Autorizacao @! 1 V
BEJ 20 BEJ_MESINT C 2 0 Mes Autoriz. Mes Autorizacao @! 1 V
BEJ 21 BEJ_NUMINT C 8 0 Num Internac No. da Internacao @! 1 S V
BEJ 22 BEJ_STATUS C 1 0 Status Int. Status da Internacao @! "0" 1 V 1=Autorizada;0=Nao Autorizada
BEJ 23 BEJ_PROPRI C 1 0 Proc.Princ.? Procedimento Principal? @! If(M->BEJ_PROPRI$" ,0",.T.,PLSVLDGD()) "0" 1 1=Sim;0=Nao
BEJ 24 BEJ_CHVNIV C 20 0 Chave Nivel Chave Nivel @! 1 V
BEJ 25 BEJ_REGPAG C 1 0 Regra Pagto. Regra para pagamento @! 1 S A R 1=Atend. Local;2=Atend. Intercambio !Empty(M->BEJ_CODPRO)
BEJ 26 BEJ_REGCOB C 1 0 Regra Cobr. Regra para cobrança @! 1 S A R 1=Atend. Local;2=Atend. Intercambio !Empty(M->BEJ_CODPRO)
BEJ 27 BEJ_CODAUD C 6 0 Cód. Auditor Codigo do Auditor @D 1 S
BEJ 28 BEJ_NOMAUD C 40 0 Auditor Auditor @D 1 S V R
BEJ 29 BEJ_NRAOPE C 20 0 Nr Aut Oper. Numero Aut. Operadora @! 1
BEJ 30 BEJ_PENDEN C 1 0 Pend. Audit. Alguma pend. na auditoria @! "0" 1 V 1=Sim;0=Não
BEJ 31 BEJ_SOLREV C 1 0 Revisão Revisão @! "0" 1 V 1=Sim;0=Não
BEJ 32 BEJ_TPPROC C 1 0 Tipo Proced Tipo de Procedimento @! Pertence("0123456789") 1 V 0=Procedimento;1=Material;2=Medicamento;3=Taxas;4=Diarias;5=Ortese/Protese;6=Pacote;7=Gases Medicinais;8=Alugueis;9=Outros
BEJ 33 BEJ_NUMIMP C 20 0 Nr. Impresso Numero do Impresso @! 1 V
BEJ 34 BEJ_DATPRO D 8 0 Dt. Proc. Data Proc. If(Inclui .Or. Empty(BEJ->BEJ_DATPRO),dDataBase,BEJ->BEJ_DATPRO) 1 V
BEJ 35 BEJ_VALORI N 16 2 Vlr Apr Tot Vlr Apr Tot @E 9,999,999,999,999.99 Iif(Inclui,0,BEJ->BEJ_QTDPRO*BEJ->BEJ_VLRAPR) 1 S V V
BEJ 36 BEJ_VLRAPR N 16 2 Vlr Apr Uni 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") 1 S A R
BEJ 37 BEJ_NRTROL C 20 0 Nr.Tr.OnLine Núm. Trans. On-Line @! 1 N V R 1=Sim;0=Nao
BEJ 38 BEJ_TECUTI C 1 0 Téc Utilizad Técnica Utilizada @! Vazio() .Or. Pertence("123") 1 N A R 1=Convencional;2=Video;3=Robótica
BEJ 39 BEJ_REFFED C 30 0 Cód.Ref.Fab Cod.Refer.Fabr.EDI @! 1 N A R P090PTUGEN('2')
BEJ 40 BEJ_ESPEXE C 3 0 Espec.Exe. Especialidade do executan BQ1PL1 1 A R
BEJ 41 BEJ_ESPSOL C 3 0 Espec.Sol. Especialidade do solicita BQ1PL1 1 A R
BEJ 42 BEJ_PARTIC C 1 0 Partic. Participativa @! 1 S V R 0=Nao;1=Sim
BEJ 43 BEJ_PACOTE C 1 0 Pacote? Pacote? @! (Pertence("01") .Or. Vazio()) 1 N A R 1=Sim;0=Nao
BEJ 44 BEJ_PROPCT L 1 0 Pacote ? Procedimento é pacote ? 1 V
BEJ 45 BEJ_CANEDI C 250 0 Desc.Can.Edi Descr.Cancelam.EDI @! 1 N V R
BEJ 46 BEJ_REGANV C 15 0 Reg.Anvisa Reg. ANVISA Mat. @! 1 N A R
BEJ 47 BEJ_SEQPTU C 2 0 Seq Ptu On Sequencial PTU Online @! 1 N V R
BEJ 48 BEJ_CDPACO C 8 0 Cd Pacote Codigo do Pacote @! 1 V R
BEJ 49 BEJ_DESPAC C 211 0 Desc. Pacote Descrição do Pacote @! 1 V R

 

 

 

 

SIX - INDICES

INDICE ORDEM CHAVE DESCRICAO DESCSPA DESCENG PROPRI F3 NICKNAME SHOWPESQ IX_VIRTUAL IX_VIRCUST
BEJ 1 BEJ_FILIAL+BEJ_CODOPE+BEJ_ANOINT+BEJ_MESINT+BEJ_NUMINT+BEJ_SEQUEN Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Sequencia Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Secuencia Operator + Author. year + Author.Month + Hospit. nbr. + Sequence S S 2 3
BEJ 2 BEJ_FILIAL+BEJ_CODOPE+BEJ_ANOINT+BEJ_MESINT+BEJ_NUMINT+BEJ_CODPAD+BEJ_CODPRO Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Cod. Tab. Pd Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Cod. Tab. Pd Operator + Author. year + Author.Month + Hospit. nbr. + Stand. Tb Cd + S S 2 3

 

 

 

 

SX7 - GATILHOS

X7_CAMPO X7_SEQUENC X7_REGRA X7_CDOMIN X7_TIPO X7_SEEK X7_ALIAS X7_ORDEM X7_CHAVE X7_CONDIC X7_PROPRI
BEJ_CODPRO 001 BR8->BR8_DESCRI BEJ_DESPRO P S BR8 1 xFilial("BR8")+M->BEJ_CODPAD+M->BEJ_CODPRO S
BEJ_CODPRO 002 If(BR8->BR8_TIPEVE$"2,3","1","0") BEJ_PROCCI P N 0 S
BEJ_CODPRO 003 IF(M->BEJ_PROCCI=="1",GetNewPar("MV_PLSVAPR","0"),"") BEJ_VIA P N 0 S
BEJ_CODPRO 004 IF(M->BEJ_PROCCI=="1",100,0) BEJ_PERVIA P N 0 S
BEJ_CODPRO 005 If(M->BE4_OPERDA<>PLSINTPAD(),"1",M->BEJ_AUDITO) BEJ_AUDITO P N 0 S
BEJ_CODPRO 006 If(M->BE4_OPERDA<>PLSINTPAD(),"2",M->BEJ_NIVCRI) BEJ_NIVCRI P N 0 S
BEJ_CODPRO 007 If(M->BE4_OPERDA<>PLSINTPAD(),"0",M->BEJ_STATUS) BEJ_STATUS P N 0 S
BEJ_CODPRO 008 BR8->BR8_TPPROC BEJ_TPPROC P N 0 S
BEJ_CODPRO 009 If(EMPTY(BR8->BR8_PARTIC),"0",BR8->BR8_PARTIC) BEJ_PARTIC P N 0 S
BEJ_QTDPRO 001 M->BEJ_QTDPRO BEJ_QTDSOL P N 0 S
BEJ_QTDPRO 002 M->BEJ_QTDPRO*M->BEJ_VLRAPR BEJ_VALORI P N 0 S
BEJ_VIA 001 Eval({|| PLSSEEK('BGR',1, M->BE4_OPERDA+M->BEJ_VIA), BGR->BGR_PERC}) BEJ_PERVIA P N 0 S
BEJ_VLRAPR 001 M->BEJ_QTDPRO*M->BEJ_VLRAPR BEJ_VALORI P N 0 S

 

 

 

 

SXG - Grupo de Campos

XG_GRUPO XG_DESCRI XG_DESSPA XG_DESENG XG_SIZEMAX XG_SIZEMIN XG_SIZE XG_PICTURE
033 Tamanho da Filial Tamano de la Sucursal Branch Size 12 2 2

 

 

 

 

 

 

 

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! ??

Um abraço, e até a próxima  

 

 

 

 

 

📰 Posts Relacionados

ASSINE A NEWSLETTER

Cadastrando...

PIX uDesenv

PIX QR Code para depósito

Clique para doar

Siga-nos

YouTube GitHub LinkedIn

Parceiros

Tudo em ADVPL - Blog parceiro

Blog ADVPL