PSXLTST ;BIR/SAB,HTW-CMOP Printer Test ;[ 04/08/97 2:06 PM ]
;;2.0;CMOP;;11 Apr 97
U IO
NEW W "VA (XXX)",?53,"TEST OF ALIGNMENT /\",?101,"top of form",!!!?53," NAME,PATIENT"," XXX-XX-XXXX"
I $D(PSXBAR) S X="S",X2="XXX-123456789" W !!!!!!,?53 S X1=$X W @PSXBAR1,X2,@PSXBAR0,!
E F NLWS=1:1:6 W !
W !!!!!!!!?53," 0000000",!!,"<--------Label Boundaries-----------------------><----------Vertical Perforation----------------><----------Vertical Perforation"
W !!,?53," SIGNATURE___________________","(drug name)"
W !!!!,"BOTTOM OF FORM \/ ",?53," bottom of form \/",?101,"BOTTOM OF FORM \/"
I $D(PSXBAR) W @IOF Q
W !,@IOF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXLTST 651 printed Sep 23, 2025@19:20:27 Page 2
PSXLTST ;BIR/SAB,HTW-CMOP Printer Test ;[ 04/08/97 2:06 PM ]
+1 ;;2.0;CMOP;;11 Apr 97
+2 USE IO
NEW WRITE "VA (XXX)",?53,"TEST OF ALIGNMENT /\",?101,"top of form",!!!?53," NAME,PATIENT"," XXX-XX-XXXX"
+1 IF $DATA(PSXBAR)
SET X="S"
SET X2="XXX-123456789"
WRITE !!!!!!,?53
SET X1=$X
WRITE @PSXBAR1,X2,@PSXBAR0,!
+2 IF '$TEST
FOR NLWS=1:1:6
WRITE !
+3 WRITE !!!!!!!!?53," 0000000",!!,"<--------Label Boundaries-----------------------><----------Vertical Perforation----------------><----------Vertical Perforation"
+4 WRITE !!,?53," SIGNATURE___________________","(drug name)"
+5 WRITE !!!!,"BOTTOM OF FORM \/ ",?53," bottom of form \/",?101,"BOTTOM OF FORM \/"
+6 IF $DATA(PSXBAR)
WRITE @IOF
QUIT
+7 WRITE !,@IOF
+8 QUIT
