EBS实践—PO内部申请自动接收入库

declare
   CURSOR cur_req_data IS
      SELECT prl.*
        FROM po_requisition_lines_all   prl,
             po_requisition_headers_all prh
       WHERE prh.requisition_header_id = prl.requisition_header_id
         AND prl.requisition_line_id = p_requisition_line_id;
 
    l_iface_hdr_rec po.rcv_headers_interface%ROWTYPE;
    l_iface_rcv_rec po.rcv_transactions_interface%ROWTYPE;
 
    l_shipment_number VARCHAR2(30);
  BEGIN
    BEGIN
      SELECT rsh.shipment_num
        INTO l_shipment_number
        FROM rcv_shipment_headers rsh,
             rcv_shipment_lines   rsl
       WHERE rsh.shipment_header_id = rsl.shipment_header_id
         AND rsl.requisition_line_id = p_requisition_line_id
         AND rsl.shipment_line_id = p_shipment_line_id;
    EXCEPTION
      WHEN no_data_found THEN
        l_shipment_number := NULL;
      WHEN OTHERS THEN
        l_shipment_number := NULL;
    END;
    FOR l_req_data IN cur_req_data
    LOOP
      BEGIN
        SELECT po.rcv_headers_interface_s.NEXTVAL
          INTO l_iface_hdr_rec.header_interface_id
          FROM dual;
        /*SELECT po.rcv_interface_groups_s.NEXTVAL
        INTO l_iface_hdr_rec.group_id
        FROM dual;*/
        l_i