Routine: ECXPROCT

Information

ECXPROCT ;ALB/GTS - ProstheticS Cost by PSAS HCPC Report DSS ;4/27/16 16:31

Name	Comments	DBIA/ICR reference
EN	;entry point from option
EN1	;Tasked entry point
GETDATA	;Get data
HEADER	;print header
DETAIL	;Print detailed line
TOTAL	;Report totals
WAIT	;End of page logic
EXIT	;Kill temp global
FOOTER	;154 Section added to print the form requested on key at the end of the report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY ",!! Line Location: EN+23
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Cost by PSAS HCPC REPORT for "_$P($$SITE^VASITE,U,2)_" station "_$P($$SITE^VASITE,U,3),?120,"Page: ",PAGENUM Line Location: HEADER+5
Function Call: WRITE	Prompt: !!,"Report for ",$$FMTE^XLFDT(ECSD1)," thru ",$$FMTE^XLFDT(ECED) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,?1,"PSAS HCPC",?11,"FEEDER KEY",?30,"DESCRIPTION",?89,"FORM",?98,"QTY",?104,"Unit of Issue",?126,"Cost" Line Location: HEADER+7
Function Call: WRITE	Prompt: !?1,LN Line Location: HEADER+8
Function Call: WRITE	Prompt: !,?11,$P($P(NODE,U,2),"/",2) Line Location: DETAIL+15
Function Call: WRITE	Prompt: !!,?118,DASH Line Location: TOTAL+3
Function Call: WRITE	Prompt: !?90,"Grand Total: ",?118,"$ "_$$RJ^XLFSTR($FNUMBER(ECXTCOST,",",2),11) Line Location: TOTAL+4
Function Call: WRITE	Prompt: ! Line Location: WAIT+8
Function Call: WRITE	Prompt: !,"FORM:" Line Location: FOOTER+1
Function Call: WRITE	Prompt: !,"1:PSC",?10,"2:2421",?18,"3:2237",?34,"4:2529-3",?54,"5:2529-7",?74,"6:2472",?83,"7:2431",?99,"8:2914" Line Location: FOOTER+2
Function Call: WRITE	Prompt: !,"9:OTHER",?9,"10:2520",?17,"11:STOCK ISSUE",?33,"12:INVENTORY ISSUE",?53,"13:HISTORICAL DATA",?73,"14:VISA",?82,"15:LAB ISSUE-3",?98,"16:DALC" Line Location: FOOTER+3