[Care2x-general] Listado HC prometido
JR
jrbiolinux en yahoo.com.ar
Mar Nov 9 18:11:46 CET 2004
Esttimado PJ. La verdad que es una locura seguir esto,
no se como estas cuerdo todavia. Podrias comentar cual
es tu analisis?
JR
--- "aoniken.net" <aoniken en aoniken.net> escribió:
> 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)
> >
_______________________________________________
> Care2x-general mailing list
> Care2x-general en lists.ourproject.org
>
http://lists.ourproject.org/cgi-bin/mailman/listinfo/care2x-general
Correo Yahoo! - 6 MB, tecnología antispam ¡gratis!
Suscribite ya http://correo.yahoo.com.ar/
Más información sobre la lista de distribución Care2x-general