Miscellany

my $order_id;
my $details;
while(<>)
  {
    chop($_);
    $order_id = $_;

    $get_picks->execute( $order_id );
    if ( $gt->errstr ) goto bail;

    while( $details = $get_picks->fetchrow_hashref )
      {
	$fix_wms->execute( $$details{qty}, $$details{inventory_id} );
	if( $gt->errstr ) goto bail;

	$fix_inv->execute( $$details{qty}, $$details{whse_id}, $$details{prod_id} );
	if( $gt->errstr ) goto bail;

	$ins_adjustment->execute(
				 $$details{position_id},
				 $$details{control_id},
				 $order_id,
				 $$details{qty} # Note: Positive! Or else! Don't ask why or what.
				);
	if( $gt->errstr ) goto bail;

      }

    $get_picks->finish;
    if( $gt->errstr ) goto bail;


    last;
  }