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

BGH

DATA

BGH990

Vigências do Grupo Operadora

Vigencias del Grupo Operadora

Operator group validities

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

BGH

01

BGH_FILIAL

C

2

0

Filial

Filial do Sistema

1

033

BGH

02

BGH_GRUOPE

C

2

0

Codigo

@!

BA2->BA2_GRUOPE

1

V

BGH

03

BGH_CODSEQ

C

3

0

Codigo Seq.

Codigo Sequencial

@!

Plsa276Seq()

1

S

V

R

BGH

04

BGH_DATINI

D

8

0

Data Inicial

1

S

BGH

05

BGH_DATFIN

D

8

0

Data Final

Vazio() .OR. M->BGH_DATFIN >= M->BGH_DATINI

1

S

A

R

BGH

06

BGH_VLRFIL

N

16

4

Vlr.Filme

Valor do Filme

@E 99,999,999,999.9999

1

BGH

07

BGH_VLRTAX

N

16

2

Vlr.Tx.Pagar

Vlr.Tx.Pagamento

@E 9,999,999,999,999.99

1

BGH

08

BGH_VLRTRC

N

16

2

Vlr.Tx.Receb

Vlr.Tx.Recebimento

@E 9,999,999,999,999.99

1

BGH

09

BGH_NIVVAL

C

1

0

Nivel Valido

Nivel Valido?

@!

1

1=Sim;0=Nao

M->BGH_VLRTAX==0 .And. M->BGH_VLRTRC == 0

BGH

10

BGH_TABPAG

C

3

0

Tab.Pagto

Tabela Pagamento RDA

@!

VAZIO() .OR. PlsSeek("BF8",1,PLSINTPAD()+M->BGH_TABPAG,"","")

BH2PLS

1

BGH

11

BGH_TABREC

C

3

0

Tab.Recto

Tabela Recebimento RDA

@!

VAZIO() .OR. PlsSeek("BF8",1,PLSINTPAD()+M->BGH_TABREC,"","")

BH2PLS

1

BGH

12

BGH_TIPLIM

C

1

0

Tipo Limite

Tipo Limite Autorização

@C

"1"

1

1=Limite em CH;2=Limite em Reais

BGH

13

BGH_LIMCH

N

7

2

Limite Aut.

Limite Autorização

@E 9,999.99

1

BGH

14

BGH_PERCON

N

4

0

Period.Cons.

Periodicidade Consulta

9999

1

BGH

15

BGH_UNPERI

C

1

0

Unidade

@!

1

1=Horas;2=Dias;3=Meses;4=Anos;5=Vida

BGH

16

BGH_BANDAP

N

16

2

Banda Pag.

Banda Pagamento

@E 9,999,999,999,999.99

1

S

BGH

17

BGH_BANDAR

N

16

2

Banda Rec.

Banda Recebimento

@E 9,999,999,999,999.99

1

S

BGH

18

BGH_TIPUSR

C

1

0

Tipo Benef.

Tipo de Beneficiario

@!

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

B47PLS

1

S

BGH

19

BGH_DESTIP

C

30

0

Descricao

@!

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

1

V

BGH

20

BGH_GRAUPA

C

2

0

Grau Parent.

Grau Parentesco

@!

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

B37PLS

1

S

BGH

21

BGH_DESGRA

C

30

0

Descricao

Descricao Grau Parentesco

@!

If(Inclui,"",Posicione("BRP",1,xFilial("BRP")+BGH->BGH_GRAUPA,"BRP_DESCRI"))

1

V

BGH

22

BGH_IDAINI

N

3

0

Idade Mínima

999

Positivo() .AND. If(!Empty(M->BGH_IDAINI),M->BGH_IDAFIN >= M->BGH_IDAINI,.T.)

1

N

A

R

BGH

23

BGH_IDAFIN

N

3

0

Idade Máxima

999

Positivo() .AND. If(!Empty(M->BGH_IDAINI),M->BGH_IDAFIN >= M->BGH_IDAINI,.T.)

999

1

N

A

R

BGH

24

BGH_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

BGH

25

BGH_RDACRE

C

1

0

Rede Credenc

Rede Credenciada

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

BGH

26

BGH_RDAPRE

C

1

0

Rede Prefere

Rede Preferencial

@!

Pertence("12")

1

N

A

R

1=Sim;2=Nao

M->BGH_RDACRE = "1"

BGH

27

BGH_PERCO2

N

16

2

% Co-Part2

@E 9,999,999,999,999.99

1

N

A

R

M->BGH_VLRCO2 = 0

BGH

28

BGH_VLRCO2

N

16

2

Vlr.Co-Par2

@E 9,999,999,999,999.99

1

N

A

R

M->BGH_PERCO2 = 0

BGH

29

BGH_VLRMIN

N

16

2

Valor Minimo

Valor Minimo Co-Participa

@E 9,999,999,999,999.99

1

N

A

R

BGH

30

BGH_ACUMUL

C

1

0

Cons. p/Acum

Considerar para Acumulo

@!

Pertence("12")

1

N

A

R

1=Inclusao do Contrato;2=Inclusao do Usuario

BGH

31

BGH_SEQREL

C

3

0

Seq Rel

Sequencia Relacionada

@!

PlsSeek("BP8",1, PlsIntPad()+M->BGH_SEQREL,"","")

BP8PLS

1

S

A

R

BGH

32

BGH_FINATE

C

2

0

Finalidade

Finalidade Atendimento

@!

Vazio() .or. PlsSeek("BGY",1,PlsIntPad()+M->BGH_FINATE,"","")

BGYPLS

1

S

A

R

BGH

33

BGH_DESFIN

C

70

0

Ds Finalidad

Desc. Finalidade Atend.

@!

If(Inclui,"",BGY->(Posicione("BGY",1,xFilial("BGX")+PlsIntPad()+BGH->BGH_FINATE,"BGY_DESCRI")))

1

S

V

BGH

34

BGH_DIFIDA

C

1

0

Per Dif Idad

Perid Dif por Idade

@!

'2'

1

N

A

R

1=Sim;2=Nao

BGH

35

BGH_TIPATE

C

1

0

Reg. Atend.

Regime Atendimento

1

N

A

R

1=Internação;2=Ambulatorial;3=Ambos

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BGH	1	BGH_FILIAL+BGH_GRUOPE+BGH_CODSEQ	Codigo + Codigo Seq.	Codigo + Codigo Sec.	Code + SequenceCode	S			S	2	3
BGH	2	BGH_FILIAL+BGH_SEQREL+BGH_GRUOPE	Seq Rel + Codigo	Sec Rel + Codigo	Rel Seq + 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
BGH_FINATE	001	Eval({\|\| PLSSEEK('BGY',1, PLSINTPAD() + M->BGH_FINATE), BGY->BGY_DESCRI})	BGH_DESFIN	P	N		0			S
BGH_GRAUPA	001	BRP->BRP_DESCRI	BGH_DESGRA	P	S	BRP	1	xFilial("BRP")+M->BGH_GRAUPA		S
BGH_TIPUSR	001	BIH->BIH_DESCRI	BGH_DESTIP	P	S	BIH	1	xFilial("BIH")+M->BGH_TIPUSR		S