Routine: GMRAPHR1

Information

GMRAPHR1 ;HIRMFO/WAA,FT-ADD/DELETE/EDIT CONCOMITANT DRUGS ;4/6/05 14:18

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
Adverse Reaction Tracking	3	^GMRADSP7 DISP^GMRAPHR0 $$VALST^GMRAPHR2

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	GMRAFDA GMRAROBS

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;
SELECT
EDIT	;EDIT A DRUG
EDITLST	; DISPLAY TO EDIT FIELD
EEDT
QE
ADD	;SELECT ON OF THE DRUG OR FREE TEXT
ADDED
ADD2	;
DEL	;
DQ
LST
EXIT	;EXIT LINE

External References

Name	Field # of Occurrence
^DIC	EEDT+1, DEL+3
FILE^DICN	ADDED+14
YN^DICN	ADDED+10
^DIE	EEDT+3, ADDED+25, ADD2+2
^DIK	DEL+6
^DIR	SELECT+5
^GMRADSP7	EN1+5
DISP^GMRAPHR0	ADD+1
$$VALST^GMRAPHR2	ADDED+5

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+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+8
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
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 DRUG to ADD or ""N"" for NEW: " Line Location: ADDED+0
Function Call: READ	Variable: GMRAX Timeout: DTIME 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 DRUGS SELECTED FOR THIS PATIENT." Line Location: DEL+1
Function Call: WRITE	Prompt: "DELETED.." Line Location: DEL+6
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO CONCOMITANT DRUGS 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
Function Call: WRITE	Prompt: ! Line Location: LST+3
Routine Call	DIC Line Location: EEDT+1 DEL+3
Routine Call	DIE Line Location: EEDT+3 ADDED+25 ADD2+2
Routine Call	DIR Line Location: SELECT+5

FileNo	Call Tags
^GMR(120.85 - [#120.85]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Adverse Reaction Tracking