|
Last change
on this file since 632 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
662 bytes
|
| Line | |
|---|
| 1 | PSXLBLPT ;BIR/HTW-CMOP Host Label Printer Test ;[ 05/20/97 9:44 AM ]
|
|---|
| 2 | ;;2.0;CMOP;**1,2**;11 Apr 97
|
|---|
| 3 | PTEST ;
|
|---|
| 4 | U IO
|
|---|
| 5 | NEW 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.
