STANDARD DATA DICTIONARY #81 -- CPT FILE 3/24/25 PAGE 1
STORED IN ^ICPT( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 6.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the Current Procedural Terminology (CPT) codes published by the American Medical Association (AMA) and the HCPCS
codes, published by the Health Care Financing Administration (HCFA). The entries in this file are "descriptive terms and
identifying codes for reporting services and procedures performed by physicians."
If an entry needs to be added, modified or deleted a patch will be issued instructing the site how to make the change. Otherwise,
this table file should not be edited in anyway by the site.
Per VHA Directive 10-93-142, this file definition should not be modified.
APPLICATION GROUP(S): PXRS, GMTS
IDENTIFIED BY: SHORT NAME (#2), INACTIVE FLAG (#5)
POINTED TO BY: ICD OR CPT CODE field (#3) of the CATASTROPHIC DISABILITY REASONS File (#27.17)
CPT CODE field (#.01) of the INPATIENT CPT CODE File (#46)
DEFAULT SITE/SPECIMEN CPT field (#506) of the LABORATORY TEST File (#60)
HCPCS CODE field (#507) of the LABORATORY TEST File (#60)
SPECIMEN CPT field (#.01) of the SPECIMEN CPT sub-field (#60.196) of the SITE/SPECIMEN sub-field (#60.01) of the
LABORATORY TEST File (#60)
RELATED ENTRY field (#.06) of the CODE SYSTEM REFERENCE sub-field (#63.00014) of the LAB DATA File (#63)
CODE field (#.01) of the CODE sub-field (#64.018) of the WKLD CODE File (#64)
CODE field (#.01) of the CODE sub-field (#64.811718) of the TRANSPORT sub-field (#64.8117) of the LAB NLT/CPT CODES
File (#64.81)
NAME field (#.01) of the OPERATION (MSBOS) File (#66.5)
CPT CODE field (#9) of the RAD/NUC MED PROCEDURES File (#71)
CPT CODE field (#9) of the NEW RAD PROCEDURE WORKUP File (#71.11)
PLANNED PRIN PROCEDURE CODE field (#27) of the SURGERY File (#130)
PLANNED OTHER PROC CPT CODE field (#3) of the OTHER PROCEDURES sub-field (#130.16) of the SURGERY File (#130)
OPERATION field (#.01) of the OPERATION sub-field (#131.251) of the OPERATION TIMES File (#131.25)
CPT CODE field (#.01) of the CPT-SPINAL LEVEL File (#131.4)
PRINCIPAL PROCEDURE CODE field (#.02) of the SURGERY PROCEDURE/DIAGNOSIS CODES File (#136)
OTHER PROCEDURE CODE field (#.01) of the OTHER PROCEDURE CODES sub-field (#136.03) of the SURGERY
PROCEDURE/DIAGNOSIS CODES File (#136)
CPT CODE field (#.01) of the CPT EXCLUSIONS File (#137)
SELECTION ITEM field (#.01) of the SELECTION ITEM sub-field (#142.14) of the STRUCTURE sub-field (#142.01) of the
HEALTH SUMMARY TYPE File (#142)
SERVICE PROVIDED field (#.01) of the SERVICE PROVIDED sub-field (#162.03) of the INITIAL TREATMENT DATE sub-field
(#162.02) of the VENDOR sub-field (#162.01) of the FEE BASIS PAYMENT File (#162)
PROCEDURE field (#.02) of the BILLABLE AMBULATORY SURGICAL CODE File (#350.4)
PROCEDURE field (#.01) of the UPDATE BILLABLE AMBULATORY SURGICAL CODE File (#350.41)
PROCEDURE field (#.06) of the AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS File (#350.71)
DEFAULT RX REFILL CPT field (#1.3) of the IB SITE PARAMETERS File (#350.9)
CMN CPT CODES field (#.01) of the CMN CPT CODES sub-field (#350.916) of the IB SITE PARAMETERS File (#350.9)
PROCEDURES field (#.01) of the PROCEDURES sub-field (#351.613) of the TRANSFER PRICING TRANSACTIONS File (#351.61)
SURGICAL PROCEDURE CODE field (#10.07) of the HCS REVIEW TRANSMISSION File (#356.22)
PROCEDURE #1 field (#1.02) of the SERVICE LINE sub-field (#356.2216) of the HCS REVIEW TRANSMISSION File (#356.22)
PROCEDURE CODE #2 field (#1.03) of the SERVICE LINE sub-field (#356.2216) of the HCS REVIEW TRANSMISSION File
(#356.22)
CODE field (#.01) of the TYPE OF VISIT File (#357.69)
NAME field (#.01) of the CHARGE ITEM File (#363.2)
PROCEDURE 1 field (#.03) of the BILLING REVENUE CODE LINKS File (#363.33)
PROCEDURE 2 field (#.04) of the BILLING REVENUE CODE LINKS File (#363.33)
SERVICE IDENTIFICATION CODE field (#.03) of the STC-SVC LINE STAT INFO SEQ [D] sub-field (#368.0121) of the HEALTH
CARE CLAIM RFAI (277) File (#368)
PROCEDURE CODE field (#3.03) of the PFSS CHARGE CACHE File (#373)
PROCEDURE CODE field (#3.03) of the PFSS ACCOUNT File (#375)
*CPT PROCEDURE CODE (1) field (#51) of the BILL/CLAIMS File (#399)
*CPT PROCEDURE CODE (2) field (#52) of the BILL/CLAIMS File (#399)
*CPT PROCEDURE CODE (3) field (#53) of the BILL/CLAIMS File (#399)
*HCFA PROCEDURE CODE (1) field (#57) of the BILL/CLAIMS File (#399)
*HCFA PROCEDURE CODE (2) field (#58) of the BILL/CLAIMS File (#399)
*HCFA PROCEDURE CODE (3) field (#59) of the BILL/CLAIMS File (#399)
PRIMARY SURGICAL PROC CODE field (#266) of the BILL/CLAIMS File (#399)
SECONDARY SURGICAL PROC CODE field (#267) of the BILL/CLAIMS File (#399)
PROCEDURES field (#304) of the BILL/CLAIMS File (#399)
PROCEDURES field (#.01) of the PROCEDURES sub-field (#399.0304) of the BILL/CLAIMS File (#399)
CMN PROCEDURE A field (#24.204) of the PROCEDURES sub-field (#399.0304) of the BILL/CLAIMS File (#399)
CMN PROCEDURE B field (#24.219) of the PROCEDURES sub-field (#399.0304) of the BILL/CLAIMS File (#399)
PROCEDURE field (#.06) of the REVENUE CODE sub-field (#399.042) of the BILL/CLAIMS File (#399)
PROCEDURE 1 field (#21) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
PROCEDURE 2 field (#22) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
PROCEDURE 3 field (#23) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
PROCEDURE 4 field (#24) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
PROCEDURE 5 field (#25) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
OPERATION CODES field (#.01) of the OPERATION CODES sub-field (#445.781) of the CASE CARTS File (#445.7)
PRINCIPAL PROCEDURE CODE field (#130.01) of the INVENTORY DISTRIBUTED PATIENT SUPPLIES File (#446.1)
CPT field (#.01) of the CPT sub-field (#632.032) of the HBHC VISIT File (#632)
HCPCS field (#4.1) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
CPT field (#2) of the PROSTHETIC HCPCS File (#661.1)
CPT CODE field (#.01) of the ASTM File (#690.5)
CODE field (#.01) of the CODE sub-field (#694.801) of the PROCEDURE TERM File (#694.8)
CPT field (#.01) of the CPT sub-field (#697.21) of the PROCEDURE/SUBSPECIALTY File (#697.2)
VARIABLE POINTER field (#5) of the File (#720)
ECSCREEN field (#52.1) of the File (#720.2)
PROCEDURE field (#52.1) of the EC EVENT CODE SCREENS File (#720.3)
PROCEDURE field (#8) of the EVENT CAPTURE PATIENT File (#721)
PCE CPT CODE field (#19) of the EVENT CAPTURE PATIENT File (#721)
CPT field (#4) of the EC NATIONAL PROCEDURE File (#725)
CPT CODE field (#.08) of the WV PROCEDURE TYPE File (#790.2)
INPATIENT CPT CODE field (#.01) of the INPATIENT CPT CODE sub-field (#798.53) of the ROR ICD SEARCH File (#798.5)
ADDITIONAL FINDINGS field (#18) of the REMINDER DIALOG File (#801.41)
FILE ENTRY field (#.01) of the PCE CODE MAPPING File (#811.1)
RELATED SUPPORTING FILE ENTRY field (#.02) of the PCE CODE MAPPING File (#811.1)
CPT CODE field (#6) of the CLINICAL SPECIALTY DICOM & HL7 File (#2006.5831)
CPT CODE field (#.01) of the MAG RAD CPT MATCHING File (#2006.67)
CODE field (#.01) of the A&SP PROCEDURE CODE File (#509850.4)
CPT field (#.01) of the V CPT File (#9000010.18)
CPT CODE field (#.11) of the IMMUNIZATION File (#9999999.14)
CPT CODE 2ND field (#1.15) of the IMMUNIZATION File (#9999999.14)
CPT CODE field (#.11) of the SKIN TEST File (#9999999.28)
CROSS
REFERENCED BY: CPT CODE(ACT1), EFFECTIVE DATE(ACT2), STATUS(ACT3), VERSION DATE(ADS), VERSION DATE(AST), CPT CODE(B),
CPT CODE(BA), DESCRIPTION(C), CPT CATEGORY(D), CPT CODE(E), CPT CODE(F)
81,.01 CPT CODE 0;1 FREE TEXT (Required)
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.
81,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
81,3 CPT CATEGORY 0;3 POINTER TO CPT CATEGORY FILE (#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)
81,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.
81,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.
81,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.
81,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.
81,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.
81,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.
81,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.
81,50 DESCRIPTION D;0 Multiple #81.01 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains the descriptions for various CPT codes.
81.01,.01 DESCRIPTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X
LAST EDITED: AUG 23, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the full description of the CPT code.
CROSS-REFERENCE: 81.01^B
1)= S ^ICPT(DA(1),"D","B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(1),"D","B",$E(X,1,30),DA)
CROSS-REFERENCE: 81^C^MUMPS
1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X
,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(81.01,.01,9.9)'[I S ^ICPT("C",I,DA(1),DA)=""
2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X
,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ICPT("C",I,DA(1),DA)
81,60 EFFECTIVE DATE 60;0 DATE Multiple #81.02 (Add New Entry without Asking)
81.02,.01 EFFECTIVE DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 21, 2003
DESCRIPTION:
Date from which current status is effective.
CROSS-REFERENCE: 81.02^B
1)= S ^ICPT(DA(1),60,"B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(1),60,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 81^ACT2^MUMPS
1)= D SAHD^ICPTIDX
2)= D KAHD^ICPTIDX
Set and Kill Activation History.
81.02,.02 STATUS 0;2 SET (Required)
'0' FOR INACTIVE;
'1' FOR ACTIVE;
LAST EDITED: FEB 21, 2003
CROSS-REFERENCE: 81^ACT3^MUMPS
1)= D SAHS^ICPTIDX
2)= D KAHS^ICPTIDX
Set and Kill Activation History.
81,61 SHORT NAME (VERSIONED) 61;0 DATE Multiple #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.
81.061,.01 VERSION DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2790101>X X
LAST EDITED: MAR 19, 2004
HELP-PROMPT: TYPE A DATE NOT EARLIER THAN JAN 01, 1979
DESCRIPTION:
This is the date the procedure text was first used.
CROSS-REFERENCE: 81.061^B
1)= S ^ICPT(DA(1),61,"B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(1),61,"B",$E(X,1,30),DA)
^ICPT(IEN1,61,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the CPT-4 Procedure file
#81, EFF is the effective date for the procedure (short text), and IEN2 is the internal entry
number in the SHORT NAME (VERSIONED) multiple where the versioned short text is stored.
CROSS-REFERENCE: 81^AST^MUMPS
1)= S:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("AST",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)=
""
2)= K:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("AST",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)
^ICPT("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure Code, EFF is the
effective date for the procedure text (short text), IEN1 is the internal entry number in the CPT-4
Procedure file (#81) and IEN2 is the internal entry number in the SHORT NAME (VERSIONED) multiple
where the versioned short text is stored.
81.061,1 SHORT NAME (VERSIONED) 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>28!($L(X)<1) X
LAST EDITED: MAR 19, 2004
HELP-PROMPT: Answer must be 1-28 characters in length
DESCRIPTION:
This is the procedure that was used beginning on the 'effective date.'
81,62 DESCRIPTION (VERSIONED) 62;0 DATE Multiple #81.062
DESCRIPTION: This is a history of the descriptive text to include the date the text was first used and the text
used.
81.062,.01 VERSION DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2790101>X X
LAST EDITED: MAR 19, 2004
HELP-PROMPT: TYPE A DATE NOT EARLIER THAN JAN 01, 1979
DESCRIPTION:
This is the date the description was first used.
CROSS-REFERENCE: 81.062^B
1)= S ^ICPT(DA(1),62,"B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(1),62,"B",$E(X,1,30),DA)
^ICPT(IEN1,62,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the CPT-4 Procedure file
#81, EFF is the effective date for the description (long text), and IEN2 is the internal entry
number in the DESCRIPTION (VERSIONED) multiple where the versioned procedure description is
stored.
CROSS-REFERENCE: 81^ADS^MUMPS
1)= S:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("ADS",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)=
""
2)= K:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("ADS",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)
^ICPT("ADS",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure Code, EFF is the
effective date for the description (long text), IEN1 is the internal entry number in the CPT-4
Procedure file (#81) and IEN2 is the internal entry number in the DESCRIPTION (VERSIONED) multiple
where the versioned long text is stored.
81.062,1 DESCRIPTION (VERSIONED) 1;0 Multiple #81.621
LAST EDITED: MAR 19, 2004
DESCRIPTION:
This is the long description (multiple line).
81.621,.01 DESCRIPTION (VERSIONED) 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: MAR 19, 2004
HELP-PROMPT: Answer must be 1-80 characters in length
DESCRIPTION:
This is a single line of a multiple line description.
CROSS-REFERENCE:81.621^B
1)= S ^ICPT(DA(2),62,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(2),62,DA(1),1,"B",$E(X,1,30),DA)
^ICPT(IEN3,62,IEN2,1,"B",TEXT,IEN1) - Where IEN3 is the internal entry number to the DRG file
#81, IEN2 is the internal entry number of the DESCRIPTION (VERSIONED) multiple #81.062, TEXT is a
single line of text of a multiple lined description, and IEN1 is the internal entry number of the
DESCRIPTION sub-file #81.621 where the text is stored.
FILES POINTED TO FIELDS
CPT CATEGORY (#81.1) CPT CATEGORY (#3)
INPUT TEMPLATE(S):
DG RAM-DATA-INPUT AUG 11, 1989 USER #0
PRINT TEMPLATE(S):
ICPT PRINT APR 03, 1997@10:26 USER #0 CPT LIST
SORT TEMPLATE(S):
ICPT NEW/INACTIVE CODES MAR 26, 1997@13:59 USER #0
SORT BY: @@@EFFECTIVE DATE//
EFFECTIVE DATE SUB-FIELD: EFFECTIVE DATE// (User is asked range)
WITHIN EFFECTIVE DATE, SORT BY: @INACTIVE FLAG// (User is asked range)
WITHIN INACTIVE FLAG, SORT BY: @CPT CODE// (User is asked range)
This template will gather all the CPT codes that are newly active or
inactive, as of the current distribution date. ($$CPTDIST^ICPTAPIU)
FORM(S)/BLOCK(S):