PSOLBLT ;BHAM ISC/SAB - ALIGNMENT TEST LABEL ; 09/30/92 13:22
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
EN U IO S PSOLTEST=PSOBAR1]""&(PSOBAR0]"") I +$P(PSOPAR,"^",28)=1 D NEW Q
OLD W $C(13),"VA (XXX)",?40,"TEST OF ALIGNMENT /\",!?60,"top of form",!!?38,"XXX-XX-XXXX",!?3,"NAME,PATIENT"
I $G(PSOLTEST) S X="S",X2="XXX-123456789" W !!!!,?40 S X1=$X W @PSOBAR1,X2,@PSOBAR0,!!
E W !!!!!!!!!
W "<--------Label Boundries-------->",?38,"<----------Vertical Perforation"
W !?8,"VA Medical Center",!!?4,"0000000",!!!!!!?5,"Physician",?38,"(drug name)",?60,"bottom of form",!,"(drug name)",?38,"Physician",?60,"\/"
W @IOF K PSOLTEST Q
NEW W "VA NAME",?54,"TEST OF ALIGNMENT /\",?102,"TOP OF FORM /\",!!!?54," NAME,PATIENT"," XXX-XX-XXXX"
W !!!!!!!,"<-----------Label Boundries-------------------->",?54,"<----------Vertical Perforation---------------><---Vertical Perforation--->"
I $G(PSOLTEST) S X="S",X2="XXX-123456789" W !!!,?54 S X1=$X W @PSOBAR1,X2,@PSOBAR0,!
E F NLWS=1:1:7 W !
W !!!!!!!!!,?54," Signature_____________________________"
W !!!,"BOTTOM OF FORM \/ ",?54," BOTTOM OF FORM \/",?102,"BOTTOM OF FORM \/"
W @IOF K PSOLTEST Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOLBLT 1165 printed Oct 16, 2024@18:31:09 Page 2
PSOLBLT ;BHAM ISC/SAB - ALIGNMENT TEST LABEL ; 09/30/92 13:22
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
EN USE IO
SET PSOLTEST=PSOBAR1]""&(PSOBAR0]"")
IF +$PIECE(PSOPAR,"^",28)=1
DO NEW
QUIT
OLD WRITE $CHAR(13),"VA (XXX)",?40,"TEST OF ALIGNMENT /\",!?60,"top of form",!!?38,"XXX-XX-XXXX",!?3,"NAME,PATIENT"
+1 IF $GET(PSOLTEST)
SET X="S"
SET X2="XXX-123456789"
WRITE !!!!,?40
SET X1=$X
WRITE @PSOBAR1,X2,@PSOBAR0,!!
+2 IF '$TEST
WRITE !!!!!!!!!
+3 WRITE "<--------Label Boundries-------->",?38,"<----------Vertical Perforation"
+4 WRITE !?8,"VA Medical Center",!!?4,"0000000",!!!!!!?5,"Physician",?38,"(drug name)",?60,"bottom of form",!,"(drug name)",?38,"Physician",?60,"\/"
+5 WRITE @IOF
KILL PSOLTEST
QUIT
NEW WRITE "VA NAME",?54,"TEST OF ALIGNMENT /\",?102,"TOP OF FORM /\",!!!?54," NAME,PATIENT"," XXX-XX-XXXX"
+1 WRITE !!!!!!!,"<-----------Label Boundries-------------------->",?54,"<----------Vertical Perforation---------------><---Vertical Perforation--->"
+2 IF $GET(PSOLTEST)
SET X="S"
SET X2="XXX-123456789"
WRITE !!!,?54
SET X1=$X
WRITE @PSOBAR1,X2,@PSOBAR0,!
+3 IF '$TEST
FOR NLWS=1:1:7
WRITE !
+4 WRITE !!!!!!!!!,?54," Signature_____________________________"
+5 WRITE !!!,"BOTTOM OF FORM \/ ",?54," BOTTOM OF FORM \/",?102,"BOTTOM OF FORM \/"
+6 WRITE @IOF
KILL PSOLTEST
QUIT
