Routine: GMRAPHR2

Package	Total	Call Graph
VA Fileman	5	^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
Adverse Reaction Tracking	3	^GMRADSP7 EN1^GMRAPEL0 DISP^GMRAPHR0

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRAFDA GMRAPHR1 GMRAROBS

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;EXIT LINE
VALST(LST,SUB)	; GIVEN LST, THIS FUNCTION RETURNS 1 IF LIST VALID, ELSE 0
ADDED
ADD2	;
LST
EDIT	;EDIT A DRUG
ADD	;SELECTION OF A DRUG OR ENTER A NEW DRUG
EN1	;
EDITLST	; DISPLAY TO EDIT FIELD
QE
SELECT
DEL	;
EEDT
DQ

External References

Name	Field # of Occurrence
^DIC	EEDT+1, ADD2+4, DEL+3
FILE^DICN	ADDED+14
YN^DICN	ADDED+10
^DIE	EEDT+4, ADDED+27, ADD2+9
^DIK	DEL+6
^DIR	SELECT+4
^GMRADSP7	EN1+5
EN1^GMRAPEL0	EEDT+6, ADDED+28, ADD2+12
DISP^GMRAPHR0	ADD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+6
Function Call: WRITE	Prompt: ! Line Location: SELECT+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+8
Function Call: WRITE	Prompt: !,?3,"YOU CANNOT EDIT WHEN THERE IS NO DATA ON FILE.",$C(7) Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"Select the DRUG RX you want to edit:",! Line Location: EDITLST+1
Function Call: WRITE	Prompt: !,"Enter the number(s) of the RX/DRUG to ADD or ""N"" for NEW: " Line Location: ADDED+0
Function Call: READ	Timeout: DTIME Variable: GMRAX Line Location: ADDED+1
Function Call: WRITE	Prompt: !,"ENTER THE NUMBER(S) OF THE ENTRY YOU WANT OR ""N"" FOR A NEW DRUG" Line Location: ADDED+2
Function Call: WRITE	Prompt: !,$C(7),"INVALID SELECTION PLEASE SELECT ONE OF THE DRUGS LISTED OR ""N"" FOR A NEW DRUG" Line Location: ADDED+5
Function Call: WRITE	Prompt: !,"Do You still want to add this one" Line Location: ADDED+10
Function Call: WRITE	Prompt: !,"ENTER YES TO ADD THE DRUG or NO TO SELECT ANOTHER" Line Location: ADDED+10
Function Call: WRITE	Prompt: !,"THERE ARE NO DRUG SELECTED FOR THIS PATIENT" Line Location: DEL+1
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO SUSPECTED AGENTS ON FILE" Line Location: LST+0
Function Call: WRITE	Prompt: !,"This patient has the following Drugs selected: ",! Line Location: LST+1
Function Call: WRITE	Prompt: !,?10,$P(^(GMRAX,0),U) Line Location: LST+2
Routine Call	DIE Line Location: EEDT+4 ADDED+27 ADD2+9
Routine Call	DIC Line Location: EEDT+1 ADD2+4 DEL+3
Routine Call	DIR Line Location: SELECT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.85 - [#120.85]	EN1+4, EDIT+1, ADDED+8, ADDED+13, ADD2+2, ADD2+3, ADD2+5, ADD2+11, DEL+1, LST , LST+2
^UTILITY("PSG"	EN1+3!, EXIT+1!
^UTILITY("PSIV"	EN1+3!, EXIT+1!

Label References

Name	Line Occurrences
$$VALST	ADDED+5
ADD	SELECT+6, ADD+2, ADDED+2, ADDED+4, ADDED+5
ADD2	ADD+2, ADDED+4
ADDED	ADDED+2
DEL	SELECT+7
DQ	DEL+4
EDIT	SELECT+8
EXIT	EN1+5, SELECT+4, SELECT+6, SELECT+7, SELECT+8
LST	SELECT, EDITLST+2
QE	EEDT+2, EEDT+5
SELECT	SELECT+6, SELECT+7, SELECT+8, SELECT+9

Naked Globals

Name	Field # of Occurrence
^(	LST+2
^(0	ADDED+13, ADD2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADD+2!, ADDED+8!, ADDED+10*
A	VALST+1~, VALST+6*
DA	EN1+2~, EEDT!, EEDT+4, EEDT+5, EEDT+6!, QE!, ADDED+17, ADDED+27!, ADD2+7!, ADD2+8* , ADD2+11, ADD2+12, ADD2+13!, DEL+2!, DEL+5!, DEL+6*, DQ!
DA(1	EEDT+1, EEDT+4, ADDED+14, ADD2+4, ADD2+9, DEL+3, DEL+6*
DD	ADDED+12!, ADD2+1!
DIC	EEDT!, EEDT+1!, EEDT+6!, QE!, ADDED+14, ADDED+15!, ADDED+17!, ADD2+4, ADD2+7!, ADD2+8! , DEL+2!, DEL+3, DEL+5!, DQ!
DIC(0	EEDT+1, ADDED+14, ADD2+4, DEL+3
DIE	EN1+2~, EEDT!, EEDT+4, EEDT+6!, QE!, ADDED+17, ADDED+27!, ADD2+9*, ADD2+13!, DEL+2!
DIK	DEL+6*, DQ!
DIR	SELECT+2!, SELECT+4!, EXIT+1!
DIR("?"	SELECT+3*
DIR("A"	SELECT+2*
DIR(0	SELECT+2*
DLAYGO	EEDT!, EEDT+6!, QE!, ADDED+14, ADD2+4, ADD2+9*, ADD2+13!, DEL+2!, DQ!
DO	EEDT!, ADDED+12!, ADD2+1!, DEL+2!, DEL+5!, DQ!
DR	EEDT!, EEDT+4, EEDT+6!, QE!, ADDED+18, ADDED+20, ADDED+21, ADDED+24, ADDED+25, ADDED+27! , ADD2+9*, ADD2+13!, DEL+2!
DTIME	ADDED+1
DTOUT	EEDT+2, EEDT+5, ADDED+15!, ADDED+28, ADD2+6, ADD2+10, DEL+4
DUOUT	EEDT+2, EEDT+5, ADDED+15!, ADDED+28, ADD2+6, DEL+4
GMRABGDT	EXIT+1!
>> GMRADT	EN1+4*
GMRAENDT	EXIT+1!
GMRAGHC	EN1+2~
GMRALOOK	SELECT+6*!
GMRALST	ADDED+6*, VALST+2!, VALST+8!
GMRALST(	ADDED+6, VALST+6*
>> GMRAOUT	EN1+1, SELECT+4, SELECT+6, SELECT+7, SELECT+8, EEDT+2, ADD+1, ADD+2, ADDED+1, ADDED+6 , ADDED+8, ADDED+10, ADDED+15, ADD2+6, ADD2+7, ADD2+10, ADD2+12, DEL+4
>> GMRAPA	EN1+5
>> GMRAPA1	EN1+4, EDIT+1, EEDT+1, EEDT+4, ADDED+8, ADDED+13, ADDED+14, ADD2+2, ADD2+3, ADD2+4 , ADD2+5, ADD2+9, ADD2+11, DEL+1, DEL+3, DEL+6, LST, LST+2
GMRARRAY	EN1+3!, ADD+2, EXIT+1!
GMRARRAY(	VALST+6
GMRARRAY("PH"	ADDED+7, ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25
GMRASEL	SELECT+5*, SELECT+6, SELECT+7, SELECT+8, EXIT+1!
GMRASUS	EEDT+3, QE!, ADDED+27, ADDED+29!, ADD2+12*, ADD2+13!
GMRAX	EN1+2~, EEDT+6!, QE!, ADDED+1, ADDED+2, ADDED+3, ADDED+4, ADDED+5, ADDED+6, ADDED+7 , ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25, ADDED+27!, LST+2
>> GMRAXX	LST+2*
GMRAXXX	EN1+2~
IOF	EN1+2
LST	VALST~, VALST+3
SUB	VALST~, VALST+6
U	EN1+4, ADDED+7, ADDED+18, ADDED+19, ADDED+20, ADDED+21, ADDED+23, ADDED+24, ADDED+25, ADD2+11 , LST+2
X	ADD+2, ADDED+4, ADDED+7, ADDED+8, ADDED+9, ADDED+28~, ADD2+11, ADD2+12~, VALST+1~, VALST+3*
Y	SELECT+4, SELECT+5, EEDT+2, EEDT+3, EEDT+4, EEDT+5, ADD+2, ADDED+16, ADDED+17, ADD2+7 , ADD2+8, ADD2+10, DEL+4, DEL+6, DQ!, EXIT+1!, VALST+1~, VALST+3, VALST+4, VALST+5 , VALST+6
Z	VALST+1~, VALST+3, VALST+4, VALST+6*, VALST+8, VALST+9

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPHR2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: