root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : at

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : non serve


git-svn-id: svn://10.65.10.50/trunk@10613 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2002-11-06 11:01:11 +00:00
parent 664bbb24bb
commit 9263417965
1 changed files with 0 additions and 156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

156
at/sog.jun
View File

@ -1,156 +0,0 @@
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