COGZCJ — Agenda per reparto
| Campo |
Valore |
| Sorgente |
cbl/cogzcj.cbl |
| Program-ID |
cogzcj |
| Tipo |
Maschera GUI con griglia calendario (agenda settimanale) |
| Posizione menu |
Lab.Odont. > Operativo > Impegni > Agenda per reparto |
Scopo
Mostra l'agenda settimanale degli impegni di un reparto/sottoreparto in forma di calendario: una griglia con le fasce orarie (slot da 15 minuti, personalizzabili) sulle righe e i 7 giorni della settimana sulle colonne. Ogni cella e' colorata in base allo stato dello slot (disponibile secondo gli orari di apertura, occupato da un impegno, festivo/fuori orario) e riporta una sintesi del lavoro pianificato in quella fascia (cassetta, uscita, paziente, azione). Serve al capo-reparto per vedere il carico e la disponibilita' del reparto giorno per giorno, navigare alla settimana precedente/successiva (S-F5/S-F6) e aprire il dettaglio dello slot (INVIO, richiama il gestore COGZCK). Filtra per reparto, sottoreparto e data (che individua la settimana). Richiamabile a menu o chiamato passando reparto/sottoreparto/data.
File e tabelle
| Tabella |
Accesso |
Descrizione |
LODIMPDT (imd-) |
lettura sequenziale (chiave .k03 per reparto/sottoreparto/data) |
Dettaglio impegni pianificati (commessa, riga, ora da/a, stato, gruppo azione) |
LODCMRIG (lcr-) |
lettura |
Righe commessa (azione) |
LODCMTES (lct-) |
lettura |
Testata commessa (cassetta, paziente) |
LODAZION (laz-) |
lettura |
Descrizione azione (per la sintesi di cella) |
CRMAGORA (orr-) |
lettura sequenziale |
Orari di apertura del reparto per giorno della settimana (definisce gli slot disponibili) |
CRMAGFES (fes-) |
lettura |
Giorni festivi (assoluti e ricorrenti) per marcare i giorni chiusi |
COGTABEL (euta-) |
lettura (tipo 85) |
Descrizione reparto |
LODTABEL (lta-) |
lettura (tipo 11) |
Descrizione sottoreparto |
Copybook principali
| Copybook |
Ruolo |
cogzcj.select / .fd / .wrk / .prc / .decla |
Definizioni generate |
cogzcj-01.scr |
Screen section |
utilcogzcj.cpy |
Linkage di chiamata (reparto, sottoreparto, data) |
utilcogzck.cpy |
Linkage della chiamata al gestore dettaglio slot COGZCK |
utilw80.cpy / sendw80.cpy |
Aiuto/ricerca reparto (COGTABEL tipo 85) |
utilf12.cpy |
Linkage aiuto sottoreparto (COGF12) |
utilgdad.cpy / wgrid.cpy / utilgrid.cpy |
Griglia calendario |
utilncnf.cpy / utils52.cpy |
Configurazioni, campo data |
lodimpdt.k03 |
Chiave secondaria aggiunta manualmente |
mmmask.cpy, cogazien.cpy, wstato/wopenf/wgrave/wnscr |
Infrastruttura maschera GUI |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGZCK |
util-cogzck |
Gestore/dettaglio degli impegni di uno slot (INVIO su una cella: passa reparto, sottoreparto, data, ora inizio/fine) |
COGF12 |
stringhe |
Aiuto/ricerca sottoreparto per reparto (F8 sul campo sottoreparto) |
COGW80/send-w80 |
util-w80 |
Aiuto/ricerca reparto (F8 sul campo reparto) |
GRIDADMN |
util-gdad |
Costruzione e personalizzazione della griglia calendario |
DTPRG / PRGDT |
— |
Conversione data <-> progressivo giorni (scorrimento settimana/giorni) |
FESTA |
— |
Determina il giorno della settimana e se e' festivo |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Logica di elaborazione
apri — inizializzazione, open-files, definizione tasti funzione (F8 aiuti, F8 calendario, S-F4 griglia, F1 configura), lettura configurazioni x99-confi. In modalita' operatore mobile ("M") il programma non e' eseguibile e termina con messaggio; l'intervallo di slot e' impostato da configurazione.a4 — reset griglia, valorizzazione filtri; se chiamato precarica reparto/sottoreparto/data, altrimenti data = data odierna.- Testata — accept di reparto (
a-tm-rep, aiuto W80, validato su COGTABEL 85), sottoreparto (aiuto COGF12, validato su LODTABEL 11) e data (calendario S52); la data individua la settimana da visualizzare.
- Costruzione del calendario — la tabella di maschera rappresenta 96 slot da 15 minuti per 7 giorni.
sistema-flag marca per ogni giorno gli slot "disponibili" leggendo gli orari di apertura (CRMAGORA, per giorno della settimana) e i giorni festivi (CRMAGFES, assoluti e ricorrenti). carica-dati scandisce LODIMPDT per reparto/sottoreparto sull'intervallo di 7 giorni (chiave .k03), scarta gli impegni completati e i gruppi azione senza commessa, e per ogni impegno marca come "occupati" gli slot compresi tra ora-da e ora-a del giorno corrispondente (calcola-ind calcola l'indice di colonna-giorno tramite DTPRG/PRGDT). Per ogni slot occupato carica-des/carica-descriz compongono la sintesi di cella secondo l'ordine di campi configurato (config-des-attivita: C=cassetta, U=uscita, P=paziente, A=codice azione, Z=descrizione azione), leggendo LODCMTES/LODCMRIG/LODAZION.
- Colorazione — le celle sono colorate in base alla combinazione dei flag "disponibile"/"occupato"/"eccezione", con un colore RNEWCONF distinto per ciascuna combinazione (n/d/o/e e loro incroci) e un colore per gli slot di intervallo orario.
- Navigazione e azioni — S-F5/S-F6 spostano alla settimana precedente/successiva (etichette in
tm-sett-prec/tm-sett-succ); INVIO su una cella richiama COGZCK passando reparto, sottoreparto, data ricalcolata (data settimana + indice colonna) e ora di inizio/fine dello slot.
fine / z-chiudi — chiusura file e uscita.
Configurazioni (RNEWCONF)
| Gruppo |
Chiave |
Uso |
labimp |
assegnazione-operatori |
"M" = operatore mobile: il programma non e' eseguibile |
crm-agenda |
intervallo |
Ampiezza (in minuti) dello slot / intervallo orario mostrato |
crm-agenda |
dicitura-settimana |
Formato dell'etichetta di settimana |
crm-agenda |
colore ndoe, colore ndo, colore nde, colore noe, colore doe, colore nd, colore no, colore ne, colore do, colore de, colore oe, colore n, colore d, colore o, colore e |
Colori delle celle per ciascuna combinazione di flag (n=non disp., d=disp., o=occupato, e=eccezione) |
crm-agenda |
colore intervallo ore |
Colore degli slot di intervallo orario |
labimp |
config-des-attivita |
Ordine/composizione della descrizione di cella (C/U/P/A/Z) |
Note
- La granularita' interna e' fissa a 96 slot da 15 minuti al giorno (l'intera giornata), su cui vengono proiettati gli orari di apertura del reparto e gli impegni; la configurazione
intervallo regola la visualizzazione.
- La disponibilita' dello slot deriva dagli orari del reparto (CRMAGORA) e dal calendario festivi (CRMAGFES), non dall'operatore: questa e' la vista "per reparto" (a differenza di COGZCC, che stampa l'agenda per operatore).
- Il dettaglio e la modifica dei singoli impegni non avvengono in questo programma ma nel gestore COGZCK richiamato con INVIO sulla cella.