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: PSXLBLNR

Package: CMOP

Routine: PSXLBLNR


Information

PSXLBLNR ;BIR/HTW,BAB-CMOP Labels-Non Refillable ;[ 12/18/97 12:48 PM ]

Source Information

Source file <PSXLBLNR.m>

Entry Points

Name Comments DBIA/ICR reference
TOP
NOREFILL ;NO REFILLS REMAIN PRINT SECTION
BAR
NORENEW

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?54,COPAY," Days Supply: ",$G(TAYS),?102,"Mfg ________ Lot# ________"
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: !,SADD1,?102,"Tech__________RPh__________"
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !,SCITY,", ",SSTATE," ",SZIP
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: ?54,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: "FORWARDING SERVICE REQUESTED"
  • Line Location: TOP+5
Function Call: WRITE
  • Prompt: ?54,"* NO REFILLS REMAINING ** PHYSICIAN USE ONLY *"
  • Line Location: NOREFILL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREFILL+2
Function Call: WRITE
  • Prompt: ?21,"CERTIFIED MAIL"
  • Line Location: NOREFILL+2
Function Call: WRITE
  • Prompt: ?54,"*Signature:____________________________SC NSC*"
  • Line Location: NOREFILL+3
Function Call: WRITE
  • Prompt: !,?54,"*Print Name:_________________________________*"
  • Line Location: NOREFILL+4
Function Call: WRITE
  • Prompt: !,"***CRITICAL MEDICAL SHIPMENT***"
  • Line Location: NOREFILL+5
Function Call: WRITE
  • Prompt: ?54,"*DEA or VA#_________________Date_____________*"
  • Line Location: NOREFILL+6
Function Call: WRITE
  • Prompt: ?102,"Routing: MAIL"
  • Line Location: NOREFILL+7
Function Call: WRITE
  • Prompt: !,?54,"*Refills: 0 1 2 3 4 5 7 8 9 10 11 *"
  • Line Location: NOREFILL+8
Function Call: WRITE
  • Prompt: ?99,"*",?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"**NON-SAFETY**",1:"SAFETY")
  • Line Location: NOREFILL+9
Function Call: WRITE
  • Prompt: !,?54,"***** To be filled in VA Pharmacies only *****"
  • Line Location: NOREFILL+10
Function Call: WRITE
  • Prompt: ?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT)
  • Line Location: NOREFILL+11
Function Call: WRITE
  • Prompt: !,PNAME,?54,$G(PADD1),?102,"Last fill: ",$G(REFLST)
  • Line Location: NOREFILL+12
Function Call: WRITE
  • Prompt: !,$G(PADD1),?54,$G(PADD2),?102,"Pat. St ",PSTAT," Clinic: ",CLINIC
  • Line Location: NOREFILL+13
Function Call: WRITE
  • Prompt: !,$G(PADD3),?54,$G(PADD4)
  • Line Location: NOREFILL+15
Function Call: WRITE
  • Prompt: !,$G(PADD4),?54,"*Indicate address change on back of this form"
  • Line Location: NOREFILL+16
Function Call: WRITE
  • Prompt: !,?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__")
  • Line Location: NOREFILL+17
Function Call: WRITE
  • Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: BAR+0
Function Call: WRITE
  • Prompt: ?54,"*** This prescription CANNOT be renewed ***"
  • Line Location: NORENEW+0
Function Call: WRITE
  • Prompt: !?21,$S($G(REGMAIL)=1:"CERTIFIED MAIL",1:""),?54,"*",?96,"*"
  • Line Location: NORENEW+1
Function Call: WRITE
  • Prompt: !,?54,"* A NEW PRESCRIPTION IS REQUIRED *"
  • Line Location: NORENEW+2
Function Call: WRITE
  • Prompt: !,"***CRITICAL MEDICAL SHIPMENT***",?54,"*",?96,"*"
  • Line Location: NORENEW+3
Function Call: WRITE
  • Prompt: !,?54,"***** Please contact your physician *******"
  • Line Location: NORENEW+4
Function Call: WRITE
  • Prompt: !,?54,$G(PADD1),?102,"Routing: MAIL"
  • Line Location: NORENEW+5
Function Call: WRITE
  • Prompt: !,?54,PADD2,?102,"Days Supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"**NON-SFTY**",1:"SAFETY")
  • Line Location: NORENEW+6
Function Call: WRITE
  • Prompt: !,PNAME,?54,$G(PADD3),?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT)
  • Line Location: NORENEW+7
Function Call: WRITE
  • Prompt: !,PADD1,?54,$G(PADD4),?102,"Last Fill: ",$G(REFLST)
  • Line Location: NORENEW+8
Function Call: WRITE
  • Prompt: !,PADD2,?54,"*Indicate address change on back of this form",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC
  • Line Location: NORENEW+9
Function Call: WRITE
  • Prompt: !,$G(PADD3),?54,"[ ] Permanent [ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__")
  • Line Location: NORENEW+10
Function Call: WRITE
  • Prompt: !,$G(PADD4)
  • Line Location: NORENEW+12
Function Call: WRITE
  • Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: NORENEW+13
Info |  Source |  Entry Points |  Interaction Calls