Perl over SMAT – The search begins

Tony.

I have a Perl script that parses SMAT files with usage below.

If you can code Perl, this can easily be changed.

Usage: /hci/InfoHEALTH/bin/smatList.sh  [-v] [-h] [-p] [-fp] [-a] [-fa] [-m] [-fm] -o [file2] …

Where -h          help!

     -v          verbose mode

     -o    the output file. See Note below

     -p  the Patient Code (MRN). This can be repeated

     -fp   a file containing Patient Codes (MRN), one per line

     -a  the Account Number. This can be repeated

     -fa   a file containing Account Numbers, one per line

     -m  the Medical Staff ID or GP Code (for Master File Updates). This can be repeated

     -fm   a file containing Medical Staff codes, one per line

     file1       is a Cloverleaf SMAT file, compressed or uncompressed

    The output file supplied will have a suffix _xxx.dat, where

    xxx is the file number in the range 1 through 999.

    Each file will contain  a maximum of 1000 records.

Tony,

Was the message in the inbound saved message file?

Tony,

I would be intersted to find out if these are TCP/IP connections AND if you are using application level acknowledgment.

If you are not using any acknowledgment protocol, then I find no surprise you might be missing messages. A resend could very well work.

If you are using an acknowledgment protocol, then check the SAMT for the acknowledgments and the foreign system to insure acks were properly processed.

Like Jim Cobane said if they are not in the inbound SMAT, then Cloverleaf did not get them.

Jim Kosloskey

I agree with James.  The engine should never loose a message unless something is going on with ACK’s as Jim mentioned.  But if you’re going to do this you may want to simply just capture the Message Control ID from the MSH-10 and then diff the files.  That should be good enough to tell you if you have a 1:1 match.

Hopefully, the attached is a copy of the Perl script smatList.sh

The ouput is 1000 records per file that, at the time, was the maxmum number of message a thread would accept before a ‘timeout’ error.

Here is an example function that we used within a copy of smatList.sh (for our LAB messages) to produce an index ..

sub GetData {

  local($myMsg) =  @_;

  local(@myMsg) = split(‘^M’, $myMsg);

  local($myRet, @myField, $myMrn, $myAcct, $myAccession, $myName, $myDob, $myGender);

#print STDERR “Msg @myMsgn”;

  $myAccession = ”;

  $gMsg = ”;

  for $mySeg (@myMsg) {

      if (substr($mySeg, 0, 3) eq ‘PID’) {

          @myField = split(/|/, $mySeg, 20);

          $myMrn = $myField[3];

          $myName = $myField[5];

          $myDob = $myField[7];

          $myGender = $myField[8];

          $myAcct = $myField[18];

          if(!defined($myAcct)) {

              $myAcct = ”;

          }

      }

      if (substr($mySeg, 0, 3) eq ‘PV1’) {

          @myField = split(/|/, $mySeg, 21);

          if($myAcct eq ”) {

              $myAcct = $myField[19];

          }

      }

      if (substr($mySeg, 0, 3) eq ‘OBR’) {

          @myField = split(/|/, $mySeg, 9);

          $myDate = $myField[7];

          if(!isLabGen($myAcct) && substr($myDate, 0, Cool lt ‘20050905’) {

              @myField = split(‘^’, $myField[3], 2);

              $myAccession = $myField[0];

              $gMsg = “$myMrn,$myName,$myDob,$myGender,$myAcct,$myAccession,$myDate,”;

#print STDERR “GetData [$myAccession] [$gMsg]n”;

          }

          last;

      }

  }

#print STDERR “Ret $myRetn”;

  return $myAccession;

}