43ba94b692
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunti nuovi form per etichette, lettere, stampe varie git-svn-id: svn://10.65.10.50/trunk@9002 c028cbd2-c16b-5b4b-a496-9718f37d4682
170 lines
1.9 KiB
Plaintext
Executable File
170 lines
1.9 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 2 "N.Car."
|
|
END
|
|
|
|
STRINGA 2 2
|
|
BEGIN
|
|
KEY "Categoria"
|
|
PROMPT 8 2 "C."
|
|
END
|
|
|
|
STRINGA 3 15
|
|
BEGIN
|
|
KEY "Cognome e nome"
|
|
PROMPT 11 2 "Cognome e nome"
|
|
END
|
|
|
|
STRINGA 4 7
|
|
BEGIN
|
|
KEY "Nato il"
|
|
PROMPT 63 2 "Nato il"
|
|
END
|
|
|
|
STRINGA 5 9
|
|
BEGIN
|
|
KEY "Gruppo AB0"
|
|
PROMPT 74 2 " AB0 "
|
|
END
|
|
|
|
STRINGA 6 9
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
PROMPT 84 2 " Rh "
|
|
END
|
|
|
|
STRINGA 7 9
|
|
BEGIN
|
|
KEY "Kell"
|
|
PROMPT 94 2 " Kell "
|
|
END
|
|
|
|
STRINGA 8 9
|
|
BEGIN
|
|
KEY "Du"
|
|
PROMPT 104 2 " Du "
|
|
END
|
|
|
|
STRINGA 9 11
|
|
BEGIN
|
|
KEY "Fenotipo"
|
|
PROMPT 114 2 " Fenotipo Rh "
|
|
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
|