[Care2x-general] Listado HC prometido

• Mensaje anterior: [Care2x-general] por favor instalen soulseek para compartirarchivos
• Próximo mensaje: [Care2x-general] Listado HC prometido
• Mensajes ordenados por: [ fecha ] [ hilo ] [ asunto ] [ autor ]

 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(@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(@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)
                       
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: /pipermail/care2x-general/attachments/20041107/3cc1ed59/attachment-0001.html

• Mensaje anterior: [Care2x-general] por favor instalen soulseek para compartirarchivos
• Próximo mensaje: [Care2x-general] Listado HC prometido
• Mensajes ordenados por: [ fecha ] [ hilo ] [ asunto ] [ autor ]