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

B4Q

DATA

B4Q990

CABECALHO PRORROGACAO INTERNA

ENCABEZADO PRORROGACIÓN INTERN

INTERN POSTPONING HEADER

C

E

0

B4Q_FILIAL+B4Q_OPEMOV+B4Q_ANOAUT+B4Q_MESAUT+B4Q_NUMAUT

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

B4Q

01

B4Q_FILIAL

C

2

0

Filial

1

033

B4Q

02

B4Q_OPEMOV

C

4

0

Operadora

@!

If(Empty(M->B4Q_OPEMOV),.T.,BA0->(ExistCpo("BA0",M->B4Q_OPEMOV,1)))

PLSINTPAD()

B89PLS

1

A

R

INCLUI

B4Q

03

B4Q_NOMUSR

C

70

0

Nome

Nome Usr.

@!

1

S

V

R

B4Q

04

B4Q_STATUS

C

1

0

Status

@!

"1"

1

S

V

R

#PLSSTATUS("B4Q")

X3COMBO("B4Q_STATUS",B4A->B4Q_STATUS)

B4Q

05

B4Q_AUDITO

C

1

0

Auditoria?

@!

"0"

1

N

V

R

1=Sim;0=Nao

X3COMBO("B4Q_AUDITO",B4Q->B4Q_AUDITO)

B4Q

06

B4Q_CANCEL

C

1

0

Cancelada?

@!

"0"

1

S

V

R

1=Sim;0=Nao

X3COMBO("B4Q_CANCEL",B4Q->B4Q_CANCEL)

B4Q

07

B4Q_NUMLIB

C

18

0

Nro Autori

Nro Autorizacao

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

IF(INCLUI, "", B4Q->(B4Q_OPEMOV+B4Q_ANOAUT+B4Q_MESAUT+B4Q_NUMAUT) )

1

S

V

B4Q->(B4Q_OPEMOV+B4Q_ANOAUT+B4Q_MESAUT+B4Q_NUMAUT)

B4Q

08

B4Q_ANOAUT

C

4

0

Ano Autori

@!

1

V

R

B4Q

09

B4Q_MESAUT

C

2

0

Mes Autori

@!

1

V

R

B4Q

10

B4Q_NUMAUT

C

8

0

Mes Autori

@!

1

V

R

B4Q

11

B4Q_REGANS

C

8

0

Reg Ans

Registro ANS

@!

"000000"

1

N

V

B4Q

12

B4Q_GUIREF

C

18

0

Nro.Gui.Ref

Número da Guia Referencia

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

If(Empty(M->B4Q_GUIREF),.T.,PLA09PLIB(M->B4Q_GUIREF))

PLSB4Q

1

A

R

INCLUI

B4Q

13

B4Q_DATPRO

D

8

0

Data Aut.

Data Autorização

1

V

R

B4Q

14

B4Q_SENHA

C

20

0

Senha

@!

1

V

R

B4Q

15

B4Q_GUIOPE

C

20

0

Nr.Guia Oper

Numero da Guia na Operado

@!

1

A

R

INCLUI

B4Q

16

B4Q_USUARI

C

17

0

Matricula

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

PLA09PUSU()

IF(INCLUI,"",B4Q->(B4Q_OPEUSR+B4Q_CODEMP+B4Q_MATRIC+B4Q_TIPREG+B4Q_DIGITO))

1

S

V

B4Q->(B4Q_OPEUSR+B4Q_CODEMP+B4Q_MATRIC+B4Q_TIPREG+B4Q_DIGITO)

B4Q

17

B4Q_MATANT

C

17

0

Mat. Antiga

@!

1

S

V

R

B4Q

18

B4Q_OPEUSR

C

4

0

Operadora

@!

1

V

R

B4Q

19

B4Q_CODEMP

C

4

0

Empresa

@!

1

V

R

B4Q

20

B4Q_CONEMP

C

12

0

Contrato

@!

1

V

R

B4Q

21

B4Q_SUBCON

C

9

0

Subcontrato

@!

1

V

R

B4Q

22

B4Q_VERCON

C

3

0

Versao Cont.

@!

1

V

R

B4Q

23

B4Q_VERSUB

C

3

0

Ver.Sub.Con.

@!

1

V

R

B4Q

24

B4Q_MATRIC

C

6

0

Matricula

@!

1

V

R

B4Q

25

B4Q_TIPREG

C

2

0

Tipo Reg.

@!

1

V

R

B4Q

26

B4Q_DIGITO

C

1

0

Digito

@!

1

V

R

B4Q

27

B4Q_CODRDA

C

6

0

Cd Cred/Coop

Cod. Credenc

@!

IF(INCLUI,"",B4Q->B4Q_CODRDA)

1

A

R

INCLUI

B4Q

28

B4Q_NOMRDA

C

40

0

Nm.Cred/Coop

credenciado

@!

IF(INCLUI,"",B4Q->B4Q_NOMRDA)

1

V

R

B4Q

29

B4Q_ALTURA

N

6

2

Altura

Altura (cm)

@E 999.99

1

A

R

B4Q

30

B4Q_SUPCOR

N

5

2

Sup.Corp.

Superficie Corporal (m2)

@E 99.99

1

A

R

B4Q

31

B4Q_IDADE

N

3

0

Idade

@E 999

PLB4QValid()

1

V

R

PLB4QWhen()

B4Q

32

B4Q_SEXO

C

1

0

Sexo

@!

PLSA09Pprt(.t.)[2]

1

V

R

B4Q

33

B4Q_OPESOL

C

4

0

Operad. Sol.

Operadora Solicitante

@R !.!!!

If(Empty(M->B4Q_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B4Q_OPESOL,1)))

IF(INCLUI,PLSINTPAD(),B4Q->B4Q_OPESOL)

B89PLS

1

A

R

INCLUI

B4Q

34

B4Q_CDPFSO

C

6

0

Cd.Prf.Solic

@!

IF(INCLUI,"",B4Q->B4Q_CDPFSO)

1

V

R

B4Q

35

B4Q_SIGLA

C

7

0

Sigla C.R.

Conselho Sol

@!

If(Empty(M->B4Q_SIGLA),.T.,ExistCpo("BAH",M->B4Q_SIGLA))

IF(INCLUI,GETMV("MV_PLSIGLA"),B4Q->B4Q_SIGLA)

B53PLS

1

A

R

INCLUI

B4Q

36

B4Q_REGSOL

C

15

0

C.R Solic.

@R !!!!!!!!!!!!!!!

If(Empty(M->B4Q_REGSOL),.T.,PLSA090SOL())

IF(INCLUI,"",B4Q->B4Q_REGSOL)

BTYPLS

1

S

A

R

INCLUI

B4Q

37

B4Q_ESTSOL

C

2

0

UF Solic.

@!

If(Empty(M->B4Q_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B4Q_ESTSOL,1)))

IF(INCLUI,GETMV("MV_PLSESPD"),B4Q->B4Q_ESTSOL)

1

A

R

INCLUI

B4Q

38

B4Q_NOMSOL

C

30

0

Nome Solic.

Nome Prof. Solicitante

@!

1

S

V

R

B4Q

39

B4Q_QTDADD

N

3

0

Diarias Adic

@E 999

1

V

R

B4Q

40

B4Q_TIPACO

C

2

0

Tipo Acomod.

ExistCpo("BI4",M->B4Q_TIPACO,1)

B45PLS

1

A

R

INCLUI

B4Q

41

B4Q_QTDADA

N

3

0

Dia. Autoriz

@E 999

1

V

R

INCLUI

B4Q

42

B4Q_TIPACA

C

2

0

Tip. Acom. A

1

V

R

B4Q

43

B4Q_DATSOL

D

8

0

Data Sol.

Data Solicitação

DDATABASE

1

S

A

R

INCLUI

B4Q

44

B4Q_INDCLI

M

10

0

Ind. Clinica

@!

1

A

R

B4Q

45

B4Q_JUSOPE

M

10

0

Just. operad

@!

1

A

R

B4Q

46

B4Q_GUIPRE

C

18

0

Nro.Gui.Ref

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

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

1

A

R

B4Q

47

B4Q_JUSOBS

M

10

0

Just. / Obs.

@!

1

A

R

B4Q

48

B4Q_COMUNI

C

1

0

On-Line?

@!

1

S

V

R

1=Sim;0=Nao

B4Q

49

B4Q_NRAOPE

C

20

0

Nr Aut Oper.

@!

1

S

V

R

B4Q

50

B4Q_PESO

N

6

2

Peso

@E 999.99

1

A

R

B4Q

51

B4Q_TELSOL

C

13

0

Tel. Solic.

@!

1

A

R

B4Q

52

B4Q_EMASOL

C

60

0

Email Solic.

@!

1

A

R

B4Q

53

B4Q_PROATE

C

20

0

Protocolo

@!

1

S

V

R

B4Q

54

B4Q_STTISS

C

1

0

Stat. Tiss

Status tiss

1

N

V

R

#PLSGUTISS()

B4Q

55

B4Q_NRAEMP

C

20

0

Nr Aut Empr.

Numero Aut. Empresa

@!

1

S

A

R

B4Q

56

B4Q_ESPSOL

C

3

0

Esp. solicit

Especial. do Solicitante

VAZIO() .OR. ExistCPO("BQ1", M->B4Q_CDPFSO + M->B4Q_ESPSOL)

1

S

N

A

R

!EMPTY(M->B4Q_REGSOL)

B4Q

57

B4Q_DESESP

C

50

0

Des Esp Sol

Descri. Especialidade

@!

PLSB4QDES()

1

N

V

B4Q

58

B4Q_CANTIS

C

15

0

Canc. TISS

@!

1

S

V

R

B4Q

59

B4Q_CANEDI

C

250

0

Descr. Cance

Descr. Cancelamento

@!

1

S

V

R

B4Q

60

B4Q_DESOPE

C

25

0

Oper. Movto.

Operadora Mv

@!

1

N

A

R

B4Q

61

B4Q_NOMSOC

C

70

0

Nome Social

@!

1

S

V

R

B4Q

62

B4Q_LOTGUI

C

12

0

Lot Guia

Numero Lote Guia

1

S

V

R

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
B4Q	1	B4Q_FILIAL+B4Q_OPEMOV+B4Q_ANOAUT+B4Q_MESAUT+B4Q_NUMAUT	Operadora + Ano Autori + Mes Autori + Mes Autori	Operadora + Año Autor. + Mes Autori + Mes Autori	Operator + Author Year + Author Mth + Author Mth	S			S	2	3
B4Q	2	B4Q_FILIAL+B4Q_NOMUSR	Nome	Nombre	Name	S			S	2	3
B4Q	3	B4Q_FILIAL+B4Q_OPEUSR+B4Q_CODEMP+B4Q_MATRIC+B4Q_TIPREG+B4Q_DIGITO	Operadora + Empresa + Matricula + Tipo Reg. + Digito	Operadora + Empresa + Matrícula + Tipo Reg. + Dígito	Operator + Company + Registration + Rec Type + Digit	S			S	2	3
B4Q	4	B4Q_FILIAL+B4Q_GUIREF	Nro.Gui.Ref	Nº Form Ref	Ref Form No	S			S	2	3
B4Q	5	B4Q_FILIAL+B4Q_GUIPRE	Nro.Gui.Ref	Nº Form Ref	Ref Form No	S			S	2	3
B4Q	6	B4Q_FILIAL+B4Q_SENHA	Senha	Contraseña	Password	S			S	2	3
B4Q	7	B4Q_FILIAL+B4Q_NOMSOC	Nome Social	Nomb Social	Social Name	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
B4Q_ESPSOL	001	BQ1->BQ1_DESCRI	B4Q_DESESP	P	S	BQ1	1	xFilial("BQ1") + M->(B4Q_CDPFSO + B4Q_ESPSOL)		S
B4Q_REGSOL	001	BB0->BB0_NOME	B4Q_NOMSOL	P	S	BB0	4	xFilial("B4Q")+M->B4Q_ESTSOL+M->B4Q_REGSOL+M->B4Q_SIGLA+M->B4Q_OPESOL		S
B4Q_REGSOL	002	BB0->BB0_CODIGO	B4Q_CDPFSO	P	N		0			S
B4Q_REGSOL	003	" "	B4Q_ESPSOL	P	N		0	EMPTY(M->B4Q_REGSOL)		S
B4Q_REGSOL	004	" "	B4Q_DESESP	P	N		0	EMPTY(M->B4Q_REGSOL)		S
B4Q_USUARI	001	BA1->BA1_CODEMP	B4Q_CODEMP	P	N		0			S
B4Q_USUARI	002	BA1->BA1_MATRIC	B4Q_MATRIC	P	N		0			S
B4Q_USUARI	003	BA1->BA1_TIPREG	B4Q_TIPREG	P	N		0			S
B4Q_USUARI	004	BA1->BA1_CODEMP	B4Q_CODEMP	P	N		0			S
B4Q_USUARI	005	BA1->BA1_DIGITO	B4Q_DIGITO	P	N		0			S
B4Q_USUARI	006	BA1->BA1_CONEMP	B4Q_CONEMP	P	N		0			S
B4Q_USUARI	007	BA1->BA1_VERCON	B4Q_VERCON	P	N		0			S
B4Q_USUARI	008	BA1->BA1_SUBCON	B4Q_SUBCON	P	N		0			S
B4Q_USUARI	009	BA1->BA1_VERSUB	B4Q_VERSUB	P	N		0			S
B4Q_USUARI	010	IIF(!Empty(M->BE4_USUARI),BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO),"")	B4Q_USUARI	P	N		0			S