Routine: GMRAFDA1

Package	Total	Call Graph
Adverse Reaction Tracking	3	^GMRAFN1 EN1^GMRAU85 (CLOSE,DEV)^GMRAUTL
Kernel	3	^%ZTLOAD $$FMTE^XLFDT KILL^XUSCLEAN
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA PRINT-FDA REPORT GMRAFDA3

Entry Points

Name	Comments	DBIA/ICR reference
PRINT2	;PRINT THE SECOND PAGE OF ANY REMAINING DATA
PRT
ERCHK()	; check for "ER" node to screen out entered-in-error entries
EN1	;Entry to PRINT AN FDA REPORT FOR A PATIENT option
DEV1
SET	; set up variables for question mark help
EXIT	;
PRINT	; ENTRY POINT TO BEGIN PRINTING THIS REPORT
LKP	; ADDITIONAL LOOKUP ON 120.85

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS REPORT SHOULD BE SENT TO A 132 COLUMN PRINTER.",! Line Location: DEV1+0
Function Call: WRITE	Prompt: !,"PLEASE TRY AGAIN LATER" Line Location: DEV1+1
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: ?GMRATAB,"SUSPECT MEDICATION: ",$P($G(^GMR(120.8,GMRASUS,0)),U,2) Line Location: PRINT2+6
Function Call: WRITE	Prompt: "-" Line Location: PRINT2+10
Function Call: WRITE	Prompt: "-" Line Location: PRINT2+21
Function Call: WRITE	Prompt: "-" Line Location: PRINT2+32
Function Call: WRITE	Prompt: "-" Line Location: PRINT2+39
Function Call: WRITE	Prompt: " ",$$FMTE^XLFDT($P(^GMR(120.85,+Y,0),U),"2S") Line Location: LKP+2
Function Call: WRITE	Prompt: " ",$P($G(^GMR(120.8,$P(GMRA,U,15),0)),U,2) Line Location: LKP+3
Function Call: WRITE	Prompt: $E(@(DIC_+Y_",0)"),0) Line Location: LKP+4

FileNo	Call Tags
^GMR(120.85 - [#120.85]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN1+2
^GMR(120.8 - [#120.8]	PRINT2+6, LKP+3, ERCHK+1, ERCHK+2
^GMR(120.85 - [#120.85]	LKP+1, LKP+2
^TMP($J	PRT+1, PRINT2+9, PRINT2+13, PRINT2+14!, PRINT2+15, PRINT2+16, PRINT2+17, PRINT2+20, PRINT2+23, PRINT2+24 , PRINT2+27, PRINT2+29, PRINT2+30!, PRINT2+31, PRINT2+34, PRINT2+35, PRINT2+38, PRINT2+41, PRINT2+42, EXIT+1!
^UTILITY($J	PRINT2+12!, PRINT2+15, PRINT2+28!, PRINT2+31

Name	Field # of Occurrence
^(	PRINT2+24, PRINT2+42

Name	Field # of Occurrence
>> D	SET+1*
>> DIC	LKP+4, SET+1*
>> DIC("S"	SET+2*
>> DIC("W"	SET+1*
>> DIC(0	SET+1*
>> DIWF	PRINT2+12, PRINT2+28
>> DIWL	PRINT2+12, PRINT2+28
>> DIWR	PRINT2+12, PRINT2+28
>> DLAYGO	SET+1*
>> DZ	SET+1*
GMRA	LKP+1~*, LKP+2, LKP+3
>> GMRA1208	ERCHK+1, ERCHK+2
>> GMRAID	PRINT2+4
>> GMRALAGO	EN1+1*
>> GMRANAM	EN1+2*, DEV1+3, SET+1
>> GMRAOUT	EN1+1, DEV1+1, PRINT2+16, PRINT2+23, PRINT2+34, PRINT2+41
>> GMRAPA(0	EN1+2
>> GMRAPA1	EN1+1
>> GMRAPA1(0	PRINT2+5, PRINT2+7
GMRASUS	PRINT2+2~, PRINT2+5*, PRINT2+6
GMRATAB	PRINT2+2~, PRINT2+6*
>> GMRAX	PRINT2+11, PRINT2+12, PRINT2+13, PRINT2+16, PRINT2+17, PRINT2+23, PRINT2+24, PRINT2+28, PRINT2+29, PRINT2+33 , PRINT2+34, PRINT2+35, PRINT2+40, PRINT2+41*, PRINT2+42
>> GMRAZIS	DEV1+1*
>> I	PRINT2+10, PRINT2+21, PRINT2+32, PRINT2+39
IO	PRINT+1
IO("Q"	DEV1+2, DEV1+4!
IO(0	PRINT+1
IOF	PRT+1
>> POP	DEV1+1
U	EN1+2, PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+24, LKP+2, LKP+3
>> X	PRINT2+13, PRINT2+15, PRINT2+29, PRINT2+31, PRINT2+42, SET+1
Y	PRINT2+24*!, LKP+1, LKP+2, LKP+4
>> ZTDESC	DEV1+3*
>> ZTRTN	DEV1+3*
>> ZTSAVE("GMRAPA1"	DEV1+3*
>> ZTSK	DEV1+5