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 |
