The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_query_statement := 'SELECT count(*) FROM mobileadmin.BUNDLES WHERE BUNDLE_ID = :1 ';
PROCEDURE INSERT_RESOURCE_RECORD( P_RESOURCE_ID IN NUMBER )
IS
BEGIN
/*** Insert current user's resource record ***/
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => JTM_HOOK_UTIL_PKG.t_publication_item_list('JTF_RS_RESOURCE_EXTNS')
,P_ACC_TABLE_NAME => 'JTM_JTF_RS_RESOURCE_EXTNS_ACC'
,P_PK1_NAME => 'RESOURCE_PK'
,P_PK1_NUM_VALUE => P_RESOURCE_ID
,P_RESOURCE_ID => P_RESOURCE_ID
);
END INSERT_RESOURCE_RECORD;
PROCEDURE DELETE_RESOURCE_RECORD( P_RESOURCE_ID IN NUMBER )
IS
BEGIN
/*** Delete current user's resource record ***/
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => JTM_HOOK_UTIL_PKG.t_publication_item_list('JTF_RS_RESOURCE_EXTNS')
,P_ACC_TABLE_NAME => 'JTM_JTF_RS_RESOURCE_EXTNS_ACC'
,P_PK1_NAME => 'RESOURCE_PK'
,P_PK1_NUM_VALUE => P_RESOURCE_ID
,P_RESOURCE_ID => P_RESOURCE_ID
);
END DELETE_RESOURCE_RECORD;
PROCEDURE INSERT_USER_RECORD( P_USER_ID IN NUMBER, P_RESOURCE_ID IN NUMBER )
IS
l_count number;
JTM_HOOK_UTIL_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => JTM_HOOK_UTIL_PKG.t_publication_item_list('FND_USER')
,P_ACC_TABLE_NAME => 'JTM_FND_USER_ACC'
,P_PK1_NAME => 'USER_ID'
,P_PK1_NUM_VALUE => P_USER_ID
,P_RESOURCE_ID => P_RESOURCE_ID
);
select count(*) into l_count
from JTM_ASG_USER_ACC
where USER_ID = P_USER_ID;
Insert into JTM_ASG_USER_ACC
(ACCESS_ID,USER_ID,COUNTER,
LAST_UPDATE_DATE,LAST_UPDATED_BY,CREATION_DATE,CREATED_BY)
VALUES (JTM_ACC_TABLE_S.NEXTVAL,P_USER_ID,1,sysdate,1,sysdate,1);
END INSERT_USER_RECORD;
PROCEDURE DELETE_USER_RECORD( P_USER_ID IN NUMBER, P_RESOURCE_ID IN NUMBER )
IS
BEGIN
/*** Delete current user user's record ***/
JTM_HOOK_UTIL_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => JTM_HOOK_UTIL_PKG.t_publication_item_list('FND_USER')
,P_ACC_TABLE_NAME => 'JTM_FND_USER_ACC'
,P_PK1_NAME => 'USER_ID'
,P_PK1_NUM_VALUE => P_USER_ID
,P_RESOURCE_ID => P_RESOURCE_ID
);
delete from JTM_ASG_USER_ACC where user_id = P_USER_ID;
END DELETE_USER_RECORD;
SELECT RESOURCE_ID
FROM ASG_USER
WHERE USER_ID = b_user_id;
INSERT_RESOURCE_RECORD( r_user.RESOURCE_ID );
INSERT_USER_RECORD( P_USER_ID, r_user.RESOURCE_ID );
JTM_MESSAGE_LOG_PKG.INSERT_CONC_STATUS_LOG
(v_package_name => NULL
,v_procedure_name => NULL
,v_con_query_id => NULL
,v_query_stmt => p_errtable(i)
,v_start_time => NULL
,v_end_time => NULL
,v_status => 'FAILED'
,v_message => 'Fail to populate data into' || p_errtable(i)
,x_log_id => l_log_id
,x_status => l_status
,x_msg_data => l_message);
PROCEDURE DELETE_ACCESS_RECORDS( P_USER_ID IN NUMBER )
IS
PRAGMA AUTONOMOUS_TRANSACTION;
SELECT RESOURCE_ID
FROM ASG_USER
WHERE USER_ID = b_user_id;
/*DELETE_RESOURCE_RECORD( r_user.RESOURCE_ID ); */
DELETE_USER_RECORD( P_USER_ID, r_user.RESOURCE_ID );
END DELETE_ACCESS_RECORDS;
select language_code, ' ('||decode(nls_language, 'AMERICAN', 'ENGLISH', nls_language)||')' as nls_language
from fnd_languages where installed_flag in ('I', 'B');
EXECUTE IMMEDIATE 'DELETE MOBILEADMIN.bundles WHERE bundle_id = :1'
USING l_bundle_id;