Routine: PRCPRIIP

Information

PRCPRIIP ;WISC/RFJ/VAC-inactive items report (primary, second) ; 10/19/06 9:14am

Name	Comments	DBIA/ICR reference
PRIMARY	; inactive items report for primary and secondary
DQ	; queue starts here
Q
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** NO GROUP CATEGORIES SELECTED !" Line Location: PRIMARY+6
Function Call: WRITE	Prompt: ! Line Location: PRIMARY+17
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRIMARY+21
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+36
Function Call: WRITE	Prompt: !!?5,"GROUP: ",$S(GROUP=" ":"<<NONE>>",1:GROUP) Line Location: DQ+38
Function Call: WRITE	Prompt: !,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,32),?33,ITEMDA Line Location: DQ+41
Function Call: WRITE	Prompt: ?41,"D" Line Location: DQ+42
Function Call: WRITE	Prompt: ?43,$J($P(D,"^"),5),$J($P(D,"^",2),10),$J($P(D,"^",3),5),$J($P(D,"^",4),7),$J($P(D,"^",5),8,2),$J($P(D,"^",6),2) Line Location: DQ+43
Function Call: WRITE	Prompt: !!?30,"TOTAL INACTIVE ITEM VALUE IN STOCK: ",$J(TOTAL,12,2) Line Location: DQ+48
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"INACTIVE ITEM REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"INACTIVE ITEMS RANGE FROM ",DATEFROM," TO ",$P(NOW,"@")," (",TOTDAYS," DAYS)" Line Location: H+3
Function Call: WRITE	Prompt: !?5,NEWHED,?79,"K" Line Location: H+10
Function Call: WRITE	Prompt: !?41,"O" Line Location: H+11
Function Call: WRITE	Prompt: ?44,"LAST",?53,"LAST",?60,"DUE",?67,"QTY",?73,"TOTAL",?79,"W",!,"DESCRIPTION",?36,"IM",?41,"D",?43,"USAGE",?50,"RECEIPT",?60,"OUT",?65,"ONHND",?73,"VALUE",?79,"Z",!,% Line Location: H+12