GRI010-GRI011 - CRM nominativi (importazione)¶
GRI010 - CRM: testate nominativi¶
Nome programma: GRI010 -- Classe: "010"
Linkage section: Input: Chiave "GRPIMPOR", Path di import. Output: Esito ("S"/"N").
Elaborazione¶
Questo programma viene innescato da GRI000 e importa un'informazione relativa alla classe "010".
Recupero informazioni da aggiornare
Lettura del record GRPIMPOR la cui chiave e' stata passata in input. Lettura del record GRPAZIEN relativo a EXT-GRP-AZIENDA.
Con queste informazioni e' 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 (formato testo delimitato da tabulazione). Tracciato: 010: Schede nominativo (testata).
Operazione: "AGG".
NB: questo programma deve operare su un nominativo gia' 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) e' quella configurata in "grp-azi"-"tipo-nominativo-paziente", la ricerca avviene nel modo standard. Se la tipologia e' diversa, procedimento alternativo. |
| "PIVA" | Ricerca per partita IVA: ricerca della partita IVA GR010-PIVA usando CRMS06 |
Per la ricerca per partita IVA:
| Dato | Contenuto |
|---|---|
| CRMS06-OPE | "CERCA-SCHEDA" |
| CRMS06-INF | K-IF-PARTITA-IVA |
| CRMS06-INF-SPECIE | "F" |
| CRMS06-DATO | GR010-PIVA (su 11 caratteri) |
| CRMS06-TCL | GR010-CRA-TIP |
Se CRMS06-NOM restituisce un codice nominativo, questo e' da aggiornare. Altrimenti e' 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 e' un nominativo da inserire * "AGGIORNA": se e' un nominativo da modificare: in questo caso si dovra' 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)
GRI011 - CRM: info nominativi¶
Nome programma: GRI011 -- Classe: "011"
Linkage section: Input: Chiave "GRPIMPOR", Path di import. Output: Esito ("S"/"N").
Elaborazione¶
Questo programma viene innescato da GRI000 e importa un'informazione relativa alla classe "011".
Recupero informazioni da aggiornare
Come GRI010. File di informazioni con tracciato: 011: Schede nominativo: informazioni.
Operazione: "AGG".
A seconda del tipo record (1, 2 o 3) si dovra' eseguire un aggiornamento diverso:
0 - Ricerca nominativo¶
Il codice nominativo presente nel record di input e' sicuramente diverso da quello presente nella base dati di destinazione. Il criterio di ricerca e' lo stesso indicato in GRI010.
Ricerca su GRPSYIMP del profilo di abilitazione, poi in funzione di AO-SYM-COLLEGAMENTO:
| AO-SYM-COLLEGAMENTO | Procedimento |
|---|---|
| " " | Il procedimento attuale (per tipo nominativo paziente o altro) |
| "PIVA" | Ricerca per partita IVA usando CRMS06 |
In questo programma non si ammette l'assenza del nominativo. Quindi in questo caso segnalare errore.
1 - CRMANANN¶
Viene importata un'informazione di tipo note.
Cercare l'esistenza del record su CRMANANN impostando: * NNN-COD = nominativo trovato * NNN-PAG = pagina sul record * NNN-PROG = progressivo sul record
Se il record non viene trovato inserirlo; dopodiche' aggiornare: * NNN-INF = corrispondente campo sul record * NNN-DATO = corrispondente campo sul record
2 - CRMANANF¶
Viene importata un'informazione generica.
Cercare l'esistenza del record su CRMANANF impostando: * NNF-COD = nominativo trovato * NNF-PAG = pagina sul record * NNF-PROG = progressivo sul record
Se il record non viene trovato inserirlo; dopodiche' aggiornare: * NNF-SPECIE = corrispondente campo sul record * NNF-INF = corrispondente campo sul record * NNF-DATO = corrispondente campo sul record
Se l'informazione e' di tipo "a valori fissi", e il valore dell'informazione non esiste nella corrispondente tabella, inserire il nuovo elemento (vedi GRC001).
3 - CRMANANG¶
Viene importata un'informazione relativa ad una "cella" di una informazione "griglia".
Cercare l'esistenza del record su CRMANANG impostando: * NNG-COD = nominativo trovato * NNG-PAG = pagina sul record * NNG-PROG = progressivo sul record * NNG-CEL-R = riga trovata sul record * NNG-CEL-C = colonna trovata sul record
Se il record non viene trovato inserirlo; dopodiche' aggiornare: * NNG-INF = corrispondente campo sul record * NNG-TCL = corrispondente campo sul record * NNG-PNT = corrispondente campo sul record * NNG-DATO = corrispondente campo sul record
Estratto da documentazione interna ClickUp