Routine: GMRAPST1

Package	Total	Call Graph
Kernel	4	^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN
Adverse Reaction Tracking	3	DT^GMRAPL (CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK,VAD)^GMRAUTL1
VA Fileman	2	NOW^%DTC ^DIR

Package

Total

Call Graph

^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN

DT^GMRAPL (CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK,VAD)^GMRAUTL1

NOW^%DTC ^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PRINT LIST FATAL REACTION

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PRINT	;Queue point for report
EN1	; This routine will loop through the ADT entry point to get all ; the entries where the patient has died.
HEAD	; Print header information
PRINTER	;Select printer
EXIT	; Exit of program kill cleanup

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select an Observed date range for this report." Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: PRINTER+1
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: PRINTER+1
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.") Line Location: PRINTER+5
Function Call: WRITE	Prompt: !,"NO DATA FOR THIS REPORT..." Line Location: PRINT+19
Function Call: WRITE	Prompt: ! Line Location: PRINT+29
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+10
Function Call: WRITE	Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADPDT),"@"),?70,"Page: ",GMRAPG Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?22,"List of Fatal Reaction over a date range" Line Location: HEAD+12
Function Call: WRITE	Prompt: !,?25,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D") Line Location: HEAD+13
Function Call: WRITE	Prompt: !,"Patient",?31,"Dates",?40,"Related Reaction",?70,"Date Died" Line Location: HEAD+14
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+15
Routine Call	DIR Line Location: HEAD+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+14
^GMR(120.8 - [#120.8]	PRINT+8
^GMR(120.85 - [#120.85]	PRINT+5, PRINT+6, PRINT+7, PRINT+31, PRINT+33
^TMP($J	EXIT+2!, PRINT+2!, PRINT+15*, PRINT+19, PRINT+21, PRINT+23, PRINT+27, PRINT+29, PRINT+30

Name	Line Occurrences
EXIT	EN1+4
HEAD	PRINT+19, PRINT+24, PRINT+37, PRINT+39, PRINT+43
PRINT	PRINTER+7
PRINTER	EN1+5

Name	Field # of Occurrence
DIR	HEAD+5~
DIR(0	HEAD+5*
>> GMAEN	PRINT+5, HEAD+13
>> GMAST	PRINT+4, HEAD+13
>> GMRACNT	PRINT+32, PRINT+34, PRINT+38*, PRINT+39
>> GMRADATE	PRINT+4, PRINT+5, PRINT+6
>> GMRADDT	PRINT+10, PRINT+13, PRINT+15, PRINT+26, PRINT+27*, PRINT+29, PRINT+30
>> GMRADFN	PRINT+10*, PRINT+11, PRINT+13, PRINT+14
>> GMRADIED	PRINT+14, PRINT+15, PRINT+30, PRINT+36
>> GMRADPDT	PRINT+3*, HEAD+11
>> GMRANAME	PRINT+12, PRINT+13, PRINT+15, PRINT+20, PRINT+21*, PRINT+23, PRINT+25, PRINT+27, PRINT+29, PRINT+30
>> GMRAOUT	EN1+2, EN1+4, PRINTER+1, PRINT+18, PRINT+21, PRINT+23, PRINT+24, PRINT+27, PRINT+29, PRINT+37 , PRINT+38, PRINT+39, PRINT+43, HEAD+2, HEAD+4, HEAD+5, HEAD+9, HEAD+17
>> GMRAPA1	PRINT+6, PRINT+7, PRINT+15, PRINT+28, PRINT+29*, PRINT+30, PRINT+31, PRINT+33
>> GMRAPA1(0	PRINT+7*, PRINT+8, PRINT+9, PRINT+10
>> GMRAPG	PRINT+4, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+11, HEAD+16
>> GMRAPID	PRINT+12, PRINT+13, PRINT+15, PRINT+22, PRINT+23*, PRINT+25, PRINT+27, PRINT+29, PRINT+30
GMRARX	PRINT+32!
GMRARX(	PRINT+34*, PRINT+38, PRINT+39
GMRARX(1	PRINT+36
>> GMRAX	PRINT+32, PRINT+33, PRINT+34
GMRAZIS	PRINTER+1!
IO	PRINTER+7
IO("Q"	PRINTER+2
IO(0	PRINTER+7
IOF	HEAD+3, HEAD+10
IOSL	HEAD+1
IOST	HEAD+2
>> POP	PRINTER+1
U	PRINT+8, PRINT+9, PRINT+10, PRINT+14, PRINT+31
>> X	PRINT+3
Y	HEAD+5, HEAD+6!
>> ZTDESC	PRINTER+4*
>> ZTQUEUED	HEAD+17
>> ZTRTN	PRINTER+3*
>> ZTSAVE("GMAEN"	PRINTER+3*
>> ZTSAVE("GMAST"	PRINTER+3*
>> ZTSAVE("GMRAOUT"	PRINTER+3*
>> ZTSK	PRINTER+5

Information