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

B4E

DATA

B4E990

Itens Recurso de Glosa

Items Recurso de Glosa

Disallowance Resource Items

C

0

B4E_FILIAL+B4E_OPEMOV+B4E_CODLDP+B4E_CODPEG+B4E_NUMAUT+B4E_ORIMOV+B4E_SEQUEN+B4E_STATUS+STR(B4E_QTDIRP)

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

B4E

01

B4E_FILIAL

C

2

0

Filial

1

033

B4E

02

B4E_MESAUT

C

2

0

Mes Autori

Mes Auditoria

@!

1

N

V

R

B4E

03

B4E_OPEMOV

C

4

0

Operadora

@!

If(Empty(M->B4E_OPEMOV),.T.,BA0->(ExistCpo("BA0",M->B4E_OPEMOV,1)))

B89PLS

1

N

A

R

B4E

04

B4E_ANOAUT

C

4

0

Ano Auditori

Ano Auditoria

@!

1

N

V

R

B4E

05

B4E_NUMAUT

C

8

0

Nro Autori

Nro Auditoria

@!

1

N

V

R

B4E

06

B4E_SEQUEN

C

3

0

Seq.

Sequencial

@!

PLSA09BSEQ

1

S

V

R

B4E

07

B4E_SEQB4D

C

6

0

Seq. Glosa

@!

1

N

V

R

B4E

08

B4E_CODLDP

C

4

0

Local Digit

Codigo Local de Digitacao

1

S

V

R

B4E

09

B4E_ORIMOV

C

1

0

Origem Movto

Origem do Movimento

@!

1

N

V

R

1=Guias de Consultas/Servicos;2=Guia de Internacao;3=Outros;4=Autorizacao Odontologica;5=Dig. Off-Line;6=Novo Autorizador

B4E

10

B4E_CODPEG

C

8

0

Codigo PEG

Codigo da PEG

@!

1

S

V

R

B4E

11

B4E_TIPGUI

C

2

0

Tipo de Guia

@!

1

N

V

R

B4E

12

B4E_DATPRO

D

8

0

Data de Real

Data de Realização

1

S

V

R

B4E

13

B4E_DATFIN

D

8

0

Dt. Final

Data Final do Periodo

1

S

V

R

B4E

14

B4E_CODPAD

C

2

0

Tp.Pad.

Tabela

@!

Vazio() .Or. (BR4->(ExistCpo("BR4",M->B4E_CODPAD,1)))

GETMV("MV_PLSTBPD")

B41PLS

1

S

V

R

B4E

15

B4E_CODPRO

C

16

0

Cod.Proc.

Cod. Procedimento

@!

Vazio() .Or. (PLSA090PRO())

PLSB4E

1

S

V

R

B4E

16

B4E_DESPRO

C

150

0

Descrição

1

S

V

R

B4E

17

B4E_STATUS

C

1

0

Status Rec

Status Recurso

@!

Pertence('012345')

1

S

V

R

0=Sem rec de glosa;1=Rec Glosa Protocolado;2=Rec Glosa Em Analise;3=Rec Glosa Autorizado;4=Rec Glosa Negado;5=Aut Parcial

X3COMBO("B4E_STATUS",B4E->B4E_STATUS)

B4E

18

B4E_GRAUPA

C

2

0

Grau Part.

@!

'Vazio() .Or. (ExistCpo("BWT",M->(B4E_OPEMOV+B4E_GRAUPA),1) .AND. PLSA090PRO())'

BGDPLS

1

S

V

R

B4E

19

B4E_CODGLO

C

4

0

Cod. Glosa

Codigo da Glosa

@!

1

S

V

R

B4E

20

B4E_GLOTIS

C

4

0

TISS Glo.

Codigo TISS da Glosa

IIF(Empty(ALLTRIM(B4E->B4E_CODGLO)), "", PLSGETVINC("BTU_CDTERM", "BCT", .F., "38", ALLTRIM(B4E->B4E_CODGLO)))

1

S

V

R

B4E

21

B4E_VLRGLO

N

16

2

Vlr. Glosado

@E 9,999,999,999,999.99

1

S

V

R

B4E

22

B4E_VLRREC

N

16

2

Vlr.Recurso

Vlr.Recursado

@E 9,999,999,999,999.99

1

S

V

R

B4E

23

B4E_JUSPRE

M

10

0

Just. Prest.

Justificativa Prestador

@!

1

S

V

R

B4E

24

B4E_VLRACA

N

16

2

Vlr.Acatado

Valor acatado

@E 9,999,999,999,999.99

1

S

V

R

B4E

25

B4E_SLDREC

N

16

2

Saldo Recurs

Saldo Recurso

@E 9,999,999,999,999.99

1

S

V

R

B4E

26

B4E_JUSOPE

M

10

0

Just. Oper.

Justificativa Operadora

@!

1

S

V

R

B4E

27

B4E_IMGSTA

C

7

0

Image Status

@BMP

1

N

V

B4E

28

B4E_OPELOT

C

4

0

Ope. Lote

Operadora do Lote

@!

1

N

V

B4E

29

B4E_SEQREC

C

3

0

Seq. Recurso

@!

1

N

V

R

B4E

30

B4E_DESGLO

C

200

0

Descr. Glosa

Descrição da Glosa

@!

1

N

V

B4E

31

B4E_GLOPLS

C

4

0

Cod.Glo.Pls

Codigo da Glosa Interno

1

N

V

B4E

32

B4E_QTDIRP

N

3

0

Qtd.Rec.Port

Qtd.Rec.Incluidos Portal

999

1

N

V

B4E

33

B4E_CDGTIS

C

4

0

Cod Glo TISS

Código da Glosa TISS

@!

PlsSeek("BTQ",1,"38"+FwFldGet("B4E_CDGTIS"))

BTQRGL

1

S

N

A

R

B4E

34

B4E_DSGTIS

C

70

0

Des Glo TISS

Descrição da Glosa TISS

@!

iif(Inclui,"",Posicione("BTQ",1,xFilial("BTQ")+"38"+B4E->B4E_CDGTIS,"BTQ_DESTER"))

1

N

V

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
B4E	1	B4E_FILIAL+B4E_OPEMOV+B4E_ANOAUT+B4E_MESAUT+B4E_NUMAUT+B4E_SEQUEN	Operadora + Ano Auditori + Mes Autori + Nro Autori + Seq.	Operadora + Ano Auditori + Mes Autori + Nro Autori + Sec.	Operator + Audit Year + Authoriz Mth + Authoriz Nr. + Seq.	S			S	2	3
B4E	2	B4E_FILIAL+B4E_SEQB4D+B4E_SEQUEN+B4E_CODPEG	Seq. Glosa + Seq. + Codigo PEG	Sec. Glosa + Sec. + Codigo PEG	Disall. Seq. + Seq. + PEG Code	S			S	2	3
B4E	3	B4E_FILIAL+B4E_OPEMOV+B4E_CODLDP+B4E_CODPEG+B4E_NUMAUT+B4E_ORIMOV+B4E_SEQUEN+B4E_STATUS	Operadora + Local Digit + Codigo PEG + Nro Autori + Origem Movto + Seq	Operadora + Local Digit + Codigo PEG + Nro Autori + Origen Movto + Sec	Operator + Typing Locat + PEG Code + Authoriz Nr. + Transfr Orgn + Seq	S			S	2	3
B4E	4	B4E_FILIAL+B4E_OPEMOV+B4E_ANOAUT+B4E_MESAUT+B4E_NUMAUT+B4E_CODPAD+B4E_CODPRO	Operadora + Ano Auditori + Mes Autori + Nro Autori + Tp.Pad. + Cod.Pro	Operadora + Ano Auditori + Mes Autori + Nro Autori + Tl.Est. + Cod.Pro	Operator + Audit Year + Authoriz Mth + Authoriz Nr. + St. Tp + Proc Co	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
B4E_CDGTIS	001	Eval({\|\| PlsSeek("BTQ",1,"38"+FwFldGet("B4E_CDGTIS")), BTQ->BTQ_DESTER})	B4E_DSGTIS				0			S