STANDARD DATA DICTIONARY #660.2 -- PROSTHETICS RE-ISSUE ITEM FILE 9/29/25 PAGE 1
STORED IN ^RMPR(660.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains items that have been returned, donated, condemned, or on loan
POINTED TO BY: RE-ISSUE ENTRY field (#22) of the PROS RETURNED/CONDEMNED File (#660.1)
CROSS
REFERENCED BY: AUTO-ADAPTIVE TRANSACTION(AC), SERIAL NUMBER(AD), APPLIANCE REPAIR(AP), DATE(B)
660.2,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 15, 1992
HELP-PROMPT: Enter the Date of the Loan transaction.
DESCRIPTION:
This field stores the date of the loaner transaction.
CROSS-REFERENCE: 660.2^B
1)= S ^RMPR(660.2,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(660.2,"B",$E(X,1,30),DA)
660.2,.05 DATE OF LOAN 0;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 23, 1992
HELP-PROMPT: Enter the date of Loan or Return transaction.
DESCRIPTION:
This is the date of the loan to the veteran.
660.2,1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665) (Required)
LAST EDITED: NOV 13, 1992
HELP-PROMPT: Enter the Patient's name for this loan transaction.
DESCRIPTION:
This is the name of the patient for this loan transaction.
660.2,2 ITEM 0;3 POINTER TO PROS ITEM MASTER FILE (#661)
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Enter the item for this loan transaction.
DESCRIPTION:
This is a pointer field to the Prosthetic Item file.
660.2,4 COST 0;5 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: JUL 15, 1992
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the cost of the item on loan.
660.2,5 SERIAL NUMBER 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!(X["^") X
LAST EDITED: NOV 30, 1992
HELP-PROMPT: Answer must be 1-15 characters in length and cannot contain an `^`.
DESCRIPTION:
This field stores the serial number of the item on loan.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 660.2^AD
1)= S ^RMPR(660.2,"AD",$E(X,1,30),DA)=""
2)= K ^RMPR(660.2,"AD",$E(X,1,30),DA)
For tracking used items on loan
660.2,10 DATE OF RETURN 0;11 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 17, 1992
HELP-PROMPT: Enter the date the item was returned.
DESCRIPTION:
This file holds the date the loaned item was returned to prosthetics.
660.2,11 INVENTORY POINT 0;12 POINTER TO GENERIC INVENTORY FILE (#445)
LAST EDITED: JUL 30, 1992
HELP-PROMPT: Enter the GIP Inventory Point for this loan transaction.
DESCRIPTION: If the item was loaned from inventory with GIP running, the inventory point is stored in this
field.
660.2,11.5 APPLIANCE REPAIR 0;16 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660)
LAST EDITED: MAY 28, 1993
HELP-PROMPT: Enter the Internal Appliance Repair Record number.
DESCRIPTION:
This field stores the internal number of an entry in file 660.
CROSS-REFERENCE: 660.2^AP
1)= S ^RMPR(660.2,"AP",$E(X,1,30),DA)=""
2)= K ^RMPR(660.2,"AP",$E(X,1,30),DA)
Used to indicate appliance repairs from the patient 2319 that have been placed on loan.
660.2,12 LOAN CATEGORY 0;13 SET
'1' FOR BED;
'2' FOR VAN LIFT;
'3' FOR DIALYSIS SUPPLIES;
'4' FOR INVALID LIFTS;
'5' FOR RESPIRATORS;
'6' FOR WHEELCHAIR;
'7' FOR ALL OTHER;
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Enter the Catetory of this item
DESCRIPTION: Set of codes for type of loan category for a returned item if the item is to be placed on the Loan
Program.
660.2,13 RETURNED STATUS 0;14 SET
'1' FOR RETURNED;
'2' FOR CONDEMNED;
'3' FOR TURNED-IN;
'4' FOR LOST;
'5' FOR BROKEN;
LAST EDITED: JUN 03, 1993
HELP-PROMPT: Enter the returned status code
DESCRIPTION:
This field stores the returned status code for items turned-in by the patient.
660.2,14 STATION 0;15 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: SEP 29, 1992
HELP-PROMPT: Enter the Station number for this loan transaction.
DESCRIPTION:
This field stores the station number of the loan transaction.
660.2,19 ITEM STATUS 0;17 SET (Required)
'N' FOR NEW ITEM;
'R' FOR RECOVERED ITEM;
LAST EDITED: NOV 03, 1992
HELP-PROMPT: Enter 'N' for NEW ITEMS or 'R' for 'RECOVERED' ITEMS
DESCRIPTION:
Indicates if item a new item or a recovered item.
660.2,20 OBLIGATION NUMBER 0;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 03, 1992
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
Obligation number of item that has been purchased on a 1358 and loaned to the veteran.
660.2,21 RE-ISSUE STATUS 0;19 SET (Required)
'A' FOR AVAILABEL FOR RE-ISSUE;
'N' FOR NOT AVAILABLE FOR RE-ISSUE;
LAST EDITED: DEC 17, 1992
HELP-PROMPT: Enter 'A' for AVAILABLE FOR RE-ISSUE, or 'N' for NOT AVAILABLE FOR RE-ISSUE
DESCRIPTION: Indicates if item is available for re-issue or not- available for re-issue when it has been
returned.
660.2,23 AUTO-ADAPTIVE ITEM 0;21 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1)
LAST EDITED: NOV 12, 1992
HELP-PROMPT: Enter the Name of the Auto-Adaptive Equipment Item.
DESCRIPTION:
Pointer to the Auto-Adaptive Equipment file #667.1
660.2,24 AUTO-ADAPTIVE TRANSACTION 0;22 POINTER TO V.O.R. TRANSACTION FILE (#667.3)
LAST EDITED: DEC 27, 1992
HELP-PROMPT: Enter the Auto-Adaptive Transaction date.
DESCRIPTION:
Pointer to Auto-Adaptive transaction file for loaned items.
CROSS-REFERENCE: 660.2^AC
1)= S ^RMPR(660.2,"AC",$E(X,1,30),DA)=""
2)= K ^RMPR(660.2,"AC",$E(X,1,30),DA)
This x-ref is used to look-up Auto Adaptive equipment that is already on loan.
FILES POINTED TO FIELDS
GENERIC INVENTORY (#445) INVENTORY POINT (#11)
INSTITUTION (#4) STATION (#14)
PROS AUTO-ADAPTIVE EQUIP
(#667.1) AUTO-ADAPTIVE ITEM (#23)
PROS ITEM MASTER (#661) ITEM (#2)
PROSTHETICS PATIENT (#665) PATIENT (#1)
RECORD OF PROS APPLIANCE/REPAI
(#660) APPLIANCE REPAIR (#11.5)
V.O.R. TRANSACTION (#667.3) AUTO-ADAPTIVE TRANSACTION (#24)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):