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

GB2

DATA

GB2990

Cadastro de RN's

Archivo RN

Newborn Registration

E

0

N

51

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

GB2

01

GB2_FILIAL

C

2

0

Filial

1

N

033

GB2

02

GB2_REGATE

C

6

0

Registro Mae

Nro. Registro da Mae

@!

M->GCY_REGATE

PAC

1

S

V

R

GB2

03

GB2_NOME

C

45

0

Nome do RN

Nome do Recem Nascido

@!

"RN " + AllTrim(M->GCY_NOME)

1

S

V

R

GB2

04

GB2_TPNASC

C

1

0

Tipo Nasc

Tipo de Nascimento

@!

PERTENCE('012345') .And. Hs_NomeRn()

1

S

A

R

0=Unico;1=Primeiro Gemelar;2=Segundo Gemelar;3=Terceiro Gemelar;4=Quarto Gemelar;5=Quinto Gemelar

oGetGB2:oBrowse:nAt > nLenGB2

GB2

05

GB2_PREMAT

C

1

0

Prematuro ?

@!

pertence("01")

1

N

A

R

0=Nao;1=Sim

"0"

GB2

06

GB2_DTNASC

D

8

0

Data Nasc

Data de Nascimento

@D

dDataBase

1

S

A

R

GB2

07

GB2_HORNAS

C

5

0

Hora Nasc

Hora do Nascimento

99:99

Time()

1

S

A

R

GB2

08

GB2_SEXO

C

1

0

Sexo

@!

PERTENCE("01")

1

S

A

R

0=Masculino;1=Feminino

GB2

09

GB2_PESO

N

5

3

Peso

Peso do Recem Nascido

@E 9.999

1

S

A

R

GB2

10

GB2_ALTURA

N

5

2

Altura

Altura do Recem Nascido

@E 9.99

1

S

A

R

GB2

11

GB2_GRUPOS

C

1

0

Gr Sanguineo

Grupo Sanguineo

@!

PERTENCE("0123")

1

S

A

R

0=A;1=B;2=AB;3=O

GB2

12

GB2_FATOR

C

1

0

Fator RH

@!

PERTENCE("10")

1

S

A

R

1=Positivo;0=Negativo

GB2

13

GB2_APGAR

N

3

0

Apgar

@E 999

M->GB2_APGAR <= 10

1

S

A

R

GB2

14

GB2_APGAR2

N

3

0

Apgar 5o.Min

@E 999

M->GB2_APGAR2 <= 10

1

S

GB2

15

GB2_PC

N

6

2

P.Cefalico

Perimetro Cefalico

@E 999.99

1

S

A

R

GB2

16

GB2_PT

N

6

2

P.Toracico

Perimetro Toracico

@E 999.99

1

S

A

R

GB2

17

GB2_PA

N

6

2

P.Abdominal

Perimetro Abdominal

@E 999.99

1

S

A

R

GB2

18

GB2_IDAGES

N

2

0

Idade Gest.

Idade Gestacional

@E 99

1

S

A

R

GB2

19

GB2_SEMGES

N

2

0

Seman. Gest.

Semana Gestacional

@E 99

1

S

A

R

GB2

20

GB2_TIPO

C

1

0

Tipo Parto

Tipo de Parto

@!

PERTENCE("01")

1

S

A

R

0=Cesarea;1=Normal

GB2

21

GB2_UTINEO

C

1

0

UTI NeoNatal

UTI Neo Natal

1

S

A

R

0=Nao;1=Sim

GB2

22

GB2_MAE

C

45

0

Nome Mae

Nome da Mae

@!

AllTrim(M->GCY_NOME)

1

S

V

GB2

23

GB2_PAI

C

45

0

Nome Pai

Nome do Pai

@!

1

S

A

R

GB2

24

GB2_CODCRM

C

7

0

Obstetra

Medico Obstetra

@!

HS_SeekRet('SRA','M->GB2_CODCRM',11,.f.,'GB2_NOMMED','RA_NOME')

MED

1

S

V

GB2

25

GB2_NOMMED

C

30

0

Nome Obstet.

Nome do Medico Obstetra

@!

HS_INIPADR('SRA',11,GB2->GB2_CODCRM,'RA_NOME')

1

S

V

HS_INIPADR("SRA",11,GB2->GB2_CODCRM,"RA_NOME")

GB2

26

GB2_CODPED

C

7

0

Pediatra

Medico Pediatra

@!

HS_VldGB2()

MED

1

S

A

R

GB2

27

GB2_NOMPED

C

30

0

Nome Pediat.

Nome do Medico Pediatra

@!

IF(!Inclui,Posicione("SRA",11,XFILIAL("SRA")+GB2->GB2_CODPED,"RA_NOME")," ")

1

S

V

Posicione("SRA",11,xFilial("SRA")+GB2->GB2_CODPED,"RA_NOME")

GB2

28

GB2_DATALT

D

8

0

Data da Alta

@D

1

N

V

R

GB2

29

GB2_HORALT

C

5

0

Hora da Alta

99:99

1

N

V

R

GB2

30

GB2_TPALTA

C

2

0

Tipo da Alta

Codigo do Tipo da Alta

@!

HS_SeekRet("SX5","'T0'+M->GB2_TPALTA",1,.f.,"GB2_DESALT","X5_DESCRI")

GF4

1

N

V

R

GB2

31

GB2_DESALT

C

30

0

Desc Tp Alta

Descricao do Tipo da Alta

@!

If(!Inclui,Posicione("SX5",1,xFilial("SX5")+"T0"+GB2->GB2_TPALTA,"X5_DESCRI"),"")

1

N

V

Posicione("SX5",1,xFilial("SX5")+"T0"+GB2->GB2_TPALTA,"X5_DESCRI")

GB2

32

GB2_NROPAR

C

2

0

Nro.Parto

Numero de Partos

@!

GETSXENUM("GB2", "GB2_NROPAR")

1

N

A

R

GB2

33

GB2_NRODEC

C

15

0

Nro declarac

Numero da Declaracao

@!

1

S

GB2

34

GB2_STNASC

C

1

0

Status Nasct

Status do Nascimento

@!

Pertence("123")

"1"

1

S

A

R

1=Nativivo;2=Natimorto;3=Obito Fetal

GB2

35

GB2_ATSALA

C

1

0

Atend. Sala

Atend. na Sala de Parto

@!

PERTENCE('01')

1

S

A

R

0=Nao;1=Sim

GB2

36

GB2_CIDALT

C

8

0

Cod CID Alta

Codigo CID da Alta

@!

HS_SeekRet('GAS','M->GB2_CIDALT',1,.f.,'GB2_DESCID','GAS_PATOLO')

GAS

1

S

A

R

GB2

37

GB2_DESCID

C

70

0

Patologia

Descricao Cid (Patologia)

@!

HS_IniPadr('GAS', 1, GB2->GB2_CIDALT, 'GAS_PATOLO')

1

S

V

HS_IniPadr('GAS', 1, GB2->GB2_CIDALT, 'GAS_PATOLO')

GB2

38

GB2_NOMREG

C

40

0

Nome Reg.

Nome Registro

@!

1

S

A

R

GB2

39

GB2_NOMCAR

C

20

0

Nome Cart

Nome Cartorio

@!

1

S

A

R

GB2

40

GB2_LIVRO

C

8

0

Livro

Numero Livro

@!

1

S

A

R

GB2

41

GB2_FOLHA

C

8

0

Folha

Numero Folha

@!

1

S

A

R

GB2

42

GB2_TERMO

C

8

0

Termo

Numero Termo

@!

1

S

A

R

GB2

43

GB2_DN

C

8

0

DN

Numero DN

@!

1

S

A

R

GB2

44

GB2_DTREG

D

8

0

Dt Emissao

Emissao Reg.

1

S

A

R

GB2

45

GB2_MATRIC

C

32

0

Matric Certi

Matricula Cert Nascimento

1

S

A

R

INDICE	ORDEM	CHAVE	DESCRICAO	DESCSPA	DESCENG	PROPRI	F3	NICKNAME	SHOWPESQ	IX_VIRTUAL	IX_VIRCUST
GB2	1	GB2_FILIAL+GB2_REGATE+GB2_TPNASC	Registro Mae + Tipo Nasc	Regist.Madre + Tipo Nacim.	Mother´s ID + Birth Type	S			S	2	3
GB2	2	GB2_FILIAL+GB2_REGATE	Registro Mae	Regist.Madre	Mother´s ID	S			S	2	3
GB2	3	GB2_FILIAL+GB2_NOME	Nome do RN	Nomb. del RN	NB´s Name	S			S	2	3
GB2	4	GB2_FILIAL+DTOS(GB2_DTNASC)	Data Nasc	Fch. Nacim.	DOB	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
GB2_REGATE	001	"RN DE "+GAD->GAD_NOME	GB2_NOME	P	N		0			S
GB2_REGATE	002	GAD->GAD_NOME	GB2_MAE	P	N		0			S
GB2_REGATE	003	GBH->GBH_NOMCJG	GB2_PAI	P	S	GBH	1	XFILIAL("GBH")+GAD->GAD_REGGER		S
GB2_REGATE	004	GAD->GAD_CODCRM	GB2_CODCRM	P	N		0			S
GB2_REGATE	005	SRA->RA_NOME	GB2_NOMMED	P	S	SRA	11	XFILIAL("SRA")+GAD->GAD_CODCRM		S