COGZ51 — Fascicolo tecnico (immagini su commessa)
| Campo |
Valore |
| Sorgente |
cbl/cogz51.cbl |
| Program-ID |
cogz51 |
| Tipo |
Maschera GUI interattiva (griglia) |
| Posizione menu |
Lab.Odont. > Operativo > Fascicolo Tecnico |
Scopo
Gestisce il fascicolo tecnico di una commessa/prescrizione del laboratorio odontotecnico, cioe' l'insieme delle immagini e documenti allegati (progetti, foto, bolle, fatture, prescrizioni). Per una commessa selezionata, l'operatore puo' visualizzare, aggiungere ed eliminare documenti archiviati; ogni documento e' rappresentato da un record di raccordo (LODRACCO tipo PI) e dal file gestito tramite il documentale COGU06. Include l'archiviazione automatica di allegati depositati in una cartella configurata.
Struttura e flusso
apri: init standard, lettura configurazione (x99-confi legge la chiave path-archiviazione-auto), predisposizione tasti funzione (F3 conferma, F8 aiuto, F9 ricerca avanzata, S-F4 griglia, S-F5 export Excel, invio-seleziona, C-A aggiungi, C-E elimina) e pulsanti custom (F5 Commessa, F5 Prescrizione, F7 Cancella prescrizione). Se chiamato da altro modulo (z51-called = "COGZ51-CALLED"), riceve in ingresso la prescrizione (z51-prescrizione).a-tm-cli: accept della testata (studio/cliente, paziente, progetto, numero commessa) delegato alla subroutine di prescrizione COGS98W (z-s98-tm-presc).a-fine-dati: individuata la commessa (x-controlla-dati con find/display su COGS98W), legge la testata commessa LODCMTES per la cassetta, esegue l'archiviazione automatica (x2-archiviazione-automatica), quindi verifica l'esistenza dell'immagine di prescrizione tramite COGU06 (Cerca-esistenza-doc, tipo LP).a-grid-inizio / a-grid-ini / a-grid: costruzione e gestione della griglia dei documenti (carica-tab legge LODRACCO tipo PI per la commessa). Nella griglia: invio visualizza il documento (COGU06 Visualizza-da-doc), C-A aggiunge, C-E elimina, F5 visualizza l'immagine della prescrizione, F7 la elimina.a-riga-dettaglio / a-tm-r-note / a-fine-dettaglio / a-fine-dettaglio-ins: inserimento/modifica di una riga documento. In inserimento calcola il progressivo (tm-ultima), archivia il file via COGU06 (Inserisci, tipo PT/PROGETTO) e crea il record di raccordo LODRACCO; in modifica aggiorna la nota nel raccordo esistente.- Cancellazione documento (
c-cancella): con conferma, elimina il file (COGU06 Elimina-doc) e il raccordo LODRACCO.
x-aggiorna-lodcmag2: mantiene aggiornato il record LODCMAG2 associato alla commessa (contatore/flag immagini).fine/z-chiudi: chiusura file e cancel di COGU06/COGS98W.
Archiviazione automatica
x2-archiviazione-automatica e x21-archivio-allegato: se e' configurato un percorso (tm-cfg-path-archiviazione-auto) e la commessa ha una cassetta, il programma scandisce (via C$LIST-DIRECTORY) la cartella path/data-odierna/ filtrando i file per nome cassetta, apre ciascun file (OPENFILE), chiede all'operatore una descrizione, lo archivia come documento di progetto (COGU06 Inserisci-file) creando il raccordo LODRACCO, e infine sposta il file in una sottocartella backup (COPIAF move).
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODRACCO (lrc) |
lettura/scrittura/cancellazione |
Raccordo commessa↔documenti (tipo PI, key1 = numero commessa, key2 = progressivo riga); dati riga in lrc-dati (nota, data, tipo immagine) |
LODPRESC (lpm) |
lettura |
Testata prescrizione/commessa (via COGS98W) |
LODCMTES (lct) |
lettura |
Testata commessa: recupero cassetta (lct-cassetta) |
LODCMAG2 (lc2) |
lettura/scrittura |
Record aggiuntivo commessa aggiornato alla modifica del fascicolo |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
| COGS98W |
util-s98 |
Subroutine di ricerca/gestione prescrizione-commessa (testata) |
| COGU06 |
util-u06 |
Gestore documentale: verifica esistenza, inserimento, visualizzazione, eliminazione documenti (tipi PT, LP, BU, FC) |
| GRIDADMN |
util-gdad |
Gestore standard della griglia |
| DIALOGS |
util-dlg |
Dialogo di conferma (eliminazione immagine prescrizione) |
| OPENFILE |
util-openfile |
Apertura di un file allegato per l'archiviazione automatica |
| COPIAF |
link-copiaf |
Copia/spostamento file (allegato → sottocartella backup) |
| RNEWCONF |
util-ncnf |
Lettura configurazione path-archiviazione-auto |
Configurazioni lette
| Gruppo |
Chiave |
Campo |
labpresc |
path-archiviazione-auto |
tm-cfg-path-archiviazione-auto |
Copybook principali
| Copybook |
Ruolo |
cogz51.select / cogz51.fd / cogz51.prc / cogz51-01.scr |
Definizioni generate da Screen Designer |
cogz51.wrk |
Costanti e ID controlli della maschera |
lodpresc.cpy |
Record prescrizione |
utilz51.cpy |
Interfaccia di chiamata da altri moduli |
utils98.cpy / utilu06.cpy / utildlg.cpy |
Interfacce verso COGS98W, COGU06, DIALOGS |
l-copiaf.cpy / u-copiaf.cpy / utilopenfile.cpy / acucobol.def |
Copia file e apertura allegati |
utilncnf.cpy |
Interfaccia RNEWCONF |
wgrid.cpy / utilgdad.cpy / dtab.cpy / fscrol2.cpy / utilpggr.cpy |
Griglia GUI e spaginamento |
cogazien.cpy / wstato.cpy / wopenf.cpy / wgrave.cpy / wnscr.cpy |
Working-storage standard |
Note
- Il tipo immagine di ogni riga (
tm-r-tip-img) determina come COGU06 risolve il documento: PT (progetto, chiave = numero commessa + riga), LP (prescrizione), BU (bolla, chiave estratta dalla nota), FC (fattura). Vedi a21-imposta-documento-cogu06.
- La griglia puo' contenere fino a 900 righe (
k-max-ele-tab).
- L'archiviazione automatica sposta i file elaborati in
path/data/backup/ per evitare doppie importazioni.
- La configurazione e' letta con suddivisione per magazzino principale (
az-main-mag).
Storico modifiche
291220: introdotta l'archiviazione automatica degli allegati (scansione cartella configurata, gestione cassetta, spostamento in backup), con la configurazione labpresc/path-archiviazione-auto e i campi tm-data-ent/tm-cassetta.