JR
En el texto que sigue están las características de los campos planteados
para la HC por el programa nacional de calidad en salud del Ministerio de
Salud Pública de la Nación.
Está exportado de un proyecto de software que por diversos motivos no se ha
completado, faltan decisiones administrativas para la estandarización de
ciertos pasos de procedimientos, esperaba poder acercarme a estándares ISO,
pero la administración pública es sumamente resistente a los parámetros de
calidad total.
Le introduje algunas variantes para hacerlo más manejable en los campos de
país de origen utilizando los estándares internacionales de 3 letras para
definirlos y en provincias el código de letras que tenían antes las patentes
(Capital C, Santa Cruz Z, provincia de Buenos Aires B), y los tres campos
finales para registrar usuario, día y hora de creación del registro.
En resumen, donde veas un campo HC:CMDD26a - la letra "a"final indica un
agregado (para evitar tipeo al operador mediante tablas auxiliares) al
original planteado por la Nación.
PJ
HC FILE,DRIVER('TOPSPEED'),OEM,NAME('\galeno\hospital\data\hc.tps'),PRE(HC)
BINDABLE,THREAD
!!> IDENT(28),USAGE(File)
xDNI KEY(HC:CMDD05),NOCASE
!!> IDENT(145)
Id_Identificador_Interno KEY(HC:CMDD04),NOCASE,PRIMARY
!!> IDENT(202),AUTO
xHC KEY(HC:HC),NOCASE
!!> IDENT(146)
xApe_Nom KEY(HC:CMDD11,HC:CMDD12),DUP
!!> IDENT(147)
xTdoc KEY(HC:CMDD09),DUP,NOCASE
!!> IDENT(158)
xCod_Sex KEY(HC:CMDD19),DUP,NOCASE
!!> IDENT(165)
xCod_Pais KEY(HC:CMDD17),NOCASE
!!> IDENT(171)
xCodTEL KEY(HC:CMDD49),DUP,NOCASE,OPT
!!> IDENT(176)
xCod_Unid_Ed_Aparente KEY(HC:CMDD53),NOCASE
!!> IDENT(187)
xCod_Ent_Fam KEY(HC:CMDD27),NOCASE
!!> IDENT(188)
xCod_Est_Civ KEY(HC:CMDD26),NOCASE
!!> IDENT(192)
xCod_Niv_Educ KEY(HC:CMDD28a),NOCASE
!!> IDENT(196)
xCod_Est_Reg KEY(HC:CMDD07),NOCASE
!!> IDENT(200)
xCod_Eve_Cont KEY(HC:CMDD03),NOCASE
!!> IDENT(207)
Record RECORD
[SCREENCONTROLS]
! PROMPT('H.C.:'),USE(?HC:HC:Prompt)
! ENTRY(@n10),USE(HC:HC),RIGHT(1)
[REPORTCONTROLS]
! STRING(@n10),USE(HC:HC),RIGHT(1)
HC REAL
!!> IDENT(609),PROMPT('H.C.:'),HEADER('HC'),PICTURE(@n10),JUSTIFY(RIGHT,1)
[LONGDESC]
!Identificador de la Institución proveedora de Servicios de Salud que
!registra los datos. Se sugiere usar el Nro. CUITde la institución hasta
!tanto se normaticen los identificadores.
[SCREENCONTROLS]
! PROMPT('Identificador Institución:'),USE(?HC:CMDD01:Prompt)
! ENTRY(@s50),USE(HC:CMDD01),MSG('Institución proveedora de Servicios de
Salud que registra los datos'),TIP('Institución proveedora de Servicios de
Salud que registra los datos')
[REPORTCONTROLS]
! STRING(@s50),USE(HC:CMDD01)
CMDD01 STRING(50) !Identificador de la Institución
proveedora de Servicios de Salud que registra los datos
!!> IDENT(646),INITIAL('''30-67378676-2'''),PROMPT('Identificador
Institución:'),HEADER('CMDD 01'),MESSAGE('Institución proveedora de
Servicios de Salud que registra los datos'),TOOLTIP('Institución proveedora
de Servicios de Salud que registra los datos'),PICTURE(@s50)
[SCREENCONTROLS]
! PROMPT('Nombre Institución:'),USE(?HC:CMDD02:Prompt)
! ENTRY(@s100),USE(HC:CMDD02),MSG('Denominación de la Institución proveedora
de Servicios de Salud que registra los datos'),TIP('Denominación de la
Institución proveedora de Servicios de Salud que registra los datos')
[REPORTCONTROLS]
! STRING(@s100),USE(HC:CMDD02)
CMDD02 STRING(100) !Denominación de la Institución
proveedora de Servicios de Salud que registra los datos
!!> IDENT(647),INITIAL('''Hospital Distrital de Las Heras - Santa Cruz -
Argentina'''),PROMPT('Nombre Institución:'),HEADER('CMDD 02'),MESSAGE(
Denominación de la Institución proveedora de Servicios de Salud que registra
los datos'),TOOLTIP('Denominación de la Institución proveedora de Servicios
de Salud que registra los datos'),PICTURE(@s100)
[LONGDESC]
!Identificador interno asignado por la Institución al evento, consulta
!ambulatoria, prestación o contacto en oportunidad del cual se procede a
!registrar los datos del paciente
[SCREENCONTROLS]
! PROMPT('CMDD 03:'),USE(?HC:CMDD03:Prompt)
! ENTRY(@s2),USE(HC:CMDD03),MSG('Identificador del evento o contacto en
oportunidad del cual se registra al paciente'),TIP('Identificador del evento
o contacto en oportunidad del cual se registra al paciente')
[REPORTCONTROLS]
! STRING(@s2),USE(HC:CMDD03)
CMDD03 STRING(2) !Código Identificador del evento o
contacto en oportunidad del cual se registra al paciente
!!> IDENT(650),PROMPT('CMDD 03:'),HEADER('CMDD 03'),MESSAGE('Identificador
del evento o contacto en oportunidad del cual se registra al paciente')
TOOLTIP('Identificador del evento o contacto en oportunidad del cual se
registra al paciente'),PICTURE(@s2)
[LONGDESC]
!Identificador interno asignado por la Institución al evento, consulta
!ambulatoria, prestación o contacto en oportunidad del cual se procede a
!registrar los datos del paciente
[SCREENCONTROLS]
! PROMPT('CMDD 03 a:'),USE(?HC:CMDD03a:Prompt)
! ENTRY(@s18),USE(HC:CMDD03a),MSG('Identificador del evento o contacto en
oportunidad del cual se registra al paciente'),TIP('Identificador del evento
o contacto en oportunidad del cual se registra al paciente')
[REPORTCONTROLS]
! STRING(@s18),USE(HC:CMDD03a)
CMDD03a STRING(18) !Identificador del evento o contacto
en oportunidad del cual se registra al paciente
!!> IDENT(788),PROMPT('CMDD 03 a:'),HEADER('CMDD 03 a'),MESSAGE(
Identificador del evento o contacto en oportunidad del cual se registra al
paciente'),TOOLTIP('Identificador del evento o contacto en oportunidad del
cual se registra al paciente'),PICTURE(@s18)
[LONGDESC]
!Identificador (ID) interno y automático de la aplicación para identificar
!al paciente (Registro).
[SCREENCONTROLS]
! PROMPT('CMDD 04:'),USE(?HC:CMDD04:Prompt)
! ENTRY(@n14),USE(HC:CMDD04),DECIMAL(14),MSG('Id. Identificador interno de
la aplicación'),TIP('Id. Identificador interno de la aplicación')
[REPORTCONTROLS]
! STRING(@n14),USE(HC:CMDD04),DECIMAL(14)
CMDD04 REAL !Id. Identificador interno de la aplicación
!!> IDENT(652),PROMPT('CMDD 04:'),HEADER('CMDD 04'),MESSAGE('Id.
Identificador interno de la aplicación'),TOOLTIP('Id. Identificador interno
de la aplicación'),PICTURE(@n14),JUSTIFY(DECIMAL,14)
[SCREENCONTROLS]
! PROMPT('N<176> DNI:'),USE(?HC:CMDD05:Prompt)
! ENTRY(@P##.###.###Pb),USE(HC:CMDD05),RIGHT(1),MSG('Número de DNI'),TIP(
Número de DNI')
[REPORTCONTROLS]
! STRING(@P##.###.###Pb),USE(HC:CMDD05),RIGHT(1)
CMDD05 LONG !Número de DNI, LC o LE, si no es documento
argentino dejar en blanco
!!> IDENT(655),PROMPT('N<176> DNI:'),HEADER('CMDD 05'),MESSAGE('Número de
DNI'),TOOLTIP('Número de DNI'),PICTURE((a)P##.###.###Pb),JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! PROMPT('CMDD 06:'),USE(?HC:CMDD06:Prompt)
! ENTRY(@d6),USE(HC:CMDD06),MSG('Fecha de registro del paciente - DD/MM/AAAA
),TIP('Fecha de registro del paciente - DD/MM/AAAA')
[REPORTCONTROLS]
! STRING(@d6),USE(HC:CMDD06)
CMDD06 DATE !Fecha de registro del paciente - DD/MM/AAAA
!!> IDENT(657),PROMPT('CMDD 06:'),HEADER('CMDD 06'),MESSAGE('Fecha de
registro del paciente - DD/MM/AAAA'),TOOLTIP('Fecha de registro del paciente
- DD/MM/AAAA'),PICTURE(@d6)
[SCREENCONTROLS]
! PROMPT('Estado del Registro:'),USE(?HC:CMDD07:Prompt)
! ENTRY(@s1),USE(HC:CMDD07),MSG('Estado del registro (1-Activo'),TIP('Estado
del registro (1-Activo')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD07)
CMDD07 STRING(1) !Codigo de Estado del registro
!!> IDENT(658),PROMPT('Estado del Registro:'),HEADER('CMDD 07'),MESSAGE(
Estado del registro (1-Activo'),TOOLTIP('Estado del registro (1-Activo')
PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('Estado del Registro:'),USE(?HC:CMDD07a:Prompt)
! ENTRY(@s18),USE(HC:CMDD07a),MSG('Estado del registro (1-Activo'),TIP(
Estado del registro (1-Activo')
[REPORTCONTROLS]
! STRING(@s18),USE(HC:CMDD07a)
CMDD07a STRING(18) !Estado del registro
!!> IDENT(783),PROMPT('Estado del Registro:'),HEADER('CMDD 07 a'),MESSAGE(
Estado del registro (1-Activo'),TOOLTIP('Estado del registro (1-Activo')
PICTURE(@s18)
[SCREENCONTROLS]
! PROMPT('CMDD 08:'),USE(?HC:CMDD08:Prompt)
! ENTRY(@n14),USE(HC:CMDD08),RIGHT(1),MSG('Preferido si el estado del
registro es inactivo (CMDD04)'),TIP('Preferido si el estado del registro es
inactivo (CMDD04)')
[REPORTCONTROLS]
! STRING(@n14),USE(HC:CMDD08),RIGHT(1)
CMDD08 LONG !Preferido si el estado del registro es
inactivo (CMDD04)
!!> IDENT(659),PROMPT('CMDD 08:'),HEADER('CMDD 08'),MESSAGE('Preferido si el
estado del registro es inactivo (CMDD04)'),TOOLTIP('Preferido si el estado
del registro es inactivo (CMDD04)'),PICTURE(@n14),JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! PROMPT('Tipo de documento:'),USE(?HC:CMDD09:Prompt)
! ENTRY(@s1),USE(HC:CMDD09),MSG('Tipo de documento'),TIP('Tipo de documento
)
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD09)
CMDD09 STRING(1) !Tipo de documento
!!> IDENT(660),VALID(INFILE(HC_TDoc,HC_TDoc:HC)),PROMPT('Tipo de documento:
),HEADER('CMDD 09'),MESSAGE('Tipo de documento'),TOOLTIP('Tipo de documento
),PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('CMDD 09 a:'),USE(?HC:CMDD09a:Prompt)
! ENTRY(@s20),USE(HC:CMDD09a),MSG('Descripción del tipo de documento'),TIP(
Descripción del tipo de documento')
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD09a)
CMDD09a STRING(20) !Descripción del tipo de documento
!!> IDENT(730),PROMPT('CMDD 09 a:'),HEADER('CMDD 09 a'),MESSAGE('Descripción
del tipo de documento'),TOOLTIP('Descripción del tipo de documento')
PICTURE(@s20),DERIVEDFROM('TDO:Descripcion')
[SCREENCONTROLS]
! PROMPT('N<176> Documento:'),USE(?HC:CMDD10:Prompt)
! ENTRY(@P###.###.###Pb),USE(HC:CMDD10),RIGHT(1),MSG('Número de documento')
TIP('Número de documento')
[REPORTCONTROLS]
! STRING(@P###.###.###Pb),USE(HC:CMDD10),RIGHT(1)
CMDD10 LONG !Número de documento (en caso de documento
extranjero) Obligatorio si tipo es distinto de - No tiene
!!> IDENT(661),PROMPT('N<176> Documento:'),HEADER('CMDD 10'),MESSAGE('Número
de documento'),TOOLTIP('Número de documento'),PICTURE((a)P###.###.###Pb)
JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! PROMPT('CMDD 11:'),USE(?HC:CMDD11:Prompt)
! ENTRY(@s30),USE(HC:CMDD11),MSG('Apellido (s) Deberá ingresar el o los
apellidos tal como figuran en el documento'),TIP('Apellido (s) Deberá
ingresar el o los apellidos tal como figuran en el documento'),UPR
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD11)
CMDD11 STRING(30) !Apellido (s) Deberá ingresar el o los
apellidos tal como figuran en el documento
!!> IDENT(610),PROMPT('CMDD 11:'),HEADER('CMDD 11'),MESSAGE('Apellido (s)
Deberá ingresar el o los apellidos tal como figuran en el documento')
TOOLTIP('Apellido (s) Deberá ingresar el o los apellidos tal como figuran en
el documento'),PICTURE(@s30),CASE(UPPER)
[SCREENCONTROLS]
! PROMPT('1er. Nombre:'),USE(?HC:CMDD12:Prompt)
! ENTRY(@s20),USE(HC:CMDD12),MSG('Primer Nombre'),TIP('Primer Nombre'),CAP
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD12)
CMDD12 STRING(20) !Primer Nombre
!!> IDENT(611),PROMPT('1er. Nombre:'),HEADER('CMDD 12'),MESSAGE('Primer
Nombre'),TOOLTIP('Primer Nombre'),PICTURE(@s20),CASE(CAPS)
[SCREENCONTROLS]
! PROMPT('Otros nombres:'),USE(?HC:CMDD13:Prompt)
! ENTRY(@s20),USE(HC:CMDD13),MSG('Otros Nombres'),TIP('Otros Nombres'),CAP
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD13)
CMDD13 STRING(20) !Otros Nombres
!!> IDENT(663),PROMPT('Otros nombres:'),HEADER('CMDD 13'),MESSAGE('Otros
Nombres'),TOOLTIP('Otros Nombres'),PICTURE(@s20),CASE(CAPS)
[SCREENCONTROLS]
! PROMPT('Apellido de casada:'),USE(?HC:CMDD14:Prompt)
! ENTRY(@s30),USE(HC:CMDD14),MSG('Apellido de casada'),TIP('Apellido de
casada'),UPR
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD14)
CMDD14 STRING(30) !Apellido de casada
!!> IDENT(664),PROMPT('Apellido de casada:'),HEADER('CMDD 14'),MESSAGE(
Apellido de casada'),TOOLTIP('Apellido de casada'),PICTURE(@s30),CASE(UPPER)
[SCREENCONTROLS]
! PROMPT('Apellidos + Nombres:'),USE(?HC:CMDD15:Prompt)
! ENTRY(@s50),USE(HC:CMDD15),MSG('Apellidos y nombres en campo comun, sin
acentos y sin "Ñ" (reemplazar por la "N")'),TIP('Apellidos y nombres en
campo comun, sin acentos y sin "Ñ" (reemplazar por la "N")')
[REPORTCONTROLS]
! STRING(@s50),USE(HC:CMDD15)
CMDD15 STRING(50) !Apellidos y nombres en campo comun,
en mayúsculas, sin acentos y sin "Ñ" (reemplazar por la "N")
!!> IDENT(665),PROMPT('Apellidos + Nombres:'),HEADER('CMDD 15'),MESSAGE(
Apellidos y nombres en campo comun, sin acentos y sin "Ñ" (reemplazar por la
"N")'),TOOLTIP('Apellidos y nombres en campo comun, sin acentos y sin "Ñ"
(reemplazar por la "N")'),PICTURE(@s50)
[SCREENCONTROLS]
! PROMPT('Fecha de Nacimiento:'),USE(?HC:CMDD16:Prompt)
! ENTRY(@d6),USE(HC:CMDD16),RIGHT(1),MSG('Fecha de Nacimiento (DD/MM/AAAA)')
TIP('Fecha de Nacimiento (DD/MM/AAAA)')
[REPORTCONTROLS]
! STRING(@d6),USE(HC:CMDD16),RIGHT(1)
CMDD16 DATE !Fecha de Nacimiento (DD/MM/AAAA)
!!> IDENT(619),PROMPT('Fecha de Nacimiento:'),HEADER('CMDD 16'),MESSAGE(
Fecha de Nacimiento (DD/MM/AAAA)'),TOOLTIP('Fecha de Nacimiento (DD/MM/AAAA)
),PICTURE(@d6),JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! PROMPT('Cód.país nacimiento:'),USE(?HC:CMDD17:Prompt)
! ENTRY(@s2),USE(HC:CMDD17),MSG('Pais de nacimiento'),TIP('Pais de
nacimiento'),UPR
[REPORTCONTROLS]
! STRING(@s2),USE(HC:CMDD17)
CMDD17 STRING(2) !Código de país de nacimiento
!!> IDENT(667),PROMPT('Cód.país nacimiento:'),HEADER('CMDD 17'),MESSAGE(
Pais de nacimiento'),TOOLTIP('Pais de nacimiento'),PICTURE(@s2),CASE(UPPER)
[SCREENCONTROLS]
! PROMPT('País de Nacimiento:'),USE(?HC:CMDD17a:Prompt)
! ENTRY(@s30),USE(HC:CMDD17a),MSG('Pais de Nacimiento'),TIP('Pais de
Nacimiento'),UPR
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD17a)
CMDD17a STRING(30) !País de Nacimiento
!!> IDENT(668),PROMPT('País de Nacimiento:'),HEADER('CMDD 17 a'),MESSAGE(
Pais de Nacimiento'),TOOLTIP('Pais de Nacimiento'),PICTURE(@s30),CASE(UPPER)
[SCREENCONTROLS]
! PROMPT('Nacionalidad:'),USE(?HC:CMDD18:Prompt)
! ENTRY(@s20),USE(HC:CMDD18),MSG('Nacionalidad'),TIP('Nacionalidad')
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD18)
CMDD18 STRING(20) !Nacionalidad
!!> IDENT(678),PROMPT('Nacionalidad:'),HEADER('CMDD 18'),MESSAGE(
Nacionalidad'),TOOLTIP('Nacionalidad'),PICTURE(@s20)
[SCREENCONTROLS]
! PROMPT('Sexo:'),USE(?HC:CMDD19:Prompt)
! ENTRY(@s1),USE(HC:CMDD19),MSG('Sexo'),TIP('Sexo')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD19)
CMDD19 STRING(1) !Codigo de Sexo
!!> IDENT(680),VALID(INFILE(HC_Sexo,HC_Sexo:HC)),PROMPT('Sexo:'),HEADER(
CMDD 19'),MESSAGE('Sexo'),TOOLTIP('Sexo'),PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('CMDD 19 a:'),USE(?HC:CMDD19a:Prompt)
! ENTRY(@s18),USE(HC:CMDD19a),MSG('Sexo descripción'),TIP('Sexo descripción
)
[REPORTCONTROLS]
! STRING(@s18),USE(HC:CMDD19a)
CMDD19a STRING(18) !Sexo descripción
!!> IDENT(733),PROMPT('CMDD 19 a:'),HEADER('CMDD 19 a'),MESSAGE('Sexo
descripción'),TOOLTIP('Sexo descripción'),PICTURE(@s18)
[SCREENCONTROLS]
! PROMPT('Apellido de soltera de la madre:'),USE(?HC:CMDD20:Prompt)
! ENTRY(@s30),USE(HC:CMDD20),MSG('Apellido de soltera de la madre'),TIP(
Apellido de soltera de la madre')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD20)
CMDD20 STRING(30) !Apellido de soltera de la madre
!!> IDENT(681),PROMPT('Apellido de soltera de la madre:'),HEADER('CMDD 20')
MESSAGE('Apellido de soltera de la madre'),TOOLTIP('Apellido de soltera de
la madre'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Primer nombre de la madre:'),USE(?HC:CMDD21:Prompt)
! ENTRY(@s30),USE(HC:CMDD21),MSG('Primer nombre de la madre'),TIP('Primer
nombre de la madre')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD21)
CMDD21 STRING(30) !Primer nombre de la madre
!!> IDENT(683),PROMPT('Primer nombre de la madre:'),HEADER('CMDD 21')
MESSAGE('Primer nombre de la madre'),TOOLTIP('Primer nombre de la madre')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Otros nombres de la madre:'),USE(?HC:CMDD22:Prompt)
! ENTRY(@s30),USE(HC:CMDD22),MSG('Otros nombres de la madre'),TIP('Otros
nombres de la madre')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD22)
CMDD22 STRING(30) !Otros nombres de la madre
!!> IDENT(684),PROMPT('Otros nombres de la madre:'),HEADER('CMDD 22')
MESSAGE('Otros nombres de la madre'),TOOLTIP('Otros nombres de la madre')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Apellido Paterno:'),USE(?HC:CMDD23:Prompt)
! ENTRY(@s30),USE(HC:CMDD23),MSG('Apellido Paterno'),TIP('Apellido Paterno')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD23)
CMDD23 STRING(30) !Apellido Paterno
!!> IDENT(685),PROMPT('Apellido Paterno:'),HEADER('CMDD 23'),MESSAGE(
Apellido Paterno'),TOOLTIP('Apellido Paterno'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Primer nombre del padre:'),USE(?HC:CMDD24:Prompt)
! ENTRY(@s30),USE(HC:CMDD24),MSG('Primer nombre del padre'),TIP('Primer
nombre del padre')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD24)
CMDD24 STRING(30) !Primer nombre del padre
!!> IDENT(686),PROMPT('Primer nombre del padre:'),HEADER('CMDD 24'),MESSAGE(
Primer nombre del padre'),TOOLTIP('Primer nombre del padre'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Otros nombres del padre:'),USE(?HC:CMDD25:Prompt)
! ENTRY(@s30),USE(HC:CMDD25),MSG('Otros nombres del padre'),TIP('Otros
nombres del padre')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD25)
CMDD25 STRING(30) !Otros nombres del padre
!!> IDENT(687),PROMPT('Otros nombres del padre:'),HEADER('CMDD 25'),MESSAGE(
Otros nombres del padre'),TOOLTIP('Otros nombres del padre'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Cod.Estado Civil:'),USE(?HC:CMDD26:Prompt)
! ENTRY(@s1),USE(HC:CMDD26),MSG('Estado Civil'),TIP('Estado Civil')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD26)
CMDD26 STRING(1) !Codigo de Estado Civil
!!> IDENT(688),PROMPT('Cod.Estado Civil:'),HEADER('CMDD 26'),MESSAGE('Estado
Civil'),TOOLTIP('Estado Civil'),PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('Estado Civil:'),USE(?HC:CMDD26a:Prompt)
! ENTRY(@s30),USE(HC:CMDD26a),MSG('Estado Civil'),TIP('Estado Civil')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD26a)
CMDD26a STRING(30) !Estado Civil
!!> IDENT(773),PROMPT('Estado Civil:'),HEADER('CMDD 26 a'),MESSAGE('Estado
Civil'),TOOLTIP('Estado Civil'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Entorno familiar:'),USE(?HC:CMDD27:Prompt)
! ENTRY(@s1),USE(HC:CMDD27),MSG('Entorno familiar en que vive el paciente')
TIP('Entorno familiar en que vive el paciente')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD27)
CMDD27 STRING(1) !Código entorno familiar en que vive el
paciente
!!> IDENT(689),PROMPT('Entorno familiar:'),HEADER('CMDD 27'),MESSAGE(
Entorno familiar en que vive el paciente'),TOOLTIP('Entorno familiar en que
vive el paciente'),PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('Entorno familiar:'),USE(?HC:CMDD27a:Prompt)
! ENTRY(@s30),USE(HC:CMDD27a),MSG('Entorno familiar en que vive el paciente
),TIP('Entorno familiar en que vive el paciente')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD27a)
CMDD27a STRING(30) !Entorno familiar en que vive el
paciente
!!> IDENT(768),PROMPT('Entorno familiar:'),HEADER('CMDD 27 a'),MESSAGE(
Entorno familiar en que vive el paciente'),TOOLTIP('Entorno familiar en que
vive el paciente'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Nivel de educación:'),USE(?HC:CMDD28:Prompt)
! ENTRY(@s2),USE(HC:CMDD28),MSG('Nivel de educación'),TIP('Nivel de
educación')
[REPORTCONTROLS]
! STRING(@s2),USE(HC:CMDD28)
CMDD28 STRING(2) !Código de Nivel de educación
!!> IDENT(690),PROMPT('Nivel de educación:'),HEADER('CMDD 28'),MESSAGE(
Nivel de educación'),TOOLTIP('Nivel de educación'),PICTURE(@s2)
[SCREENCONTROLS]
! PROMPT('Nivel de educación:'),USE(?HC:CMDD28a:Prompt)
! ENTRY(@s30),USE(HC:CMDD28a),MSG('Nivel de educación'),TIP('Nivel de
educación')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD28a)
CMDD28a STRING(30) !Nivel de educación
!!> IDENT(778),PROMPT('Nivel de educación:'),HEADER('CMDD 28 a'),MESSAGE(
Nivel de educación'),TOOLTIP('Nivel de educación'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Ocupación actual o profesión:'),USE(?HC:CMDD29:Prompt)
! ENTRY(@s30),USE(HC:CMDD29),MSG('Ocupación actual o profesión'),TIP(
Ocupación actual o profesión')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD29)
CMDD29 STRING(30) !Ocupación actual o profesión
!!> IDENT(691),PROMPT('Ocupación actual o profesión:'),HEADER('CMDD 29')
MESSAGE('Ocupación actual o profesión'),TOOLTIP('Ocupación actual o
profesión'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Observaciones:'),USE(?HC:CMDD30:Prompt)
! TEXT,USE(HC:CMDD30),MSG('Observaciones,por ejemplo "el paciente no tiene
domicilio fijo", etc.'),TIP('Observaciones,por ejemplo "el paciente no tiene
domicilio fijo", etc.')
[REPORTCONTROLS]
! TEXT,USE(HC:CMDD30)
CMDD30 STRING(500) !Observaciones,por ejemplo "el
paciente no tiene domicilio fijo", etc.
!!> IDENT(692),PROMPT('Observaciones:'),HEADER('CMDD 30'),MESSAGE(
Observaciones,por ejemplo "el paciente no tiene domicilio fijo", etc.')
TOOLTIP('Observaciones,por ejemplo "el paciente no tiene domicilio fijo",
etc.'),PICTURE(@s255)
[SCREENCONTROLS]
! PROMPT('Domicilio Habitual -CALLE:'),USE(?HC:CMDD31:Prompt)
! ENTRY(@s30),USE(HC:CMDD31),MSG('Domicilio Habitual: CALLE'),TIP('Domicilio
Habitual: CALLE')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD31)
CMDD31 STRING(20) !Domicilio Habitual: CALLE
!!> IDENT(693),PROMPT('Domicilio Habitual -CALLE:'),HEADER('CMDD 31')
MESSAGE('Domicilio Habitual: CALLE'),TOOLTIP('Domicilio Habitual: CALLE')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Domicilio Habitual - NUMERO:'),USE(?HC:CMDD32:Prompt)
! ENTRY(@n10),USE(HC:CMDD32),DECIMAL(14),MSG('Domicilio Habitual - NUMERO')
TIP('Domicilio Habitual - NUMERO')
[REPORTCONTROLS]
! STRING(@n10),USE(HC:CMDD32),DECIMAL(14)
CMDD32 REAL !Domicilio Habitual - NUMERO
!!> IDENT(696),PROMPT('Domicilio Habitual - NUMERO:'),HEADER('CMDD 32')
MESSAGE('Domicilio Habitual - NUMERO'),TOOLTIP('Domicilio Habitual - NUMERO
),PICTURE(@n10),JUSTIFY(DECIMAL,14)
[SCREENCONTROLS]
! PROMPT('Domicilio habitual: PISO, DEPART:'),USE(?HC:CMDD33:Prompt)
! ENTRY(@s30),USE(HC:CMDD33),MSG('Domicilio habitual: Piso,'),TIP('Domicilio
habitual: Piso,')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD33)
CMDD33 STRING(30) !Domicilio habitual: PISO,
DEPARTAMENTO, otros.
!!> IDENT(697),PROMPT('Domicilio habitual: PISO, DEPART:'),HEADER('CMDD 33')
MESSAGE('Domicilio habitual: Piso,'),TOOLTIP('Domicilio habitual: Piso,')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Domicilio Habitual -LOCALIDAD o PARAJE:'),USE(?HC:CMDD34:Prompt)
! ENTRY(@s20),USE(HC:CMDD34),MSG('Domicilio Habitual -LOCALIDAD o PARAJE')
TIP('Domicilio Habitual -LOCALIDAD o PARAJE')
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD34)
CMDD34 STRING(20) !Domicilio Habitual -LOCALIDAD o
PARAJE
!!> IDENT(698),PROMPT('Domicilio Habitual -LOCALIDAD o PARAJE:'),HEADER(
CMDD 34'),MESSAGE('Domicilio Habitual -LOCALIDAD o PARAJE'),TOOLTIP(
Domicilio Habitual -LOCALIDAD o PARAJE'),PICTURE(@s20)
[SCREENCONTROLS]
! PROMPT('Domicilio habitual - CODIGO POSTAL:'),USE(?HC:CMDD35:Prompt)
! ENTRY(@n4),USE(HC:CMDD35),DECIMAL(14),MSG('Domicilio habitual - CODIGO
POSTAL'),TIP('Domicilio habitual - CODIGO POSTAL')
[REPORTCONTROLS]
! STRING(@n4),USE(HC:CMDD35),DECIMAL(14)
CMDD35 REAL !Domicilio habitual - CODIGO POSTAL
!!> IDENT(699),PROMPT('Domicilio habitual - CODIGO POSTAL:'),HEADER('CMDD 35
),MESSAGE('Domicilio habitual - CODIGO POSTAL'),TOOLTIP('Domicilio habitual
- CODIGO POSTAL'),PICTURE(@n4),JUSTIFY(DECIMAL,14)
[SCREENCONTROLS]
! PROMPT('Domicilio Habitual -CODIGO POSTAL Extendido:')
USE(?HC:CMDD36:Prompt)
! ENTRY(@K^####^^^KB),USE(HC:CMDD36),MSG('Domicilio Habitual -CODIGOI POSTAL
Extendido'),TIP('Domicilio Habitual -CODIGOI POSTAL Extendido')
[REPORTCONTROLS]
! STRING(@K^####^^^KB),USE(HC:CMDD36)
CMDD36 STRING(8) !Domicilio Habitual -CODIGO POSTAL
Extendido
!!> IDENT(700),PROMPT('Domicilio Habitual -CODIGO POSTAL Extendido:')
HEADER('CMDD 36'),MESSAGE('Domicilio Habitual -CODIGOI POSTAL Extendido')
TOOLTIP('Domicilio Habitual -CODIGOI POSTAL Extendido')
PICTURE(@K^####^^^KB)
[SCREENCONTROLS]
! PROMPT('Domicilio habitual -DEPARTAMENTO o PARTIDO:')
USE(?HC:CMDD37:Prompt)
! ENTRY(@s30),USE(HC:CMDD37),MSG('Domicilio habitual -DEPARTAMENTO o PARTIDO
),TIP('Domicilio habitual -DEPARTAMENTO o PARTIDO')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD37)
CMDD37 STRING(30) !Domicilio habitual -DEPARTAMENTO o
PARTIDO
!!> IDENT(702),PROMPT('Domicilio habitual -DEPARTAMENTO o PARTIDO:'),HEADER(
CMDD 37'),MESSAGE('Domicilio habitual -DEPARTAMENTO o PARTIDO'),TOOLTIP(
Domicilio habitual -DEPARTAMENTO o PARTIDO'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Domicilio habitual -PROVINCIA:'),USE(?HC:CMDD38:Prompt)
! ENTRY(@s30),USE(HC:CMDD38),MSG('Domicilio habitual -PROVINCIA'),TIP(
Domicilio habitual -PROVINCIA')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD38)
CMDD38 STRING(30) !Domicilio habitual -PROVINCIA
!!> IDENT(704),PROMPT('Domicilio habitual -PROVINCIA:'),HEADER('CMDD 38')
MESSAGE('Domicilio habitual -PROVINCIA'),TOOLTIP('Domicilio habitual
-PROVINCIA'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Domicilio habitual -PAIS:'),USE(?HC:CMDD39:Prompt)
! ENTRY(@s30),USE(HC:CMDD39),MSG('Domicilio habitual -PAIS'),TIP('Domicilio
habitual -PAIS')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD39)
CMDD39 STRING(30) !Domicilio habitual -PAIS
!!> IDENT(705),PROMPT('Domicilio habitual -PAIS:'),HEADER('CMDD 39')
MESSAGE('Domicilio habitual -PAIS'),TOOLTIP('Domicilio habitual -PAIS')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Domicilio Temporal -CALLE:'),USE(?HC:CMDD40:Prompt)
! ENTRY(@s30),USE(HC:CMDD40),MSG('Domicilio Habitual: CALLE'),TIP('Domicilio
Habitual: CALLE')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD40)
CMDD40 STRING(20) !Domicilio Temporal: CALLE
!!> IDENT(706),PROMPT('Domicilio Temporal -CALLE:'),HEADER('CMDD 40')
MESSAGE('Domicilio Habitual: CALLE'),TOOLTIP('Domicilio Habitual: CALLE')
PICTURE(@s30),DERIVEDFROM('HC:CMDD31')
[SCREENCONTROLS]
! PROMPT('Domicilio Temporal - NUMERO:'),USE(?HC:CMDD41:Prompt)
! ENTRY(@n10),USE(HC:CMDD41),DECIMAL(14),MSG('Domicilio Habitual - NUMERO')
TIP('Domicilio Habitual - NUMERO')
[REPORTCONTROLS]
! STRING(@n10),USE(HC:CMDD41),DECIMAL(14)
CMDD41 REAL !Domicilio Temporal - NUMERO
!!> IDENT(707),PROMPT('Domicilio Temporal - NUMERO:'),HEADER('CMDD 41')
MESSAGE('Domicilio Habitual - NUMERO'),TOOLTIP('Domicilio Habitual - NUMERO
),PICTURE(@n10),JUSTIFY(DECIMAL,14),DERIVEDFROM('HC:CMDD32')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal: PISO, DEPART:'),USE(?HC:CMDD42:Prompt)
! ENTRY(@s30),USE(HC:CMDD42),MSG('Domicilio habitual: Piso,'),TIP('Domicilio
habitual: Piso,')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD42)
CMDD42 STRING(30) !Domicilio temporal: PISO,
DEPARTAMENTO, otros.
!!> IDENT(709),PROMPT('Domicilio temporal: PISO, DEPART:'),HEADER('CMDD 42')
MESSAGE('Domicilio habitual: Piso,'),TOOLTIP('Domicilio habitual: Piso,')
PICTURE(@s30),DERIVEDFROM('HC:CMDD33')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal -LOCALIDAD o PARAJE:'),USE(?HC:CMDD43:Prompt)
! ENTRY(@s20),USE(HC:CMDD43),MSG('Domicilio Habitual -LOCALIDAD o PARAJE')
TIP('Domicilio Habitual -LOCALIDAD o PARAJE')
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD43)
CMDD43 STRING(20) !Domicilio temporal -LOCALIDAD o
PARAJE
!!> IDENT(710),PROMPT('Domicilio temporal -LOCALIDAD o PARAJE:'),HEADER(
CMDD 43'),MESSAGE('Domicilio Habitual -LOCALIDAD o PARAJE'),TOOLTIP(
Domicilio Habitual -LOCALIDAD o PARAJE'),PICTURE(@s20),DERIVEDFROM(
HC:CMDD34')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal - CODIGO POSTAL:'),USE(?HC:CMDD44:Prompt)
! ENTRY(@n4),USE(HC:CMDD44),DECIMAL(14),MSG('Domicilio habitual - CODIGO
POSTAL'),TIP('Domicilio habitual - CODIGO POSTAL')
[REPORTCONTROLS]
! STRING(@n4),USE(HC:CMDD44),DECIMAL(14)
CMDD44 REAL !Domicilio temporal - CODIGO POSTAL
!!> IDENT(711),PROMPT('Domicilio temporal - CODIGO POSTAL:'),HEADER('CMDD 44
),MESSAGE('Domicilio habitual - CODIGO POSTAL'),TOOLTIP('Domicilio habitual
- CODIGO POSTAL'),PICTURE(@n4),JUSTIFY(DECIMAL,14),DERIVEDFROM('HC:CMDD35')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal -CODIGO POSTAL Extendido:')
USE(?HC:CMDD45:Prompt)
! ENTRY(@K^####^^^KB),USE(HC:CMDD45),MSG('Domicilio Habitual -CODIGOI POSTAL
Extendido'),TIP('Domicilio Habitual -CODIGOI POSTAL Extendido')
[REPORTCONTROLS]
! STRING(@K^####^^^KB),USE(HC:CMDD45)
CMDD45 STRING(8) !Domicilio temporal -CODIGO POSTAL
Extendido
!!> IDENT(712),PROMPT('Domicilio temporal -CODIGO POSTAL Extendido:')
HEADER('CMDD 45'),MESSAGE('Domicilio Habitual -CODIGOI POSTAL Extendido')
TOOLTIP('Domicilio Habitual -CODIGOI POSTAL Extendido')
PICTURE(@K^####^^^KB),DERIVEDFROM('HC:CMDD36')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal -DEPARTAMENTO o PARTIDO:')
USE(?HC:CMDD46:Prompt)
! ENTRY(@s30),USE(HC:CMDD46),MSG('Domicilio habitual -DEPARTAMENTO o PARTIDO
),TIP('Domicilio habitual -DEPARTAMENTO o PARTIDO')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD46)
CMDD46 STRING(30) !Domicilio temporal -DEPARTAMENTO o
PARTIDO
!!> IDENT(714),PROMPT('Domicilio temporal -DEPARTAMENTO o PARTIDO:'),HEADER(
CMDD 46'),MESSAGE('Domicilio habitual -DEPARTAMENTO o PARTIDO'),TOOLTIP(
Domicilio habitual -DEPARTAMENTO o PARTIDO'),PICTURE(@s30),DERIVEDFROM(
HC:CMDD37')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal -PROVINCIA:'),USE(?HC:CMDD47:Prompt)
! ENTRY(@s30),USE(HC:CMDD47),MSG('Domicilio habitual -PROVINCIA'),TIP(
Domicilio habitual -PROVINCIA')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD47)
CMDD47 STRING(30) !Domicilio temporal -PROVINCIA
!!> IDENT(715),PROMPT('Domicilio temporal -PROVINCIA:'),HEADER('CMDD 47')
MESSAGE('Domicilio habitual -PROVINCIA'),TOOLTIP('Domicilio habitual
-PROVINCIA'),PICTURE(@s30),DERIVEDFROM('HC:CMDD38')
[SCREENCONTROLS]
! PROMPT('Domicilio temporal -PAIS:'),USE(?HC:CMDD48:Prompt)
! ENTRY(@s30),USE(HC:CMDD48),MSG('Domicilio habitual -PAIS'),TIP('Domicilio
habitual -PAIS')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD48)
CMDD48 STRING(30) !Domicilio temporal -PAIS
!!> IDENT(717),PROMPT('Domicilio temporal -PAIS:'),HEADER('CMDD 48')
MESSAGE('Domicilio habitual -PAIS'),TOOLTIP('Domicilio habitual -PAIS')
PICTURE(@s30),DERIVEDFROM('HC:CMDD39')
[SCREENCONTROLS]
! PROMPT('Cod.T.Teléfono:'),USE(?HC:CMDD49:Prompt)
! ENTRY(@s1),USE(HC:CMDD49),MSG('Domicilio Habitual: CALLE'),TIP('Domicilio
Habitual: CALLE')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD49)
CMDD49 STRING(1) !Codigo de Tipo de teléfono
!!> IDENT(718),PROMPT('Cod.T.Teléfono:'),HEADER('CMDD 49'),MESSAGE(
Domicilio Habitual: CALLE'),TOOLTIP('Domicilio Habitual: CALLE')
PICTURE(@s1)
[SCREENCONTROLS]
! PROMPT('T.Teléfono:'),USE(?HC:CMDD49a:Prompt)
! ENTRY(@s20),USE(HC:CMDD49a),MSG('Domicilio Habitual: CALLE'),TIP(
Domicilio Habitual: CALLE')
[REPORTCONTROLS]
! STRING(@s20),USE(HC:CMDD49a)
CMDD49a STRING(20) !Tipo de teléfono
!!> IDENT(751),PROMPT('T.Teléfono:'),HEADER('CMDD 49 a'),MESSAGE('Domicilio
Habitual: CALLE'),TOOLTIP('Domicilio Habitual: CALLE'),PICTURE(@s20)
DERIVEDFROM('HC:CMDD49')
[SCREENCONTROLS]
! PROMPT('Teléfono:'),USE(?HC:CMDD50:Prompt)
! ENTRY(@s30),USE(HC:CMDD50),MSG('Teléfono'),TIP('Teléfono')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD50)
CMDD50 STRING(30) !Teléfono
!!> IDENT(719),PROMPT('Teléfono:'),HEADER('CMDD 50'),MESSAGE('Teléfono')
TOOLTIP('Teléfono'),PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Dirección de correo electrónico - E-Mail:'),USE(?HC:CMDD51:Prompt)
! ENTRY(@s40),USE(HC:CMDD51),MSG('Dirección de correo electrónico - E-Mail')
TIP('Dirección de correo electrónico - E-Mail')
[REPORTCONTROLS]
! STRING(@s40),USE(HC:CMDD51)
CMDD51 STRING(40) !Dirección de correo electrónico -
E-Mail
!!> IDENT(720),PROMPT('Dirección de correo electrónico - E-Mail:'),HEADER(
CMDD 51'),MESSAGE('Dirección de correo electrónico - E-Mail'),TOOLTIP(
Dirección de correo electrónico - E-Mail'),PICTURE(@s40)
[SCREENCONTROLS]
! PROMPT('Edad aparente del paciente -en números:'),USE(?HC:CMDD52:Prompt)
! ENTRY(@n2),USE(HC:CMDD52),DECIMAL(14),MSG('Edad aparente del paciente -en
números'),TIP('Edad aparente del paciente -en números')
[REPORTCONTROLS]
! STRING(@n2),USE(HC:CMDD52),DECIMAL(14)
CMDD52 REAL !Edad aparente del paciente -en números
!!> IDENT(721),PROMPT('Edad aparente del paciente -en números:'),HEADER(
CMDD 52'),MESSAGE('Edad aparente del paciente -en números'),TOOLTIP('Edad
aparente del paciente -en números'),PICTURE(@n2),JUSTIFY(DECIMAL,14)
[SCREENCONTROLS]
! PROMPT('Unidades de edad aparente:'),USE(?HC:CMDD53a:Prompt)
! ENTRY(@s30),USE(HC:CMDD53a),MSG('Unidades de edad aparente'),TIP('Unidades
de edad aparente')
[REPORTCONTROLS]
! STRING(@s30),USE(HC:CMDD53a)
CMDD53a STRING(30) !Unidades de edad aparente
!!> IDENT(722),PROMPT('Unidades de edad aparente:'),HEADER('CMDD 53 a')
MESSAGE('Unidades de edad aparente'),TOOLTIP('Unidades de edad aparente')
PICTURE(@s30)
[SCREENCONTROLS]
! PROMPT('Codigo Unidades de edad aparente:'),USE(?HC:CMDD53:Prompt)
! ENTRY(@s1),USE(HC:CMDD53),MSG('Unidades de edad aparente'),TIP('Unidades
de edad aparente')
[REPORTCONTROLS]
! STRING(@s1),USE(HC:CMDD53)
CMDD53 STRING(1) !Código de Unidades de edad aparente
!!> IDENT(763),PROMPT('Codigo Unidades de edad aparente:'),HEADER('CMDD 53')
MESSAGE('Unidades de edad aparente'),TOOLTIP('Unidades de edad aparente')
PICTURE(@s1),DERIVEDFROM('HC:CMDD53')
[SCREENCONTROLS]
! PROMPT('NroAfiliado:'),USE(?HC:NroAfiliado:Prompt)
! ENTRY(@s25),USE(HC:NroAfiliado)
[REPORTCONTROLS]
! STRING(@s25),USE(HC:NroAfiliado)
NroAfiliado STRING(25)
!!> IDENT(612),PROMPT('NroAfiliado:'),HEADER('NroAfiliado'),PICTURE(@s25)
[SCREENCONTROLS]
! PROMPT('Edad:'),USE(?HC:Edad:Prompt)
! ENTRY(@s6),USE(HC:Edad)
[REPORTCONTROLS]
! STRING(@s6),USE(HC:Edad)
Edad STRING(6),NAME('EDAD=N(20.5)')
!!> IDENT(620),PROMPT('Edad:'),HEADER('Edad'),PICTURE(@s6)
[SCREENCONTROLS]
! PROMPT('Codigo OS:'),USE(?HC:CodigoOS:Prompt)
! ENTRY(@n10),USE(HC:CodigoOS),RIGHT(1)
[REPORTCONTROLS]
! STRING(@n10),USE(HC:CodigoOS),RIGHT(1)
CodigoOS REAL
!!> IDENT(624),PROMPT('Codigo OS:'),HEADER('Codigo OS'),PICTURE(@n10)
JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! CHECK('Sin OS'),USE(HC:SinOS),VALUE('1','0')
[REPORTCONTROLS]
! CHECK('Sin OS'),USE(HC:SinOS),VALUE('1','0')
SinOS STRING(1)
!!> IDENT(625),VALID(BOOLEAN),INITIAL('''0'''),PROMPT('Sin OS:'),HEADER('Sin
OS'),PICTURE(@s1),TRUEVALUE('1'),FALSEVALUE('0')
[SCREENCONTROLS]
! CHECK('Particular'),USE(HC:Particular),VALUE('1','0')
[REPORTCONTROLS]
! CHECK('Particular'),USE(HC:Particular),VALUE('1','0')
Particular STRING(1)
!!> IDENT(626),VALID(BOOLEAN),INITIAL('''0'''),PROMPT('Particular:'),HEADER(
Particular'),PICTURE(@s1),TRUEVALUE('1'),FALSEVALUE('0')
[SCREENCONTROLS]
! CHECK('Discapacidad'),USE(HC:Discapacidad),VALUE('1','0')
[REPORTCONTROLS]
! CHECK('Discapacidad'),USE(HC:Discapacidad),VALUE('1','0')
Discapacidad STRING(1)
!!> IDENT(629),VALID(BOOLEAN),INITIAL('''0'''),PROMPT('Discapacidad:')
HEADER('Discapacidad'),PICTURE(@s1),TRUEVALUE('1'),FALSEVALUE('0')
[SCREENCONTROLS]
! PROMPT('Responsable Apellido:'),USE(?HC:ResponsableApellido:Prompt)
! ENTRY(@s25),USE(HC:ResponsableApellido)
[REPORTCONTROLS]
! STRING(@s25),USE(HC:ResponsableApellido)
ResponsableApellido STRING(25)
!!> IDENT(630),PROMPT('Responsable Apellido:'),HEADER('Responsable Apellido
),PICTURE(@s25)
[SCREENCONTROLS]
! PROMPT('Responsable Nombre:'),USE(?HC:ResponsableNombre:Prompt)
! ENTRY(@s25),USE(HC:ResponsableNombre)
[REPORTCONTROLS]
! STRING(@s25),USE(HC:ResponsableNombre)
ResponsableNombre STRING(25)
!!> IDENT(631),PROMPT('Responsable Nombre:'),HEADER('Responsable Nombre')
PICTURE(@s25)
[SCREENCONTROLS]
! PROMPT('Domicilio Responsable:'),USE(?HC:DomicilioResponsable:Prompt)
! ENTRY(@s25),USE(HC:DomicilioResponsable)
[REPORTCONTROLS]
! STRING(@s25),USE(HC:DomicilioResponsable)
DomicilioResponsable STRING(25)
!!> IDENT(632),PROMPT('Domicilio Responsable:'),HEADER('Domicilio
Responsable'),PICTURE(@s25)
[SCREENCONTROLS]
! PROMPT('Telefono Responsable:'),USE(?HC:TelefonoResponsable:Prompt)
! ENTRY(@s20),USE(HC:TelefonoResponsable)
[REPORTCONTROLS]
! STRING(@s20),USE(HC:TelefonoResponsable)
TelefonoResponsable STRING(20)
!!> IDENT(644),PROMPT('Telefono Responsable:'),HEADER('Telefono Responsable
),PICTURE(@s20)
[SCREENCONTROLS]
! CHECK('Impresa'),USE(HC:Impresa),VALUE('1','0')
[REPORTCONTROLS]
! CHECK('Impresa'),USE(HC:Impresa),VALUE('1','0')
Impresa STRING(1)
!!> IDENT(634),VALID(BOOLEAN),INITIAL('''0'''),PROMPT('Impresa:'),HEADER(
Impresa'),PICTURE(@s1),TRUEVALUE('1'),FALSEVALUE('0')
[SCREENCONTROLS]
! PROMPT('Fotografia:'),USE(?HC:Fotografia:Prompt)
! ENTRY(@s150),USE(HC:Fotografia)
[REPORTCONTROLS]
! STRING(@s150),USE(HC:Fotografia)
Fotografia STRING(150)
!!> IDENT(635),PROMPT('Fotografia:'),HEADER('Fotografia'),PICTURE(@s150)
[SCREENCONTROLS]
! PROMPT('Usuario:'),USE(?HC:Usuario:Prompt)
! ENTRY(@s10),USE(HC:Usuario)
[REPORTCONTROLS]
! STRING(@s10),USE(HC:Usuario)
Usuario STRING(10)
!!> IDENT(636),PROMPT('Usuario:'),HEADER('Usuario'),PICTURE(@s10)
[SCREENCONTROLS]
! PROMPT('Fecha:'),USE(?HC:Fecha:Prompt)
! ENTRY(@d6),USE(HC:Fecha),RIGHT(1)
[REPORTCONTROLS]
! STRING(@d6),USE(HC:Fecha),RIGHT(1)
Fecha DATE
!!> IDENT(628),INITIAL('Today()'),PROMPT('Fecha:'),HEADER('AltaHC')
PICTURE(@d6),JUSTIFY(RIGHT,1)
[SCREENCONTROLS]
! PROMPT('Hora:'),USE(?HC:Hora:Prompt)
! ENTRY(@P##:##P),USE(HC:Hora)
[REPORTCONTROLS]
! STRING(@P##:##P),USE(HC:Hora)
Hora STRING(4)
!!> IDENT(789),PROMPT('Hora:'),HEADER('Hora'),PICTURE(@P##:##P)
