TABELLE BASE (estrazione automatica)


Il file pgm sottostante (in azzurro) con la solita procedura di copia/incolla (vedi pagina file pgm istruzioni per l'uso) vi permette di bypassare tutta la procedura precedente e di estrarre automaticamente le tabelle base di Epiinfo, dalle quali partiranno poi, di volta in volta, i vari progetti.

Rilanciandolo periodicamente terrete sempre aggiornate le vostre tabelle di base.

DIALOG "Nel caso,durante l'esecuzione del programma, compaia una finestra con l'avviso 'C'è un problema' ed una serie di codici, cliccare 2 volte sul pulsante centrale in basso 'Ignora'"      TITLETEXT="AVVISO"

READ "ODBC" 'Mille':'DBA.cart_accert'

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':ACCERTAMENTI codice data_open ac_des ac_val

READ "ODBC" 'Mille':'DBA.pazienti'

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':PAZIENTI codice data_upd time_last data_open userid flag codice_fiscale cognome comune_di_nascita codice_comune_nasc decesso external_code nascita nome provincia_nascita sesso titolo pa_cmorte pa_codmor pa_convenzione pa_religio pa_cod_lingua          prv_autorizz prv_nota cognome_sposata

READ "ODBC" 'Mille':'DBA.cart_press'

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':PRESSIONE_ART codice data_open rowid userid pb_code p_min p_max p_terap frequenza ritmo

READ "ODBC" 'Mille':'DBA.cart_problemi'

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':PROBLEMI codice data_open rowid userid pb_code pr_descr cp_code cp_cod2 addenda tipo_code

READ "ODBC" 'Mille':'DBA.cart_terap'

DEFINE spesa

spesa=euro

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':TER_grezzo codice data_open co_codifa co_des te_npezzi po_des num_ese te_attivo co_atc te_fascia indotto cod_ese spesa

READ 'C:\EPIMILLE\EPIMILLE.mdb':TER_grezzo

DEFINE euro

ASSIGN euro=spesa

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':TERAPIE codice data_open co_codifa co_des te_npezzi po_des num_ese te_attivo co_atc te_fascia indotto cod_ese euro

READ "ODBC" 'Mille':'DBA.nos_002'

WRITE REPLACE "Epi 2000" 'C:\EPIMILLE\EPIMILLE.mdb':PAZIENTI_NOS *

_____________________________________________________

 

HOME PAGE

ESTRAZIONE TABELLE BASE (procedura manuale)

REFERENZE