campo-sirio/at/prova.uml

#include "at0100a.h"
#include "lf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_GENDON 25 1
BEGIN
PROMPT -13 -3 "Genera donazioni"
MESSAGE K_F10
END
 
#include <toolbar.h>
ENDPAGE

PAGE "Pag.1" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
   PROMPT 2 1 "Codice"
END

TEXT DLG_NULL
BEGIN
   PROMPT 11 1 "Cognome e nome"
END

TEXT DLG_NULL
BEGIN
   PROMPT 66 1 "Nato il"
END

NUMBER F_CODICE 6
BEGIN
  PROMPT 2 2 ""
  FIELD CODICE
  FLAGS "RG"
  KEY 1
  USE LF_SOGGETTI
  INPUT CODICE F_CODICE
  DISPLAY "Codice@6" CODICE
  DISPLAY "Cognome@36" COGNOME
  DISPLAY "Nome@36" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  DISPLAY "Tessera" TESSAVIS
  OUTPUT F_CODICE CODICE
  OUTPUT F_COGNOME COGNOME
  OUTPUT F_NOME NOME
  OUTPUT F_DATANASC DATANASC
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
END

STRING F_COGNOME 36 25
BEGIN
  PROMPT 11 2 ""
  FIELD COGNOME
  KEY 2
  USE LF_SOGGETTI KEY 2
  INPUT COGNOME F_COGNOME
  INPUT NOME F_NOME
  DISPLAY "Cognome@36" COGNOME
  DISPLAY "Nome@36" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Codice@6" CODICE
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  DISPLAY "Tessera" TESSAVIS
  OUTPUT F_CODICE CODICE
  OUTPUT F_COGNOME COGNOME
  OUTPUT F_NOME NOME
  OUTPUT F_DATANASC DATANASC
  MESSAGE COPY,2@
  CHECKTYPE REQUIRED
  HELP "Cognome del soggetto"
END

STRING F_NOME 36 25
BEGIN
  PROMPT 39 2 ""
  FIELD NOME
  KEY 2
  COPY ALL F_COGNOME
  MESSAGE COPY,3@
  CHECKTYPE REQUIRED
  HELP "Nome del soggetto"
END

DATE F_DATANASC 
BEGIN
  PROMPT 66 2 ""
  FIELD DATANASC
  MESSAGE COPY,4@
  CHECKTYPE REQUIRED
  VALIDATE NOT_EMPTY_CHECK_FIELD
  HELP "Data di nascita"
END

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 5 "Dati associativi"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 6 "Sezione "
  FIELD CODSEZ
  FLAGS "U"
  USE LF_SEZIONI
  INPUT CODSEZ F_CODSEZ
  INPUT CODSOT F_CODSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  OUTPUT F_CODSEZ CODSEZ
  OUTPUT F_DENSEZ DENSEZ
  OUTPUT F_CODSOT CODSOT
  OUTPUT F_DENSOT DENSOT
  //CHECKTYPE NORMAL
  CHECKTYPE SEARCH
  HELP "Codice sezione di appartenenza"
  ADD MASK at0700a
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 15 6 ""
  FLAGS "U"
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_DENSEZ
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  COPY OUTPUT F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Denominazione sezione di appartenenza"
  ADD MASK at0700a
END

STRING F_CODSOT 2
BEGIN
  PROMPT 2 7 "Sottog. "
  FIELD CODSOT
  COPY ALL F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Codice sottogruppo di appartenenza"
  ADD MASK at0700a
END

STRING F_DENSOT 25
BEGIN        	
  PROMPT 15 7 ""
  FLAGS "U"
  COPY USE F_DENSEZ
  INPUT DENSEZ F_DENSEZ
  INPUT DENSOT F_DENSOT
  COPY DISPLAY F_DENSEZ
  COPY OUTPUT F_DENSEZ
  CHECKTYPE NORMAL
  HELP "Sottogruppo di appartenenza"
  ADD MASK at0700a
END

STRING F_CATDON 2
BEGIN
  PROMPT 2 8 "Categ.  "
  FIELD CATDON
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_CATDON
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CATDON CODTAB
  OUTPUT F_DESC_CATDON S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Categoria di appartenenza"
END

STRING F_DESC_CATDON 22
BEGIN
  PROMPT 15 8 ""
  FLAGS "D"
END

DATE F_DATAISC
BEGIN
  PROMPT 44 6 "Isc. "
  FIELD DATAISC
  HELP "Data di iscrizione alla sezione/categoria"
END

DATE F_DATADIM
BEGIN
  PROMPT 61 6 "Dim. "
  FIELD DATADIM
  HELP "Data di dimissione dalla sezione/categoria"
END

STRING F_TESSAVIS 10
BEGIN
  PROMPT 46 7 "Numero tessera AVIS "
  FIELDS TESSAVIS
  FLAGS "U"
  HELP "Numero tessera associativa AVIS"
END

STRING F_CODCL 6
BEGIN
  PROMPT 39 8 "Cart. clinica "
  FIELDS CODCL
  FLAGS "U"
  HELP "Numero cartella clinica"
END

STRING F_CODCT 6
BEGIN
  PROMPT 62 8 "Cod. CT "
  FIELDS CODCT
  FLAGS "U"
  HELP "Codice Centro Trasfusionale"
END


GROUPBOX DLG_NULL 77 11
BEGIN
        PROMPT 1 10 "Dati anagrafici"
END

STRING F_COMNASC 4
BEGIN
  PROMPT 2 11 "Nato a "
  FIELD COMNASC
  FLAGS "U"
  USE LF_COMUNI 
  INPUT STATO ""
  INPUT COM F_COMNASC
#include <comdcod.h>
  OUTPUT F_COMNASC COM
  OUTPUT F_DENCOMNASC DENCOM
  OUTPUT F_PROVCOMNASC PROVCOM
  CHECKTYPE NORMAL
  HELP "Codice comune di nascita"
  WARNING "Comune assente"
END

STRING F_DENCOMNASC 50 30
BEGIN
  PROMPT 16 11 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOMNASC
#include <comdden.h>
  COPY OUTPUT F_COMNASC
  CHECKTYPE NORMAL
  HELP "Comune di nascita"
END

STRING F_PROVCOMNASC 5
BEGIN
  PROMPT 49 11 ""
  FLAGS "D"
END

LISTBOX F_SESSO 11
BEGIN
  PROMPT 57 11 "Sesso "
  FIELD SESSO
  FLAGS "U"
#include "sesso.h"
END

STRING F_DOCID 20
BEGIN
  PROMPT 2 12 "Doc. iden. "
  FIELDS DOCID
  FLAGS "U"
  HELP "Documento di identit<69>: tipo e numero"
END


STRING F_CF 16
BEGIN
  PROMPT 38 12 "CF  "
  FIELD CF
  FLAGS "U"
  HELP "Codice fiscale"
END

STRING F_TESSSSN 10
BEGIN
  PROMPT 62 12 "SSN "
  FIELDS TESSSSN
  FLAGS "U"
  HELP "Numero tessera Servizio Sanitario Nazionale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Domicilio"
END

STRING F_DOM_INDIR 30
BEGIN
  PROMPT 2 14 "Indirizzo "
  FIELD F_DOM_INDIR
END

STRING F_DOM_STRADA 5
BEGIN
  PROMPT 44 14 "Stradario "
END

STRING F_DOM_DISTRI 4
BEGIN
  PROMPT 61 14 "Distribuz. "
END

STRING F_DOM_CODCOM 4
BEGIN
  PROMPT 2 15 "Comune    "
  FIELD DOM_CODCOM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_DOM_CODCOM
#include <comdcod.h>
  OUTPUT F_DOM_CODCOM COM
  OUTPUT F_DOM_DENCOM DENCOM
  OUTPUT F_DOM_PROVCOM PROVCOM
  OUTPUT F_DOM_CAPCOM CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  HELP "Codice comune di residenza"
END

STRING F_DOM_DENCOM 30
BEGIN
  PROMPT 19 15 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DOM_DENCOM
#include <comdden.h>
  COPY OUTPUT F_DOM_CODCOM
  CHECKTYPE NORMAL
  HELP "Comune di residenza"
END

STRING F_DOM_CODLOC 4
BEGIN
  PROMPT 2 13 "Localita' "
  FIELD DOM_CODLOC
  FLAGS "U"
  USE LCP SELECT S7=#F_DOM_CODLOC
  INPUT CODTAB F_DOM_CODLOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Localita'@30" S0
  DISPLAY "CAP@5" S6
  OUTPUT F_DOM_CODLOC CODTAB
  OUTPUT F_DOM_DENLOC S0
  OUTPUT F_DOM_CAPCOM S6
  OUTPUT F_DOM_CODCOM S7
  CHECKTYPE NORMAL
  HELP "Codice localita' postale se diversa dal comune"
END

STRING F_DOM_DENLOC 30
BEGIN
  PROMPT 19 13 ""
  COPY USE F_DOM_CODLOC
  INPUT S0 F_DOM_DENLOC
  DISPLAY "Localita'@30" S0
  DISPLAY "CAP@5" S6
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DOM_CODLOC
  CHECKTYPE NORMAL
  HELP "Localita' postale se diversa dal comune"
END

STRING F_DOM_PROVCOM 5
BEGIN
  PROMPT 71 15 ""
  FLAGS "D"
END

STRING F_DOM_CAPCOM 5
BEGIN
  PROMPT 67 15 "CAP "
END

STRING F_TELABI 15
BEGIN
  PROMPT 2 16 "Telefoni:  Abit. "
  FIELD TELABI
  HELP "Telefono abitazione"
END

STRING F_TELLAV 15
BEGIN
  PROMPT 37 16 "Lav. "
  FIELD TELLAV
  HELP "Telefono lavoro"
END

STRING F_TELALT 15
BEGIN
  PROMPT 59 16 "3 "
  FIELD TELALT
  HELP "Altro numero telefonico per reperibilit<69>"
END

//RADIOBUTTON F_SESSO 25
//BEGIN
//  PROMPT 1 16 "Sesso"
//  FIELD SESSO
//  FLAGS "Z"
//  ITEM "M|Maschio"
//  ITEM "F|Femmina"
//END
//
//GROUPBOX DLG_NULL 43 3
//BEGIN
//   PROMPT 35 16 "Ultimo aggiornamento"
//END
//

//DATE F_DATAULTAGG
//BEGIN
//  PROMPT 36 17 "Data "
//  FIELD DATAULTAGG
//  FLAGS "D"
//END

//STRING F_UTENULTAGG 8
//BEGIN
//  PROMPT 60 17 "Utente "
//  FIELD UTENULTAGG
//  FLAGS "D"
//END

ENDPAGE

PAGE "Pag.2" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 5 "Altri dati associativi"
END

STRING F_CATNOND1 2
BEGIN
  PROMPT 2 6 "Categorie non don. "
  FIELD CATNOND1
  FLAGS "U"
  USE CTN
  INPUT CODTAB F_CATNOND1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CATNOND1 CODTAB
  OUTPUT F_DESC_CATNOND1 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Altra categoria non donatori"
END

STRING F_DESC_CATNOND1 20
BEGIN
  PROMPT 26 6 ""
  FLAGS "D"
END

STRING F_CATNOND2 2
BEGIN
  PROMPT 50 6 ""
  FIELD CATNOND2
  FLAGS "U"
  COPY USE F_CATNOND1
  INPUT CODTAB F_CATNOND2
  COPY DISPLAY F_CATNOND1
  OUTPUT F_CATNOND2 CODTAB
  OUTPUT F_DESC_CATNOND2 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Altra categoria non donatori"
END

STRING F_DESC_CATNOND2 20
BEGIN
  PROMPT 55 6 ""
  FLAGS "D"
END

STRING F_TITINDIR 10
BEGIN
  PROMPT 2 7 "Titolo personale   "
  FIELDS TESSSSN
  HELP "Eventuale titolo da stampare prima del nome sull'indirizzo"
END

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 9 "Codici di identificazione"
END

STRING F_CODCT 6
BEGIN
  PROMPT 2 10 "Codice CT  "
  FIELDS CODCT
  FLAGS "U"
  HELP "Codice Centro Trasfusionale"
END

STRING F_CODCL 6
BEGIN
  PROMPT 25 10 "Cartella clinica "
  FIELDS CODCL
  FLAGS "U"
  HELP "Numero cartella clinica"
END

STRING F_TESSAVIS 10
BEGIN
  PROMPT 53 10 "Tessera AVIS "
  FIELDS TESSAVIS
  FLAGS "U"
  HELP "Numero tessera associativa AVIS"
END

STRING F_DOCID 20
BEGIN
  PROMPT 2 11 "Doc. iden. "
  FIELDS DOCID
  FLAGS "U"
  HELP "Documento di identit<69>: tipo e numero"
END


STRING F_CF 16
BEGIN
  PROMPT 38 11 "CF  "
  FIELD CF
  FLAGS "U"
  HELP "Codice fiscale"
END

STRING F_TESSSSN 10
BEGIN
  PROMPT 62 11 "SSN "
  FIELDS TESSSSN
  FLAGS "U"
  HELP "Numero tessera Servizio Sanitario Nazionale"
END


GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 13 "Dati statistici"
END

LISTBOX F_CONDOCC 25
BEGIN
  PROMPT 2 14 "Cond. occ.  "
  FIELD CONDOCC
  FLAGS "U"
#include "condocc.h"
END

LISTBOX F_POSPROF 20
BEGIN
  PROMPT 43 14 "Pos. prof. "
  FIELD POSPROF
  FLAGS "U"
#include "posprof.h"
END

LISTBOX F_RAMOATT 25
BEGIN
  PROMPT 2 15 "Ramo att.   "
  FIELD RAMOATT
  FLAGS "U"
#include "ramoatt.h"
END

LISTBOX F_TITSTUD 20
BEGIN
  PROMPT 43 15 "Tit. stud. "
  FIELD TITSTUD
  FLAGS "U"
#include "titstud.h"
END

STRING F_PROFESS 4
BEGIN
  PROMPT 2 16 "Professione "
  FIELD PROFESS
  FLAGS "D"
//  USE IDO
//  INPUT CODTAB F_IDON1
//  OUTPUT F_DESC_ID1 S0
//  CHECKTYPE NORMAL
END

STRING F_DESC_PROF 40
BEGIN
  PROMPT 21 16 ""
  FLAGS "D"
END

STRING F_LUOGOLAV 4
BEGIN
  PROMPT 2 17 "Luogo lav.  "
  FLAGS "D"
END

STRING F_DESC_LUOGO 40
BEGIN
  PROMPT 21 17 ""
  FLAGS "D"
END

ENDPAGE
       
PAGE "Pag.3" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 5 "Situazione sanitaria"
END

STRING F_STATO 2
BEGIN
  PROMPT 2 6 "Stato attuale "
  FIELD STATO
  FLAGS "D"
  USE TCS
  INPUT CODTAB F_STATO
  OUTPUT F_DESCSTATO S3
  CHECKTYPE NORMAL
END

STRING F_DESCSTATO 20
BEGIN
  PROMPT 20 6 ""
  FLAGS "D"
END

DATE F_DATASTATO
BEGIN
  PROMPT 55 6 "Data stato "
  FIELD DATASTATO
  FLAGS "D"
END

STRING F_IDON1 2
BEGIN
  PROMPT 2 8 "Tipi di idon. "
  FIELD IDON1
  FLAGS "D"
  USE IDO
  INPUT CODTAB F_IDON1
  OUTPUT F_DESC_ID1 S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ID1 25
BEGIN
  PROMPT 20 8 ""
  FLAGS "D"
END

STRING F_IDON2 2
BEGIN
  PROMPT 47 8  ""
  FIELD IDON2
  FLAGS "D"
  USE IDO
  INPUT CODTAB F_IDON2
  OUTPUT F_DESC_ID2 S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ID2 25
BEGIN
  PROMPT 51 8 ""
  FLAGS "D"
END

STRING F_IDON3 2
BEGIN
  PROMPT 2 9 "              "
  FIELD IDON3
  FLAGS "D"
  USE IDO
  INPUT CODTAB F_IDON3
  OUTPUT F_DESC_ID3 S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ID3 25
BEGIN
  PROMPT 20 9 ""
  FLAGS "D"
END

STRING F_IDON4 2
BEGIN
  PROMPT 47 9 ""
  FIELD IDON4
  FLAGS "D"
  USE IDO
  INPUT CODTAB F_IDON4
  OUTPUT F_DESC_ID4 S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ID4 25
BEGIN
  PROMPT 51 9 ""
  FLAGS "D"
END

DATE F_DATAULTID 
BEGIN
  PROMPT 2 10 "Data ult. id. "
  FIELD DATAULTID
  FLAGS "D"
END

STRING F_TIPOULTID 2
BEGIN
  PROMPT 30 10 "Tipo "
  FIELD TIPOULTID
  FLAGS "D"
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 12 "Situazione donazioni"
END

NUMBER F_TOTDON 3
BEGIN
  PROMPT 2 13 "Totale "
  FIELD TOTDON
  FLAGS "D"
END

DATE F_DATAULTDON
BEGIN
  PROMPT 15 13 "Data/tipo ultima "
  FIELD DATAULTDON
  FLAGS "D"
END

STRING F_TIPOULTDON 2
BEGIN
  PROMPT 44 13 ""
  FIELD TIPOULTDON
  FLAGS "D"
  USE TDN
  INPUT CODTAB F_TIPOULTDON
  OUTPUT F_DESC_ULTDON S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ULTDON 25
BEGIN
  PROMPT 48 13 ""
  FLAGS "D"
END

NUMBER F_TOTDONSI 3
BEGIN
  PROMPT 2 14 "Totale don.   : Sangue intero "
  FIELD TOTDONSI
  FLAGS "D"
END

NUMBER F_TOTDONAF 3
BEGIN
  PROMPT 48 14 "Aferesi "
  FIELD TOTDONAF
  FLAGS "D"
END

DATE F_DATAULTSI
BEGIN
  PROMPT 2 15 "Date ultima   : Sangue intero "
  FIELD DATAULTSI
  FLAGS "D"
END

DATE F_DATAULTAF
BEGIN
  PROMPT 48 15 "Aferesi "
  FIELD DATAULTAF
  FLAGS "D"
END

NUMBER F_INTSI 3
BEGIN
  PROMPT 2 16 "Intervalli    : Sangue intero "
  FIELD INTSI
  FLAGS "D"
END 

NUMBER F_INTAF 3
BEGIN
  PROMPT 48 16 "Aferesi "
  FIELD INTAF
  FLAGS "D"
END

DATE F_DATAPROSSI
BEGIN
  PROMPT 2 17 "Date prossima : Sangue intero "
  FIELD DATAPROSSI
  FLAGS "D"
END

DATE F_DATAPROSAF
BEGIN
  PROMPT 48 17 "Aferesi "
  FIELD DATAPROSAF
  FLAGS "D"
END

ENDPAGE

PAGE "Pag.4" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END


GROUPBOX DLG_NULL 77 3
BEGIN
  PROMPT 1 5 "Tipizzazione"
END

LISTBOX F_GRUPPOAB0 5
BEGIN
  PROMPT 2 6 "Gruppo AB0 "
  FIELD GRUPPOAB0
  FLAGS "U"
#include "gruppo.h"	
END       

LISTBOX F_RHANTID 5
BEGIN
  PROMPT 22 6 "Rh/AntiD "
  FIELD RHANTID
  FLAGS "U"
#include "rh.h"	
END

STRING F_FENOTIPORH 6
BEGIN
  PROMPT 39 6 "Fen.Rh "
  FIELD FENOTIPORH
END

LISTBOX F_KELL 5
BEGIN
  PROMPT 55 6 "Kell "
  FIELD KELL
  FLAGS "U"
#include "rh.h"	
END

LISTBOX F_DU 5
BEGIN
  PROMPT 68 6 "Du "
  FIELD DU
  FLAGS "U"
#include "rh.h"	
END

GROUPBOX DLG_NULL 77 3
BEGIN
  PROMPT 1 8 "Medico di base"
END

NUMBER F_CODMED 6
BEGIN
  PROMPT 2 9 "Medico "
  FIELD CODMED
  FLAGS "U"
  USE LF_MEDICI
  INPUT CODMED F_CODMED
  DISPLAY "Codice" CODMED
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  OUTPUT F_CODMED CODMED
  OUTPUT F_COGNMED COGNOME
  OUTPUT F_NOMMED NOME
  CHECKTYPE NORMAL
  HELP "Codice medico di base"
  WARNING "Codice medico assente"
  ADD MASK at0800a
END

STRING F_COGNMED 25
BEGIN
  PROMPT 19 9 ""
  USE LF_MEDICI KEY 2
  INPUT COGNOME F_COGNMED
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Codice" CODMED
  COPY OUTPUT F_CODMED
  CHECKTYPE SEARCH
  HELP "Medico di base"
  WARNING "Medico assente"
  ADD MASK at0800a
END

STRING F_NOMMED 25
BEGIN
  PROMPT 48 9 ""
  USE LF_MEDICI KEY 2
  INPUT COGNOME F_COGNMED
  INPUT NOME F_NOMMED
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Codice" CODMED
  COPY OUTPUT F_COGNMED
  CHECKTYPE NORMAL
  HELP "Medico di base"
  WARNING "Medico assente"
  ADD MASK at0800a
END

GROUPBOX DLG_NULL 35 5
BEGIN
  PROMPT 1 11 "Preferenze"
END

LISTBOX F_MODCONV 13
BEGIN
  PROMPT 2 12 "Modalit<69> convoc. "
  FIELD MODCONV
#include "modalita.h"	
END

LISTBOX F_GIOPREDON 13
BEGIN
  PROMPT 2 13 "Giorno donazione "
  FIELD GIOPREDON
#include "giorni.h"
END

LISTBOX F_GIOPRECON 13
BEGIN
  PROMPT 2 14 "Giorno controlli "
  FIELD GIOPRECON
#include "giorni.h"	
END

GROUPBOX DLG_NULL 41 5
BEGIN
  PROMPT 37 11 "Esclusione non sanitaria"
END

LISTBOX F_ESCLUSO 20
BEGIN
  PROMPT 38 12 "Tipo    "
  FIELD ESCLUSO
  ITEM "  | "
  MESSAGE CLEAR, F_TERMESCL
  MESSAGE CLEAR, F_MOTESCL
  MESSAGE DISABLE, F_TERMESCL
  MESSAGE DISABLE, F_MOTESCL
  ITEM "TI|Tempo indeterminato"
  MESSAGE CLEAR, F_TERMESCL
  MESSAGE DISABLE, F_TERMESCL
  MESSAGE ENABLE, F_MOTESCL
  ITEM "TD|Tempo determinato"
  MESSAGE ENABLE, F_TERMESCL
  MESSAGE ENABLE, F_MOTESCL
END

DATE F_TERMESCL
BEGIN
  PROMPT 38 13 "Termine "
  FIELD TERMESCL
END

STRING F_MOTESCL 30
BEGIN
  PROMPT 38 14 "Motivo  "
  FIELD MOTESCL
END

ENDPAGE

PAGE "Donazioni" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 77 14
BEGIN
  PROMPT 1 5 "Donazioni"
END

SPREADSHEET F_DONAZIONI 75 12
BEGIN
   PROMPT 2 6 ""
   ITEM "Data@10"
   ITEM "Tipo"
   ITEM "Luogo"
   ITEM "Etichetta"
   ITEM "CC@3"
   ITEM "P.A.@7"
   ITEM "Hb@4"
   ITEM "SGPT"
   ITEM "Prot."
   //ITEM "Prima"
END

ENDPAGE

PAGE "Controlli" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 77 14
BEGIN
  PROMPT 1 5 "Controlli sanitari"
END

SPREADSHEET F_CONTROLLI 75 12
BEGIN
   PROMPT 2 6 ""
   ITEM "Data@10"
   ITEM "Tipo"
   ITEM "Id.1"
   ITEM "Id.2"
   ITEM "Id.3"
   ITEM "Id.4"
   ITEM "Int.SI"
   ITEM "Int.AF"
   ITEM "Pr.tipo"
   ITEM "Pr.data"
END

ENDPAGE

PAGE "Ben./Sto." -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
  PROMPT 2 2 "Cognome e nome "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 46 2 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 77 8
BEGIN
  PROMPT 1 5 "Benemerenze"
END

SPREADSHEET F_BENEMERENZE 75 6
BEGIN
   PROMPT 2 6 ""
   ITEM "Tipo"
   ITEM "Data@10"
   ITEM "Ritirata?"
END

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 13 "Storico iscrizioni e dimissioni"
END

SPREADSHEET F_STORICO 75 4
BEGIN
   PROMPT 2 14 ""
   ITEM "Dal@10"
   ITEM "Al@10"
   ITEM "Sezione"
   ITEM "Sottogruppo"
   ITEM "Cat. Isc."
   ITEM "Motivo dim."
END

ENDPAGE

ENDMASK

PAGE "Donazioni" -1 -1 75 13

DATE F_D_DATADON
BEGIN
   PROMPT 2 1 "Data donazione  "
   FIELD LF_DONAZ->DATADON
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data donazione"
END

STRING F_D_TIPODON 2
BEGIN
   PROMPT 2 2 "Tipo donazione  "
   FIELD LF_DONAZ->TIPODON
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_D_TIPODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_D_TIPODON CODTAB
   OUTPUT F_D_DESC_TIPODON S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice non presente"
   HELP "Tipo donazione"
END

STRING F_D_LUOGODON 4
BEGIN
   PROMPT 2 3 "Luogo donazione "
   FIELD LF_DONAZ->LUOGODON
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_D_LUOGODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_D_LUOGODON CODTAB
   OUTPUT F_D_DESC_LUOGODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Luogo donazione"
END

NUMBER F_D_ETICHETTA 9
BEGIN
   PROMPT 2 5 "Etichetta sacca "
   FIELD LF_DONAZ->ETICHETTA
END

NUMBER F_D_CC 3
BEGIN
   PROMPT 30 5  "CC "
   FIELD LF_DONAZ->CC
   FLAGS "U"
END

GROUPBOX DLG_NULL 70 3
BEGIN
  PROMPT 1 7 "Dati sanitari"
END

STRING F_D_PA 7
BEGIN
   PROMPT 2 8  "PA "
   FIELD LF_DONAZ->PA
END

NUMBER F_D_HB 4 1
BEGIN
   PROMPT 17 8  "Hb "
   FIELD LF_DONAZ->HB
   FLAGS "U"
END

NUMBER F_D_SGPT 3
BEGIN
   PROMPT 32 8  "SGPT "
   FIELD LF_DONAZ->SGPT
   FLAGS "U"
END

NUMBER F_D_PROTIDEMIA 3 1
BEGIN
   PROMPT 47 8  "Protidemia "
   FIELD LF_DONAZ->PROTIDEMIA
   FLAGS "U"
END

//BOOLEAN F_D_PRIMADON
//BEGIN
//   PROMPT 2 10  "Prima donazione "
//   FIELD LF_DONAZ->PRIMADON
//END

STRING F_D_DESC_TIPODON 25
BEGIN
  PROMPT 30 2 ""
  FLAGS "D"
END

STRING F_D_DESC_LUOGODON 25
BEGIN
  PROMPT 30 3 ""
  FLAGS "D"
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
   PROMPT -33 -1 ""
   MESSAGE EXIT, K_DEL
END

ENDPAGE

ENDMASK

PAGE "Controlli sanitari" -1 -1 75 18

GRUPBOX DLG_NULL 70 4
BEGIN
   PROMPT 1 1 "Dati fondamentali del controllo"
END

DATE F_C_DATACON
BEGIN
   PROMPT 2 2 "Data controllo  "
   FIELD LF_CONTSAN->DATACON
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data controllo"
END

STRING F_C_TIPOCON 2
BEGIN
   PROMPT 2 3 "Tipo controllo  "
   FIELD LF_CONTSAN->TIPOCON
   FLAGS "U"
   USE TCS
   INPUT CODTAB F_C_TIPOCON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_C_TIPOCON CODTAB
   OUTPUT F_C_DESC_TIPOCON S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice non presente"
   HELP "Tipo/Esito controllo sanitario"
END

GRUPBOX DLG_NULL 70 7
BEGIN
   PROMPT 1 5 "Dati da compilare se si tratta di idoneita'"
END

TEXT DLG_NULL
BEGIN
   PROMPT 2 6 "Tipi donazione ammessi"
END

STRING F_C_IDON1 2
BEGIN
  PROMPT 2 7 ""
  FIELD LF_CONTSAN->IDON1
  FLAGS "U"
  USE IDO
  INPUT CODTAB F_C_IDON1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_C_IDON1 CODTAB
  OUTPUT F_C_DESC_IDON1 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_C_IDON2 2
BEGIN
   PROMPT 2 8 ""
   FIELD LF_CONTSAN->IDON2
   FLAGS "U"
  USE IDO
  INPUT CODTAB F_C_IDON2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_C_IDON2 CODTAB
  OUTPUT F_C_DESC_IDON2 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_C_IDON3 2
BEGIN
   PROMPT 2 9 ""
   FIELD LF_CONTSAN->IDON3
   FLAGS "U"
  USE IDO
  INPUT CODTAB F_C_IDON3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_C_IDON3 CODTAB
  OUTPUT F_C_DESC_IDON3 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_C_IDON4 2
BEGIN
   PROMPT 2 10 ""
   FIELD LF_CONTSAN->IDON4
   FLAGS "U"
  USE IDO
  INPUT CODTAB F_C_IDON4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_C_IDON4 CODTAB
  OUTPUT F_C_DESC_IDON4 S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Idoneita' alla donazione"
END

TEXT DLG_NULL
BEGIN
   PROMPT 40 6 "Intervalli"
END

NUMBER F_C_INTSI 3 0
BEGIN
   PROMPT 40 7 "Sangue intero "
   FIELD LF_CONTSAN->INTSI
   FLAGS "U"
END

NUMBER F_C_INTAF 3 0
BEGIN
   PROMPT 40 8 "Aferesi       "
   FIELD LF_CONTSAN->INTAF
   FLAGS "U"
END

GROUPBOX DLG_NULL 70 4
BEGIN
   PROMPT 1 12 "Prossimo tipo/esito"
END


STRING F_C_PROSSTIPO 2
BEGIN
   PROMPT 2 13 "Tipo controllo "
   FIELD LF_CONTSAN->PROSSTIPO
   FLAGS "U"
   USE TCS
   INPUT CODTAB F_C_PROSSTIPO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_C_PROSSTIPO CODTAB
   OUTPUT F_C_DESC_PROSSTIPO S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Tipo/Esito controllo sanitario"
END


DATE F_C_PROSSDATA
BEGIN
   PROMPT 2 14 "Data prevista  "
   FIELD LF_CONTSAN->PROSSDATA
   HELP "Data controllo"
END


STRING F_C_DESC_TIPOCON 25
BEGIN
  PROMPT 25 3 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON1 25
BEGIN
  PROMPT 10 7 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON2 25
BEGIN
  PROMPT 10 8 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON3 25
BEGIN
  PROMPT 10 9 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON4 25
BEGIN
  PROMPT 10 10 ""
  FLAGS "D"
END

STRING F_C_DESC_PROSSTIPO 25
BEGIN
  PROMPT 25 13 ""
  FLAGS "D"
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
   PROMPT -33 -1 ""
   MESSAGE EXIT, K_DEL
END


ENDPAGE

ENDMASK

PAGE "Benemerenze" -1 -1 75 14

STRING F_B_TIPOBEN 2
BEGIN
   PROMPT 2 1 "Benemerenza       "
   FIELD LF_BENEM->TIPOBEN
   FLAGS "U"
   USE BNZ
   INPUT CODTAB F_B_TIPOBEN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_B_TIPOBEN CODTAB
   OUTPUT F_B_DESC_TIPOBEN S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice non presente"
   HELP "Benemerenza assegnata"
END

DATE F_B_DATABEN
BEGIN
   PROMPT 2 2 "Data assegnazione "
   FIELD LF_BENEM->DATABEN
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data assegnazione benemerenza"
END

BOOLEAN F_B_RITIRATA
BEGIN
   PROMPT 40 2 "Ritirata "
   FIELD LF_BENEM->RITIRATA
END


STRING F_B_DESC_TIPOBEN 25
BEGIN
  PROMPT 26 1 ""
  FLAGS "D"
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
   PROMPT -33 -1 ""
   MESSAGE EXIT, K_DEL
END

ENDPAGE

ENDMASK

PAGE "Storico iscrizioni e dimissioni" -1 -1 60 12

DATE F_S_DATAISC
BEGIN
  PROMPT 2 1 "        Dal  "
  FIELD LF_STORICO->DATAISC
  HELP "Data di iscrizione alla sezione/categoria"
END

DATE F_S_DATADIM
BEGIN
  PROMPT 2 2 "        Al   "
  FIELD LF_STORICO->DATADIM
  HELP "Data di dimissione alla sezione/categoria"
END

STRING F_S_CODSEZ 2
BEGIN
  PROMPT 2 4 "Sezione      "
  FIELD LF_STORICO->CODSEZ
  FLAGS "U"
  USE LF_SEZIONI
  INPUT CODSEZ F_S_CODSEZ
  INPUT CODSOT F_S_CODSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  OUTPUT F_S_CODSEZ CODSEZ
  OUTPUT F_S_DENSEZ DENSEZ
  OUTPUT F_S_CODSOT CODSOT
  OUTPUT F_S_DENSOT DENSOT
  CHECKTYPE SEARCH
  HELP "Codice sezione di iscrizione"
END

STRING F_S_DENSEZ 25
BEGIN
  PROMPT 20 4 ""
  FLAGS "U"
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_S_DENSEZ
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  COPY OUTPUT F_S_CODSEZ
  CHECKTYPE NORMAL
  HELP "Denominazione sezione di iscrizione"
END

STRING F_S_CODSOT 2
BEGIN
  PROMPT 2 5 "Sottogruppo  "
  FIELD LF_STORICO->CODSOT
  COPY ALL F_S_CODSEZ
  //CHECKTYPE NORMAL
  CHECKTYPE SEARCH
  HELP "Codice sottogruppo di iscrizione"
END

STRING F_S_DENSOT 25
BEGIN        	
  PROMPT 20 5 ""
  FLAGS "U"
  COPY USE F_S_DENSEZ
  INPUT DENSEZ F_S_DENSEZ
  INPUT DENSOT F_S_DENSOT
  COPY DISPLAY F_S_DENSEZ
  COPY OUTPUT F_S_DENSEZ
  CHECKTYPE NORMAL
  HELP "Sottogruppo di iscrizione"
END

STRING F_S_CATISC 2
BEGIN
  PROMPT 2 7 "Cat. iscriz. "
  FIELD LF_STORICO->CATISC
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_S_CATISC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_S_CATISC CODTAB
  OUTPUT F_S_DESC_CATISC S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
  HELP "Categoria di iscrizione"
END


STRING F_S_DESC_CATISC 25
BEGIN
  PROMPT 20 7 ""
  FLAGS "D"
END


LISTBOX F_S_MOTDIM 25
BEGIN
  PROMPT 2 9 "Motivo dim.  "
  FIELD MOTDIM
  FLAGS "U"
#include "motdim.h"
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
   PROMPT -33 -1 ""
   MESSAGE EXIT, K_DEL
END


ENDPAGE

ENDMASK