Routine: PRCPRNON

Information

PRCPRNON ;WISC/RFJ-nonissuable item report ;20 Apr 92

Name	Comments	DBIA/ICR reference
DQ	;queue comes here
H
BUILD	; set up tmp global for printing ; tmp($j,"noniss",nsn,item number) = description ^ unit per ; issue ^ quantity on-hand ^ quantity non-issuable.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ONLY THE WAREHOUSE CAN USE THIS OPTION." Line Location: PRCPRNON+6
Function Call: WRITE	Prompt: ! Line Location: PRCPRNON+10
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRNON+13
Function Call: WRITE	Prompt: !!,$S(NSN=" ":" NO NSN ",1:NSN),?19,$E($P(DATA,"^"),1,25),?47,"[#",ITEMDA,"]",?57,$J($P(DATA,"^",3),9),$J($P(DATA,"^",2),14),!?30,"QUANTITY IN NON-ISSUABLE: ",$J($P(DATA,"^",4),10) Line Location: DQ+16
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+18
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"NON-ISSUABLE STOCK REPORT FOR ",PRCP("IN"),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"NSN",?19,"DESCRIPTION",?47,"[#MI]",?55,"QTY ON-HAND",?77,"U/I" Line Location: H+2
Function Call: WRITE	Prompt: !,% Line Location: H+3