The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT function_id
INTO l_function_id
FROM fnd_form_functions
WHERE function_name = UPPER(p_function_name);
insert into cz_lock_history (ENTITY_TYPE,INSTANCE_PK1_VALUE,INSTANCE_PK2_VALUE,INSTANCE_PK3_VALUE
,INSTANCE_PK4_VALUE,EVENT,EVENT_DATE,USER_NAME,EVENT_NOTE)
VALUES (p_entity_type,p_entity_id ,0,0,0,p_event,sysdate,FND_GLOBAL.user_name,p_event_note);
SELECT menu_id
INTO l_menu_id
FROM fnd_menus
WHERE fnd_menus.menu_name = p_menu_name
AND fnd_menus.type = SECURITY_MENU;
SELECT menu_id
INTO l_menu_id
FROM fnd_compiled_menu_functions
WHERE fnd_compiled_menu_functions.function_id IN (SELECT function_id
FROM fnd_form_functions
WHERE fnd_form_functions.function_name = p_function_name)
AND fnd_compiled_menu_functions.menu_id = (SELECT menu_id
FROM fnd_menus
WHERE fnd_menus.menu_name = p_menu_name);
SELECT object_id
INTO l_object_id
FROM fnd_objects
WHERE obj_name = UPPER(p_entity_type);
SELECT instance_set_id
INTO l_instance_set_id
FROM FND_OBJECT_INSTANCE_SETS
WHERE object_id = p_object_id
AND instance_set_name = UPPER(p_predicate);
SELECT 'T'
INTO l_check_grant
FROM fnd_grants
WHERE grantee_key = UPPER(p_user_name)
AND instance_set_id = p_instance_set_id
AND menu_id = p_menu_id;
OPEN l_cur FOR 'SELECT '||l_user_name||'_MANAGE FROM CZ_GRANTS_ON_ENTITIES_VIEW
WHERE model_id = '||p_model_id||' AND entity_type = ''MODEL'' ';
CURSOR C1 IS SELECT obj_name from fnd_objects;
l_execute_str := 'CREATE OR REPLACE VIEW CZ_GRANTS_ON_MODELS as SELECT model_id, object_name as model_name,';
SELECT 1
INTO l_check_grant
FROM fnd_grants
WHERE grantee_key = UPPER(l_user_name)
AND instance_set_id = l_instance_set_id
AND menu_id = l_menu_id
AND object_id = l_object_id;
INSERT INTO FND_GRANTS ( GRANT_GUID,GRANTEE_TYPE,GRANTEE_KEY,MENU_ID,START_DATE,OBJECT_ID
,INSTANCE_TYPE,INSTANCE_SET_ID,INSTANCE_PK1_VALUE,INSTANCE_PK2_VALUE
,INSTANCE_PK3_VALUE,INSTANCE_PK4_VALUE,INSTANCE_PK5_VALUE,CREATED_BY
,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN
,CTX_SECGRP_ID,CTX_RESP_ID,CTX_RESP_APPL_ID,CTX_ORG_ID)
VALUES (sys_guid(),'GLOBAL',p_user_name,l_menu_id,sysdate,l_object_id
,'INSTANCE',l_instance_set_id,p_instance_pk1_value,'*NULL*','*NULL*','*NULL*','*NULL*',FND_GLOBAL.USER_ID,
sysdate,FND_GLOBAL.USER_ID,sysdate,FND_GLOBAL.USER_ID,-1,l_resp_id,-1,-1);
SELECT 1
INTO l_check_grant
FROM fnd_grants
WHERE grantee_key = UPPER(p_user_name)
AND instance_set_id = l_instance_set_id
AND menu_id = l_menu_id
AND object_id = l_object_id;
DELETE FROM fnd_grants
WHERE grantee_key = UPPER(p_user_name)
AND menu_id = l_menu_id
AND object_id = l_object_id
AND instance_set_id = l_instance_set_id
AND instance_pk1_value = to_char(p_instance_pk1_value);
DELETE FROM fnd_grants WHERE menu_id = l_menu_id AND object_id = l_object_id
AND instance_set_id = l_instance_set_id AND instance_pk1_value = to_char(p_instance_pk1_value);
DELETE FROM fnd_grants WHERE menu_id = l_menu_id AND object_id = l_object_id
AND instance_set_id = l_instance_set_id AND instance_pk1_value = to_char(p_instance_pk1_value);
DELETE FROM fnd_grants WHERE menu_id = l_menu_id AND object_id = l_object_id
AND instance_set_id = l_instance_set_id AND instance_pk1_value = to_char(p_instance_pk1_value);
DELETE FROM fnd_grants WHERE menu_id = l_menu_id AND object_id = l_object_id
AND instance_set_id = l_instance_set_id AND instance_pk1_value = to_char(p_instance_pk1_value);
OPEN checkout_cur FOR 'SELECT checkout_user FROM '||p_entity_name||'
WHERE '||p_primary_key||' = '||p_primary_key_value;
SELECT distinct component_id
BULK
COLLECT
INTO x_locked_entities
FROM cz_model_ref_expls
WHERE cz_model_ref_expls.model_id = p_entity_id
AND cz_model_ref_expls.deleted_flag = '0'
AND cz_model_ref_expls.ps_node_type = 263;
SELECT ui_style
INTO l_ui_style
FROM cz_ui_defs
WHERE cz_ui_defs.devl_project_id = p_entity_id
AND cz_ui_defs.deleted_flag = '0';
SELECT ui_def_ref_id
BULK
COLLECT
INTO x_locked_entities
FROM cz_ui_nodes
WHERE cz_ui_nodes.deleted_flag = '0'
AND cz_ui_nodes.ui_def_ref_id IS NOT NULL
AND cz_ui_nodes.ui_def_id = p_entity_id;
SELECT ref_ui_def_id
BULK
COLLECT
INTO x_locked_entities
FROM cz_ui_refs
WHERE cz_ui_refs.ui_def_id = p_entity_id
AND cz_ui_refs.deleted_flag = '0'
AND cz_ui_refs.ref_ui_def_id IN (SELECT ui_def_id
FROM cz_ui_defs
WHERE cz_ui_defs.deleted_flag = '0'
AND cz_ui_defs.ui_style = '7');
SELECT rule_folder_id
BULK
COLLECT
INTO x_locked_entities
FROM cz_rule_folders
WHERE cz_rule_folders.object_type = 'RFL'
AND cz_rule_folders.deleted_flag = '0'
AND cz_rule_folders.rule_folder_id = p_entity_id;
SELECT component_id
BULK
COLLECT
INTO l_locked_entities
FROM cz_model_ref_expls
WHERE model_id = p_entity_id
AND deleted_flag = '0'
AND component_id IN (SELECT devl_project_id
FROM cz_devl_projects
WHERE cz_devl_projects.deleted_flag = '0'
AND checkout_user IS NOT NULL );
SELECT checkout_user
BULK
COLLECT
INTO l_checkout_user_tbl
FROM cz_ps_nodes
WHERE cz_ps_nodes.ps_node_id = l_locked_entities(j)
AND cz_ps_nodes.deleted_flag = '0'
AND cz_ps_nodes.checkout_user IS NOT NULL;
SELECT ui_style
INTO l_ui_style
FROM cz_ui_defs
WHERE cz_ui_defs.ui_def_id = p_entity_id
AND cz_ui_defs.deleted_flag = '0';
SELECT ui_def_ref_id
BULK
COLLECT
INTO l_locked_entities
FROM cz_ui_nodes
WHERE deleted_flag = '0'
AND ui_def_ref_id IS NOT NULL
AND ui_def_id = p_entity_id;
SELECT checkout_user
BULK
COLLECT
INTO l_checkout_user_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.ui_def_id = l_locked_entities(j)
AND cz_ui_defs.deleted_flag = '0'
AND cz_ui_defs.checkout_user IS NOT NULL;
SELECT ref_ui_def_id
BULK
COLLECT
INTO l_locked_entities
FROM cz_ui_refs
WHERE cz_ui_refs.ui_def_id = p_entity_id
AND cz_ui_refs.deleted_flag = '0'
AND cz_ui_refs.ref_ui_def_id IN (SELECT ui_def_id
FROM cz_ui_defs x
WHERE x.deleted_flag = '0'
AND x.checkout_user IS NOT NULL
AND x.ui_style = '7');
SELECT checkout_user
BULK
COLLECT
INTO l_checkout_user_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.ui_def_id = l_locked_entities(j)
AND cz_ui_defs.deleted_flag = '0'
AND cz_ui_defs.checkout_user IS NOT NULL;
SELECT rule_folder_id,checkout_user
BULK
COLLECT
INTO x_locked_entities,x_checkout_user_tbl
FROM cz_rule_folders
WHERE cz_rule_folders.object_type = 'RFL'
AND cz_rule_folders.deleted_flag = '0'
AND cz_rule_folders.devl_project_id = p_entity_id
AND cz_rule_folders.checkout_user IS NOT NULL;
PROCEDURE update_to_lock_entities(p_entity_type IN VARCHAR2,
p_user_name IN VARCHAR2,
p_entities_to_lock IN number_type_tbl)
IS
l_table_name VARCHAR2(128);
'UPDATE '||l_table_name||' SET checkout_user = :1 WHERE '||l_primary_key_name||' = :2 '
USING p_user_name,p_entities_to_lock(toLock);
END update_to_lock_entities;
PROCEDURE update_to_unlock_entities(p_entity_type IN VARCHAR2,
p_entities_to_unlock IN number_type_tbl)
IS
BEGIN
update_to_lock_entities(p_entity_type,'',p_entities_to_unlock);
END update_to_unlock_entities;
SELECT user_id
INTO l_user_id
FROM fnd_user
WHERE user_name = UPPER(p_user_name);
SELECT application_id
INTO l_application_id
FROM fnd_application
WHERE application_short_name = UPPER(p_application);
SELECT responsibility_id
INTO l_responsibility_id
FROM fnd_responsibility
WHERE responsibility_key = UPPER(p_responsibility)
AND application_id = 708;
SELECT component_id
BULK
COLLECT
INTO l_models
FROM cz_model_ref_expls
WHERE model_id = p_model_id
AND ps_node_type = 263
AND deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = l_model_id
AND cz_devl_projects.deleted_flag = '0';
SELECT checkout_user
BULK
COLLECT
INTO l_checkout_user_tbl
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id IN ( SELECT component_id
FROM cz_model_ref_expls
WHERE model_id = p_model_id
AND ps_node_type = 263
AND deleted_flag = '0')
AND cz_devl_projects.deleted_flag = '0'
AND cz_devl_projects.checkout_user IS NOT NULL;
SELECT devl_project_id INTO l_proj_id
FROM cz_ui_defs
WHERE ui_def_id = p_entity_id
AND deleted_flag = '0';
SELECT devl_project_id INTO l_proj_id
FROM cz_rule_folders
WHERE rule_folder_id = p_entity_id
AND object_type = 'RFL'
AND deleted_flag = '0';
SELECT checkout_user INTO l_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = l_proj_id;
SELECT checkout_user
INTO l_checkout_user
FROM cz_ps_nodes
WHERE ps_node_id = p_model_id;
UPDATE cz_ps_nodes
SET checkout_user = FND_GLOBAL.user_name
WHERE ps_node_id = p_model_id;
SELECT checkout_user
INTO l_checkout_user
FROM cz_ps_nodes
WHERE cz_ps_nodes.ps_node_id = p_model_id
AND cz_ps_nodes.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_ps_nodes
WHERE ps_node_id = p_model_id;
UPDATE cz_ps_nodes
SET checkout_user = NULL
WHERE ps_node_id = p_model_id;
SELECT checkout_user
INTO l_checkout_user
FROM cz_ui_defs
WHERE cz_ui_defs.ui_def_id = p_ui_def_id
AND cz_ui_defs.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_ui_defs
WHERE ui_def_id = p_ui_def_id ;
UPDATE cz_ui_defs
SET checkout_user = FND_GLOBAL.user_name
WHERE ui_def_id = p_ui_def_id ;
SELECT checkout_user
INTO l_checkout_user
FROM cz_ui_defs
WHERE ui_def_id = p_ui_def_id ;
UPDATE cz_ui_defs
SET checkout_user = NULL
WHERE ui_def_id = p_ui_def_id ;
SELECT rule_folder_id,checkout_user
BULK
COLLECT
INTO l_rule_tbl,l_checkout_user_tbl
FROM cz_rule_folders
WHERE cz_rule_folders.object_type = 'RFL'
AND cz_rule_folders.deleted_flag = '0'
AND cz_rule_folders.devl_project_id = p_model_id
AND cz_rule_folders.checkout_user IS NOT NULL;
select checkout_user
FROM cz_rule_folders
where deleted_flag = '0'
and object_type = 'RFL'
and checkout_user is not null
start with rule_folder_id = p_rule_folder_id
connect by prior parent_rule_folder_id = rule_folder_id;
SELECT checkout_user INTO l_fld_user
FROM cz_rule_folders
WHERE cz_rule_folders.rule_folder_id = p_rule_folder_id
AND cz_rule_folders.object_type = 'RFL';
SELECT checkout_user,parent_rule_folder_id
INTO l_parent_user,l_parent_rule_folder_id
FROM cz_rule_folders
WHERE cz_rule_folders.rule_folder_id = (SELECT parent_rule_folder_id
FROM cz_rule_folders
WHERE rule_folder_id = p_rule_folder_id
AND object_type = 'RFL'
AND deleted_flag = '0')
AND cz_rule_folders.object_type = 'RFL';
SELECT checkout_user
INTO l_checkout_user
FROM cz_rule_folders
WHERE cz_rule_folders.rule_folder_id = p_rule_folder_id
AND cz_rule_folders.object_type = 'RFL'
AND cz_rule_folders.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_rule_folders
WHERE rule_folder_id = p_rule_folder_id
AND deleted_flag = '0'
AND object_type = 'RFL';
select rule_folder_id,checkout_user
BULK
COLLECT
INTO l_rule_fld_tbl,l_checkout_user_tbl
FROM cz_rule_folders
where deleted_flag = '0'
and object_type = 'RFL'
start with rule_folder_id = p_rule_folder_id
connect by prior rule_folder_id = parent_rule_folder_id;
UPDATE cz_rule_folders
SET checkout_user = FND_GLOBAL.user_name
WHERE rule_folder_id = l_rule_fld_tbl(i)
AND object_type = 'RFL';
SELECT checkout_user
INTO l_checkout_user
FROM cz_rule_folders
WHERE rule_folder_id = p_rule_folder_id
AND object_type = 'RFL';
select rule_folder_id
BULK
COLLECT
INTO l_rule_fld_tbl
FROM cz_rule_folders
where deleted_flag = '0'
and object_type = 'RFL'
start with rule_folder_id = p_rule_folder_id
connect by prior rule_folder_id = parent_rule_folder_id;
UPDATE cz_rule_folders
SET checkout_user = NULL
WHERE rule_folder_id = l_rule_fld_tbl(i)
AND object_type = 'RFL';
SELECT checkout_user
INTO l_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = p_model_id;
SELECT ui_def_id
BULK
COLLECT
INTO l_ui_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.devl_project_id = p_model_id
AND cz_ui_defs.deleted_flag = '0'
AND cz_ui_defs.checkout_user IS NOT NULL;
SELECT ui_def_id,checkout_user
BULK
COLLECT
INTO l_ui_tbl,l_ui_checkout_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.devl_project_id = p_model_id
AND cz_ui_defs.deleted_flag = '0'
AND cz_ui_defs.checkout_user IS NOT NULL;
l_deleted_flag VARCHAR2(1) := '0';
MODEL_DELETED EXCEPTION;
SELECT checkout_user,deleted_flag INTO l_checkout_user,l_deleted_flag
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = p_devl_project_id;
IF (l_deleted_flag = '1') THEN
RAISE MODEL_DELETED;
WHEN MODEL_DELETED THEN
x_return_status := 'T';
SELECT checkout_user
INTO l_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = p_model_id;
SELECT ui_def_id
BULK
COLLECT
INTO l_ui_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.devl_project_id = p_model_id
AND cz_ui_defs.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_devl_projects
WHERE devl_project_id = p_model_id
AND deleted_flag = '0';
SELECT devl_project_id INTO l_proj_id FROM cz_ui_defs WHERE ui_def_id = p_ui_def_id ;
SELECT ui_def_id
BULK
COLLECT
INTO l_ui_tbl
FROM cz_ui_defs
WHERE cz_ui_defs.devl_project_id = p_model_id
AND cz_ui_defs.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_rule_folders
WHERE cz_rule_folders.rule_folder_id = p_rule_folder_id
AND cz_rule_folders.object_type = 'RFL'
AND cz_rule_folders.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_ui_defs
WHERE cz_ui_defs.ui_def_id = p_ui_def_id
AND cz_ui_defs.deleted_flag = '0';
SELECT checkout_user
INTO l_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = p_model_id
AND cz_devl_projects.deleted_flag = '0';
SELECT user_name INTO l_user_name
FROM fnd_user
WHERE user_id = p_user_id ;
CURSOR resp_cur IS SELECT responsibility_id from FND_USER_RESP_GROUPS
WHERE user_id = p_user_id
AND responsibility_application_id = 708;
SELECT responsibility_name INTO l_resp_name
FROM fnd_responsibility_tl
WHERE responsibility_id = l_responsibility_id
AND language = userenv('LANG');
PROCEDURE GET_CZ_GRANTS_UPDATE (p_entity_id IN NUMBER,
p_entity_type IN VARCHAR2,
p_model_id IN NUMBER,
p_priv IN VARCHAR2,
p_user_name in varchar2,
p_role in varchar2)
AS
BEGIN
NULL;
END GET_CZ_GRANTS_UPDATE;
SELECT name, checkout_user
BULK
COLLECT
INTO x_model_name_tbl, x_checkout_user_tbl
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id IN (SELECT component_id
FROM cz_model_ref_expls
WHERE cz_model_ref_expls.deleted_flag = '0'
AND cz_model_ref_expls.model_id = p_model_id)
AND (cz_devl_projects.checkout_user IS NOT NULL
AND cz_devl_projects.checkout_user <> FND_GLOBAL.user_name)
AND cz_devl_projects.deleted_flag = '0';
SELECT name, checkout_user
INTO x_model_name,x_checkout_user
FROM cz_devl_projects
WHERE cz_devl_projects.devl_project_id = p_obj_id ;
SELECT template_name, checkout_user
INTO x_model_name,x_checkout_user
FROM cz_ui_templates
WHERE cz_ui_templates.template_id = p_obj_id ;
x_models_to_lock.DELETE;
SELECT distinct a.component_id
BULK
COLLECT
INTO x_models_to_lock
FROM cz_model_ref_expls a
WHERE a.model_id = p_model_id
AND a.deleted_flag = '0'
AND a.component_id IN ( SELECT devl_project_id
FROM cz_devl_projects
WHERE checkout_user IS NULL
AND devl_project_id = a.component_id );
SELECT devl_project_id
BULK
COLLECT
INTO x_models_to_lock
FROM cz_devl_projects
WHERE checkout_user IS NULL
AND devl_project_id = p_model_id;
l_model_tbl.DELETE;
SELECT distinct component_id
BULK
COLLECT
INTO l_model_tbl
FROM cz_model_ref_expls
WHERE model_id = p_model_id
AND deleted_flag = '0'
AND ps_node_type IN (263,264);
UPDATE cz_devl_projects
SET cz_devl_projects.checkout_user = NULL,
cz_devl_projects.checkout_time = NULL
WHERE cz_devl_projects.devl_project_id = l_model_tbl(i);
UPDATE cz_devl_projects
SET cz_devl_projects.checkout_user = NULL,
cz_devl_projects.checkout_time = NULL
WHERE cz_devl_projects.devl_project_id = p_model_id;
UPDATE cz_ui_templates
SET cz_ui_templates.checkout_user = NULL,
cz_ui_templates.checkout_time = NULL
WHERE cz_ui_templates.template_id = p_template_id;
UPDATE cz_ui_templates
SET cz_ui_templates.checkout_user = FND_GLOBAL.user_name,
cz_ui_templates.checkout_time = sysdate
WHERE cz_ui_templates.template_id = p_template_id
AND (cz_ui_templates.checkout_user IS NULL);
SELECT checkout_user
INTO l_checkout_user
FROM cz_ui_templates
WHERE template_id = p_templates_to_lock(i)
AND checkout_user = FND_GLOBAL.user_name;
UPDATE cz_ui_templates
SET cz_ui_templates.checkout_user = NULL,
cz_ui_templates.checkout_time = NULL
WHERE cz_ui_templates.template_id = p_template_id
AND (cz_ui_templates.checkout_user IS NULL
OR cz_ui_templates.checkout_user = FND_GLOBAL.user_name);
x_locked_entities.DELETE;
SELECT devl_project_id, seeded_flag
INTO l_model_id, l_seeded_flag
FROM cz_rp_entries a, cz_devl_projects b
WHERE b.devl_project_id = p_model_id
AND b.devl_project_id = a.object_id
AND a.deleted_flag = '0'
AND b.deleted_flag = '0'
AND a.object_type='PRJ';
l_model_tbl.DELETE;
SELECT distinct component_id
BULK
COLLECT
INTO l_model_tbl
FROM cz_model_ref_expls
WHERE model_id = p_model_id
AND deleted_flag = '0'
AND ps_node_type IN (263,264);
UPDATE cz_devl_projects
SET cz_devl_projects.checkout_user = FND_GLOBAL.user_name,
cz_devl_projects.checkout_time = sysdate
WHERE cz_devl_projects.devl_project_id = l_model_tbl(i)
AND (cz_devl_projects.checkout_user IS NULL)
AND cz_devl_projects.deleted_flag = '0';
UPDATE cz_devl_projects
SET cz_devl_projects.checkout_user = FND_GLOBAL.user_name,
cz_devl_projects.checkout_time = SYSDATE
WHERE cz_devl_projects.devl_project_id = p_model_id
AND (cz_devl_projects.checkout_user IS NULL);
UPDATE cz_devl_projects
SET cz_devl_projects.checkout_user = NULL,
cz_devl_projects.checkout_time = NULL
WHERE cz_devl_projects.devl_project_id = p_model_id
AND (cz_devl_projects.checkout_user IS NULL
OR cz_devl_projects.checkout_user = FND_GLOBAL.user_name);