$sth1=$Dbh->prepare("
             select a.contracting_office_text||h.piin as CONTRACT_NO,
                      substr(h.dodaac, 4, 3)||h.piin||h.call_no as CALL_NO,
                      b.cage_code as CAGE_CD,
                      b.cec_code as DUNNS_PLUS4,
                      vo.check_no,
                      h.dov_no as VOUCHER_NO,
                      h.invoice_no,
                      vo.eft_trace as EFT_NO,
                      to_char(h.dovi, 'YYYYMMDD') as INVOICE_ISSUE_DT,
                      to_char(h.dov_date, 'YYYYMMDD') as PAYMENT_DT,
                      h.invoice_amt,
                      h.dov_amt as CHECK_EFT_AMT,
                      decode(greatest(discount_due_date, h.dov_date), discount_due_date, h.discount_amt,0) as DISCOUNT_AMT,
                      h.penalty_amt as INTEREST_AMT,
                      decode(h.status, 90, 1, 60, 6, 2) as PAY_STATUs,
                      to_char(h.doiar, 'YYYYMMDD') as INVOICE_RECV_DT,
                      to_char(h.doras, 'YYYYMMDD') as MERCH_ACCEPT_DT,
                      s.fao_dssn as PAYING_DSSN,
                      (h.invoice_amt+h.adj_invoice_amt+h.adj_invoice_amt_2+h.adj_invoice_amt_3+h.adj_invoice_amt_4+h.adj_invoice_amt_5+h.adj_i
nvoice_amt_6) as GROSS_INV_AMT,
                      to_char(h.dov_date, 'YYYYMMDD') as DUE_DT,
                      f.routing_no as RECEIVING_BANK_ID,
                      h.adj_invoice_amt as ADJUSTMENT_AMOUNT_1,
                      h.reason_code_i as ADJUSTMENT_REASON_1,
                      decode(h.edi_disc_amt,
                             0,h.adj_invoice_amt_2 + h.adj_invoice_amt_3 + h.adj_invoice_amt_4 + h.adj_invoice_amt_5 + h.adj_invoice_amt_6,
                             h.edi_disc_amt) as ADJUSTMENT_AMOUNT_2,
                      decode(h.edi_disc_amt,
                             0,h.reason_code_i_2,
                             'SWELL') as ADJUSTMENT_REASON_2,
                      f.account_no as ACCOUNT_NUMBER,
                      h.currency_code,
                      h.address_line_1 as ADDRESS_1,
                      h.address_line_2 as ADDRESS_2,
                      h.city|| ',' ||h.state_cd||' '||h.zip_code as ADDRESS_3,
                      h.company_name as PAYEE_NAME,
                      e.tin,
                      h.vendor_code,
                      h.net_due_date as NET_DUE_DATE, #Added for Revision 1.6
                      h.status as STATUS #Added for Revision 1.6
            from historydb h, voucher vo, cdb c, cont_office a, vdb b, eft f, vcodedb e, svcuniqdb s
          where h.dov_no = vo.dov_no
              and h.dov_date = vo.dov_date
              and h.piin = c.piin
              and c.status = 20
              and c.contracting_office_id = a.contracting_office_id
              and c.mail_to_code = b.address_code
              and c.vendor_code = b.vendor_code
              and c.vendor_code = f.vendor_code (+)
              and c.eft_addr_code = f.eft_addr_code (+)
              and f.status (+) = 40
              and h.vendor_code = e.vendor_code
              and h.dov_date = ?
              ") 
        or die "Prepare failed: $DBI::errstr";