Clovertech

tcl to format a social security number

› Clovertech Forums › Read Only Archives › Cloverleaf › Tcl Library › tcl to format a social security number

  • Creator
    Topic
  • January 6, 2010 at 6:18 pm #51463
    Mike Campbell
    Participant

      I have an inbound social securitynumber that needs to have the dashes inserted.  

      I’ve tried using the format or string commands, but can’t seem to get the syntax correct.  How is the easiest way to do this?

      Thanks.

      Mike Campbell

    • Creator
      Topic
    Viewing 7 reply threads
    • Author
      Replies
      • January 6, 2010 at 6:32 pm #70404
        Max Drown (Infor)
        Keymaster

          Try something like this …

          Code:

          regsub {(d{3})(d{2})(d{4})} $ssn “\1-\2-\3” ssn

          -- Max Drown (Infor)

        • January 6, 2010 at 6:39 pm #70405
          Max Drown (Infor)
          Keymaster

            In an xlate …

            Code:

            regsub {(d{3})(d{2})(d{4})} [lindex $xlateInVals 0] “\1-\2-\3” ssn; set xlateOutVals [list $ssn]

            -- Max Drown (Infor)

          • January 6, 2010 at 6:59 pm #70406
            Mike Campbell
            Participant

              Thanks Max.  When I add it into the xlate and run it using the test tool,

              it returns:

              0(0).PID(0).#19(0) “SSN Number – Patient” : >–<

            • January 6, 2010 at 9:42 pm #70407
              Max Drown (Infor)
              Keymaster

                I don’t have it quite right. Might have to fiddle with it a bit. The concept is called regexp back references.

                -- Max Drown (Infor)

              • January 6, 2010 at 9:48 pm #70408
                Max Drown (Infor)
                Keymaster

                  Here is the correct code …

                  Code:

                  regsub {(d{3})(d{2})(d{4})} $ssn “\1-\2-\3” ssn

                  Xlate …

                  Code:

                  regsub {(d{3})(d{2})(d{4})} [lindex $xlateInVals 0] “\1-\2-\3” ssn; set xlateOutVals [list $ssn]

                  -- Max Drown (Infor)

                • January 6, 2010 at 10:05 pm #70409
                  David Barr
                  Participant

                    You could probably use {1-2-3} instead of “\1-\2-\3”.

                  • January 7, 2010 at 12:30 am #70410
                    Charlie Bursell
                    Participant

                      You cannot put the back references in double quotes as Tcl will try to interpret them.  Thus the hex characters you see.  Change double quotes to {} and it will work

                    • January 7, 2010 at 12:53 pm #70411
                      Mike Campbell
                      Participant

                        Thanks everyone.  Its working now as desired.  Used Charlie’s fix of replacing the double quotes with { }.

                    • Author
                      Replies
                    Viewing 7 reply threads
                    • The forum ‘Tcl Library’ is closed to new topics and replies.