[Home] [Help]
444: l_receipt_source_Code := 'CUSTOMER';
445: end if;
446:
447: -- Insert header record.
448: INSERT INTO rcv_headers_interface
449: (header_interface_id,
450: GROUP_ID,
451: ship_to_organization_id,
452: expected_receipt_date, last_update_date,
456: -- added for internal orders.
457: shipped_Date,
458: shipment_num
459: )
460: VALUES (rcv_headers_interface_s.NEXTVAL,
461: rcv_interface_groups_s.NEXTVAL,
462: p_receive_tbl (1).to_organization_id,
463: p_receive_tbl (1).expected_receipt_date, SYSDATE,
464: fnd_global.user_id, fnd_global.login_id, SYSDATE,
474: --
475: -- Dynamic sql is being used to ensure that the code is not dependent on
476: -- the 11.5.0 PO code. This will be only run time dependent.(functional dependence)
477: sql_str :=
478: 'UPDATE RCV_HEADERS_INTERFACE SET HEADER_INTERFACE_ID=HEADER_INTERFACE_ID';
479: exec_flag := FALSE;
480:
481: IF (p_receive_tbl (1).customer_id IS NOT NULL)
482: THEN
1456: END rcv_req_online;
1457:
1458: /*-----------------------------------------------------------------------------------------------------------*/
1459: /* procedure name: DELETE_INTF_TBLS */
1460: /* description : Deletes records in RCV_HEADERS_INTERFACE, RCV_TRANSACTIONS_INTERFACE., PO_INTERFACE_ERRORS*/
1461: /* MTL_TRANSACTION_LOTS_INTERFACE_TBL, MTL_SERIAL_NUMBERS_INTERFACE_TBL tables. */
1462: /* Called from : receive_item api */
1463: /* Input Parm : */
1464: /* p_request_group_id NUMBER Required */
1481:
1482: --Cursor to get the headers interface records.
1483: CURSOR cur_headers(p_group_Id NUMBER) is
1484: SELECT HEADER_INTERFACE_ID
1485: FROM RCV_HEADERS_INTERFACE
1486: WHERE GROUP_ID = p_group_id;
1487: --Cursor to get the transactions interface records.
1488: CURSOR cur_transactions(p_group_Id NUMBER) is
1489: SELECT INTERFACE_TRANSACTION_ID
1564: );
1565: END IF;
1566:
1567: BEGIN
1568: DELETE FROM rcv_headers_interface
1569: WHERE GROUP_ID = p_request_group_id;
1570: EXCEPTION
1571: WHEN NO_DATA_FOUND
1572: THEN