sub send_order_rxi {
my($aOrder) = @_;
my($order) = $aOrder->{orders_pending_id};
 
eval {
        ### here's where I call the subroutine
        ### located in the rxi.pm package
	my($base) = generate_rxi($Dir, $aOrder);

	if ($Mail) {
		queue_via_mail($base, $aOrder);

		tag_order($order, 'I');

		unlink($base . '.rxi');
		unlink($base . '.oma');
	}
};
if ($@) {
	warn "rxi send $order failed: $@\n";
}
}