JR

 

 

 

 

 

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)