STANDARD DATA DICTIONARY #661.9 -- PROSTHETICS HCPCS RUNNING BALANCE FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.9, *** 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 running balance of an inventory for every HCPCS and HCPCS ITEM for a particular station. All transactions
created using the Stock Issue options and Prosthetics Inventory Program (PIP) will have an entry in this file in chronological
order indexed by Station, HCPCS and date.
DD ACCESS: @
DEL ACCESS: @
AUDIT ACCESS:
APPLICATION GROUP(S): RMPR
CROSS
REFERENCED BY: DATE(B)
INDEXED BY: STATION & HCPCS & HCPCS ITEM & DATE (ASHID)
661.9,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X
LAST EDITED: FEB 22, 2001
HELP-PROMPT: (No range limit on date)
CROSS-REFERENCE: 661.9^B
1)= S ^RMPR(661.9,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.9,"B",$E(X,1,30),DA)
RECORD INDEXES: ASHID (#79)
661.9,1 HCPCS 0;2 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 is the HCPCS name as it shows in file #661.1.
RECORD INDEXES: ASHID (#79)
661.9,2 HCPCS ITEM 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: FEB 22, 2001
HELP-PROMPT: Type a number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
This is a pointer to ITEM sub-record (#661.12) in file (#661.1).
RECORD INDEXES: ASHID (#79)
661.9,4 STATION 0;5 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: FEB 22, 2001
DESCRIPTION:
This is a pointer to Institution file (#4).
RECORD INDEXES: ASHID (#79)
661.9,7 TOTAL QUANTITY 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 16, 2001
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This is the total quantity of an item for only one location and station.
661.9,8 TOTAL VALUE 0;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JAN 16, 2001
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
This is the total value or cost of an item for only one location and station.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#4)
File #661.9
Record Indexes:
ASHID (#79) RECORD REGULAR IR SORTING ONLY
Short Descr: STATION & HCPCS & HCPCS ITEM & DATE
Set Logic: S ^RMPR(661.9,"ASHID",X(1),X(2),X(3),X(4),DA)=""
Kill Logic: K ^RMPR(661.9,"ASHID",X(1),X(2),X(3),X(4),DA)
Whole Kill: K ^RMPR(661.9,"ASHID")
X(1): STATION (661.9,4) (Subscr 1) (forwards)
X(2): HCPCS (661.9,1) (Subscr 2) (forwards)
X(3): HCPCS ITEM (661.9,2) (Subscr 3) (forwards)
X(4): DATE (661.9,.01) (Subscr 4) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):