Routine: PRCPRCTP

Information

PRCPRCTP ;WISC/RFJ/DST-cost trend analysis (primary) ;26 May 93

Name	Comments	DBIA/ICR reference
PRIMARY	; cost trend analysis for primary ; There is no Cost Trend Analysis for secondary
DQ	; queue starts here
Q
H

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRIMARY+10
Function Call: WRITE	Prompt: ! Line Location: PRIMARY+13
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRIMARY+16
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+19
Function Call: WRITE	Prompt: !!,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,33),?35,$J(ITEMDA,6),?42,$S(ODI="Y":"D",1:""),?43,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),8) Line Location: DQ+25
Function Call: WRITE	Prompt: $J($P(D,"^"),9,2),$J($P(D,"^",2),10,2),$J($P(D,"^",3),10,2) Line Location: DQ+27
Function Call: WRITE	Prompt: !?5,HDR,!?5,DATA Line Location: DQ+34
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"COST TREND ANALYSIS FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"CUM AVG CALCULATED FROM DATE RANGE: ",DATESDT," TO ",DATEEDT Line Location: H+2
Function Call: WRITE	Prompt: !,"DESCRIPTION",?38,"IM",?42,"OD",$J("UNIT/IS",9),$J("CUM AVG",9),$J(CURDT,9),$J("%CHANGE",9),!,% Line Location: H+3