fnValidMBI ( MBI )

Validate MBI (Medicare Beneficiary Identification)

Average rating: 1.0 (1 vote) Log in to vote

Travis L. Herring - Show more from this author
Travis L Herring MD PA
http://drherringmd.com/

Sample input:

fnValidMBI("1EG4TE5MKZ")

Sample output:

"Invalid MBI. There are not exactly 11 characters. Character value error at position(s) 10, 11."

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

// Validate  (MBI)  Validates Medicare Beneficiary Identification. To be used after April 2018.
// Input to the function is a putative MBI number.  The function return value, if empty, signifies No Error, else the return
// value is an explanation of the errors found.
Let ( [
         startlength = Length( MBI );
         error = If ( startlength  ≠  11 ; " There are not exactly 11 characters." ; ""  ) ;            
         alphavalues = "ACDEFGHJKMNPQRTUVWXY" ;
         numbervalues = "0123456789" ; 
         char1 = Filter ( Middle ( MBI ; 1; 1 ) ; numbervalues ) ;
         err1 = If  ( IsEmpty ( char1) ; "1," ; "" ) ;
         char2 = Filter ( Middle ( MBI ; 2; 1 ) ; alphavalues ) ;
         err2 = If ( IsEmpty ( char2 ) ; "2," ; "" ) ; 
         char3 = Filter ( Middle ( MBI ; 3; 1 ) ; numbervalues & alphavalues) ;
         err3 = If ( IsEmpty ( char3 ) ; "3," ; "" ) ;
         char4 = Filter ( Middle ( MBI ; 4; 1 ) ; numbervalues ) ;
         err4 = If ( IsEmpty ( char4 ) ; "4," ; "" ) ;
         char5 = Filter ( Middle ( MBI ; 5; 1 ) ; alphavalues ) ;
         err5 = If ( IsEmpty ( char5 ) ; "5," ; "" ) ;
         char6 = Filter ( Middle ( MBI ; 6; 1 ) ; numbervalues & alphavalues) ;
         err6 = If ( IsEmpty ( char6 ) ; "6," ; "" ) ;
         char7 = Filter ( Middle ( MBI ; 7; 1 ) ; numbervalues ) ;
         err7 = If ( IsEmpty ( char7 ) ; "7," ; "" ) ;
         char8 = Filter ( Middle ( MBI ; 8; 1 ) ; alphavalues ) ;
         err8 = If ( IsEmpty ( char8 ) ; "8," ; "" ) ;
         char9 = Filter ( Middle ( MBI ; 9; 1 ) ; alphavalues ) ;
         err9 = If ( IsEmpty ( char9 ) ; "9," ; "" ) ;
         char10 = Filter ( Middle ( MBI ; 10; 1 ) ; numbervalues ) ;
         err10 = If ( IsEmpty ( char10 ) ; "10," ; "" ) ;
         char11 = Filter ( Middle ( MBI ; 11; 1 ) ; numbervalues ) ;
         err11 = If ( IsEmpty ( char11 ) ; "11," ; "" ) ;
         reassembly = char1 & char2 & char3 & char4 & char5 & char6 & char7 & char8 & char9 & char10 & char11 ;
         errors = err1 & err2 & err3 & err4 & err5 & err6 & err7 & err8 & err9 & err10 & err11 ;
         errors = If ( reassembly = MBI ; "" ;  Left ( errors ; Length ( errors ) -1 ) ) ;
         errors = If ( errors = ""  ;  ""  ;  " Character value error at position(s) " & errors & ". "  )  ;    
         allerrors = error & errors ;
         result = If ( allerrors = "" ; "" ; "Invalid MBI." & allerrors )
                          
        ]  ;
        result
    )

FileMaker custom function fnValidMBI(MBI) checks the supplied MBI identification and returns an empty value if valid. If not valid, the return value is an explanation of errors found. This format and rules for MBI are to be implemented after April 2018 and replace the old format for MC numbers which were based on the social security number, SSN.

Note: Tests only for valid format of supplied value.
Note: I'm thinking the one-star rating may have been from someone who had the rating system backward! It works for me and as far as I know, nothing is wrong with it. (Or I would have fixed it.)

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

fnValidMBI ( MBI )

Comments

Support this website.

Support this website.