udesenv

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

B72

DATA

B72990

Interna saude

Interna salud

Health Hosp.

C

E

0

B72_FILIAL+B72_ALIMOV+B72_RECMOV+B72_SEQPRO+B72_CODPAD+B72_CODPRO+B72_CODGLO

S

33

1

2

0

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

B72

01

B72_FILIAL

C

2

0

Filial

1

S

033

B72

02

B72_QTDSOL

N

12

4

Quant. Solic

Quantidade Solicitada

@E 9,999,999.9999

1

N

V

R

B72

03

B72_JNTMED

C

1

0

Junta Med.

Junta Medica ?

"0"

1

S

R

0=NAO;1=SIM

B72

04

B72_VLRAPR

N

16

2

Vlr. Apresen

Valor Apresentado Guia

@E 9,999,999,999,999.99

1

N

V

B72

05

B72_PERVIA

N

13

2

% Via

Percentual da Via

@E 9,999,999,999.99

PLS790RVQ(4)

1

N

A

R

PLS790Whe2()

B72

06

B72_VIA

C

1

0

VIa Acesso

Via de Acesso

@!

PlsSeek("BGR",1,PLSINTPAD()+M->B72_VIA,"B72_PERVIA","BGR_PERC")

PLS790RVQ(3)

BHRPLS

1

N

A

R

PLS790Whe2()

B72

07

B72_DIASOL

N

3

0

Qtd Dia Soli

Qtd Diaria Solicitada

@E 999

1

S

A

R

B72

08

B72_DIAAUT

N

3

0

Qtd Dia Auto

Qtd Diaria Autorizada

@E 999

1

S

A

R

B72

09

B72_TPPARE

C

1

0

Tp Parecer

Tipo de Parecer

@!

Iif(M->B72_TPPARE=="1",Eval({||M->B72_INCONS:="3",.T.}),Iif(M->B72_TPPARE=="2",Eval({||M->B72_INCONS:="1",.T.}),.T. ) )

"0"

1

S

0=Em andamento;1=Concorda;2=Não concorda

B72->B72_RESAUT <> "1"

B72

10

B72_ALIMOV

C

3

0

Alias Relac

Alias de Relacionamento

@!

1

B72

11

B72_RECMOV

C

10

0

Recno Relac

Recno de Relacionamento

@!

1

B72

12

B72_DATMOV

D

8

0

Dt. Moviment

Data da Movimentação

dDataBase

1

S

V

B72

13

B72_OPERAD

C

6

0

Operador An.

Cod do Operador da Analis

@!

1

V

B72

14

B72_CODPRO

C

16

0

Cod Procedim

Codigo do Procedimento

@!

PLB72RELAC(1)

1

S

V

B72

15

B72_CODGLO

C

3

0

Cod Glosa

Codigo da Glosa

@!

1

S

V

B72

16

B72_OBSISA

M

10

0

Obs. Saúde

Observação Inter Saúde

@!

1

B72->B72_RESAUT <> "1" .And. M->B72_INCONS $ "1"

B72

17

B72_DESPRO

C

50

0

Desc. Proc.

Descrição do Procedimento

@!

PLB72RELAC(2)

1

S

V

Posicione("BR8",1,xFilial("BR8")+B72->B72_CODPAD+B72->B72_CODPRO,"BR8_DESCRI")

B72

18

B72_SEQPRO

C

3

0

Seq Proc

Sequencia do Procedimento

@!

1

S

V

B72

19

B72_CODPAD

C

2

0

Cod. Tabela

Codigo da tabela

@!

1

S

V

B72

20

B72_PARECE

C

1

0

Parecer

@!

"0"

1

S

0=Autorizado;1=Negado

B72

21

B72_DESGLO

C

120

0

Desc. Glosa

Descrição da Glosa

@!

Posicione("BCT",1,xFilial("BCT")+B53->B53_CODOPE+B72->B72_CODGLO,"BCT_DESCRI")

1

S

V

Posicione("BCT",1,xFilial("BCT")+B53->B53_CODOPE+B72->B72_CODGLO,"BCT_DESCRI")

B72

22

B72_ACOTOD

C

1

0

Cons. todos

@!

"0"

1

N

A

R

0=Não;1=Sim

!PLS790INS()

B72

23

B72_OBSANA

M

10

0

Obs. Analis

Observação da Analise

@!

1

!PLS790INS()

B72

24

B72_MOTIVO

C

3

0

Motivo

@!

PlsSeek("BCT",1,PLSINTPAD() + M->B72_MOTIVO) .AND. Posicione("BCT",1,xFilial("BCT")+PLSINTPAD()+M->B72_MOTIVO,"BCT_MOTISS")='1'

BCTMOT

1

S

(M->B72_PARECE=="1" .Or. PLS790PAR()) .And. !PLS790INS()

B72

25

B72_DESMOT

C

120

0

Des. Motivo

Descrição do Motivo

@!

IF(INCLUI,"",POSICIONE("BCT",1,XFILIAL("BCT")+PLSINTPAD()+B72->B72_MOTIVO,"BCT_DESCRI"))

1

S

V

!PLS790INS()

B72

26

B72_VLRAUT

N

16

4

Vlr Uni Auto

Valor Unitário Autorizado

@E 99,999,999,999.9999

PLS790RVQ(1)

1

S

A

M->B72_PARECE=="0" .And. !PLS790INS()

B72

27

B72_QTDAUT

N

9

2

Qtd. Autoriz

Qtd Autorizada

@E 999,999.99

M->B72_QTDAUT > 0

PLS790RVQ(2)

1

S

A

M->B72_PARECE=="0" .And. !PLS790INS()

B72

28

B72_VALORI

N

16

2

Vlr Aut Tot

@E 9,999,999,999,999.99

Iif(Inclui,(M->B72_QTDAUT*M->B72_VLRAUT),0)

1

S

V

B72

29

B72_INFPRO

M

10

0

Info. Proced

Informação do Procediment

@!

PLSINFPRO()

1

N

V

B72

30

B72_RESAUT

C

1

0

Resp. Audit.

Resposta do Auditor

@!

1

N

V

0=Não;1=Sim

B72

31

B72_CODDUT

C

3

0

Código DUT

@!

PLDUTB72('1',BR8->BR8_CODPAD,BR8->BR8_CODPSA)

BKYDUT

1

S

A

R

B72

32

B72_NOMOPE

C

40

0

Operador

Nome do Operador

@!

1

S

V

USRRETNAME(B72->B72_OPERAD)

B72

33

B72_SUBDUT

C

2

0

Subitem DUT

@!

PLDUTB72('2',BR8->BR8_CODPAD,BR8->BR8_CODPSA)

1

S

V

R

B72

34

B72_TABDUT

C

3

0

Tabela DUT

Tabela do DUT

@!

PLDUTB72('3',BR8->BR8_CODPAD,BR8->BR8_CODPSA)

1

V

R

B72

35

B72_COPERE

C

6

0

Cod Operador

Cod Ope Interna saude

@!

BBCPLS

1

S

B72

36

B72_NOPERE

C

40

0

Nom Operador

Nome Operador Inter Saude

@!

1

S

V

USRRETNAME(B72->B72_COPERE)

B72

37

B72_INCONS

C

1

0

Inconsistenc

Inconsistencia

@!

Iif(M->B72_INCONS<>"1",Eval( {|| M->B72_TPPARE:="0",M->B72_TPINCO:="",M->B72_DETPIC:="",M->B72_OBSISA:="",.T.} ),.T.)

"2"

1

S

1=Sim;2=Pendente;3=Finalizada

B72->B72_RESAUT <> "1"

B72

38

B72_TPINCO

C

3

0

Tp Inconsist

Tipo de Inconsistencia

@!

PlsSeek("SX5",1,"C7"+M->B72_TPINCO,"B72_DETPIC","X5_DESCRI")

C7

1

B72->B72_RESAUT <> "1" .And. M->B72_INCONS $ "1"

B72

39

B72_DETPIC

C

55

0

Des tp Incon

Descrição do Tp de Incons

@!

If(Inclui,"",Posicione("SX5",1,xFilial("SX5")+ "C7" + B72->B72_TPINCO,"X5DESCRI()"))

1

S

V

Posicione("SX5",1,xFilial("SX5")+"C7" + B72->B72_TPINCO,"X5DESCRI()")

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
B72	1	B72_FILIAL+B72_ALIMOV+B72_RECMOV+B72_SEQPRO+B72_CODGLO+B72_CODPAD+B72_CODPRO	Alias Relac + Recno Relac + Seq Proc + Cod Glosa + Cod. Tabela + Cod P	Alias Relac + Recno Relac + Sec Proced + Cod Glosa + Cod. Tabla + Cod	Relat. Alias + Relat. Recno + Proc. Seq. + Dis. Code + Table Cd + Proc	S			S	2	3
B72	2	B72_FILIAL+B72_SEQPRO+B72_CODGLO+B72_CODPAD+B72_CODPRO+B72_ALIMOV+B72_RECMOV	Seq Proc + Cod Glosa + Cod. Tabela + Cod Procedim + Alias Relac + Recn	Sec Proced + Cod Glosa + Cod. Tabla + Cod Procedim + Alias Relac + Rec	Proc. Seq. + Dis. Code + Table Cd + Proced. Code + Relat. Alias + Rela	S			S	2	3
B72	3	B72_FILIAL+B72_ALIMOV+B72_RECMOV+B72_PARECE	Alias Relac + Recno Relac + Parecer	Alias Relac + Recno Relac + Parecer	Relat. Alias + Relat. Recno + Opinion	S			S	2	3
B72	4	B72_FILIAL+B72_CODPAD+B72_CODPRO+B72_SEQPRO+B72_ALIMOV+B72_RECMOV	Cod. Tabela + Cod Procedim + Seq Proc + Alias Relac + Recno Relac	Cod. Tabla + Cod Procedim + Sec Proced + Alias Relac + Recno Relac	Table Cd + Proced. Code + Proc. Seq. + Relat. Alias + Relat. Recno	S			S	2	3
B72	5	B72_FILIAL+B72_ALIMOV+B72_RECMOV+B72_CODPRO	Alias Relac + Recno Relac + Cod Procedim	Alias Relac + Recno Relac + Cod Procedim	Relat. Alias + Relat. Recno + Proced. Code	S			S	2	3

X7_CAMPO	X7_SEQUENC	X7_REGRA	X7_CDOMIN	X7_TIPO	X7_SEEK	X7_ALIAS	X7_ORDEM	X7_CHAVE	X7_CONDIC	X7_PROPRI
B72_FILIAL	001	BGR->BGR_PERC	B72_PERVIA	P	s	FRJ	1			S
B72_INCONS	001	iif(M->B72_INCONS="3","1","0")	B72_TPPARE	P	N		0			S
B72_MOTIVO	001	Eval({\|\| PlsSeek("BCT",1, PlsIntPad()+M->B72_MOTIVO), BCT->BCT_DESCRI})	B72_DESMOT	P	N		0			S
B72_QTDAUT	001	M->B72_QTDAUT*M->B72_VLRAUT	B72_VALORI	P	N		0			S
B72_VLRAUT	001	M->B72_QTDAUT*M->B72_VLRAUT	B72_VALORI	P	N		0			S