PSXLBLPT.m

PSXLBLPT ;BIR/HTW-CMOP Host Label Printer Test ;[ 05/20/97  9:44 AM ]

 ;;2.0;CMOP;**1,2**;11 Apr 97

PTEST ;

 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 @IOBARON,X2,@IOBAROFF,!

 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 ---PSXLBLPT   675     printed  Apr 09, 2024@20:50:29                                                                                                                                                                                                     Page 2

PSXLBLPT  ;BIR/HTW-CMOP Host Label Printer Test ;[ 05/20/97  9:44 AM ]

 +1       ;;2.0;CMOP;**1,2**;11 Apr 97

PTEST     ;

 +1        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 @IOBARON,X2,@IOBAROFF,!

 +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