STANDARD DATA DICTIONARY #663 -- PROS AMIS CODES FILE 3/24/25 PAGE 1
STORED IN ^RMPR(663, (103 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains prosthetic AMIS codes assigned to each item purchased for a veteran. File 661, PROS ITEM MASTER, points to this file. Do
not edit these codes.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: LINE DESCRIPTION (#2), ISSUE/REPAIR CODE (#3)
POINTED TO BY: AMIS NEW CODE field (#52) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
ADMIN REPAIR AMIS CODE field (#64) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
ORTHOTICS LAB CODE field (#74) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
ORTHOTICS LAB REPAIR CODE field (#75) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
RESTORATION LAB CODE field (#76) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
RESTORATIONS LAB REPAIR CODE field (#77) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
AMIS ADMIN NEW CODE field (#1) of the PROS ITEM MASTER File (#661)
AMIS ADMIN REPAIR CODE field (#2) of the PROS ITEM MASTER File (#661)
AMIS ORTHOTIC NEW CODE field (#3) of the PROS ITEM MASTER File (#661)
AMIS ORTHOTICS REPAIR CODE field (#4) of the PROS ITEM MASTER File (#661)
AMIS RESTORATION NEW CODE field (#5) of the PROS ITEM MASTER File (#661)
AMIS RESTORATIONS REPAIR CODE field (#6) of the PROS ITEM MASTER File (#661)
AMIS CATEGORY field (#.01) of the NEW AMIS CATEGORY sub-field (#663.21) of the ACTIVITIES NEW/REPAIR WORKSHEET
TOTALS File (#663.2)
REPAIR AMIS CAT field (#.01) of the REPAIR AMIS CATEGORY sub-field (#663.22) of the ACTIVITIES NEW/REPAIR WORKSHEET
TOTALS File (#663.2)
AMIS CODE field (#16) of the PROS LABORATORY/RESTORATIONS WORKSHEET File (#664.4)
CROSS
REFERENCED BY: CODE(B), LINE DESCRIPTION(C), ISSUE/REPAIR CODE(D), AMIS SEGMENT NO(E)
663,.01 CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: MAR 07, 1991
HELP-PROMPT: Enter the AMIS code line number in the format defined by Prosthetic regulations.
DESCRIPTION: The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number)
followed by one space and then alphabetic characters. CODE is needed for sorting in the proper
sequence on reports, since the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B.
DELETE TEST: .01,0)= I 1 W " CANNOT DELETE."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 663^B
1)= S ^RMPR(663,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(663,"B",$E(X,1,30),DA)
663,1 RATIO 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: NOV 26, 1991
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
This is the national ratio set by VACO for AMIS calculations.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
663,2 LINE DESCRIPTION 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
LAST EDITED: APR 19, 1991
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
This is the AMIS Line Item Description.
CROSS-REFERENCE: 663^C
1)= S ^RMPR(663,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(663,"C",$E(X,1,30),DA)
Allows lookups of Prosthetic Amis Codes by the actual Prosthetic Amis code Description.
663,3 ISSUE/REPAIR CODE 0;4 SET
'A' FOR ADMINISTRATIVE ISSUE;
'AR' FOR ADMINISTRATIVE REPAIR;
'O' FOR ORTHOTIC LAB;
'R' FOR RESTORATION LAB;
'OR' FOR ORTHOTIC LAB REPAIR;
'RR' FOR RESTORATION LAB REPAIR;
LAST EDITED: NOV 12, 1993
HELP-PROMPT: Enter code for new AMIS group.
DESCRIPTION:
This is a code defining what group within prosthetics the AMIS code will be counted.
CROSS-REFERENCE: 663^D
1)= S ^RMPR(663,"D",$E(X,1,30),DA)=""
2)= K ^RMPR(663,"D",$E(X,1,30),DA)
Allows lookups of Amis Codes by New Admin Codes, Repair Admin Codes, Orthotic Lab Codes,
Restoration Lab Codes, and Shoe Last Codes. This x-ref also groups Amis codes together by their
respective type.
663,3.5 AMIS SEGMENT NO 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>300)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 24, 1993
HELP-PROMPT: Type a Number between 122 and 128, 0 Decimal Digits
DESCRIPTION: This fields contains the segment number for the related disability codes. Used for the Generation
of Generic Code Sheets.
CROSS-REFERENCE: 663^E
1)= S ^RMPR(663,"E",$E(X,1,30),DA)=""
2)= K ^RMPR(663,"E",$E(X,1,30),DA)
This x-ref is used to separate Prosthetics AMIS codes by the actual AMIS segment number. Used for
sorting Prosthetics AMIS Codes by segment number when code sheets are generated.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):