Routine: PSODEM

Package	Total	Call Graph
Adverse Reaction Tracking	1	^GMRADPT
IHS Changes To Pharmacy	1	($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC
Registration	1	(6,ELIG,KVA,PID)^VADPT
VA Fileman	1	^DIR

Package

Total

Call Graph

Adverse Reaction Tracking

^GMRADPT

IHS Changes To Pharmacy

($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC

Registration

(6,ELIG,KVA,PID)^VADPT

VA Fileman

^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	13	PSODSPL PSOORUT2 PSOP PSOPAT PSOPMP1 PSOPTPST PSOREF1 PSORX1 PSORXEDT PSORXVW PSOSD1 PSOSD2 PSOTPRX1
IHS Changes To Pharmacy	2	APSPLIST APSQFAS
Medicine	1	MCPSOP

Package

Total

Caller Graph

Outpatient Pharmacy

PSODSPL PSOORUT2 PSOP PSOPAT PSOPMP1 PSOPTPST PSOREF1 PSORX1
PSORXEDT PSORXVW PSOSD1 PSOSD2 PSOTPRX1

IHS Changes To Pharmacy

APSPLIST APSQFAS

Medicine

MCPSOP

Name	Field # of Occurrence
$$VITALF^APSPFUNC	RE+4, RE+5
$$VITCHT^APSPFUNC	RE+5
$$VITCWT^APSPFUNC	RE+4
^DIR	MA+4, GMRA+3, GMRA+5
^GMRADPT	GMRA
6^VADPT	GET
ELIG^VADPT	RE+9
KVA^VADPT	Q
PID^VADPT	GET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,VADM(1),?40,"ID#: "_VA("PID") Line Location: GET+0
Function Call: WRITE	Prompt: !?5,"(TEMP ADDRESS from "_$P(VAPA(9),"^",2)_" till "_$S($P(VAPA(10),"^",2)]"":$P(VAPA(10),"^",2),1:"(no end date)")_")" Line Location: GET+1
Function Call: WRITE	Prompt: !,VAPA(1),?40,"DOB: ",$S(+VADM(3):$P(VADM(3),"^",2),1:"UNKNOWN") Line Location: GET+2
Function Call: WRITE	Prompt: !,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: GET+2
Function Call: WRITE	Prompt: !,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: GET+2
Function Call: WRITE	Prompt: !,VAPA(4),?40,"PHONE: "_VAPA(8),!,$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),?40,"ELIG: "_$P(VAEL(1),"^",2) Line Location: GET+3
Function Call: WRITE	Prompt: !?40,"SC%: "_$P(VAEL(3),"^",2) Condition for execution: +VAEL(3) Line Location: GET+3
Function Call: WRITE	Prompt: !,"CANNOT USE SAFETY CAPS." Condition for execution: $P(^(0),"^",2) Line Location: GET+4
Function Call: WRITE	Prompt: ?40,"DIALYSIS PATIENT." Line Location: GET+4
Function Call: WRITE	Prompt: !!?5,"Pharmacy Narrative: " Line Location: GET+5
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L($P(X," ",I))+$L(" ")>IOM Line Location: GET+5
Function Call: WRITE	Prompt: $P(X," ",I)," " Line Location: GET+5
Function Call: WRITE	Prompt: !!,"WEIGHT(Kg): " Line Location: RE+7
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: RE+7
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: RE+7
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: RE+7
Function Call: WRITE	Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2) Line Location: RE+9
Function Call: WRITE	Prompt: ?$X+5,"SC%: "_$P(VAEL(3),"^",2) Condition for execution: +VAEL(3) Line Location: RE+9
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+3
Function Call: WRITE	Prompt: @IOF,?13 Line Location: MA+4
Function Call: WRITE	Prompt: !?11 Condition for execution: $X+$L(DR)+$L(", ")>IOM Line Location: GMRA+2
Function Call: WRITE	Prompt: DR_", " Line Location: GMRA+2
Function Call: WRITE	Prompt: ! Line Location: GMRA+3
Function Call: WRITE	Prompt: @IOF,?18 Line Location: GMRA+3
Function Call: WRITE	Prompt: !?19 Condition for execution: $X+$L(DR)+$L(", ")>IOM Line Location: GMRA+4
Function Call: WRITE	Prompt: DR_", " Line Location: GMRA+4
Function Call: WRITE	Prompt: ! Line Location: GMRA+5
Function Call: WRITE	Prompt: @IOF,?18 Line Location: GMRA+5
Function Call: WRITE	Prompt: !!,AD Line Location: GMRA+6
Function Call: WRITE	Prompt: "_" Line Location: GMRA+6
Function Call: WRITE	Prompt: !!,"ALLERGIES: NKA",!!,"ADVERSE REACTIONS:" Line Location: GMRA+7
Function Call: WRITE	Prompt: ! Line Location: GMRA+8
Routine Call	DIR Line Location: MA+4 GMRA+3 GMRA+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	MA+2
^DPT - [#2]	RE+8, MA+1
^PS(55 - [#55]	GET+4, GET+5
^TMP($J	GMRA!, GMRA+1*, GMRA+2, GMRA+4, GMRA+8!

Name	Line Occurrences
GMRA	MA+5
MA	RE+8

Name	Field # of Occurrence
^(0	GET+4, MA+1, MA+2
^(1	GET+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	GMRA+6*, GMRA+8!
ADL	GMRA+6*, GMRA+8!
AL	Q!
D	GMRA+2, GMRA+4, GMRA+8!
>> DA	GET
>> DFN	GET*, GET+4, GET+5, RE+4, RE+5, RE+8, MA+1
DIR	MA+4!, GMRA+3!, GMRA+5!
DIR("A"	MA+4, GMRA+3, GMRA+5*
DIR(0	MA+4, GMRA+3, GMRA+5*
DR	GMRA+1, GMRA+2, GMRA+4*, GMRA+8!
DTOUT	MA+4!, GMRA+3!, GMRA+5!
GMRA	GMRA*, GMRA+8!
GMRAL	GMRA, GMRA+6, GMRA+7, GMRA+8!
GMRAL(	GMRA+1
HT	RE+1, RE+5, RE+7!
I	GET+5, MA+1, Q!, GMRA+2, GMRA+4, GMRA+8!
I1	MA+1*, MA+2, MA+3, Q!
IO	GET
IOF	GET, MA+4, GMRA+3, GMRA+5
IOM	GET+5, MA+3, GMRA+2, GMRA+4, GMRA+6
IOSL	MA+4, GMRA+3, GMRA+5
IOST	MA+4, GMRA+3, GMRA+5
>> POERR	RE+6
PSCNT	MA+2*, MA+3, Q!
PSDIS	MA+2*, MA+3, Q!
PSLC	RE+8, RE+9, MA*, Q!
>> PSOFROM	GMRA+6
>> PSOPTPST	MA+5
>> PSTYPE	MA+4, Q, GMRA+3, GMRA+5
SC	MA!, Q!
TY	GMRA+2, GMRA+4, GMRA+8!
U	RE+4, RE+5
>> VA("PID"	GET
>> VADM(1	GET
>> VADM(3	GET+2
>> VAEL(1	GET+3, RE+9
>> VAEL(3	GET+3, RE+9
>> VAPA(1	GET+2
>> VAPA(10	GET+1
>> VAPA(11	GET+3
>> VAPA(2	GET+2
>> VAPA(3	GET+2
>> VAPA(4	GET+3
>> VAPA(5	GET+3
>> VAPA(6	GET+3
>> VAPA(8	GET+3
>> VAPA(9	GET+1
VAROOT	Q!
VM	RE+7!
WT	RE+1, RE+4, RE+7!
X	GET+5*, Q!
Y	Q!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODEM

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q
RE	; IHS/CIA/PLS - 12/11/03 - Changed to call PCC Vitals
GMRA
MA
GET