STANDARD DATA DICTIONARY #81.1 -- CPT CATEGORY FILE                                                               3/24/25    PAGE 1
STORED IN ^DIC(81.1,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 6.0)   

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



POINTED TO BY: CPT CATEGORY field (#3) of the CPT File (#81) 
               MAJOR CATEGORY field (#3) of the CPT CATEGORY File (#81.1) 
               

CROSS
REFERENCED BY: CATEGORY NAME(B), MAJOR CATEGORY(C), END CPT RANGE(M), END CPT RANGE(R), BEGIN CPT RANGE(R2)



81.1,.01      CATEGORY NAME          0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      ANSWER MUST BE 3-80 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This field contains the category name associated with specified CPT Code.  

              CROSS-REFERENCE:  81.1^B 
                                1)= S ^DIC(81.1,"B",$E(X,1,63),DA)=""
                                2)= K ^DIC(81.1,"B",$E(X,1,63),DA)


81.1,2        TYPE OF CATEGORY       0;2 SET

                                'm' FOR MAJOR CATEGORY; 
                                's' FOR SUB-CATEGORY; 
              DESCRIPTION:      This field contains the type of category associated with specified CPT code.  It is a set of codes
                                where 'm' - Major Category 
                                                           's' - Sub-Category 


81.1,3        MAJOR CATEGORY         0;3 POINTER TO CPT CATEGORY FILE (#81.1)

              INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""m""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      SEP 19, 1988 
              DESCRIPTION:      This field contains the Major Category associated with specified CPT Code.  It is a pointer to the
                                CPT Category File.  

              SCREEN:           S DIC("S")="I $P(^(0),U,2)=""m"""
              EXPLANATION:      Allow only 'major' categories.
              CROSS-REFERENCE:  81.1^C 
                                1)= S ^DIC(81.1,"C",$E(X,1,30),DA)=""
                                2)= K ^DIC(81.1,"C",$E(X,1,30),DA)


81.1,4        BEGIN CPT RANGE        0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X
              LAST EDITED:      JAN 19, 2005 
              HELP-PROMPT:      Answer must be 5 characters in length 
              DESCRIPTION:
                                Lowest CPT/HCPCS code to which this category applies.  

              CROSS-REFERENCE:  81.1^R2^MUMPS 
                                1)= I $P($G(^DIC(81.1,DA,0)),U,5)]"" D CBSET^ICPTCR(DA,X)
                                2)= I $P($G(^DIC(81.1,DA,0)),U,5)]"" D CBKIL^ICPTCR(DA,X)
                                This updates the cross reference on the begin/end ranges for a category The cross reference looks
                                like:  ^DIC(81.1,<"R" or "M">,,DA) 



81.1,5        END CPT RANGE          0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X
              LAST EDITED:      JAN 19, 2005 
              HELP-PROMPT:      Answer must be 5 characters in length 
              DESCRIPTION:
                                Highest CPT/HCPCS code to which this category applies.  

              CROSS-REFERENCE:  81.1^M^MUMPS 
                                1)= I $P(^DIC(81.1,DA,0),U,2)="m" D CSET^ICPTCR(DA,X,"M")
                                2)= I $P(^DIC(81.1,DA,0),U,2)="m" D CKIL^ICPTCR(DA,"M")
                                This cross reference is for major categories.  The format is: 
                                 
                                ^DIC(81.1,"M",,DA) =  
                                 
                                where the ranges have been converted to numeric formats, using $A if HCPCS codes.  


              CROSS-REFERENCE:  81.1^R^MUMPS 
                                1)= I $P(^DIC(81.1,DA,0),U,2)'="m" D CSET^ICPTCR(DA,X,"R")
                                2)= I $P(^DIC(81.1,DA,0),U,2)'="m" D CKIL^ICPTCR(DA,"R")
                                This cross reference is for other than major categories.  The format is: ^DIC(81.1,"R",,DA) =  where the ranges have been converted to numeric formats, using $A if
                                HCPCS codes.  



81.1,6        SOURCE                 0;6 SET

                                'C' FOR CPT; 
                                'H' FOR HCPCS; 
              LAST EDITED:      MAR 10, 1997 
              DESCRIPTION:
                                Category defined by CPT or HCPCS.  


81.1,100      DESCRIPTION            D;0   WORD-PROCESSING #81.11

              DESCRIPTION:
                                This field contains the full description of the  CPT Category chosen.  






      FILES POINTED TO                      FIELDS

CPT CATEGORY (#81.1)              MAJOR CATEGORY (#3)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):