COGZ86 -- Stampa codici di comando (barcode di servizio)¶

Sorgente: cbl/cogz86.cbl | Tipo: Programma di menu / stampa etichette barcode | Program-ID: COGZ86

Menu: Lab.Odont. > Operativo > Stampe > Servizio [Codici di Comando]

Scopo¶

COGZ86 stampa il foglio dei "codici di comando": una tabella fissa di etichette a barre che, lette dal terminale barcode del laboratorio, pilotano le funzioni operative (sospensione azione, riapertura forzata, modifica operatore, inserimento/cancellazione azione, gestione prestazioni/materiali, istruzioni d'uso, note buoni consegna, istruzioni medico, descrizione lavoro, visualizza progetto, ripartizione lavoro, conferma).

Ogni comando corrisponde a un codice numerico a 6 cifre (per esempio 100002 = Sospensione azione, 100099 = Conferma). Il programma non legge dati anagrafici o di commessa: e' un semplice generatore di etichette di servizio a contenuto costante, di cui l'operatore sceglie solo il numero di copie.

Configurazione (RNEWCONF)¶

La stampa e' pilotata dal file di configurazione ODONTO.CNF letto in x99-confi via RNEWCONF (pacchetto C):

Gruppo	Chiave	Uso
ODONTO	Stampa-codici-comando	Tipo stampante: `LASER` (Kyocera, emulazione PRESCRIBE) o `ELTRON` (etichettatrice, emulazione EPL2)
ABILITA	LABOD-PROGETTAZIONE	Modalita' progettazione (`tm-cfg-modalita-prog`): con valore `B`/`C` vengono soppresse le etichette "Inserimento azione" e "Cancellazione azione"

File e tabelle principali¶

File/Tabella	Copybook	Uso
LODTABEL	dichiarata in `cogz86.select`	Tabella di laboratorio dichiarata dalla maschera; il programma non ne fa uso funzionale nel flusso di stampa
Stampa (file di stampa)	--	Righe di comando stampante scritte tramite `write riga` sulla periferica aperta da COGS54

Programmi chiamati¶

Programma	Scopo
COGS54	Selezione/apertura della periferica di stampa (`s54-emu` = PRESCRIBE per LASER, EPL2 per ELTRON) e chiusura post-stampa (`s54-after-print`)
RNEWCONF	Lettura configurazione `ODONTO.CNF` (tipo stampante, modalita' progettazione)
COGS52 (`z-carica-*`)	Gestione controlli maschera (Y*)

Flusso principale¶

apri / main -- init standalone (mmmask.cpy), apertura file, x99-confi (lettura configurazione), abilitazione tasti funzione.
a-tm-cop -- accept del numero copie (tm-cop), con validazione (x-controlla-tm-cop).
a-richiesta-conferma / a-90 -- selezione periferica via COGS54 (emulazione impostata in base a tm-cfg-tip-sta); alla conferma con F3 esegue b-stampa.
b-stampa -- inizializza la stampante (b1-set-printer), stampa il numero di copie richiesto (b2-stampa), chiude/resetta (b3-reset-printer) e disattiva la periferica via COGS54.
b2-stampa -- per la stampante LASER (Kyocera) genera i comandi PRESCRIBE su due colonne (b2-stampa-laser-colonna1 / -colonna2) con posizionamento assoluto (b21-set-map, comando MAP) e barcode BARC; per ELTRON/ZEBRA genera i comandi EPL2 (b2-stampa-zebra, testi A... e barcode B...).

Note¶

I codici comando sono costanti nel sorgente (letterali 100002..100099); non provengono da tabelle.
La modalita' progettazione (B/C) nasconde i barcode "Inserimento azione" (100006) e "Cancellazione azione" (100007), non pertinenti in quel contesto.
Il ramo b2-stampa-eltron (comandi EPL2 diretti) e' presente ma non richiamato: per ELTRON il flusso usa b2-stampa-zebra.
La stampa laser usa il layout Kyocera parametrico (w-dati-kyocera: dimensione etichetta, offset dai bordi, altezza barcode); l'unita' di misura viene commutata tra centimetri (UNIT C) e decimillimetri (UNIT D) attorno ai comandi barcode.

Documentazione tecnica -- 2026-08-05