COGZ49 — Avanzamento commessa a consuntivo
| Campo |
Valore |
| Sorgente |
cbl/cogz49.cbl |
| Program-ID |
cogz49 |
| Tipo |
Maschera GUI interattiva (lista-griglia con aggiornamento) |
| Posizione menu |
Lab.Odont. > Operativo > Avanzamento a Consuntivo |
Scopo
Consente l'avanzamento "a consuntivo" di una commessa odontotecnica: dopo aver selezionato la commessa (per prescrizione o numero) mostra in griglia tutte le azioni/fasi del piano di fabbricazione con il relativo stato. L'operatore spunta le azioni completate, indica operatore e data di esecuzione, e al termine aggiorna in blocco lo stato delle righe della commessa, chiudendola se tutte le azioni sono completate. E' la variante di avanzamento a griglia (non a barcode) rispetto a COGZ45; le due modalita' sono alternative in base alla configurazione.
Struttura e flusso
apri — init, open-files, caricamento bitmap/pulsanti custom (F5 commessa, F1 prestazione, F5 materiali, F7 note x buoni, F9 note x istruzioni, F6 rientro, Invio chiusura), x99-confi e x99-confi-operatore; costruisce i nomi dei file temporanei LODTMDES/LODTMMAT.a4 — apre in output/i-o i temporanei LODTMMAT e LODTMDES (lock di funzione), reset griglia e maschera. Se AVANZAMENTO-WEB = "S" la funzione e' disabilitata.a-tm-cli — selezione commessa via COGS98W (studio/paziente/prescrizione o numero). Controllo appartenenza clinica per operatore vincolato (operatore-clinica-su-lab), stato commessa (non chiusa/evasa/subfornitore).a-fine-chiave — letta la prescrizione (LODPRESC) carica testata e, se gia' avviata, esegue a1-carica per popolare la griglia.a1-carica — legge il piano temporaneo (LODPNTES), le righe piano (LODPNRIG), i materiali (a11-mat da LODPNMAT verso LODTMMAT), le descrizioni (a3-carica-des da LODDESCR verso LODTMDES) e le righe commessa (LODCMRIG) con stato/operatore/data; individua la prima riga libera.a-grid / a-accept-grid — loop di griglia: Invio su una riga esegue x10-dati-agg (richiesta operatore/data via COGZ49O, marcatura fase "C", eventuale chiamata COGZ46 per prestazioni/materiali) e scrivi-lodcmctr (piani di controllo da LODRACCO/LODCONTR). F1/F5 aprono COGZ46, F6 il rientro, F7/F9 le note.f3 (aggiorna) — controlla-piani-sel (verifica piani di controllo eseguiti), x20-controllo-seq (sequenza corretta delle azioni da chiudere), poi d-varia: aggiorna LODCMRIG/LODCMDET, materiali automatici via d34-dopo-agg-lodcmrig (COGZSA/COGZ60), e se tutte le azioni sono chiuse propone la chiusura commessa aggiornando LODCMTES e LODPRESC (stato "C").a7-rientro — rientro di una commessa a controllo utente (COGZS7, aggiorna impegni via COGZC5, stato "A", LODCMAG2).fine / z-chiudi — chiusura file e temporanei, cancel subroutine, uscita.
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODPRESC (lpm-) |
lettura (chia4) |
Prescrizione/commessa e stato |
LODCMTES (lct-) |
lettura/riscrittura (chia2) |
Testata commessa (piano, date, chiusura) |
LODCMRIG (lcr-) |
lettura/riscrittura |
Righe commessa (stato, operatore, date esecuzione) |
LODCMDET (lcd-) |
lettura/scrittura/riscrittura |
Dettaglio righe commessa |
LODPNTES (lpt-) |
lettura |
Testata piano temporaneo |
LODPNRIG (lpr-) |
lettura |
Righe piano (sequenza, azione, check) |
LODPNMAT (lmt-) |
lettura |
Materiali/prestazioni del piano |
LODAZION (laz-) |
lettura |
Anagrafica azioni |
LODDESCR (lde-) |
lettura/scrittura/cancellazione |
Descrizioni (istruzioni M1 / buoni M2) |
LODRACCO (lrc-) |
lettura |
Raccordo azione → piani di controllo (tipo "AC") |
LODCONTR (lcn-) |
lettura |
Anagrafica piani/controlli |
LODCMCTR (lpc-) |
lettura/scrittura/riscrittura |
Piani di controllo eseguiti sulla commessa |
LODCMAG2 (lc2-) |
lettura/scrittura/riscrittura |
Aggiornamento flag commessa |
COGTABEL (euta-) |
lettura |
Descrizioni operatori (tipo 36) |
PRNTOPER (ptop-) |
lettura |
Operatori (validazione/cancellazione logica) |
LODTMDES (ltd-) |
file temporaneo i-o |
Copia di lavoro delle descrizioni |
LODTMMAT (ltm-) |
file temporaneo external i-o |
Copia di lavoro dei materiali/prestazioni |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGS98W |
util-s98 |
Gestore selezione commessa (studio/paziente/prescrizione/numero) |
COGZ49O |
util-cogz49o |
Richiesta operatore e data esecuzione azione |
COGZ46 |
util-z46 |
Gestione prestazioni/materiali della fase |
COGY23 |
util-y23 |
Esecuzione piani di controllo |
COGZ60 / COGZSA |
util-z60 / util-cogzsa |
Aggiornamento materiali automatici da prestazioni |
COGZS7 |
util-zs7 |
Rientro commessa a controllo utente |
COGZC5 |
util-cogzc5 |
Aggiornamento impegni laboratorio |
COGZ88 |
util-z88 |
Stampa modulo controllo utente |
COGZDEW |
util-zde |
Editor note (istruzioni/buoni) |
GRIDADMN |
util-gdad |
Gestione griglia |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Copybook principali
| Copybook |
Ruolo |
cogz49.wrk / cogz49.prc / cogz49-01.scr |
Costanti, working, procedure e screen |
lodtmdes.fd/.cpy/.k01, lodtmmat.fd/.cpy/.k01 |
File temporanei di lavoro |
utilz49, utilz88 (linkage) |
Interfaccia chiamante/chiamato |
utilcogz49o, utilz46, utilz60, utilzs7, utilcogzc5, utilcogzsa, utilzde, utily23 |
Interfacce ai programmi chiamati |
utilncnf, utilgdad, utils52/s93/s98 |
Utility standard config/griglia/campi |
mmmask, cogazien, wstato, wopenf, wgrave |
Infrastruttura maschera GUI |
Configurazioni (RNEWCONF)
| Gruppo |
Chiave |
Uso |
ODONTO |
AVANZAMENTO-COMMESSA |
Tipo avanzamento ("CL" = forza operatore 1/data sistema) |
ODONTO |
QUANTITA-AVANZAMENTO |
Quantita' obbligatoria |
colori |
riga-griglia-warning |
Colore riga di warning |
abilita |
labod-impegni |
Gestione impegni |
ODONTO |
ESECUZIONE-PIANI-CONTROLLO |
Abilita esecuzione/controllo piani |
LABAVANZ |
AVANZAMENTO-WEB |
Se "S" disabilita la funzione (avanzamento su web) |
apo |
operatore-clinica-su-lab (per operatore) |
Clinica di appartenenza dell'operatore |
Note
- I file
LODTMMAT e LODTMDES sono temporanei per operatore (nome costruito con ext-tmp-dir + wo-oper): all'ingresso vengono aperti in output per verificare che la funzione non sia gia' in uso dallo stesso operatore.
- La routine
controlla-piani-sel e' stata rivista (23/02/2022) per controllare solo le righe selezionate e a parita' di codice azione.
- Il file di configurazione storico citato nell'intestazione (
ODONTO.CNF) e' oggi sostituito dalle chiavi RNEWCONF sopra.