Vai al contenuto

COGZQ1 — Consultazione lavorazioni commessa (Industria 4.0)

Campo Valore
Sorgente cbl/cogzq1.cbl
Program-ID cogzq1
Tipo Lista-griglia/visualizzazione
Posizione menu Lab.Odont. > Operativo > Varie > Industria 4.0 > Consultazione lavorazioni commessa

Scopo

Consulta le lavorazioni macchina (Industria 4.0) associate a una commessa di laboratorio: sono i cicli di lavoro registrati automaticamente dalle macchine/attrezzature collegate. Dato uno studio/prescrizione (o un id lavorazione specifico) il programma elenca in griglia le lavorazioni con macchina impiegata, date e ore di inizio/fine e tempo di lavorazione calcolato. E' uno strumento di sola consultazione; puo' essere richiamato da altri programmi (COGZQ1-CALLED), tipicamente da COGZ50 (stato commessa), e da griglia (F5) accede allo stato commessa (COGZ50) quando non e' esso stesso il chiamante.

Struttura e flusso

Programma a maschera con framework griglia grid-det e file di transito indicizzato t-grid-det. La testata identifica la commessa tramite la subroutine prescrizioni COGS98W.

  • apri/a4: init, open-files, rd-azi, caricamento bitmap/pulsanti custom (F5 commessa, F5 stato commessa). Se chiamato (COGZQ1-CALLED) riceve commessa/prescrizione/id-lavorazione dal chiamante e precompila i campi validando su LODPRESC; in tal caso salta direttamente all'elaborazione.
  • Sezione testata: accept studio/prescrizione via COGS98W (a-tm-cli) e id lavorazione (a-tm-macr-id). F3 conferma.
  • a-leggi-dati: apre il transito, invoca z-grid-det-crea-transito e riordina.
  • a-grid: loop accept sulla griglia con SF4 (personalizza colonne), SF5 (export Excel), F5 (stato commessa COGZ50), menu pop-up.
  • fine/z-chiudi: chiusura file, cancel "COGS98W", delete file di t-grid-det, exit program.

File e tabelle

Tabella Accesso Descrizione
CLCMACLC (macr-) lettura (chiave primaria per id, .k02 per commessa) Righe raccordo lavorazione-commessa: id lavorazione (macr-id), progressivo, tipo e numero documento raccordo (macr-rac-tipo/macr-rac-doc). E' la fonte principale della scansione
CLCMACLG (macl-) lettura Testata lavorazione macchina: date/ore inizio e fine, codice macchina, tempo in minuti
CLCANAMA (mac-) lettura Anagrafica macchine (descrizione)
LODPRESC (lpm-) lettura (chiave .k04 e primaria) Testata prescrizione/commessa: medico, paziente, progressivo, numero
COGGEANA (ana-) lettura Anagrafica studio/medico (nome)

Copybook principali

Copybook Ruolo
cogzq1.select/.fd/.wrk/.prc/.decla/.tm Definizioni generate da Screens
cogzq1-01.scr Screen section
cogzq1.imppredf/.imppredf-wrk, utilimppredf.cpy Framework impostazioni predefinite (presente ma la parte salva/carica filtro e' disattivata)
costanti-tipi-documento.cpy Costanti tipo documento (k-doc-tip-comm-lab = "LC")
utilcogzq1.cpy Linkage di chiamata (commessa, prescrizione, id lavorazione)
utilz50.cpy Linkage COGZ50 (stato commessa)
utils98.cpy Linkage COGS98W (selezione prescrizione)
utils52/utilu10/utilu20/utilgdad/utilncnf Linkage subroutine chiamate
lodpresc.k04, clcmaclc.k02 Chiavi secondarie
mmmask.cpy, wgrid.cpy Maschera GUI standalone e gestione griglia

Programmi chiamati

Programma Interfaccia Scopo
COGS98W util-s98 Selezione/validazione prescrizione (studio, paziente, progressivo, commessa)
COGZ50 util-z50 Stato commessa (da F5, se il chiamante non e' gia' COGZ50)
GRIDADMN util-gdad Personalizzazione/preparazione griglia (SF4)
COGU10W util-u10 Gestione valori/divisa
RNEWCONF util-ncnf Lettura configurazione

Logica di elaborazione

z-grid-det-crea-transito sceglie il criterio di scansione:

  • Per id lavorazione: se tm-macr-id e' valorizzato, scandisce CLCMACLC sulla chiave primaria (macr-id) filtrando sull'id.
  • Per commessa: altrimenti scandisce CLCMACLC sulla chiave .k02 (macr-rac-tipo = "LC" documento commessa laboratorio, macr-rac-doc = tm-num).

Per ciascuna riga trovata z-grid-det-riempi-campi-t-gor popola il record di transito: risale alla commessa via LODPRESC (numero preso da macr-rac-doc), al medico via COGGEANA, legge la testata lavorazione CLCMACLG per date/ore e codice macchina, e la descrizione macchina da CLCANAMA. Il tempo di lavorazione (t-gor-r-tempo) e' ricavato da macl-tempo-minuti convertendo minuti in formato ore:minuti:secondi.

Note

  • Il tipo documento raccordo per la commessa di laboratorio e' la costante k-doc-tip-comm-lab = "LC" (da costanti-tipi-documento.cpy).
  • La visibilita' del campo progressivo (tm-pro) dipende dalla personalizzazione az-lod-presc: se vale "C" il progressivo non viene mostrato.
  • CLCMACLC, CLCMACLG, CLCANAMA sono le tabelle del sottosistema Industria 4.0 (raccordo lavorazioni, testata lavorazione macchina, anagrafica macchine).