[Beth Palmateer]

John, I had tried your suggestion.  The : worked fine but when I tried to substitute ~ for : it did not work.

Jim – my xlate Hero!  Your suggestion does exactly what I need.  Thanks!

[Beth Palmateer]

The only way I’ve ever been able to accomplish what you want is to take a two-step approach.  First, include all A03 records.  From that view, select “remove specified records”, then “NOT include those” and enter PAT.  Ignore the number of records selected, just press “yes” to add to the view.  You should end up with A03s that include PAT.

Beth

[Beth Palmateer]

Hi Darren-

We discovered this problem when we were on version 5.4.1.  I don’t know why it happens, but even when we stopped a thread, opened the SMAT file, then closed completely out of SMAT and waited 30 seconds before starting the thread back up, it still stopped writing files to SMAT.  The workaround for us was to stop the thread and then copy the .idx and .msg files to a temp file, then start the thread back up.  This ended up working better for us because we could have the temp file open for as long as we needed without worrying about a thread being down.

[Beth Palmateer]

One final update:  Jim Kosloskey came upon another way to fix this.  After adding a dummy math statement right after the copy proc that created the temp variable, the IF statement worked just fine.  We are surmising that although the string or clength command returns a decimal value, the temp variable has a string attribute.  So tcl didn’t work quite as expected.  But when we added zero to the temp variable, the context was converted so the IF statement worked.

My thanks again for everyone’s help.

[Beth Palmateer]

Michael, this works!!  It is looking like maybe the problem was with clength and/or the way I was using it??  Anyway, this resolution is perfect.  Thanks!

[Beth Palmateer]

Thanks, Chris.  I had tried using the string compare (lt) instead of < and it still didn't work.  I talked to Jim Koslowskey yesterday and tried several of his suggestions, including stripping down the xlate to include only my copy and IF statements for this temp field.  Still no luck. This morning I tried zero-filling the temp field and the copy still isn’t working. Following is my test xlate.  If anyone can find what’s wrong, great.  But don’t waste too much time on it; I am ready to just do a hard copy of the MSH date field to this field and be done with it!! prologue    xlt_infile: hl7 2.3 adt_fr_meditech ADT_A01    who: bpalmate    date: June 28, 2007 8:03:09 AM CDT    xlt_outfile: hl7 2.3 adt_to_maxsys ADT_A01    type: xlt    version: 5.0 end_prologue { { OP DATECOPYOPT }    { ADDPREC 0 }    { FABRICATE 1 }    { USECURTM 1 }    { RANGE {49 20 19} }    { TMDEFS {01 01 00 00 00 0000 +0000} }    { DELIMIT {/ :} } } { { OP PATHCOPY }    { ERR 0 }    { IN {0(0).MSH 0(0).EVN 0(0).PID 0(0).PD1 0(0).NK1 0(0).PV1 0(0).PV2 0(0).OBX 0(0).AL1 0(0).DG1 0(0).DRG 2(0).GT1 2(0).IN1 2(0).IN2 2(0).IN3 2(0).ACC 2(0).UB1 2(0).UB2} }    { OUT {0(0).MSH 0(0).EVN 0(0).PID 0(0).PD1 0(0).NK1 0(0).PV1 0(0).PV2 0(0).OBX 0(0).AL1 0(0).DG1 0(0).DRG 2(0).GT1 3(0).0(0).IN1 3(0).0(0).IN2 3(0).0(0).IN3 4(0).ACC 4(0).UB1 4(0).UB2} } } { { OP COMMENT }    { COMMENT {Maxsys has to have the time in addition to the date in the EVN segment.  So, if this field is less than 12 characters, copy the date/time field from MSH.} } } { { OP COMMENT }    { COMMENT {  first – find the length of the data and save this number to a temp file} } } { { OP COPY }    { ERR 0 }    { PRE {        set xlateOutVals

]]

   }}

   { IN {{0(0).EVN.#2.[0]}} }

   { OUT @evn_length }

}

{ { OP COMMENT }

   { COMMENT {make sure the 2-digit field is zero-filled, so 8 won’t be seen as greater than 12.} }

}

{ { OP COPY }

   { ERR 0 }

   { PRE {

       set xlateOutVals

]]

       echo $xlateOutVals

   }}

   { IN @evn_length }

   { OUT @evn_length }

}

{ { OP COMMENT }

   { COMMENT {  then – check the length of the temp variable and if less than 12, perform the copy} }

}

{ { OP IF }

   { ERR 0 }

   { COND {@evn_length < =12} }    { THENBODY {        { { OP COMMENT }            { COMMENT {TODO: Insert new actions here} }        }        { { OP COPY }            { ERR 0 }            { IN =BETH }            { OUT {{0(0).EVN.#2.[0]}} }        }    }}    { ELSEBODY {    }} }

[Beth Palmateer]

We are also 5.2.1 and are now considering upgrading our AIX from 5.1 to  5.3.  I’ve seen several questions posted about this compatibility but I haven’t seen any results.  Does 5.2.1 work okay on AIX 5.3?

[Beth Palmateer]

Hi, Charlie!  It just hit me – your “piece of cake” can either be made from scracth, if you already know how to bake, otherwise you have to buy from Sarah Lee….  I think the common thread here is that none of us are that adept at tcl to be able to add headers and footers to a file.

[Beth Palmateer]

I have to ask: are you working with Meditech as the receiving system for these records?  There is a good possibility that we are going to be facing the same thing here, and if so, we will probably have to have custom work done also.  Ambur, it sounds like we have about the same setup here; one person responsible for Cloverleaf.  I went to Level 1 class several years ago but don’t know tcl because we just don’t need to use it very often.

[Beth Palmateer]

The issue has been resolved thanks to some coaching from Jim Koslowsky.  It turned out to be as simple as using Pathcopy instead of Bulkcopy, then making sure I had my iterations set up correctly: segment basis in the correct position on both inbound and outbound variants.  It’s working perfectly.  Thanks, Jim!

[Beth Palmateer]

We have been sending ORU results from Misys to Cerner Millennium for several years.  Misys considers “Performing Lab” the department that did the test, i.e. BB for Blood Bank, MC for Micro, etc.  This code is sent to Cerner in OBR-24 (Diagnostic service section ID).  OBR-21 is blank on our results to Cerner because Misys does not populate that field.

This has never been a problem for us, but our Cerner order entry/result setup may be different than yours.

Beth

Salina Regional Health Center

Salina, KS

[Beth Palmateer]

Oops – I’m familiar with that button, Charlie!  Thanks for the reminder.  It’s been so long since I’ve had to work with tcl that even the basics escaped me on this one.

[Beth Palmateer]

Thanks, Bob.  This makes more sense.  I’m becoming more comfortable with the possibility of working with Meditech but there will probably be other not-quite-correct statements thrown around with the rumors.  I’m glad I have this listserv to get the answers I need!

Beth

[Beth Palmateer]

Will this also work on 5.2.1?  We had the exact same thing happen except we went from 3.7.1 to 5.2.1, on AIX 5.1.  Our workaround has just been to stop the thread and copy the current .idx and .msg files to a temp filename, then start the thread.  We can then access the records through smat without the lock issue, and it has been simple enough to do that I never persued a fix.

[Beth Palmateer]

I’d be interested in this information also.  There is a good chance that we will be moving to Meditech this year.

Beth

Salina Regional Health Center

[Author]

Replies