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

BHJ

DATA

BHJ990

Produtos Co-Participação

Productos Co-participación

Co-participation products

C

E

0

N

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

BHJ

01

BHJ_FILIAL

C

2

0

Filial

1

033

BHJ

02

BHJ_CODINT

C

4

0

Cd Operadora

Cod.Operadora

@!

1

BHJ

03

BHJ_CODPLA

C

4

0

Codigo Plano

Cod Plano

@!

1

BHJ

04

BHJ_VERSAO

C

3

0

Versao

@!

1

BHJ

05

BHJ_TIPO

C

1

0

Reg Atendto

Tipo

@!

1

1=Internacao;2=Ambulatorial;3=Ambos

BHJ

06

BHJ_QTD

N

6

0

Qtd. Até

Quantidade

999999

1

BHJ

07

BHJ_PERCOP

N

16

2

% Co-Part.

% Co-Participacao

@E 9,999,999,999,999.99

1

M->BHJ_VLRCOP==0

BHJ

08

BHJ_VALCOP

N

16

2

Vlr.Co-Part.

Valor Co-Participacao

@E 9,999,999,999,999.99

1

M->BHJ_PERCOP==0

BHJ

09

BHJ_VLRCOP

N

16

2

Vlr.CoPar.

Valor Co-Participacao

@E 9,999,999,999,999.99

1

M->BHJ_PERCOP==0

BHJ

10

BHJ_VALUS

N

16

4

Valor U.S

Valor da U.S

@E 99,999,999,999.9999

1

PLSA800WHE("09")

BHJ

11

BHJ_TXADM

N

16

2

Taxa Admin.

Taxa de Administracao

@E 9,999,999,999,999.99

1

BHJ

12

BHJ_LIMFRA

N

16

2

Vlr.Franq.

Limite Valor Franquia

@E 9,999,999,999,999.99

1

BHJ

13

BHJ_CODTAB

C

7

0

Tab.CoPar.

Cod Tabela Co-Partip.

@R !!!!.!!!

Vazio() .or. ExistCpo("BF8",M->BHJ_CODTAB,1)

B68PLS

1

M->BHJ_PERCOP > 0

BHJ

14

BHJ_SOMCOM

C

1

0

Som.p/Compra

Somente para compra?

@!

"0"

1

1=Sim;0=Nao

M->BHJ_PAGATO$"0, "

BHJ

15

BHJ_PAGATO

C

1

0

Pagto no Ato

Pagamento Ato do Evento?

@!

"0"

1

1=Sim;0=Nao

M->BHJ_SOMCOM$"0, "

BHJ

16

BHJ_PAGRDA

C

1

0

Pagto na RDA

Pagamento Direto na RDA?

@!

"0"

1

1=Sim;0=Nao

BHJ

17

BHJ_SOMPRO

C

1

0

Somen.Proc.?

Somente Procedimentos ?

@!

"0"

1

1=Sim;0=Nao

BHJ

18

BHJ_ANOMES

C

6

0

Ano/Mês Reaj

Ano/Mês do reajuste

@R !!!!/!!

1

N

V

BHJ

19

BHJ_VLRANT

N

16

2

Valor Ant.

Valor Anterior

@E 9,999,999,999,999.99

1

N

V

BHJ

20

BHJ_TIPUSR

C

1

0

Tipo Benef.

Tipo de Beneficiario

@!

If(Empty(M->BHJ_TIPUSR),.T.,ExistCpo("BIH",M->BHJ_TIPUSR,1))

B47PLS

1

S

BHJ

21

BHJ_DESTIP

C

30

0

Descricao

@!

If(Inclui .Or. Empty(BHJ->BHJ_TIPUSR) ,"",Posicione("BIH",1,xFilial("BIH")+BHJ->BHJ_TIPUSR,"BIH_DESCRI"))

1

V

BHJ

22

BHJ_GRAUPA

C

2

0

Grau Parent.

Grau Parentesco

@!

IF(Empty(M->BHJ_GRAUPA),.T.,ExistCpo("BRP",M->BHJ_GRAUPA,1))

B37PLS

1

S

BHJ

23

BHJ_DESGRA

C

30

0

Descricao

Descricao Grau Parentesco

@!

If(Inclui,"",Posicione("BRP",1,xFilial("BRP")+BHJ->BHJ_GRAUPA,"BRP_DESCRI"))

1

V

BHJ

24

BHJ_IDAINI

N

3

0

Idade Minima

999

Positivo() .AND. M->BHJ_IDAINI <= M->BHJ_IDAFIN

1

S

BHJ

25

BHJ_IDAFIN

N

3

0

Idade Maxima

999

Positivo() .AND. If(!Empty(M->BHJ_IDAINI),M->BHJ_IDAFIN >= M->BHJ_IDAINI,.T.)

999

1

S

BHJ

26

BHJ_FAISAL

C

1

0

Fxa Salarial

Codigo da Faixa Salarial

@!

Pertence(" 12345")

1

N

A

R

1=Nivel 1;2=Nivel 2;3=Nivel 3;4=Nivel 4;5=Nivel 5

BHJ

27

BHJ_RDACRE

C

1

0

Rede Credenc

Rede Credenciada

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

BHJ

28

BHJ_RDAPRE

C

1

0

Rede Prefere

Rede Preferencial

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

M->BHJ_RDACRE = "1"

BHJ

29

BHJ_PERCO2

N

16

2

% Co-Part2

@E 9,999,999,999,999.99

1

N

A

R

M->BHJ_VLRCO2 = 0

BHJ

30

BHJ_VLRCO2

N

16

2

Vlr.Co-Par2

@E 9,999,999,999,999.99

1

N

A

R

M->BHJ_PERCO2

BHJ

31

BHJ_VLRMIN

N

16

2

Valor Minimo

Valor Minimo Co-Participa

@E 9,999,999,999,999.99

1

N

A

R

BHJ

32

BHJ_ACUMUL

C

1

0

Cons. p/Acum

Considerar para Acumulo

@!

Pertence("12")

1

N

A

R

1=Inclusao do Contrato;2=Inclusao do Usuario

BHJ

33

BHJ_CONSTB

C

1

0

Cons Tab Pad

Considera Copart Tab. Pad

@!

Pertence("01")

1

S

A

R

0=Não;1=Sim

BHJ

34

BHJ_VIGINI

D

8

0

Vig. Inicial

Data de inicio da Vigênci

PlsVldBHJ()

1

S

A

R

BHJ

35

BHJ_VIGFIN

D

8

0

Vig. Final

Data Final da Vigência

Vazio() .or. PlsVldBHJ()

1

S

A

R

BHJ

36

BHJ_TABCOP

C

4

0

Tab. Cop. In

Tabela Co-Participacao po

@!

VAZIO() .OR. BRT->(ExistCpo("BRT",M->BHJ_TABCOP,1))

PLSBRT

1

N

A

R

BHJ

37

BHJ_FINATE

C

2

0

Finalidade

Finalidade Atendimento

@!

Vazio() .or. PlsSeek("BGY",1,M->BI3_CODINT+M->BHJ_FINATE,"","")

BGYPLS

1

S

A

R

BHJ

38

BHJ_DESFIN

C

70

0

Ds Finalidad

Desc. Finalidade Atend.

@!

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+BHJ->(BHJ_CODINT+BHJ_FINATE),"BGY_DESCRI")))

1

S

V

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BHJ	1	BHJ_FILIAL+BHJ_CODINT+BHJ_CODPLA+BHJ_VERSAO	Cd Operadora + Codigo Plano + Versao	Cd Operadora + Codigo Plan + Version	OperatorCode + Plan code + Version	S			S	2	3
BHJ	2	BHJ_FILIAL+BHJ_TABCOP	Tab. Cop. In	Tab. Cop. In	In Cop. Tab.	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
BHJ_GRAUPA	001	BRP->BRP_DESCRI	BHJ_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHJ_GRAUPA		S
BHJ_TIPUSR	001	If(M->BHJ_TIPUSR==GETMV("MV_PLCDTIT"),GETMV("MV_PLCDTGP"),"")	BHJ_GRAUPA	P	N		0			S
BHJ_TIPUSR	002	BRP->BRP_DESCRI	BHJ_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHJ_GRAUPA	M->BHJ_TIPUSR==GETMV("MV_PLCDTIT")	S
BHJ_TIPUSR	003	BIH->BIH_DESCRI	BHJ_DESTIP	P	S	BIH	1	xFilial("BIH")+M->BHJ_TIPUSR		S