Routine: PRCPRIIR

Information

PRCPRIIR ;WISC/RFJ-inactive item report (option, whse) ;10 Aug 93

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRCPRIIR+15
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRIIR+18
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+23
Function Call: WRITE	Prompt: !,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,20),?36,ITEMDA Line Location: DQ+24
Function Call: WRITE	Prompt: ?42,$J($P(D,"^"),5),$J($P(D,"^",2),10),$J($P(D,"^",3),6),$J($P(D,"^",4),7),$J($P(D,"^",5),8,2),$J($P(D,"^",6),2) Line Location: DQ+25
Function Call: WRITE	Prompt: !!?30,"TOTAL INACTIVE ITEM VALUE IN STOCK: ",$J(TOTAL,12,2) Line Location: DQ+30
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)",?79,"K" Line Location: H+3
Function Call: WRITE	Prompt: !?42,$J("LAST",5),$J("LAST",10),$J("DUE",6),$J("QTY",7),$J("TOTAL",8),$J("W",2),!,"NSN",?15,"DESCRIPTION",?36,"MI",?42,$J("USAGE",5),$J("RECEIPT",10),$J("OUT",6),$J("ONHND",7),$J("VALUE",8),$J("Z",2),!,% Line Location: H+4