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

BQV

DATA

BQV990

Evolução das Diárias

Evolucion de las Diarias

Evolution of daily fees

C

E

0

BQV_FILIAL+BQV_CODOPE+BQV_ANOINT+BQV_MESINT+BQV_NUMINT+BQV_SEQUEN

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

BQV

01

BQV_FILIAL

C

2

0

Filial

1

033

BQV

02

BQV_CODOPE

C

4

0

Operadora

@!

1

BQV

03

BQV_ANOINT

C

4

0

Ano Autoriz.

Ano Autorizacao

@!

1

S

V

BQV

04

BQV_MESINT

C

2

0

Mes Autoriz.

Mes Autorizacao

@!

1

S

V

BQV

05

BQV_NUMINT

C

8

0

Num Internac

No. da Internacao

@!

1

S

V

BQV

06

BQV_PACOTE

C

1

0

Pacote?

@!

(Pertence("01") .Or. Vazio())

1

N

A

R

1=Sim;0=Nao

BQV

07

BQV_OPEUSR

C

4

0

Oper. Usr

Operadora do Usuario

@R !.!!!

1

V

BQV

08

BQV_CODEMP

C

4

0

Grp/Empresa

Grupo/Empresa

@!

1

S

V

BQV

09

BQV_MATRIC

C

6

0

Matricula

@!

1

V

BQV

10

BQV_TIPREG

C

2

0

Tipo de Reg.

Tipo Registro

@!

1

V

BQV

11

BQV_DIGITO

C

1

0

Digito

@!

1

V

BQV

12

BQV_SEQUEN

C

3

0

Sequencia

Evento

@!

PLSA092SEQ(1)

1

S

V

BQV

13

BQV_CODPRO

C

16

0

Cd Proc Prin

Cd Procedimento Principal

@!

PLSMUDCOD("BQV") .AND. PLSA092Aut(M->BQV_SEQUEN,M->BQV_CODPAD,M->BQV_CODPRO,M->BQV_QTDPRO,"1","BQV","BE4","BQZ",1,nil,.T.)

BQPPLS

1

S

BQV

14

BQV_DESPRO

C

80

0

Descr. Proc.

Desc Proc.

@!

Iif(Inclui," ",BR8->(Posicione("BR8",1,xFilial("BR8")+BQV->(BQV_CODPAD+BQV_CODPRO),"BR8_DESCRI") ) )

1

S

A

P090PTUGEN()

BQV

15

BQV_QTDSOL

N

7

2

Qtd Solicit

Quantidade Solicitada

@E 9999.99

1

S

A

R

IF(!INCLUI,.F.,.T.)

BQV

16

BQV_QTDPRO

N

12

4

Qtd Realizad

Quantidade Realizada

@E 9,999,999.9999

PLSA092Aut(M->BQV_SEQUEN,M->BQV_CODPAD,M->BQV_CODPRO,M->BQV_QTDPRO,"1","BQV","BE4","BQZ",1)

1

S

IF(!INCLUI,.F.,.T.)

BQV

17

BQV_TIPDIA

C

1

0

Tipo Diaria

Tipo da Diaria

@!

"1"

1

S

A

R

1=Demais;2=UTI

BQV

18

BQV_CODPAD

C

2

0

Cod Tipo Pad

Cod. Tipo Tabela

@!

ExistCpo("BR4",M->BQV_CODPAD,1)

GETMV("MV_PLSTBPD")

B41PLS

1

A

R

BQV

19

BQV_ATERNA

C

1

0

Recem-Nasc.

Atendimento Recem Nascido

@!

"0"

1

1=Sim;0=Nao

BQV

20

BQV_DTENTR

D

8

0

Dt. Ent

Data Entrada

@D

1

BQV

21

BQV_HRENTR

C

4

0

Hr. Ent

Hora da Entrada

@!

1

BQV

22

BQV_DIAGNO

C

30

0

Diagnostico

@!

1

S

A

R

BQV

23

BQV_RESAUT

C

40

0

Resp Autoriz

Responsável Autorização

@!

1

S

A

R

BQV

24

BQV_PADCON

C

6

0

Pad Conforto

Padrão de Conforto

@!

Vazio() .Or. PlsSeek("BN5",1, M->BE4_OPEUSR+M->BQV_PADCON,"","")

BVTPLS

1

S

A

R

BQV

25

BQV_AUDITO

C

1

0

Auditoria?

@!

Pertence('01')

"0"

1

S

0=Nao;1=Sim

M->BQV_STATUS=="0"

BQV

26

BQV_SEQIMP

C

10

0

Seq. Impress

Sequencia de Impressão

@!

1

S

V

BQV

27

BQV_CANCEL

C

1

0

Cancelado

@!

"0"

1

S

V

1=Sim;0=Não

BQV

28

BQV_CHVNIV

C

20

0

Chave Nivel

@!

1

V

BQV

29

BQV_CODAUD

C

6

0

Cod.Auditor

Codigo do Auditor

@D

1

S

BQV

30

BQV_COMUNI

C

1

0

On-Line?

@!

"0"

1

S

V

1=Sim;0=Não

BQV

31

BQV_IMGSTA

C

7

0

Image Status

@BMP

If(Inclui,"DISABLE",If(BQV->BQV_STATUS=="0","DISABLE","ENABLE"))

1

V

BQV

32

BQV_NIVAUT

C

3

0

Nivel Autor.

Nivel Autorizado

@!

1

V

BQV

33

BQV_NIVCRI

C

3

0

Nivel Critic

Nv Critica

@!

1

V

BQV

34

BQV_NIVEL

C

1

0

Nivel

@!

1

S

V

BQV

35

BQV_NOMAUD

C

40

0

Auditor

@D

1

S

V

R

BQV

36

BQV_NRAOPE

C

20

0

Nr Aut Oper.

Numero Aut. Operadora

@!

1

BQV

37

BQV_OLNAUD

C

1

0

Todos Audito

Todos em Auditoria

@!

1

1=Sim;0=Nao

BQV

38

BQV_PENDEN

C

1

0

Pend. Audit.

Alguma pend. na auditoria

@!

"0"

1

V

1=Sim;0=Não

BQV

39

BQV_SENHA

C

20

0

Senha

Senha da evolucao de GIH

@!

1

S

V

BQV

40

BQV_SOLREV

C

1

0

Revisão

@!

"0"

1

V

1=Sim;0=Não

BQV

41

BQV_STATUS

C

1

0

Status Int.

Status da Internacao

@!

"0"

1

S

V

1=Autorizada;0=Nao Autorizada

BQV

42

BQV_TRACON

C

1

0

Trans. Concl

Transação Concluída

@!

"0"

1

S

V

1=Sim;0=Não

BQV

43

BQV_TPPROC

C

1

0

Tipo Proced

Tipo de Procedimento

@!

Pertence("0123456789")

1

V

0=Procedimento;1=Material;2=Medicamento;3=Taxas;4=Diarias;5=Ortese/Protese;6=Pacote;7=Gases Medicinais;8=Alugueis;9=Outros

BQV

44

BQV_DATPRO

D

8

0

Dt. Proc.

Data Proc.

If(Inclui .Or. Empty(BQV->BQV_DATPRO),dDataBase,BQV->BQV_DATPRO)

1

S

V

BQV

45

BQV_HORPRO

C

6

0

Hora proc.

@R !!:!!:!!

If(Inclui .Or. Empty(BQV->BQV_HORPRO),StrTran(Time(),":",""),BQV->BQV_HORPRO)

1

S

V

BQV

46

BQV_NUMIMP

C

20

0

Nr. Impresso

Numero do Impresso

@!

1

V

BQV

47

BQV_VLRAPR

N

16

2

Vlr Apr Uni

@E 9,999,999,999,999.99

1

S

N

A

R

BQV

48

BQV_VALORI

N

16

2

Vlr Apr Tot

@E 9,999,999,999,999.99

Iif(Inclui,0,BQV->BQV_QTDPRO*BQV->BQV_VLRAPR)

1

S

V

BQV

49

BQV_NRTROL

C

20

0

Nr.Tr.OnLine

Núm. Trans. On-Line

@!

1

N

V

R

BQV

50

BQV_REFFED

C

30

0

Cód.Ref.Fab

Cod.Refer.Fabr.EDI

@!

1

N

A

R

P090PTUGEN('2')

BQV

51

BQV_REGSOL

C

6

0

C.R. Solic.

Cod.Reg.Solic.

@!

ExistCpo("BB0",M->BQV_REGSOL,1)

BB0PLS

1

S

A

BQV

52

BQV_NOMSOL

C

30

0

Solicitante

@!

If(!INCLUI,Posicione("BB0",1,xFilial("BB0")+BQV->BQV_REGSOL,"BB0_NOME")," ")

1

S

V

R

BQV

53

BQV_GUIPRE

C

20

0

Nr.Gui.Pres.

@!

1

S

A

R

BQV

54

BQV_VIA

C

1

0

Via acesso

Via de acesso

@!

PlsSeek("BGR",1,PLSINTPAD()+M->BQV_VIA)

BQV->BQV_VIA

1

N

A

R

BQV

55

BQV_PERVIA

N

13

2

% Via

Percentual da Via

@E 9,999,999,999.99

BQV->BQV_PERVIA

1

A

R

BQV

56

BQV_CODMEN

C

6

0

Codigo Memo

@!

1

N

A

R

BQV

57

BQV_MEMO1

M

10

0

Indic.Clini.

@!

If(!INCLUI,MSMM(BQV->BQV_CODMEM),"")

1

S

A

BQV

58

BQV_OBSER1

C

254

0

Observação

@!

1

S

A

R

BQV

59

BQV_CANEDI

C

250

0

Desc.Can.Edi

Descr.Cancelam.EDI

@!

1

N

V

R

BQV

60

BQV_PROATE

C

20

0

Protocolo

Protocolo de Atendimento

@!

cNumProto

1

S

V

R

BQV

61

BQV_REGANV

C

15

0

Reg.Anvisa

Reg. ANVISA Mat.

@!

1

N

A

R

BQV

62

BQV_SEQPTU

C

2

0

Seq Ptu On

Sequencial Ptu Online

@!

1

N

V

R

BQV

63

BQV_TOKEDI

C

10

0

Token

Token Atendimento

@!

1

N

A

R

BQV

64

BQV_CDPACO

C

8

0

Cd Pacote

Codigo do Pacote

@!

1

V

R

BQV

65

BQV_DESPAC

C

211

0

Desc. Pacote

Descrição do Pacote

@!

1

V

R

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
BQV	1	BQV_FILIAL+BQV_CODOPE+BQV_ANOINT+BQV_MESINT+BQV_NUMINT+BQV_SEQUEN	Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Sequencia	Operadora + Ano Autoriz. + Mes Autoriz. + Nº Internac. + Secuencia	Operator + Author. year + Author.Month + Hospit. Nbr. + Sequence	S			S	2	3
BQV	2	BQV_FILIAL+BQV_OPEUSR+BQV_CODEMP+BQV_MATRIC+BQV_TIPREG+BQV_DIGITO	Oper. Usr + Grp/Empresa + Matricula + Tipo de Reg. + Digito	Oper.Usuario + Grp/Empresa + Matricula + Tipo de Reg. + Digito	User operat. + Grp/Company + Registration + Record Type + Digit	S			S	2	3
BQV	3	BQV_FILIAL+BQV_CODOPE+BQV_ANOINT+BQV_MESINT+BQV_NUMINT+BQV_SEQIMP	Operadora + Ano Autoriz. + Mes Autoriz. + Num Internac + Seq. Impress	Operadora + Ano Autoriz. + Mes Autoriz. + Nº Internac. + Sec. Impres.	Operator + Author. year + Author.Month + Hospit. Nbr. + Print Seq.	S			S	2	3
BQV	4	BQV_FILIAL+BQV_AUDITO+BQV_STATUS	Auditoria? + Status Int.	¿Auditoria? + Estatus Int.	Audit + Hosp. Status	S			S	2	3
BQV	5	BQV_FILIAL+BQV_NRTROL	Nr.Tr.OnLine	Nr.Tr.OnLine	OnlineTrans#	S			S	2	3
BQV	6	BQV_FILIAL+BQV_NRAOPE	Nr Aut Oper.	Nº Aut Oper.	Oper.Aut.No	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
BQV_CODPRO	001	BR8->BR8_DESCRI	BQV_DESPRO	P	S	BR8	1	xFilial("BR8")+M->BQV_CODPAD+M->BQV_CODPRO		S
BQV_CODPRO	002	BR8->BR8_TPPROC	BQV_TPPROC	P	N		0			S
BQV_QTDPRO	001	M->BQV_QTDPRO*M->BQV_VLRAPR	BQV_VALORI	P	N		0			S
BQV_REGSOL	001	BQV_NOMSOL:= BB0->BB0_NOME	BQV_NOMSOL	P			0			S
BQV_VLRAPR	001	M->BQV_QTDPRO*M->BQV_VLRAPR	BQV_VALORI	P	N		0			S