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 |