STANDARD DATA DICTIONARY #661.41 -- HCPCS INVENTORY ORDER AND REORDER FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.41, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the PSAS HCPCS order and reorder entries. An entry is created when an order is entered or created by the user.
DD ACCESS: @
RD ACCESS:
WR ACCESS:
DEL ACCESS: @
LAYGO ACCESS:
AUDIT ACCESS: @
CROSS
REFERENCED BY: DATE ORDERED(B)
INDEXED BY: STATION & STATUS & HCPCS & HCPCS ITEM & DATE ORDERED (ASSHID)
661.41,.01 DATE ORDERED 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 25, 2001
DESCRIPTION:
This is the date when an item is ordered.
CROSS-REFERENCE: 661.41^B
1)= S ^RMPR(661.41,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.41,"B",$E(X,1,30),DA)
RECORD INDEXES: ASSHID (#22)
661.41,1 HCPCS ITEM 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 25, 2001
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
This is the Item number of an HCPCS Item.
RECORD INDEXES: ASSHID (#22)
661.41,2 STATION 0;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: APR 25, 2001
DESCRIPTION:
This is the staton where an HCPCS belong to.
RECORD INDEXES: ASSHID (#22)
661.41,4 VENDOR 0;5 POINTER TO VENDOR FILE (#440)
LAST EDITED: APR 23, 2001
DESCRIPTION:
A pointer to Vendor file in IFCAP.
661.41,5 HCPCS 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5) X
LAST EDITED: SEP 26, 2005
HELP-PROMPT: Answer must be 5-20 characters in length.
DESCRIPTION:
This is the PSAS HCPCS as entered in 01 field of file # 661.1.
RECORD INDEXES: ASSHID (#22)
661.41,6 DATE RECIEVED 0;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 23, 2001
DESCRIPTION:
The date date when an Item is recieved.
661.41,7 QTY ORDERED 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 23, 2001
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
A number that signifies the quantity being being ordered.
661.41,8 QTY RECIEVED 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 23, 2001
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
A number that signifies the quatity recieved.
661.41,9 COMMENTS 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: APR 23, 2001
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION: This is a free text field that can be used for comments or any description of an item being
ordered.
661.41,10 STATUS 0;11 SET
'C' FOR CANCELLED;
'O' FOR OPEN;
'R' FOR RECEIVED;
LAST EDITED: APR 25, 2001
RECORD INDEXES: ASSHID (#22)
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#2)
VENDOR (#440) VENDOR (#4)
File #661.41
Record Indexes:
ASSHID (#22) RECORD REGULAR IR SORTING ONLY
Short Descr: Index by Station, Status, HCPS, Item, Order Date
Set Logic: S ^RMPR(661.41,"ASSHID",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)=""
Kill Logic: K ^RMPR(661.41,"ASSHID",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)
Whole Kill: K ^RMPR(661.41,"ASSHID")
X(1): STATION (661.41,2) (Subscr 1) (forwards)
X(2): STATUS (661.41,10) (Subscr 2) (forwards)
X(3): HCPCS (661.41,5) (Subscr 3) (Len 30) (forwards)
X(4): HCPCS ITEM (661.41,1) (Subscr 4) (forwards)
X(5): DATE ORDERED (661.41,.01) (Subscr 5) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):