Routine: ECXCPRO1

Information

ECXCPRO1 ;ALB/JAP - PRO Extract YTD Report (cont) ;12/4/19 10:02

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
Function Call: WRITE	Prompt: ! Line Location: PRINT+26
Function Call: WRITE	Prompt: ! Line Location: PRINT+48
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "Prosthetics (PRO) Extract YTD HCPCS 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: !,"Division: "_$P(DIVISION(ECXSTAT),U,3)_" ("_$P(DIVISION(ECXSTAT),U,2)_")" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"Facility: "_$P(ECXPRIME,U,3)_" ("_$P(ECXPRIME,U,2)_")" Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"Run Date/Time: "_ECXRUN Line Location: HEADER+10
Function Call: WRITE	Prompt: !,?36,"Qty.",?44,"Total $",?55,"Ave. $",?67,"Qty.",?74,"Total $",?85,"Ave. $",?97,"Qty.",?104,"Total $",?114,"Ave. $",?125,"Ave. $" Line Location: HEADER+14
Function Call: WRITE	Prompt: !,"PSAS HCPCS",?35,"-Comm-",?44,"-Comm-",?55,"-Comm-",?67,"-VA-",?75,"-VA-",?85,"-VA-",?96,"-Lab-",?105,"-Lab-",?114,"-Lab-",?125,"-All-" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+16