Using a Quovadx thread to call Screen Rejuvenator

[John Harvey]

Hello,

looking for some general knowledge here.  Our site uses both Quovadx and Screen Rejuvenator.  The gentlemen working on S.R.  and I are developing an interface where the two tools will communicate and work together.

So far I have a TCL procedure I found at my site from long ago.  Someone working at the hospital once upon a time was attempting the same thing at some point I think, but it didn’t go anywhere.  This procedure I can decipher up to a point.  I get the file extraction and character stripping, however there’s another part I’m not getting.

Could anyone here tell me what this piece of code is actually doing?

# These are the params to call Screen Rejuvenator and the Logical App

set application [::tcom::ref createobject “ScnPool.ScnPool”]

set objLogicalApplication [$application GetApplication “laChoices”]

set hCommand [::tcom::ref createobject “ScnPool.Command[/b]“]

#

$hCommand name laDataEntry

# set paramenters

$hCommand SetParam UserId “IS.SCRC”

$hCommand SetParam UserPassword “BRJ68”

$hCommand SetParam AppDatabase “3”

$hCommand SetParam SSN [lindex $myMsg 3]

$hCommand SetParam AddressLine1 [lindex $myMsg 5]

$hCommand SetParam AddressLine2 [lindex $myMsg 6]

$hCommand SetParam City [lindex $myMsg 7]

$hCommand SetParam State [lindex $myMsg 8]

$hCommand SetParam ZipCode [lindex $myMsg 9]

$hCommand SetParam PhoneNumber [lindex $myMsg 10]

The code goes on like this for some time at this point.

“lachoices” is part of the original interface that Screen Rejuvenator was working with.  I found the the file on the server and it looks to be some kind of xml file.  Has anyone here done this kind of work?  Can anyone explain to me what I should see happening?

Any input, as always, is greatly appriciated.

p.s.  Someone eluded to me on here that they knew about this and that I should contact them.  Unfortunately, she left me no way to actually contact her…

Thanks!   😀

Topic

[John Harvey]

update:

I ran the procedure through the testing tool and I got the following in return:

Please Wait ……

Command Issued: hcitpstest -r run -f nl -c sms_ib_data E:/quovadx/qdx5.2/integrator/test_tcl/exec/processes/sr_testing/data/tempdata.txt “UpdateChoices”

Command output:

>>>message=NWH 13 222-33-4444 “NILES,DEBORAH” 14 OAKWOOD AVENUE NULL STOUGHTON MA 2072 (781)341-5051 NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL N

[0:TEST] Tcl error:

msgId = message0

proc = ‘UpdateChoices’

args = ”

result = ‘invalid command name “::tcom::ref”‘

errorInfo: ‘

invalid command name “::tcom::ref”

   while executing

“::tcom::ref createobject “ScnPool.ScnPool””

   (“run” arm line 17)

   invoked from within

“switch -exact — $mode {

       start {

           # Perform special init functions

   package require tcom

echo “startup”

       }

       run …”

   (procedure “UpdateChoices” line 6)

   invoked from within

“UpdateChoices {MSGID message0} {CONTEXT sms_ib_data} {ARGS {}} {MODE run} {VERSION 3.0}”‘

so part of the problem seems to be with “::tcom::ref”.  I have a book and I’m reading up on it, and I have the TCOM package installed on my PC, so I’m not sure why it’s not working at this point…

[Anonymous]

John,

It looks like you don’t have all the pieces.  There is a package for TCL that allows you to use a COM interface called TCOM.  You may not have the package in a place that can be accessed by the test tool.

Also, the la… file is a Screen Rejuvenator logical application.

I have a zip file from a demo app that I did dated 11/11/2003.  Let me know if you’d like it and I’ll send it on the side.

[John Harvey]

Yes, I would like to see that if it’s accessable, thanks.

I downloaded the package that deals with TCOM, however, I still don’t know if it’s in the right place.  The place I downloaded it from mentioned I needed MSVCP60.DLL for it to work so I’m wondering if that may be part of it.

I got the package from http://wiki.tcl.tk/1821.

[Author]

Replies