Routine: GMRAEF

Call Graph

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Adverse Reaction Tracking	2	(CLOSE,DEV)^GMRAUTL ($$DATE,$$STPCK)^GMRAUTL1
VA Fileman	2	NOW^%DTC ^DIR
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRAEF1 GMRAEF2

Name	Comments	DBIA/ICR reference
HEAD	;Header Print
PRINTER	;Select printer
HDR	;
PRT	;Print loop
HDR1
EN1	;This is the main entry point for this routine
EXIT	;EXIT
PRINT	;Central Print

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data for this REPORT." Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: PRINTER+2
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: PRINTER+2
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...") Line Location: PRINTER+8
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?5,"Patient: ",$P(^DPT(GMRDFN,0),U)," (HRN: ",HRCN,")" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?5,"Patient: ",$P(^DPT(GMRDFN,0),U)," (",VA("PID"),")" Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),?70,"Page: ",GMRAPG Line Location: HDR1+1
Function Call: WRITE	Prompt: !,?20,"FDA EXCEPTION REPORT (" Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"ORIGINATION D/T",?20,"CAUSATIVE AGENT",?50,"ORIGINATOR" Line Location: HDR1+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: HDR1+6
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+5
^GMR(120.8 - [#120.8]	PRT+3
^TMP($J	EN1+1, PRINT+5, PRT+2, EXIT+1!
^VA(200 - [#200]	PRT+4

Name	Field # of Occurrence
^(	PRT+2

Name	Field # of Occurrence
>> %	HDR1
>> DFN	PRINT+5*
DIR	HDR+1!
DIR(0	HDR+1*
>> GMRA(0	PRT+3*, PRT+4
>> GMRABGDT	PRINT+5, PRT+2, PRT+4
>> GMRAEDT	PRINTER+6, PRINT+3*, HDR1+3, HDR1+4
>> GMRAIEN	PRT+2*, PRT+3
>> GMRAOUT	PRINTER+1, PRINTER+2, PRINT+5, PRT+1, HDR+1, HDR1+7
>> GMRAPG	PRINTER+1, HDR1, HDR1+1
>> GMRASTDT	PRINTER+5, PRINT+2*, HDR1+3, HDR1+4
GMRAZIS	PRINTER+2!
>> GMRDFN	PRINT+5*, PRT+2
HRCN	PRINT+5, EXIT+1!
IO	PRINTER+10
IO("Q"	PRINTER+3
IO(0	PRINTER+10
IOF	PRINT+1, HDR+2
IOSL	PRT+1
IOST	PRINT+1, HDR+1
>> POP	PRINTER+2
U	PRINT+5, PRT+4
VA	PRINT+5!
>> Y	HDR+1, HDR1*, HDR1+1
>> ZTDESC	PRINTER+7*
>> ZTQUEUED	HDR1+7
>> ZTRTN	PRINTER+4*
>> ZTSAVE("GMRAEDT"	PRINTER+6*
>> ZTSAVE("GMRAOUT"	PRINTER+4*
>> ZTSAVE("GMRAPG"	PRINTER+4*
>> ZTSAVE("GMRASTDT"	PRINTER+5*
>> ZTSAVE("^TMP($J,""GMRAEF"","	PRINTER+4*
>> ZTSK	PRINTER+8