STANDARD DATA DICTIONARY #82.1 -- DRG PROCEDURE IDENTIFIER CODES FILE                                             9/29/25    PAGE 1
STORED IN ^ICDIP(  (223 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 PROCEDURE IDENTIFIER CODE field (#.01) of the DRG PROCEDURE IDENTIFIER CODES sub-field (#80.173) of the ICD 
                   OPERATION/PROCEDURE File (#80.1) 
               IDENTIFIER CODE field (#.01) of the DRG PROCEDURE CODE COMBINATIONS File (#82.11) 
               

CROSS
REFERENCED BY: IDENTIFIER CODE(B)

INDEXED BY:    DESCRIPTION (C)




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

              INPUT TRANSFORM:  K:$L(X)>10!($L(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 Identifier Code 

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


82.1,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 (#1138)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Cross reference on Description
                    Set Logic:  S ^ICDIP("C",$E(X,1,150),DA)=""
                   Kill Logic:  K ^ICDIP("C",$E(X,1,150),DA)
                   Whole Kill:  K ^ICDIP("C")
                         X(1):  DESCRIPTION  (82.1,1)  (Subscr 1)  (Len 150)  (forwards)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):