COGZAN — Situazione commesse chiuse
| Campo |
Valore |
| Sorgente |
cbl/cogzan.cbl |
| Program-ID |
cogzan |
| Tipo |
Lista paginata/visualizzazione (con export Excel) |
| Posizione menu |
Lab.Odont. > Operativo > Visualizzazioni > Situazione commesse chiuse |
Scopo
Fornisce una consultazione rapida delle commesse chiuse (ed evase) di laboratorio, permettendo di verificare a colpo d'occhio, per ciascuna commessa, la presenza di: buono di consegna emesso, fattura collegata al buono, prescrizione archiviata otticamente. Per ogni commessa calcola inoltre i ricavi (bollato, totale, differenza da fatturare). E' uno strumento di sola consultazione: da griglia (F5) si accede allo stato commessa (COGZ50).
Struttura e flusso
Programma a maschera con tab-control a due pagine (pagina 1 filtri, pagina 2 risultato). La lista e' gestita con list-box paginata (utilpggr/fscrol2) appoggiata a un file di transito indicizzato cogtrans costruito dinamicamente; l'ordinamento e' ottenuto valorizzando la chiave secondaria trs-chia2 in base alla colonna scelta e rielaborando.
apri/a4: init, open-files, rd-azi, get-divisa-conto, lettura configurazioni (x99-confi). Il file cogtrans viene creato con nome univoco per operatore in area temporanea; l'apertura in output verifica che la funzione non sia gia' in uso.- Pagina 1 (
a-pagina-01): accept di studio (COGS65W), data partenza, data arrivo. F7 conferma i filtri.
- Pagina 2 (
a-pagina-02 / inizio-ela): esegue l'elaborazione a-ricerca (se non gia' fatta) e visualizza la tabella (vis-tabella). Sulla griglia: SF4 personalizza colonne, SF5 esporta Excel, F5 stato commessa, click su intestazione colonna riordina.
fine/z-chiudi: chiusura file, delete file di cogtrans, cancel "COGZS5", exit program.
File e tabelle
| Tabella |
Accesso |
Descrizione |
cogtrans (trs-) |
temporaneo indicizzato (i/o, delete file) |
Tracciato specifico di COGZAN (definito inline nel sorgente): commessa, paziente, medico, date, stato, flag buono/fattura/prescrizione, ricavi, riferimenti bolla e fattura; chiave secondaria trs-chia2 usata per l'ordinamento |
LODCMRIG (lcr-) |
lettura (chiave .k04 = data consegna) |
Scansione righe commessa per periodo, da cui si risale alla commessa |
LODPRESC (lpm-) |
lettura (chiave .k04) |
Testata commessa: stato, medico, paziente, date, progressivo |
LODCMAG2 (lc2-) |
lettura |
Dati aggiuntivi commessa: data/ora consegna effettiva (se abilitato) |
COGRACBB (rbb-) |
lettura |
Raccordo bolle: presenza buono di consegna "CD" collegato alla commessa |
COGRACCO (rac-) |
lettura (chiave .k02) |
Raccordo bolla-fattura: presenza fattura e suoi riferimenti |
COGGEANA (ana-) |
lettura |
Anagrafica studio/medico (nome) |
Copybook principali
| Copybook |
Ruolo |
cogzan.select/.fd/.wrk/.prc/.decla |
Definizioni generate da Screens |
cogzan-01.scr |
Screen section |
cogtrans.k01/.k02 |
Chiavi del file di transito |
costanti-labod.cpy, k-personal.cpy, k-u10.cpy |
Costanti (stati commessa, personalizzazioni azienda, valuta) |
utilz50.cpy |
Linkage COGZ50 (stato commessa) |
utilzs5.cpy, utilz61.cpy, utilu06.cpy |
Linkage COGZS5 (ricavi), COGZ61 (importi da fatturare), COGU06 (archiviazione ottica) |
utils65/utils52/utils87/utilu09/utilu10/utilgdad/utilncnf |
Linkage subroutine chiamate |
utilpggr.cpy, fscrol2.cpy |
Framework list-box paginata |
lodcmrig.k04, lodpresc.k04, cogracco.k02 |
Chiavi secondarie |
mmmask.cpy, wgrid.cpy |
Maschera GUI standalone e gestione griglia |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGZS5 |
util-zs5 |
Calcolo ricavi (prestazioni + materiali) della commessa |
COGZ61 |
util-z61 |
Calcolo importi ancora da fatturare (ricavo totale) |
COGU06 |
util-u06 |
Verifica esistenza documento archiviato (prescrizione tipo "LP") |
COGZ50 |
util-z50 |
Stato commessa (da F5) |
COGS65W |
util-s65 |
Ricerca/aiuto anagrafica studio |
GRIDADMN |
util-gdad |
Personalizzazione griglia (SF4) |
COGU10W |
util-u10 |
Divisa di conto ed editing importi |
RNEWCONF |
util-ncnf |
Lettura configurazione |
Logica di elaborazione
a-ricerca scandisce LODCMRIG per data consegna nel periodo; per ogni commessa filtra valida stato e filtri (studio, date). Il filtro sullo stato dipende dalla personalizzazione azienda: per k-personal-lab-kronos sono ammesse solo le commesse chiuse, altrimenti chiuse ed evase. Per ogni commessa valida write-cogtrans popola il transito:
- Buono: cerca su
COGRACBB un raccordo "CD" (trs-buono = "Si").
- Fattura: da ogni raccordo bolla cerca su
COGRACCO la fattura collegata (trs-fattura = "Si", con riferimenti anno/tipo/numero).
- Prescrizione archiviata:
x1-cerca-immagine interroga COGU06 (trs-prescrizione = "Si").
- Ricavi: COGZS5 per il bollato (prestazioni + materiali), COGZ61 per l'importo da fatturare; la differenza e' la parte non ancora bollata.
L'operatore "888" puo' scegliere una elaborazione "veloce" (w-elab-veloce) che salta la ricerca immagine e le chiamate a COGZ61 per motivi di performance. Anche per la personalizzazione Kronos i calcoli ricavi/COGZ61 sono disattivati.
Configurazioni RNEWCONF
| Gruppo |
Chiave |
Uso |
labpresc |
vis-consegna-effettiva |
Se "S", nel transito usa la data/ora di consegna effettiva letta da LODCMAG2 al posto di quella prevista |
Storico modifiche
280325: aggiunte le colonne "riferimento bolla" e "riferimento fattura" in griglia, con relativi campi nel transito e nuovi criteri di ordinamento; introdotta l'elaborazione "veloce" per l'operatore 888.
Note
- L'ordinamento della lista non usa una chiave fissa: la colonna scelta viene codificata in
trs-chia2 e l'intera elaborazione viene rifatta (inizio-ela).
- La sigla documento usata per la ricerca dell'archiviazione ottica e' "LP" (
w-tip-doc-sigla).