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"
 //PROMPT  115 2 "Pag. "
 //MESSAGE _PAGENO
END


END // END SECTION HEADER

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 // END SECTION BODY

SECTION FOOTER ODD 3

STRINGA 1 10
BEGIN
	KEY "Niente"
	PROMPT 1 1 "---"
END

END // END SECTION FOOTER

END // END FORM