[Doug Stelley]

In the document regarding the message type I found one sample.

The final export will be using a batch (something I’ve never attempted) combine ‘n’ number of A08’s and A31’s wrapped up into a batch but that’s another fight.

Here is their sample:

(btw, I did get your voice mail Jim, thanks)

A08 Patient Information Message Sample

The following example shows sample information for a single encounter message (A08 trigger event).

BHS|^~&|RPMS|999999|DW1|IHS|20040227085810-0700||1|TEST HOSP|9999991

ZHS|20040227|20040227|1

MSH|^~&|RPMS|CIMARRON|DW1|IHS|20040205081549-0700||ADT^A08|IHS-4|P|2.4|||AL|ER|

EVN|A08|20040205081549-0700|

PID|||123456987456321^987456321|99999950901|SIMPSON^HOMER^J.||19040913|M|||BOX 222^^ANYTOWN^NM^87100||||||||999999999|

ZP2|19850402||||||||||V||||084||2|01|19880209|||1212123||||||||||||C|SIMPSON^MARGE

PV1|||999999|1|||112ABC|||H|||||||||123456987456321|||||||||||||||||O||||||||20021101|

ZV1|20021103||30|20021103000000||||||||||||||||||||||20040205081549||||0158|5|I|A|

ZEN|Y|N|N|Y|19940411|||N|Y|30|N||N||N|153|N||N||N||N|N|55

ZVP|1|2^18|PDS|

ZVP|2|1^01|EAS|

DG1|1||959.01|

ZDX||||2||E968.8|K

DG1|2||959.09|

ZDX||||2||E968.9|K

PR1|1||38.99||20021101|

PR1|2||87.22||20021101|

PR1|3||99.18||20021101|

ZPR||||||||90780|

PR1|4||99.29||20021101|

ZPR||||||||90784|

PR1|5||57.94||20021101|

ZPR||||||||53670|

ZPN|1|

OBX|1|MSR|04||154/101|

OBX|2|CPT|90780|

OBX|3|CPT|90784|

OBX|4|CPT|53670|

OBX|5|CPT|J2550||1|

OBX|6|CPT|A4215||1|

OBX|7|CPT|A9900||1|

OBX|8|CPT|72050|

OBX|9|LAB|2345-7^GLUCOSE||153|mg/dL|70^105|

ZTS|||||78636

BTS|78634|TEST HOSP|1

[Doug Stelley]

OK, I will use the original and add the Z segments. Am I correct though in the grouping?

Where they have an indented “Z” on a repeated segment, doesn’t that make the indented segment also repeat?

…getting confused…

[Doug Stelley]

As usual, You be da man! Thanks.

I knew it was an easy one!

[Doug Stelley]

Success!

I got brave and stopped the cloverleaf service. I changed the log on as to a domain service account with the rights to do what we need.

I restarted the service and what do you know, I was able to query SQL.

Thanks a lot!

We are not live yet, still in testing so I dont think anything is broke (yet…) 😀

[Doug Stelley]

I’m looking at that now.

I “think” I know what you are talking about but I’m not sure what to do about it.

The Cloverleaf engine is running under the account of .hciuser and that is local to the machine. The server itself is a member of the domain though. I’m guessing the query is trying to pass the hciuser account on to the SQL server.

I have 2 questions with this.

1) Can I change the log on as to one of our domain Service accounts that would have full rights?

or if not

2) How can I give the local hciuser account query rights on the SQL server? I went onto the SQL server and got to the security ssection of that database but wasnt sure if I could build a user based on the account of a “local” useraccount off a different box. Does that make sense?

We dont have a DBA, we wear many hats.

[Doug Stelley]

I put the Trusted Connection=false in and pretty much got the same error. (see below)

I removed all queries and all I am trying to do is connect, and then disconnect. here is the code fragment.

package require tclodbc

set gUID query

set password query

set response [database connect sql1 {DRIVER=SQL Server;SERVER=snhdapp.lrjhc.dom;Trusted_Connection=False; DATABASE=CentricityPM;Username=$gUID;Password=$password}]

echo $response

sql1 disconnect

set xlateOutVals $xlateInVals

errorInfo:

28000 18452 {[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user ‘(null)’. Reason: Not associated with a trusted SQL Server connection.}

   while executing

“database connect sql1 {DRIVER=SQL Server;SERVER=snhdapp.lrjhc.dom;Trusted_Connection=False; DATABASE=CentricityPM;Username=$gUID;Password=$password}”

   invoked from within

“set response [database connect sql1 {DRIVER=SQL Server;SERVER=snhdapp.lrjhc.dom;Trusted_Connection=False; DATABASE=CentricityPM;Username=$gUID;Passwor…”

[xlt :xlat:ERR /0:testing_xlate:04/06/2011 10:21:33] [0.0.26098] Xlate ‘testonlyPID.xlt’ failed: Tcl callout error

erroCode: NONE

[Doug Stelley]

for the clock portion;

using

set clock1  [lindex [lindex [lindex $xlateOutVals 0] 0] 1]

set junk [clock format [clock scan $clock1] -format %Y%m%d]

echo myclock:

here is the message:

MESSAGE 1

Tcl callout error

erroCode: NONE

errorInfo:

unable to convert date-time string “2004-01-20 08:39:06.000”

   while executing

“clock scan $clock1”

[Doug Stelley]

It would like be easier to program a seperate proc for each ODBC call

and have them be in seperate COPY commands but I thought it would be more efficient to bundle them up.

[Doug Stelley]

here is a snippet from the SQL command:

set xlateOutVals

]

Thats what produced the

{2011-04-01 10:00:26.000} {2004-01-20 08:39:06.000} 154 1864

I was able to get the “154” by using

set myloc [lindex [lindex [lindex $xlateOutVals 0] 0] 2]

However I was not able to use “myloc” in a later COPY command.

I’m looking for examples on creating something along the lines of

set xlateOutVals 0 to be the first date

set xlateOutVals 1 to be the second date

set xlateOutVals 2 to be the “154”

set xlateOutVals 3 to be the ‘1864″

Internal to the proc it was easy, how de I bring them forward?

I haven’t looked at the clock portion yet….

Thanks!

[Doug Stelley]

it does, Thanks!

[Doug Stelley]

nah, I was wrong again for those keeping score!

The result coming back is:

$docid =

{{Jones, George} 466}

so my code needs to be

set drId [lindex [lindex $docid 0] 0]

set DrCode [lindex [lindex $docid 0] 1]

[Doug Stelley]

Maybe I figured it out (by accident?)

I think perhaps the result comes back as a TCL list correct?

so $docid in my for-instance might be simply {“Samual Jones DDS” 24453}

I’m just talking to myself…

the first (Listname) could be

set DrId [lindex $docid 0]

and the second (FacilityId) could be

set DrFacId [lindex $docid 1]

correct?

[Doug Stelley]

I must be way overthinking this. In this particuler interface the volume will be low so I dont think I’ll need to worry about a performance hit.

If I understand you. You suggest creating a generic TCL Proc and invoke it in the thread?

I would like need at least 2, one for expected single value returns  and one for multiples.

I am not understanding the table part though. Can you email me with a bit more guidance?

Even though I went to Level 1 and 2 a few years ago I have been out of the loop and am too rusty. I got some relearning to do! I purchased 30 hours of technical support from lawson for this type of thing but this should be pretty strait forward. I understand your line of thinking and I am very willing to follow the model as it will give more stability but looking at examples I have found, I dont have enough yet to go on!

[Doug Stelley]

OK.

This is a windows environment.

the client.ini has;

[firewall]

rmi_exported_server_port=”172.20.128.23″

as does the server.ini on the server.

I verified that I can ping the server, and I can telnet onto it. (By hostname and IP)

There are no DNS records for the private VLAN.

What else can I try?

[Doug Stelley]

I have this entry in the server.ini file;

[firewall]

rmi_exported_server_port=”172.20.128.23″

I bounced the server.

The error changed, but it is still pretty much the same error.

new error:

Unknown host: “172.20.128.23”; nested exception is:

java.net.UnknownHostException: No entry in proxy socket for host:  “172.20.128.23”

OLD Error was:

Unknown host: “172.20.133.228”; nested exception is:

java.net.UnknownHostException: No entry in proxy socket for host:  “172.20.133.228”

Again, the difference is that the 133 network is a private VLAN for ISCSI only, it is unrouted.

[Author]

Replies