Domino Code Fragment

Code Name*
Input translation for SSN		Date*
05/13/1999		Source (or email address if you prefer)*
[email protected]
IP address:.104.23.197.111
Description*
Type*
Formula		Categories*
User Interface (Notes)
Implementation:
None (plug and play)		Required Client:
(none)		Server:
(none)
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
NewSSN :=
@Trim(@Implode(@Explode(SSN;"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ?!@#$%^&*_+=[]{}|\"<>,.\';:()/\\- ";0);""));
@If(@Length(NewSSN)=9;
@Return(@Left(NewSSN;3) + "-" + @Middle(NewSSN;3;2) + "-" + @Right(NewSSN;4));
@Do(
@Prompt([OK];"Unrecognizable Social Security Number";"Unable to interpret Social Security Number");
@Return(SSN)))