Routine: GMRAPEO0

Call Graph

Package	Total	Call Graph
Adverse Reaction Tracking	7	EVENT^GMRAPED0 COMCHECK^GMRAPEH0 ENDING^GMRAPEM1 EN1^GMRAPER2 EN2^GMRAROBS EN2^GMRAU85 UNLOCK^GMRAUTL
VA Fileman	2	YN^DICN IX1^DIK

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRAPEM4

Name	Comments	DBIA/ICR reference
COMM	; Fill in the comments
EN1	; Entry to edit Observed A/AR Data
EXIT	; Exit line
OBS	;
ORR	; Observed the reserved reaction reports

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,$C(7),"OBSERVATION DATE IS A REQUIRED ENTRY!!" Line Location: OBS+2
Function Call: WRITE	Prompt: !?4,$C(7),"OBSERVATION DATE IS A REQUIRED ENTRY!!" Line Location: OBS+3
Function Call: WRITE	Prompt: !,"Complete the observed reaction report" Line Location: ORR+3
Function Call: WRITE	Prompt: !,"ENTER YES TO EDIT REACTION DATA OR NO TO SKIP REACTION DATA",$C(7) Condition for execution: %=0 Line Location: ORR+3

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

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	OBS+5, OBS+8, OBS+9, OBS+10
^GMR(120.85 - [#120.85]	EN1+5, EN1+6, OBS+2, OBS+4, OBS+7!, OBS+8, OBS+10

Name	Field # of Occurrence
%	ORR+3*, ORR+4, ORR+5~, ORR+8
DA	OBS+11*, EXIT+2!, COMM+6!, COMM+7!
DA(1	OBS+11*
>> DIC("B"	EN1+6*
DIE	COMM+6!, COMM+7!
DIK	OBS+11*, EXIT+2!
DR	EXIT+2!, COMM+6!, COMM+7!
DTOUT	COMM+2, COMM+6!
DUOUT	COMM+6!
DUZ	OBS+10
GMRADATE	EXIT+2!
GMRADT	EXIT+2!
>> GMRALAGO	OBS+1*
GMRAN85	EN1+4~, EN1+5*
>> GMRAOUT	OBS+1, OBS+4, OBS+5, OBS+14, OBS+17, OBS+18, OBS+21, OBS+22, ORR+8, COMM+1 , COMM+2, COMM+3, COMM+4, COMM+5*
>> GMRAPA	EN1+5, OBS+2, OBS+4, OBS+5, OBS+8, OBS+9, OBS+10
GMRAPA1	OBS+1, OBS+3, OBS+4, OBS+7, OBS+8, OBS+10, OBS+11, EXIT+1, EXIT+2!, ORR+1
GMRAR10	EXIT+2!
GMRARAD	EXIT+2!
GMRARDL	EXIT+2!
GMRAREC	EXIT+2!
>> GMRAREQ	COMM+4
GMRARODT	EXIT+2!
GMRAROT	EXIT+2!
GMRARPR	EXIT+2!
>> GMRAUSER	ORR+2
>> GMRAVCM	COMM+1*
GMRAX	EN1+5, EN1+6, OBS+6~, OBS+8, OBS+9, OBS+10, OBS+11, EXIT+2!
GMRAY	EXIT+2!
GMRAZN	EXIT+2!
U	EN1+6, OBS+2, OBS+4, OBS+8, OBS+10
X	EN1+5*, EN1+6!