COGZ96 - Stampa Dichiarazione di Conformita' per Paziente¶
Sorgente: cbl/cogz96.cbl | Program-ID: COGZ96 | Tipo: Stampa (programma interattivo con stampa diretta)
Menu: Lab.Odont. > Operativo > Stampe > Allegati > Dichiarazione Conformita' x Paziente
Scopo¶
Stampa la "Dichiarazione di Conformita' per il paziente" prevista dalla certificazione direttiva 93/42 CEE per dispositivi medici (versione consegnabile al paziente). E' la variante "paziente" della dichiarazione di conformita' standard.
Architettura identica a COGZ94 (Reperibilita'): puo' funzionare stand-alone o come programma chiamato da stampa allegati / archiviazione ottica (linkage utilz82). Quando la configurazione lo prevede delega a COGZ82M con tipo allegato "DP" (Dichiarazione Paziente).
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | ISAM | Input | Parametri generali azienda |
| LODTMDES | ISAM (temp) | I-O | Transito descrizioni master (lock "funzione in uso") |
| LODTRDES | ISAM (temp) | I-O | Transito righe descrizione |
| FLSTA | binary seq. | Output | File di stampa |
| COGTABEL | ISAM | Input | Tabelle generiche |
| LODTABEL | ISAM | Input | Tabelle laboratorio |
| LODDESCR | ISAM | Input | Descrizioni libere |
| LODPNTES | ISAM | Input | Testata piano fabbricazione |
| LODPNMAT | ISAM | Input | Materiali piano |
| LODPRESC | ISAM | Input | Prescrizione |
| LODCMTES | ISAM | Input | Testata commessa |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
cogz96.select, cogz96.fd, cogz96.wrk, cogz96-01.scr, cogz96.prc, cogz96.decla |
Screen Designer: select, FD, working, screen, procedure, declaratives |
flsta.fd, flsta.cpy, cogfiles.cpy |
File stampa, FEURTAB |
wstato, wopenf, wgrave, wnscr, cogazien |
Working storage standard + dati azienda |
utils54.cpy |
Linkage COGS54 (stampa) |
utils52.cpy |
Linkage COGS52 (calendario) |
utils98.cpy |
Linkage COGS98W (ricerca prescrizione) |
utilzde.cpy |
Linkage COGZDEW (descrizioni estese) |
utilfnt.cpy |
Linkage COGFNT (font) |
utilzs3.cpy |
Linkage COGZS3 (ricerca allegato per tipo dispositivo) |
k-personal.cpy, utilncnf.cpy |
Costanti, linkage RNEWCONF |
utilz82.cpy |
Linkage del programma quando chiamato (allegati / archiviazione) |
wcont.cpy, wcont1.cpy |
Linkage standard |
Logica di elaborazione¶
Apertura (apri): init programma, apertura file, costruzione percorsi #$cogz96.<oper> (LODTMDES) e #$cogzde.<oper> (LODTRDES). Lettura linkage utilz82: se z82-called = "COGZ96-CALLED" modalita' chiamata. Carica configurazioni.
Delega Word: se tm-cfg-modo-allegati = "WORD" chiama COGZ82M passando allegato "DP" ed esce.
Selezione commessa (a4 / a-tm-cli): accept campi prescrizione via COGS98W; se chiamato da esterno salta direttamente alla verifica.
Validazione (x-controlla-commessa):
- Verifica esistenza prescrizione tramite s98-fun = "find+display".
- Lettura testata commessa lodcmtes (errore "Commessa non ancora aperta!!").
- Verifica clinica operatore (tm-cfg-clinica-ope vs lpm-num (1:2)).
- Chiama COGZS3 con tip-doc = "Conf.Paziente" per ottenere il codice allegato; se vuoto -> "Allegato non previsto per questo tipo di dispositivo!!".
- Compone w-allegato con prefisso "Z" + codice allegato restituito.
Stampa: identica struttura a COGZ94: richiesta stampante via COGS54, loop per tm-cfg-n-copie copie, formattazione descrizioni con COGZDEW, font tramite COGFNT.
Chiusura: cancel di COGZS3, COGS98W e chiusura file.
Chiamate a sottoprogrammi¶
| Programma | Utilizzo |
|---|---|
COGS54 |
Selezione stampante e gestione stampa laser |
COGS98W |
Ricerca/dialogo prescrizione |
COGZS3 |
Ricerca allegato per tipo dispositivo (tipo doc = "Conf.Paziente") |
COGZDEW |
Formattazione descrizioni estese / wrap testo |
COGFNT |
Gestione font in stampa |
COGZ82M |
Delega stampa allegato in modalita' Word (passando "DP") |
RNEWCONF |
Lettura configurazioni |
Configurazioni RNEWCONF¶
Stesse di COGZ94:
| Gruppo | Chiave | Descrizione |
|---|---|---|
| ODONTO | Formattazione-portrait | Formato di stampa (portrait/landscape) |
| ODONTO | copie-dichiarazione-reperibilita | (riusata) Numero di copie |
| ODONTO | MODO-STAMPA-ALLEGATI | Se "WORD" delega a COGZ82M |
| APO | operatore-clinica-su-lab | Clinica operatore per gestione gruppo |
Nota: il programma riutilizza la chiave copie-dichiarazione-reperibilita per il numero di copie.
Linkage di chiamata (z82)¶
Quando chiamato da esterno (z82-called = "COGZ96-CALLED"): z82-archivia, z82-prescrizione, z82-chr-stampa, z82-fl-cogz50 come in COGZ94.
Note implementative¶
- Architettura clonata da COGZ94 con differenze sul tipo allegato (DP vs DR) e sulla descrizione tipo documento passata a COGZS3 ("Conf.Paziente" vs "Reperibilita").
- Apertura/chiusura LODTMDES in modalita' "output then I-O" come lock fittizio (idem COGZ94).
- L'azienda criptata e' stata rimossa con PBUG-1925.
- Il prefisso "Z" composto in
w-allegatoindica la categoria di allegato (Z per tipi laboratorio).