26 lines
1018 B
Mathematica
26 lines
1018 B
Mathematica
PRCPSMA0 ;WISC/RFJ-isms adjustment transaction ;27 Apr 92
|
|
;;5.1;IFCAP;;Oct 20, 2000
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
Q
|
|
;
|
|
ADJUST(INVPTDA,ITEMDA,QTY,VALUE,AVGCOST,BACKORD) ;adjustment transaction
|
|
; invptda = inventory internal entry number
|
|
; itemda = item internal entry number
|
|
; qty = quantity adjustment
|
|
; value = value adjustment
|
|
; avgcost = (optional) use this avgcost if defined
|
|
; backord = set to null for version 4
|
|
;
|
|
; if qty, no value or avgcost.
|
|
; if value, use avgcost but no qty
|
|
;
|
|
; returns 'string("at")' of code sheet
|
|
;
|
|
N NSN,SKU
|
|
S NSN=$TR($$NSN^PRCPUX1(ITEMDA),"-"),SKU=$$SKU^PRCPUX1(INVPTDA,ITEMDA) I SKU["?"!(NSN="") S STRING("AT")="" Q
|
|
I VALUE S VALUE=$P(VALUE,".")_$P($J(VALUE,0,2),".",2)
|
|
I VALUE,'AVGCOST S AVGCOST=+$P($G(^PRCP(445,+INVPTDA,1,+ITEMDA,0)),"^",22)
|
|
I AVGCOST S AVGCOST=$P(AVGCOST,".")_$P($J(AVGCOST,0,2),".",2)
|
|
S STRING("AT")="AT^"_NSN_"^"_SKU_"^"_QTY_"^"_VALUE_"^"_AVGCOST_"^"_BACKORD_"^|"
|
|
Q
|