By the way, I use that heck out of that script for all sorts of things. It’s very, very handy when combined with egrep. I have another script that parses the HL7 into fields, too. It does a couple of nice little things like number the MSH field correctly (lines the output up nice and neat) and pads 1-digit numbers with a zero (makes usig grep more easier at times).
#! /usr/bin/perl -lw
#
# Name: hl7_list_simple
# Purpose: Parse HL7 into fields
#
# Field delimiter is carriage return for segments
$/ = “r”;
$msgnum = 1;
# Iterate over segments
while (<>) {
tr/n//d;
@fields = split ‘|’, $_;
$name = shift @fields;
exit unless $name;
$name =~ tr/x0B//d;
$flag = 0;
$n = 0;
# Iterate over fields
for (@fields) {
tr/x0D//d;
tr/x1C//d;
$n++;
if ($name eq “MSH”)
{
if ($flag == 0)
{
print “nMessage $msgnumn”;
print “MSH.01: |”;
$flag = 1;
$msgnum++
}
if ($n < 9)
{
$msh_n = $n+1;
print "$name.0$msh_n: $_" if $_;
} else
{
$msh_n = $n+1;
print "$name.$msh_n: $_" if $_;
}
$flag = 1;
}
else
{
if ($n < 10)
{
print "$name.0$n: $_" if $_;
} else
{
print "$name.$n: $_" if $_;
}
}
}
}
Note: I have msgExtract aliased to “me”, hl7_list_simple aliased to “hl7l”, and grep aliased to egrep.
Ex1. me smat.file | hl7l | egrep ‘^$|Mess|MSH.10|PID.05|PID.18’
Message 1
MSH.10: 2008051500090355
PID.05: TEST1^TEST^T
PID.18: 280741240
Message 2
MSH.10: 2008051500090365
PID.05: TEST2^TEST^T
PID.18: 280741240
Message 3
MSH.10: 2008051500090465
PID.05: TEST3^TEST^T
PID.18: 280741141
Ex2. me bno31cerner_in.tin.msg | hl7l | egrep ‘OBR.04’ | sort -u
me bno31cerner_in.tin.msg | hl7l | egrep ‘OBR.04’ | sort -u
OBR.04: 0200213^RHCT^HEMATOCRIT – REFERENCE FOR BTB
OBR.04: 0237107^UA^URINALYSIS W/MICROSCOPY
OBR.04: 0237206^UDIP^URINE DIPSTICK ONLY
OBR.04: 0237214^UMICRO^URINALYSIS MICROSCOPIC ONLY
OBR.04: 0297168^ABORH^ABORH TYPE ECHO
OBR.04: 0297176^ABS SCREEN^ANTIBODY SCREEN – ECHO
OBR.04: 0297184^BBCOM^BLOOD BANK TECHNOLOGIST COMMNT
OBR.04: 0297200^ADMORPH^RBC ADDITIONAL MORPHOLOGY
OBR.04: 0297341^LUPUSIN^LUPUS INHIBITOR SCREEN
This is a bit off topic, sorry!
.
