Routine: GMRAPER0

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC MIX^DIC1 YN^DICN ^DIR
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Adverse Reaction Tracking	1	DELREAC^GMRAPER1
Health Data and Informatics	1	NTRTMSG^HDISVAP
Toolkit	1	($$SCREEN,SCREEN)^XTID

Package	Total	Caller Graph
Adverse Reaction Tracking	3	GMRAPER2 GMRAU851 GMRAUTL2

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; Exit from program
RELIST
SOURCE(SRC)	;Get the source
CHECKS(SGN)	;Check to see if SIGN/SYMPTOM is active)
ADDG	;
DSPREAC	; Display all the patient reactions
NOREAC
RRD	;
LIST	; Display Signs/Symptoms
YNOK
SETT	;
EN1	; ENTRY POINT TO SELECT SIGNS/SYMPTOMS
ADD	;
CHC()	; Check reaction to see if user can see and edit this reaction
ADREAC	;This is the site parameter's top ten most common signs/symptoms
STRIN	;This will handle a string input
DATE(DATE,ASK)	; Enter the date for a reaction
ASKAN	;
PRTREAC	;
MANIL	;

External References

Name	Field # of Occurrence
^%DT	DATE+5
^DIC	ADD+4, SOURCE+6
MIX^DIC1	STRIN+2
YN^DICN	YNOK, ASKAN+1
^DIR	RRD+7
DELREAC^GMRAPER1	MANIL+4
NTRTMSG^HDISVAP	ADDG+2
$$FMTE^XLFDT	PRTREAC+8, DATE+4
$$REPEAT^XLFSTR	DSPREAC+15, PRTREAC+4
$$SCREEN^XTID	RRD+15
SCREEN^XTID	RRD+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: LIST+1
Function Call: WRITE	Prompt: !!,"No signs/symptoms have been specified. Please add some now." Line Location: LIST+2
Function Call: WRITE	Prompt: !!,$C(7),"SIGNS/SYMPTOMS MUST BE SPECIFIED. THIS IS A REQUIRED RESPONSE." Line Location: RELIST+4
Function Call: WRITE	Prompt: !!,"The following is the list of reported signs/symptoms for this reaction:" Line Location: DSPREAC+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: MANIL+1
Function Call: WRITE	Prompt: !!,"Select Action (A)DD",$S(GMRACTR>0:", (D)ELETE ",1:" "),"OR <RET>: " Line Location: MANIL+1
Function Call: WRITE	Prompt: !?4,$C(7),"ENTER AN A TO ADD SIGNS/SYMPTOMS TO THIS LIST," Line Location: MANIL+3
Function Call: WRITE	Prompt: !?10,"OR D TO DELETE SIGNS/SYMPTOMS FROM THIS LIST," Condition for execution: GMRACTR Line Location: MANIL+3
Function Call: WRITE	Prompt: !?10,"OR <RET> TO ACCEPT THIS LIST OF SIGNS/SYMPTOMS." Line Location: MANIL+3
Function Call: WRITE	Prompt: !!,"One or more entries you selected were inactive. Please use option 11",!,"to find a similar term to replace the inactive sign/symptom you selected." Line Location: ADREAC+1
Function Call: WRITE	Prompt: !!,"The following are the top ten most common signs/symptoms:" Line Location: ADREAC+2
Function Call: WRITE	Prompt: !,$J(GMRAREAC,2),".",?4,$P(GMRAR10(GMRAREAC),U,2),?35,$J(GMRAREAC+6,2),".",?39,$P(GMRAR10(GMRAREAC+6),U,2) Line Location: ADREAC+3
Function Call: WRITE	Prompt: !?1,"6.",?4,$P(GMRAR10(6),U,2) Line Location: ADREAC+4
Function Call: WRITE	Prompt: !!,$P(GMRAR10(+GMRAY),U,2)," is inactive and may not be used." Line Location: RRD+15
Function Call: WRITE	Prompt: !?1,$S(X:$J(X,2),1:""),?5,$E($P(GMRARPR(GMRAREAC,GMRARECN),U),1,45) Line Location: PRTREAC+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: STRIN+1
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER YES IF THE DATA ABOVE IS CORRECT, ELSE ANSWER NO." Line Location: YNOK+0
Function Call: WRITE	Prompt: !?4,$C(7),"ANSWER YES TO ADD ANOTHER SIGN/SYMPTOM, ELSE ANSWER NO." Line Location: ASKAN+1
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: ADDG+1
Function Call: WRITE	Prompt: !,X," is not in the Sign/Symptoms file." Line Location: ADDG+2
Routine Call	DIC Line Location: ADD+4 SOURCE+6
Routine Call	DIR Line Location: RRD+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(120.83 - [#120.83]	CHECKS+4, CHECKS+5, CHECKS+6
^XUSEC("GMRA-ALLERGY VERIFY"	CHC+1

Label References

Name	Line Occurrences
$$CHC	DSPREAC+7
ADD	RRD+14, RRD+16
ADDG	STRIN+3, YNOK+2
ADREAC	NOREAC, RRD+17
ASKAN	STRIN+3, YNOK+2, ASKAN+1
DATE	NOREAC+7
DSPREAC	RELIST
LIST	RELIST+5
MANIL	MANIL+3
NOREAC	DSPREAC+1
PRTREAC	DSPREAC+19, DSPREAC+27
Q1	RELIST+2
RELIST	RELIST+4
SETT	ADD+5, ADD+6, YNOK+3
SOURCE	NOREAC+22
STRIN	STRIN+2, STRIN+3, YNOK+2, ASKAN+3
YNOK	YNOK

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q1+1!, STRIN+3, YNOK, YNOK+1, YNOK+2, ASKAN+1, ASKAN+2, ADDG+1, ADDG+2, ADDG+3 , ADDG+4~
%DT	DATE+2~, DATE+3*
%DT("A"	DATE+3*
%DT("B"	DATE+4*
%DT(0	DATE+5*
ASK	DATE~, DATE+1, DATE+6*
>> D	STRIN+2*
DA	SOURCE+1~
DATE	DATE~, DATE+3, DATE+4, DATE+6
DIC	Q1+1!, ADD+4, STRIN+2!, SOURCE+1~, SOURCE+2*
DIC("A"	SOURCE+5*
DIC("S"	ADD+4, STRIN+2, SOURCE+4*
DIC(0	ADD+4, STRIN+2, SOURCE+3*
DIR	RRD+1!, RRD+7!
DIR("?"	RRD+4, RRD+5, RRD+6*
DIR("A"	RRD+3*
DIR(0	RRD+1, RRD+2
DIRUT	SOURCE+6!
DR	SOURCE+1~
DTIME	MANIL+1, STRIN+1
DTOUT	RRD+8, STRIN+2!, STRIN+3
DUOUT	RRD+9, STRIN+2!, STRIN+3
DUZ	CHC+1
ERR	ADREAC+1!, RRD+15*, RRD+17
GMADATE	Q1+1!, NOREAC+5, NOREAC+6, NOREAC+7, NOREAC+13, NOREAC+14, NOREAC+19, NOREAC+20, NOREAC+30!, PRTREAC+7
>> GMRAASK	NOREAC+4, NOREAC+7, RRD+12
GMRACHC	DSPREAC+4!
GMRACHC(	DSPREAC+7, DSPREAC+8, DSPREAC+24, DSPREAC+25, DSPREAC+26
GMRACHC(0	DSPREAC+12, DSPREAC+16
GMRACTR	Q1+1!, DSPREAC+4, MANIL+1, MANIL+3, CHC+1
GMRADATE	Q1+1!, PRTREAC+7
GMRADO	Q1+1!, RRD+11*, RRD+13
>> GMRANDT	DSPREAC+14, NOREAC+7, PRTREAC+3, PRTREAC+8
>> GMRAODT	NOREAC+6
GMRAOK	Q1+1!
>> GMRAOTH	EN1+1, NOREAC+20, ADDG+4
>> GMRAOUT	RELIST+2, RELIST+4, RELIST+5, MANIL+1, NOREAC+3, NOREAC+7, NOREAC+22, RRD+8, RRD+9, RRD+10 , STRIN+1, STRIN+3, YNOK+1, YNOK+2, ASKAN+2, ADDG+3, ADDG+4, DATE+5, SOURCE+6*
>> GMRAPA(0	RELIST+2, RELIST+4, CHC+1, DATE+4
GMRAPC	Q1+1!
GMRAPDAT	PRTREAC+1~, PRTREAC+7*, PRTREAC+8
>> GMRAPRP(	DSPREAC+19, DSPREAC+27
GMRAR10	Q1+1!
GMRAR10(	ADREAC+3, RRD+15, ADD+6
GMRAR10(11	EN1+1*
GMRAR10(6	ADREAC+4
GMRARAD	EN1+1!
GMRARAD(	NOREAC+11, NOREAC+12, NOREAC+13, NOREAC+14, SETT+3
GMRARADD	Q1+1!
GMRARADD("DONE"	NOREAC+12, NOREAC+13*
GMRARDL	EN1+1!
GMRARDL(	SETT+2!
GMRAREAC	Q1+1!, DSPREAC+4, DSPREAC+5, DSPREAC+6, DSPREAC+7, DSPREAC+8, DSPREAC+18, DSPREAC+19, DSPREAC+26, DSPREAC+27 , ADREAC+3, CHC+1, PRTREAC+6, PRTREAC+7, SETT+2, SETT+3, STRIN+2*, YNOK+2
GMRARECN	Q1+1!, DSPREAC+6, DSPREAC+7, DSPREAC+8, DSPREAC+17, DSPREAC+19, DSPREAC+25, DSPREAC+27, CHC+1, PRTREAC+6 , PRTREAC+7, SETT+2, SETT+3
GMRAROT	EN1+1!
GMRAROT(	NOREAC+17, NOREAC+18, NOREAC+19, NOREAC+20, ADDG+4
GMRAROTD	EN1+1!
GMRAROTD(	ADDG+4!
GMRAROTT	Q1+1!
GMRAROTT("DONE"	NOREAC+18, NOREAC+19*
GMRARPR	Q1+1!, NOREAC+1
GMRARPR(	DSPREAC+5, DSPREAC+6, NOREAC+14, NOREAC+20, NOREAC+28, CHC+1, PRTREAC+6, PRTREAC+7, SETT+3, ADDG+4*
GMRARPR(""	LIST+2, RELIST+2, RELIST+4, DSPREAC+1
GMRASRC	Q1+1!, NOREAC+22, NOREAC+27, NOREAC+28
GMRAWHO	EN1+1!
GMRAWHO(	NOREAC+25, NOREAC+26, NOREAC+27, NOREAC+28, SETT+3
GMRAWHOD	Q1+1!
GMRAWHOD("DONE"	NOREAC+26, NOREAC+27*
GMRAX	Q1+1!, NOREAC+8~, NOREAC+11, NOREAC+12, NOREAC+13, NOREAC+14, NOREAC+17, NOREAC+18, NOREAC+19, NOREAC+20 , NOREAC+23~, NOREAC+25*, NOREAC+26, NOREAC+27, NOREAC+28
GMRAY	Q1+1!, RRD+11!, RRD+13*, RRD+14, RRD+15, ADD+2, ADD+6
SGN	CHECKS~, CHECKS+4, CHECKS+5, CHECKS+6
SIGNDT	CHECKS+2~, CHECKS+3, CHECKS+4, CHECKS+5
SRC	SOURCE~, SOURCE+7*
STAT	CHECKS+2~, CHECKS+5*, CHECKS+6
STATUS	CHECKS+2~, CHECKS+6*, CHECKS+7
U	RELIST+2, RELIST+4, DSPREAC+8, DSPREAC+25, DSPREAC+26, NOREAC+12, NOREAC+13, NOREAC+14, NOREAC+18, NOREAC+19 , NOREAC+20, NOREAC+26, NOREAC+27, NOREAC+28, ADREAC+3, ADREAC+4, RRD+15, CHC+1, PRTREAC+6, PRTREAC+7 , SETT+2, STRIN+1, YNOK, YNOK+2, DATE+4, CHECKS+6
VALUE	CHECKS+2~, CHECKS+3, CHECKS+7, CHECKS+8
X	Q1+1!, DSPREAC+16, DSPREAC+18, DSPREAC+24, DSPREAC+25, DSPREAC+26, MANIL+1, MANIL+2, MANIL+3, MANIL+4 , PRTREAC+2, PRTREAC+6, STRIN+1, STRIN+2, YNOK+2, ADDG+1, ADDG+2, ADDG+4, DATE+2~, DATE+5
Y	Q1+1!, DSPREAC+7, DSPREAC+8, DSPREAC+16, DSPREAC+17, RRD+10, RRD+11!, RRD+13, ADD+1~, ADD+3 , ADD+5, ADD+6, SETT+1, SETT+2, STRIN+3, YNOK, YNOK+2, DATE+2~, DATE+6, SOURCE+1~ , SOURCE+7

Marked Items

Name	Field # of Occurrence
$T(NTRTMSG^HDISVAP	ADDG+2
$T(SCREEN^XTID	RRD+15

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPER0

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items