Nome programma
GRI010
Linkage section
Programma richiamabile solo dall'esterno, con i seguenti parametri:
❑Input
❑Chiave "GRPIMPOR"
❑Path di import
❑Output
❑Esito dell'operazione
❑"S": Operazione riuscita
❑"N": Operazione non riuscita
Logica generale del programma
Questo programma viene innescato da GRI000 e importa un'informazione relativa alla classe "010".
Elaborazione
Questo programma è di pura elaborazione; dovrà restituire al programma chiamante l'esito dell'elaborazione effettuata.
Recupero informazioni da aggiornare
Lettura del record GRPIMPOR la cui chiave è stata passata in input.
Lettura del record GRPAZIEN relativo a EXT-GRP-AZIENDA.
Con queste informazioni è possibile posizionarsi sul file di informazioni:
•Path: GRPAZIEN.AO-AZI-PATH-IMPORT
•nome: GRPIMPORT.AO-IMP-ID + "_" + GRPIMPOR.AO-IMP-CLASSE
•estensione: ".arc"
Il file deve esistere.
Aggiornamenti
Eseguire un loop sul file, che è in formato testo delimitato da tabulazione. Il tracciato record è definito in: 010: Schede nominativo (testata)
Il primo campo contiene l'operazione da eseguire, che potrebbe essere:
•"AGG"
Operazione "AGG"
NB: questo programma deve operare su un nominativo già esistente (quindi precedentemente importato da GRI010).
Ricerca nominativo
Ricerca, su GRPSYIMP, del profilo di abilitazione per la classe corrente:
Dato |
Contenuto |
A-SYM-COD |
"CRM-NOM" |
AO-SYM-AZI-TIP |
AO-AZI-TIP |
AO-SYM-SUDDIVISIONE |
Tipologia nominativo (campo 9) |
Se il record non esiste, skippare l'elaborazione
Altrimenti, in funzione del contenuto di AO-SYM-COLLEGAMENTO:
AO-SYM-COLLEGAMENTO |
Procedimento |
||||||||||||
" " |
Il procedimento attuale •Se la tipologia del nominativo (GR010-CRA-TIP) è quella configurata in "grp-azi"-"tipo-nominativo-paziente": oLa ricerca avviene: ▪Cercando l'esistenza del codice fiscale nelle informazioni fisse (NNF-COD = 18); se trovato il nominativo da aggiornare è NNF-COD; altrimenti ▪Cercando l'esistenza dell'ID in CRA-ID: se trovato il nominativo da aggiornare è CRA-COD ▪Altrimenti il nominativo è nuovo •Se la tipologia è diversa: oLa ricerca avviene cercando l'esistenza dell'ID in CRA-ID: se trovato il nominativo da aggiornare è CRA-COD; altrimenti il nominativo è nuovo |
||||||||||||
"PIVA" |
Ricerca per partita IVA Ricerca della partita iva GR010-PIVA usando CRMS06
Se CRMS06-NOM restituisce un codice nominativo, questo è da aggiornare. Altrimenti è un nominativo nuovo |
Chiamata a CRMS07
Sia in caso di inserimento che di variazione, l'aggiornamento avviene con una chiamata a CRMS07, con operazione:
•"SCRIVI": se è un nominativo da inserire
•"AGGIORNA": se è un nominativo da modificare: in questo caso si dovrà passare a CRMS07, oltre alle informazioni da aggiornare, anche il codice nominativo trovato
(NB: CRMS07 provvede anche ad aggiornare le informazioni fisse collegate al nominativo)