The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF p_validation_mode = JTF_PLSQL_API.G_UPDATE THEN
IF
(
p_preset_tier_rec.offer_market_option_id IS NOT NULL AND p_preset_tier_rec.offer_market_option_id <> FND_API.G_MISS_NUM
)
AND
(
p_preset_tier_rec.pbh_offer_discount_id IS NOT NULL AND p_preset_tier_rec.pbh_offer_discount_id <> FND_API.G_MISS_NUM
)
AND
(
p_preset_tier_rec.dis_offer_discount_id IS NOT NULL AND p_preset_tier_rec.dis_offer_discount_id <> FND_API.G_MISS_NUM
)
AND
(
p_preset_tier_rec.market_preset_tier_id IS NOT NULL AND p_preset_tier_rec.market_preset_tier_id <> FND_API.G_MISS_NUM
)
THEN
IF ozf_utility_pvt.check_uniqueness('ozf_market_preset_tiers'
,'offer_market_option_id = '||p_preset_tier_rec.offer_market_option_id
||' AND pbh_offer_discount_id = '|| p_preset_tier_rec.pbh_offer_discount_id
|| ' AND dis_offer_discount_id = '||p_preset_tier_rec.dis_offer_discount_id
|| ' AND market_preset_tier_id <> ' ||p_preset_tier_rec.market_preset_tier_id
)
= FND_API.G_FALSE
THEN
OZF_Utility_PVT.Error_Message('OZF_MO_PRESTE_TIER_DUP');
SELECT 1 FROM DUAL
WHERE EXISTS( SELECT 'X' FROM ozf_offer_discount_lines WHERE offer_discount_line_id = p_pbh_discount_id AND tier_type = 'PBH');
SELECT 1 FROM dual WHERE EXISTS (SELECT 'X' FROM ozf_offer_discount_lines WHERE offer_discount_line_id = p_dis_discount_id AND tier_type = 'DIS');
SELECT 1 FROM dual
WHERE EXISTS(
SELECT 'x' FROM ozf_offer_discount_lines
WHERE offer_discount_line_id = p_dis_discount_id
AND parent_discount_line_id = p_pbh_discount_id);
SELECT ozf_market_preset_tiers_s.nextval
FROM DUAL;
SELECT 1 FROM dual WHERE exists(SELECT 'X' FROM ozf_market_preset_tiers WHERE market_preset_tier_id = l_market_preset_tier_id);
OZF_MO_PRESET_TIERS_PKG.Insert_row
(
px_market_preset_tier_id => l_market_preset_tier_id
, p_offer_market_option_id => l_preset_tier_rec.offer_market_option_id
, p_pbh_offer_discount_id => l_preset_tier_rec.pbh_offer_discount_id
, p_dis_offer_discount_id => l_preset_tier_rec.dis_offer_discount_id
, px_object_version_number => l_object_version_number
, p_creation_date => sysdate
, p_created_by => FND_GLOBAL.user_id
, p_last_update_date => sysdate
, p_last_updated_by => FND_GLOBAL.user_id
, p_last_update_login => FND_GLOBAL.conc_login_id
);
PROCEDURE Update_mo_preset_tiers(
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_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_preset_tier_rec IN mo_preset_rec_type
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_mo_preset_tiers';
SELECT * FROM ozf_market_preset_tiers
WHERE market_preset_tier_id = p_market_preset_tier_id
AND object_version_number = p_object_version_number;
SAVEPOINT Update_mo_preset_tiers;
OZF_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET'
, p_token_name => 'INFO'
, p_token_value => 'OZF_MO_PRESET_TIERS') ;
, p_token_value => 'Last_Update_Date') ;
, p_validation_mode => JTF_PLSQL_API.g_update
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
, p_preset_tier_rec => p_preset_tier_rec
);
OZF_MO_PRESET_TIERS_PKG.Update_row
(
p_market_preset_tier_id => l_tar_preset_rec.market_preset_tier_id
, p_offer_market_option_id => l_tar_preset_rec.offer_market_option_id
, p_pbh_offer_discount_id => l_tar_preset_rec.pbh_offer_discount_id
, p_dis_offer_discount_id => l_tar_preset_rec.dis_offer_discount_id
, p_object_version_number => l_tar_preset_rec.object_version_number
, p_last_update_date => sysdate
, p_last_updated_by => FND_GLOBAL.user_id
, p_last_update_login => FND_GLOBAL.conc_login_id
);
ROLLBACK TO UPDATE_mo_PRESET_TIERS;
ROLLBACK TO UPDATE_mo_PRESET_TIERS;
ROLLBACK TO UPDATE_mo_PRESET_TIERS;
END UPDATE_mo_PRESET_TIERS;
PROCEDURE Delete_mo_preset_tiers(
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_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_market_preset_tier_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
l_api_version_number CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Delete_mo_preset_tiers';
SAVEPOINT Delete_mo_preset_tiers;
OZF_MO_PRESET_TIERS_PKG.Delete_row(p_market_preset_tier_id => p_market_preset_tier_id, p_object_version_number => p_object_version_number);
ROLLBACK TO Delete_mo_preset_tiers;
ROLLBACK TO Delete_mo_preset_tiers;
ROLLBACK TO Delete_mo_preset_tiers;
END Delete_mo_preset_tiers;