PSXLTST.m

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 ---PSXLTST   651     printed  Apr 09, 2024@20:49:49                                                                                                                                                                                                      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