Routine: GMRAPEM4

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

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

Source Information

Source file <GMRAPEM4.m>

Call Graph

Call Graph Total: 7

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

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	GMRAPEM0 GMRASIGN

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	; Add/Edit Reaction data
NEW
YNNW
EDAT

External References

Name	Field # of Occurrence
YN^DICN	YNNW
^DIE	NEW, YNNW+1
EN1^GMRAPEH0	EDAT+1
EN1^GMRAPEO0	EDAT
$$VFY^GMRASIGN	EDAT+5
SITE^GMRAUTL	EDIT+3
UNLOCK^GMRAUTL	EDIT+8, EDIT+10
EN1^GMRAVFY	EDAT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EDIT+2
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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
EDAT	NEW+2
NEW	EDIT+5, NEW+2, YNNW+1
YNNW	YNNW

Naked Globals

Name	Field # of Occurrence
^(0	NEW+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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