Routine: GMRAOR8

Package	Total	Call Graph
Adverse Reaction Tracking	3	EN1^GMRAKILL (PAT,REACT)^GMRAPAT HANGT^GMRAPEH0
VA Fileman	2	^DIC ^DIR
IHS Electronic Health Record	1	ASSESS^BEHOARMU
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRA PT UNASSESSIBLE GMRAOR5 GMRAPEM0

Entry Points

Name	Comments	DBIA/ICR reference
E
SET(DFN)	;Set the field and mark as unassessable
COMM(GMRAPA,GMRAL)	;Add comments
ASSESS	;
RCOM	;GET THE COMMENT
UNASS	;EP Add an entry that the patient cannot be assessed for allergies
REA	;GET THE REASON

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: UNASS+3
Function Call: WRITE	Prompt: !,"Patient has been marked unasessable" Line Location: SET+11
Function Call: WRITE	Prompt: !,"You must enter a reason pt is unassessable" Line Location: SET+12
Routine Call	DIC Line Location: REA+6
Routine Call	DIR Line Location: ASSESS+5 RCOM+4

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	E+1, E+3, E+5, E+6

Name	Field # of Occurrence
COMMENT	SET+1~, SET+2, SET+8, RCOM+5
DA	REA+1~
DATA	SET+1~, SET+10, SET+11
DFN	UNASS+1~, UNASS+5!, ASSESS+1, ASSESS+5, SET~, SET+10
DIC	UNASS+5!, REA+1~, REA+2*
DIC("A"	REA+5*
DIC("S"	REA+4*
DIC(0	REA+3*
DIR	ASSESS+2~, RCOM+1~
DIR("?"	ASSESS+4*
DIR("A"	ASSESS+3, RCOM+3
DIR("B"	ASSESS+4*
DIR(0	ASSESS+4, RCOM+2
DIRUT	RCOM+4!
DR	REA+1~
DUOUT	REA+7!
DUZ	SET+9
GMA	UNASS+5!
GMRA	UNASS+1~
GMRAL	COMM~, E, E+1, E+3, E+4, E+5, E+6
GMRAL(	E, E+1, E+3, E+4, E+5, E+6
GMRALN	E+2~
GMRAOUT	UNASS+1~, UNASS+2*, UNASS+4, UNASS+5!
GMRAPA	COMM~, E+1, E+3, E+5, E+6
GMRARET	UNASS+5!
GMRASN	COMM+5~, E, E+1, E+3, E+4, E+5, E+6
GMRASNN	COMM+5~, E+4, E+5, E+6
GMRAUSER	UNASS+5!
IOF	UNASS+3
REASON	SET+1~, SET+2, SET+4, SET+5, SET+7, REA+9
U	E+1, E+3, E+5, SET+5, SET+7, SET+8
VAL	SET+1~, SET+10
VAL("GMRAACC"	SET+6*
VAL("GMRAACCBY"	SET+9*
VAL("GMRAACRE"	SET+7, SET+8
Y	ASSESS+5, REA+1~, REA+8, REA+9, RCOM+1~, RCOM+5