Routine: GMRAFUT0

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC YN^DICN ^DIE
Kernel	1	KILL^XUSCLEAN

Package	Total	Caller Graph
Adverse Reaction Tracking	5	GMRA ALLERGY FILE EDIT GMRA REACTION FILE EDIT GMRA SITE FILE ^GMR(120.85 GMRAFX

Entry Points

Name	Comments	DBIA/ICR reference
PRT10	;
Q4
PROCESS	;Additions to 120.82 and 120.83 are no longer allowed
RRD
RE10
EDCON
EN1	; Entry for GMRA LOCAL ALLERGIES EDIT option
EN2	; Entry for GMRA LOCAL REACTIONS EDIT option
EN3	; Entry for GMRA SITE FILE EDIT option
EXIT	;
K4
EN4	; ENTRY FROM INPUT TRANSFORM FOR FIELDS .01 AND 22 OF FILE ; 120.85, WHERE GMRA=FIELD NUMBER, X IS DATA TO BE TRANSFORMED.

External References

Name	Field # of Occurrence
^%DT	EN4+2, EN4+4
^DIC	EN1+3, EN2+2, EN3+1
YN^DICN	EDCON+5
^DIE	EN1+14, EN2+4, EN3+4, EN3+6, RRD+4, EDCON, EDCON+7
KILL^XUSCLEAN	EXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) Line Location: EN1+4
Function Call: WRITE	Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) Line Location: EN2+3
Function Call: WRITE	Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) Line Location: EN3+2
Function Call: WRITE	Prompt: !,"NAME: HOSPITAL// (No editing)" Line Location: EN3+3
Function Call: WRITE	Prompt: !!,"The following are the ten most common signs/symptoms:" Line Location: RE10+1
Function Call: WRITE	Prompt: !,"Enter the number of the sign/symptom that you would like to edit: " Line Location: RRD+0
Function Call: READ	Timeout: DTIME Variable: GMRANS Line Location: RRD+1
Function Call: WRITE	Prompt: !?4,$C(7),"ENTER THE CORRECT NUMBER (1-10) OF THE SIGN/SYMPTOM TO BE EDITED" Line Location: RRD+2
Function Call: WRITE	Prompt: !!,"REPORTER NAME: ",$P(X,U),!?6,"ADDRESS: ",$P(X,U,2) Line Location: EDCON+3
Function Call: WRITE	Prompt: !?15,$P(X,U,3) Condition for execution: $L($P(X,U,3)) Line Location: EDCON+3
Function Call: WRITE	Prompt: !?15,$P(X,U,4) Condition for execution: $L($P(X,U,4)) Line Location: EDCON+3
Function Call: WRITE	Prompt: !?9,"CITY: ",$P(X,U,5),!?8,"STATE: ",$P($G(^DIC(5,+$P(X,U,6),0)),U),!?10,"ZIP: ",$P(X,U,7),!?8,"PHONE: ",$P(X,U,8) Line Location: EDCON+3
Function Call: WRITE	Prompt: !,?3,"OCCUPATION: ",$P(X,U,11) Line Location: EDCON+4
Function Call: WRITE	Prompt: !,"Do you want to edit Reporter Information shown above" Line Location: EDCON+5
Function Call: WRITE	Prompt: !?3,"ENTER YES TO CHANGE/ADD THE SITE'S DEFAULT REPORTER INFORMATION",!?3,"THAT WILL APPEAR ON THE FDA ADR REPORTS, ELSE ANSWER NO." Line Location: EDCON+5
Function Call: WRITE	Prompt: !,$J(GMRAX,2),".",?4,$S($D(^GMRD(120.83,GMRAY,0)):$P(^(0),"^"),1:""),?35,$J(GMRAX+5,2),".",?39,$S($D(^GMRD(120.83,GMRAZ,0)):$P(^(0),"^"),1:"") Line Location: PRT10+2
Function Call: WRITE	Prompt: !?5,"DATE MUST BE IN THE PAST, AND TIME IS NOT A REQUIRED RESPONSE." Line Location: EN4+2
Function Call: WRITE	Prompt: !!!!,"In support of national standardization of the contents of this file," Line Location: PROCESS+2
Function Call: WRITE	Prompt: !,"local site addition and modification functions are no longer available." Line Location: PROCESS+3
Function Call: WRITE	Prompt: !,"If you wish to request a new term or modify an existing term, please request" Line Location: PROCESS+4
Function Call: WRITE	Prompt: !,"through the IHS RPMS Feedback web site located at http://www.ihs.gov/RPMS." Line Location: PROCESS+5
Function Call: WRITE	Prompt: !,"Once at the IHS RPMS Feedback page, select the RPMS Application 'Pharmacy-" Line Location: PROCESS+6
Function Call: WRITE	Prompt: !,"new Reactant/Symptom Request(PRSR)' to ensure these are reviewed in a timely" Line Location: PROCESS+7
Function Call: WRITE	Prompt: !,"manner. If you have any questions regarding this new term request process," Line Location: PROCESS+8
Function Call: WRITE	Prompt: !,"please contact your local Adverse Reaction Tracking package coordinator.",! Line Location: PROCESS+9
Routine Call	DIE Line Location: EN1+14 EN2+4 EN3+4 EN3+6 RRD+4 EDCON EDCON+7
Routine Call	DIC Line Location: EN1+3 EN2+2 EN3+1

FileNo	Call Tags
^GMRD(120.82 - [#120.82]	Classic Fileman Calls
^GMRD(120.83 - [#120.83]	Classic Fileman Calls
^GMRD(120.84 - [#120.84]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	EDCON+3
^GMR(120.85 - [#120.85]	EN4+3
^GMRD(120.82 - [#120.82]	EN1+4, EN1+6, EN1+15
^GMRD(120.83 - [#120.83]	EN2+3, EN2+5, PRT10+2
^GMRD(120.84 - [#120.84]	EN3+2, EN3+4, EN3+5, EN3+6, RRD+1, RRD+3, RRD+5, RRD+6*, RRD+7, EDCON+1 , EDCON+2, EDCON+6, EDCON+8, PRT10+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EDCON+5*, EDCON+6
%DT	EN4+2, EN4+4, Q4!
%DT(0	EN4+2, EN4+3, EN4+4
DA	EN1+2!, EN1+3, EN1+14!, EN2+2, EN2+4!, EN3+4, EN3+6, RRD+4, EDCON, EDCON+7* , EN4+3
DA(1	RRD+4*
DIC	EN1+2!, EN1+3!, EN2+2!, EN3+1*!
DIC("A"	EN1+3, EN2+2
DIC("DR"	EN1+3, EN2+2
DIC(0	EN1+3, EN2+2, EN3+1*
DIE	EN1+5~, EN1+7, EN1+14!, EN2+4!, EN3+4, EN3+6, RRD+4, EDCON, EDCON+7*
DLAYGO	EN1+2!, EN1+3!, EN1+14!, EN2+2!, EN3+1*!
DR	EN1+2!, EN1+7, EN1+14!, EN2+4!, EN3+4, EN3+6, RRD+4, EDCON, EDCON+7*
DR(1	EN1+8, EN1+10, EN1+11, EN1+12
DTIME	RRD+1
GMRA	EN4+3, Q4!
GMRA("HELP"	EN4+3*, EN4+4
GMRA(0	EN4+3*
>> GMRABRK	RE10*
GMRACT	EN1+5~, EN1+7*
>> GMRACTR	RE10*
GMRAIEN	EN1+2!, EN1+3*, EN1+4, EN1+6, EN1+15
>> GMRALLER	RE10*
GMRALN	EN1+5~, EN1+6*, EN1+8
>> GMRAMID	RE10*
>> GMRANS	RRD+1*, RRD+2, RRD+3, RRD+4, RRD+5
>> GMRARECN	RE10*
>> GMRASITE	EN3+1*, EN3+2, EN3+4, EN3+5, EN3+6, RRD+1, RRD+3, RRD+4, RRD+5, RRD+6 , RRD+7, EDCON, EDCON+1, EDCON+2, EDCON+6, EDCON+7, EDCON+8, PRT10+1
GMRAX	EN1+14!, RE10+2, RRD+3, RRD+5, RRD+6, PRT10+1, PRT10+2
GMRAY	EN1+14!, EN2+2, EN2+3, EN2+5, RRD+3, RRD+5, RRD+6, PRT10+1, PRT10+2
>> GMRAZ	PRT10+1*, PRT10+2
U	EN1+8, EDCON+3, EDCON+4, EN4+3
X	EN1+2!, EDCON+2, EDCON+3, EDCON+4, EN4+2, EN4+4*, K4!
Y	EN1+2!, EN1+3, EN1+16, EN2+2, EN2+6, EN3+1, EN3+3, EN3+4, EN3+6, RRD+7 , EDCON+1, EN4+2, EN4+4

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAFUT0

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
EDCON	RRD+1
EN1	EN1+16
EN2	EN2+6
EN3	EN3+5
EXIT	EN1+3, EN1+4, EN1+17, EN2+2, EN2+3, EN2+7, EN3+1, EN3+2, EN3+4, EN3+6 , RRD+1, RRD+7, EDCON+1, EDCON+6
K4	EN4+2
PROCESS	EN1+1, EN2+1
PRT10	RE10+2
Q4	EN4+4
RE10	RRD+7
RRD	RRD+2