STANDARD DATA DICTIONARY #661.3 -- PROS ITEM LOCATION FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.3, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a Prosthetics Location file that contains all locations and items being tracked for inventory. Never delete a location or
item from this file. Use option Remove Item from Inventory to deactivate an Item.
DD ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: ADDRESS (#.02)
POINTED TO BY: LOCATION field (#17) of the PROS STOCK ITEM RECORD File (#661.2)
ITEM LOCATION field (#17) of the ITEM sub-field (#664.16) of the PROSTHETIC 2529-3 File (#664.1)
CROSS
REFERENCED BY: LOCATION(B), HCPCS(C), ITEM(D), ITEM(D1), STATION(E)
661.3,.01 LOCATION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!$D(^RMPR(661.3,"B",X)) X Q:'$D(X) D CONV^RMPR5NU1
LAST EDITED: JAN 14, 1999
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is a location of an item or stock being tracked for inventory.
DELETE TEST: 1,0)= I DUZ(0)'="@"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 661.3^B
1)= S ^RMPR(661.3,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,"B",$E(X,1,30),DA)
661.3,.02 ADDRESS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 25, 1998
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the address of the LOCATION field.
661.3,.05 STATION 0;3 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: AUG 26, 1998
HELP-PROMPT: Enter the station name or number
DESCRIPTION: This is station or site where an inventory transaction is done and responsible of reporting a
workload.
CROSS-REFERENCE: 661.3^E
1)= S ^RMPR(661.3,"E",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,"E",$E(X,1,30),DA)
661.3,1 HCPCS 1;0 POINTER Multiple #661.31
DESCRIPTION:
This is an HCPCS multiple keep in a Location for Prosthetics Inventory module.
661.31,.01 HCPCS 0;1 POINTER TO PROSTHETIC HCPCS FILE (#661.1)
LAST EDITED: FEB 09, 2001
HELP-PROMPT: Only valid PSAS HCPCS in file #661.1 can be used.
DESCRIPTION:
This is a PSAS HCPCS being tracked for Prosthetics Inventory and it is a pointer to file #661.1.
PRE-LOOKUP: D LKP^RMPRSTI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 661.31^B
1)= S ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 661.3^C
1)= S ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)
661.31,2 ITEM 1;0 Multiple #661.312
DESCRIPTION:
An ITEM multiple under a certain HCPCS.
IDENTIFIED BY: DESCRIPTION(#28)
661.312,.01 ITEM 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
LAST EDITED: FEB 08, 2001
HELP-PROMPT: Answer must be 3-10 characters in length.
DESCRIPTION: This is an item under a particular PSAS HCPCS at this location. It is a combination of PSAS
HCPCS IEN concatenated with (-) and then concatenated with ITEM IEN in file #661.1.
CROSS-REFERENCE: 661.312^B
1)= S ^RMPR(661.3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 661.3^D
1)= S ^RMPR(661.3,"D",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^RMPR(661.3,"D",$E(X,1,30),DA(2),DA(1),DA)
CROSS-REFERENCE: 661.3^D1^MUMPS
1)= S ^RMPR(661.3,"D1",$P(X,"-",1),DA(2),DA(1),DA)=""
2)= K ^RMPR(661.3,"D1",$P(X,"-",1),DA(2),DA(1),DA)
661.312,22 QUANTITY 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 16, 1999
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
A quantity on hand of an item at this location.
661.312,23 COST 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: AUG 06, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the total Cost of the quantity of this ITEM at this location.
661.312,24 UNIT OF ISSUE 0;4 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: AUG 06, 1998
DESCRIPTION:
Pointer to Unit of Issue file. This is the unit how an item is stored or purchased.
661.312,25 VENDOR 0;5 POINTER TO VENDOR FILE (#440)
LAST EDITED: FEB 03, 1999
DESCRIPTION:
Pointer to a Vendor file.
661.312,26 RE-ORDER LEVEL 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 06, 1998
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
A number that signifies time to re-order an item at a particular location.
661.312,27 DETAILED INVENTORY ID 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>70!($L(X)<3) X
LAST EDITED: JAN 13, 1999
HELP-PROMPT: Answer must be 3-70 characters in length.
DESCRIPTION: This is a free text entry that tells where an item is located or stored in a particular
location. This field can be used also to describe an item.
661.312,28 DESCRIPTION 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>100!($L(X)<3) X
LAST EDITED: JAN 13, 1999
HELP-PROMPT: Answer must be 3-100 characters in length.
DESCRIPTION:
A description of an item.
CROSS-REFERENCE: 661.312^C
1)= S ^RMPR(661.3,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)
661.312,29 SOURCE 0;9 SET
'V' FOR VA;
'C' FOR COMMERCIAL;
LAST EDITED: AUG 06, 1998
DESCRIPTION:
Set of codes that signifies whether an item is VA or COMMERCIAL source.
661.312,30 AVERAGE COST 0;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: AUG 26, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is an average cost of an item at this location.
661.312,31 ORDERED QUANTITY 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 08, 1999
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits
DESCRIPTION:
Amount being ordered from Supply or Vendor.
661.312,32 RECEIVED QUANTITY 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 08, 1999
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits
DESCRIPTION:
Amount received from Supply or Vendor.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#.05)
PROSTHETIC HCPCS (#661.1) HCPCS:HCPCS (#.01)
UNIT OF ISSUE (#420.5) ITEM:UNIT OF ISSUE (#24)
VENDOR (#440) ITEM:VENDOR (#25)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):