Routine: GMRAPEM4

Information

GMRAPEM4 ;HIRMFO/WAA-EDIT OF DATA TO HISTORICAL STORAGE ; 12/24/91

Source file <GMRAPEM4.m>

Package	Total	Call Graph
Adverse Reaction Tracking	5	EN1^GMRAPEH0 EN1^GMRAPEO0 $$VFY^GMRASIGN (SITE,UNLOCK)^GMRAUTL EN1^GMRAVFY
VA Fileman	2	YN^DICN ^DIE

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRAPEM0 GMRASIGN

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EDIT+1
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER YES IF THE CHANGE IS OK, ELSE ANSWER NO." Line Location: YNNW+0
Function Call: WRITE	Prompt: !,"This Causative Agent will be Auto-verified when it is signed off." Line Location: EDAT+5
Routine Call	DIE Line Location: NEW YNNW+1

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	NEW+1
^XUSEC("GMRA-ALLERGY VERIFY"	EDIT+5, EDAT+4
^XUSEC("GMRA-SUPERVISOR"	EDIT+5

Name	Field # of Occurrence
>> %	YNNW*, YNNW+1
>> DA	NEW, YNNW+1
>> DIE	NEW, YNNW+1
>> DR	NEW, YNNW+1
DUZ	EDIT+5, EDAT+4
>> GMRACNT	EDIT+3*
>> GMRADRUG	EDIT+3*
GMRALLER	EDAT+7!
GMRAMEC	EDAT+7!
>> GMRANEW	EDIT+4
>> GMRANEW(0	NEW+1*, NEW+2, YNNW+2
>> GMRAOUT	NEW, YNNW+1, EDAT+3
>> GMRAPA	EDIT+7, EDIT+9, NEW, NEW+1, YNNW+1, EDAT+5
>> GMRAPA(0	EDIT+3, EDIT+5, EDIT+9, NEW+2, YNNW, YNNW+1, YNNW+2*, EDAT, EDAT+1
GMRAPRNT	EDAT+6~
GMRAVER	EDAT+2!*
GMRAY	EDAT+7!
IOF	EDIT+1
U	EDIT+3
>> Y	NEW