STANDARD DATA DICTIONARY #661.2 -- PROS STOCK ITEM RECORD FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.2, *** 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 Stock Item Record file that holds all issue and stock control records. This is the main file for Prosthetics
inventory as in form 10-1210. All transactions that pertains to an item being track is keep in this file.
DD ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: CONVERSION POINTER field (#3) of the PROSTHETIC TRANSACTION PATIENT ISSUE File (#661.63)
CROSS
REFERENCED BY: DATE(B), PATIENT(C), HCPCS(D), STATION(E), USER(F), LOCATION(G)
661.2,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 09, 1998
DESCRIPTION:
This is the date when an item issued to a Patient or Veteran.
CROSS-REFERENCE: 661.2^B
1)= S ^RMPR(661.2,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"B",$E(X,1,30),DA)
661.2,1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
LAST EDITED: FEB 10, 1998
DESCRIPTION: This is a patient or veteran whom an item issued to. It is a pointer to Prosthetics Patient file
(#665).
CROSS-REFERENCE: 661.2^C
1)= S ^RMPR(661.2,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"C",$E(X,1,30),DA)
661.2,2 SOURCE 0;3 SET
'V' FOR VA;
'C' FOR COMMERCIAL;
LAST EDITED: SEP 02, 1998
DESCRIPTION:
This is a source of an item, either Va or Commercial.
661.2,3 HCPCS 0;4 POINTER TO PROSTHETIC HCPCS FILE (#661.1)
LAST EDITED: AUG 14, 1998
DESCRIPTION:
Pointer to Prosthetics HCPCS file (#661.1).
CROSS-REFERENCE: 661.2^D
1)= S ^RMPR(661.2,"D",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"D",$E(X,1,30),DA)
661.2,5 UNIT OF ISSUE 0;5 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: AUG 19, 1998
DESCRIPTION:
This is the unit used issuing an item or stock.
661.2,7 USER 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 25, 1998
DESCRIPTION:
A user responsible of stock item issue.
CROSS-REFERENCE: 661.2^F
1)= S ^RMPR(661.2,"F",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"F",$E(X,1,30),DA)
661.2,8 QTY 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 09, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Quantity issue to a patient or veteran.
661.2,9 HCPCS/ITEM 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 14, 1998
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Enternal entry of an HCPCS concatenated to an enternal entry of an item in file #661.1
661.2,10 QTY ORDERED 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1998
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Quantity of an item or stock being ordered.
661.2,11 QTY RECEIVED 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1998
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
Quantity of an item or stock received.
661.2,12 CURRENT BALANCE 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 30, 1998
HELP-PROMPT: Type a Number between 0 and 99999, 0 Decimal Digits
DESCRIPTION:
This is the current balance of an item as of date.
661.2,13 COMMENT 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X
LAST EDITED: MAY 01, 1998
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION:
This is a free text field for user to enter any comments or justifications.
661.2,14 CURRENT TOTAL COST 0;14 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: MAY 01, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
This is the current total cost of an item as of this date.
661.2,15 SERIAL NUMBER 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: AUG 21, 1998
HELP-PROMPT: Answer must be 3-20 characters in length.
DESCRIPTION:
This field comes from a serial # of an item during the stock issue option.
661.2,16 STATION 0;15 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 26, 1998
DESCRIPTION:
A station or site for an inventory workload or statistics.
CROSS-REFERENCE: 661.2^E
1)= S ^RMPR(661.2,"E",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"E",$E(X,1,30),DA)
661.2,17 LOCATION 0;16 POINTER TO PROS ITEM LOCATION FILE (#661.3)
LAST EDITED: AUG 26, 1998
DESCRIPTION:
A location of an item where a workload completed.
CROSS-REFERENCE: 661.2^G
1)= S ^RMPR(661.2,"G",$E(X,1,30),DA)=""
2)= K ^RMPR(661.2,"G",$E(X,1,30),DA)
661.2,18 AVERAGE COST 0;17 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: AUG 27, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the average cost of an ITEM based on COST and BALANCE ration.
661.2,20 LAB HOUR 1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 13, 1998
HELP-PROMPT: Type a Number between 0 and 1000, 2 Decimal Digits
DESCRIPTION:
Number of hours used by lab technician to process an item or stock.
661.2,21 LABOR COST 1;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
LAST EDITED: MAR 13, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
DESCRIPTION: An issuance cost of an item furnished to patient or veteran based on the users' salary and hour
spent by a Technician to fit an item.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION (#16)
NEW PERSON (#200) USER (#7)
PROS ITEM LOCATION (#661.3) LOCATION (#17)
PROSTHETIC HCPCS (#661.1) HCPCS (#3)
PROSTHETICS PATIENT (#665) PATIENT (#1)
UNIT OF ISSUE (#420.5) UNIT OF ISSUE (#5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):