COGZ53 — Materiale consegnato dal medico
| Campo |
Valore |
| Sorgente |
cbl/cogz53.cbl |
| Program-ID |
cogz53 |
| Tipo |
Maschera GUI con griglia di dettaglio |
| Posizione menu |
Lab.Odont. > Operativo > Materiali del medico > Materiale consegnato |
Scopo
Consente di registrare, per una prescrizione/commessa del laboratorio odontotecnico, l'elenco dei materiali consegnati dal medico. Ogni riga puo' essere un articolo di magazzino (merce da COGMERCI) oppure una descrizione libera, con quantita' e data di entrata. I dati vengono persistiti sulla tabella dei materiali del medico LODCMMMD legata alla commessa.
Struttura e flusso
Programma a maschera con griglia editabile, basato sul pattern standard delle funzioni Laboratorio (COGS98 per selezione prescrizione, GRIDADMN per la griglia).
main/apri: init programma, open-files, rd-azi, x99-confi (colore colonne modificabili), predisposizione tasti funzione. Se richiamato da altro programma (z53-called = "COGZ53-CALLED") riceve la prescrizione in z53-presc e lavora in modalita' selezione.a-tm-cli/a-10-cerca/a-fine-commessa: accept della prescrizione (studio, paziente, progressivo, commessa) tramite COGS98W; x-controlla-commessa verifica l'esistenza (find+display).a1-carica (thru ex-a1): carica le righe gia' esistenti da LODCMMMD filtrando su lmd-com; per righe con descrizione (lmd-des) flag "D", altrimenti risolve la merce su COGMERCI (flag "M"). Aggiunge poi le merci del gruppo speciale "ZZ" (materiali del medico) non ancora presenti.carica-da-lodmmddf: se non ci sono righe, precarica i materiali di default da LODMMDDF (chiave secondaria lodmmddf.k03) filtrati per classe modello (w-classe ricavata da LODTABEL tipo 08 su lpm-tip-dsp).a30/z-costruisci-grid: costruzione griglia; identifica le colonne editabili qta01 e dat01 via hidden-data e applica il colore configurato.a-grid/a-accept-grid: loop principale della griglia; F3 conferma/aggiorna, Invio modifica riga, Ctrl+A aggiunge, Ctrl+E elimina.a-riga-dettaglio e paragrafi a-tm-*: accept del dettaglio riga (merce, descrizione, quantita', data entrata); i controlli tabella/data/quantita' sono gestiti dalle subroutine COGS68/COGS52/COGU20.z-operazioni-accessorie-grid: gestione editing diretto in cella (quantita' via COGU20W, data via COGS52W).b-aggiorna (thru ex-b-aggiorna): salvataggio — cancella tutte le righe LODCMMMD della commessa e le riscrive dai dati a video (wr-lodcmmmd/rwr-lodcmmmd).
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODCMMMD (lmd-) |
lettura/scrittura/cancellazione |
Materiali consegnati del medico per commessa (riga per merce o descrizione) |
LODMMDDF (mdf-) |
lettura (chiave .k03) |
Materiali di default per classe modello, usati al primo caricamento |
COGMERCI (mer-) |
lettura |
Anagrafica articoli/merci (descrizione, gruppo ZZ materiali medico) |
LODTABEL (lta-) |
lettura |
Tabella laboratorio; tipo 08 per ricavare la classe modello (lta-08-cla) |
LODPRESC (lpm-) |
lettura |
Prescrizione/commessa (via COGS98) |
feurtab (cogfiles.cpy) |
— |
File tabelle Euro standard |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGS98W |
util-s98 |
Selezione/validazione prescrizione (studio, paziente, progressivo, commessa) |
GRIDADMN |
util-gdad |
Gestione griglia di dettaglio (prepara, add/modify record, colori) |
COGS52W |
util-s52 |
Gestione campo data (accept ed edit-to-data) |
COGU10W |
util-u10 |
Gestione valori/divisa |
COGU20W |
util-u20 |
Gestione campo quantita'/numerico |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Copybook principali
| Copybook |
Ruolo |
cogz53.select/.fd/.wrk/.prc/.decla |
Definizioni generate (file, working, procedure di supporto) |
cogz53-01.scr |
Screen section |
utilz53.cpy |
Linkage di chiamata (prescrizione in ingresso) |
utils98/utilgdad/utils52/utils68/utilu10/utilu20/utilncnf |
Linkage subroutine |
lodmmddf.k03 |
Chiave secondaria per default materiali |
mmmask.cpy |
Maschera GUI standalone (init/exit program) |
wstato/wgrave/wgrid/wopenf/wnscr/cogazien/utilgrid |
Working-storage standard |
Note
- Il programma non consente di modificare la quantita' se e' gia' stata resa (
tm-qta-resa <> 0).
- Le merci del gruppo "ZZ" rappresentano i materiali tipici del medico e vengono proposte automaticamente in coda alla griglia se non gia' presenti.