STANDARD DATA DICTIONARY #363.33 -- BILLING REVENUE CODE LINKS FILE                                               6/27/25    PAGE 1
STORED IN ^IBE(363.33,  (3317 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                  (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Certain types of bills require specific revenue codes to be used to bill certain types of care.  This file allows linking of
revenue codes and the care they should be used for.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
IDENTIFIED BY: GROUP (#.02)[R], PROCEDURE 1 (#.03)[R], PROCEDURE 2 (#.04)

CROSS
REFERENCED BY: GROUP(AGP), PROCEDURE 1(AGP1), GROUP(AGPE), PROCEDURE 2(AGPE1), REVENUE CODE(B), GROUP(C)



363.33,.01    REVENUE CODE           0;1 POINTER TO REVENUE CODE FILE (#399.2) (Required)

              INPUT TRANSFORM:  S DIC("S")="I +$P(^(0),U,3)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      APR 20, 1999 
              HELP-PROMPT:      Enter a Revenue Code that should be used to bill this care. 
              DESCRIPTION:
                                This is a Revenue Code that is required to be used when billing a certain type of care.  

              SCREEN:           S DIC("S")="I +$P(^(0),U,3)=1"
              EXPLANATION:      Active Revenue Codes Only!
              CROSS-REFERENCE:  363.33^B 
                                1)= S ^IBE(363.33,"B",$E(X,1,30),DA)=""
                                2)= K ^IBE(363.33,"B",$E(X,1,30),DA)


363.33,.02    GROUP                  0;2 POINTER TO BILLING SPECIAL GROUPS FILE (#363.32) (Required)

              INPUT TRANSFORM:  S DIC("S")="I +$P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      JUL 13, 1999 
              HELP-PROMPT:      Enter the name of the group this revenue code link applies to. 
              DESCRIPTION:
                                This group defines which Billing Rates the revenue code link should be applied to.  

              SCREEN:           S DIC("S")="I +$P(^(0),U,2)=1"
              EXPLANATION:      Revenue Code Link Groups Only!
              CROSS-REFERENCE:  363.33^C 
                                1)= S ^IBE(363.33,"C",$E(X,1,30),DA)=""
                                2)= K ^IBE(363.33,"C",$E(X,1,30),DA)

              CROSS-REFERENCE:  363.33^AGP^MUMPS 
                                1)= I +X,+$P($G(^IBE(363.33,DA,0)),U,3) S ^IBE(363.33,"AGP",+X,+$P(^(0),U,3),DA)=""
                                2)= I +X,+$P($G(^IBE(363.33,DA,0)),U,3) K ^IBE(363.33,"AGP",+X,+$P(^(0),U,3),DA)
                                Cross reference of Procedure 1 by Group.  


              CROSS-REFERENCE:  363.33^AGPE^MUMPS 
                                1)= I +X,+$P($G(^IBE(363.33,DA,0)),U,4) S ^IBE(363.33,"AGPE",+X,+$P(^(0),U,4),DA)=""
                                2)= I +X,+$P($G(^IBE(363.33,DA,0)),U,4) K ^IBE(363.33,"AGPE",+X,+$P(^(0),U,4),DA)
                                Cross reference of Procedure 2 by Group, end of a range.  



363.33,.03    PROCEDURE 1            0;3 POINTER TO CPT FILE (#81) (Required)

              INPUT TRANSFORM:  S DIC("S")="I +$P($$CPT^ICPTCOD(Y,DT),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      JUL 13, 1999 
              HELP-PROMPT:      Enter a procedure that requires a specific revenue code on a bill. 
              DESCRIPTION:      This is a procedure that requires a specific revenue code on a certain type of bill.  If there is a
                                range of procedures for a particular revenue code then enter the first procedure in the range.  

              SCREEN:           S DIC("S")="I +$P($$CPT^ICPTCOD(Y,DT),U,7)"
              EXPLANATION:      Active Procedures Only!
              CROSS-REFERENCE:  363.33^AGP1^MUMPS 
                                1)= I +X,+$P($G(^IBE(363.33,DA,0)),U,2) S ^IBE(363.33,"AGP",+$P(^(0),U,2),+X,DA)=""
                                2)= I +X,+$P($G(^IBE(363.33,DA,0)),U,2) K ^IBE(363.33,"AGP",+$P(^(0),U,2),+X,DA)
                                Cross reference of Procedure 1 by Group.  



363.33,.04    PROCEDURE 2            0;4 POINTER TO CPT FILE (#81)

              INPUT TRANSFORM:  S DIC("S")="I +$P($$CPT^ICPTCOD(Y,DT),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      JUL 13, 1999 
              HELP-PROMPT:      If a range of procedures requires a specific revenue code when billed then enter the last procedure 
                                in the range. 
              DESCRIPTION:      This is the last procedure in a range of procedures that require a specific revenue code when
                                billed.  

              SCREEN:           S DIC("S")="I +$P($$CPT^ICPTCOD(Y,DT),U,7)"
              EXPLANATION:      Active Procedures Only!
              CROSS-REFERENCE:  363.33^AGPE1^MUMPS 
                                1)= I +X,+$P($G(^IBE(363.33,DA,0)),U,2) S ^IBE(363.33,"AGPE",+$P(^(0),U,2),+X,DA)=""
                                2)= I +X,+$P($G(^IBE(363.33,DA,0)),U,2) K ^IBE(363.33,"AGPE",+$P(^(0),U,2),+X,DA)
                                Cross reference of Procedure 2 by Group, end of a range.  




      FILES POINTED TO                      FIELDS

BILLING SPECIAL GROUPS (#363.32)  GROUP (#.02)

CPT (#81)                         PROCEDURE 1 (#.03)
                                  PROCEDURE 2 (#.04)

REVENUE CODE (#399.2)             REVENUE CODE (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):