STANDARD DATA DICTIONARY #399.4 -- MCCR INCONSISTENT DATA ELEMENTS FILE                                           9/29/25    PAGE 1
STORED IN ^DGCR(399.4,  (50 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                    (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of all possible reasons why a bill may be disapproved during the review phase of the billing process.
Each element in this file corresponds directly to a form locator on the UB-04 form.  
 
Per VHA Directive 10-93-142, this file definition should not be modified.  


              DD ACCESS: @

POINTED TO BY: REASON(S) DISAPPROVED-INITIAL field (#.01) of the REASON(S) DISAPPROVED-INITIAL sub-field (#399.044) of the 
                   BILL/CLAIMS File (#399) 
               REASON(S) DISAPPROVED-SECOND field (#.01) of the REASON(S) DISAPPROVED-SECOND sub-field (#399.045) of the 
                   BILL/CLAIMS File (#399) 
               

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



399.4,.001    NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
              HELP-PROMPT:      Enter form locator number which corresponds to this entry on the UB-82 form. 
              DESCRIPTION:
                                This number corresponds to the form locator number of this entry on the UB-82 form.  


399.4,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>55!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      Enter the 3-55 character reason for disapproval. 
              DESCRIPTION:
                                This defines a reason why a bill may be disapproved during the review phase of the billing process.  

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

              CROSS-REFERENCE:  399.4^C^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.4,"C",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.4,"C",I,DA)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):