Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^DIC(81.1

Package: CPT Files

Global: ^DIC(81.1


Information

FileMan FileNo FileMan Filename Package
81.1 CPT CATEGORY CPT Files

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
Third Party Billing 6 ABMDE8C    ABMDEML    ABMDEMLE    ABMDESM1    ABMDESMH    ABMEH63    
CPT Files 4 ^DIC(81.1    ACPT219    ACPT24P2    ACPTPOST    
DRG Grouper 2 ICPTAPIU    ICPTCR    
Automated Information Collection System 1 IBDFLST    
GUI Objects 1 BGOCPTP2    
IHS Code Set Versioning 1 BCSVMD    
Local Area Programs 1 AZAXPTR    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
CPT Files 1 ACPT219    
IHS Code Set Versioning 1 BCSVUT    
Lexicon Utility 1 LEXQCP    
Third Party Billing 1 ABMCVAPI    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
CPT Files 2 CPT CATEGORY(#81.1)[3]    CPT(#81)[3]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
CPT Files 2 CPT CATEGORY(#81.1)[3]    CPT(#81)[9999999.03]    
Utility Tables 1 REVENUE CODES(#9999999.72)[9999999.01]    

Fields, Total: 10

Field # Name Loc Type Details
.01 CATEGORY NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
  • DELETE TEST:  .01,0)= I 1
  • 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)
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 and 's' - Sub-Category
3 MAJOR CATEGORY 0;3 POINTER TO CPT CATEGORY FILE (#81.1) CPT CATEGORY(#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)
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:  AUG 09, 2007
  • HELP-PROMPT:  Answer must be 5 characters in length
  • DESCRIPTION:  
    Lowest CPT/HCPCS code to which this category applies.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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)
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:  AUG 06, 2007
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    Highest CPT/HCPCS code to which this category applies.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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.
6 SOURCE 0;6 SET
  • 'C' FOR CPT;
  • 'H' FOR HCPCS;

  • LAST EDITED:  JUN 22, 2006
  • DESCRIPTION:  
    Category defined by CPT or HCPCS.
100 DESCRIPTION D;0 WORD-PROCESSING #81.11

  • DESCRIPTION:  
    This field contains the full description of the CPT Category chosen.
9999999.01 DEFAULT REVENUE CODE 9999999;1 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • LAST EDITED:  NOV 06, 1990
9999999.02 PREVENT MODIFIER PROMPT 9999999;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 13, 1991
9999999.03 FIRST CPT CODE 9999999;3 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  OCT 27, 1997
  • CROSS-REFERENCE:  81.1^ACPT
    1)= S ^DIC(81.1,"ACPT",$E(X,1,30),DA)=""
    2)= K ^DIC(81.1,"ACPT",$E(X,1,30),DA)

External References

Name Field # of Occurrence
^DIC 3+1
CBKIL^ICPTCR 4(XREF 1K)
CBSET^ICPTCR 4(XREF 1S)
CKIL^ICPTCR 5(XREF 1K), 5(XREF 2K)
CSET^ICPTCR 5(XREF 1S), 5(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(81.1 - [#81.1] .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
9999999.03(XREF 1S), 9999999.03(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
9999999.03(XREF 1S), 9999999.03(XREF 1K)
DIC 3+1!*
DIC("S" 3+1*, 3SCR+1*
>> DIE 3+1
U 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 3+1*!, 3(XREF 1S), 3(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!
5(XREF 1S), 5(XREF 2S), 9999999.03(XREF 1S), 9999999.03(XREF 1K)
>> Y 3+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All