| Campo |
Valore |
| Sorgente |
cbl/cogz39.cbl |
| Program-ID |
cogz39 |
| Tipo |
Maschera GUI con griglia di selezione |
| Posizione menu |
Lab.Odont. > Operativo > Non conformita' > Gestione rapporti n.c. |
Scopo
Consente l'inserimento, la variazione e la cancellazione dei rapporti di non conformita' (RNC) del laboratorio odontotecnico. Un rapporto e' identificato da anno/numero, e' collegato (opzionalmente) a una commessa e a una riga/azione, riporta operatore, data, luogo, tipo, reparto, note e la selezione di uno o piu' codici di non conformita' (griglia). Puo' inoltre lanciare la gestione delle azioni correttive/preventive collegate (COGZ38).
Struttura e flusso
Programma a maschera con griglia di selezione dei codici NC. Usa un file temporaneo di lavoro LODTMDES (aperto in esclusiva per lock funzione).
main/apri: init, open-files, caricamento bitmap/pulsanti custom (F6 azione correttiva, F7 azione preventiva, F5 commessa, F6 trattamenti, F7 azioni correttive per personalizzazione WILOCS), x99-confi.a4: reset stato; apre/chiude LODTMDES per verificare che la funzione non sia gia' in uso da altro operatore; carica-tab popola i codici NC disponibili da LODTABEL tipo 13. Se richiamato (z39-called = k-program-id) instrada verso rapporto esistente o inserimento diretto in base a w-dati-called.a-tm-rap-ann/a-tm-rap-num/a-fine-rapporto: accept anno/numero rapporto; se noto lo apre in variazione, altrimenti procede all'inserimento.a-tm-cli/a-fine-commessa: accept della commessa via COGS98W; se non e' stato indicato un rapporto, lancia WINZ18 (send-wz18) per selezionare un RNC esistente o richiederne uno nuovo.a-carica: carica-dati legge il record LODRAPNC; carica-descr ricompone le note dai blocchi LODDESCR (tipo "RC"); carica-sel-nc marca i codici NC gia' selezionati leggendo LODAZRNC (tipo "N"); verifica-esi-azioni verifica esistenza azioni correttive/preventive. Recupera anche l'attribuzione di responsabilita' via COGZAI.a-tm-ope-cod, a-tm-data, a-tm-luogo, a-tm-rap-tipo, a-tm-rep-cod, a-tm-note, a-tm-fl-chiusura: accept dei campi testata; l'operatore e' validato su PRNTOPER, il reparto su COGTABEL tipo 85 (o tabella reparti a seconda della configurazione).a-grid/a-accept-grid: griglia di selezione dei codici NC (Invio inverte il flag tm-sel-nc).a-fine-dati-rapporto: validazione complessiva (x-controlla-dati-rapporto), obbligo di almeno un codice NC selezionato; controlla-azioni avvisa se esistono azioni collegate; inserisci-rapporto salva.inserisci-rapporto: assegna numero progressivo da LODTABEL (tipo 1, contatore), scrive/riscrive LODRAPNC, richiama aggiorna-lodazrnc (rigenera le righe NC selezionate su LODAZRNC tipo "N") e inserisci-descr (salva le note su LODDESCR).cancella: cancella rapporto (del-lodrapnc), le sue descrizioni (cancella-descr, tipi "RC" e "AC") e le righe NC associate su LODAZRNC.- Gestione tasti (
z-99-exception-form): F4 cancella, F6/F7 lanciano COGZ38 per le azioni correttive/preventive (o trattamenti in personalizzazione WILOCS).
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODRAPNC (rnc-) |
lettura/scrittura/riscrittura/cancellazione |
Testata rapporto di non conformita' (anno, numero, commessa, dati) |
LODAZRNC (rna-) |
lettura/scrittura/cancellazione |
Righe azioni/codici NC del rapporto (tipo "N" = codici NC; "C"/"P" = azioni) |
LODDESCR (lde-) |
lettura/scrittura/cancellazione |
Blocchi descrizione/note (tipo "RC" rapporto, "AC" azione) |
LODTABEL (lta-) |
lettura/scrittura |
Tabella laboratorio: tipo 13 codici NC, tipo 1 contatore numerazione |
LODTMDES (ltd-) |
temporaneo (open output/i-o, delete) |
File di lavoro/lock funzione per operatore |
PRNTOPER (ptop-) |
lettura |
Anagrafica operatori (validazione operatore, reparto) |
COGTABEL (euta-) |
lettura |
Tabella generale: tipo 85 reparti |
LODPRESC (lpm-) |
lettura |
Prescrizione/commessa (via COGS98) |
feurtab (cogfiles.cpy) |
— |
File tabelle Euro standard |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGS98W |
util-s98 |
Selezione/validazione commessa (studio, paziente, progressivo, numero) |
COGZ38 |
util-z38 |
Gestione azione correttiva/preventiva (o trattamenti) collegata al rapporto |
WINZ18 |
util-wz18 (send-wz18) |
Selezione/inserimento rapporto NC da commessa |
WIN073 |
util-w73 |
Aiuto/ricerca operatori (tabella "O") |
WIN080 |
util-w80 (send-w80) |
Aiuto/ricerca tabella (reparti, tipo 85) |
COGZAI |
util-cogzai |
Attribuzione responsabilita' (rif-resp) della commessa |
DIALOGS |
util-dlg |
Dialog a scelte multiple (gestione azioni esistenti) |
GRIDADMN |
util-gdad |
Gestione griglia codici NC |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Copybook principali
| Copybook |
Ruolo |
cogz39.select/.fd/.wrk/.prc/.decla |
Definizioni generate |
cogz39-01.scr |
Screen section |
utilz39.cpy |
Linkage di chiamata (dati rapporto/commessa in ingresso) |
utilz38/utilz99/utilwz18/utilw73/utilw80/utilzde/utildlg/utilgdad/utilcogzai/utils52/utils98/utilncnf |
Linkage subroutine chiamate |
k-tipi-cogtabel.cpy, k-personal.cpy |
Costanti tipi tabella e personalizzazioni |
lodtmdes.cpy/.fd/.k01 |
File temporaneo descrizioni |
lodpresc.k04 |
Chiave secondaria prescrizione |
mmmask.cpy |
Maschera GUI standalone |
Configurazioni RNEWCONF
| Gruppo |
Chiave |
Uso |
ODONTO |
GESTIONE-REPARTI |
Abilita/disabilita la gestione dei reparti sul rapporto (tm-cfg-fl-rep) |
Note
- La numerazione del rapporto e' automatica: anno = anno di sistema, numero da contatore su
LODTABEL (tipo 1, lta-codr 3).
- Il comportamento cambia per la personalizzazione
k-personal-lab-wilocs (az-personal): i pulsanti F6/F7 attivano trattamenti/azioni correttive invece delle azioni correttive/preventive standard.
- La responsabilita' (
tm-rif-resp: A nostra 100%, B condivisa 50%, C cliente 0%) e' ricavata da COGZAI solo se la commessa e' collegata a un paziente.