157 lines
2.4 KiB
Plaintext
Executable File
157 lines
2.4 KiB
Plaintext
Executable File
|
|
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
|
|
|