[Home] [Help]
421: l_receipt_source_Code := 'CUSTOMER';
422: end if;
423:
424: -- Insert header record.
425: INSERT INTO rcv_headers_interface
426: (header_interface_id,
427: GROUP_ID,
428: ship_to_organization_id,
429: expected_receipt_date, last_update_date,
433: -- added for internal orders.
434: shipped_Date,
435: shipment_num
436: )
437: VALUES (rcv_headers_interface_s.NEXTVAL,
438: rcv_interface_groups_s.NEXTVAL,
439: p_receive_tbl (1).to_organization_id,
440: p_receive_tbl (1).expected_receipt_date, SYSDATE,
441: fnd_global.user_id, fnd_global.login_id, SYSDATE,
451: --
452: -- Dynamic sql is being used to ensure that the code is not dependent on
453: -- the 11.5.0 PO code. This will be only run time dependent.(functional dependence)
454: sql_str :=
455: 'UPDATE RCV_HEADERS_INTERFACE SET HEADER_INTERFACE_ID=HEADER_INTERFACE_ID';
456: exec_flag := FALSE;
457:
458: IF (p_receive_tbl (1).customer_id IS NOT NULL)
459: THEN
1369: END rcv_req_online;
1370:
1371: /*-----------------------------------------------------------------------------------------------------------*/
1372: /* procedure name: DELETE_INTF_TBLS */
1373: /* description : Deletes records in RCV_HEADERS_INTERFACE, RCV_TRANSACTIONS_INTERFACE., PO_INTERFACE_ERRORS*/
1374: /* MTL_TRANSACTION_LOTS_INTERFACE_TBL, MTL_SERIAL_NUMBERS_INTERFACE_TBL tables. */
1375: /* Called from : receive_item api */
1376: /* Input Parm : */
1377: /* p_request_group_id NUMBER Required */
1394:
1395: --Cursor to get the headers interface records.
1396: CURSOR cur_headers(p_group_Id NUMBER) is
1397: SELECT HEADER_INTERFACE_ID
1398: FROM RCV_HEADERS_INTERFACE
1399: WHERE GROUP_ID = p_group_id;
1400: --Cursor to get the transactions interface records.
1401: CURSOR cur_transactions(p_group_Id NUMBER) is
1402: SELECT INTERFACE_TRANSACTION_ID
1477: );
1478: END IF;
1479:
1480: BEGIN
1481: DELETE FROM rcv_headers_interface
1482: WHERE GROUP_ID = p_request_group_id;
1483: EXCEPTION
1484: WHEN NO_DATA_FOUND
1485: THEN