The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ams_categories_b_s.NEXTVAL
FROM dual;
SELECT COUNT(*)
FROM AMS_CATEGORIES_B
WHERE category_id = my_category_id;
SELECT parent_category_id
FROM AMS_CATEGORIES_B
WHERE category_id = l_parent_parent_id;
AMS_Utility_PVT.debug_message(l_full_name ||': insert');
INSERT INTO AMS_CATEGORIES_B (
CATEGORY_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER,
ARC_CATEGORY_CREATED_FOR,
ENABLED_FLAG,
PARENT_CATEGORY_ID
,ATTRIBUTE_CATEGORY
,ATTRIBUTE1
,ATTRIBUTE2
,ATTRIBUTE3
,ATTRIBUTE4
,ATTRIBUTE5
,ATTRIBUTE6
,ATTRIBUTE7
,ATTRIBUTE8
,ATTRIBUTE9
,ATTRIBUTE10
,ATTRIBUTE11
,ATTRIBUTE12
,ATTRIBUTE13
,ATTRIBUTE14
,ATTRIBUTE15
,ACCRUED_LIABILITY_ACCOUNT
,DED_ADJUSTMENT_ACCOUNT
,BUDGET_CODE_SUFFIX
,LEDGER_ID
) VALUES (
L_CATEGORY_REC.CATEGORY_ID,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id,
FND_GLOBAL.conc_login_id,
1, -- object_version_number
L_CATEGORY_REC.ARC_CATEGORY_CREATED_FOR,
nvl(L_CATEGORY_REC.ENABLED_FLAG,'Y'),
L_CATEGORY_REC.PARENT_CATEGORY_ID,
L_CATEGORY_REC.ATTRIBUTE_CATEGORY,
L_CATEGORY_REC.ATTRIBUTE1,
L_CATEGORY_REC.ATTRIBUTE2,
L_CATEGORY_REC.ATTRIBUTE3,
L_CATEGORY_REC.ATTRIBUTE4,
L_CATEGORY_REC.ATTRIBUTE5,
L_CATEGORY_REC.ATTRIBUTE6,
L_CATEGORY_REC.ATTRIBUTE7,
L_CATEGORY_REC.ATTRIBUTE8,
L_CATEGORY_REC.ATTRIBUTE9,
L_CATEGORY_REC.ATTRIBUTE10,
L_CATEGORY_REC.ATTRIBUTE11,
L_CATEGORY_REC.ATTRIBUTE12,
L_CATEGORY_REC.ATTRIBUTE13,
L_CATEGORY_REC.ATTRIBUTE14,
L_CATEGORY_REC.ATTRIBUTE15,
L_CATEGORY_REC.ACCRUED_LIABILITY_ACCOUNT,
L_CATEGORY_REC.DED_ADJUSTMENT_ACCOUNT,
L_CATEGORY_REC.BUDGET_CODE_SUFFIX,
L_CATEGORY_REC.LEDGER_ID
);
INSERT INTO AMS_CATEGORIES_TL (
CATEGORY_NAME,
DESCRIPTION,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
CATEGORY_ID,
LANGUAGE,
SOURCE_LANG
) SELECT
l_category_rec.CATEGORY_NAME,
l_category_rec.DESCRIPTION,
sysdate,
FND_GLOBAL.User_Id,
sysdate,
FND_GLOBAL.User_Id,
FND_GLOBAL.Conc_Login_Id,
l_category_rec.category_id,
L.LANGUAGE_CODE,
userenv('LANG')
FROM FND_LANGUAGES L
WHERE L.INSTALLED_FLAG in ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM AMS_CATEGORIES_TL T
WHERE T.CATEGORY_ID = l_category_rec.category_id
AND T.LANGUAGE = L.LANGUAGE_CODE);
PROCEDURE Update_Category
( p_api_version 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_category_rec IN category_rec_type
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Category';
SELECT parent_category_id
FROM AMS_CATEGORIES_B
WHERE category_id = l_parent_parent_id;
SAVEPOINT Update_Category_PVT;
UPDATE AMS_CATEGORIES_B
SET
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.conc_login_id,
OBJECT_VERSION_NUMBER = L_CATEGORY_REC.OBJECT_VERSION_NUMBER + 1,
ENABLED_FLAG = L_CATEGORY_REC.ENABLED_FLAG
WHERE
CATEGORY_ID = l_category_rec.category_id;
UPDATE AMS_CATEGORIES_TL
SET
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.User_Id,
LAST_UPDATE_LOGIN = FND_GLOBAL.Conc_Login_Id,
SOURCE_LANG = userenv('LANG')
WHERE
CATEGORY_ID = p_category_rec.category_id
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
UPDATE AMS_CATEGORIES_B
SET
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.conc_login_id,
OBJECT_VERSION_NUMBER = L_CATEGORY_REC.OBJECT_VERSION_NUMBER + 1,
ARC_CATEGORY_CREATED_FOR = L_CATEGORY_REC.ARC_CATEGORY_CREATED_FOR,
ENABLED_FLAG = L_CATEGORY_REC.ENABLED_FLAG,
PARENT_CATEGORY_ID = L_CATEGORY_REC.PARENT_CATEGORY_ID,
ATTRIBUTE_CATEGORY = L_CATEGORY_REC.ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = L_CATEGORY_REC.ATTRIBUTE1,
ATTRIBUTE2 = L_CATEGORY_REC.ATTRIBUTE2,
ATTRIBUTE3 = L_CATEGORY_REC.ATTRIBUTE3,
ATTRIBUTE4 = L_CATEGORY_REC.ATTRIBUTE4,
ATTRIBUTE5 = L_CATEGORY_REC.ATTRIBUTE5,
ATTRIBUTE6 = L_CATEGORY_REC.ATTRIBUTE6,
ATTRIBUTE7 = L_CATEGORY_REC.ATTRIBUTE7,
ATTRIBUTE8 = L_CATEGORY_REC.ATTRIBUTE8,
ATTRIBUTE9 = L_CATEGORY_REC.ATTRIBUTE9,
ATTRIBUTE10 = L_CATEGORY_REC.ATTRIBUTE10,
ATTRIBUTE11 = L_CATEGORY_REC.ATTRIBUTE11,
ATTRIBUTE12 = L_CATEGORY_REC.ATTRIBUTE12,
ATTRIBUTE13 = L_CATEGORY_REC.ATTRIBUTE13,
ATTRIBUTE14 = L_CATEGORY_REC.ATTRIBUTE14,
ATTRIBUTE15 = L_CATEGORY_REC.ATTRIBUTE15,
ACCRUED_LIABILITY_ACCOUNT = L_CATEGORY_REC.ACCRUED_LIABILITY_ACCOUNT,
DED_ADJUSTMENT_ACCOUNT = L_CATEGORY_REC.DED_ADJUSTMENT_ACCOUNT,
BUDGET_CODE_SUFFIX = L_CATEGORY_REC.BUDGET_CODE_SUFFIX,
LEDGER_ID = L_CATEGORY_REC.LEDGER_ID
WHERE
CATEGORY_ID = l_category_rec.category_id;
UPDATE AMS_CATEGORIES_TL
SET
CATEGORY_NAME = l_category_rec.CATEGORY_NAME,
DESCRIPTION = l_category_rec.DESCRIPTION,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.User_Id,
LAST_UPDATE_LOGIN = FND_GLOBAL.Conc_Login_Id,
SOURCE_LANG = userenv('LANG')
WHERE
CATEGORY_ID = p_category_rec.category_id
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
ROLLBACK TO Update_Category_PVT;
ROLLBACK TO Update_Category_PVT;
ROLLBACK TO Update_Category_PVT;
END Update_Category;
PROCEDURE Delete_Category
( p_api_version 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_category_id IN NUMBER,
p_object_version IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Category';
SAVEPOINT Delete_Category_PVT;
AMS_Utility_PVT.debug_message(l_full_name ||': delete');
delete from AMS_CATEGORIES_B
where category_id = l_category_id
and object_version_number = p_object_version;
delete from AMS_CATEGORIES_TL
where category_id = l_category_id
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
ROLLBACK TO Delete_Category_PVT;
ROLLBACK TO Delete_Category_PVT;
ROLLBACK TO Delete_Category_PVT;
END Delete_Category;
SELECT ARC_CATEGORY_CREATED_FOR,
PARENT_CATEGORY_ID
FROM AMS_CATEGORIES_B
WHERE category_id = p_category_id
and object_version_number = p_object_version
FOR UPDATE of category_id NOWAIT;
SELECT CATEGORY_NAME,
DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
FROM AMS_CATEGORIES_TL
WHERE CATEGORY_ID = p_CATEGORY_ID
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG)
FOR UPDATE OF CATEGORY_ID NOWAIT;
select ARC_CATEGORY_CREATED_FOR
from AMS_CATEGORIES_B
where category_id = l_parent_cat_id;
SELECT COUNT(*)
FROM ams_categories_b
WHERE parent_category_id = l_parent_cat_id
AND enabled_flag = 'Y';
SELECT 1 FROM DUAL WHERE EXISTS (select 1 from AMS_CATEGORIES_TL t,
AMS_CATEGORIES_B b
where t.category_name = ctg_name_in
and b.arc_category_created_for = ctg_arc_in
and language = userenv('LANG')
and t.category_id = b.category_id
--and t.category_id = ctg_id_in
--and b.category_id = ctg_id_in
);
SELECT 1 FROM DUAL WHERE EXISTS (select 1 from AMS_CATEGORIES_TL t,
AMS_CATEGORIES_B b
where t.category_name = ctg_name_in
and b.arc_category_created_for = ctg_arc_in
and language = userenv('LANG')
and t.category_id = b.category_id
and t.category_id <> ctg_id_in
and b.category_id <> ctg_id_in);
SELECT *
FROM ams_categories_vl
WHERE category_id = p_category_rec.category_id;
PROCEDURE Unit_Test_Insert
IS
-- local variables
l_act_category_rec category_rec_type;
END Unit_Test_Insert;
PROCEDURE Unit_Test_Delete
IS
-- local variables
l_category_rec category_rec_type;
AMS_Category_PVT.Delete_Category (
p_api_version => 1.0 -- p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,p_category_rec => l_category_rec
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
END Unit_Test_Delete;
PROCEDURE Unit_Test_Update
IS
-- local variables
l_category_rec category_rec_type;
select *
from AMS_CATEGORIES_VL
WHERE CATEGORY_ID = my_category_id;
l_category_rec.NOTES := 'NOTES UPDATED1';
AMS_Category_PVT.Update_Category (
p_api_version => 1.0 -- p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,p_category_rec => l_category_rec
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
END Unit_Test_Update;
select * from AMS_CATEGORIES_B WHERE CATEGORY_ID = my_category_id;
PROCEDURE Unit_Test_Act_Insert
is
-- local variables
l_act_category_rec AMS_ACT_CATEGORIES%ROWTYPE;
END Unit_Test_Act_Insert;
PROCEDURE Unit_Test_Act_Delete
is
-- local variables
l_act_category_rec AMS_ACT_CATEGORIES%ROWTYPE;
AMS_Category_PVT.Delete_Act_Category (
p_api_version => 1.0 -- p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,p_category_rec => l_act_category_rec
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
END Unit_Test_Act_Delete;
PROCEDURE Unit_Test_Act_Update
is
-- local variables
l_act_category_rec AMS_ACT_CATEGORIES%ROWTYPE;
SELECT *
FROM AMS_ACT_CATEGORIES
WHERE ACTIVITY_CATEGORY_ID = my_act_category_id;
l_act_category_rec.ATTRIBUTE1 := 'ATTRIBUTE1 UPDATED1';
AMS_Category_PVT.Update_Act_Category (
p_api_version => 1.0 -- p_api_version
,p_init_msg_list => FND_API.G_FALSE
,p_commit => FND_API.G_FALSE
,p_validation_level => FND_API.G_VALID_LEVEL_FULL
,p_category_rec => l_act_category_rec
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
END Unit_Test_Act_Update;