STANDARD DATA DICTIONARY #662 -- PROS DISABILITY CODE FILE                                                        9/29/25    PAGE 1
STORED IN ^RMPR(662,  (67 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                      (VERSION 3.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains disability codes related to patient prosthetic disabilities.  These disability codes are viewed on the patient VAF 10-2319
record to determine eligibility.  


              DD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @

POINTED TO BY: DISABILITY CODE field (#.01) of the DISABILITY CODE sub-field (#664.15) of the PROSTHETIC 2529-3 File (#664.1) 
               PROSTHETIC DISABILITY CODE field (#.01) of the PROSTHETIC DISABILITY CODE sub-field (#665.01) of the PROSTHETICS 
                   PATIENT File (#665) 
               DISABILITY CODE field (#2.01) of the STATION ORDER File (#791810) 
               DISABILITY CODE field (#3.02) of the LINE ITEM sub-field (#791810.0101) of the STATION ORDER File (#791810) 
               

CROSS
REFERENCED BY: ARABIC DISABILITY NAME(B)



662,.001      NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
              HELP-PROMPT:      Type a whole number between 1 and 9999 
              DESCRIPTION:
                                This is the internal number of the Prosthetic Disability Code.  


662,.01       ARABIC DISABILITY NAME 0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              HELP-PROMPT:      Answer must be 3-12 Character in length. 
              DESCRIPTION:      This is the Arabic initials for a disability code, such as AMP/LAE for Amputee/Arm, Left, Above
                                Elbow.  

              DELETE TEST:      .01,0)= I 1 W " CANNOT DELETE."

              CROSS-REFERENCE:  662^B 
                                1)= S ^RMPR(662,"B",$E(X,1,30),DA)=""
                                2)= K ^RMPR(662,"B",$E(X,1,30),DA)


662,4         MAJOR DISABILITY CODE SYMBOLS 0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
              HELP-PROMPT:      ANSWER MUST BE 2-30 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                Contains the Major Disability Code Symbol for the Prosthetics Disability Code (e.g. AMPUTEE).  


662,5         GROUP EXTENT OF DISABILITY 0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
              HELP-PROMPT:      ANSWER MUST BE 2-100 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                Contains the area of the Veterans disability.  Reference to the parts of body disabled.  

              TECHNICAL DESCR:
                                  


662,5.5       DISABILITY GROUPING    0;4 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      JUL 01, 1992 
              HELP-PROMPT:      Type a Number between 1 and 10, 0 Decimal Digits 
              DESCRIPTION:      Contains the Number 1 through 10.  The 10 major disability groupings are displayed on the VAF
                                10-7306d AMIS report.  


662,6         CORRESPONDING MAS DISABILITY 1;0 POINTER Multiple #662.06


662.06,.01      CORRESPONDING MAS DISABILITY 0;1 POINTER TO DISABILITY CONDITION FILE (#31) (Multiply asked)

                LAST EDITED:      SEP 24, 1987 
                HELP-PROMPT:      Enter disability from MAS which applies to this Prosthetic Disability.  There may be more than 
                                  one. 
                DESCRIPTION:      Contains the Corresponding MAS disability code that is related to the Prosthetics Disability
                                  Code.  

                CROSS-REFERENCE:  662.06^B 
                                  1)= S ^RMPR(662,DA(1),1,"B",$E(X,1,30),DA)=""
                                  2)= K ^RMPR(662,DA(1),1,"B",$E(X,1,30),DA)





      FILES POINTED TO                      FIELDS

DISABILITY CONDITION (#31)        CORRESPONDING MAS DISABILITY:CORRESPONDING MAS DISABILITY (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):