PSXLBLNR ;BIR/HTW,BAB-CMOP Labels-Non Refillable ;[ 12/18/97 12:48 PM ]
;;2.0;CMOP;**1,10**;11 Apr 97
TOP W !,?54,COPAY," Days Supply: ",$G(TAYS),?102,"Mfg ________ Lot# ________"
W !,SADD1,?102,"Tech__________RPh__________"
W !,SCITY,", ",SSTATE," ",SZIP
I $G(PSXBAR) S X="S",X2=BAR S X1=$X W ?54,@IOBARON,X2,@IOBAROFF,*13
E W !!!!
W "FORWARDING SERVICE REQUESTED"
I '$G(RENW) G NORENEW
NOREFILL ;NO REFILLS REMAIN PRINT SECTION
W ?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *"
W ! I $G(REGMAIL)=1 W ?21,"CERTIFIED MAIL"
W ?54,"*Signature:____________________________SC NSC*"
W !,?54,"*Print Name:_________________________________*"
W !,"***CRITICAL MEDICAL SHIPMENT***"
W ?54,"*DEA or VA#_________________Date_____________*"
W ?102,"Routing: MAIL"
W !,?54,"*Refills: 0 1 2 3 4 5 7 8 9 10 11 *"
W ?99,"*",?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"**NON-SAFETY**",1:"SAFETY")
W !,?54,"***** To be filled in VA Pharmacies only *****"
W ?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT)
W !,PNAME,?54,$G(PADD1),?102,"Last fill: ",$G(REFLST)
W !,$G(PADD1),?54,$G(PADD2),?102,"Pat. St ",PSTAT," Clinic: ",CLINIC
W !,$G(PADD2),?54,$G(PADD3),?102,$S($G(WARN)'="":"DRUG WARNING "_$G(WARN),1:"")
W !,$G(PADD3),?54,$G(PADD4)
W !,$G(PADD4),?54,"*Indicate address change on back of this form"
W !,?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__")
BAR I $G(PSXBAR) S X="S",X2=BAR,X1=$X W ?102,@IOBARON,X2,@IOBAROFF,*13
Q
NORENEW W ?54,"*** This prescription CANNOT be renewed ***"
W !?21,$S($G(REGMAIL)=1:"CERTIFIED MAIL",1:""),?54,"*",?96,"*"
W !,?54,"* A NEW PRESCRIPTION IS REQUIRED *"
W !,"***CRITICAL MEDICAL SHIPMENT***",?54,"*",?96,"*"
W !,?54,"***** Please contact your physician *******"
W !,?54,$G(PADD1),?102,"Routing: MAIL"
W !,?54,PADD2,?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"**NON-SFTY**",1:"SAFETY")
W !,PNAME,?54,$G(PADD3),?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT)
W !,PADD1,?54,$G(PADD4),?102,"Last Fill: ",$G(REFLST)
W !,PADD2,?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC
W !,$G(PADD3),?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__")
W ?102,$S($G(WARN)'="":"DRUG WARNING "_$G(WARN),1:"")
W !,$G(PADD4)
I $G(PSXBAR) S X="S",X2=BAR,X1=$X W ?102,@IOBARON,X2,@IOBAROFF,*13
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSXLBLNR 2406 printed Nov 22, 2024@16:54:34 Page 2
PSXLBLNR ;BIR/HTW,BAB-CMOP Labels-Non Refillable ;[ 12/18/97 12:48 PM ]
+1 ;;2.0;CMOP;**1,10**;11 Apr 97
TOP WRITE !,?54,COPAY," Days Supply: ",$GET(TAYS),?102,"Mfg ________ Lot# ________"
+1 WRITE !,SADD1,?102,"Tech__________RPh__________"
+2 WRITE !,SCITY,", ",SSTATE," ",SZIP
+3 IF $GET(PSXBAR)
SET X="S"
SET X2=BAR
SET X1=$X
WRITE ?54,@IOBARON,X2,@IOBAROFF,*13
+4 IF '$TEST
WRITE !!!!
+5 WRITE "FORWARDING SERVICE REQUESTED"
+6 IF '$GET(RENW)
GOTO NORENEW
NOREFILL ;NO REFILLS REMAIN PRINT SECTION
+1 WRITE ?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *"
+2 WRITE !
IF $GET(REGMAIL)=1
WRITE ?21,"CERTIFIED MAIL"
+3 WRITE ?54,"*Signature:____________________________SC NSC*"
+4 WRITE !,?54,"*Print Name:_________________________________*"
+5 WRITE !,"***CRITICAL MEDICAL SHIPMENT***"
+6 WRITE ?54,"*DEA or VA#_________________Date_____________*"
+7 WRITE ?102,"Routing: MAIL"
+8 WRITE !,?54,"*Refills: 0 1 2 3 4 5 7 8 9 10 11 *"
+9 WRITE ?99,"*",?102,"Days Supply: ",$GET(TAYS)," Cap: ",$SELECT($GET(CAP):"**NON-SAFETY**",1:"SAFETY")
+10 WRITE !,?54,"***** To be filled in VA Pharmacies only *****"
+11 WRITE ?102,"Isd: ",$GET(ISD)," Exp: ",$GET(EXPDT)
+12 WRITE !,PNAME,?54,$GET(PADD1),?102,"Last fill: ",$GET(REFLST)
+13 WRITE !,$GET(PADD1),?54,$GET(PADD2),?102,"Pat. St ",PSTAT," Clinic: ",CLINIC
+14 WRITE !,$GET(PADD2),?54,$GET(PADD3),?102,$SELECT($GET(WARN)'="":"DRUG WARNING "_$GET(WARN),1:"")
+15 WRITE !,$GET(PADD3),?54,$GET(PADD4)
+16 WRITE !,$GET(PADD4),?54,"*Indicate address change on back of this form"
+17 WRITE !,?54,"[ ] Permanent [ ] Temporary until ",$SELECT($GET(PTEMP)]"":PTEMP,1:"__/__/__")
BAR IF $GET(PSXBAR)
SET X="S"
SET X2=BAR
SET X1=$X
WRITE ?102,@IOBARON,X2,@IOBAROFF,*13
+1 QUIT
NORENEW WRITE ?54,"*** This prescription CANNOT be renewed ***"
+1 WRITE !?21,$SELECT($GET(REGMAIL)=1:"CERTIFIED MAIL",1:""),?54,"*",?96,"*"
+2 WRITE !,?54,"* A NEW PRESCRIPTION IS REQUIRED *"
+3 WRITE !,"***CRITICAL MEDICAL SHIPMENT***",?54,"*",?96,"*"
+4 WRITE !,?54,"***** Please contact your physician *******"
+5 WRITE !,?54,$GET(PADD1),?102,"Routing: MAIL"
+6 WRITE !,?54,PADD2,?102,"Days Supply: ",$GET(TAYS)," Cap: ",$SELECT($GET(CAP):"**NON-SFTY**",1:"SAFETY")
+7 WRITE !,PNAME,?54,$GET(PADD3),?102,"Isd: ",$GET(ISD)," Exp: ",$GET(EXPDT)
+8 WRITE !,PADD1,?54,$GET(PADD4),?102,"Last Fill: ",$GET(REFLST)
+9 WRITE !,PADD2,?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC
+10 WRITE !,$GET(PADD3),?54,"[ ] Permanent [ ] Temporary until ",$SELECT($GET(PTEMP)]"":PTEMP,1:"__/__/__")
+11 WRITE ?102,$SELECT($GET(WARN)'="":"DRUG WARNING "_$GET(WARN),1:"")
+12 WRITE !,$GET(PADD4)
+13 IF $GET(PSXBAR)
SET X="S"
SET X2=BAR
SET X1=$X
WRITE ?102,@IOBARON,X2,@IOBAROFF,*13
+14 QUIT
