Routine: GMRADSP6

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

Package

Total

Call Graph

Kernel

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

Adverse Reaction Tracking

(EOP,HDR)^GMRADSP3 ($$OUTTYPE,CLOSE,DEV)^GMRAUTL

Registration

(DEM,KVAR)^VADPT

VA Fileman

^DIC

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA PRINT-ACTIVE LISTING GMRAU851
IHS Mods To Patient Care Encounter	2	BPXRMAL1 BPXRMALL
IHS Changes To Pharmacy	1	APSPESAL
IHS GPRA Information System	1	BGPMUA10

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA PRINT-ACTIVE LISTING GMRAU851

IHS Mods To Patient Care Encounter

BPXRMAL1 BPXRMALL

IHS Changes To Pharmacy

APSPESAL

IHS GPRA Information System

BGPMUA10

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
TASK	;
INACTIVE(LP)	;
WRITG	;
REST	;
EN1	; Entry to ACTIVE LISTING OF PATIENT REACTIONS option
EN2	; Print Active Patient list if patient and device known
EN3	;Print Active Patient list if patient is known
EXIT	;Quit and kill
EN2A
DISP2

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+1
^DIC	EN1+2
EOP^GMRADSP3	DISP2, REST+1, REST+4
HDR^GMRADSP3	EN2+1
$$OUTTYPE^GMRAUTL	DISP2+1
CLOSE^GMRAUTL	EXIT+2
DEV^GMRAUTL	EN3+7
DEM^VADPT	EN3+1
KVAR^VADPT	EN3+1
$$FMTE^XLFDT	EN3+4, REST+15
$$NOW^XLFDT	EN3+4
$$REPEAT^XLFSTR	EN2+2
KILL^XUSCLEAN	EXIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"NO ALLERGY/ADVERSE REACTION DATA EXISTS FOR THIS PATIENT" Line Location: EN3+6
Function Call: WRITE	Prompt: !," Patient has answered NKA." Line Location: EN2+3
Function Call: WRITE	Prompt: !,?33,"No Data Found" Line Location: DISP+3
Function Call: WRITE	Prompt: !!?3,"TYPE: ",GMRATYPE,!?3,$E(GMRALIN,1,$L(GMRATYPE)+6) Line Location: DISP2+2
Function Call: WRITE	Prompt: !,GMRAALL,?60,$P("NO^YES","^",1+$P(GMRATEMP,U,16)),?70,$S($P(GMRATEMP,U,6)="h":"HIST",$P(GMRATEMP,U,6)="o":"OBS",1:"") Line Location: REST+2
Function Call: WRITE	Prompt: !,?5,"Reactions: " Line Location: WRITG+1
Function Call: WRITE	Prompt: !,?16 Line Location: WRITG+2
Function Call: WRITE	Prompt: GMRALINE Line Location: WRITG+3
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+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BEHOAR(90460.06 - [#90460.06]	REST+6
^GMR(120.8 - [#120.8]	EN2+4, EN2A, REST+2, REST+3, REST+9, REST+11, REST+12, INACTIVE+3, INACTIVE+4, INACTIVE+5
^GMR(120.86 - [#120.86]	EN3+6, EN2+3
^GMRD(120.83 - [#120.83]	REST+9, REST+13
^TMP($J	EN2A+6*, DISP+3, DISP+4, DISP2+3, EXIT+3!

Name	Line Occurrences
$$INACTIVE	EN2A+3
DISP	EN2+5
DISP2	DISP+4
EN1	EN3+6
EN2A	EN2+4
EXIT	EN1+2, EN3+7, EN3+8, DISP+5
REST	DISP2+3
TASK	EN3+8
WRITG	REST+18

Name	Field # of Occurrence
^(0	REST+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	EN2A+2~, EN2A+3*, EN2A+4
>> DFN	EN1+2*, EN3+6, EN2+3, EN2+4
DIC	EN1+2*!
DIC("A"	EN1+2*
DIC(0	EN1+2*
DLAYGO	EN1+2!
>> GMRAALL	DISP+2, DISP2+3, REST+2
>> GMRAFG	REST+12*, REST+17
GMRAFG2	REST+10~
>> GMRAFLG	REST+9, WRITG+1
>> GMRAHEAD(	EN3+5*
>> GMRAHEAD(1	EN3+2*
>> GMRAHEAD(2	EN3+1*
>> GMRAHEAD(3	EN3+2*
>> GMRAHEAD(4	EN3+3*
>> GMRAHEAD(5	EN3+3*
>> GMRAHEAD(6	EN3+2*
>> GMRAHEAD(7	EN3+2*
>> GMRAKIND	EN2A+5, EN2A+6, DISP+2, DISP+4*, DISP2+1, DISP2+3
>> GMRALIN	EN2+2*, DISP2+2
GMRALINE	REST+10~, REST+13, REST+14, REST+16, REST+17, WRITG+2, WRITG+3
>> GMRANOW	EN3+4*, EN3+5
>> GMRAOTH	REST+9*, REST+13
>> GMRAOUT	EN1+1, EN1+2, EN3+7, EN2+1, DISP+4, DISP2, DISP2+3, REST+1, REST+4
>> GMRAPG	EN2+1*
>> GMRAREAC	EN2+5*
>> GMRAREC	EN2+4*, EN2A, EN2A+3, EN2A+6
>> GMRARECN	DISP+2, DISP2+3, REST+2, REST+3, REST+9, REST+11, REST+12
>> GMRASPAC	DISP+1*, WRITG+2
>> GMRATEMP	EN2A, EN2A+5, EN2A+6, REST+2
GMRATON	REST+10~, REST+11*, REST+13, REST+14, REST+15
>> GMRATONS	DISP+1*
>> GMRATYPE	DISP2+1*, DISP2+2
>> GMRAX	REST+9*, REST+11, REST+12
GMRAZ	REST+10~, REST+15*, REST+16
GMRAZIS	EN3+7!
GMRSNO	REST+3*, REST+5, REST+6, EXIT+1!
IN	INACTIVE+1~, INACTIVE+2, INACTIVE+6, INACTIVE+7
INACT	INACTIVE+1~, INACTIVE+4*, INACTIVE+6
IO("Q"	EN3+8
ION	TASK+1
IOSL	DISP2, REST+1, REST+4
LP	INACTIVE~, INACTIVE+3, INACTIVE+4, INACTIVE+5
>> POP	EN3+7
REACT	INACTIVE+1~, INACTIVE+5*, INACTIVE+6
SNOCODE	REST+6*, REST+8, EXIT+1!
SNOTXT	REST+6*, REST+7, EXIT+1!
U	EN2+3, REST+2, REST+3, REST+6, REST+13, REST+14, REST+15, INACTIVE+4, INACTIVE+5
VA	EN3+1!
VA("PID"	EN3+1
>> VADM(1	EN3+1
>> VADM(3	EN3+1
>> VADM(4	EN3+1
X	DISP+4, DISP2+3, EXIT+3!
Y	EN1+2, EXIT+3!
Z	EXIT+3!, INACTIVE+1~, INACTIVE+3*, INACTIVE+4, INACTIVE+5
>> 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: GMRADSP6

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: