Routine: APSPMED2

Package	Total	Call Graph
Adverse Reaction Tracking	1	^GMRADPT
Registration	1	(6,ELIG,PID)^VADPT
VA Fileman	1	NOW^%DTC

Package

Total

Call Graph

Adverse Reaction Tracking

^GMRADPT

Registration

(6,ELIG,PID)^VADPT

VA Fileman

NOW^%DTC

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPMED APSPMED1

Package

Total

Caller Graph

IHS Changes To Pharmacy

APSPMED APSPMED1

Name	Field # of Occurrence
NOW^%DTC	HDR+1
^GMRADPT	GMRA
6^VADPT	GET
ELIG^VADPT	RE+1
PID^VADPT	GET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: GET+1
Function Call: WRITE	Prompt: "Medication Profile",?35,Y,?65,"(Page "_APSPAGE_")" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Chart #: ",APSPCN Line Location: HDR+2
Function Call: WRITE	Prompt: !,VADM(1),?40,"ID#: "_VA("PID") Line Location: HDR+3
Function Call: WRITE	Prompt: !?5,"(TEMP ADDRESS from "_$P(VAPA(9),"^",2)_" till "_$P(VAPA(10),"^",2)_")" Line Location: HDR+4
Function Call: WRITE	Prompt: !,VAPA(1),?40,"DOB: ",$S(+VADM(3):$P(VADM(3),"^",2),1:"UNKNOWN") Line Location: HDR+5
Function Call: WRITE	Prompt: !,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HDR+5
Function Call: WRITE	Prompt: !,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HDR+5
Function Call: WRITE	Prompt: !,VAPA(4),?40,"PHONE: "_VAPA(8),!,$P(VAPA(5),"^",2)_" "_VAPA(6),?40,"ELIG: "_$P(VAEL(1),"^",2) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"CANNOT USE SAFETY CAPS." Condition for execution: $P(^(0),"^",2) Line Location: HDR+7
Function Call: WRITE	Prompt: ?40,"DIALYSIS PATIENT." Line Location: HDR+7
Function Call: WRITE	Prompt: !!?5,"Pharmacy narrative: " Line Location: HDR+8
Function Call: WRITE	Prompt: $P(X," ",I)," " Line Location: HDR+8
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2) Line Location: RE+1
Function Call: WRITE	Prompt: !,"DISABILITIES: ",! Line Location: MA+0
Function Call: WRITE	Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), " Line Location: MA+1
Function Call: WRITE	Prompt: ", " Condition for execution: I1 Line Location: GMRA+0
Function Call: WRITE	Prompt: !?5 Condition for execution: $X+$L(AL)>75 Line Location: GMRA+0
Function Call: WRITE	Prompt: AL Line Location: GMRA+0

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDR+2
^DD("DD"	HDR+1
^DIC(31 - [#31]	MA+1
^DPT - [#2]	RE, MA+1
^PS(55 - [#55]	HDR+7, HDR+8

Name	Line Occurrences
GMRA	MA+2
MA	RE

Name	Field # of Occurrence
^(	RE, MA+1
^(0	HDR+7, MA+1
^(1	HDR+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AL	Q!, GMRA*
>> APSPAGE	HDR+1*
>> APSPCN	HDR+2*
>> DA	GET
>> DFN	GET*, HDR+2, HDR+7, HDR+8, RE, MA+1
DUZ(2	HDR+2
GMRA	GMRA+1!
GMRAL	GMRA+1!
GMRAL(	GMRA
I	HDR+8, MA+1, Q!, GMRA*
I1	MA+1, Q!, GMRA
IO	GET+1
IOF	GET+1
PSCNT	MA+1*, Q!
PSDIS	MA+1*, Q!
PSLC	RE, RE+1, MA*, Q!
>> PSOPTPST	MA+2
SC	MA!, Q!
U	HDR+2
>> VA("PID"	HDR+3
>> VADM(1	HDR+3
>> VADM(3	HDR+5
>> VAEL(1	HDR+6, RE+1
>> VAPA(1	HDR+5
>> VAPA(10	HDR+4
>> VAPA(2	HDR+5
>> VAPA(3	HDR+5
>> VAPA(4	HDR+6
>> VAPA(5	HDR+6
>> VAPA(6	HDR+6
>> VAPA(8	HDR+6
>> VAPA(9	HDR+4
VAROOT	Q!
X	HDR+1, HDR+8*, Q!
Y	HDR+1*, Q!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPMED2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
MA
HDR	;EP
GET
GMRA
Q
RE