Patch level : at

Files correlati : at8.ex e maschere batbpr? Ricompilazione Demo : [ ] Commento : aggiunti file necessari per acquisizione dati da cetraplus git-svn-id: svn://10.65.10.50/trunk@11274 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-06-24 08:54:23 +00:00 · 2003-06-24 08:54:23 +00:00 · 75fa88a334
commit 75fa88a334
parent 73be5c50b4
5 changed files with 471 additions and 0 deletions
--- a/at/at8900a.ini
+++ b/at/at8900a.ini
@ -0,0 +1,185 @@
+[T_ASSISTITO]
+ID_EVENT =
+STATO =
+ID_ANAGRAFICA = CODCT
+STATO_TRASFUS = !_STATO
+STATO_LEGALE =
+STATO_ASSOC =
+COGNOME =
+NOME =
+SESSO = !_SESSO
+DT_NASCITA =
+LG_NASCITA = !_COMUNE,COMNASC
+CD_PERSONALE =
+CD_FISCALE = CF
+CD_SANITARIO = !_SENUMERO,TESSSSN
+TP_DOCUMENTO = DOCID
+NR_DOCUMENTO =
+INDIRIZZO = !_INDIRIZZO
+LG_RESIDENZA = !_COMUNE,DOM_CODCOM
+CAP = DOM_CAP
+PROFESSIONE = PROFESS
+TEL_ABITAZIONE = !_TELEFONO,TELABI
+TEL_LAVORO = !_NOCELLULARE,TELLAV
+TEL_LAVORO = !_CELLULARE,TELALT
+FL_DONATORE =
+FL_PAZIENTE =
+FL_RICEVENTE =
+FL_AUTODONATORE =
+FL_CONT_ANA =
+FL_VAL_GRUPPO =
+CD_ASSOCIAZIONE =
+CD_GRUPPO = !_SEZIONE
+DT_ISCRIZIONE = !_DATA,DATAISC
+BENEMERENZA =
+PREFERENZA = !_GIORNOPREF
+GRUPPO_AB0 = GRUPPOAB0
+FATTORE_RH = !_POSNEG,RHANTID
+RICERCA_DU = !_POSNEG,DU
+FENOTIPO_RH = FENOTIPORH
+GRUPPO_KELL = !_KELL
+N_TEST_AB0 =
+N_TEST_RH =
+N_TEST_DU =
+N_TEST_FEN =
+N_TEST_KELL =
+ANTICORPI_IRREG =
+ANTIGENI_RARI =
+ANTIGENI_HLA =
+FENOTIPO_HLA =
+DT_TYPESCREEN =
+DT_CESSAZIONE =
+DT_CANCEL =
+FL_VAL_FENOTIPO =
+FL_VAL_KELL =
+NOTE_ANAG = !_ACCODA,NOTE
+DT_ULT_DONAZIONE =
+TESSERA_ASSOC = !_SEGNALA,TESSAVIS
+COMUNIC_ASSOC = CODCL
+
+[T_ACCESSO]
+ID_EVENT =
+STATO =
+DT_ACCESSO =
+PROG_GIORNAL =
+ID_ANAGRAFICA =
+ID_RICHIESTA =
+ID_REPARTO =
+PROG_REPARTO =
+TP_ACCESSO =
+TP_RICHIESTA =
+PUNTO_PRELIEVO =
+ORA_PRELIEVO =
+CODABAR =
+ALTEZZA =
+PESO =
+MENOPAUSA =
+FASE_CICLO =
+SET_GRAV =
+DT_CANCEL =
+NOTE_ACC =
+DT_PRELIEVO =
+ORA_ACCETTAZ =
+FL_STATO_ACCESSO =
+DT_PRENOTA =
+ORA_PRENOTA =
+
+[T_ESC_DON]
+ID_EVENT =
+STATO =
+ID_ESCLUSIONE =
+ID_ANAGRAFICA =
+DA_DATA =
+A_DATA =
+TP_ESCLUSIONE =
+DT_CANCEL =
+STATO_TRASFUS_PREC =
+
+[T_SACCA]
+ID_EVENT =
+STATO =
+ID_SACCA =
+DT_ACCESSO =
+PROG_GIORNAL =
+ID_SACCA_ORIG =
+ID_ANAGRAFICA =
+REPARTO_ORIGINALE =
+NR_ORIGINALE =
+DT_PRELIEVO =
+TP_DONAZIONE =
+DT_PREPARAZIONE =
+ID_EMOCOMPONENTE =
+ID_CONSERVANTE =
+DT_SCADENZA =
+STATO_SACCA =
+QUANTITA_ML =
+CD_EMOTECA =
+RICEVENTE =
+REP_RICEVENTE =
+FL_CONVALIDA =
+DT_ELIMINAZIONE =
+N_MOVIMENTI =
+PREZZO =
+DT_CANCEL =
+DT_VALIDAZIONE =
+ORA_VALIDAZIONE =
+ORA_SCADENZA =
+
+[T_ACC_ANA]
+ID_EVENT =
+STATO =
+ID_ACC_ANA =
+DT_ACCESSO =
+PROG_GIORNAL =
+ID_ANALISI =
+ID_RICETTA =
+MINIMO =
+MASSIMO =
+CD_RISPOSTA =
+RISPOSTA =
+CD_STAMPA =
+DT_STAMPA =
+FL_VAL_TECNICA =
+FL_VAL_NOR =
+FL_AN_CT =
+IMP_ANALISI =
+IMP_PAGATO =
+DT_CANCEL =
+CD_METODICA =
+ORDINE_ANAL =
+DT_ESAME =
+ORA_STAMPA =
+ID_MATERIALE =
+ID_SEDE_ANATOMICA =
+FL_STATO =
+USER_ID_VAL =
+
+[ARCHIVIO]
+COMMIT; = 0
+PERCORSO = d:\datipr\provaaaa.txt
+T_ACCESSO = 6
+T_ACC_ANA = 3
+T_ANA_DON_SUC = 0
+T_ASSISTITO = 1
+T_DON_SUC = 0
+T_ENTE = 0
+T_ESC_DON = 5
+T_GRUPPO = 0
+T_PROFILO = 0
+T_PUNTO_ACC = 0
+T_RICETTA = 0
+T_RIS_DES = 0
+T_SACCA = 2
+T_STO_EMO_DON = 0
+
+[ACCESSI]
+V=VS
+C=CR
+
+[ANALISI]
+ANN=CR
+ANF=CR
+
+[ESCLUSIONI]
+SOS=SO
+
--- a/at/batbpr1.h
+++ b/at/batbpr1.h
@ -0,0 +1,18 @@
+// tabella di conversione CT Parma- AVIS per stato trasfusionale
+#define F_TABPR1_CODTAB         100
+#define F_TABPR1_DESCR          101
+#define F_TABPR1_OPERAZIONE     102
+#define F_TABPR1_TIPOCON        104
+#define F_TABPR1_CATDON         105
+#define F_TABPR1_IDON1       		106
+#define F_TABPR1_IDON2          107
+#define F_TABPR1_IDON3          108
+#define F_TABPR1_IDON4          109
+#define F_TABPR1_MOTIVO         110
+#define F_TABPR1_DESC_CATDON    201
+#define F_TABPR1_DESC_TIPOCON   202
+#define F_TABPR1_DESC_IDON1     203
+#define F_TABPR1_DESC_IDON2     204
+#define F_TABPR1_DESC_IDON3     205
+#define F_TABPR1_DESC_IDON4     206
+#define F_TABPR1_DESC_MOTIVO    207
--- a/at/batbpr1.uml
+++ b/at/batbpr1.uml
@ -0,0 +1,202 @@
+#include "batbpr1.h"
+
+TOOLBAR "" 0 20 0 2 
+#include <toolbar.h>
+ENDPAGE
+
+PAGE "Tabella conversione stato trasfusionale" -1 -1 78 18
+
+STRING F_TABPR1_CODTAB 3
+BEGIN
+   PROMPT 2 1 "Codice        "
+   FIELD CODTAB
+   USE PR1
+   CHECKTYPE REQUIRED
+   INPUT CODTAB F_TABPR1_CODTAB
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@30" S0
+   OUTPUT F_TABPR1_CODTAB CODTAB
+   OUTPUT F_TABPR1_DESCR S0
+   KEY 1
+   FLAGS "U"
+   HELP "Inserire il codice dello stato trasfusionale"
+END
+
+STRING F_TABPR1_DESCR 50
+BEGIN
+   PROMPT 2 3 "Descrizione   "
+   FIELD S0
+   USE PR1 KEY 2
+   CHECKTYPE REQUIRED
+   INPUT S0 F_TABPR1_DESCR
+   DISPLAY "Descrizione@30" S0
+   DISPLAY "Codice" CODTAB
+   COPY OUTPUT F_TABPR1_CODTAB
+   KEY 2
+   HELP "Inserire la descrizione dello stato trasfusionale"
+END
+
+RADIOBUTTON F_TABPR1_OPERAZIONE 35
+BEGIN
+   PROMPT 2 5 "Operazione "
+   FIELD I0
+   ITEM "0|Sostituire senza segnalazione"
+   ITEM "1|Sostituire con segnalazione"
+   ITEM "2|Segnalare"
+   ITEM "3|Ignorare"
+END
+
+STRING F_TABPR1_CATDON 2
+BEGIN
+   PROMPT 2 11 "Categoria      "
+   FIELD S6
+   FLAGS "U"
+   USE CTD
+   INPUT CODTAB F_TABPR1_CATDON
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@30" S0
+   OUTPUT F_TABPR1_CATDON CODTAB
+   OUTPUT F_TABPR1_DESC_CATDON S0
+   CHECKTYPE NORMAL
+   WARNING "Codice non presente"
+END	
+
+STRING F_TABPR1_DESC_CATDON 30
+BEGIN
+   PROMPT 23 11 ""
+   FLAGS "D"
+END
+
+STRING F_TABPR1_TIPOCON 2
+BEGIN
+   PROMPT 2 12 "Tipo controllo "
+   FIELD S7
+   FLAGS "U"
+   USE TCS
+   INPUT CODTAB F_TABPR1_TIPOCON
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@30" S0
+   OUTPUT F_TABPR1_TIPOCON CODTAB
+   OUTPUT F_TABPR1_DESC_TIPOCON S0
+   CHECKTYPE NORMAL
+   WARNING "Codice non presente"
+END
+
+STRING F_TABPR1_DESC_TIPOCON 30
+BEGIN
+   PROMPT 23 12 ""
+   FLAGS "D"
+END
+
+STRING F_TABPR1_IDON1 2
+BEGIN
+  PROMPT 2 13 "Tipi donazione "
+  FIELD S8
+  FLAGS "U"
+  USE IDO
+  INPUT CODTAB F_TABPR1_IDON1
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_TABPR1_IDON1 CODTAB
+  OUTPUT F_TABPR1_DESC_IDON1 S0
+  CHECKTYPE NORMAL
+  WARNING "Codice idoneita' non presente"
+  HELP "Idoneita' alla donazione"
+END
+
+STRING F_TABPR1_IDON2 2
+BEGIN
+  PROMPT 17 14 ""
+  FIELD S9
+  FLAGS "U"
+  USE IDO
+  INPUT CODTAB F_TABPR1_IDON2
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_TABPR1_IDON2 CODTAB
+  OUTPUT F_TABPR1_DESC_IDON2 S0
+  CHECKTYPE NORMAL
+  WARNING "Codice idoneita' non presente"
+  HELP "Idoneita' alla donazione"
+END
+
+STRING F_TABPR1_IDON3 2
+BEGIN
+  PROMPT 17 15 ""
+  FIELD S10
+  FLAGS "U"
+  USE IDO
+  INPUT CODTAB F_TABPR1_IDON3
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_TABPR1_IDON3 CODTAB
+  OUTPUT F_TABPR1_DESC_IDON3 S0
+  CHECKTYPE NORMAL
+  WARNING "Codice idoneita' non presente"
+  HELP "Idoneita' alla donazione"
+END
+
+STRING F_TABPR1_IDON4 2
+BEGIN
+  PROMPT 17 16 ""
+  FIELD S11
+  FLAGS "U"
+  USE IDO
+  INPUT CODTAB F_TABPR1_IDON4
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@40" S0
+  OUTPUT F_TABPR1_IDON4 CODTAB
+  OUTPUT F_TABPR1_DESC_IDON4 S0
+  CHECKTYPE NORMAL
+  WARNING "Codice idoneita' non presente"
+  HELP "Idoneita' alla donazione"
+END
+
+STRING F_TABPR1_MOTIVO 4
+BEGIN
+   PROMPT 2 17 "Motivo         "
+   FIELD S1
+   FLAGS "U"
+   USE MTC
+   INPUT CODTAB F_TABPR1_MOTIVO
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT F_TABPR1_MOTIVO CODTAB
+   OUTPUT F_TABPR1_DESC_MOTIVO S0
+   CHECKTYPE NORMAL
+   WARNING "Codice motivo non presente"
+   HELP "Motivo del controllo sanitario"
+END
+
+STRING F_TABPR1_DESC_IDON1 25
+BEGIN
+  PROMPT 23 13 ""
+  FLAGS "D"
+END
+
+STRING F_TABPR1_DESC_IDON2 25
+BEGIN
+  PROMPT 23 14 ""
+  FLAGS "D"
+END
+
+STRING F_TABPR1_DESC_IDON3 25
+BEGIN
+  PROMPT 23 15 ""
+  FLAGS "D"
+END
+
+STRING F_TABPR1_DESC_IDON4 25
+BEGIN
+  PROMPT 23 16 ""
+  FLAGS "D"
+END
+
+STRING F_TABPR1_DESC_MOTIVO 25
+BEGIN
+  PROMPT 23 17 ""
+  FLAGS "D"
+END
+     
+ENDPAGE
+ENDMASK
--- a/at/batbpr2.h
+++ b/at/batbpr2.h
@ -0,0 +1,5 @@
+// tabella di conversione CT Parma- AVIS per tipo donazione
+#define F_TABPR2_CODTAB         100
+#define F_TABPR2_DESCR          101
+#define F_TABPR2_TIPODON        102
+#define F_TABPR2_DESC_TIPODON   201
--- a/at/batbpr2.uml
+++ b/at/batbpr2.uml
@ -0,0 +1,61 @@
+#include "batbpr2.h"
+
+TOOLBAR "" 0 20 0 2 
+#include <toolbar.h>
+ENDPAGE
+
+PAGE "Tabella conversione tipi donazione" -1 -1 78 18
+
+STRING F_TABPR2_CODTAB 3
+BEGIN
+   PROMPT 2 1 "Codice        "
+   FIELD CODTAB
+   USE PR2
+   CHECKTYPE REQUIRED
+   INPUT CODTAB F_TABPR2_CODTAB
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@30" S0
+   OUTPUT F_TABPR2_CODTAB CODTAB
+   OUTPUT F_TABPR2_DESCR S0
+   KEY 1
+   FLAGS "U"
+   HELP "Inserire il codice del tipo donazione"
+END
+
+STRING F_TABPR2_DESCR 50
+BEGIN
+   PROMPT 2 3 "Descrizione   "
+   FIELD S0
+   USE PR2 KEY 2
+   CHECKTYPE REQUIRED
+   INPUT S0 F_TABPR2_DESCR
+   DISPLAY "Descrizione@30" S0
+   DISPLAY "Codice" CODTAB
+   COPY OUTPUT F_TABPR2_CODTAB
+   KEY 2
+   HELP "Inserire la descrizione del tipo donazione"
+END
+
+STRING F_TABPR2_TIPODON 2
+BEGIN
+   PROMPT 2 5 "Tipo donazione "
+   FIELD S6
+   FLAGS "U"
+   USE TDN
+   INPUT CODTAB F_TABPR2_TIPODON
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@30" S0
+   OUTPUT F_TABPR2_TIPODON CODTAB
+   OUTPUT F_TABPR2_DESC_TIPODON S0
+   CHECKTYPE NORMAL
+   WARNING "Codice non presente"
+END
+
+STRING F_TABPR2_DESC_TIPODON 30
+BEGIN
+   PROMPT 23 5 ""
+   FLAGS "D"
+END
+
+ENDPAGE
+ENDMASK