Newest functions Upload a function Leave a tip My account

There are 2,520 functions in this library.

ValidPZN ( Code )

Calculate the check digit of german PZN (Pharma Zentral-Nummer).

  Average rating: 4.5 (30 votes) Log in to vote

Klaus-Dieter Bruegmann - Show more from this author kade project http://www.kade-project.de

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

Let ( [ TheCode = Left ( Code ; 6 ) ; Error = Case ( Length ( Code ) <> Length ( Filter ( Code ; "0123456789" ) ) ; "Error"; Length ( Code ) < 6 ; "Error"; Length ( Code ) > 7 ; "Error"; "" ); //----------- TheNumber = Mod ( Middle ( TheCode ; 6 ; 1 ) * 7 + Middle ( TheCode ; 5 ; 1 ) * 6 + Middle ( TheCode ; 4 ; 1 ) * 5 + Middle ( TheCode ; 3 ; 1 ) * 4 + Middle ( TheCode ; 2 ; 1 ) * 3 + Middle ( TheCode ; 1 ; 1 ) * 2 ; 11 ) ]; Case ( not IsEmpty ( ERROR) ; Error ; TheNumber = 10; "unused" ; TheNumber ) ) /* If you wanna get the complete PZN use this calculation: Case ( not IsEmpty ( ERROR); Error; TheNumber = 10; "unused"; TheCode & TheNumber ) */ Click to copy

Calculate the check digit of german PZN (Pharma Zentral-Nummer). Don't confuse it with the "Heilmittelnummer".
The PZN is based on Code39 and has always 7 digits. The last is the check digit. If the result of validation is a 10 the PZN isn't used.

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: