The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pv_ge_chklst_items_b_s.NEXTVAL
FROM dual;
SELECT 1
FROM PV_GE_CHKLST_ITEMS_B
WHERE checklist_item_id = l_id;
l_ge_chklst_rec.last_update_date := SYSDATE;
l_ge_chklst_rec.last_updated_by := FND_GLOBAL.user_id;
l_ge_chklst_rec.last_update_login := FND_GLOBAL.conc_login_id;
FOR cur IN (SELECT MAX(sequence_num) temp_sequence_num from pv_ge_chklst_items_vl where (used_by_entity_id = p_ge_chklst_rec.used_by_entity_id ))
LOOP
l_sequence_num := cur.temp_sequence_num;
Pv_Ge_Chklst_Pkg.Insert_Row(
px_checklist_item_id => l_ge_chklst_rec.checklist_item_id,
px_object_version_number => l_object_version_number,
p_arc_used_by_entity_code => p_ge_chklst_rec.arc_used_by_entity_code,
p_used_by_entity_id => p_ge_chklst_rec.used_by_entity_id,
p_sequence_num => l_sequence_num,
p_is_required_flag => p_ge_chklst_rec.is_required_flag,
p_enabled_flag => p_ge_chklst_rec.enabled_flag,
p_created_by => FND_GLOBAL.USER_ID,
p_creation_date => SYSDATE,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id,
p_checklist_item_name => p_ge_chklst_rec.checklist_item_name
);
SELECT sequence_num, is_required_flag, enabled_flag
FROM pv_ge_chklst_items_b
WHERE arc_used_by_entity_code = 'PRGM' AND used_by_entity_id = cv_program_id
order by checklist_item_id;
SELECT tl.checklist_item_id, checklist_item_name, source_lang, language
FROM pv_ge_chklst_items_b b, pv_ge_chklst_items_tl tl
WHERE b.checklist_item_id = tl.checklist_item_id
AND b.arc_used_by_entity_code = 'PRGM'
AND b.used_by_entity_id = cv_program_id
order by tl.checklist_item_id;
SELECT pv_ge_chklst_items_b_s.NEXTVAL
FROM dual;
SELECT 1
FROM pv_ge_chklst_items_b
WHERE checklist_item_id = l_id;
PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : insert into b table');
INSERT INTO pv_ge_chklst_items_b(
checklist_item_id,
object_version_number,
arc_used_by_entity_code,
used_by_entity_id,
sequence_num,
is_required_flag,
enabled_flag,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login
)
VALUES
(
checklist_item_id_array(i),
1,
'PRGM',
p_tar_object_id,
sequence_num_array(i),
is_required_flag_array(i),
enabled_flag_array(i),
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.CONC_LOGIN_ID
);
--PVX_UTILITY_PVT.debug_message(l_api_name || 'insert into pv_checklist_items_tl');
INSERT INTO pv_ge_chklst_items_tl(
checklist_item_id,
language ,
last_update_date ,
last_updated_by ,
creation_date ,
created_by ,
last_update_login ,
source_lang ,
checklist_item_name
)
values
(
new_checklist_item_id_array(j),
language_array(j),
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.CONC_LOGIN_ID,
source_lang_array(j),
checklist_item_name_array(j)
);
PROCEDURE Update_Ge_Chklst(
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_ge_chklst_rec IN ge_chklst_rec_type
)
IS
CURSOR c_get_ge_chklst(checklist_item_id NUMBER) IS
SELECT *
FROM PV_GE_CHKLST_ITEMS_B
WHERE checklist_item_id = p_ge_chklst_rec.checklist_item_id;
L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Ge_Chklst';
SAVEPOINT update_ge_chklst_pvt;
PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
PVX_UTILITY_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
p_token_name => 'INFO',
p_token_value => 'Ge_Chklst') ;
p_token_value => 'Last_Update_Date') ;
p_validation_mode => JTF_PLSQL_API.g_update,
p_ge_chklst_rec => p_ge_chklst_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
Pv_Ge_Chklst_Pkg.Update_Row(
p_checklist_item_id => p_ge_chklst_rec.checklist_item_id,
p_object_version_number => p_ge_chklst_rec.object_version_number,
p_arc_used_by_entity_code => p_ge_chklst_rec.arc_used_by_entity_code,
p_used_by_entity_id => p_ge_chklst_rec.used_by_entity_id,
p_sequence_num => p_ge_chklst_rec.sequence_num,
p_is_required_flag => p_ge_chklst_rec.is_required_flag,
p_enabled_flag => p_ge_chklst_rec.enabled_flag,
p_last_updated_by => FND_GLOBAL.USER_ID,
p_last_update_date => SYSDATE,
p_last_update_login => FND_GLOBAL.conc_login_id,
p_checklist_item_name => p_ge_chklst_rec.checklist_item_name
);
ROLLBACK TO UPDATE_Ge_Chklst_PVT;
ROLLBACK TO UPDATE_Ge_Chklst_PVT;
ROLLBACK TO UPDATE_Ge_Chklst_PVT;
End Update_Ge_Chklst;
PROCEDURE Delete_Ge_Chklst(
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_checklist_item_id IN NUMBER,
p_object_version_number IN NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Ge_Chklst';
SAVEPOINT delete_ge_chklst_pvt;
PVX_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
Pv_Ge_Chklst_Pkg.Delete_Row(
p_checklist_item_id => p_checklist_item_id,
p_object_version_number => p_object_version_number );
ROLLBACK TO DELETE_Ge_Chklst_PVT;
ROLLBACK TO DELETE_Ge_Chklst_PVT;
ROLLBACK TO DELETE_Ge_Chklst_PVT;
End Delete_Ge_Chklst;
SELECT *
FROM pv_ge_chklst_items_b
WHERE checklist_item_id = p_ge_chklst_rec.checklist_item_id;
IF p_ge_chklst_rec.last_updated_by IS NULL THEN
x_complete_rec.last_updated_by := l_ge_chklst_rec.last_updated_by;
IF p_ge_chklst_rec.last_update_date IS NULL THEN
x_complete_rec.last_update_date := l_ge_chklst_rec.last_update_date;
IF p_ge_chklst_rec.last_update_login IS NULL THEN
x_complete_rec.last_update_login := l_ge_chklst_rec.last_update_login;
FOR cur IN (SELECT 1 FROM pv_ge_chklst_responses WHERE checklist_item_id = p_checklist_item_id)
LOOP
l_response :=1;