COGZC7 — Commesse per reparto/giorno
| Campo |
Valore |
| Sorgente |
cbl/cogzc7.cbl |
| Program-ID |
cogzc7 |
| Tipo |
Maschera GUI con griglia (visualizzazione impegni per reparto) |
| Posizione menu |
Lab.Odont. > Operativo > Impegni > Commesse per reparto/giorno |
Scopo
Visualizza tutte le fasi di commessa pianificate (impegnate) per un dato reparto/sottoreparto in una specifica giornata. Filtrando per reparto, sottoreparto, data e stato fase (non iniziate / aperte / sospese / completate), il programma elenca in griglia gli impegni della giornata con commessa, studio, paziente, azione, stato, sequenza, impegno in minuti, ora di lavorazione e i riferimenti alla fase precedente e successiva (reparto/sottoreparto e data di lavorazione). Serve al capo-reparto per vedere il carico del giorno e navigare rapidamente al giorno precedente/successivo (S-F5/S-F6) o al reparto con lavoro precedente/successivo (S-F7/S-F8). Da griglia si accede alla gestione impegno (INVIO su fase non iniziata, COGZC9) e alla commessa completa (F5, COGZC8).
File e tabelle
| Tabella |
Accesso |
Descrizione |
COGTRANS (trs-) |
file transito temporaneo indicizzato (i-o, delete file in uscita) |
Elenco impegni della giornata per il reparto/sottoreparto, con riferimenti fase precedente/successiva |
LODIMPDT (imd-) |
lettura sequenziale (chiavi .k02 per commessa, .k03 per reparto/sottoreparto/data) |
Dettaglio impegni pianificati (operatore, data, ora da/a, commessa, riga, reparto, sottoreparto, gruppo azione) |
LODIMPMX (imx-) |
lettura sequenziale (chiave .k02) |
Impegni per reparto/sottoreparto/data (usata per individuare sottoreparto precedente/successivo con carico) |
LODCMRIG (lcr-) |
lettura |
Righe commessa (stato, azione, prescrizione, riferimento piano) |
LODCMTES (lct-) |
lettura |
Testata commessa (piano di lavoro) |
LODPNRIG (lpr-) |
lettura |
Righe piano (tipo "T"/"X"): sequenza fase, provvisorieta', flag check |
LODAZION (laz-) |
lettura |
Descrizione azione |
PRNTOPER (ptop-) |
lettura |
Anagrafica operatori (descrizione) |
COGGEANA (ana-) |
lettura |
Anagrafica studio (nome) |
COGTABEL (euta-) |
lettura (tipo 85) |
Descrizione reparto |
LODTABEL (lta-) |
lettura (tipo 11) |
Descrizione sottoreparto |
Copybook principali
| Copybook |
Ruolo |
cogzc7.select / .fd / .wrk / .prc / .decla |
Definizioni generate. La FD e i SELECT di COGTRANS sono dichiarati manualmente nel sorgente (chiave primaria trs-chia1 per ora/data-succ/impegno, chiave secondaria trs-chia2 = trattato + chia1) |
cogzc7-01.scr |
Screen section |
utilcogzc7.cpy |
Linkage di chiamata (reparto, sottoreparto, data, flag ho-aggiornato) |
utilcogzc8.cpy / utilcogzc9.cpy |
Linkage delle chiamate a COGZC8 e COGZC9 |
utilw80.cpy / sendw80.cpy |
Aiuto/ricerca su tabella (reparto, tipo 85) |
utilf12.cpy |
Linkage aiuto sottoreparto (COGF12) |
utilgdad.cpy / wgrid.cpy / utilgrid.cpy |
Griglia |
utilncnf.cpy / utils52.cpy / utils93.cpy |
Configurazioni, campo data, controlli |
cogtrans.k01 / .k02, lodimpdt.k02 / .k03, lodimpmx.k02 |
Chiavi secondarie aggiunte manualmente |
mmmask.cpy, cogazien.cpy, wstato/wopenf/wgrave/wnscr |
Infrastruttura maschera GUI |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGZC8 |
util-cogzc8 |
Apertura della commessa completa (F5) |
COGZC9 |
util-cogzc9 |
Assegnazione/modifica impegno della singola fase (INVIO) |
COGF12 |
stringhe |
Aiuto/ricerca sottoreparto per reparto (F8 sul campo sottoreparto) |
COGW80/send-w80 |
util-w80 |
Aiuto/ricerca reparto (COGTABEL tipo 85) |
GRIDADMN |
util-gdad |
Costruzione e personalizzazione griglia (S-F4) |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Logica di elaborazione
apri — inizializzazione, open-files, definizione tasti funzione, bitmap custom, costruzione del nome del transito COGTRANS (ext-tmp-dir + #$ + program-id + operatore), lettura configurazioni. Se la configurazione impegni e' in modalita' operatore mobile ("M") il programma non e' eseguibile e termina con messaggio.a4 — apertura del transito COGTRANS: aperto prima in output per verificare che la funzione non sia gia' in uso dallo stesso operatore, poi in i-o; reset griglia, valorizzazione filtri di default (data = data odierna, tutti gli stati selezionati).- Testata — accept di reparto (
a-tm-rep, aiuto W80), sottoreparto (a-tm-srp, aiuto COGF12), data (a-tm-data, calendario S52) e delle quattro spunte di stato; ciascun campo e' validato in x-controlla-*.
carica-griglia / carica-transito — carica-transito scandisce LODIMPDT per reparto/sottoreparto/data (chiave .k03), applica il filtro stato leggendo LODCMRIG, e scrive i record selezionati su COGTRANS; in seconda passata (carica-transito-parte-2) per ogni impegno cerca la fase precedente (cerca-prec) e successiva (cerca-succ) della stessa commessa in altri reparti leggendo LODIMPDT per commessa (chiave .k02), salvando reparto/sottoreparto e date. carica-griglia riversa poi il transito nella tabella di maschera arricchendo con operatore (PRNTOPER), studio (COGGEANA), azione (LODAZION), sequenza e provvisorieta' (LODPNRIG), calcolando l'impegno in minuti dall'intervallo ora da/a.tasti-funz — calcola e mostra le etichette dei giorni/sottoreparti di navigazione: cerca-data-prec/cerca-data-succ (giorno con carico precedente/successivo su LODIMPDT), cerca-srp-prec/cerca-srp-succ (sottoreparto con impegni su LODIMPMX).- Griglia —
z-costruisci-grid/x-riempi-grid-record popolano la griglia via GRIDADMN; x-imposta-colore-grid colora le righe completate e le fasi con impegno successivo nel giorno filtrato (priorita' 1).
- Navigazione e azioni — S-F5/S-F6 spostano di giorno, S-F7/S-F8 spostano di sottoreparto (con carico), INVIO chiama COGZC9, F5 chiama COGZC8.
fine / z-chiudi — chiusura file, close/delete file del transito temporaneo, uscita.
Configurazioni (RNEWCONF)
| Gruppo |
Chiave |
Uso |
labimp |
assegnazione-operatori |
"M" = operatore mobile: il programma non e' eseguibile |
labimp |
cogzc7-colore-fasi-priorita-1 |
Colore riga per fasi con impegno successivo nel giorno filtrato |
labimp |
colore riga completata |
Colore riga per fasi completate |
Note
- Il file
COGTRANS e' un transito per operatore (nome con directory temporanea + operatore), aperto in output all'ingresso per rilevare la doppia esecuzione e cancellato in uscita.
- Il calcolo della fase precedente/successiva serve a mostrare, per ciascun impegno del giorno, dove la commessa e' passata prima e dove andra' dopo (reparto/sottoreparto e data), utile per la programmazione del flusso di lavoro.
- Il programma richiama COGZC8 e COGZC9 passando prescrizione + riga; se questi restituiscono
ho-aggiornato = "S" la griglia viene ricostruita.