Routine: ECXLPRO1

Information

ECXLPRO1 ;ALB/JAP - PRO Extract YTD Lab Report (cont) ;3/4/13 16:29

Name	Comments	DBIA/ICR reference
PRINT	;print report
HEADER	;header & page control

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: PRINT+33
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "Prosthetics (PRO) Extract YTD Laboratory Report",?122,"Page "_PG Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"FY Date Range: "_ECXSTART_" to "_ECXEND Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"Facility: "_$P(ECXPRIME,U,3)_" ("_$P(ECXPRIME,U,2)_")" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"Run Date/Time: "_ECXRUN Line Location: HEADER+9
Function Call: WRITE	Prompt: !,?37,"Produced for Station #"_$P(ECXPRIME,U,2),?86,"Produced for all other stations" Line Location: HEADER+12
Function Call: WRITE	Prompt: !,"PSAS HCPCS",?37,"Qty.",?44,"Labor $",?55,"Mat'l $",?67,"Ave. $",?86,"Qty.",?94,"Labor $",?105,"Mat'l $",?117,"Ave. $" Line Location: HEADER+13
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+14