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

B4D

DATA

B4D990

Cabeçalho Recurso de Glosa

Encabezado Recurso de Glosa

Disallowance Resource Header

C

E

0

B4D_FILIAL+B4D_OPEMOV+B4D_CODLDP+B4D_CODPEG+B4D_NUMAUT+STR(B4D_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

B4D

01

B4D_FILIAL

C

2

0

Filial

Filia

1

033

B4D

02

B4D_STATUS

C

1

0

Status

Status do Recurso

@!

'0'

1

S

V

R

0=Rec Glosa Edição;1=Rec Glosa Protocolado;2=Rec Glosa Em Analise;3=Rec Glosa Autorizado;4=Rec Glosa Negado;5=Aut Parcial

X3COMBO("B4D_STATUS",B4D->B4D_STATUS)

B4D

03

B4D_PROTOC

C

12

0

Nr Protocolo

Número do Protocolo

@!

1

S

V

R

B4D

04

B4D_CODPEG

C

8

0

PEG

Codigo da PEG

@!

1

S

V

R

B4D

05

B4D_NUMAUT

C

8

0

Nro Autori

Nro Auditoria

@!

1

S

V

R

B4D

06

B4D_MESAUT

C

2

0

Mes Autori

Mes Auditoria

@!

1

N

V

R

B4D

07

B4D_CODLDP

C

4

0

Local Digit

Codigo Local de Digitacao

1

S

V

R

B4D

08

B4D_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

B4D

09

B4D_SEQB4D

C

6

0

Seq. Glosa

@!

1

N

V

R

B4D

10

B4D_OPEMOV

C

4

0

Operadora

@!

PLSINTPAD()

1

N

V

R

B4D

11

B4D_GUIREF

C

18

0

Nro.Gui.Ref

Número da Guia Referencia

@R !!!!.!!.!!!!!!!!!!!!

If(Empty(M->B4D_GUIREF),.T.,PLA09ALIB(M->B4D_GUIREF))

1

N

V

R

B4D

12

B4D_TIPGUI

C

2

0

Tipo de Guia

@!

1

N

V

R

B4D

13

B4D_DATSOL

D

8

0

Data Sol.

dDataBase

1

S

A

R

!EMPTY(M->B4D_GLOPRT) .AND. M->B4D_STATUS $ " ,0,4"

B4D

14

B4D_USUARI

C

17

0

Matricula

@R !!!!.!!!!.!!!!!!.!!-!

PLA09AUSU()

If(Inclui,"",B4D->(B4D_OPEUSR+B4D_CODEMP+B4D_MATRIC+B4D_TIPREG+B4D_DIGITO))

1

S

V

R

B4D->(B4D_OPEUSR+B4D_CODEMP+B4D_MATRIC+B4D_TIPREG+B4D_DIGITO)

B4D

15

B4D_OPEUSR

C

4

0

Operadora

@!

1

N

V

R

B4D

16

B4D_CODEMP

C

4

0

Empresa

@!

1

N

V

R

B4D

17

B4D_CONEMP

C

12

0

Contrato

@!

1

N

V

R

B4D

18

B4D_SUBCON

C

9

0

Subcontrato

@!

1

N

V

R

B4D

19

B4D_VERCON

C

3

0

Versao Cont.

@!

1

N

V

R

B4D

20

B4D_VERSUB

C

3

0

Ver.Sub.Con.

@!

1

N

V

R

B4D

21

B4D_MATRIC

C

6

0

Matricula

@!

1

N

V

R

B4D

22

B4D_TIPREG

C

2

0

Tipo Reg.

@!

1

N

V

R

B4D

23

B4D_DIGITO

C

1

0

Digito

@!

1

N

V

R

B4D

24

B4D_NOMUSR

C

70

0

Nome Usr.

@!

1

S

V

R

B4D

25

B4D_REGANS

C

6

0

Reg Ans

Registro ANS

@!

Posicione("BA0",1,xFilial("B4A")+M->B4D_OPEMOV,"BA0_SUSEP")

1

N

V

R

B4D

26

B4D_NOMOPE

C

60

0

Nome Oper.

Nome da Operadora

@!

1

N

V

R

B4D

27

B4D_OBJREC

C

1

0

Obj Recurso

Objeto do Recurso

@!

1

S

V

R

1=Protocolo;2=Guia;3=Item

B4D

28

B4D_NGLOPE

C

20

0

Nro.Gui.Oper

Nro Guia do Recurso Glosa

@!

1

N

V

R

B4D

29

B4D_CODRDA

C

6

0

Cod. RDA

Codigo na Operadora

@!

1

S

V

R

B4D

30

B4D_NOMCON

C

70

0

Nome Contr.

Nome do Contratado

@!

1

N

V

R

B4D

31

B4D_NUMLOT

C

12

0

Num. Lote

Numero do Lote

@!

1

N

V

R

B4D

32

B4D_GLOPRT

C

4

0

Cod.Glo.Prot

Codigo da Glosa do Protoc

@!

1

N

V

R

B4D

33

B4D_JUSPRO

M

10

0

Justif. Prot

Justificativa Glosa Integ

@

1

N

A

R

!EMPTY(M->B4D_GLOPRT) .AND. M->B4D_STATUS $ " ,0,4"

B4D

34

B4D_ACAPRO

C

1

0

Prot. Acatad

Protocolo Acatado

@!

1

N

A

R

N=Não;S=Sim

M->B4D_OBJREC == "1" .AND. M->B4D_STATUS $ "1,2"

B4D

35

B4D_GUIPRE

C

20

0

Nr.Guia Pres

Numero da Guia no Prestad

@!

1

N

V

R

B4D

36

B4D_ATROPE

C

20

0

Nr.Guia Oper

Numero Guia Atrib Operado

@!

1

N

V

R

B4D

37

B4D_SENHA

C

20

0

Senha

@!

1

N

V

R

B4D

38

B4D_GLOGUI

C

4

0

Cod.Glo.Guia

Codigo da Glosa da Guia

@!

1

N

V

R

B4D

39

B4D_JUSGUI

M

10

0

Justif. Guia

Jus Glosa Integ Guia

@

1

N

A

R

!EMPTY(M->B4D_GLOGUI) .AND. M->B4D_STATUS $ " ,0,4"

B4D

40

B4D_ACAGUI

C

1

0

Guia Acatado

@!

1

N

A

R

N=Não;S=Sim

M->B4D_OBJREC <> "1" .AND. M->B4D_STATUS $ "1,2"

B4D

41

B4D_TOTREC

N

16

2

Tot. Recur.

Vlr Total Recursado

@E 9,999,999,999,999.99

1

S

V

R

B4D

42

B4D_TOTACA

N

16

2

Tot. Acat.

Vlr Total Acatado

@E 9,999,999,999,999.99

1

S

V

R

B4D

43

B4D_DATREC

D

8

0

Dt. Recur.

Data do Recurso

1

S

A

R

M->B4D_STATUS $ " ,0,4"

B4D

44

B4D_VLRGLO

N

16

2

Valor Glosad

Vlr Total Glosado

@E 9,999,999,999,999.99

1

S

V

R

B4D

45

B4D_SEQREC

C

3

0

Seq. Glosa

@!

1

N

V

R

B4D

46

B4D_OPELOT

C

4

0

Ope. Lote

Operadora do Lote

@!

1

N

V

R

B4D

47

B4D_DESGLO

C

200

0

Descr. Glosa

Descrição da Glosa

@!

1

N

V

R

B4D

48

B4D_GLOPLS

C

4

0

Cod.Glo.Pls

Codigo da Glosa Interno

@!

1

N

V

R

B4D

49

B4D_QTDIRP

N

3

0

Qtd.Rec.Port

Qtd.Rec.Incluidos Portal

999

1

N

V

R

B4D

50

B4D_JUSOPE

M

10

0

Just. Operad

Justificativa Operadora

@!

1

N

A

R

B4D

51

B4D_DCDDLP

C

4

0

Local Dig De

Local Digitação Destino

@!

1

S

V

R

B4D

52

B4D_DCDPEG

C

8

0

PEG Destino

PEG de destino

@!

1

S

V

R

B4D

53

B4D_DNUMER

C

8

0

Numero Dest.

Número da Guia Destino

@!

1

S

V

R

B4D

54

B4D_ANOAUT

C

4

0

Ano Autoria

Ano Auditoria

@!

1

N

V

R

B4D

55

B4D_ORIENT

C

1

0

Orig. Entrad

Origem da entrada Recurso

@!

1

S

V

R

1=Remote;2=Portal;3=WSDL;4=XML

B4D

56

B4D_CDGTIS

C

4

0

Cod Glo TISS

Código da Glosa TISS

@!

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

BTQRGL

1

S

N

A

R

B4D

57

B4D_DSGTIS

C

70

0

Des Glo TISS

Descrição GlosaTISS

@!

iif(Inclui,"",Posicione("BTQ",1,xFilial("BTQ")+"38"+B4D->B4D_CDGTIS,"BTQ_DESTER"))

1

N

V

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
B4D	1	B4D_FILIAL+B4D_OPEMOV+B4D_ANOAUT+B4D_MESAUT+B4D_NUMAUT	Operadora + Ano Autoria + Mes Autori + Nro Autori	Operadora + Ano Autoria + Mes Autori + Nro Autori	Operator + Authoriz Yr + Authoriz Mth + Authoriz Nr.	S			N	2	3
B4D	2	B4D_FILIAL+B4D_NOMUSR	Nome Usr.	Nombre Usr.	User Name	S			S	2	3
B4D	3	B4D_FILIAL+B4D_OPEUSR+B4D_CODEMP+B4D_MATRIC+B4D_TIPREG+B4D_DIGITO	Operadora + Empresa + Matricula + Tipo Reg. + Digito	Operadora + Empresa + Matricula + Tipo Reg. + Digito	Operator + Company + Registration + Reg. Type + Digit	S			S	2	3
B4D	4	B4D_FILIAL+B4D_GUIREF	Nro.Gui.Ref	Nro.Form.Ref	Ref.Form No.	S			N	2	3
B4D	5	B4D_FILIAL+B4D_OPEMOV+B4D_CODLDP+B4D_CODPEG+B4D_NUMAUT	Operadora + Local Digit + PEG + Nro Autori	Operadora + Local Digit + PEG + Nro Autori	Operator + Typng Field + PEG + Authoriz Nr.	S			S	2	3
B4D	6	B4D_FILIAL+B4D_SEQB4D+B4D_SEQREC	Seq. Glosa + Seq. Glosa	Sec. Glosa + Sec. Glosa	Disall. Seq. + Dis Seq	S			N	2	3
B4D	7	B4D_FILIAL+B4D_OPELOT+B4D_NUMLOT	Ope. Lote + Num. Lote	Oper. Lote + Num. Lote	Batch Oper + Lot Number	S			S	2	3
B4D	8	B4D_FILIAL+B4D_PROTOC	Nr Protocolo	Nº Comprob.	Protocol No.	S			S	2	3
B4D	9	B4D_FILIAL+B4D_DCDDLP+B4D_DCDPEG+B4D_DNUMER	Local Dig De + PEG Destino + Numero Dest.	Lugar Dig De + PEG Destino + Número Dest.	Place Ent De + Dest PEG + Dest number	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
B4D_CDGTIS	001	Eval({\|\| PlsSeek("BTQ",1,"38"+FwFldGet("B4D_CDGTIS")), BTQ->BTQ_DESTER})	B4D_DSGTIS	P	N		0			S

X9_DOM

X9_IDENT

X9_CDOM

X9_EXPDOM

X9_EXPCDOM

X9_PROPRI

X9_LIGDOM

X9_LIGCDOM

X9_CONDSQL

X9_USEFIL

X9_ENABLE

X9_VINFIL

X9_CHVFOR

B4D

001

B4E

B4D_SEQB4D+B4D_CODPEG

B4E_SEQB4D+B4E_CODPEG

S

1

N

S

2

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

Tabela 2410 B4D

Cores para Legenda no sistema protheus

Lista de Acessos Protheus

WebApp, webAgent

ASSINE A NEWSLETTER

PIX uDesenv

Siga-nos

Parceiros