PRCPSFSV ;WOIFO/RFJ,LKG-create fms sv adjustment code sheet ;7/8/05 10:11
Source file <PRCPSFSV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SV(INVPT,TRANID,TRANDATE,STACKDA) | ; create fms sv document for adjustment
; tranid=transaction register id number ; pass trandate for optional FMS acctg period, otherwise it uses the ; transaction date ; pass stackda for regeneration of document ; loop transaction register for adjusted items ; variables required: ; prcpwbfy = whse beg fy ; prcpwfcp = whse fcp ; prcpwsta = whse station # |
|
| SVCOTS | ;Entry point for SV from COTS inventory transaction
; set up document variables ; table=^^xprogram(fcp/prj)^^linefund^beginfy^endfy^^^job |
|
| TRANTYPE(TYPE,ACCT) | ; return transaction type based on type (1-7) and acct
; type=1:transfer stock to VAMC whse ; type=2:sale of stock to OGA ; type=3:transfer excess stock to GSA ; type=4:adjustment to stock valuation ; type=5:writeoff damaged stock ; type=6:transfer transportation to stock ; type=7:inventory refund adjustment |
