| 1 | PRCPAWA0 ;WISC/RFJ-adjust whse inventory point ;11 Mar 94
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | D ^PRCPUSEL Q:'$D(PRCP("I")) I PRCP("DPTYPE")'="W" W !,"ONLY THE WAREHOUSE CAN USE THIS OPTION." Q
|
|---|
| 5 | I $$CHECK^PRCPCUT1(PRCP("I")) Q
|
|---|
| 6 | N %,%H,%I,D,DI,DISYS,DQ,TYPE,X,Y
|
|---|
| 7 | S X="" W ! D ESIG^PRCUESIG(DUZ,.X) I X'>0 Q
|
|---|
| 8 | S DIR(0)="SO^1:Issue Book Adjustment;2:Non-Issuable or Issuable Adjustment;3:Other (GIP and FMS) Adjustment;"_$S($$KEY^PRCPUREP("PRCPW MGRKEY",DUZ):"4:Supply Only (GIP) Adjustment;",1:""),DIR("A")="Select TYPE of ADJUSTMENT"
|
|---|
| 9 | W ! D ^DIR K DIR I Y'=1,Y'=2,Y'=3,Y'=4 Q
|
|---|
| 10 | S TYPE=Y,IOP="HOME" D ^%ZIS K IOP
|
|---|
| 11 | I TYPE=1 D ISUEBOOK^PRCPAWI0 Q
|
|---|
| 12 | I TYPE=2 D NONISSUE^PRCPAWN0 Q
|
|---|
| 13 | I TYPE=3 D OTHER^PRCPAWO0
|
|---|
| 14 | I TYPE=4 D SUPPLY^PRCPAWS0
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | SHOWDATA(INVPT,ITEMDA) ; show inventory item data
|
|---|
| 19 | S ITEMDATA=$G(^PRCP(445,INVPT,1,ITEMDA,0)) I ITEMDATA="" W !,"ITEM IS NOT STORED IN THE INVENTORY POINT." Q
|
|---|
| 20 | W !!,"===================== C U R R E N T I T E M D A T A ====================="
|
|---|
| 21 | W !,"ITEM NUMBER: ",ITEMDA,?23,$E($$DESCR^PRCPUX1(INVPT,ITEMDA),1,30),?58,"NSN: ",$$NSN^PRCPUX1(ITEMDA)
|
|---|
| 22 | W !?5,"UNIT/ISSUE : ",$$UNIT^PRCPUX1(INVPT,ITEMDA,"/")
|
|---|
| 23 | W !?5,"AVERAGE COST : ",$J(+$P(ITEMDATA,"^",22),0,2)
|
|---|
| 24 | W !?5,"LAST COST : ",$J(+$P(ITEMDATA,"^",15),0,2)
|
|---|
| 25 | W !
|
|---|
| 26 | W !?5,"TOTAL VALUE : ",$J(+$P(ITEMDATA,"^",27),0,2)
|
|---|
| 27 | W !?5,"QTY ON-HAND : ",$P(ITEMDATA,"^",7)
|
|---|
| 28 | W !?5,"QTY NON-ISSUABLE: ",$P(ITEMDATA,"^",19)
|
|---|
| 29 | Q
|
|---|
