Routine: PRCPUX1

Information

PRCPUX1 ;WISC/RFJ/DGL/DWA-extrinsic functions ; 7/22/99 3:08pm

Source file <PRCPUX1.m>

Name	Comments	DBIA/ICR reference
UNIT(INVPT,ITEMDA,DELIM)	; unit per issue for inventory point and item ; if delim delimiter : pkgmult delim units (1 per EA)
UNITVAL(PKGMULT,UNITS,DELIM)	; unit per issue for values passed as follows:	ICR #259 Status: Active Usage: Controlled Subscription
SKU(INVPT,ITEMDA)	; get the sku for an item in the item master file
UNITCODE(UNITS)	; get 2 character unit code from file 420.5	ICR #259 Status: Active Usage: Controlled Subscription
NSN(ITEMDA)	; return nsn for itemda	ICR #259 Status: Active Usage: Controlled Subscription
FSC(ITEMDA)	; return FSC as NSN for a given ITEMDA
ACCT(NSN)	; return account code for nsn (first 4 digits)
ACCT1(NSN)	; return account code for nsn for GIP
FOOD(ITEMDA)	; return food group for itemda
DESCR(INVPT,ITEMDA)	; description from inventory point or item master file	ICR #259 Status: Active Usage: Controlled Subscription ICR #353 Status: Active Usage: Private
INVNAME(INVPT)	; inventory point name for inventory point	ICR #259 Status: Active Usage: Controlled Subscription
FCPDA(SITE,INVPT)	; returns fund control point da number for site and invpt
VENNAME(VENDA)	; return vendor name for da;global (445 or 440)	ICR #259 Status: Active Usage: Controlled Subscription
VENDOR(INVPT,ITEMDA)	; return vendor number or name