Routine: PSOLBLS

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

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

Entry Points

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!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBLS

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: