f2185ee347
Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
150 lines
1.7 KiB
Plaintext
Executable File
150 lines
1.7 KiB
Plaintext
Executable File
USE 90
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
90->* "Soggetti Sezioni AVIS"
|
|
END
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT ""
|
|
SIZE 12
|
|
GRID ""
|
|
END
|
|
SECTION HEADER ODD 3
|
|
STRINGA 1 6
|
|
BEGIN
|
|
KEY "Cartella clinica"
|
|
PROMPT 1 3 "N.Car."
|
|
END
|
|
STRINGA 2 2
|
|
BEGIN
|
|
KEY "Categoria"
|
|
PROMPT 8 3 "C."
|
|
END
|
|
STRINGA 3 15
|
|
BEGIN
|
|
KEY "Cognome e nome"
|
|
PROMPT 11 3 "Cognome e nome"
|
|
END
|
|
STRINGA 4 7
|
|
BEGIN
|
|
KEY "Nato il"
|
|
PROMPT 63 3 "Nato il"
|
|
END
|
|
STRINGA 5 9
|
|
BEGIN
|
|
KEY "Gruppo AB0"
|
|
PROMPT 74 3 " AB0 "
|
|
END
|
|
STRINGA 6 9
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
PROMPT 84 3 " Rh "
|
|
END
|
|
STRINGA 7 9
|
|
BEGIN
|
|
KEY "Kell"
|
|
PROMPT 94 3 " Kell "
|
|
END
|
|
STRINGA 8 9
|
|
BEGIN
|
|
KEY "Du"
|
|
PROMPT 104 3 " Du "
|
|
END
|
|
STRINGA 9 13
|
|
BEGIN
|
|
KEY "Fenotipo"
|
|
PROMPT 114 3 " Fenotipo Rh "
|
|
END
|
|
STRINGA 10 10
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 1 2 "Data "
|
|
MESSAGE _TODAY
|
|
END
|
|
NUMERO 11 7
|
|
BEGIN
|
|
KEY "Nr. pagina"
|
|
END
|
|
END
|
|
SECTION BODY ODD 3
|
|
STRINGA 1 25
|
|
BEGIN
|
|
KEY "Cognome"
|
|
FIELD 90->COGNOME
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,3|COPY,3
|
|
END
|
|
STRINGA 2 25
|
|
BEGIN
|
|
KEY "Nome"
|
|
FIELD 90->NOME
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,3
|
|
END
|
|
STRINGA 3 51
|
|
BEGIN
|
|
KEY "Cognome e nome"
|
|
PROMPT 11 1 ""
|
|
END
|
|
STRINGA 4 6
|
|
BEGIN
|
|
KEY "Cartella clinica"
|
|
PROMPT 1 1 ""
|
|
FIELD 90->CODCL
|
|
END
|
|
STRINGA 5 2
|
|
BEGIN
|
|
KEY "Categoria"
|
|
PROMPT 8 1 ""
|
|
FIELD 90->CATDON
|
|
END
|
|
DATA 6 10
|
|
BEGIN
|
|
KEY "Data nascita"
|
|
PROMPT 63 1 ""
|
|
FIELD 90->DATANASC
|
|
END
|
|
STRINGA 7 3
|
|
BEGIN
|
|
KEY "Gruppo AB0"
|
|
PROMPT 77 1 ""
|
|
FIELD 90->GRUPPOAB0
|
|
END
|
|
STRINGA 8 3
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
PROMPT 87 1 ""
|
|
FIELD 90->RHANTID
|
|
END
|
|
STRINGA 9 3
|
|
BEGIN
|
|
KEY "Kell"
|
|
PROMPT 97 1 ""
|
|
FIELD 90->KELL
|
|
END
|
|
STRINGA 10 3
|
|
BEGIN
|
|
KEY "Du"
|
|
PROMPT 107 1 ""
|
|
FIELD 90->DU
|
|
END
|
|
STRINGA 11 6
|
|
BEGIN
|
|
KEY "Fenotipo"
|
|
PROMPT 115 1 ""
|
|
FIELD 90->FENOTIPORH
|
|
END
|
|
END
|
|
SECTION FOOTER ODD 3
|
|
STRINGA 1 10
|
|
BEGIN
|
|
KEY "Niente"
|
|
PROMPT 1 1 "---"
|
|
END
|
|
END
|
|
END
|