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

BHE

DATA

BHE990

Grupo Empresas Co-Participação

Grupo Empresas Co-Participació

Co-participation companies gro

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

BHE

01

BHE_FILIAL

C

2

0

Filial

1

033

BHE

02

BHE_CODINT

C

4

0

Cd Operadora

Cod.Operadora

@!

1

BHE

03

BHE_CODIGO

C

4

0

Grp/Empresa

Grupo/Empresa

@!

1

S

BHE

04

BHE_SEQUEN

C

3

0

Sequencia

@!

StrZero(n,3)

1

S

V

BHE

05

BHE_TIPO

C

1

0

Reg. Atdmto

Regime de Atendimento

@!

1

1=Internacao;2=Ambulatorial;3=Ambos

BHE

06

BHE_QTD

N

6

0

Qtd. Até

Quantidade

999999

1

BHE

07

BHE_PERCOP

N

16

2

% Co-Part.

% Co-Participacao

@E 9,999,999,999,999.99

1

PLSA660WHE("04")

BHE

08

BHE_VLRCOP

N

16

2

Vlr.CoPar.

Valor Co-Participacao

@E 9,999,999,999,999.99

1

PLSA660WHE("05")

BHE

09

BHE_TXADM

N

16

2

Taxa Admin.

Taxa de Administracao

@E 9,999,999,999,999.99

1

BHE

10

BHE_LIMFRA

N

16

2

Vlr.Franquia

Limite Valor Franquia

@E 9,999,999,999,999.99

1

BHE

11

BHE_VALUS

N

16

4

Valor U.S

Valor da U.S

@E 99,999,999,999.9999

1

PLSA660WHE("06")

BHE

12

BHE_CODTAB

C

7

0

Tab.CoPar.

Cod Tabela Co-Partip.

@R !!!!.!!!

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

B68PLS

1

M->BHE_PERCOP > 0

BHE

13

BHE_SOMCOM

C

1

0

Som.p/Compra

Somente para compra?

@!

Pertence("01")

"0"

1

1=Sim;0=Nao

M->BHE_PAGATO$"0, "

BHE

14

BHE_PAGATO

C

1

0

Pagto no Ato

Pagamento Ato do Evento?

@!

Pertence("01")

"0"

1

1=Sim;0=Nao

M->BHE_SOMCOM$"0, "

BHE

15

BHE_PAGRDA

C

1

0

Pagto na RDA

Pagamento Direto na RDA?

@!

"0"

1

1=Sim;0=Nao

BHE

16

BHE_GRPINT

C

3

0

Grp Intern.

Grupo de Internacao

@!

BQR->(ExistCpo("BQR"))

BAFPLS

1

M->BHE_TIPO=="1"

BHE

17

BHE_NUMCON

C

12

0

Num.Contrato

Numero Contrato

cCodNumCon

1

V

BHE

18

BHE_VERCON

C

3

0

Versao Cont.

Versao Contrato

cCodVerCon

1

V

BHE

19

BHE_SUBCON

C

9

0

Sub-contrato

cCodNumSubCon

1

V

BHE

20

BHE_VERSUB

C

3

0

Versao Sub.

Versao Sub-contrato

cCodVerSubCon

1

V

BHE

21

BHE_CODPRO

C

4

0

Produto

cCodProSel

1

V

BHE

22

BHE_CODPAD

C

2

0

Tipo Tab.Pad

Tipo Tabela Padrao

cCodPad

1

V

BHE

23

BHE_CODPSA

C

16

0

Tab. Padrao

Tabela Padrao

cCodPsa

1

V

BHE

24

BHE_ANOMES

C

6

0

Ano/Mês Reaj

Ano/Mês do reajuste

@R !!!!/!!

1

N

V

BHE

25

BHE_VERPRO

C

3

0

Versão

@!

cVersaoSel

1

S

V

R

BHE

26

BHE_VLRANT

N

16

2

Valor Ant.

Valor Anterior

@E 9,999,999,999,999.99

1

N

V

BHE

27

BHE_TIPUSR

C

1

0

Tipo Benef.

Tipo de Beneficiario

@!

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

B47PLS

1

S

BHE

28

BHE_DESTIP

C

30

0

Descricao

@!

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

1

V

BHE

29

BHE_GRAUPA

C

2

0

Grau Parent.

Grau Parentesco

@!

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

B37PLS

1

S

BHE

30

BHE_DESGRA

C

30

0

Descricao

Descricao Grau Parentesco

@!

If(Inclui,"",Posicione("BRP",1,xFilial("BRP")+BHE->BHE_GRAUPA,"BRP_DESCRI"))

1

V

BHE

31

BHE_IDAINI

N

3

0

Idade Minima

999

Positivo() .AND. M->BHE_IDAINI <= M->BHE_IDAFIN

1

S

BHE

32

BHE_IDAFIN

N

3

0

Idade Maxima

999

Positivo() .AND. If(!Empty(M->BHE_IDAINI),M->BHE_IDAFIN >= M->BHE_IDAINI,.T.)

999

1

S

BHE

33

BHE_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

BHE

34

BHE_RDACRE

C

1

0

Rede Credenc

Rede Credenciada

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

BHE

35

BHE_RDAPRE

C

1

0

Rede Prefere

Rede Preferencial

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

M->BHE_RDACRE = "1"

BHE

36

BHE_PERCO2

N

16

2

% Co-Part2

@E 9,999,999,999,999.99

1

N

A

R

M->BHE_VLRCO2 = 0

BHE

37

BHE_VLRCO2

N

16

2

Vlr.Co-Par2

@E 9,999,999,999,999.99

1

N

A

R

M->BHE_PERCO2 = 0

BHE

38

BHE_VLRMIN

N

16

2

Valor Minimo

Valor Minimo Co-Participa

@E 9,999,999,999,999.99

1

N

A

R

BHE

39

BHE_ACUMUL

C

1

0

Cons. p/Acum

Considerar para Acumulo

@!

Pertence("12")

1

N

A

R

1=Inclusao do Contrato;2=Inclusao do Usuario

BHE

40

BHE_VIGINI

D

8

0

Vig. Inicial

Data de inicio da Vigênci

PlsVldBHE()

1

S

A

R

BHE

41

BHE_VIGFIN

D

8

0

Vig. Final

Data Final da Vigência

PlsVldBHE()

1

S

A

R

BHE

42

BHE_FINATE

C

2

0

Finalidade

Finalidade Atendimento

@!

Vazio() .or. PlsSeek("BGY",1,M->BQC_CODINT+M->BHE_FINATE,"","")

BGYPLS

1

S

A

R

BHE

43

BHE_DESFIN

C

70

0

Ds Finalidad

Desc. Finalidade Atend.

@!

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGY")+BHE->(BHE_CODINT+BHE_FINATE),"BGY_DESCRI")))

1

S

V

BHE

44

BHE_CODREA

C

6

0

Código Reaj.

Código do Reajuste

@!

1

N

V

R

BHE

45

BHE_REAVIG

C

6

0

Reaj.Fech.Vg

Reaj. que Fechou Vigência

@!

1

N

V

R

BHE

46

BHE_CODAJS

C

6

0

Código Ajus.

Código do Ajuste

@!

1

N

V

R

BHE

47

BHE_AJSVIG

C

6

0

Ajus.Fech.Vg

Ajus. que Fechou Vigência

@!

1

N

V

R

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BHE	1	BHE_FILIAL+BHE_CODINT+BHE_CODIGO+BHE_NUMCON+BHE_VERCON+BHE_SUBCON+BHE_VERSUB+BHE_CODPRO+BHE_VERPRO+BHE_CODPAD+BHE_CODPSA+BHE_SEQUEN	Cd Operadora + Grp/Empresa + Num.Contrato + Versao Cont. + Sub-contrat	Cd Operadora + Grp/Empresa + Num.Contrato + Version Cont + Subcontrato	OperatorCode + Grp/Company + Contract Nbr + Contr. Vers. + Sub-contrac	S			S	2	3
BHE	2	BHE_FILIAL+BHE_CODREA+BHE_CODINT+BHE_CODIGO+BHE_NUMCON+BHE_VERCON+BHE_SUBCON+BHE_VERSUB+BHE_CODPRO+BHE_VERPRO	Código Reaj. + Cd Operadora + Grp/Empresa + Num.Contrato + Versao Cont	Código Reaj. + Cd Operadora + Grp/Empresa + Num.Contrato + Version Con	Adj.Code + OperatorCode + Grp/Company + Contract Nbr + Contr. Vers. +	S		BHEREAJ	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
BHE_GRAUPA	001	BRP->BRP_DESCRI	BHE_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHE_GRAUPA		S
BHE_TIPUSR	001	If(M->BHE_TIPUSR==GETMV("MV_PLCDTIT"),GETMV("MV_PLCDTGP"),"")	BHE_GRAUPA	P	N		0			S
BHE_TIPUSR	002	BRP->BRP_DESCRI	BHE_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BHE_GRAUPA	M->BHE_TIPUSR==GETMV("MV_PLCDTIT")	S
BHE_TIPUSR	003	BIH->BIH_DESCRI	BHE_DESTIP	P	S	BIH	1	xFilial("BIH")+M->BHE_TIPUSR		S