STANDARD DATA DICTIONARY #399.2 -- REVENUE CODE FILE 6/27/25 PAGE 1
STORED IN ^DGCR(399.2, (999 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all of the Revenue Codes which may be used on the Third Party claim forms.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
IDENTIFIED BY: STANDARD ABBREVIATION (#1), DESCRIPTION (#3)[R]
POINTED TO BY: AMBULATORY SURG. REV. CODE field (#.09) of the INSURANCE COMPANY File (#36)
PRESCRIPTION REFILL REV. CODE field (#.15) of the INSURANCE COMPANY File (#36)
REVENUE CODE field (#48) 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)
*DEFAULT AMB SURG REV CODE field (#1.18) of the IB SITE PARAMETERS File (#350.9)
*DEFAULT RX REFILL REV CODE field (#1.28) of the IB SITE PARAMETERS File (#350.9)
REVENUE CODE field (#.01) of the PRINTED CLAIMS RC EXCLUSIONS sub-field (#350.9399) of the IB SITE PARAMETERS File
(#350.9)
REVENUE CODE field (#2.06) of the SERVICE LINE sub-field (#356.2216) of the HCS REVIEW TRANSMISSION File (#356.22)
REVENUE CODE field (#.1) of the 835 LINE LEVEL ADJUSTMENTS sub-field (#361.115) of the EXPLANATION OF BENEFITS File
(#361.1)
DEFAULT REVENUE CODE field (#.05) of the CHARGE SET File (#363.1)
REVENUE CODE field (#.06) of the CHARGE ITEM File (#363.2)
REVENUE CODE field (#.01) 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)
REVENUE CODE field (#.09) of the STC-SVC LINE STAT INFO SEQ [D] sub-field (#368.0121) of the HEALTH CARE CLAIM RFAI
(277) File (#368)
REVENUE CODE field (#.01) of the REVENUE CODE sub-field (#399.042) of the BILL/CLAIMS File (#399)
REVENUE CODE field (#.03) of the BILLING RATES File (#399.5)
CROSS
REFERENCED BY: ACTIVATE(AC), REVENUE CODE(B), STANDARD ABBREVIATION(C), ACTIVATE(D1), DESCRIPTION(E), REVENUE CODE(F)
399.2,.01 REVENUE CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S:$L(X)<3 X=$E("000",1,3-$L(X))_X K:X="000" X K:$L(X)>3!($L(X)<3)!'(X
?3N) X I $D(X) S DINUM=+X K X
LAST EDITED: OCT 03, 1990
HELP-PROMPT: Enter the 3-digit numeric code associated with this entry.
DESCRIPTION:
This is the 3-digit numeric code associated with this entry.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 399.2^B
1)= S ^DGCR(399.2,"B",$E(X,1,30),DA)=""
2)= K ^DGCR(399.2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 399.2^F^MUMPS
1)= I +X,+X<100 S ^DGCR(399.2,"F",+X,DA)=""
2)= K ^DGCR(399.2,"F",+X,DA)
All revenue codes less than 100.
399.2,1 STANDARD ABBREVIATION 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X?1"*".A!(X?1A.E)) X I $D(X),$E(X)="*" S X=X_"
RESERVED" K X
LAST EDITED: JUN 14, 2004
HELP-PROMPT: Enter the 1-60 character abbreviation of the description field of this entry.
DESCRIPTION:
This is the abbreviation of the description field of this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 399.2^C
1)= S ^DGCR(399.2,"C",$E(X,1,30),DA)=""
2)= K ^DGCR(399.2,"C",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^399.2^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=$E(X)="*" I X S X=DIV S Y(1)=$S($D(^DGCR(399.
2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(399.2,1,1,2,1.4)
1.4)= S DIH=$G(^DGCR(399.2,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=399.2,DIG=3 D ^DICR
2)= Q
CREATE CONDITION)= $E(STANDARD ABBREVIATION)="*"
CREATE VALUE)= STANDARD ABBREVIATION
DELETE VALUE)= NO EFFECT
FIELD)= DESCRIPTION
399.2,2 ACTIVATE 0;3 SET (Required)
'1' FOR ACTIVATE CODE;
'0' FOR INACTIVATE CODE;
INPUT TRANSFORM: Q:'X S %=^DGCR(399.2,+DA,0) I $E($P(%,"^",2))="*"!($E($P(%,"^",4))="*") W !?4,"Can't activate a RE
SERVED code...",*7 K X
LAST EDITED: DEC 21, 1993
HELP-PROMPT: Enter 'A' or '1' if you want to activate this code for usage. 'I' or '0' if you want this code to
remain inactive.
DESCRIPTION:
This indicates whether or not this revenue code has been activated for use.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 399.2^AC^MUMPS
1)= I $P(^DGCR(399.2,DA,0),"^",3)=1 S ^DGCR(399.2,"AC",DA)=""
2)= K ^DGCR(399.2,"AC",DA)
Cross reference of all active revenue codes.
CROSS-REFERENCE: 399.2^D1^MUMPS
1)= S Z1=+X,Z=$P(^DGCR(399.2,DA,0),"^",1) X ^DD(399.2,2,9.3)
2)= S Z1=+X,Z=$P(^DGCR(399.2,DA,0),"^",1) X ^DD(399.2,2,9.4)
399.2,3 DESCRIPTION 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the 2-60 character description of this revenue code.
DESCRIPTION:
This is the full length description of this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the STANDARD ABBREVIATION field of the REVENUE CODE File
CROSS-REFERENCE: 399.2^E^KWIC
1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?!'-/&:;)\|*#+`="[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I
$L(I)>2,^DD("KWIC")'[I S ^DGCR(399.2,"E",I,DA)=""
2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?!'-/&:;)\|*#+`="[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I
$L(I)>2 K ^DGCR(399.2,"E",I,DA)
399.2,4 ALL INCLUSIVE 0;5 SET
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM: K X
LAST EDITED: AUG 31, 1988
HELP-PROMPT: Enter the code which indicates if this revenue code is an all inclusive rate.
DESCRIPTION:
This indicates whether or not this revenue code is an all inclusive rate.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
INPUT TEMPLATE(S):
IB ACTIVATE JUN 20, 1988 USER #0
Activate/inactivate revenue codes.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):