COGZ54 — Materiale reso (materiali del medico)
| Campo |
Valore |
| Sorgente |
cbl/cogz54.cbl |
| Program-ID |
cogz54 |
| Tipo |
Maschera GUI interattiva (lista-griglia con modifica) |
| Posizione menu |
Lab.Odont. > Operativo > Materiali del medico > Materiale reso |
Scopo
Gestisce la registrazione del materiale reso al medico relativo a una commessa: elenca in griglia il materiale consegnato (con quantita' consegnata e resa) e permette all'operatore di indicare, riga per riga, la quantita' resa e la data di uscita. Quando la quantita' resa e' inferiore a quella consegnata, il programma sdoppia automaticamente la riga generando una nuova riga per la quota ancora da rendere.
Struttura e flusso
apri — init programma, ctr-abil, rd-azi, open-files, definizione tasti funzione (F3 conferma, F8 aiuto, F9 stampa/ric. avanzata, S-F4 griglia, Invio modifica), caricamento bitmap/pulsanti custom (F5 Commessa, F2 Consultazione materiali medico), rd-msk-pop, preparazione griglia e controlli. Se chiamato con z54-called = "COGZ54-CALLED" riceve la prescrizione dal chiamante.a4 — reset griglia e maschera; se in modalita' called salta direttamente a a-fine-dati.a-tm-cli — selezione commessa via COGS98W (studio/paziente/prescrizione).a-fine-dati — validazione, poi carica-griglia (da LODCMMMD) e costruzione griglia.carica-griglia — scandisce LODCMMMD per commessa (lmd-com), riempiendo tab-maschera (tm-righe occurs 900) con merce, quantita' consegnata/resa e data uscita.a-grid / a-accept-grid — loop di griglia; Invio su una riga (con abilitazione w-abi-agg) porta in modifica riga (a-riga-dettaglio). F2 e F9 richiamano COGZAG (consultazione/stampa materiali del medico), S-F4 la personalizzazione colonne.a-tm-r-qta-resa / a-tm-data-uscita — accept dei campi quantita' resa e data uscita, con controlli (x-controlla-*): la quantita' resa deve essere significativa e non superiore alla consegnata, la data uscita e' obbligatoria se la quantita' resa e' > 0.a-fine-dettaglio — conferma modifica: rilegge/blocca LODCMMMD (rd-lodcmmmd-lk), aggiorna il record. Se la quantita' resa e' inferiore alla consegnata (flag-dupplica = "S") crea una nuova riga aggiuntiva (wr-lodcmmmd) per la quota residua ancora da rendere e la aggiunge in griglia.fine / z-chiudi — chiusura file, cancel COGS98W, uscita.
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODCMMMD (lmd-) |
lettura/lettura-lock/scrittura/riscrittura |
Materiale del medico per commessa (qta consegnata/resa, data uscita) |
LODPRESC (lpm-) |
lettura (via COGS98W) |
Prescrizione/commessa selezionata |
feurtab |
tabelle di sistema |
File tabelle generale |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGS98W |
util-s98 |
Gestore selezione commessa (studio/paziente/prescrizione) |
COGZAG |
util-zag |
Consultazione/stampa materiale del medico (F2/F9) |
COGS68W |
util-s68 |
Gestore controllo merce (colonna merce della griglia) |
GRIDADMN |
util-gdad |
Gestione e personalizzazione griglia |
COGS52 |
util-s52 |
Gestore campo data (data uscita) |
COGU20/utility |
util-u20 |
Gestore campo quantita' |
Copybook principali
| Copybook |
Ruolo |
cogz54.wrk / cogz54.prc / cogz54-01.scr |
Costanti, working, procedure e screen |
cogz54.select / cogz54.fd |
Definizione file del programma |
utilz54 (linkage) / utilzag |
Interfaccia chiamante/chiamato COGZAG |
utils52, utils68, utils98, utilu20, utilgdad, utilgdad |
Utility gestori campi e griglia |
mmmask, cogazien, wstato, wopenf, wgrave, wnscr |
Infrastruttura maschera GUI |
Note
- Lo sdoppiamento della riga alla resa parziale e' il comportamento centrale del programma: la riga originale assume la quantita' resa come nuova quantita', mentre la quota residua (
w-r-qta - w-r-qta-resa) genera una nuova riga LODCMMMD con progressivo uscita incrementato.
- Il programma non usa file di configurazione RNEWCONF.
- L'abilitazione alla modifica in griglia dipende da
w-abi-agg (controllo abilitazioni via ctr-abil).