COGZ98 — Scadenzario lavori per reparto
| Campo |
Valore |
| Sorgente |
cbl/cogz98.cbl |
| Program-ID |
cogz98 |
| Tipo |
Lista-griglia/visualizzazione (con stampa) |
| Posizione menu |
Lab.Odont. > Operativo > Visualizzazioni > Scadenzario Lavori x Reparto |
Scopo
Visualizza lo scadenzario dei lavori del laboratorio odontotecnico ordinato per reparto e data di consegna. E' la variante "per reparto" dello scadenzario per studio (cogz92): carica, filtra e mostra in griglia le righe azione delle commesse in scadenza in un intervallo di date, permettendo la consultazione rapida dei lavori in sospeso e l'accesso allo stato commessa (F5) e all'impegno (F6). E' una funzione di sola consultazione: non modifica direttamente le commesse ma vi accede tramite i programmi collegati.
I filtri disponibili nella testata sono: data inizio/fine consegna, stato commessa (Aperte/Chiuse/Evase/Sospese/Tutte tramite tm-fl-com), studio (tm-stu-cod), fornitore (tm-for-cod) e reparto (tm-rep-cod).
Struttura e flusso
apri — init, open-files, rd-azi, costruzione dei nomi dei file temporanei di transito (w-nome-trs = COGTRANS, w-nome-trs2 = totali per commessa, piu' i temporanei LODTMDES/COGZDE), definizione tasti funzione (SF4 griglia, F3 conferma, F8 aiuto/calendario, F9 stampa), caricamento bitmap/pulsanti custom (F5 Stato Commessa, F6 Impegno), x99-confi per le configurazioni, z-prepara-tm-grid.a4 — reset griglia, apertura in output/i-o dei transiti COGTRANS, COGTRANS2 e LODTMDES con lock di funzione per operatore (se lo stato non e' "00" la funzione e' gia' in uso), impostazione date di default (intervallo di 7 giorni da oggi, calcolato con DTPRG/PRGDT).a-tm-data-ini / a-tm-data-fin / a-tm-fl-com / a-tm-for-cod / a-tm-stu-cod / a-tm-rep-cod — accept dei filtri (date via COGS52/calendario, studio/fornitore via COGS65W, reparto via WIN080 tipo 85).a-fine-intestazione — validazione, poi elabora e carica.elabora — loop di caricamento: scansione delle righe commessa LODCMRIG sulla chiave della data di consegna (chia4, lcr-data-cns) nell'intervallo. Per ogni riga legge la testata commessa LODCMTES, la prescrizione LODPRESC (chia4) e la riga di piano LODPNRIG (tipo "T"), scartando le righe fuori reparto/studio/fornitore e quelle che non sono prova paziente o controllo interno (lpr-fl-check). Applica il filtro stato commessa (Aperte/Chiuse/Evase/Sospese) confrontando lpm-stato e lcr-stato, poi scrive un record sul transito COGTRANS con chiave reparto + data consegna + ora + commessa + studio.carica — riversa COGTRANS (letto in ordine di chiave) nella tabella di maschera (tm-righe, occurs 900).a-grid / a-accept-grid — loop di griglia; F5 richiama COGZ50 (stato commessa) sulla prescrizione della riga, F6 richiama COGZC8 (impegno), F9 avvia la stampa (Word o testo), SF4 la personalizzazione colonne (GRIDADMN).cerca-reparto — determina il reparto/sottoreparto di pertinenza della riga leggendo LODPNRIG e la descrizione da COGTABEL (tipo 85).fine / z-chiudi — chiusura file, delete file di COGTRANS, uscita.
File e tabelle
| Tabella |
Accesso |
Descrizione |
COGTRANS (trs-) |
temporaneo indicizzato, i-o (delete file) |
File di lavoro dello scadenzario, chiave trs-chia1 = reparto + data consegna + ora + commessa + studio |
COGTRANS2 (trs2-) |
temporaneo indicizzato, i-o |
Transito totali per commessa (chiave trs2-commessa) |
LODCMRIG (lcr-) |
lettura (chiave .k04 per data consegna) |
Righe azione della commessa (stato, data consegna, riga) |
LODCMTES (lct-) |
lettura |
Testata commessa (piano, reparto, coefficiente) |
LODCMAGG (lcg-) |
lettura |
Dati aggiuntivi commessa |
LODPRESC (lpm-) |
lettura (chiave .k04) |
Prescrizione/commessa (stato, medico, paziente, cassetta, data) |
LODPNRIG (lpr-) |
lettura (chiave .k02) |
Righe di piano/fase (reparto, flag check, azione) |
LODTMDES (lde-) |
temporaneo, i-o |
Descrizioni di lavoro |
LODTRDES (ltr-) |
lettura |
Traduzioni descrizioni |
FLSTA |
lettura |
File stato documenti |
COGGEANA (ana-) |
lettura |
Anagrafica studio/fornitore (nome) |
COGTABEL (euta-) |
lettura |
Descrizione reparto (tipo 85) |
COGMERCI (mer-) |
lettura |
Anagrafica articoli |
Copybook principali
| Copybook |
Ruolo |
cogz98.select/.fd/.wrk/.prc/.decla, cogz98-01.scr |
Definizioni generate e screen section |
lodtmdes.cpy/.fd, lodtrdes.cpy/.fd, flsta.cpy/.fd |
File di lavoro/stato |
utils52, utils54, utils65, utils98, utilw80 |
Interfacce ai gestori campo/aiuto/stampa chiamati |
utilz50, utilcogzc8, utilwordmdl, utilncnf, utilgdad |
Linkage subroutine (stato commessa, impegno, stampa Word, config, griglia) |
cogz98.decla, chiavi cogtrans.k01, cogtran2.k01, lodpresc.k04, lodcmrig.k04, lodpnrig.k02, lodtmdes.k01, lodtrdes.k01 |
Declaratives e chiavi secondarie (aggiunte a fine procedure division) |
mmmask.cpy, cogazien.cpy, wstato, wopenf, wgrave, wnscr |
Infrastruttura maschera GUI |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGZ50 |
util-z50 |
Stato commessa (F5) |
COGZC8 |
util-cogzc8 |
Gestione impegno (F6) |
COGS98W |
util-s98 |
Selezione/editor prescrizione |
COGS65W |
util-s65 |
Aiuto/ricerca anagrafica (studio, fornitore) |
COGS52 |
util-s52 |
Gestore campo data |
COGS54 |
util-s54 |
Scelta stampante / stampa |
WIN080 |
util-w80 |
Aiuto tabella (reparto, tipo 85) |
WORDMDL |
util-wordmdl |
Generazione documento Word (stampa) |
GRIDADMN |
util-gdad |
Personalizzazione griglia (SF4) |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
DTPRG / PRGDT |
— |
Conversione data <-> progressivo giorni |
Note
- Il transito
COGTRANS e' aperto in output all'ingresso per verificare che la funzione non sia gia' in uso dallo stesso operatore (nome con ext-tmp-dir + k-program-id + wo-oper) e viene cancellato in uscita.
- La modalita' di stampa (
tm-cfg-modo-stampa = "WORD" o default) e il comportamento di alcuni filtri dipendono dalle configurazioni lette in x99-confi; il pulsante F6 (impegno) e' attivo solo se la gestione impegni non e' disattivata (tm-cfg-labod-impegni).
Storico modifiche
020724 (PBUG-1925): rimossa la vecchia gestione dell'azienda criptata (ENCRYPT).090924 / 130924: adeguamenti alla gestione descrizioni e dati azienda.- Autore originale: Borghesan Gian Luca (Eurosystem). Conversione Windows: Claudio, 28/02/2006.