Routine: GMRAPST2

Information

GMRAPST2 ;HIRMFO/WAA- PRINT SUM LISTING OF OUT COMES ;3/5/97 14:50

Name	Comments	DBIA/ICR reference
EN1	; This routine will loop through the ADT entry point to get all ; the entries in that date range.
EXIT	; Exit of program kill cleanup
PRINTER	;Select printer
PRINT	;Queue point for report
HEAD	; Print header information
TEXT	;;these are the labels that will denote the field data

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: !,?30," ---------------------------------------" Line Location: PRINT+34
Function Call: WRITE	Prompt: !,?32,"Totals: ",?42,GMRAY,?53,"\| ",GMRAN,?63,"\| ",GMRANU Line Location: PRINT+35
Function Call: WRITE	Prompt: !!,?22,"Total number of records processed ",GMRATOT Line Location: PRINT+36
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: !,?30,"Summary of Outcomes" 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: !,?42,"Yes",?55,"No",?65,"No Response" Line Location: HEAD+14
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+15