Routine: GMRAMCB

Package	Total	Call Graph
Adverse Reaction Tracking	6	GETAL^GMRAMCB1 HANGT^GMRAPEH0 BULLT^GMRASEND HLP12085^GMRAU851 SITE^GMRAUTL VAD^GMRAUTL1
VA Fileman	2	NOW^%DTC (FILE,YN)^DICN
Kernel	1	KILL^XUSCLEAN

Package

Total

Call Graph

GETAL^GMRAMCB1 HANGT^GMRAPEH0 BULLT^GMRASEND HLP12085^GMRAU851 SITE^GMRAUTL VAD^GMRAUTL1

NOW^%DTC (FILE,YN)^DICN

KILL^XUSCLEAN

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRA MARK CHART GMRAGUI1 GMRASIGN

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN4(GMRALL,DFN)	;THIS IS THE ENTRY POINT IF YOU KNOW THE ALLERGIES AND PATIENT
Q3	; CLEAN UP AFTER EN3
HELP	;THIS ROUTINE WILL LIST ALL THE SELECTED ALLERGIES AND ALL THE
HLP1	;LIST ALL ALLERGIES
EN3	;Entry for EDIT CHART & ID BAND option
EN5	;THIS IS THE ENTRY POINT TO BY PASS THE FORMAL LIST AGAIN
EN7
EN6(GMRALL,DFN,GMRATYPE)	;THIS IS THE ENTRY POINT IF YOU KNOW THE ALLERGIES AND PATIENT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This session you have CHOSEN:" Line Location: EN5+3
Function Call: WRITE	Prompt: !,?5,$P($G(^GMR(120.8,GMRAPA,0)),U,2) Line Location: EN5+3
Function Call: WRITE	Prompt: ! Line Location: EN5+4
Function Call: WRITE	Prompt: !?4,"ANSWER YES IF THE "_GMRAM2_" HAS BEEN MARKED, ELSE ANSWER NO." Line Location: EN5+11
Function Call: WRITE	Prompt: !,"No CAUSATIVE AGENTS have been selected for this patient." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"You have selected the following CAUSATIVE AGENTS:",! Line Location: HELP+3
Function Call: WRITE	Prompt: !,?5,$P($G(^GMR(120.8,GMRAPA,0)),U,2) Line Location: HELP+3
Function Call: WRITE	Prompt: !,"You may choose CAUSATIVE AGENTS from the following list for this patient:" Line Location: HLP1+1
Function Call: WRITE	Prompt: !?4,"There are no reactions on file for this patient." Line Location: HLP1+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	EN3+1, EN3+3, EN5+2, EN5+3, EN5+15, EN7+2, EN7+3, HELP+3, HLP1+3
^GMRD(120.84 - [#120.84]	EN5+4, EN6+2

Name	Field # of Occurrence
^(0	EN5+15*

Name	Field # of Occurrence
%	EN5+7, EN5+8, EN5+11*, EN5+13, EN5+16, EN6+1~
%Y	EN5+7, EN5+8*, EN5+10, EN5+13, EN6+1~, EN7
>> DA(1	EN5+16*
DD	EN5+16!
DFN	EN3+1, EN3+3, EN4~, EN5+1, EN6~, HLP1+3, HLP1+4
DIC	EN5+16*!, HLP1+2~
DIC("DR"	EN5+16*
DIC(0	EN5+16*
DINUM	EN5+16!
DLAYGO	EN5+16*!
DO	EN5+16!
DUZ	EN5+16
GMRACB1	Q3+1!
GMRALL	EN3+1!, EN4~, EN6~, HELP+2
GMRALL(	EN5+2, EN5+3, EN5+14, EN7+1, HELP+3
>> GMRALOC	EN5+1, EN5+6, EN7+2
>> GMRAM1	EN5+5*, EN5+6, EN5+8, EN5+9, EN5+15, EN5+16
>> GMRAM2	EN5+5*, EN5+9, EN5+11
>> GMRAMARK	EN5+5*
>> GMRANAM	EN5+1
>> GMRANULL	EN5+7*
GMRAOUT	EN3+1, EN3+2, EN4+1, EN5+4, EN5+5, EN5+11, EN6+1~
GMRAPA	EN5+2, EN5+3, EN5+14, EN5+15, EN5+16, EN7+1, EN7+2, EN7+3, HELP+2, HELP+3 , HELP+4!
GMRAPA(0	EN7+3*
>> GMRASITE	EN5+4, EN6+2
>> GMRASITE(0	EN5+4, EN5+6, EN6+2, EN7+2
>> GMRASSN	EN5+1
GMRATYPE	EN5+3*, EN6~
>> I	EN5+3*, EN5+9
REQ	EN5+2~*, EN5+6
U	EN5+3, EN5+6, EN7+2, HELP+3
>> X	EN5+16*

Information