[Home] [Help]
8886: x_error_code out NOCOPY varchar2) is
8887:
8888: BEGIN
8889:
8890: -- first, remove records in pon_backing_requisitions
8891: delete
8892: from pon_backing_requisitions
8893: where auction_header_id = x_negotiation_id
8894: and line_number = x_negotiation_line_num;
8888: BEGIN
8889:
8890: -- first, remove records in pon_backing_requisitions
8891: delete
8892: from pon_backing_requisitions
8893: where auction_header_id = x_negotiation_id
8894: and line_number = x_negotiation_line_num;
8895:
8896: -- remove negotiation references in po_requisition_lines
9056: l_line_number NUMBER;
9057: l_req_header_id NUMBER;
9058: l_req_line_id NUMBER;
9059: l_req_quantity NUMBER;
9060: l_req_number pon_backing_requisitions.requisition_number%TYPE;
9061:
9062: CURSOR backingReqs IS
9063: SELECT LINE_NUMBER,
9064: REQUISITION_HEADER_ID,
9064: REQUISITION_HEADER_ID,
9065: REQUISITION_LINE_ID,
9066: REQUISITION_QUANTITY,
9067: REQUISITION_NUMBER
9068: FROM PON_BACKING_REQUISITIONS
9069: WHERE auction_header_id = x_old_negotiation_id;
9070:
9071: BEGIN
9072: IF(x_new_negotiation_id IS NOT NULL) THEN
9081: EXIT WHEN backingReqs%NOTFOUND;
9082:
9083: SELECT count(*)
9084: INTO l_count
9085: FROM PON_BACKING_REQUISITIONS
9086: WHERE auction_header_id = x_new_negotiation_id and
9087: line_number = l_line_number and
9088: requisition_header_id = l_req_header_id and
9089: requisition_line_id = l_req_line_id;
9095: WHERE auction_header_id = x_new_negotiation_id and
9096: line_number = l_line_number;
9097:
9098: IF ((l_count = 0) AND (neg_item_count) = 1) THEN
9099: INSERT INTO PON_BACKING_REQUISITIONS(
9100: AUCTION_HEADER_ID,
9101: LINE_NUMBER,
9102: REQUISITION_HEADER_ID,
9103: REQUISITION_LINE_ID,