source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLBLT.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PSOLBLT ;BHAM ISC/SAB - ALIGNMENT TEST LABEL ; 09/30/92 13:22
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3EN U IO S PSOLTEST=PSOBAR1]""&(PSOBAR0]"") I +$P(PSOPAR,"^",28)=1 D NEW Q
4OLD W $C(13),"VA (XXX)",?40,"TEST OF ALIGNMENT /\",!?60,"top of form",!!?38,"XXX-XX-XXXX",!?3,"NAME,PATIENT"
5 I $G(PSOLTEST) S X="S",X2="XXX-123456789" W !!!!,?40 S X1=$X W @PSOBAR1,X2,@PSOBAR0,!!
6 E W !!!!!!!!!
7 W "<--------Label Boundries-------->",?38,"<----------Vertical Perforation"
8 W !?8,"VA Medical Center",!!?4,"0000000",!!!!!!?5,"Physician",?38,"(drug name)",?60,"bottom of form",!,"(drug name)",?38,"Physician",?60,"\/"
9 W @IOF K PSOLTEST Q
10NEW W "VA NAME",?54,"TEST OF ALIGNMENT /\",?102,"TOP OF FORM /\",!!!?54," NAME,PATIENT"," XXX-XX-XXXX"
11 W !!!!!!!,"<-----------Label Boundries-------------------->",?54,"<----------Vertical Perforation---------------><---Vertical Perforation--->"
12 I $G(PSOLTEST) S X="S",X2="XXX-123456789" W !!!,?54 S X1=$X W @PSOBAR1,X2,@PSOBAR0,!
13 E F NLWS=1:1:7 W !
14 W !!!!!!!!!,?54," Signature_____________________________"
15 W !!!,"BOTTOM OF FORM \/ ",?54," BOTTOM OF FORM \/",?102,"BOTTOM OF FORM \/"
16 W @IOF K PSOLTEST Q
Note: See TracBrowser for help on using the repository browser.