STANDARD DATA DICTIONARY #661.5 -- PROSTHETIC STOCK LOCATION FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.5, *** 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 name, address and station number of each stock location. There will be an index by Station Number and Location
Name.
DD ACCESS: @
DEL ACCESS: @
AUDIT ACCESS: @
PRIMARY KEY: A (#56)
Uniqueness Index: XSL (#29)
File, Field: 1) STATION (661.5,2) 2) NAME (661.5,.01)
POINTED TO BY: LOCATION field (#7) of the HCPCS INVENTORY File (#661.4)
LOCATION field (#14) of the PROSTHETIC INVENTORY TRANSACTION File (#661.6)
LOCATION field (#8) of the PROSTHETIC TRANSACTION PATIENT ISSUE File (#661.63)
LOCATION field (#5) of the PROSTHETIC CURRENT STOCK File (#661.7)
CROSS
REFERENCED BY: NAME(B)
INDEXED BY: STATION (AS), STATUS & STATION & NAME (ASSL), STATION & NAME (XSL)
661.5,.01 NAME 0;1 FREE TEXT (Required) (Key field)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JAN 16, 2001
HELP-PROMPT: Answer must be 3-30 characters in length
DESCRIPTION:
This is the name of the stock location.
CROSS-REFERENCE: 661.5^B
1)= S ^RMPR(661.5,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.5,"B",$E(X,1,30),DA)
RECORD INDEXES: ASSL (#28), XSL (#29)
661.5,2 STATION 0;2 POINTER TO INSTITUTION FILE (#4) (Key field)
LAST EDITED: JAN 18, 2001
DESCRIPTION:
This field points to the Institution file (4).
FIELD INDEX: AS (#23) REGULAR IR SORTING ONLY
Short Descr: Station number index
Set Logic: S ^RMPR(661.5,"AS",X,DA)=""
Kill Logic: K ^RMPR(661.5,"AS",X,DA)
Whole Kill: K ^RMPR(661.5,"AS")
X(1): STATION (661.5,2) (Subscr 1) (forwards)
RECORD INDEXES: ASSL (#28), XSL (#29)
661.5,3 ADDRESS 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 29, 2000
HELP-PROMPT: Answer must be 3-30 characters in length
DESCRIPTION:
This is an address for the stock location.
661.5,4 STATUS 0;4 SET
'A' FOR ACTIVE;
'I' FOR INACTIVE;
LAST EDITED: JAN 16, 2001
DESCRIPTION: This field indicates whether a stock location is active (A) or inactive (I). Stock locations
should not be deleted once they have participated in inventory transactions because other inventory
files will inevitably point to the Stock Location file. Instead stock locations should be marked as
inactive when no longer in use (due to stock room re-organisation or any other reason). The system
will not allow receipts into inactive locations, but issues and outward transfers will be permitted
(although ideally all stock should be transferred to other active locations before deactivation).
RECORD INDEXES: ASSL (#28)
661.5,5 STATUS CHANGE DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JAN 16, 2001
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
This fields records the date when the status of a stock location is changed.
661.5,6 USER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 16, 2001
DESCRIPTION:
This field records the pointer of the user who last updated the stock location record.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#2)
NEW PERSON (#200) USER (#6)
File #661.5
Record Indexes:
ASSL (#28) RECORD REGULAR IR SORTING ONLY
Short Descr: Stock location Status index
Description: This index is on Stock Location Status, Station and Name. Its purpose is to be able to traverse locations which
have a particular status.
Set Logic: S ^RMPR(661.5,"ASSL",X(1),X(2),$E(X(3),1,30),DA)=""
Kill Logic: K ^RMPR(661.5,"ASSL",X(1),X(2),$E(X(3),1,30),DA)
Whole Kill: K ^RMPR(661.5,"ASSL")
X(1): STATUS (661.5,4) (Subscr 1) (forwards)
X(2): STATION (661.5,2) (Subscr 2) (forwards)
X(3): NAME (661.5,.01) (Subscr 3) (Len 30) (forwards)
XSL (#29) RECORD REGULAR IR LOOKUP & SORTING
Unique for: Key A (#56), File #661.5
Short Descr: Uniqueness Index for Key 'A' of File #661.5
Set Logic: S ^RMPR(661.5,"XSL",X(1),X(2),DA)=""
Kill Logic: K ^RMPR(661.5,"XSL",X(1),X(2),DA)
Whole Kill: K ^RMPR(661.5,"XSL")
X(1): STATION (661.5,2) (Subscr 1)
X(2): NAME (661.5,.01) (Subscr 2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):