Routine: GMRAPEH0

Information

GMRAPEH0 ;HIRMFO/WAA,RM-EDIT A/AR DATA FOR A HISTORICAL ALLERGY ;21-Jan-2011 15:17;DU

Source file <GMRAPEH0.m>

Package	Total	Call Graph
Adverse Reaction Tracking	3	EVENT^GMRAPED0 ENDING^GMRAPEM1 EN1^GMRAPER2
VA Fileman	1	^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	8	GMRAMCB GMRAOR8 GMRAPAT GMRAPED3 GMRAPEM0 GMRAPEM4 GMRAPEO0 GMRASIGN

Name	Comments	DBIA/ICR reference
EXIT	;
EN1	; ENTRY FROM MAIN A/AR EDIT TO EDIT HISTORICAL A/AR
COM
COMCHECK	; CHECK TO SEE IF COMMENTS ARE REQUIRED
HANGT	;Hang for TIMEOUT or press return

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"COMMENTS ARE REQUIRED." Line Location: COMCHECK+3
Routine Call	DIR Line Location: HANGT+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	COMCHECK+2
^GMRD(120.84 - [#120.84]	COMCHECK+1

Name	Field # of Occurrence
DA	COM+5!, EXIT+1!
DIE	COM+5!
DIK	EXIT+1!
DIR	HANGT+1~
DIR("A"	HANGT+2*
DIR(0	HANGT+2*
DIRUT	COMCHECK+4, COMCHECK+5!
DR	COM+5!, EXIT+1!
DTOUT	COM+1, COM+5!
DUOUT	COM+5!
GMRADATE	EXIT+1!
GMRADT	EXIT+1!
>> GMRAOUT	EN1+1, EN1+4, EN1+7, COM+1, COM+2, COM+3, COM+4, COMCHECK+4*
>> GMRAPA	EN1+1, COMCHECK+2
GMRAPA1	EXIT+1!
GMRAR10	EXIT+1!
GMRARAD	EXIT+1!
GMRARDL	EXIT+1!
GMRAREC	EXIT+1!
>> GMRAREQ	COM+3, COMCHECK+1, COMCHECK+2, COMCHECK+3
GMRARODT	EXIT+1!
GMRAROT	EXIT+1!
GMRARPR	EXIT+1!
>> GMRASITE	COMCHECK+1
>> GMRAVCM	COM*
GMRAX	EXIT+1!
GMRAY	EXIT+1!
GMRAZN	EXIT+1!
>> X	COMCHECK+2*
>> Y	COM+1