Sql Script to extract Vendor, Project, Receipt information for a PO

/* Formatted on 1/7/2014 6:20:18 PM (QP5 v5.114.809.3010) */
-- Sql Script to extract Vendor, Project, Receipt information for a PO

SELECT   pha.po_header_id,
         pha.segment1 po_number,
         pov.vendor_name,
         pov.segment1 vendor_num,
         pla.line_num po_line_number,
         pla.item_id,
         (SELECT   MAX (segment1)
            FROM   mtl_system_items_b
           WHERE   inventory_item_id = pla.item_id)
            item,
         DECODE (NVL (pla.item_id, 0), 0, NULL, pla.item_description)
            item_description,
         DECODE (
            pla.cancel_flag,
            'Y',
            'CANCELLED',
            DECODE (pha.authorization_status,
                    'IN PROCESS', 'PENDING APPROVAL',
                    NVL (pha.authorization_status, 'INCOMPLETE'))
         )
            authorization_status,
         DECODE (
            pla.cancel_flag,
            'Y',
            'N/A',
            DECODE (
               pha.authorization_status,
               'APPROVED',
               DECODE (NVL (pla.closed_code, 'b'),
                       'CLOSED', 'CLOSED',
                       'FINALLY CLOSED', 'CLOSED',
                       'OPEN'),
               'N/A'
            )
         )
            po_status,
         pha.creation_date date_issued,
         pla.creation_date line_creation_date,
         (pda.quantity_ordered - pda.quantity_cancelled) po_quantity,
         (NVL (pla.unit_price, 0) * NVL (pda.quantity_ordered, 0))
            po_line_amt,
         (NVL (pla.unit_price, 0) * NVL (pda.quantity_cancelled, 0))
            po_cancelled_amount,
         (NVL (pla.unit_price, 0) * NVL (pda.quantity_delivered, 0))
            po_line_received_amount,
         rt.transaction_date receipt_date,
         TO_CHAR (rt.transaction_date, 'MON-RR') receipt_month,
         rsh.receipt_num,
         (DECODE (NVL (rt.transaction_type, 'a'),
                  'RETURN TO VENDOR', NVL (rt.quantity * (-1), 0),
                  'RETURN TO RECEIVING', NVL (rt.quantity * (-1), 0),
                  NVL (rt.quantity, 0)))
            receipt_quantity,
         (NVL (rt.po_unit_price, 0)
          * DECODE (NVL (rt.transaction_type, 'a'),
                    'RETURN TO VENDOR', NVL (rt.quantity * (-1), 0),
                    'RETURN TO RECEIVING', NVL (rt.quantity * (-1), 0),
                    NVL (rt.quantity, 0)))
            receipt_amount,
         ai.invoice_id,
         ai.invoice_num,
         ai.invoice_amount,
         ai.amount_paid,
         ai.invoice_date,
         aid.quantity_invoiced,
         aid.amount inv_line_amount,
         ppa.project_id,
         ppa.segment1 project_number,
         ppa.NAME project_name,
         (SELECT   full_name
            FROM   pa_project_players_v
           WHERE   project_id = ppa.project_id
                   AND UPPER (ROLE) = 'PROJECT MANAGER'
                   AND NVL (end_date_active, SYSDATE) IN
                            (SELECT   MAX (NVL (end_date_active, SYSDATE))
                               FROM   pa_project_players_v
                              WHERE       1 = 1
                                      AND project_id = ppa.project_id
                                      AND UPPER (ROLE) = 'PROJECT MANAGER')
                   AND ROWNUM < 2)
            "Project Manager",
         total_billings.invoice_amount total_actual_billings
  FROM   po_headers_all pha,
         po_lines_all pla,
         po_distributions_all pda,
         ap_invoices_all ai,
         ap_invoice_distributions_all aid,
         rcv_transactions rt,
         rcv_shipment_headers rsh,
         po_vendors pov,
         pa_projects_all ppa,
         (  SELECT   i.project_id, SUM (NVL (ii.inv_amount, 0)) invoice_amount
              FROM   pa_draft_invoices_all i, pa_draft_inv_items_bas ii
             WHERE       1 = 1
                     AND ii.project_id(+) = i.project_id
                     AND ii.draft_invoice_num(+) = i.draft_invoice_num
                     AND i.pa_date <
                           ( (SELECT   end_date
                                FROM   pa_periods_all ppi
                               WHERE   ppi.current_pa_period_flag = 'Y')
                            + 1)
          GROUP BY   i.project_id) total_billings
 WHERE       pha.po_header_id = pla.po_header_id
         AND pda.po_header_id = pla.po_header_id
         AND pda.po_line_id = pla.po_line_id
         AND pda.po_header_id = pha.po_header_id
         AND pha.vendor_id = pov.vendor_id
         AND pda.po_distribution_id = aid.po_distribution_id(+)
         AND aid.invoice_id = ai.invoice_id(+)
         AND pla.po_line_id = rt.po_line_id(+)
         AND rt.shipment_header_id = rsh.shipment_header_id(+)
         AND rt.destination_type_code(+) = 'RECEIVING'
         AND pda.project_id = ppa.project_id(+)
         AND ppa.project_id = total_billings.project_id(+)