STANDARD DATA DICTIONARY #667 -- VEHICLE OF RECORD FILE 9/29/25 PAGE 1
STORED IN ^RMPR(667, *** 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 information on vehicles and vehicle auto-adaptive equipment related to Prosthetics.
DD ACCESS: @
DEL ACCESS: @
POINTED TO BY: VEHICLE ID# field (#1) of the V.O.R. TRANSACTION File (#667.3)
CROSS
REFERENCED BY: VAF21-4502 DATE(AD), VEHICLE ID#(B), PATIENT NAME(C)
667,.01 VEHICLE ID# 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: NOV 15, 1991
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
This is the Identification Number on the vehicle of record, this is a Unique Key.
CROSS-REFERENCE: 667^B
1)= S ^RMPR(667,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(667,"B",$E(X,1,30),DA)
667,1 PATIENT NAME 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
LAST EDITED: FEB 02, 1992
HELP-PROMPT: Please Enter the Patient's name.
DESCRIPTION:
This field is a pointer to the Prosthetics Patient File and is an internal entry number.
CROSS-REFERENCE: 667^C
1)= S ^RMPR(667,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(667,"C",$E(X,1,30),DA)
Allows sorting and lookups by the Patient IEN.
667,2 VAF21-4502 DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Please Enter the VAF21-4502 Date for this entry.
DESCRIPTION:
The initial date that a veteran is issued the authority to purchase a Vehicle of record.
CROSS-REFERENCE: 667^AD^MUMPS
1)= I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ S ^RMPR(667,"AD",ZZ,X,DA)="" K ZZ
2)= I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ K ^RMPR(667,"AD",ZZ,X,DA),ZZ
Allows lookup of 4502 date that the Veteran was determinded for eligibility.
667,2.1 ANKYLOSIS OR VOC REHAB 0;9 SET
'A' FOR ANKYLOSIS;
'V' FOR VOC REHAB;
LAST EDITED: APR 23, 1993
HELP-PROMPT: Enter the proper code for this vehicle action.
DESCRIPTION:
Contains set of codes for Ankylosis and Voc Rehab.
667,2.2 TYPE OF TRANSACTION 2;2 SET (Required)
'I' FOR INITIAL ISSUE;
'R' FOR REPLACE;
'S' FOR SPARE;
'X' FOR REPAIR;
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Enter `I` for Initial Issue, `R` for Replace, `S` for Spare, `X` for Repair.
DESCRIPTION:
Explains what type of transaction is on this Vehicle of Records.
667,2.3 PATIENT CATEGORY 2;3 SET (Required)
'1' FOR SC/OP;
'2' FOR SC/IP;
'3' FOR NSC/IP;
'4' FOR NSC/OP;
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Enter `1` for SC/OP, `2` for SC/IP, `3` for NSC/IP, `4` for NSC/OP
DESCRIPTION:
This field stores the patient category for this vehicle transaction.
667,2.4 SPECIAL CATEGORY 2;4 SET
'1' FOR SPECIAL LEGISLATION;
'2' FOR A&A;
'3' FOR PHC;
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Please enter the Special Legislation for this Patient
DESCRIPTION:
This field stores the patient's special category if applicable for this vehicle transaction.
667,3 DATE PURCHASED 0;4 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Please Enter the Date that the Vehicle was purchased.
DESCRIPTION:
This is the date that the Vehicle was purchased.
667,4 YEAR 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 02, 1992
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
This is the model year of the vehicle.
667,5 MAKE 0;6 POINTER TO AUTO-ADAPTIVE MANUFACTURER FILE (#667.2) (Required)
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Please Enter the Vehicle Manufacturer.
DESCRIPTION:
The make of the Vehicle purchased.
667,6 MODEL 0;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The model of the Vehicle that was purchased.
667,7 DATE PROCESSED 0;8 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 15, 1991
HELP-PROMPT: Answer must be a valid date. Date cannot be greater than the Date of Purchase.
DESCRIPTION:
The date that this transaction is being processed.
667,9 EXCEPTION FLAG 2;1 SET
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Enter `1` for Active or `0` for Inactive.
DESCRIPTION:
This shows that the Vehicle of Record is active or inactive.
667,10 EXCEPTION RULE COMMENTS 1;0 WORD-PROCESSING #667.01
LAST EDITED: DEC 19, 1991
DESCRIPTION:
This is the general description of the vehicle purchased.
LAST EDITED: NOV 19, 1991
HELP-PROMPT: Enter the description of the vehicle purchased.
DESCRIPTION:
This is the general description of the vehicle purchased.
667,11 STATION NAME 0;10 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: AUG 18, 1992
HELP-PROMPT: Enter the Station Name or Station Prefix.
DESCRIPTION:
Pointer to the institution file.
FILES POINTED TO FIELDS
AUTO-ADAPTIVE MANUFACTURER
(#667.2) MAKE (#5)
INSTITUTION (#4) STATION NAME (#11)
PROSTHETICS PATIENT (#665) PATIENT NAME (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):