The following lines contain the word 'select', 'insert', 'update' or 'delete':
select user_profile_option_name
into l_profile_name
from fnd_profile_options_vl
where profile_option_name = 'ASO_SHIP_FROM_ORG_ID';
PROCEDURE Update_reservation(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
p_line_rec IN aso_quote_pub.qte_line_rec_type,
p_shipment_rec IN aso_quote_pub.shipment_rec_type,
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
IS
l_rsv_old inv_reservation_global.mtl_reservation_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Reservation';
SAVEPOINT UPDATE_RESERVATION_PUB;
inv_reservation_pub.update_reservation(
p_api_version_number => 1.0,
p_init_msg_lst => fnd_api.g_false,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_original_rsv_rec => l_rsv_old,
p_to_rsv_rec => l_rsv_new,
p_original_serial_number => l_dummy_sn ,
p_to_serial_number => l_dummy_sn ,
p_validation_flag => fnd_api.g_true
);
END update_reservation ;
PROCEDURE Delete_reservation(
P_Api_Version_Number IN NUMBER,
P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
P_Commit IN VARCHAR2 := FND_API.G_FALSE,
p_line_rec IN aso_quote_pub.qte_line_rec_type,
p_shipment_rec IN aso_quote_pub.shipment_rec_type,
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
)
IS
l_rsv inv_reservation_global.mtl_reservation_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Reservation';
SAVEPOINT DELETE_RESERVATION_PUB;
inv_reservation_pub.delete_reservation(
p_api_version_number => 1.0,
p_init_msg_lst => fnd_api.g_false,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rsv_rec => l_rsv,
p_serial_number => l_dummy_sn );
END delete_reservation;