Routine: GMRAFDA3

Call Graph

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN
Adverse Reaction Tracking	3	PRT^GMRAFDA1 (CLOSE,DEV)^GMRAUTL ($$DATE,$$PRDTST)^GMRAUTL1
VA Fileman	2	YN^DICN ^DIR
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PRINT-FDA REPORT BY DT

Name	Comments	DBIA/ICR reference
HEAD	;Header Print
PRINTER	;Select printer
HDR	;
YN
HDR1
EN1	; Entry for PRINT ALL FDA EVENTS WITHIN D/T RANGE option
EN2	;
EXIT	;EXIT
PRINT	;Central Print

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want an Abbreviated report" Line Location: YN+0
Function Call: WRITE	Prompt: !,"ENTER ""Y"" FOR YES OR ""N"" FOR NO",$C(7) Line Location: YN+0
Function Call: WRITE	Prompt: ! Line Location: PRINTER+2
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: PRINTER+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: $P(Y,":",1,2) Line Location: PRINT+16
Function Call: WRITE	Prompt: $P(Y,":",1,2),")" Line Location: PRINT+18
Function Call: WRITE	Prompt: !,?30,"NO DATA FOR THIS REPORT" Line Location: PRINT+22
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: GMRANOW,?70,"Page: ",GMRAPG Line Location: HDR1+1
Function Call: WRITE	Prompt: !,?30,"FDA ABBREVIATED REPORT" Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"PATIENT",?32,"SUSPECTED AGENT",?62,"D/T OF EVENT" Line Location: HDR1+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: HDR1+4
Routine Call	DIR Line Location: EN1+3 EN1+7 HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+14
^GMR(120.8 - [#120.8]	PRINT+6, PRINT+10
^GMR(120.85 - [#120.85]	PRINT+5, PRINT+6, PRINT+9, PRINT+17, PRINT+18
^TMP($J	EXIT+1!

Name	Line Occurrences
EXIT	EN1+4, EN1+8, YN+1, PRINTER+2, PRINTER+3, PRINTER+10
HDR1	PRINT+4
HEAD	PRINT+8
PRINT	PRINTER+8

Name	Field # of Occurrence
>> %	YN*, YN+2
DFN	PRINT+11*, PRINT+12, PRINT+14!
DIR	EN1+1!, EN1+3!, EN1+7!, HDR+1!
DIR("A"	EN1+2, EN1+6
DIR("B"	EN1+6*
DIR(0	EN1+2, EN1+6, HDR+1*
>> DIRUT	EN1+4, EN1+8
>> GMRABGDT	EN1+5, EN1+6, EN2+1, PRINT+5*
GMRACNT	PRINT+1~, PRINT+13, PRINT+22
>> GMRAENDT	EN1+9, EN2+2, PRINT+5
>> GMRAFLG	PRINT+2*
>> GMRANOW	PRINT+2*, HDR1+1
>> GMRAOUT	EN1+1, YN, YN+1, PRINTER+1, PRINT+5, PRINT+8, HDR+1
>> GMRAPA(0	PRINT+10*, PRINT+11, PRINT+15, PRINT+20!
>> GMRAPA1	PRINT+5*, PRINT+6, PRINT+9, PRINT+17, PRINT+18
>> GMRAPA1(0	PRINT+9*, PRINT+10, PRINT+16, PRINT+20!
>> GMRAPG	PRINTER+1, HDR1, HDR1+1
>> GMRAYN	YN+2*, PRINTER+2, PRINT+4, PRINT+7
GMRAZIS	PRINTER+2!*
IO	PRINTER+8
IO("Q"	PRINTER+3
IO(0	PRINTER+8
IOF	PRINT+3, HDR+2
IOSL	PRINT+8
IOST	PRINT+3, HDR+1
>> POP	PRINTER+2
U	PRINT+6, PRINT+10, PRINT+11, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18
VA	PRINT+14!
VA("PID"	PRINT+14
Y	EN1+5!, EN1+9!, PRINT+16!, PRINT+18!, HDR+1
>> ZTDESC	PRINTER+5*
>> ZTRTN	PRINTER+4*
>> ZTSAVE("GMRABGDT"	PRINTER+4*
>> ZTSAVE("GMRAENDT"	PRINTER+4*
>> ZTSAVE("GMRAOUT"	PRINTER+4*
>> ZTSAVE("GMRAPG"	PRINTER+4*
>> ZTSAVE("GMRAYN"	PRINTER+4*
>> ZTSK	PRINTER+6