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

Package: Outpatient Pharmacy

Routine: PSOLBLS


Information

PSOLBLS ;BIR/LGH-LABEL FOR SUSPENDED SCRIPTS ;11/17/92 18:18

Source Information

Source file <PSOLBLS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 DD^%DT  C^%DTC  ^DIWP  
Outpatient Pharmacy 2 ^PSOBUILD  $$ZZ^PSOSUTL  
Adverse Reaction Tracking 1 ^GMRADPT  
Registration 1 (6,PID)^VADPT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 3 PSOLBL  PSOLBL2  PSOLBLN  
IHS Changes To Pharmacy 1 APSPLBL2  

Entry Points

Name Comments DBIA/ICR reference
MAILR
AC
ALL ;PRINT ALLERGIES
REXIT
EXIT
PRINT
MAIL
CHECK

External References

Name Field # of Occurrence
DD^%DT AC+15
C^%DTC AC+1
^DIWP MAIL+3, MAILR+1
^GMRADPT ALL+3
^PSOBUILD AC+2
$$ZZ^PSOSUTL AC+16
6^VADPT AC+5
PID^VADPT AC+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,$G(VA("PID")),!,?54,$P(^DPT(DFN,0),"^")
  • Line Location: AC+6
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2)),!,?54,$G(ADDR(3)),!
  • Line Location: AC+8
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2))
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !,?54,$G(ADDR(4))
  • Condition for execution: $G(ADDR(3))'="" !,?54,$G(ADDR(3)) W:$G(ADDR(4))'=""
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !,?54," The following prescriptions will be"
  • Line Location: AC+10
Function Call: WRITE
  • Prompt: !,?54,"mailed to you on or after the date indicated."
  • Line Location: AC+11
Function Call: WRITE
  • Prompt: !!,?54,"Rx# Date"
  • Line Location: AC+12
Function Call: WRITE
  • Prompt: !,?54,"============================================",!
  • Line Location: AC+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AC+17
Function Call: WRITE
  • Prompt: ?54,^(AA,0)
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+0
Function Call: WRITE
  • Prompt: ?54,^(AA,0)
  • Line Location: MAILR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+2
Function Call: WRITE
  • Prompt: "Pharmacy Service (119)",!,$G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+5
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!
  • Line Location: MAILR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: $G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: $G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: $G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: $G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: $P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: $P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+9
Function Call: WRITE
  • Prompt: "Use the label above to mail the computer",!,"copies back to us. Apply enough postage",!,"to your envelope to ensure delivery."
  • Line Location: MAILR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+10
Function Call: WRITE
  • Prompt: "copies back to us. Apply enough postage",!,"to your envelope to ensure delivery."
  • Line Location: MAILR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+11
Function Call: WRITE
  • Prompt: "to your envelope to ensure delivery."
  • Line Location: MAILR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REXIT+0
Function Call: WRITE
  • Prompt: "Use the label above to mail the computer",!,"copies back to us. Apply enough postage",!,"to your envelope to ensure delivery."
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?102,$G(PNM)," ",$G(SSNP),!!
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: ?102,"Verified Allergies",!,?102,"------------------"
  • Line Location: ALL+7
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+9
Function Call: WRITE
  • Prompt: !,?104,$S($G(GMRAL)=0:"NKA",1:"")
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(GMRAL)=0
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !,?102,"Non-Verified Allergies",!,?102,"----------------------"
  • Line Location: ALL+11
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+13
Function Call: WRITE
  • Prompt: !,?104,$S($G(GMRAL)=0:"NKA",1:"")
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(GMRAL)=0
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !,?102,"Verified Adverse Reactions",!,?102,"--------------------------"
  • Line Location: ALL+15
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+16
Function Call: WRITE
  • Prompt: !!,?102,"Non-Verified Adverse Reactions",!,?102,"------------------------------"
  • Line Location: ALL+17
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ALL+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] MAIL+1
^DPT - [#2] AC+6
^PS(52.5 - [#52.5] AC+15
^PS(59 - [#59] AC+7, AC+8, MAIL, MAIL+3, MAILR+1
^PSRX - [#52] AC+16
^TMP($J ALL+4!, ALL+5*, ALL+8, ALL+12, ALL+16, ALL+18, ALL+19!
^UTILITY($J MAIL+3!, MAIL+4, MAIL+5, MAILR+1!, MAILR+2, REXIT!

Label References

Name Line Occurrences
CHECK MAIL+5, MAILR, MAILR+2
EXIT AC+4
MAILR MAIL+4
PRINT MAILR+5, MAILR+6, MAILR+7, MAILR+8, MAILR+13
REXIT MAILR+3, MAILR+5, MAILR+6, MAILR+7, MAILR+8, MAILR+9, MAILR+10, MAILR+11

Naked Globals

Name Field # of Occurrence
^( MAIL+3, MAIL+5, MAILR+1, MAILR+2
^(0 MAIL, MAIL+1, MAIL+3, MAILR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA MAIL+5*, MAILR+2*, REXIT!
>> ADDR(2 AC+7*, AC+8, AC+9
>> ADDR(3 AC+7*, AC+8, AC+9
>> ADDR(4 AC+9
ALG ALL+8*, ALL+12*, ALL+16*, ALL+18*, ALL+19!
ALGR ALL+8*, ALL+12*, ALL+16*, ALL+18*, ALL+19!
>> DFN AC, AC+6
DIWF MAIL+3*, REXIT!
DIWL MAIL+3*, MAIL+4, MAIL+5, MAILR+2, REXIT!
DIWR MAIL+3*, REXIT!
DT AC+1
GMRA ALL+3*, ALL+19!
GMRAL ALL+5, ALL+10, ALL+14, ALL+19!
GMRAL( ALL+5
III ALL+8*, ALL+9, ALL+10, ALL+12*, ALL+13, ALL+14, ALL+16*, ALL+19!
IOF AC+17, REXIT, ALL+19
JJJ ALL+19!
>> PI ALL+1
>> PNM ALL+6
PP MAILR+12*, REXIT!
>> PPL ALL+1
>> PS MAIL*, MAIL+1, MAIL+2, MAILR+5, MAILR+6, MAILR+7, MAILR+8, CHECK
PSKNT MAIL+3*, MAIL+5*, MAILR*, MAILR+2*, MAILR+3, MAILR+4, MAILR+5, MAILR+6, MAILR+7, MAILR+8
, MAILR+9, MAILR+10, MAILR+11, MAILR+12*, REXIT!, CHECK, CHECK+1
>> PSOBLALL ALL+1
>> PSODFN AC*
>> PSODTCUT AC+1*
PSOHZIP MAIL+2*, MAILR+5, MAILR+6, MAILR+7, MAILR+8, REXIT!, CHECK
PSOMAILS MAIL*, MAIL+4*, MAILR, REXIT!
PSOMSTOP MAIL*, REXIT!
PSORY ALL+5*, ALL+19!
PSOSD EXIT!
PSOSD( AC+3
>> PSOSITE AC+7, AC+8, MAIL, MAIL+3, MAILR+1
>> PSOSYS MAIL
PSZIP MAIL+2*, REXIT!
RX AC+14*, AC+15, AC+16, EXIT!
>> RXN PSOLBLS+3
RXX AC*, AC+2*, AC+3*, EXIT!
SPDATE AC+15*, AC+16!, EXIT!
SPNUM AC+15*, AC+16!, EXIT!
SPPL AC*, AC+3*, AC+4, AC+14, EXIT!
>> SSNP ALL+6
>> STA AC*, AC+2*, AC+3*
STATE MAIL+1*, MAILR+5, MAILR+6, MAILR+7, MAILR+8, REXIT!, CHECK
>> VA("PID" AC+6
VAADDR1 MAIL+1*, MAILR+5, MAILR+6, REXIT!, CHECK
>> VAPA(1 AC+8, AC+9
>> VAPA(11 AC+7
>> VAPA(2 AC+7
>> VAPA(3 AC+7
>> VAPA(4 AC+7
>> VAPA(5 AC+7
>> VAPA(6 AC+7
VASTREET MAIL+1*, MAILR+5, MAILR+6, MAILR+7, REXIT!, CHECK
>> X AC+1, MAIL+3*, MAILR+1*
>> X1 AC+1*
>> X2 AC+1*
XX AC+14*, EXIT!
Y AC+15*, AC+16!, EXIT!
ZDRUG AC+16!
ZZ MAIL+3*, MAILR+1*, REXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All