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

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Outpatient Pharmacy 3 $$PRINTMG^PSOFDAMG  $$MGONFILE^PSOFDAUT  (PRINT,WARN)^PSOLBL2  
Adverse Reaction Tracking 1 ^GMRADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLBLN  

Entry Points

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

External References

Name Field # of Occurrence
^GMRADPT ALLWARN+14
$$PRINTMG^PSOFDAMG START+13
$$MGONFILE^PSOFDAUT START+10
PRINT^PSOLBL2 PRT
WARN^PSOLBL2 ALLWARN+1, ALLWARN+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(54 - [#54] ALLWARN+4, ALLWARN+7, ALLWARN+8
^TMP($J ALLWARN+2!, ALLWARN+8*, ALLWARN+11*, ALLWARN+12*, ALLWARN+13!, ALLWARN+14*, ALLWARN+15*, ALLWARN+16*, ALLWARN+17*, ALLWARN+19*
, ALLWARN+20*, ALLWARN+21*, ALLWARN+22*, ALLWARN+23*, ALLWARN+25*, ALLWARN+26*, ALLWARN+27*, ALLWARN+28*, ALLWARN+29*, ALLWARN+30*

Label References

Name Line Occurrences
NORENW START+1

Naked Globals

Name Field # of Occurrence
^(2 ALLWARN+11*, ALLWARN+15*
^(3 ALLWARN+11*, ALLWARN+15*
^(4 ALLWARN+11*, ALLWARN+15*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDR(2 START+19, START+20, NORENW+7, NORENW+10
>> ADDR(3 START+20, START+21, NORENW+8, NORENW+11
>> ADDR(4 START+21, START+22, NORENW+9, NORENW+12
>> ALCNT ALLWARN+16*, ALLWARN+17*, ALLWARN+19*, ALLWARN+20*, ALLWARN+21*, ALLWARN+22*, ALLWARN+23*, ALLWARN+25*, ALLWARN+26*, ALLWARN+27*
, ALLWARN+28*, ALLWARN+29*, ALLWARN+30*
>> COPAYVAR START
>> DAYS START, START+17, NORENW+7
>> DRUG ALLWARN+11
>> EEE ALLWARN+16*, ALLWARN+17, ALLWARN+18, ALLWARN+22*, ALLWARN+23, ALLWARN+24
>> EXPDT START+18, NORENW+8
FDAMG START+13~*
>> GMRA ALLWARN+14*
>> GMRAL ALLWARN+14, ALLWARN+19, ALLWARN+25
>> GMRAL( ALLWARN+14
>> ISD START+18, NORENW+8
>> JJJ ALLWARN+6*, ALLWARN+7*, ALLWARN+8
>> LOT START
>> MFG START
>> MW START+15, START+16, NORENW+5, NORENW+7
>> PATST START+19, NORENW+10
>> PI ALLWARN+1
>> PNM START+18, NORENW+8, ALLWARN+11, ALLWARN+15
>> PPL ALLWARN+1
>> PRTFL START+1
>> PS START+3, START+4, NORENW+1, NORENW+2
>> PS55 START+16, NORENW+6
>> PSCAP START+17, NORENW+7
>> PSCLN START+19, NORENW+10
>> PSMP(1 START+19, START+20, START+21, START+22, NORENW+9, NORENW+10, NORENW+11, NORENW+12
>> PSMP(2 START+20, NORENW+10
>> PSMP(3 START+21, NORENW+11
>> PSMP(4 START+22, NORENW+12
>> PSOBAR0 START+5, START+23, NORENW+3, NORENW+12
>> PSOBAR1 START+5, START+23, NORENW+3, NORENW+12
>> PSOBARS START+5, START+23, NORENW+3, NORENW+12
>> PSOBLALL ALLWARN+1
>> PSOFDAPT START+13
>> PSOHZIP START+4, NORENW+2
>> PSOINST START+5, START+23, NORENW+3, NORENW+12
>> PSOLASTF START+18, NORENW+9
>> PSOLG ALLWARN+16*, ALLWARN+22*, ALLWARN+28*, ALLWARN+30*
>> PSOLGA ALLWARN+16*, ALLWARN+22*, ALLWARN+28*, ALLWARN+30*
PSONKA ALLWARN+2!
PSONULL ALLWARN+2!
>> PSOPAR START+5, NORENW+3
>> PSORY ALLWARN+14*
>> PSOWARN ALLWARN+4*, ALLWARN+7, ALLWARN+8
>> REPRINT START+12
>> RRR ALLWARN+12*
>> RX START+5, START+10, START+12, START+13, START+23, NORENW+3, NORENW+12
>> RXN ALLWARN+11
>> RXRP( START+12
>> SSNP ALLWARN+15
>> STATE START+4, NORENW+2
>> ULN START+16
>> VAPA(1 START+18, START+19, NORENW+7, NORENW+9
>> VAPA(10 START+22, NORENW+11
>> WARN START+20, NORENW+11, ALLWARN+4
>> WCNT ALLWARN+12*
>> WWW ALLWARN+4*, ALLWARN+12*
>> X START+5*, START+23*, NORENW+3*, NORENW+12*
>> X1 START+5*, START+23*, NORENW+3*, NORENW+12*
>> X2 START+5*, START+23*, NORENW+3*, NORENW+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All