STANDARD DATA DICTIONARY #661.11 -- PROSTHETICS HCPCS ITEM MASTER FILE FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.11, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all unique (Prosthetics Sensory and Aids Service) PSAS HCPCS Items for all stations or divisions under one
computer system.
DD ACCESS: @
RD ACCESS:
WR ACCESS:
DEL ACCESS: @
LAYGO ACCESS:
AUDIT ACCESS: @
CROSS
REFERENCED BY: HCPCS(B), PSAS ITEM(C), DESCRIPTION(D)
INDEXED BY: STATION & HCPCS & DESCRIPTION (ASHD), STATION & HCPCS & HCPCS ITEM (ASHI), STATION & HCPCS & ITEM MASTER &
DESCRIPTION & HCPCS ITEM (ASHMDI), STATION & DESCRIPTION & HCPCS (XSD)
661.11,.01 HCPCS 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5)!'(X'?1P.E) 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.
PRE-LOOKUP: D LKP^RMPRPIYI
CROSS-REFERENCE: 661.11^B
1)= S ^RMPR(661.11,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.11,"B",$E(X,1,30),DA)
RECORD INDEXES: ASHD (#10), ASHI (#13), ASHMDI (#14), XSD (#15)
661.11,1 HCPCS ITEM 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 15, 2001
HELP-PROMPT: Type a Number between 1 and 9999999999, 0 Decimal Digits
DESCRIPTION:
This is the item number for a HCPCS item.
RECORD INDEXES: ASHI (#13), ASHMDI (#14)
661.11,2 DESCRIPTION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: AUG 15, 2001
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
This is the description of an item.
CROSS-REFERENCE: 661.11^D
1)= S ^RMPR(661.11,"D",$E(X,1,30),DA)=""
2)= K ^RMPR(661.11,"D",$E(X,1,30),DA)
RECORD INDEXES: ASHD (#10), ASHMDI (#14), XSD (#15)
661.11,3 STATION 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 15, 2001
RECORD INDEXES: ASHD (#10), ASHI (#13), ASHMDI (#14), XSD (#15)
661.11,4 SOURCE 0;5 SET
'V' FOR VA;
'C' FOR COMMERCIAL;
LAST EDITED: AUG 15, 2001
DESCRIPTION: This is the source of an item: 'V' stands for VA or USED items and 'C' for COMMERCIAL or NEW items.
NEW and USED items are tracked seperately so that seperate inventory records should be maintained
for each source.
661.11,5 UNIT OF ISSUE 0;6 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: JUN 05, 2001
DESCRIPTION:
This field is a pointer to Unit of Issue file (#420.5).
661.11,6 PSAS ITEM 0;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>12!($L(X)<7) X
LAST EDITED: AUG 15, 2001
HELP-PROMPT: Answer must be 7-12 characters in length.
DESCRIPTION: PSAS Items are items used by PROSTHETICS SENSORY and AIDS SERVICE (PSAS) and are based from the
HCPCS concatenated with the HCPCS ITEM NUMBER.
CROSS-REFERENCE: 661.11^C
1)= S ^RMPR(661.11,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(661.11,"C",$E(X,1,30),DA)
661.11,7 ITEM MASTER 0;8 POINTER TO PROS ITEM MASTER FILE (#661)
LAST EDITED: AUG 15, 2001
DESCRIPTION:
POINTER TO 661
RECORD INDEXES: ASHMDI (#14)
661.11,8 STATUS 0;9 SET
'0' FOR ACTIVE;
'1' FOR INACTIVE;
LAST EDITED: DEC 11, 2002
DESCRIPTION: This field represent if an ITEM is ACTIVE OR INACTIVE. If the STATUS is INACTIVE, an Item will not
be printed in PROSTHETICS INVENTORY BALANCE BY HCPCS and PROSTHETICS INVENTORY BALANCE BY LOCATION
reports for the station selected.
661.11,9 INACTIVATION DATE 0;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 11, 2002
DESCRIPTION:
This is the Date the item is put INACTIVE status.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#3)
PROS ITEM MASTER (#661) ITEM MASTER (#7)
UNIT OF ISSUE (#420.5) UNIT OF ISSUE (#5)
File #661.11
Record Indexes:
ASHD (#10) RECORD REGULAR IR SORTING ONLY
Short Descr: Index by Station, HCPCS, Description
Set Logic: S ^RMPR(661.11,"ASHD",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)=""
Kill Logic: K ^RMPR(661.11,"ASHD",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)
Whole Kill: K ^RMPR(661.11,"ASHD")
X(1): STATION (661.11,3) (Subscr 1) (forwards)
X(2): HCPCS (661.11,.01) (Subscr 2) (Len 30) (forwards)
X(3): DESCRIPTION (661.11,2) (Subscr 3) (Len 30) (forwards)
ASHI (#13) RECORD REGULAR IR SORTING ONLY
Short Descr: STATION & HCPCS ITEM INDEX
Description: This is an index of Station, HCPCS and HCPCS Item to be used for Look-up and sorting.
Set Logic: S ^RMPR(661.11,"ASHI",X(1),$E(X(2),1,10),$E(X(3),1,30),DA)=""
Kill Logic: K ^RMPR(661.11,"ASHI",X(1),$E(X(2),1,10),$E(X(3),1,30),DA)
Whole Kill: K ^RMPR(661.11,"ASHI")
X(1): STATION (661.11,3) (Subscr 1) (forwards)
X(2): HCPCS (661.11,.01) (Subscr 2) (Len 10) (forwards)
X(3): HCPCS ITEM (661.11,1) (Subscr 3) (Len 30) (forwards)
ASHMDI (#14) RECORD REGULAR IR SORTING ONLY
Short Descr: Index on Station, HCPCS, Item Master, Description, Item Num.
Description: Index used for listing items after a HCPCS has been selected in a PIP option. The list will be in alpha order
by description but grouped by Item Master. This allows users to keep the Item Master description and just use
relevant text for their inventory item descriptions. For example supose the item master description for HCPCS
DL175 is 'WHEELCHAIR GLOVES' then 3 inventory items could be set up in PIP with descriptions: 'MEDIUM' 'LARGE'
'SMALL' When the user enters DL175 for HCPCS then they get the following selection list: HCPCS: DL175
WHEELCHAIR GLOVES
Item master: WHEELCHAIR GLOVES
1 DL175-2 C LARGE
2 DL175-1 C MEDIUM
3 DL175-3 C SMALL
Set Logic: S ^RMPR(661.11,"ASHMDI",X(1),$E(X(2),1,30),X(3),$E(X(4),1,30),X(5),DA)=""
Kill Logic: K ^RMPR(661.11,"ASHMDI",X(1),$E(X(2),1,30),X(3),$E(X(4),1,30),X(5),DA)
Whole Kill: K ^RMPR(661.11,"ASHMDI")
X(1): STATION (661.11,3) (Subscr 1) (forwards)
X(2): HCPCS (661.11,.01) (Subscr 2) (Len 30) (forwards)
X(3): ITEM MASTER (661.11,7) (Subscr 3) (forwards)
X(4): DESCRIPTION (661.11,2) (Subscr 4) (Len 30) (forwards)
X(5): HCPCS ITEM (661.11,1) (Subscr 5) (forwards)
XSD (#15) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: INDEX BY STATION, DESCRIPTION, HCPCS
Set Logic: S ^RMPR(661.11,"XSD",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)=""
Kill Logic: K ^RMPR(661.11,"XSD",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)
Whole Kill: K ^RMPR(661.11,"XSD")
X(1): STATION (661.11,3) (Subscr 1) (forwards)
X(2): DESCRIPTION (661.11,2) (Subscr 2) (Len 30) (forwards)
X(3): HCPCS (661.11,.01) (Subscr 3) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):