The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT name
FROM ams_user_statuses_vl
WHERE user_status_id = p_user_status_id;
AND p_validation_mode = JTF_PLSQL_API.g_update
THEN
IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
FND_MESSAGE.set_name('OZF', 'OZF_API_NO_PRICE_LIST_ATTR_ID');
AND p_validation_mode = JTF_PLSQL_API.g_update
THEN
IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
FND_MESSAGE.set_name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
SELECT *
FROM OZF_price_list_attributes
-- WHERE price_list_attribute_id = p_ozf_price_list_rec.price_list_attribute_id;
If p_validation_mode = 'UPDATE' THEN
Complete_OZF_PRICE_LIST_Rec(
p_OZF_PRICE_LIST_rec => p_OZF_PRICE_LIST_rec,
x_complete_rec => l_OZF_PRICE_LIST_rec
);
p_LAST_UPDATE_DATE DATE,
p_LAST_UPDATE_LOGIN NUMBER,
p_LAST_UPDATED_BY NUMBER)
IS
CURSOR C IS
SELECT *
FROM OZF_PRICE_LIST_ATTRIBUTES
WHERE PRICE_LIST_ATTRIBUTE_ID = p_PRICE_LIST_ATTRIBUTE_ID
FOR UPDATE of PRICE_LIST_ATTRIBUTE_ID NOWAIT;
CURSOR C2 IS SELECT OZF_PRICE_LIST_ATTRIBUTES_S.nextval FROM sys.dual;
INSERT INTO OZF_PRICE_LIST_ATTRIBUTES(
PRICE_LIST_ATTRIBUTE_ID,
USER_STATUS_ID,
CUSTOM_SETUP_ID,
STATUS_CODE,
OWNER_ID,
QP_LIST_HEADER_ID,
OBJECT_VERSION_NUMBER,
STATUS_DATE,
WF_ITEM_KEY,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATED_BY
) VALUES (
l_price_list_attribute_id,
decode( p_OZF_PRICE_LIST_rec.USER_STATUS_ID, FND_API.G_MISS_NUM, NULL, p_OZF_PRICE_LIST_rec.USER_STATUS_ID),
decode( p_OZF_PRICE_LIST_rec.CUSTOM_SETUP_ID, FND_API.G_MISS_NUM, NULL, p_OZF_PRICE_LIST_rec.CUSTOM_SETUP_ID),
decode( p_OZF_PRICE_LIST_rec.STATUS_CODE, FND_API.G_MISS_CHAR, NULL, p_OZF_PRICE_LIST_rec.STATUS_CODE),
decode( p_OZF_PRICE_LIST_rec.OWNER_ID, FND_API.G_MISS_NUM, NULL, p_OZF_PRICE_LIST_rec.OWNER_ID),
decode( p_OZF_PRICE_LIST_rec.QP_LIST_HEADER_ID, FND_API.G_MISS_NUM, NULL, p_OZF_PRICE_LIST_rec.QP_LIST_HEADER_ID),
1,
decode( p_OZF_PRICE_LIST_rec.STATUS_DATE, FND_API.G_MISS_DATE, NULL, p_OZF_PRICE_LIST_rec.STATUS_DATE),
decode( p_OZF_PRICE_LIST_rec.WF_ITEM_KEY, FND_API.G_MISS_CHAR, NULL, p_OZF_PRICE_LIST_rec.WF_ITEM_KEY),
FND_GLOBAL.USER_ID,
SYSDATE,
SYSDATE,
FND_GLOBAL.CONC_LOGIN_ID,
FND_GLOBAL.USER_ID);
PROCEDURE Update_price_list(
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_OZF_PRICE_LIST_Rec IN OZF_PRICE_LIST_Rec_Type,
X_Object_Version_Number OUT NOCOPY NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_price_list';
SELECT 'N'
FROM ozf_price_list_attributes
WHERE qp_list_header_id = p_id;
SAVEPOINT UPDATE_PRICE_LIST_PVT;
p_validation_mode => 'UPDATE',
P_OZF_PRICE_LIST_Rec => P_OZF_PRICE_LIST_Rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Update OZF_PRICE_LIST_ATTRIBUTES
SET
PRICE_LIST_ATTRIBUTE_ID = decode( p_OZF_PRICE_LIST_rec.PRICE_LIST_ATTRIBUTE_ID, FND_API.G_MISS_NUM, PRICE_LIST_ATTRIBUTE_ID, p_OZF_PRICE_LIST_rec.PRICE_LIST_ATTRIBUTE_ID),
USER_STATUS_ID = decode( p_OZF_PRICE_LIST_rec.USER_STATUS_ID, FND_API.G_MISS_NUM, USER_STATUS_ID, p_OZF_PRICE_LIST_rec.USER_STATUS_ID),
CUSTOM_SETUP_ID = decode( p_OZF_PRICE_LIST_rec.CUSTOM_SETUP_ID, FND_API.G_MISS_NUM, CUSTOM_SETUP_ID, p_OZF_PRICE_LIST_rec.CUSTOM_SETUP_ID),
STATUS_CODE = decode( p_OZF_PRICE_LIST_rec.STATUS_CODE, FND_API.G_MISS_CHAR, STATUS_CODE, p_OZF_PRICE_LIST_rec.STATUS_CODE),
OWNER_ID = decode( p_OZF_PRICE_LIST_rec.OWNER_ID, FND_API.G_MISS_NUM, OWNER_ID, p_OZF_PRICE_LIST_rec.OWNER_ID),
QP_LIST_HEADER_ID = decode( p_OZF_PRICE_LIST_rec.QP_LIST_HEADER_ID, FND_API.G_MISS_NUM, QP_LIST_HEADER_ID, p_OZF_PRICE_LIST_rec.QP_LIST_HEADER_ID),
OBJECT_VERSION_NUMBER = p_OZF_PRICE_LIST_rec.object_version_number + 1,
STATUS_DATE = decode( p_OZF_PRICE_LIST_rec.STATUS_DATE, FND_API.G_MISS_DATE, STATUS_DATE, p_OZF_PRICE_LIST_rec.STATUS_DATE),
WF_ITEM_KEY = decode( p_OZF_PRICE_LIST_rec.WF_ITEM_KEY, FND_API.G_MISS_CHAR, WF_ITEM_KEY, p_OZF_PRICE_LIST_rec.WF_ITEM_KEY),
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATE_LOGIN = FND_GLOBAL.CONC_LOGIN_ID,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID
where qp_list_header_id = p_OZF_PRICE_LIST_rec.qp_list_header_id
and object_version_number = p_OZF_PRICE_LIST_rec.object_version_number;
ROLLBACK TO UPDATE_PRICE_LIST_PVT;
ROLLBACK TO UPDATE_PRICE_LIST_PVT;
ROLLBACK TO UPDATE_PRICE_LIST_PVT;
End Update_price_list;
PROCEDURE Delete_price_list(
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_PRICE_LIST_ATTRIBUTE_ID IN NUMBER,
P_Object_Version_Number IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_price_list';
SAVEPOINT DELETE_PRICE_LIST_PVT;
DELETE FROM OZF_PRICE_LIST_ATTRIBUTES
WHERE PRICE_LIST_ATTRIBUTE_ID = p_PRICE_LIST_ATTRIBUTE_ID
AND object_version_number = p_object_version_number;
ROLLBACK TO DELETE_PRICE_LIST_PVT;
ROLLBACK TO DELETE_PRICE_LIST_PVT;
ROLLBACK TO DELETE_PRICE_LIST_PVT;
End Delete_price_list;