Routine: GMRADSP4

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN
Adverse Reaction Tracking	3	EN1^GMRADSP2 HDR^GMRADSP3 ($$OUTTYPE,CLOSE,DEV)^GMRAUTL
VA Fileman	2	^DIC ^DIR
Registration	1	(DEM,KVAR)^VADPT

Package

Total

Call Graph

Kernel

^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN

Adverse Reaction Tracking

EN1^GMRADSP2 HDR^GMRADSP3 ($$OUTTYPE,CLOSE,DEV)^GMRAUTL

VA Fileman

^DIC ^DIR

Registration

(DEM,KVAR)^VADPT

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PRINT-COMPLETE LISTING

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA PRINT-COMPLETE LISTING

Name	Comments	DBIA/ICR reference
DIR1
SET	; SET SORT ARRAY
E
PARSE2	;
BEGIN
PARSE	;
EN1	; Entry to PRINT PATIENT REACTION DATA option
ERR(DFN)	;Checks to see if patient has entered in error data
TASK	;
EXIT	;Quit and kill
PARSECD	;

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+1
^DIC	EN1+1
^DIR	E+1, E+8
EN1^GMRADSP2	PARSECD+10
HDR^GMRADSP3	PARSE+1
$$OUTTYPE^GMRAUTL	PARSECD+2
CLOSE^GMRAUTL	EXIT+1
DEV^GMRAUTL	E+10
DEM^VADPT	EN1+7
KVAR^VADPT	EN1+9
$$FMTE^XLFDT	EN1+10
$$NOW^XLFDT	EN1+10
$$REPEAT^XLFSTR	EN1+6
KILL^XUSCLEAN	EXIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+5
Function Call: WRITE	Prompt: !," This patient has No Known Allergies." Line Location: PARSE+2
Function Call: WRITE	Prompt: !!,"THERE IS NO DATA FOR THIS REPORT." Line Location: PARSE+6
Function Call: WRITE	Prompt: !,".............................................................................." Line Location: PARSECD+11
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...") Line Location: TASK+2
Routine Call	DIC Line Location: EN1+1
Routine Call	DIR Line Location: E+1 E+8

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	BEGIN, SET+2, SET+3, SET+6, SET+7, SET+8, PARSECD+6, PARSECD+8, ERR+3
^GMR(120.86 - [#120.86]	EN1+4, EN1+5, SET+1
^GMRD(120.82 - [#120.82]	PARSECD+8
^GMRD(120.83 - [#120.83]	PARSECD+9
^TMP($J	BEGIN!, SET+11*, EXIT+2!, PARSE2+2, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5

Name	Line Occurrences
$$ERR	EN1+3
EN1	EN1+4, EN1+5, E+2, E+9
EXIT	EN1+1, E+10, E+11
PARSE	BEGIN+1
PARSE2	PARSE+5
PARSECD	PARSE2+2
SET	BEGIN
TASK	E+11

Name	Field # of Occurrence
^(0	PARSECD+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET+10*
DFN	EN1+2*, EN1+3, EN1+4, EN1+5, BEGIN, SET+1, ERR~, ERR+3
DIC	EN1+1*!
DIC("A"	EN1+1*
DIC(0	EN1+1*
DIR	DIR1!, E+1!, E+6!, E+8!
DIR("A"	DIR1, E+6
DIR(0	DIR1, E, E+6, E+7
DLAYGO	EN1+1!
ERR	ERR+1~, ERR+2, ERR+3, ERR+4
GMRAACT	SET+5~, SET+7*, SET+9
>> GMRAAL	PARSECD+7*
>> GMRAALL	PARSECD+3, PARSECD+4, PARSECD+5, PARSECD+7
>> GMRACNT	PARSE+1, PARSE+6, PARSECD+7
>> GMRACTIV	PARSE+4*, PARSE+5, PARSE2+2, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5
>> GMRADRUG	PARSECD+8*
>> GMRAEER	EN1+3, EN1+4, EN1+5, SET+3, SET+9*, SET+10, SET+11
>> GMRAFG	PARSE+1, PARSECD+11
>> GMRAHEAD(	EN1+11*
>> GMRAHEAD(1	EN1+8*
>> GMRAHEAD(2	EN1+9*
>> GMRAHEAD(3	EN1+9*
>> GMRAHEAD(4	EN1+9*
>> GMRAIN	SET+9*
>> GMRAKIND	SET+2*, SET+10, SET+11
>> GMRALINE	EN1+6*, PARSECD+2
>> GMRANKA	BEGIN, SET+1, PARSE+2
>> GMRANOW	EN1+10*, EN1+11
>> GMRANS	PARSECD+7*
>> GMRAOTH	PARSECD+9*
>> GMRAOUT	EN1+1, EN1+6, E+10*, BEGIN, PARSE+5, PARSE2+2, PARSECD+4, PARSECD+5, PARSECD+11
>> GMRAPA	PARSECD+7*, PARSECD+8
>> GMRAPA(0	PARSECD+6*, PARSECD+8
>> GMRAPG	PARSE+1*
>> GMRAPRNT	PARSECD+10*
GMRARE	SET+5~, SET+8*, SET+9
>> GMRAREC	PARSECD+5*, PARSECD+6, PARSECD+7
>> GMRARECN	BEGIN*, SET+2, SET+3, SET+6, SET+7, SET+8, SET+11
>> GMRARES	PARSECD+2*
>> GMRASEL	E+4*, SET+10
>> GMRASEL1	E+2*, E+3
>> GMRASEL2	E+9*, SET+1, PARSE+2, PARSE+3, PARSE+4
>> GMRASLIN	EN1+6*, PARSECD+1
>> GMRASTAT	PARSE+5*, PARSECD+1
>> GMRATEMP	SET+2*, SET+10, SET+11
GMRATTMP	E+3*, E+4, E+5!
>> GMRATYP	PARSE2+1, PARSE2+2, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5
GMRAZIS	E+10!
>> GMRAZK	PARSE+3*, PARSE+4
>> GMRAZM	PARSECD+4*
>> GMRZ1	PARSE+4
IO	PARSECD+10
IO("Q"	E+11
ION	TASK+1
NUM	ERR+1~, ERR+2, ERR+3
>> POP	E+10
U	EN1+5, SET+1, SET+7, SET+8
VA	EN1+9!
VA("PID"	EN1+9
>> VADM(1	EN1+9
>> VADM(3	EN1+9
>> VADM(4	EN1+9
>> X	E+3*
>> Y	EN1+1, EN1+2, E+9
>> Y(0	E+2, E+9
Z	SET+5~, SET+6*, SET+7, SET+8
>> ZTDESC	TASK+1*
ZTDH	TASK+3!
ZTDTH	TASK+1*, TASK+3!
>> ZTIO	TASK+1*
ZTRTN	TASK+1*, TASK+3!
ZTSAVE	TASK+3!
ZTSAVE("DFN"	TASK+1*
ZTSAVE("GMRA*"	TASK+1*
ZTSK	TASK+2, TASK+3!

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRADSP4

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: