[Care2x-general] Listado HC prometido

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)