Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
639 bytes
|
Line | |
---|
1 | PSXLTST ;BIR/SAB,HTW-CMOP Printer Test ;[ 04/08/97 2:06 PM ]
|
---|
2 | ;;2.0;CMOP;;11 Apr 97
|
---|
3 | U IO
|
---|
4 | NEW W "VA (XXX)",?53,"TEST OF ALIGNMENT /\",?101,"top of form",!!!?53," NAME,PATIENT"," XXX-XX-XXXX"
|
---|
5 | I $D(PSXBAR) S X="S",X2="XXX-123456789" W !!!!!!,?53 S X1=$X W @PSXBAR1,X2,@PSXBAR0,!
|
---|
6 | E F NLWS=1:1:6 W !
|
---|
7 | W !!!!!!!!?53," 0000000",!!,"<--------Label Boundaries-----------------------><----------Vertical Perforation----------------><----------Vertical Perforation"
|
---|
8 | W !!,?53," SIGNATURE___________________","(drug name)"
|
---|
9 | W !!!!,"BOTTOM OF FORM \/ ",?53," bottom of form \/",?101,"BOTTOM OF FORM \/"
|
---|
10 | I $D(PSXBAR) W @IOF Q
|
---|
11 | W !,@IOF
|
---|
12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.