Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^RMPR(667

Package: Prosthetics

Global: ^RMPR(667

Information

FileMan FileNo	FileMan Filename	Package
667	VEHICLE OF RECORD	Prosthetics

Description

This file contains information on vehicles and vehicle auto-adaptive equipment related to Prosthetics.

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 15

Field #	Name	Loc	Type	Details
.01	VEHICLE ID#	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
1	PATIENT NAME	0;2	POINTER TO PROSTHETICS PATIENT FILE (#665)	PROSTHETICS PATIENT(#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.`
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.`
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.`
2.2	TYPE OF TRANSACTION	2;2	SET	**********************REQUIRED FIELD********************** '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.`
2.3	PATIENT CATEGORY	2;3	SET	**********************REQUIRED FIELD********************** '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.`
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.`
3	DATE PURCHASED	0;4	DATE	**********************REQUIRED FIELD********************** 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.`
4	YEAR	0;5	NUMBER	**********************REQUIRED FIELD********************** 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.`
5	MAKE	0;6	POINTER TO AUTO-ADAPTIVE MANUFACTURER FILE (#667.2)	**********************REQUIRED FIELD********************** AUTO-ADAPTIVE MANUFACTURER(#667.2) LAST EDITED: `NOV 16, 1991` HELP-PROMPT: `Please Enter the Vehicle Manufacturer.` DESCRIPTION: `The make of the Vehicle purchased.`
6	MODEL	0;7	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
7	DATE PROCESSED	0;8	DATE	**********************REQUIRED FIELD********************** 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.`
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.`
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.`
11	STATION NAME	0;10	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `AUG 18, 1992` HELP-PROMPT: `Enter the Station Name or Station Prefix.` DESCRIPTION: `Pointer to the institution file.`

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All