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

BHI

DATA

BHI990

Produto x Grp Cob x Co-Part

Productos vs.Grp.Cob.vs.Copart

Product vs.Coll.Grp.vs.Co-part

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

BHI

01

BHI_FILIAL

C

2

0

Filial

1

033

BHI

02

BHI_CODINT

C

4

0

Cd Operadora

Cod.Operadora

@!

M->BI3_CODINT

1

V

BHI

03

BHI_CODPLA

C

4

0

Codigo Plano

Cod Plano

@!

1

BHI

04

BHI_VERSAO

C

3

0

Versao

@!

1

BHI

05

BHI_TIPO

C

1

0

Reg Atendto

Tipo

@!

1

1=Internacao;2=Ambulatorial;3=Ambos

BHI

06

BHI_QTD

N

6

0

Qtd. Até

Quantidade

999999

1

BHI

07

BHI_PERCOP

N

16

2

% Co-Part.

% Co-Participacao

@E 9,999,999,999,999.99

1

PLSA800WHE("04")

BHI

08

BHI_VLRCOP

N

16

2

Vlr.CoPar.

Valor Co-Participacao

@E 9,999,999,999,999.99

1

PLSA800WHE("05")

BHI

09

BHI_TABREM

C

7

0

Tb Reembolso

Tabela de Reembolso

@!

ExistCpo("BF8")

B68PLS

1

BHI

10

BHI_VALUS

N

16

4

Valor U.S

Valor da U.S

@E 99,999,999,999.9999

1

PLSA800WHE("06")

BHI

11

BHI_TXADM

N

16

2

Taxa Admin.

Taxa de Administracao

@E 9,999,999,999,999.99

1

BHI

12

BHI_LIMFRA

N

16

2

Vlr.Franq.

Limite Valor Franquia

@E 9,999,999,999,999.99

1

BHI

13

BHI_CODTAB

C

7

0

Tab.CoPar.

Cod Tabela Co-Partip.

@R !!!!.!!!

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

B68PLS

1

M->BHI_PERCOP > 0

BHI

14

BHI_SOMCOM

C

1

0

Som.p/Compra

Somente para compra?

@!

Pertence(01)

"0"

1

1=Sim;0=Nao

BHI

15

BHI_PAGATO

C

1

0

Pagto no Ato

Pagamento Ato do Evento?

@!

Pertence(01)

"0"

1

1=Sim;0=Nao

BHI

16

BHI_PAGRDA

C

1

0

Pagto na RDA

Pagamento Direto na RDA?

@!

"0"

1

1=Sim;0=Nao

BHI

17

BHI_CODGRU

C

3

0

Codigo Grupo

Codigo do Grupo

@!

cCodGru

1

V

BHI

18

BHI_SOMPRO

C

1

0

Somen.Proc.?

Somente Procedimentos ?

@!

"0"

1

1=Sim;0=Nao

BHI

19

BHI_PAGDIF

C

1

0

Pg.Df.Vl.Max

Pg diferenca da franquia?

@!

"0"

1

1=Sim;0=Nao

BHI

20

BHI_VLRATE

N

16

2

Vlr.Mx.Bs.Co

Valor Maximo Base Cop.Par

@E 9,999,999,999,999.99

0

1

M->BHI_PAGDIF = "1" .AND. M->BHI_LIMFRA <> 0

BHI

21

BHI_VIGDE

D

8

0

Vigdencia De

Vigencia De

PlsVldBHI()

1

S

A

R

BHI

22

BHI_VIGATE

D

8

0

Vigencia Até

Vazio() .or. PlsVldBHI()

1

S

A

R

BHI

23

BHI_ANOMES

C

6

0

Ano/Mês Reaj

Ano/Mês do reajuste

@R !!!!/!!

1

N

V

BHI

24

BHI_VLRANT

N

16

2

Valor Ant.

Valor Anterior

@E 9,999,999,999,999.99

1

N

V

BHI

25

BHI_TIPUSR

C

1

0

Tipo Benef.

Tipo de Beneficiario

@!

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

B47PLS

1

S

BHI

26

BHI_DESTIP

C

30

0

Descricao

@!

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

1

V

BHI

27

BHI_GRAUPA

C

2

0

Grau Parent.

Grau Parentesco

@!

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

B37PLS

1

S

BHI

28

BHI_DESGRA

C

30

0

Descricao

Descricao Grau Parentesco

@!

If(Inclui,"",Posicione("BRP",1,xFilial("BRP")+BHI->BHI_GRAUPA,"BRP_DESCRI"))

1

V

BHI

29

BHI_IDAINI

N

3

0

Idade Minima

999

Positivo() .AND. M->BHI_IDAINI <= M->BHI_IDAFIN

1

S

BHI

30

BHI_IDAFIN

N

3

0

Idade Maxima

999

Positivo() .AND. If(!Empty(M->BHI_IDAINI),M->BHI_IDAFIN >= M->BHI_IDAINI,.T.)

999

1

S

BHI

31

BHI_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

BHI

32

BHI_RDACRE

C

1

0

Rede Credenc

Rede Credenciada

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

BHI

33

BHI_RDAPRE

C

1

0

Rede Prefere

Rede Preferencial

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

M->BHI_RDACRE = "1"

BHI

34

BHI_PERCO2

N

16

2

% Co-Part2

@E 9,999,999,999,999.99

1

N

A

R

M->BHI_VLRCO2 = 0

BHI

35

BHI_VLRCO2

N

16

2

Vlr.Co-Par2

@E 9,999,999,999,999.99

1

N

A

R

M->BHI_PERCO2 = 0

BHI

36

BHI_VLRMIN

N

16

2

Valor Minimo

Valor Minimo Co-Participa

@E 9,999,999,999,999.99

1

N

A

R

BHI

37

BHI_ACUMUL

C

1

0

Cons. p/Acum

Considerar para Acumulo

@!

Pertence("12")

1

N

A

R

1=Inclusao do Contrato;2=Inclusao do Usuario

BHI

38

BHI_FINATE

C

2

0

Finalidade

Finalidade Atendimento

@!

Vazio() .or. PlsSeek("BGY",1,M->BHI_CODINT+M->BHI_FINATE,"","")

BGYPLS

1

S

A

R

BHI

39

BHI_DESFIN

C

70

0

Ds Finalidad

Desc. Finalidade Atend.

@!

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+BHI->(BHI_CODINT+BHI_FINATE),"BGY_DESCRI")))

1

S

V

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BHI	1	BHI_FILIAL+BHI_CODINT+BHI_CODPLA+BHI_VERSAO+BHI_CODGRU	Cd Operadora + Codigo Plano + Versao + Codigo Grupo	Cd Operadora + Codigo Plan + Version + Codigo Grupo	OperatorCode + Plan code + Version + Group 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
BHI_FINATE	001	BGY->BGY_DESCRI	BHI_DESFIN	P	S	BGY	1	XFILIAL("BGY")+M->BHI_CODINT+M->BHI_FINATE		S
BHI_GRAUPA	001	BRP->BRP_DESCRI	BHI_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHI_GRAUPA		S
BHI_TIPUSR	001	If(M->BHI_TIPUSR==GETMV("MV_PLCDTIT"),GETMV("MV_PLCDTGP"),"")	BHI_GRAUPA	P	N		0			S
BHI_TIPUSR	002	BRP->BRP_DESCRI	BHI_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHI_GRAUPA	M->BHI_TIPUSR==GETMV("MV_PLCDTIT")	S
BHI_TIPUSR	003	BIH->BIH_DESCRI	BHI_DESTIP	P	S	BIH	1	xFilial("BIH")+M->BHI_TIPUSR		S