#!/cluster/uapp/perl/bin/perl -w
use KAP;
use strict;
use Date::Manip;
use DBAccess;
use EQ_Misc;
use DBD::CSV;
use MIME::Lite;
use Net::SMTP;
use Data::Dumper;

  my $_db_lv_conn_file = "MSLV.eq_script_user";
  my $_read_dbi = undef;

            # Run stored proc
    my $sp = "longview..norges_integrity_check_tax_lot";

    KAP::write_log("Preparing $sp");
    $_read_dbi = KAP::opendbi($_db_lv_conn_file) || handle_error_and_exit ("Failed to get a connection to MSLV db server");
    my $_read_sth = $_read_dbi->prepare($sp);
    if($DBI::err) {
        handle_error_and_exit("**ERROR preparing $sp: " . $DBI::errstr);
    }
    KAP::write_log("Prepare done, executing $sp");

    $_read_sth->execute();
    if($DBI::err) {
        handle_error_and_exit( "**ERROR executing $sp: " . $DBI::errstr);
    }
    KAP::write_log("Execute of $sp done");
    
    
    my $_datafile = KAP::datafile();   
    my $numrecords = 0;
    my @data = undef;
    
   do{
    while (my $row = $_read_sth->fetchrow_arrayref())
   {
     print Dumper $row;
   }
}  while ($_read_sth->{syb_more_results});