The following lines contain the word 'select', 'insert', 'update' or 'delete':
| - Update_Reservation |
| - Delete_Reservation |
| - Transfer_Reservation |
| |
| HISTORY |
| 21-FEB-2000 odaboval Created |
| |
| B1479751 odaboval 15-Nov-2000 : Removed all variable x_msg_data from |
| any GMI_Reservation_Util.PrintLn. |
| And removed all FND_MSG_PUB.Get calls (at public level) |
| 03-OCT-2001 odaboval, local fix for bug 2025611 |
| Call procedure Check_Shipping_Details |
| As a local fix, this is now removed. |
| |
| |
| |
| |
| |
+=========================================================================+
API Name : GMI_Reservation_PUB
Type : Global - Package Body
Function : This package contains Global procedures used to
OPM reservation process.
-
Pre-reqs : N/A
Parameters: Per function
Current Vers : 1.0
*/
/* Global variables */
G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_Reservation_PUB';
| Update_Reservation |
| |
| TYPE |
| Global |
| |
| USAGE |
| Update reservation by calling OPM_Allocation manager. |
| |
| DESCRIPTION |
| Update reservation by calling OPM_Allocation manager. |
| |
| PARAMETERS |
| p_api_version_number IN NUMBER - API version |
| p_init_msg_lst IN VARCHAR2 - Msg init |
| x_return_status OUT NOCOPY VARCHAR2 - Return Status |
| x_msg_count OUT NOCOPY NUMBER - |
| x_msg_data OUT NOCOPY VARCHAR2 - |
| p_validation_flag IN VARCHAR2 - |
| p_original_rsv_rec IN rec_type - |
| p_to_rsv_rec IN rec_type - |
| p_serial_number IN rec_type - |
| x_serial_number OUT NOCOPY rec_type - |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 21-FEB-2000 odaboval Created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Update_Reservation
(
p_api_version_number IN NUMBER
, p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
, p_original_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
, p_to_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
, p_original_serial_number IN inv_reservation_global.serial_number_tbl_type
, p_to_serial_number IN inv_reservation_global.serial_number_tbl_type
) IS
l_api_name CONSTANT VARCHAR2 (30) := 'Update_Reservation';
SAVEPOINT GMI_Update_Reservation_PUB;
p_event => 'UPDATE'
, p_rec_to_check => p_to_rsv_rec
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
Call The private update_reservation_reservation
====================================================================== */
GMI_Reservation_Util.PrintLn('(opm_dbg) in GMI_Reservation_PUB.update_reservation before calling PVT');
GMI_Reservation_PVT.Update_Reservation(
x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_validation_flag => p_validation_flag
, p_original_rsv_rec => p_original_rsv_rec
, p_to_rsv_rec => p_to_rsv_rec
, p_original_serial_number => p_original_serial_number
, p_to_serial_number => p_to_serial_number
);
FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Update_Reservation');
FND_MESSAGE.Set_Token('WHERE', 'Update_Reservation');
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.update_reservation NO Error');
ROLLBACK TO SAVEPOINT GMI_Update_Reservation_PUB;
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.update_reservation Exp_Error count='||x_msg_count);
ROLLBACK TO SAVEPOINT GMI_Update_Reservation_PUB;
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.update_reservation OTHERS count='||x_msg_count);
END Update_Reservation;
| Delete_Reservation |
| |
| TYPE |
| Global |
| |
| USAGE |
| Delete reservation by calling OPM_Allocation manager. |
| |
| DESCRIPTION |
| Delete reservation by calling OPM_Allocation manager. |
| |
| PARAMETERS |
| p_api_version_number IN NUMBER - API version |
| p_init_msg_lst IN VARCHAR2 - Msg init |
| x_return_status OUT NOCOPY VARCHAR2 - Return Status |
| x_msg_count OUT NOCOPY NUMBER - |
| x_msg_data OUT NOCOPY VARCHAR2 - |
| p_validation_flag IN VARCHAR2 - |
| p_rsv_rec IN rec_type - |
| p_serial_number IN rec_type - |
| |
| RETURNS |
| None |
| |
| HISTORY |
| 21-FEB-2000 odaboval Created |
| |
+==========================================================================+
Api end of comments
*/
PROCEDURE Delete_Reservation
(
p_api_version_number IN NUMBER
, p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_validation_flag IN VARCHAR2 DEFAULT FND_API.G_TRUE
, p_rsv_rec IN inv_reservation_global.mtl_reservation_rec_type
, p_serial_number IN inv_reservation_global.serial_number_tbl_type
) IS
l_api_name CONSTANT VARCHAR2 (30) := 'Delete_Reservation';
SELECT released_status
FROM wsh_delivery_details
WHERE released_status IN ('Y', 'C')
AND source_line_id = l_so_line_id;
p_event => 'DELETE'
, p_rec_to_check => p_rsv_rec
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
FND_MESSAGE.Set_Name('GMI','GMI_NOT_ALLOWED_TO_DELETE_RSV');
FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of PUB d: WARNING: Cannot call Delete_Reservation because of shipping status.');
Call The private delete_reservation_reservation
======================================================================= */
GMI_Reservation_Util.PrintLn('(opm_dbg) in GMI_Reservation_PUB.delete_reservation before calling PVT');
GMI_Reservation_PVT.Delete_Reservation(
x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_validation_flag => p_validation_flag
, p_rsv_rec => p_rsv_rec
, p_serial_number => p_serial_number
);
FND_MESSAGE.Set_Token('BY_PROC', 'GMI_Reservation_PVT.Delete_Reservation');
FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.delete_reservation NO Error');
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.delete_reservation Exp_Error count='||x_msg_count);
GMI_Reservation_Util.PrintLn('(opm_dbg) in end of GMI_Reservation_PUB.delete_reservation OTHERS count='||x_msg_count);
END Delete_Reservation;