STANDARD DATA DICTIONARY #660.1 -- PROS RETURNED/CONDEMNED FILE 9/29/25 PAGE 1
STORED IN ^RMPR(660.1, *** 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 items that have been flagged as returned or condemned.
DD ACCESS: @
CROSS
REFERENCED BY: APPLIANCE REPAIR(AC), SERIAL NUMBER(AD), RE-ISSUE ENTRY(AF), DATE OF LOAN(AG), AUTO-ADAPTIVE TRANSACTION(AP),
DATE OF RETURN(AR), DATE(B), PATIENT(C)
660.1,.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.1^B
1)= S ^RMPR(660.1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"B",$E(X,1,30),DA)
660.1,.05 DATE OF LOAN 0;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 05, 1993
HELP-PROMPT: Enter the date of Loan or Return transaction.
DESCRIPTION:
This is the date of the loan to the veteran.
CROSS-REFERENCE: 660.1^AG
1)= S ^RMPR(660.1,"AG",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AG",$E(X,1,30),DA)
Used to look up loan transactions for 1465 report.
660.1,1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665) (Required)
LAST EDITED: JUL 21, 1992
HELP-PROMPT: Enter the Patient's name for this loan transaction.
DESCRIPTION:
This is the name of the patient for this loan transaction.
CROSS-REFERENCE: 660.1^C
1)= S ^RMPR(660.1,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"C",$E(X,1,30),DA)
Used to display/print loan card information.
660.1,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.1,2.5 COMMENTS 1;0 WORD-PROCESSING #660.11
LAST EDITED: JUL 22, 1992
DESCRIPTION:
This word-processing field stores information about the loan transaction.
LAST EDITED: JUL 22, 1992
HELP-PROMPT: Enter the description of the item loaned or returned.
660.1,3 QUANTITY 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 29, 1993
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits
DESCRIPTION:
This is the quantity of the item on this loan.
660.1,4 COST 0;5 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
LAST EDITED: MAY 29, 1993
HELP-PROMPT: Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
DESCRIPTION:
This is the cost of the item on loan.
660.1,5 SERIAL NUMBER 0;6 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45)!($E(X)=" ") X I $D(X) K:$L(X)>15!($L(X)<1)!(X["^") X
LAST EDITED: MAY 15, 1995
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.1^AD
1)= S ^RMPR(660.1,"AD",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AD",$E(X,1,30),DA)
For tracking used items on loan
660.1,6 PURCHASE DATE 0;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 15, 1992
HELP-PROMPT: Enter the date the appliance was purchased.
DESCRIPTION:
This is the date the item was purchased by prosthetics.
660.1,7 ASSET EXPIRATION DATE 0;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 15, 1992
HELP-PROMPT: Enter a date 5 years subsequent to the purchase date.
DESCRIPTION:
This field stores the date the asset expires (5 yr from date of purchase).
660.1,8 FOLLOW-UP DATE 2;0 DATE Multiple #660.18 (Add New Entry without Asking)
LAST EDITED: MAR 15, 1993
DESCRIPTION:
These are dates uses by prosthetics to follow-up with the patient the status of the loaned item.
660.18,.01 FOLLOW-UP DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 26, 1993
HELP-PROMPT: Enter followup date for loaned item.
DESCRIPTION:
Date of the follow-up action.
CROSS-REFERENCE: 660.18^B
1)= S ^RMPR(660.1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,DA(1),2,"B",$E(X,1,30),DA)
660.18,1 TYPE OF CONTACT 0;2 SET
'1' FOR PERSONAL;
'2' FOR RECORD REVIEW;
'3' FOR TELEPHONE;
'4' FOR LETTER;
LAST EDITED: JUL 21, 1992
HELP-PROMPT: Enter type of contact with the veteran for followup activity.
DESCRIPTION:
This field stores the type of contact with the patient during the follow-up action.
660.1,9 TYPE OF LOAN TRANSACTION 0;9 SET
'1' FOR LOAN;
'2' FOR RETURN;
'3' FOR TEMP LOAN;
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Enter the type of loan transaction.
DESCRIPTION:
Stores the type of loan.
660.1,10 DATE OF RETURN 0;11 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 17, 1994
HELP-PROMPT: Enter the date the item was returned.
DESCRIPTION:
This field holds the date the loaned item was returned to prosthetics.
CROSS-REFERENCE: 660.1^AR
1)= S ^RMPR(660.1,"AR",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AR",$E(X,1,30),DA)
X-ref for Date of Return Field that is used to calculate part IV AMIS Report.
660.1,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.1,11.5 APPLIANCE REPAIR 0;16 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660)
LAST EDITED: OCT 02, 1992
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.1^AC
1)= S ^RMPR(660.1,"AC",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AC",$E(X,1,30),DA)
Used to indicate items returned that have been previously issued.
660.1,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: AUG 17, 1992
HELP-PROMPT: Enter the loan category
DESCRIPTION:
This is the category of the item loaned.
660.1,13 RETURNED STATUS 0;14 SET (Required)
'1' FOR RETURNED;
'2' FOR CONDEMNED;
'3' FOR TURNED-IN;
'4' FOR LOST;
'5' FOR BROKEN;
LAST EDITED: APR 12, 1993
HELP-PROMPT: Enter the returned status code
DESCRIPTION:
This field stores the returned status code for items turned-in by the patient.
660.1,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.1,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 the item loaned was a new purchase or a recovered item.
660.1,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.1,21 RE-ISSUE STATUS 0;19 SET (Required)
'A' FOR AVAILABLE 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 item is Available for Re-issue or not available for re-issue when the item has been
returned.
660.1,22 RE-ISSUE ENTRY 0;20 POINTER TO PROSTHETICS RE-ISSUE ITEM FILE (#660.2)
LAST EDITED: DEC 27, 1992
HELP-PROMPT: Enter the Item that has been returned for Loan
DESCRIPTION:
Pointer to file 660.2 re-issue entry.
CROSS-REFERENCE: 660.1^AF
1)= S ^RMPR(660.1,"AF",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AF",$E(X,1,30),DA)
Used to find 660.1 entries that point to 660.2 with the re-issue entry filed.
660.1,23 AUTO-ADAPTIVE ITEM 0;21 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1)
LAST EDITED: MAR 10, 1993
HELP-PROMPT: Enter the Auto Adaptive Item Number or Name
DESCRIPTION:
Pointer to file 667.1 Auto-Adaptive Equipment file.
660.1,24 AUTO-ADAPTIVE TRANSACTION 0;22 POINTER TO V.O.R. TRANSACTION FILE (#667.3)
LAST EDITED: FEB 15, 1994
DESCRIPTION:
Pointer to Auto-Adaptive Equipment file #667.3
CROSS-REFERENCE: 660.1^AP
1)= S ^RMPR(660.1,"AP",$E(X,1,30),DA)=""
2)= K ^RMPR(660.1,"AP",$E(X,1,30),DA)
This x-ref is used to look for auto-adaptive transactions that are 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)
PROSTHETICS RE-ISSUE ITEM
(#660.2) RE-ISSUE ENTRY (#22)
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):