Routine: GMRCSTLA

Information

GMRCSTLA ;SLC/JFR,WAT - DRIVER FOR LOCAL CSLT COMPL RATE ;

Name	Comments	DBIA/ICR reference
EN
ENOR(RETURN,GMRCSVC,GMRCDT1,GMRCDT2,GMRCSTAT,GMRCARRN)	;Entry point
PRNTQ
HEAD(PAGE)	; print header
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+24
Function Call: WRITE	Prompt: !,$J("",23)_"Local Consult Completion Rates" Line Location: PRNTQ+6
Function Call: WRITE	Prompt: !,$J("",40-($L(TEMP)/2)+.5)_TEMP,! Line Location: PRNTQ+9
Function Call: WRITE	Prompt: !!,"No records to print" Line Location: PRNTQ+11
Function Call: WRITE	Prompt: !!,"No records to print",! Line Location: PRNTQ+14
Function Call: WRITE	Prompt: ^TMP("GMRCR",$J,GMRCFMT,IDX,0),! Line Location: PRNTQ+24
Function Call: WRITE	Prompt: !!!,$$REPEAT^XLFSTR("-",IOM-5) Line Location: PRNTQ+28
Function Call: WRITE	Prompt: !,"Consult services with no activity meeting the criteria of this report in",!,"the specified date range:",! Line Location: PRNTQ+29
Function Call: WRITE	Prompt: ?4,IDX,! Line Location: PRNTQ+39
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: "Local Consult Completion Rates",?40,$$HTE^XLFDT($H) Line Location: HEAD+2
Function Call: WRITE	Prompt: ?73,"Page: ",PAGE,! Line Location: HEAD+3
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",IOM-2),! Line Location: HEAD+4