Routine: PSODEM

Package	Total	Call Graph
Outpatient Pharmacy	2	DEMOG^PSODEMSB $$CRCL^PSOORUT2
Adverse Reaction Tracking	1	^GMRADPT
General Medical Record - Vitals	1	EN6^GMRVUTL
Pharmacy Data Management	1	$$BSA^PSSDSAPI
Registration	1	(6,ELIG,KVA,PID)^VADPT
VA FileMan	1	^DIR
Womens Health	1	$$GETSTATUS^WVRPCPT

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOORUT2 PSOP PSOPAT PSOPMP1 PSOPTPST PSOREF1 PSORX1 PSORXEDT PSORXVW PSOSD1 PSOSD2 PSOTPRX1
Medicine	1	MCPSOP

Entry Points

Name	Comments	DBIA/ICR reference
GET
RE	;
CRCL
MA
Q
GMRA
WH	; WOMEN'S HEALTH

External References

Name	Field # of Occurrence
^DIR	MA+4, GMRA+3, GMRA+5
^GMRADPT	GMRA
EN6^GMRVUTL	RE+3
DEMOG^PSODEMSB	RE+1
$$CRCL^PSOORUT2	CRCL+1
$$BSA^PSSDSAPI	CRCL
6^VADPT	GET
ELIG^VADPT	CRCL+11
KVA^VADPT	Q
PID^VADPT	GET
$$GETSTATUS^WVRPCPT	WH+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,VADM(1) 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+6
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: RE+6
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: RE+6
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: RE+6
Function Call: WRITE	Prompt: !,$G(ZDSPL),?40," BSA (m2): ",PSOBSA Line Location: CRCL+8
Function Call: WRITE	Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2) Line Location: CRCL+11
Function Call: WRITE	Prompt: ?$X+5,"SC%: "_$P(VAEL(3),"^",2) Condition for execution: +VAEL(3) Line Location: CRCL+11
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
Function Call: WRITE	Prompt: !,"WOMEN'S HEALTH: ",$$GETSTATUS^WVRPCPT(DFN),! Line Location: WH+1
Routine Call	DIR Line Location: MA+4 GMRA+3 GMRA+5

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
GMRA	MA+5
MA	CRCL+10
WH	MA+6

Naked Globals

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

Local Variables

Legend:

>>	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+1, CRCL, CRCL+1, CRCL+10, MA+1, WH+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
>> GMRVSTR	RE+3*
HT	RE+2, RE+4, RE+6!
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+5
PSCNT	MA+2*, MA+3, Q!
PSDIS	MA+2*, MA+3, Q!
PSLC	CRCL+10, CRCL+11, MA*, Q!
PSOBSA	CRCL*, CRCL+8!
>> PSOFROM	GMRA+6
>> PSOPTPST	MA+5
>> PSTYPE	MA+4, Q, GMRA+3, GMRA+5
RSLT	CRCL+1*, CRCL+4, CRCL+5, CRCL+6, CRCL+7, CRCL+8!
SC	MA!, Q!
TY	GMRA+2, GMRA+4, GMRA+8!
U	WH+1
>> VADM(1	GET
>> VADM(3	GET+2
>> VADM(5	WH+1
>> VAEL(1	GET+3, CRCL+11
>> VAEL(3	GET+3, CRCL+11
>> 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+3*, RE+6!
WT	RE+2, RE+4, RE+6!
X	GET+5, RE+2, RE+3, RE+4*, Q!
Y	RE+4*, Q!
ZDSPL	CRCL+4, CRCL+5, CRCL+6, CRCL+7, CRCL+8!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODEM

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: