PSORLLLI ;AITC/BWF - ONEVA LASER LABELS INITIALIZATION ;10/06/16 9:28am
Source file <PSORLLLI.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DQ | ||
DQS | ||
DQ1 | ||
HLEX | ||
C | ||
ORIG | ||
STA | ;
|
|
LBL | ||
LBL2 | ||
REF | ||
CHECK | ; use DFN from ZTSAVE instead of from RX
|
|
OSET | ;
|
|
DOUB | ;
|
|
SNO | ;
|
|
ZZ(LDIEN) | ; Returns VA print name, Trade Name, Generic Name
|
|
END | ||
PSOLBL2 | ;
|
|
QUIT | ||
SIG | ||
SIGOLD | ||
DPT | ||
PSOLBL3 | ;
|
|
FMSIG | ||
OPAI | ; OPAI interface for One-Va prescriptions
|
|
ACK | ;Process ack from OPAI dispense for a OneVa fill, called from PSOHLDS
|
|
ACKK | ;
|
|
UPD | ;Update File 52.09 at dispensing site
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |