PSXLBLNR.m

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 ---PSXLBLNR   2406     printed  Feb 18, 2025@23:10:45                                                                                                                                                                                                    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