Routine: GMRAPHR0

Information

GMRAPHR0 ;HIRMFO/WAA-THIS PROGRAM WILL DISPLAY ALL PHARM FOR A PATIENT ;4/12/17 14:44

Package	Total	Call Graph
VA FileMan	3	^%DT C^%DTC D^DIQ
Kernel	2	$$FMTE^XLFDT $$VERSION^XPDUTL
Adverse Reaction Tracking	1	$$DATE^GMRAUTL1
Inpatient Medications	1	ENHS^PSJEEU0
Outpatient Pharmacy	1	^PSOHCSUM

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRAPHR1 GMRAPHR2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;DISPLAY ALL THE DRUGS FOR THIS PATIENT
DISP2
DT	;SELECT LOOKUP DATE RANGE
DTFOR	;SET THE FORMAT OF DATE TIME TO MM/DD/YY@TIME

External References

Name	Field # of Occurrence
^%DT	DT+5, DT+6
C^%DTC	DT+4, DT+6
D^DIQ	DT+4, DT+5, DT+6, DT+7
$$DATE^GMRAUTL1	DTFOR+2
ENHS^PSJEEU0	DISP+10
^PSOHCSUM	DISP+9
$$FMTE^XLFDT	DISP2+12, DISP2+17, DISP2+18, DISP2+23, DISP2+24
$$VERSION^XPDUTL	DISP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"PHARMACY:",?60,"Start/Last",! Line Location: DISP2+0
Function Call: WRITE	Prompt: ?3,"Drug",?61,"Fill DT",?71,"Stop Date" Line Location: DISP2+1
Function Call: WRITE	Prompt: !,?5,"THERE AREN'T ANY RXS ON FILE FOR THIS PATIENT" Line Location: DISP2+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: DISP2+5
Function Call: WRITE	Prompt: !,?4,$C(7),"PRESS RETURN TO CONTINUE OR ""^"" TO EXIT THIS LISTING" Line Location: DISP2+5
Function Call: WRITE	Prompt: ! Line Location: DT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DISP+9, DISP+10
^UTILITY("PSG"	DISP+1!, DISP+20, DISP+21, DISP2+32!
^UTILITY("PSIV"	DISP+1!, DISP+27, DISP+28, DISP+30, DISP+31, DISP2+32!

Label References

Name	Line Occurrences
DT	DISP+7

Naked Globals

Name	Field # of Occurrence
^(	DISP+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT+5!, DT+6!
%DT("A"	DT+5, DT+6
%DT("B"	DT+5, DT+6
%DT(0	DT+6*
>> DFN	DISP+5*
DTIME	DISP2+5
>> GMRABGDT	DISP+9, DISP+10, DISP+22, DISP+29, DT+2, DT+4, DT+5, DT+6
>> GMRACH	DISP+4, DISP2+3, DISP2+9, DISP2+11, DISP2+16, DISP2+22
>> GMRACT	DISP+4, DISP+11, DISP+17, DISP+24, DISP+33*
>> GMRADATA	DISP+8, DISP+9, DISP+10*
>> GMRADRG	DISP+16, DISP+17, DISP+23, DISP+24, DISP+31, DISP+32, DISP+33, DISP2+9*, DISP2+10, DISP2+11 , DISP2+12, DISP2+13, DISP2+15, DISP2+16, DISP2+17, DISP2+18, DISP2+19, DISP2+21, DISP2+22, DISP2+23 , DISP2+24, DISP2+25
>> GMRADRG(1	DISP+30*, DISP+32
>> GMRADT	DT+4, DT+6
>> GMRAENDT	DISP+15, DISP+22, DISP+29, DT+2, DT+6, DT+7
GMRAFNVA	DISP+6~, DISP+13, DISP2+28
>> GMRALOOK	DISP+8*, DT+1
>> GMRAOUT	DISP+7, DISP2+3, DISP2+4, DISP2+5, DISP2+6, DT+5, DT+6*
>> GMRAPA(0	DISP+5
>> GMRAPHRG	DISP+2*, DISP+3, DISP+12, DISP+14, DISP+16, DISP2+32
>> GMRAPHRV	DISP+2*
GMRARRAY	DISP+3!
GMRARRAY("PH"	DISP+17, DISP+24, DISP+33*, DISP2+2, DISP2+3, DISP2+9
GMRATEMP	DTFOR+2, DTFOR+3, DTFOR+4*, DTFOR+5!
>> GMRAX	DISP+12, DISP+20, DISP+27*
>> GMRAY	DISP+12, DISP+13, DISP+20, DISP+21, DISP+27*, DISP+28, DISP+30, DISP+31
>> GMRAZ	DISP+14, DISP+15, DISP+16, DISP+21, DISP+22, DISP+23, DISP+28, DISP+29, DISP+30, DISP+31
IOF	DISP2, DISP2+7
IOSL	DISP2+4
>> PSJEDT	DISP+10*
>> PSOBEGIN	DISP+9*
U	DISP+9, DISP+15, DISP+16, DISP+22, DISP+23, DISP+29, DISP+31, DISP+32, DISP2+10, DISP2+11 , DISP2+12, DISP2+13, DISP2+15, DISP2+16, DISP2+17, DISP2+18, DISP2+19, DISP2+21, DISP2+22, DISP2+23 , DISP2+24, DISP2+25, DT+5, DT+7
>> X	DISP+9, DISP+10, DISP2+5*, DT+4, DT+5, DT+6
>> X1	DT+4, DT+6
>> X2	DT+4, DT+6
>> Y	DT+4, DT+5, DT+6, DT+7, DTFOR+1, DTFOR+2, DTFOR+4, DTFOR+5*

Customize PDF page

Package: Adverse Reaction Tracking