PRCHITX ;WOIFO/LKG-SELECTING ITEMS USED IN LAST 12 MONTHS ;1/27/05 10:56
Source file <PRCHITX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
IN | ;Entry point
|
|
ONEYRAGO() | ;Returns FileMan date of one year ago
|
|
DATEGTR(X,Y) | ;Tests if first date is greater than second
|
|
GETPONUM(PRCDA) | ;Returns PO Number
|
|
GETSTAT(PRCDA) | ;Returns Supply Status Order
|
|
STATUSOK(X) | ;Checks if Supply Status Order value okay for selection
|
|
GETPODT(PRCDA) | ;Returns P.O. Date in FileMan date format
|
|
GETFCP(PRCDA) | ;Returns Fund Control Point
|
|
MOPOK(PRCDA) | ;Checks Method of Processing
|
|
GETVENDR(PRCDA) | ;Returns Vendor ID
|
|
GETITMID(PRCDA,PRCDA1) | ;Returns Item Master File Ien
|
|
GETUOP(PRCDA,PRCDA1) | ;Returns Unit of Purchase
|
|
GETPKGM(PRCDA,PRCDA1) | ;Returns Packaging Multiple
|
|
GETFSC(PRCDA,PRCDA1) | ;Returns Federal Supply Classification
|
|
GETNSN(PRCDA,PRCDA1) | ;Returns National Stock Number
|
|
GETSTKNO(PRCDA,PRCDA1) | ;Returns Vendor Stock Number
|
|
GETNDC(PRCDA,PRCDA1) | ;Returns National Drug Code
|
|
GETCONTR(PRCDA,PRCDA1) | ;Returns Contract/BOA #
|
|
ITEMACT(X) | ;Checks if item is active
|
|
GETMPNUM(X) | ;Returns Manufacturer Part Number
|
|
GETSDESC(X) | ;Returns Item Short Description
|
|
GETVNAME(X) | ;Returns Vendor Name
|
|
GETTIN(X) | ;Returns Tax ID Number or Social Security Number
|
|
GETPOC(X) | ;Returns Vendor Point of Contact
|
|
GETPHONE(X) | ;Returns Vendor's Phone Number
|
|
REUSABLE(PRCDA) | ;Returns 1 if item is reusable or 0 if not
|
|
LASTVDR(PRCDA) | ;Returns vendor ID
|
|
CONTRACT(PRCDA,PRCDA1) | ;Returns Contract #
|
|
STKNO(PRCDA,PRCDA1) | ;Returns vendor stock #
|
|
UOP(PRCDA,PRCDA1) | ;Returns Unit of Purchase
|
|
PKGMULT(PRCDA,PRCDA1) | ;Returns Packaging Multiple
|
|
NDC(PRCDA,PRCDA1) | ;Returns NDC
|
|
FSC(PRCDA) | ;Returns Federal Supply Classification
|
|
NSN(PRCDA) | ;Returns National Stock Number
|
|
FCP(PRCDA) | ;Returns FCP
|
|
DATE(X) | ;Processes date in VA FileMan format and returns date as 'DD-MON-YYYY'
|
|
GETSTATN() | ;Returns station number of VistA installation
|
|
NIFITEM(X) | ;Checks if item already has NIF Item #
|
|
ACCNT(X) | ;Returns vendor account number
|
|
VDRLSTD(X) | ;Returns vendor with highest ID from item's VENDOR multiple
|
|
INVVNDR(PRCX) | ;Returns inv's mandatory/requested source of item on trxn
|
|
FCPINV(PRCX) | ;Get FCP for Inv Transaction
|
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GET1^DIQ |