STANDARD DATA DICTIONARY #667.3 -- V.O.R. TRANSACTION FILE 9/29/25 PAGE 1
STORED IN ^RMPR(667.3, *** 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 all items that are added as new, repair, or van modifications to be counted on AMIS.
DD ACCESS: @
IDENTIFIED BY: ITEM (#2)[R]
POINTED TO BY: AUTO-ADAPTIVE TRANSACTION field (#24) of the PROS RETURNED/CONDEMNED File (#660.1)
AUTO-ADAPTIVE TRANSACTION field (#24) of the PROSTHETICS RE-ISSUE ITEM File (#660.2)
CROSS
REFERENCED BY: ITEM(AD), DATE PROCESSED(B), VEHICLE ID#(C)
667.3,.01 DATE PROCESSED 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1!($P(X,".")>DT) X
LAST EDITED: JUN 03, 1993
HELP-PROMPT: Answer must be a valid date. Future Dates are not allowed.
DESCRIPTION:
The date that the item or repair was processed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 667.3^B
1)= S ^RMPR(667.3,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(667.3,"B",$E(X,1,30),DA)
667.3,1 VEHICLE ID# 0;2 POINTER TO VEHICLE OF RECORD FILE (#667)
LAST EDITED: FEB 02, 1992
HELP-PROMPT: Please enter the Identification Number of the Vehicle.
DESCRIPTION: The Identification number of the Vehicle of Records. This points to file 667 and is an internal
entry number.
CROSS-REFERENCE: 667.3^C
1)= S ^RMPR(667.3,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(667.3,"C",$E(X,1,30),DA)
Allows lookups of transactions by Vehcile ID# IEN.
667.3,2 ITEM 0;3 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1) (Required)
LAST EDITED: FEB 18, 1992
HELP-PROMPT: Please enter the Auto Adaptive Equipment Item.
DESCRIPTION:
The name of the item that will be on the Vehicle of Records.
CROSS-REFERENCE: 667.3^AD^MUMPS
1)= S ZZ=$P(^RMPR(667.3,DA,0),U,2) S:ZZ ^RMPR(667.3,"AD",ZZ,X,DA)="" K ZZ
2)= S ZZ=$P(^RMPR(667.3,DA,0),U,2) K:ZZ ^RMPR(667.3,"AD",ZZ,X,DA) K ZZ
Allows lookups to find all items associated with the Vehicle ID# IEN.
667.3,2.5 QTY 0;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 13, 1992
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
Contains the quantity of items purchased.
667.3,3 COST 0;4 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
The cost of the item.
667.3,4 AMIS CODE 0;5 SET (Required)
'21B' FOR A;
'21A' FOR V;
'R16' FOR R;
LAST EDITED: FEB 25, 1992
HELP-PROMPT: Enter A for New Items, V for Van Mods, R for Repair
DESCRIPTION:
This field contains the AMIS code for the transaction.
667.3,5 DESCRIPTION 1;0 WORD-PROCESSING #667.35
DESCRIPTION:
This field contains the description of the vehicle transaction.
LAST EDITED: NOV 16, 1991
HELP-PROMPT: Enter the description of this vehicle transaction.
DESCRIPTION:
This field contains the description of the vehicle transaction.
667.3,6 SERIAL NUMBER 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: NOV 18, 1991
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
This field contains the serial number of the item being purchased or repaired.
667.3,7 AMIS 3;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Type a Number between 0 and 99999999999999999, 0 Decimal Digits
DESCRIPTION: This field contains the grouper number stored in the Site Parameters file 669.9 and should not be
edited.
UNEDITABLE
667.3,8 TYPE OF TRANSACTION 0;8 SET (Required)
'I' FOR INITIAL ISSUE;
'R' FOR REPLACE;
'S' FOR SPARE;
'X' FOR REPAIR;
LAST EDITED: MAR 16, 1992
HELP-PROMPT: Enter the Correct Transaction type for this entry.
DESCRIPTION:
Set of Codes for type of transaction processed.
667.3,9 PATIENT CATEGORY 0;9 SET (Required)
'1' FOR SC/OP;
'2' FOR SC/IP;
'3' FOR NSC/IP;
'4' FOR NSC/OP;
LAST EDITED: MAR 16, 1992
HELP-PROMPT: Enter the correct Category for the transaction.
DESCRIPTION:
This field stores the patient category for this V.O.R. transaction.
667.3,10 SPECIAL CATEGORY 0;10 SET
'1' FOR SPECIAL LEGISLATION;
'2' FOR A&A;
'3' FOR PHC;
LAST EDITED: MAR 16, 1992
HELP-PROMPT: Enter the correct Special Category for this Transaction.
DESCRIPTION:
This field stores the patient's special category for this V.O.R. transaction.
667.3,11 SOURCE 0;11 SET (Required)
'V' FOR VA;
'C' FOR COMMERCIAL;
LAST EDITED: MAR 16, 1992
HELP-PROMPT: Enter 'VA' for (PDC) VA or 'C' for Commercial.
DESCRIPTION:
Set of codes for the source of the item either Commercial or VA.
667.3,12 STATION NAME 2;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 11, 1992
HELP-PROMPT: Enter the Station name or Number from the Institution File
DESCRIPTION: This field is a pointer to the Insitution file. If the data base is Multi Divisional entries are
screened out by the station number.
667.3,13 USER 2;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 07, 1992
HELP-PROMPT: Enter the User Name.
DESCRIPTION:
Person who entered the transaction.
667.3,14 RETURN DATE 0;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 29, 1993
HELP-PROMPT: Enter the date the Auto-Adaptive equipment was returned.
DESCRIPTION:
Contains the date that the item was retunred thru the Flag Item a Returned /Condemned option.
FILES POINTED TO FIELDS
INSTITUTION (#4) STATION NAME (#12)
NEW PERSON (#200) USER (#13)
PROS AUTO-ADAPTIVE EQUIP
(#667.1) ITEM (#2)
VEHICLE OF RECORD (#667) VEHICLE ID# (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):