Routine: GMRAFDA3

Information

GMRAFDA3 ;HIRMFO/WAA-DISPLAY FDA REPORT OVER DT RANGE ;12/1/95 11:34

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

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