Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOLBLN1

Package: Outpatient Pharmacy

Routine: PSOLBLN1


Information

PSOLBLN1 ;BIR/BHW - NEW LABEL CONTINUED ;03/14/94

Source Information

Source file <PSOLBLN1.m>

Entry Points

Name Comments DBIA/ICR reference
START
NORENW ;NO RENEW
ALLWARN ;ALLERGIES WITH DRUG WARNING
PRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?54,$S($L($G(COPAYVAR)):$G(COPAYVAR)_" ",1:""),"Days Supply: ",$G(DAYS),?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT)
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,$P(PS,"^",2),?102,"Tech__________RPh__________"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: "ADDRESS SERVICE REQUESTED",?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?102,"Read FDA Med Guide"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !
  • Line Location: START+15
Function Call: WRITE
  • Prompt: ?21,"CERTIFIED MAIL"
  • Condition for execution: "C"[$E(MW)
  • Line Location: START+15
Function Call: WRITE
  • Prompt: ?54,"*Signature:____________________________SC NSC*"
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,?54,"*Print Name:",ULN,"*",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: $S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***")
  • Line Location: START+16
Function Call: WRITE
  • Prompt: $S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***")
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,?54,"*Refills: 0 1 2 3 4 5 6 7 8 9 10 11",?99,"*",?102,"Days Supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,?54,"***** To be filled in VA Pharmacies only *****",?102,"Isd: ",ISD," Exp: ",EXPDT,!,PNM,?54,$G(VAPA(1)),?102,"Last Fill: ",$G(PSOLASTF)
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),?54,$G(ADDR(2)),?102,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(3)):PSMP(3),$D(PSMP(1)):"",1:$G(ADDR(3))),?54,$G(ADDR(4))
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4))),?54,"*Indicate address change on back of this form",!,?54,"[ ] Permanent [ ] Temporary until ",$S($P($G(VAPA(10)),"^",2)]"":$P($G(VAPA(10)),"^",2),1:"__/__/__")
  • Line Location: START+22
Function Call: WRITE
  • Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !,$P(PS,"^",2),?102,"Tech__________RPH__________"
  • Line Location: NORENW+1
Function Call: WRITE
  • Prompt: !,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP)
  • Line Location: NORENW+2
Function Call: WRITE
  • Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: NORENW+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NORENW+4
Function Call: WRITE
  • Prompt: "ADDRESS SERVICE REQUESTED",?54,"*** This prescription CANNOT be renewed ***",!
  • Line Location: NORENW+5
Function Call: WRITE
  • Prompt: ?21,"CERTIFIED MAIL"
  • Condition for execution: "C"[$E(MW)
  • Line Location: NORENW+5
Function Call: WRITE
  • Prompt: ?54,"*",?96,"*",!,?54,"* A NEW PRESCRIPTION IS REQUIRED *"
  • Line Location: NORENW+5
Function Call: WRITE
  • Prompt: !,$S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***"),?54,"*",?96,"*",!,?54,"***** Please contact your physician *******"
  • Line Location: NORENW+6
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),?102,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL"),!,?54,$G(ADDR(2)),?102,"Days supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: NORENW+7
Function Call: WRITE
  • Prompt: !,PNM,?54,$G(ADDR(3)),?102,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: NORENW+8
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),?54,$G(ADDR(4)),?102,"Last Fill: ",$G(PSOLASTF)
  • Line Location: NORENW+9
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(2)):PSMP(2),$D(PSMP(1)):"",1:$G(ADDR(2))),?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: NORENW+10
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4)))
  • Line Location: NORENW+12
Function Call: WRITE
  • Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: NORENW+12
Info |  Source |  Entry Points |  Interaction Calls