PACKAGE BODY utl_pkg
IS
   PROCEDURE xx_po_rate_receipt
   IS
        
      CURSOR c1
      IS
         SELECT pla.unit_price * pla.quantity AS po_rate,
                pll.quantity_received receipt
           FROM mtl_system_items_b msi,
                po_lines_all pla,
                po_line_locations_all pll,
                po_headers_all pha
          WHERE msi.inventory_item_id = pla.item_id
            AND msi.organization_id = pll.ship_to_organization_id
            AND pla.po_header_id = pll.po_header_id
            AND pla.po_line_id = pll.po_line_id
            AND pha.po_header_id = pla.po_header_id
            AND pha.authorization_status = 'APPROVED'
            AND msi.segment1 = :xx_mitc_bill.item;
   BEGIN
       
         --execute_query;
         
        -- GO_BLOCK('XX_MITC_BILL');

      FIRST_RECORD;

      OPEN c1;

      LOOP
         FETCH c1
          INTO :xx_mitc_bill.po_rate, :xx_mitc_bill.receipt;

         EXIT WHEN c1%NOTFOUND;
         NEXT_RECORD;
      END LOOP;

      FIRST_RECORD;

      CLOSE c1;
   END;
END;

POST-CHANGE Trigger