STANDARD DATA DICTIONARY #347.3 -- REVENUE SOURCE CODE FILE                                                       9/29/25    PAGE 1
STORED IN ^RC(347.3,  (60 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                      (VERSION 4.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the revenue source codes required for detail FMS documents.  The revenue source code is used for the
Reimbursable earnings report generated by FMS.  
 
Per VHA Directive 10-93-142, this file definition should not be modified.  


IDENTIFIED BY: NAME (#.02)[R], INACTIVE (#.03)

POINTED TO BY: REVENUE SOURCE field (#255) of the ACCOUNTS RECEIVABLE File (#430) 
               

CROSS
REFERENCED BY: SOURCE CODE(B), NAME(C)



347.3,.01     SOURCE CODE            0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  I $D(X) K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X
              LAST EDITED:      JAN 30, 2006 
              HELP-PROMPT:      Enter the revenue source code to be sent to FMS. 
              DESCRIPTION:
                                This field is used to identify the revenue source code to be sent to FMS.  

              DELETE TEST:      1,0)= W !,"REVENUE SOURCE CODES CANNOT BE DELETED.  THEY MUST BE INACTIVATED." I 1

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  347.3^B 
                                1)= S ^RC(347.3,"B",$E(X,1,30),DA)=""
                                2)= K ^RC(347.3,"B",$E(X,1,30),DA)


347.3,.02     NAME                   0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
              LAST EDITED:      JUN 01, 1995 
              HELP-PROMPT:      Answer must be 3-50 characters in length. 
              DESCRIPTION:
                                This is the program name for the source code.  

              CROSS-REFERENCE:  347.3^C 
                                1)= S ^RC(347.3,"C",$E(X,1,30),DA)=""
                                2)= K ^RC(347.3,"C",$E(X,1,30),DA)


347.3,.03     INACTIVE               0;3 SET

                                '1' FOR YES; 
                                '0' FOR NO; 
              LAST EDITED:      MAR 13, 1998 
              DESCRIPTION:      This field will inactivate a revenue source code so it can no longer be selected and attached to a
                                bill.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):