STANDARD DATA DICTIONARY #82 -- DRG DIAGNOSIS IDENTIFIER CODES FILE                                               9/29/25    PAGE 1
STORED IN ^ICDID(  (273 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                       (VERSION 18.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

POINTED TO BY: DRG DIAGNOSIS IDENTIFIER CODE field (#.01) of the DRG DIAGNOSIS IDENTIFIER CODES sub-field (#80.073) of the ICD 
                   DIAGNOSIS File (#80) 
               IDENTIFIER CODE field (#.01) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) 
               

CROSS
REFERENCED BY: IDENTIFIER CODE(B)

INDEXED BY:    DESCRIPTION (C)




82,.01        IDENTIFIER CODE        0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!($E(X,1)'="*"&('(X'?1P.E))) X
              LAST EDITED:      MAY 29, 2012 
              HELP-PROMPT:      Answer must be 1-10 characters in length. 
              DESCRIPTION:
                                ICD-9 and ICD-10 Diagnosis Identifier Code 

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


82,1          DESCRIPTION            0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
              LAST EDITED:      MAY 29, 2012 
              HELP-PROMPT:      Answer must be 1-150 characters in length. 
              DESCRIPTION:
                                Description of this Identifier Code 

              FIELD INDEX:      C (#1137)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Cross reference on Description
                    Set Logic:  S ^ICDID("C",$E(X,1,150),DA)=""
                   Kill Logic:  K ^ICDID("C",$E(X,1,150),DA)
                   Whole Kill:  K ^ICDID("C")
                         X(1):  DESCRIPTION  (82,1)  (Subscr 1)  (Len 150)  (forwards)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):