Routine: PRCPAWA0

Information

PRCPAWA0 ;WISC/RFJ-adjust whse inventory point ;11 Mar 94

Name	Comments	DBIA/ICR reference
SHOWDATA(INVPT,ITEMDA)	; show inventory item data

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ONLY THE WAREHOUSE CAN USE THIS OPTION." Line Location: PRCPAWA0+3
Function Call: WRITE	Prompt: ! Line Location: PRCPAWA0+8
Function Call: WRITE	Prompt: !,"ITEM IS NOT STORED IN THE INVENTORY POINT." Line Location: SHOWDATA+1
Function Call: WRITE	Prompt: !!,"===================== C U R R E N T I T E M D A T A =====================" Line Location: SHOWDATA+2
Function Call: WRITE	Prompt: !,"ITEM NUMBER: ",ITEMDA,?23,$E($$DESCR^PRCPUX1(INVPT,ITEMDA),1,30),?58,"NSN: ",$$NSN^PRCPUX1(ITEMDA) Line Location: SHOWDATA+3
Function Call: WRITE	Prompt: !?5,"UNIT/ISSUE : ",$$UNIT^PRCPUX1(INVPT,ITEMDA,"/") Line Location: SHOWDATA+4
Function Call: WRITE	Prompt: !?5,"AVERAGE COST : ",$J(+$P(ITEMDATA,"^",22),0,2) Line Location: SHOWDATA+5
Function Call: WRITE	Prompt: !?5,"LAST COST : ",$J(+$P(ITEMDATA,"^",15),0,2) Line Location: SHOWDATA+6
Function Call: WRITE	Prompt: ! Line Location: SHOWDATA+7
Function Call: WRITE	Prompt: !?5,"TOTAL VALUE : ",$J(+$P(ITEMDATA,"^",27),0,2) Line Location: SHOWDATA+8
Function Call: WRITE	Prompt: !?5,"QTY ON-HAND : ",$P(ITEMDATA,"^",7) Line Location: SHOWDATA+9
Function Call: WRITE	Prompt: !?5,"QTY NON-ISSUABLE: ",$P(ITEMDATA,"^",19) Line Location: SHOWDATA+10