The following lines contain the word 'select', 'insert', 'update' or 'delete':
| 17-NOV-04 parkumar Added Functionality for BackOrder and Delete |
| Allocations for a Move Order Line |
| - Delete_Alloc_BackOrder_MO_Line |
===========================================================================
*/
/* Global constant holding the package name */
G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMI_OM_UTILITIES_PKG';
FUNCTION Delete_Alloc_BackOrder_MO_Line(
p_txn_source_line_id IN NUMBER,
p_line_id IN NUMBER,
p_mode IN VARCHAR2)
RETURN BOOLEAN IS
-- p_mode : 'DA' For Delete Allocations, 'BO' For BackOrdering
l_IC$DEFAULT_LOCT VARCHAR2(255) DEFAULT NVL(FND_PROFILE.VALUE('IC$DEFAULT_LOCT'),' ') ;
SELECT move_order_line_id
,delivery_detail_id
,source_header_id
,source_line_id
,released_status
FROM wsh_delivery_details
WHERE source_line_id = l_txn_source_line_id
AND move_order_line_id = l_line_id
AND released_status = 'S'
AND source_code = 'OE';
SELECT trans_id ,line_id, trans_qty, trans_qty2
FROM ic_tran_pnd
WHERE line_id = l_txn_source_line_id
AND line_detail_id = p_delivery_detail_id
AND doc_type = 'OMSO'
AND completed_ind = 0
AND delete_mark = 0
AND staged_ind <> 1
AND ( lot_id <> 0 OR location <> l_IC$DEFAULT_LOCT);
SELECT trans_id
FROM ic_tran_pnd
WHERE line_id = p_line_id
AND line_detail_id IS NULL
AND doc_type = 'OMSO'
AND delete_mark = 0
AND completed_ind = 0
AND staged_ind = 0
AND ( lot_id = 0 AND location = l_IC$DEFAULT_LOCT);
gmi_reservation_util.println('In Function Delete_Alloc_BackOrder_MO_Line');
SAVEPOINT Delete_Alloc_BackOrder_MO_Line;
gmi_reservation_util.println('In Function Delete_Alloc_BackOrder_MO_Line Before delete_pending_transaction');
GMI_TRANS_ENGINE_PUB.delete_pending_transaction (
1
, FND_API.G_FALSE
, FND_API.G_FALSE
, FND_API.G_VALID_LEVEL_FULL
, l_tran_rec
, l_tran_row
, l_return_status
, l_msg_count
, l_msg_data);
gmi_reservation_util.println('Return Status from delete_pending_transaction'|| l_return_status);
gmi_reservation_util.println('Error Status from delete_pending_transaction');
SELECT organization_id
INTO l_organization_id
FROM IC_TXN_REQUEST_LINES
WHERE LINE_ID = l_line_id;
WSH_INTERFACE.Update_Shipping_Attributes (
p_source_code => 'INV'
,p_changed_attributes => l_shipping_attr
,x_return_status => l_api_return_status
);
gmi_reservation_util.println('Error Status from WSH_INTERFACE.Update_Shipping_Attributes');
UPDATE IC_TXN_REQUEST_LINES
SET LINE_STATUS = 5,
quantity_detailed = quantity_detailed - nvl(l_trans_qty,0),
secondary_quantity_detailed = secondary_quantity_detailed - nvl(l_trans_qty2,0)
WHERE LINE_ID = l_line_id;--:TOLINES_BLK.LINE_ID;
UPDATE IC_TXN_REQUEST_LINES
SET quantity_detailed = quantity_detailed - nvl(l_trans_qty,0),
secondary_quantity_detailed = secondary_quantity_detailed - nvl(l_trans_qty2,0)
WHERE LINE_ID = l_line_id;--:TOLINES_BLK.LINE_ID;
gmi_reservation_util.println('Get_Default_Trans%NOTFOUND in Delete_Alloc_BackOrder_MO_Line');
gmi_reservation_util.println('In Delete_Alloc_BackOrder_MO_Line before call to GMI_Reservation_Util.balance_default_lot');
gmi_reservation_util.println('Successfully Returning from Delete_Alloc_BackOrder_MO_Line');
ROLLBACK TO SAVEPOINT Delete_Alloc_BackOrder_MO_Line;
GMI_Reservation_Util.PrintLn('Exception fnd_api.g_exc_error Delete_Alloc_BackOrder_MO_Line');
ROLLBACK TO SAVEPOINT Delete_Alloc_BackOrder_MO_Line;
GMI_Reservation_Util.PrintLn('Exception fnd_api.g_exc_error Delete_Alloc_BackOrder_MO_Line');
ROLLBACK TO SAVEPOINT Delete_Alloc_BackOrder_MO_Line;
GMI_Reservation_Util.PrintLn('Others Exception Delete_Alloc_BackOrder_MO_Line');
END Delete_Alloc_BackOrder_MO_Line;