david98031

call TPS outside of Cloverleaf

Dec 4th, 2014
229
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env tcl
  2.  
  3. proc myack { msg errmsg } {
  4.     echo creating nak message: $errmsg
  5.     set mh [msgcreate $msg]
  6.     keylset args2 MODE run
  7.     keylset args2 MSGID $mh
  8.     keylset args2 CONTEXT sms_ib_data
  9.     set replymsg ""
  10.     foreach dispItem [eval "hl7Raw_ack_vmc $args2"] {
  11.         lassign $dispItem disp newmh
  12.         if { $disp eq "OVER" } {
  13.             set replymsg [msgget $newmh]
  14.         }
  15.         msgdestroy $newmh
  16.     }
  17.     #echo replymsg = $replymsg
  18.     set hl7 [hl7::parse_msg $replymsg]
  19.     hl7::set_field hl7 MSA.1 "AR"
  20.     hl7::set_field hl7 MSA.3 "proxy error: $errmsg"
  21.     echo sleeping for 30 seconds
  22.     after 30000
  23.     echo done sleeping
  24.     return [hl7::join_msg hl7]
  25. }
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×