[Home] [Help]
2286: l_api_name CONSTANT VARCHAR2(30) := 'Process_IO_Arrival_Txn';
2287: l_error VARCHAR2(600);
2288:
2289: --Fix bug 3364811, move order lines and delivery table out of
2290: --io_arrival_crsr so that no duplicate rcv transactions picked
2291: --in outer loop.
2292: --This new cursor is created to fetch shipping org etc info
2293: CURSOR shipping_org IS
2294: SELECT
2621: mms.movement_id
2622: , mms.movement_status
2623: FROM
2624: mtl_movement_statistics mms
2625: , rcv_transactions rt
2626: WHERE mms.rcv_transaction_id = rt.parent_transaction_id
2627: AND rt.transaction_id = x_mvt_rtv_transaction.rcv_transaction_id
2628: AND mms.entity_org_id = x_mvt_rtv_transaction.entity_org_id
2629: AND mms.zone_code = x_mvt_rtv_transaction.zone_code
4553:
4554: l_api_name CONSTANT VARCHAR2(30) := 'Process_RMA_Transaction';
4555: l_error VARCHAR2(600);
4556: l_sold_from_org_code VARCHAR2(2); -- 7165989
4557: l_mvt_stat_status RCV_TRANSACTIONS.mvt_stat_status%TYPE; -- 7165989
4558: l_dispatch mtl_movement_statistics.dispatch_territory_code%TYPE;-- 7165989
4559: l_destination mtl_movement_statistics.destination_territory_code%TYPE;-- 7165989
4560: l_insert VARCHAR2(1);-- 7165989
4561: l_ship_from_loc VARCHAR2(10);-- 7165989
4577: , G_MODULE_NAME || l_api_name || '.begin'
4578: ,'enter procedure'
4579: );
4580: END IF;
4581: l_mvt_stat_status := NULL ; -- 7165989 : initialize the mvt_stat_status in rcv_transactions
4582: x_return_status := FND_API.G_RET_STS_SUCCESS;
4583: l_movement_transaction := p_movement_transaction;
4584:
4585: -- Call the transaction proxy which processes all the transactions.
4795: --Initialize insert flag
4796: l_insert_flag := 'N';
4797:
4798: --Fix bug3057775. Initialize process flag, only when this flag is 'Y'
4799: --the mvt_stat_status in rcv_transactions will be upgrade to 'PROCESSED'
4800: --otherwise the status remians to 'NEW', so that it will be picked up again
4801: --when run processor in the other legal entity
4802: --Fix bug 5453241 do not initialize here. This will cause status reset
4803: --to 'N' after successfully create a record in first loop. If the
4811: THEN
4812: --Processor is run at the legal entity where the RMA is created
4813: IF l_rma_le_id = l_movement_transaction.entity_org_id
4814: THEN
4815: /* 7165989 - check for mvt_stat_status in RCV_TRANSACTIONS before creating triangulation records */
4816: /* Create records only when the status is 'NEW' or 'FORDISP'(record already created in the receiving LE)*/
4817: IF ((NVL(l_stat_typ_transaction.triangulation_mode,'INVOICE_BASED')
4818: = 'INVOICE_BASED') AND (l_mvt_stat_status is NOT NULL )
4819: AND (l_mvt_stat_status = 'NEW' OR l_mvt_stat_status = 'FORDISP')
4832: ( p_movement_transaction => l_movement_transaction
4833: , p_stat_typ_transaction => l_stat_typ_transaction
4834: , x_return_status => x_return_status
4835: );
4836: /* 7165989 - Change mvt_stat_status in RCV_TRANSACTIONS based on the triangulation records created */
4837: /* If status is NEW , change status to 'FORARVL' so that the arrival record can be created in the*/
4838: /* receiving LE. If status is 'FORDISP', set status to 'PROCESSED' */
4839: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4840: IF (l_mvt_stat_status is NOT NULL AND l_mvt_stat_status = 'NEW') THEN
4904: ( p_movement_transaction => l_movement_transaction
4905: , p_stat_typ_transaction => l_stat_typ_transaction
4906: , x_return_status => x_return_status
4907: );
4908: /* 6732517 - Change mvt_stat_status in RCV_TRANSACTIONS based on the triangulation records created */
4909: /* If status is NEW , change status to 'FORARVL' so that the arrival record can be created in the*/
4910: /* receiving LE. If status is 'FORDISP', set status to 'PROCESSED' */
4911:
4912:
4950: FND_FILE.put_line (FND_FILE.log ,'Case 2 : RMA Shipment Based Triangulation run at receiving LE' );
4951: END IF;
4952: /********************** Process RMA Triangulation at receiving LE- 7165989 - Start ****************************/
4953:
4954: /* 7165989 - check for mvt_stat_status in RCV_TRANSACTIONS before creating triangulation records */
4955: /* Create records only when the status is 'NEW' or 'ARVL(record already created in the selling LE)*/
4956: IF ((NVL(l_stat_typ_transaction.triangulation_mode,'INVOICE_BASED') = 'INVOICE_BASED')
4957: AND (l_mvt_stat_status is NOT NULL )
4958: AND (l_mvt_stat_status = 'NEW' OR l_mvt_stat_status = 'FORARVL')
4980: THEN
4981: l_insert_flag := INV_MGD_MVT_SETUP_MDTR.Process_Setup_Context
4982: ( p_movement_transaction => l_movement_transaction);
4983: END IF;
4984: /* 6732517 - Change mvt_stat_status in RCV_TRANSACTIONS based on the triangulation records created */
4985: /* If status is NEW , change status to 'FORARVL' so that the arrival record can be created in the*/
4986: /* receiving LE. If status is 'FORDISP', set status to 'PROCESSED' */
4987:
4988: IF (l_insert_flag = 'Y') THEN
5559: SELECT
5560: SUM(quantity)
5561: , SUM(primary_quantity)
5562: FROM
5563: rcv_transactions
5564: WHERE parent_transaction_id = l_movement_transaction.rcv_transaction_id
5565: AND mvt_stat_status = 'NEW'
5566: AND transaction_type = 'CORRECT';
5567: BEGIN
5823: );
5824:
5825: IF l_return_status = FND_API.G_RET_STS_SUCCESS
5826: THEN
5827: UPDATE rcv_transactions
5828: SET
5829: mvt_stat_status = 'PROCESSED'
5830: , movement_id = l_movement_transaction.movement_id
5831: WHERE mvt_stat_status = 'NEW'