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 |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^ICPT

Package: CPT HCPCS Codes

Global: ^ICPT


Information

FileMan FileNo FileMan Filename Package
81 CPT CPT HCPCS Codes

Description

Directly Accessed By Routines, Total: 110

Package Total Routines
Event Capture 28 EC2P123A    EC2P12PT    EC2P16PT    EC2P20PT    EC2P21PT    EC2P22PT    EC2P24PT    EC2P26PT
EC2P27PT    EC2P52PT    EC2P60PT    EC2P67PT    EC2P71PT    EC2P74PT    EC2P77PT    EC2P79PT
EC2P80PT    EC2P81PT    EC2P85PT    EC2P89PT    EC2P93PT    EC2P96PT    EC2P97PT    EC2P99PT
ECP102PT    ECP106PT    ECP111PT    ECP115PT    
Lexicon Utility 28 LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P    LEX2038P
LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2044P    LEX2045P    LEX2046P    LEX2047A
LEX2047B    LEX2048P    LEXQC4    LEXQC5    LEXQCP    LEXQCP2    LEXQHL3    LEXQL
LEXQL2    LEXQL4    LEXU2    LEXXGI3    
CPT HCPCS Codes 15 ICPT NEW/INACTIVE CODES    ICPT60PR    ICPT613R    ICPT614E    ICPT616    ICPT619    ICPT63PR    ICPT64PR
ICPT65PT    ICPT68PR    ICPT69PR    ICPTCOD    ICPTID    ICPTIDX    ICPTMOD2    
DSS Extracts 6 ECXEC    ECXFEKEY    ECXLPRO    ECXPRO1    ECXSCX    ECXUEC    
Registration 6 DESCRIPTION    DESCRIPTION (VERSIONED)    DGPTFM2    EFFECTIVE DATE    SHORT NAME (VERSIONED)    VAFEOHL2    
Integrated Billing 4 IBXCPTC    REPORT    ^IBE(350.71    IBCSC8    
Quasar 4 ACKQAS3    ACKQR4    ACKQUTL6    ACKQWL1    
Automated Information Collection System 3 ^IBE(357.69    IBDFLST    IBDFN4    
Scheduling 3 SCCVPCE    SDXAMB    SDXLST    
Pharmacy Benefits Management 2 PSUDEM2    PSUDEM6    
Surgery 2 SR62UTL    SRSCHC1    
Emergency Department Integration Software 1 EDPQLE    
Fee Basis 1 FBPST35B    
Hospital Based Home Care 1 HBHCXMV    
Lab Service 1 ^LAB(66.5    
Prosthetics 1 RMPRSE2    

Accessed By FileMan Db Calls, Total: 88

Package Total Routines
Event Capture 38 EC2P117    EC2P118    EC2P120    EC2P125    EC2P132B    EC2P132C    EC2P137B    EC2P137C
EC2P141C    EC2P144B    EC2P144C    EC2P146B    EC2P146C    EC2P147B    EC2P147C    EC2P149B
EC2P149C    EC725U20    EC725U21    EC725U22    EC725U23    EC725U34    EC725U35    EC725U40
EC725U41    EC725U42    EC725U43    EC725U44    EC725U45    EC725U46    EC725U47    EC725U48
EC725U49    EC725U60    EC725U61    ECRDSSA    ECUTL    ECUTL3    
Lexicon Utility 20 LEX2030P    LEX2031P    LEX2033P    LEX2034P    LEX2035P    LEX2036P    LEX2037P    LEX2038P
LEX2039P    LEX2040P    LEX2042P    LEX2043P    LEX2045P    LEX2046P    LEX2047A    LEX2047B
LEX2048P    LEX2109P    LEXQCP    LEXQCPA    
Integrated Billing 8 IBCCPT    IBCD3    IBCRER1    IBCROIP    IBCRU1    IBJPS8    IBTRHLI3    IBY608PO
CPT HCPCS Codes 4 ICPT614E    ICPT65PT    ICPTID    ICPTPRN    
Imaging 3 MAGDHOWE    MAGDRPCC    MAGDTRDX    
DSS Extracts 2 ECXPROCT    ECXUCPT    
Lab Service 2 LRBLPCSS    LRBLS    
VBECS 2 VBECRPCA    VBECRPCH    
Accounts Receivable 1 RCXVDC4    
Automated Information Collection System 1 IBDFUTL    
Clinical Case Registries 1 RORRP042    
Hospital Based Home Care 1 HBHCUTL4    
PCE Patient Care Encounter 1 PXBGCPT2    
Prosthetics 1 RMPRSE2    
Radiology Nuclear Medicine 1 RADRPT1    
Scheduling 1 SDAMBMR    
Text Integration Utility 1 TIUPXAPC    

Pointed To By FileMan Files, Total: 51

Package Total FileMan Files
Integrated Billing 12 BILL/CLAIMS(#399)[51, 52, 53, 57, 58, 59, 266, 267, 304, #399.0304(.01), #399.0304(24.204), #399.0304(24.219), #399.042(.06)]    CHARGE ITEM(#363.2)[.01]    HEALTH CARE CLAIM RFAI (277)(#368)[#368.0121(.03)]    TRANSFER PRICING TRANSACTIONS(#351.61)[#351.613(.01)]    PFSS ACCOUNT(#375)[3.03]    PFSS CHARGE CACHE(#373)[3.03]    BILLABLE AMBULATORY SURGICAL CODE(#350.4)[.02]    UPDATE BILLABLE AMBULATORY SURGICAL CODE(#350.41)[.01]    AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS(#350.71)[.06]    IB SITE PARAMETERS(#350.9)[1.3, #350.916(.01)]    BILLING REVENUE CODE LINKS(#363.33)[.03, .04]    HCS REVIEW TRANSMISSION(#356.22)[10.07, #356.2216(1.02), #356.2216(1.03)]
Lab Service 5 LABORATORY TEST(#60)[506, 507, #60.196(.01)]
LAB NLT/CPT CODES(#64.81)[#64.811718(.01)]    OPERATION (MSBOS)(#66.5)[.01]    WKLD CODE(#64)[#64.018(.01)]    LAB DATA(#63)[#63.00014(.06)]    
Surgery 5 SURGERY(#130)[27, #130.16(3)]    OPERATION TIMES(#131.25)[#131.251(.01)]    CPT-SPINAL LEVEL(#131.4)[.01]    SURGERY PROCEDURE/DIAGNOSIS CODES(#136)[.02, #136.03(.01)]    CPT EXCLUSIONS(#137)[.01]    
PCE Patient Care Encounter 4 V CPT(#9000010.18)[.01]    IMMUNIZATION(#9999999.14)[.11, 1.15]    SKIN TEST(#9999999.28)[.11]    PCE CODE MAPPING(#811.1)[.01, .02]    
Event Capture 3 EC NATIONAL PROCEDURE(#725)[4]    EVENT CAPTURE PATIENT(#721)[8, 19]    EC EVENT CODE SCREENS(#720.3)[52.1]    
Medicine 3 ASTM(#690.5)[.01]    PROCEDURE TERM(#694.8)[#694.801(.01)]    PROCEDURE/SUBSPECIALTY(#697.2)[#697.21(.01)]    
IFCAP 2 CASE CARTS(#445.7)[#445.781(.01)]    INVENTORY DISTRIBUTED PATIENT SUPPLIES(#446.1)[130.01]    
Imaging 2 CLINICAL SPECIALTY DICOM & HL7(#2006.5831)[6]    MAG RAD CPT MATCHING(#2006.67)[.01]    
Prosthetics 2 RECORD OF PROS APPLIANCE/REPAIR(#660)[4.1]    PROSTHETIC HCPCS(#661.1)[2]    
Radiology Nuclear Medicine 2 RAD/NUC MED PROCEDURES(#71)[9]    NEW RAD PROCEDURE WORKUP(#71.11)[9]    
Registration 2 INPATIENT CPT CODE(#46)[.01]    CATASTROPHIC DISABILITY REASONS(#27.17)[3]    
Automated Information Collection System 1 TYPE OF VISIT(#357.69)[.01]    
Clinical Case Registries 1 ROR ICD SEARCH(#798.5)[#798.53(.01)]    
Clinical Reminders 1 REMINDER DIALOG(#801.41)[18]    
Fee Basis 1 FEE BASIS PAYMENT(#162)[#162.03(.01)]    
Health Summary 1 HEALTH SUMMARY TYPE(#142)[#142.14(.01)]    
Hospital Based Home Care 1 HBHC VISIT(#632)[#632.032(.01)]    
Quasar 1 A&SP PROCEDURE CODE(#509850.4)[.01]    
Scheduling 1 SCHEDULING VISITS(#409.5)[#409.51(21), #409.51(22), #409.51(23), #409.51(24), #409.51(25)]    
Womens Health 1 WV PROCEDURE TYPE(#790.2)[.08]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
CPT HCPCS Codes 1 CPT CATEGORY(#81.1)[3]    

Fields, Total: 14

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1A4N!(X?5N)!(X?4N1A))!(X'?.ANP) X
  • LAST EDITED:  FEB 21, 2003
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  This file contains both CPT from the AMA and HCFA. The AMA entries will have an internal number less than 99999. The AMA CPT are '5' numbers that coorespond to the internal number. The HCFA codes will have an internal
    number of 100000 or greater. These codes are '1' alpha followed by '4' numbers, which will NOT correspond to the internal number.
  • LAYGO TEST:  1,0)= I 1
    UNEDITABLE
  • CROSS-REFERENCE:  81^B
    1)= S ^ICPT("B",$E(X,1,30),DA)=""
    2)= K ^ICPT("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  81^E^MUMPS
    1)= I +X,+X<10000 S ^ICPT("E",+X,DA)=""
    2)= I +X,+X<10000 K ^ICPT("E",+X,DA)
  • CROSS-REFERENCE:  81^F^MUMPS
    1)= I 'X S ^ICPT("F",$E(X,1,30),DA)=""
    2)= I 'X K ^ICPT("F",$E(X,1,30),DA)
  • CROSS-REFERENCE:  81^BA^MUMPS
    1)= S ^ICPT("BA",X_" ",DA)=""
    2)= K ^ICPT("BA",X_" ",DA)
  • CROSS-REFERENCE:  81^ACT1^MUMPS
    1)= D SAHC^ICPTIDX
    2)= D KAHC^ICPTIDX
    Set and Kill Activation History.
2 SHORT NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:($A(X)=45) X I $D(X) K:$L(X)>28!($L(X)<1) X
  • LAST EDITED:  OCT 20, 1990
  • HELP-PROMPT:  ANSWER MUST BE 1-28 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains a short description of the CPT code. It must be between 1 and 28 characters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 CPT CATEGORY 0;3 POINTER TO CPT CATEGORY FILE (#81.1) CPT CATEGORY(#81.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""s""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 19, 1988
  • DESCRIPTION:  
    This field contains the CPT Category associated with CPT Code. It is a pointer to the CPT Category File.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""s"""
  • EXPLANATION:  Allow only 'sub-categories'.
  • CROSS-REFERENCE:  81^D
    1)= S ^ICPT("D",$E(X,1,30),DA)=""
    2)= K ^ICPT("D",$E(X,1,30),DA)
5 INACTIVE FLAG 0;4 SET
  • '1' FOR INACTIVE CODE;

  • HELP-PROMPT:  Enter if code is no longer used.
  • DESCRIPTION:  
    This field is used to inactivate a CPT code. If this field contains a '1' then the code is inactive. During the annual update of the CPT file no entries are deleted; they are inactivated by setting this flag.
6 SOURCE 0;6 SET
  • 'C' FOR CPT;
  • 'H' FOR HCPCS;
  • 'L' FOR LOCAL;

  • LAST EDITED:  MAR 10, 1997
  • DESCRIPTION:  
    Contains the source of the code - CPT, HCPCS or Local.
7 INACTIVE DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 20, 2003
  • HELP-PROMPT:  Enter date the CPT Code is deactivated.
  • DESCRIPTION:  
    Date the CPT code becomes/became inactivated.
8 ACTIVE DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 20, 2003
  • HELP-PROMPT:  Enter date the CPT Code is activated.
  • DESCRIPTION:  
    Date the CPT code becomes/became activated.
10.01 AGE(LOW) 10;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 2003
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Code reasonable for age within Age(low) and Age(high) values. Blank, otherwise.
10.02 AGE(HIGH) 10;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 2003
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Code reasonable for age within Age(low) and Age(high) values. Blank, otherwise.
10.03 SEX 10;3 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  JAN 10, 2003
  • DESCRIPTION:  
    Code acceptable if: F = Female; M = Male. Blank otherwise.
50 DESCRIPTION D;0 Multiple #81.01 81.01

  • DESCRIPTION:  
    This multiple contains the descriptions for various CPT codes.
60 EFFECTIVE DATE 60;0 DATE Multiple #81.02 81.02
61 SHORT NAME (VERSIONED) 61;0 DATE Multiple #81.061 81.061

  • DESCRIPTION:  
    This is a history of the Procedures (short text) to include the date the text was first used along with the text.
62 DESCRIPTION (VERSIONED) 62;0 DATE Multiple #81.062 81.062

  • DESCRIPTION:  
    This is a history of the descriptive text to include the date the text was first used and the text used.

External References

Name Field # of Occurrence
^%DT 7+1, 8+1
EN^DDIOL ID2+1, ID5+1
^DIC 3+1
$$IDCP^ICPTID ID5+1
$$IDCPS^ICPTID ID2+1
KAHC^ICPTIDX .01(XREF 5K)
SAHC^ICPTIDX .01(XREF 5S)
^SROCPT ID2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICPT("B" .01(XREF 1S), .01(XREF 1K)
^ICPT("BA" .01(XREF 4S), .01(XREF 4K)
^ICPT("D" 3(XREF 1S), 3(XREF 1K)
^ICPT("E" .01(XREF 2S), .01(XREF 2K)
^ICPT("F" .01(XREF 3S), .01(XREF 3K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 7+1*, 8+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), 3(XREF 1S), 3(XREF 1K)
DIC 3+1!*
DIC("S" 3+1*, 3SCR+1*
>> DIE 3+1
>> SRSITE ID2+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), 2+1!
, 3+1*!, 3(XREF 1S), 3(XREF 1K), 7+1*!, 8+1*!, 10.01+1!, 10.02+1!
>> Y ID2+1, ID5+1, 3+1, 7+1, 8+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All