The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT COUNT(*) INTO l_cnt
FROM JTF_AUTH_PERMISSIONS_B A,
JTF_AUTH_PRINCIPAL_MAPS B,
JTF_AUTH_ROLE_PERMS C,
JTF_AUTH_PRINCIPALS_B D,
JTF_AUTH_PRINCIPALS_B E,
JTF_AUTH_DOMAINS_B F
WHERE D.PRINCIPAL_NAME = l_user_name
AND D.JTF_AUTH_PRINCIPAL_ID =B.JTF_AUTH_PRINCIPAL_ID
AND B.JTF_AUTH_PARENT_PRINCIPAL_ID = E.JTF_AUTH_PRINCIPAL_ID
AND E.JTF_AUTH_PRINCIPAL_ID = C.JTF_AUTH_PRINCIPAL_ID
AND C.JTF_AUTH_PERMISSION_ID = A.JTF_AUTH_PERMISSION_ID
AND B.JTF_AUTH_DOMAIN_ID = F.JTF_AUTH_DOMAIN_ID
AND F.DOMAIN_NAME = l_domain_name
AND A.PERMISSION_NAME = l_permission_name;
select count(*) into cnt
from jtf_auth_principals_b
where principal_name=U_ROLE_NAME and is_user_flag=0;
select count(*) into cnt
from JTF_AUTH_PERMISSIONS_B
where PERMISSION_NAME=PERM_NAME;
select count(*) into cnt
from JTF_AUTH_PRINCIPALS_B A,
JTF_AUTH_PERMISSIONS_B B,
JTF_AUTH_ROLE_PERMS C
where A.JTF_AUTH_PRINCIPAL_ID = C.JTF_AUTH_PRINCIPAL_ID and
B.JTF_AUTH_PERMISSION_ID = C.JTF_AUTH_PERMISSION_ID and
A.PRINCIPAL_NAME=U_ROLE_NAME and
B.PERMISSION_NAME=PERM_NAME and
A.IS_USER_FLAG=0;
insert into JTF_AUTH_ROLE_PERMS(JTF_AUTH_ROLE_PERMISSION_ID, JTF_AUTH_PRINCIPAL_ID, JTF_AUTH_PERMISSION_ID,
POSITIVE_FLAG, OWNERBASED_FLAG,
CREATED_BY, CREATION_DATE,
LAST_UPDATED_BY, LAST_UPDATE_DATE,
APPLICATION_ID,OBJECT_VERSION_NUMBER)
select jtf_auth_s1.nextval, A.JTF_AUTH_PRINCIPAL_ID, B.JTF_AUTH_PERMISSION_ID,
1,0, 0, SYSDATE, 0, SYSDATE, APP_ID,1
from JTF_AUTH_PRINCIPALS_B A, JTF_AUTH_PERMISSIONS_B B
where A.PRINCIPAL_NAME=U_ROLE_NAME and
B.PERMISSION_NAME=PERM_NAME and
A.IS_USER_FLAG=0;