NAMEPSO CHANGE PRINTER
DESCRIPTIONThis option will be used to allow users to change their label printerwithout logging completely out of the OP package.
CREATORUSER,ONE
E ACTION PRESENTYES
ENTRY ACTIONS PSOCLBL=1 D @$S('$D(PSOPAR):"^PSOLSET",1:"PLBL^PSOLSET") K PSOCLBL
EXIT ACTIONK PSOCLBL,%ZIS("B")
MENU TEXTChange Label Printer
PACKAGEOUTPATIENT PHARMACY
TYPEaction
UPPERCASE MENU TEXTCHANGE LABEL PRINTER
X ACTION PRESENTYES