source: FOIAVistA/trunk/r/CMOP-PSX/PSXLBLPT.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 662 bytes
Line 
1PSXLBLPT ;BIR/HTW-CMOP Host Label Printer Test ;[ 05/20/97 9:44 AM ]
2 ;;2.0;CMOP;**1,2**;11 Apr 97
3PTEST ;
4 U IO
5NEW W "VA (XXX)",?53,"TEST OF ALIGNMENT /\",?101,"top of form",!!!?53," NAME,PATIENT"," XXX-XX-XXXX"
6 I $D(PSXBAR) S X="S",X2="XXX-123456789" W !!!!!!,?53 S X1=$X W @IOBARON,X2,@IOBAROFF,!
7 E F NLWS=1:1:6 W !
8 W !!!!!!!!?53," 0000000",!!,"<--------Label Boundaries-----------------------><----------Vertical Perforation----------------><----------Vertical Perforation"
9 W !!,?53," SIGNATURE___________________","(drug name)"
10 W !!!!,"BOTTOM OF FORM \/ ",?53," bottom of form \/",?101,"BOTTOM OF FORM \/"
11 I $D(PSXBAR) W @IOF Q
12 W !,@IOF
13 Q
Note: See TracBrowser for help on using the repository browser.