call TPS outside of Cloverleaf

#!/usr/bin/env tcl

proc myack { msg errmsg } {
    echo creating nak message: $errmsg
    set mh [msgcreate $msg]
    keylset args2 MODE run
    keylset args2 MSGID $mh
    keylset args2 CONTEXT sms_ib_data
    set replymsg ""
    foreach dispItem [eval "hl7Raw_ack_vmc $args2"] {
        lassign $dispItem disp newmh
        if { $disp eq "OVER" } {
            set replymsg [msgget $newmh]
        }
        msgdestroy $newmh
    }
    #echo replymsg = $replymsg
    set hl7 [hl7::parse_msg $replymsg]
    hl7::set_field hl7 MSA.1 "AR"
    hl7::set_field hl7 MSA.3 "proxy error: $errmsg"
    echo sleeping for 30 seconds
    after 30000
    echo done sleeping
    return [hl7::join_msg hl7]
}