campo-sirio/at/at_pag02.frm

USE 90
JOIN CTD ALIAS 100 INTO CODTAB==CATDON
JOIN CTN ALIAS 110 INTO CODTAB==CATNOND1
JOIN CTN ALIAS 120 INTO CODTAB==CATNOND2
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 300 INTO CODTAB==PUNTORACC
JOIN LCP ALIAS 400 INTO CODTAB==RES_CODLOC
JOIN LCP ALIAS 410 INTO CODTAB==DOM_CODLOC
JOIN 13 ALIAS 500 INTO COM==RES_CODCOM
JOIN 13 ALIAS 510 INTO COM==DOM_CODCOM
JOIN 13 ALIAS 520 INTO COM==COMNASC
JOIN 96 INTO CODSEZ==CODSEZ
JOIN 97 INTO CODMED==CODMED
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
CTD->* "Categorie donatori"
CTN->* "Categorie non donatori"
TCS->* "Tipi/Esiti controlli sanitari"
LDN->* "Luoghi di donazione/Punti di raccolta"
LCP->* "Localita' postali"
13->* "COMUNI"
96->* "Sezioni AVIS"
97->* "Medici"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Arial"
SIZE 12
GRID ""
END
SECTION BODY ODD 33
NUMERO 1 15
BEGIN
KEY "Codice"
FIELD 90->CODICE
PROMPT 1 1 "Codice "
END
STRINGA 2 33
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 17 1 "Cognome "
END
STRINGA 3 30
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 52 1 "Nome "
END
DATA 4 18
BEGIN
KEY "Data nascita"
FIELD 90->DATANASC
PROMPT 1 2 "Nato il "
END
STRINGA 5 30
BEGIN
KEY "Comune di nascita"
PROMPT 0 0 ""
FIELD 520@->DENCOM
FLAG "H"
MESSAGE RESET,7|COPY,7
END
STRINGA 6 5
BEGIN
KEY "Provincia di nascita"
PROMPT 0 0 ""
FIELD 520@->PROVCOM
FLAG "H"
MESSAGE APPEND,7
END
STRINGA 7 40
BEGIN
KEY "Comune e provincia di nascita"
PROMPT 20 2 "Nato a "
END
STRINGA 8 6
BEGIN
KEY "Testo"
PROMPT 62 2 "Sesso "
END
LISTA 9
BEGIN
KEY "Sesso"
PROMPT 68 2 "Sesso "
FIELD 90->SESSO
ITEM "0|Sconosciuto"
ITEM "1|Maschio"
ITEM "2|Femmina"
ITEM "9|Non specif."
END
STRINGA 10 7
BEGIN
KEY "Codice sezione"
FIELD 90->CODSEZ
PROMPT 1 4 "Sez. "
END
STRINGA 11 25
BEGIN
KEY "Denominazione sezione"
FIELD 96->DENSEZ
PROMPT 9 4 ""
END
STRINGA 12 7
BEGIN
KEY "Codice sottog."
FIELD 90->CODSOT
PROMPT 41 4 "Sot. "
END
STRINGA 13 25
BEGIN
KEY "Denominazione sottog."
FIELD 96->DENSOT
PROMPT 49 4 ""
END
STRINGA 14 7
BEGIN
KEY "Categoria don."
FIELD 90->CATDON
PROMPT 1 5 "Cat. "
END
STRINGA 15 25
BEGIN
KEY "Descrizione categoria"
FIELD 100@->S0
PROMPT 9 5 ""
END
DATA 16 21
BEGIN
KEY "Data iscrizione"
FIELD 90->DATAISC
PROMPT 36 5 "Data iscr. "
END
DATA 17 20
BEGIN
KEY "Data dimissione"
FIELD 90->DATADIM
PROMPT 59 5 "Data dim. "
END
STRINGA 18 16
BEGIN
KEY "Tessera AVIS"
FIELD 90->TESSAVIS
PROMPT 1 7 "Tess.AVIS "
END
STRINGA 19 13
BEGIN
KEY "Codice Centro Trasfusionale"
FIELD 90->CODCT
PROMPT 18 7 "Cod.CT "
END
STRINGA 20 16
BEGIN
KEY "Cartella clinica"
FIELD 90->CODCL
PROMPT 33 7 "Car.clin. "
END
STRINGA 21 28
BEGIN
KEY "Documento di identita'"
FIELD 90->DOCID
PROMPT 51 7 "Doc.id. "
END
STRINGA 22 26
BEGIN
KEY "Codice fiscale"
FIELD 90->CF
PROMPT 1 8 "Cod.fisc. "
END
STRINGA 23 10
BEGIN
KEY "Testo"
PROMPT 1 10 "Domicilio:"
END
STRINGA 24 30
BEGIN
KEY "Domicilio: indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 11 ""
MESSAGE RESET,30
END
STRINGA 25 4
BEGIN
KEY "Domicilio: codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAG "H"
END
STRINGA 26 5
BEGIN
KEY "Domicilio: CAP"
FIELD 410@->S6
FIELD 510@->CAPCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,30
END
STRINGA 27 30
BEGIN
KEY "Domicilio: localita'"
FIELD 410@->S0
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,30
END
STRINGA 28 50
BEGIN
KEY "Domicilio: comune"
FIELD 510@->DENCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,30
END
STRINGA 29 5
BEGIN
KEY "Domicilio: provincia"
FIELD 510@->PROVCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,30
END
STRINGA 30 39 3
BEGIN
KEY "Domicilio: Loc/Com/Prov"
PROMPT 1 12 ""
END
STRINGA 31 10
BEGIN
KEY "Testo"
PROMPT 41 10 "Residenza:"
END
STRINGA 32 30
BEGIN
KEY "Residenza: indirizzo"
FIELD 90->RES_INDIR
PROMPT 41 11 ""
MESSAGE RESET,38
END
STRINGA 33 4
BEGIN
KEY "Residenza: codice localita'"
FIELD 90->RES_CODLOC
PROMPT 0 0 ""
FLAG "H"
END
STRINGA 34 5
BEGIN
KEY "Residenza: CAP"
FIELD 400@->S6
FIELD 500@->CAPCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,38
END
STRINGA 35 30
BEGIN
KEY "Residenza: localita'"
FIELD 400@->S0
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,38
END
STRINGA 36 50
BEGIN
KEY "Residenza: comune"
FIELD 500@->DENCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,38
END
STRINGA 37 5
BEGIN
KEY "Residenza: provincia"
FIELD 500@->PROVCOM
PROMPT 0 0 ""
FLAG "H"
MESSAGE APPEND,38
END
STRINGA 38 39 3
BEGIN
KEY "Residenza: Loc/Com/Prov"
PROMPT 41 12 ""
END
STRINGA 39 23
BEGIN
KEY "Telefono abitazione"
FIELD 90->TELABI
PROMPT 1 15 "Tel.abi. "
END
STRINGA 40 23
BEGIN
KEY "Telefono lavoro"
FIELD 90->TELLAV
PROMPT 25 15 "Tel.lav. "
END
STRINGA 41 25
BEGIN
KEY "Telefono altro"
FIELD 90->TELALT
PROMPT 49 15 "Tel.altro "
END
STRINGA 42
BEGIN
KEY "Testo"
PROMPT 1 16 "Escluso "
END
LISTA 43
BEGIN
KEY "Esclusione"
FIELD 90->ESCLUSO
ITEM "  |  "
ITEM "TI|T. indeterminato"
ITEM "TD|T. determinato"
PROMPT 10 16 "Escluso "
END
DATA 44 18
BEGIN
KEY "Data termine esclusione"
FIELD 90->TERMESCL
PROMPT 27 16 "Termine "
END
STRINGA 45 35
BEGIN
KEY "Motivo esclusione"
FIELD 90->MOTESCL
PROMPT 46 16 "Per "
END
STRINGA 46 26
BEGIN
KEY "Descrizione stato"
FIELD 200@->S3
PROMPT 1 17 "Stato "
END
DATA 47 15
BEGIN
KEY "Data stato"
FIELD 90->DATASTATO
PROMPT 28 17 "Data "
END
STRINGA 48 11
BEGIN
KEY "Tipo ultima idoneita'"
FIELD 90->TIPOULTID
PROMPT 45 17 "Ult. id. "
END
DATA 49 10
BEGIN
KEY "Data ultima idoneita'"
FIELD 90->DATAULTID
PROMPT 58 17 ""
END
STRINGA 50 2
BEGIN
KEY "Idoneita' alla donazione 1"
FIELD 90->IDON1
PROMPT 70 17 ""
END
STRINGA 51 2
BEGIN
KEY "Idoneita' alla donazione 2"
FIELD 90->IDON2
PROMPT 73 17 ""
END
STRINGA 52 2
BEGIN
KEY "Idoneita' alla donazione 3"
FIELD 90->IDON3
PROMPT 76 17 ""
END
STRINGA 53 2
BEGIN
KEY "Idoneita' alla donazione 4"
FIELD 90->IDON4
PROMPT 79 17 ""
END
STRINGA 54
BEGIN
KEY "Testo"
PROMPT 1 19 "Situazione donazioni:"
END
NUMERO 55 8
BEGIN
KEY "Totale donazioni"
FIELD 90->TOTDON
PROMPT 1 20 "Tot. "
END
STRINGA 56 11
BEGIN
KEY "Tipo ultima donazione"
FIELD 90->TIPOULTDON
PROMPT 1 21 "Ult.don. "
END
DATA 57 10
BEGIN
KEY "Data ultima donazione"
FIELD 90->DATAULTDON
PROMPT 13 21 ""
END
STRINGA 58 13
BEGIN
KEY "Testo"
PROMPT 26 20 "Donazioni SI:"
END
STRINGA 59 13
BEGIN
KEY "Testo"
PROMPT 26 21 "Donazioni AF:"
END
STRINGA 60 4
BEGIN
KEY "Testo"
PROMPT 42 19 "Tot."
END
STRINGA 61 10
BEGIN
KEY "Testo"
PROMPT 48 19 "Ultima"
END
STRINGA 62 4
BEGIN
KEY "Testo"
PROMPT 60 19 "Int."
END
STRINGA 63 10
BEGIN
KEY "Testo"
PROMPT 66 19 "Prossima"
END
NUMERO 64 3
BEGIN
KEY "Totale donazioni SI"
FIELD 90->TOTDONSI
PROMPT 42 20 ""
END
NUMERO 65 3
BEGIN
KEY "Totale donazioni AF"
FIELD 90->TOTDONAF
PROMPT 42 21 ""
END
DATA 66 10
BEGIN
KEY "Data ultima donazione SI"
FIELD 90->DATAULTSI
PROMPT 48 20 ""
END
DATA 67 10
BEGIN
KEY "Data ultima donazione AF"
FIELD 90->DATAULTAF
PROMPT 48 21 ""
END
NUMERO 68 4
BEGIN
KEY "Intervallo SI"
FIELD 90->INTSI
PROMPT 60 20 ""
END
NUMERO 69 4
BEGIN
KEY "Intervallo AF"
FIELD 90->INTAF
PROMPT 60 21 ""
END
DATA 70 10
BEGIN
KEY "Data prossima SI"
FIELD 90->DATAPROSSI
PROMPT 66 20 ""
END
DATA 71 10
BEGIN
KEY "Data prossima AF"
FIELD 90->DATAPROSAF
PROMPT 66 21 ""
END
STRINGA 72 14
BEGIN
KEY "Gruppo AB0"
FIELD 90->GRUPPOAB0
PROMPT 1 23 "Gruppo AB0 "
END
STRINGA 73 12
BEGIN
KEY "Rh/AntiD"
FIELD 90->RHANTID
PROMPT 16 23 "Rh/AntiD "
END
STRINGA 74 8
BEGIN
KEY "Kell"
FIELD 90->KELL
PROMPT 30 23 "Kell "
END
STRINGA 75 18
BEGIN
KEY "Fenotipo Rh"
FIELD 90->FENOTIPORH
PROMPT 40 23 "Fenotipo Rh "
END
STRINGA 76 12
BEGIN
KEY "Du"
FIELD 90->DU
PROMPT 60 23 "Du "
END
NUMERO 77 13
BEGIN
KEY "Codice medico"
FIELD 90->CODMED
PROMPT 1 24 "Medico "
END
STRINGA 78 25
BEGIN
KEY "Cognome medico"
FIELD 97->COGNOME
FLAGS "H"
MESSAGE RESET,80|COPY,80
END
STRINGA 79 25
BEGIN
KEY "Nome medico"
FIELD 97->NOME
FLAGS "H"
MESSAGE APPEND,80
END
STRINGA 80 51
BEGIN
KEY "Cognome e nome medico"
PROMPT 15 24 ""
END
STRINGA 81 10
BEGIN
KEY "Testo"
PROMPT 1 25 "Mod.conv. "
END
LISTA 83 22
BEGIN
KEY "Modalita' di convocazione"
FIELD 90->MODCONV
PROMPT 11 25 ""
ITEM "  |"
ITEM "PO|Postale"
ITEM "T1|Tel. abitaz."
ITEM "T2|Tel. lavoro"
ITEM "T3|Tel. altro"
ITEM "TE|Telefonica"
ITEM "IN|Indifferente"
END
STRINGA 84 19
BEGIN
KEY "Codice punto di racolta"
FIELD 90->PUNTORACC
PROMPT 35 25 "Punto di racc. "
END
STRINGA 85 25
BEGIN
KEY "Descrizione punto di raccolta"
FIELD 300@->S0
PROMPT 56 25 ""
END
STRINGA 86 27
BEGIN
KEY "Testo"
PROMPT 1 26 "Giorni pref.: L M M G V S D"
END
STRINGA 87 13
BEGIN
KEY "Testo"
PROMPT 1 27 "    Donazione"
END
STRINGA 88 2
BEGIN
KEY "Lu"
FIELD 90->GIOPREDON[1,1]
PROMPT 15 27 ""
END
STRINGA 89 2
BEGIN
KEY "Ma"
FIELD 90->GIOPREDON[2,2]
PROMPT 17 27 ""
END
STRINGA 90 2
BEGIN
KEY "Me"
FIELD 90->GIOPREDON[3,3]
PROMPT 19 27 ""
END
STRINGA 91 2
BEGIN
KEY "Gi"
FIELD 90->GIOPREDON[4,4]
PROMPT 21 27 ""
END
STRINGA 92 2
BEGIN
KEY "Ve"
FIELD 90->GIOPREDON[5,5]
PROMPT 23 27 ""
END
STRINGA 93 2
BEGIN
KEY "Sa"
FIELD 90->GIOPREDON[6,6]
PROMPT 25 27 ""
END
STRINGA 94 2
BEGIN
KEY "Do"
FIELD 90->GIOPREDON[7,7]
PROMPT 27 27 ""
END
STRINGA 95 13
BEGIN
KEY "Testo"
PROMPT 1 28 "    Controlli"
END
STRINGA 96 2
BEGIN
KEY "Lu"
FIELD 90->GIOPRECON[1,1]
PROMPT 15 28 ""
END
STRINGA 97 2
BEGIN
KEY "Ma"
FIELD 90->GIOPRECON[2,2]
PROMPT 17 28 ""
END
STRINGA 98 2
BEGIN
KEY "Me"
FIELD 90->GIOPRECON[3,3]
PROMPT 19 28 ""
END
STRINGA 99 2
BEGIN
KEY "Gi"
FIELD 90->GIOPRECON[4,4]
PROMPT 21 28 ""
END
STRINGA 100 2
BEGIN
KEY "Ve"
FIELD 90->GIOPRECON[5,5]
PROMPT 23 28 ""
END
STRINGA 101 2
BEGIN
KEY "Sa"
FIELD 90->GIOPRECON[6,6]
PROMPT 25 28 ""
END
STRINGA 102 2
BEGIN
KEY "Do"
FIELD 90->GIOPRECON[7,7]
PROMPT 27 28 ""
END
STRINGA 103 10
BEGIN
KEY "Testo"
PROMPT 33 26 "Cond.occ. "
END
LISTA 104 19
BEGIN
KEY "Condizione occupazionale"
FIELD 90->CONDOCC
ITEM "  |"
ITEM "01|Occupato"
ITEM "02|Disoccupato"
ITEM "03|In cerca di 1^ occ."
ITEM "04|Pensionato"
ITEM "05|Casalinga"
ITEM "06|Studente"
ITEM "07|Religioso"
ITEM "99|Altro"
PROMPT 44 26 ""
END
STRINGA 105 10
BEGIN
KEY "Testo"
PROMPT 33 27 "Pos.prof. "
END
LISTA 106 19
BEGIN
KEY "Posizione professionale"
FIELD 90->POSPROF
ITEM "  |"
ITEM "01|Imprend./Profess."
ITEM "02|Lavoratore autonomo"
ITEM "03|Coadiuvante"
ITEM "04|Impiegato/Dirigente"
ITEM "05|Altro lav. dip."
ITEM "99|Altro"
PROMPT 44 27 ""
END
STRINGA 107 10
BEGIN
KEY "Testo"
PROMPT 33 28 "Ramo att. "
END
LISTA 108 30
BEGIN
KEY "Ramo di attivita'"
FIELD 90->RAMOATT
ITEM "  |"
ITEM "01|Agricoltura e associati"
ITEM "02|Industria costruzioni"
ITEM "03|Industria manifatturiera"
ITEM "04|Energia, acqua, gas"
ITEM "05|Commercio"
ITEM "06|Pubblica amministrazione"
ITEM "07|Trasporti e comunicazioni"
ITEM "08|Credito e assicurazioni"
ITEM "09|Altri servizi"
ITEM "99|Altro"
PROMPT 44 28 ""
END
END