NUMBER F_CODMED 6
BEGIN
  PROMPT 2 11 "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"
END

STRING F_COGNMED 25
BEGIN
  PROMPT 19 11 ""
  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 NORMAL
  HELP "Medico di base"
  WARNING "Medico assente"
END

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



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

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

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

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

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

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



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

LISTBOX F_MODCONV 13
BEGIN
  PROMPT 2 14 "Modalità convoc. "
  FIELD MODCONV
#include "modalita.h"	
END

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

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

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

LISTBOX F_ESCLUSO 20
BEGIN
  PROMPT 38 14 "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 15 "Termine "
  FIELD TERMESCL
END

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