Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All
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>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXLBL2  

Entry Points

Name Comments DBIA/ICR reference
NOREFILL ;NO REFILLS REMAIN PRINT SECTION
TOP
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

Label References

Name Line Occurrences
NORENEW TOP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BAR TOP+3, BAR, NORENEW+13
>> CAP NOREFILL+9, NORENEW+6
>> CLINIC NOREFILL+13, NORENEW+9
>> COPAY TOP
>> EXPDT NOREFILL+11, NORENEW+7
>> IOBAROFF TOP+3, BAR, NORENEW+13
>> IOBARON TOP+3, BAR, NORENEW+13
>> ISD NOREFILL+11, NORENEW+7
>> PADD1 NOREFILL+12, NOREFILL+13, NORENEW+5, NORENEW+8
>> PADD2 NOREFILL+13, NOREFILL+14, NORENEW+6, NORENEW+9
>> PADD3 NOREFILL+14, NOREFILL+15, NORENEW+7, NORENEW+10
>> PADD4 NOREFILL+15, NOREFILL+16, NORENEW+8, NORENEW+12
>> PNAME NOREFILL+12, NORENEW+7
>> PSTAT NOREFILL+13, NORENEW+9
>> PSXBAR TOP+3, BAR, NORENEW+13
>> PTEMP NOREFILL+17, NORENEW+10
>> REFLST NOREFILL+12, NORENEW+8
>> REGMAIL NOREFILL+2, NORENEW+1
>> RENW TOP+6
>> SADD1 TOP+1
>> SCITY TOP+2
>> SSTATE TOP+2
>> SZIP TOP+2
>> TAYS TOP, NOREFILL+9, NORENEW+6
>> WARN NOREFILL+14, NORENEW+11
>> X TOP+3*, BAR*, NORENEW+13*
>> X1 TOP+3*, BAR*, NORENEW+13*
>> X2 TOP+3*, BAR*, NORENEW+13*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All