parseCVX.pl

#!/usr/bin/perl
#
# parseCVX.pl
#
# File reads in flat file cvx.txt with | seperated fields and outputs
# javascript code necessary set the manurfacture code in HL7 RXO segment
#

my $file = "./cvx.txt";
my @junk = ();
my $cvx;
my $description;
my $mcode;

open(FILE, '<', $file) or die $!;

my $header=<<'HEADER';
// Update Manufacture code based on CVX code

for each (seg in msg..RXA) {
    var cvx = seg['RXA.5']['RXA.5.1'].toString();
    switch (+cvx) {
HEADER

my $footer=<<'FOOTER';
        default :
            break;
    }
}
FOOTER

print $header;

while(my $line = <FILE>) {
	(undef,undef,$cvx,$description,$mcode,@junk) = split(/\|/,$line);
	$cvx         =~ s/^\s+|\s+$//g;
	$description =~ s/^\s+|\s+$//g;
	$mcode       =~ s/^\s+|\s+$//g;
	print "\tcase $cvx :\n"; 
	print "\t\tseg['RXA.17']['RXA.17.1'] = '" . $mcode . "'\n";
	print "\t\tseg['RXA.17']['RXA.17.2'] = '" . $description . "'\n";
	print "\t\tbreak\n";
}

print $footer;
close(FILE);