STANDARD DATA DICTIONARY #661.7 -- PROSTHETIC CURRENT STOCK FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.7, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file implements the concept of 'First In First Out' (FIFO) stock accounting.
Whenever stock items are brought into stock on a given date an entry will be created for that date for the relevant HCPC item,
location, vendor and unit of measure. The date will include time to cater for the rare instance where the same stock item with the
same vendor, location and unit of measure is brought into stock on the same day but with a different cost.
This file can then be used to look up locations containing the oldest stock for any given HCPC item.
When items are removed from stock the associated vendor and location will be identified by scanning a bar code (or manual entry in
case of equipment problems). The system will then assume that the oldest item for the vendor and location has been issued and will
reduce the stock quantity. If the quantity becomes 0 or -ve the record will be deleted.
DD ACCESS: @
DEL ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: HCPCS(B), LOCATION(C), HCPCS ITEM(D)
INDEXED BY: HCPCS & DATE&TIME STAMP & SEQUENCE (XHDS), STATION & HCPCS & HCPCS ITEM & DATE&TIME STAMP & SEQUENCE (XSHIDS),
STATION & LOCATION & HCPCS & HCPCS ITEM & DATE&TIME STAMP & SEQUENCE (XSLHIDS)
661.7,.01 HCPCS 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5) X
LAST EDITED: SEP 08, 2005
HELP-PROMPT: Answer must be 5-20 characters in length.
DESCRIPTION:
This field is a pointer to the Prosthetic HCPCs file (661.1).
CROSS-REFERENCE: 661.7^B
1)= S ^RMPR(661.7,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.7,"B",$E(X,1,30),DA)
RECORD INDEXES: XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
661.7,1 DATE&TIME STAMP 0;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAR 28, 2001
HELP-PROMPT: (No range limit on date)
RECORD INDEXES: XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
661.7,2 SEQUENCE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 28, 2001
HELP-PROMPT: Type a number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This is the same SEQUENCE as in the PROSTHETIC TRANSACTION file (661.6)
RECORD INDEXES: XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
661.7,3 HCPCS ITEM 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 06, 2001
HELP-PROMPT: Type a Number between 1 and 9999999999, 0 Decimal Digits
DESCRIPTION:
This field is a pointer to the 661.12 sub-file of the PROSTHETIC HCPCS file (661.1).
CROSS-REFERENCE: 661.7^D
1)= S ^RMPR(661.7,"D",$E(X,1,30),DA)=""
2)= K ^RMPR(661.7,"D",$E(X,1,30),DA)
RECORD INDEXES: XSHIDS (#37), XSLHIDS (#63)
661.7,4 STATION 0;5 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAR 28, 2001
DESCRIPTION:
This field is a pointer to the INSTITUTION file (4).
RECORD INDEXES: XSHIDS (#37), XSLHIDS (#63)
661.7,5 LOCATION 0;6 POINTER TO PROSTHETIC STOCK LOCATION FILE (#661.5)
LAST EDITED: APR 06, 2001
DESCRIPTION:
This field points to the PROSTHETIC STOCK LOCATION file (661.5).
CROSS-REFERENCE: 661.7^C
1)= S ^RMPR(661.7,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(661.7,"C",$E(X,1,30),DA)
RECORD INDEXES: XSLHIDS (#63)
661.7,6 QUANTITY 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1.N) X
LAST EDITED: JAN 17, 2001
HELP-PROMPT: Type a number between -999999999 and 999999999, 0 Decimal Digits
DESCRIPTION:
This field is the quantity of stock.
661.7,7 VALUE 0;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999)!(X?.E1"."3.N) X
LAST EDITED: JAN 17, 2001
HELP-PROMPT: Type a Dollar amount between -999999999 and 999999999, 2 Decimal Digits
DESCRIPTION:
This field is the total dollar value of the stock item held on this record.
661.7,8 UNIT OF ISSUE 0;9 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: NOV 18, 2002
DESCRIPTION:
This field is a pointer to Unit of Issue file (#420.5).
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#4)
PROSTHETIC STOCK LOCATION
(#661.5) LOCATION (#5)
UNIT OF ISSUE (#420.5) UNIT OF ISSUE (#8)
File #661.7
Record Indexes:
XHDS (#36) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Primary key cross-ref - HCPCS, DATE&TIME STAMP, SEQUENCE
Set Logic: S ^RMPR(661.7,"XHDS",X(1),X(2),X(3),DA)=""
Kill Logic: K ^RMPR(661.7,"XHDS",X(1),X(2),X(3),DA)
Whole Kill: K ^RMPR(661.7,"XHDS")
X(1): HCPCS (661.7,.01) (Subscr 1) (forwards)
X(2): DATE&TIME STAMP (661.7,1) (Subscr 2) (forwards)
X(3): SEQUENCE (661.7,2) (Subscr 3) (forwards)
XSHIDS (#37) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: xref for STATION, HCPCS, Item, DATE&TIME STAMP and SEQUENCE
Set Logic: S ^RMPR(661.7,"XSHIDS",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)=""
Kill Logic: K ^RMPR(661.7,"XSHIDS",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)
Whole Kill: K ^RMPR(661.7,"XSHIDS")
X(1): STATION (661.7,4) (Subscr 1) (forwards)
X(2): HCPCS (661.7,.01) (Subscr 2) (forwards)
X(3): HCPCS ITEM (661.7,3) (Subscr 3) (Len 30) (forwards)
X(4): DATE&TIME STAMP (661.7,1) (Subscr 4) (forwards)
X(5): SEQUENCE (661.7,2) (Subscr 5) (forwards)
XSLHIDS (#63) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index on Station, Location, HCPCS, Item, Date&Time, Seq.
Set Logic: S ^RMPR(661.7,"XSLHIDS",X(1),X(2),$E(X(3),1,30),X(4),X(5),X(6),DA)=""
Kill Logic: K ^RMPR(661.7,"XSLHIDS",X(1),X(2),$E(X(3),1,30),X(4),X(5),X(6),DA)
Whole Kill: K ^RMPR(661.7,"XSLHIDS")
X(1): STATION (661.7,4) (Subscr 1) (forwards)
X(2): LOCATION (661.7,5) (Subscr 2) (forwards)
X(3): HCPCS (661.7,.01) (Subscr 3) (Len 30) (forwards)
X(4): HCPCS ITEM (661.7,3) (Subscr 4) (forwards)
X(5): DATE&TIME STAMP (661.7,1) (Subscr 5) (forwards)
X(6): SEQUENCE (661.7,2) (Subscr 6) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):