Routine: PRCPRCTA

Information

PRCPRCTA ;WISC/RFJ-cost trend analysis (option, whse) ;26 May 93

Name	Comments	DBIA/ICR reference
DQ	; queue starts here
H

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRCPRCTA+14
Function Call: WRITE	Prompt: ! Line Location: PRCPRCTA+17
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRCTA+20
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+19
Function Call: WRITE	Prompt: !!,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,18),?34,$J(ITEMDA,6),$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),10) Line Location: DQ+22
Function Call: WRITE	Prompt: $J($P(D,"^"),10,2),$J($P(D,"^",2),10,2),$J($P(D,"^",3),10,2) Line Location: DQ+24
Function Call: WRITE	Prompt: !?5,HDR,!?5,DATA Line Location: DQ+31
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: !,"NSN",?15,"DESCRIPTION",?38,"MI",$J("UNIT/IS",10),$J("CUM AVG",10),$J(CURDT,10),$J("%CHANGE",10),!,% Line Location: H+3