The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*)
into v_funcCount
from FND_FORM_FUNCTIONS
WHERE FUNCTION_NAME = trim(v_tab(i));
SELECT INTEGRATOR_CODE
INTO VV_DUMMY
FROM BNE_INTEGRATORS_B
WHERE INTEGRATOR_CODE = P_OBJECT_CODE
AND APPLICATION_ID = P_APPLICATION_ID;
SELECT COMPONENT_CODE
INTO VV_DUMMY
FROM BNE_COMPONENTS_B
WHERE COMPONENT_CODE = P_OBJECT_CODE
AND APPLICATION_ID = P_APPLICATION_ID;
SELECT CONTENT_CODE
INTO VV_DUMMY
FROM BNE_CONTENTS_B
WHERE CONTENT_CODE = P_OBJECT_CODE
AND APPLICATION_ID = P_APPLICATION_ID;
BNE_SECURITY_RULES_PKG.INSERT_ROW( VR_ROW_ID,
P_APPLICATION_ID,
P_SECURITY_CODE,
VN_OBJECT_VERSION_NUMBER,
VV_SECURITY_TYPE,
VV_SECURITY_VALUE,
SYSDATE,
P_USER_ID,
SYSDATE,
P_USER_ID,
0);
BNE_SECURED_OBJECTS_PKG.INSERT_ROW( VR_ROW_ID,
P_APPLICATION_ID,
P_OBJECT_CODE,
VV_OBJECT_TYPE,
VN_OBJECT_VERSION_NUMBER,
P_APPLICATION_ID,
P_SECURITY_CODE,
SYSDATE,
P_USER_ID,
SYSDATE,
P_USER_ID,
0 );
PROCEDURE UPDATE_OBJECT_RULES (
P_OBJECT_APP_ID in NUMBER,
P_OBJECT_CODE in VARCHAR2,
P_OBJECT_TYPE in VARCHAR2,
P_SECURITY_APP_ID in NUMBER,
P_SECURITY_CODE in VARCHAR2,
P_SECURITY_TYPE in VARCHAR2,
P_SECURITY_VALUE in VARCHAR2,
P_USER_ID in NUMBER)
IS
VN_OBJECT_VERSION_NUMBER CONSTANT NUMBER := 1;
BNE_SECURED_OBJECTS_PKG.UPDATE_ROW( P_OBJECT_APP_ID,
P_OBJECT_CODE,
P_OBJECT_TYPE,
VN_OBJECT_VERSION_NUMBER,
P_SECURITY_APP_ID,
P_SECURITY_CODE,
SYSDATE,
P_USER_ID,
0 );
BNE_SECURITY_RULES_PKG.UPDATE_ROW( P_SECURITY_APP_ID,
P_SECURITY_CODE,
VN_OBJECT_VERSION_NUMBER,
P_SECURITY_TYPE,
P_SECURITY_VALUE,
SYSDATE,
P_USER_ID ,
0 );
END UPDATE_OBJECT_RULES;
PROCEDURE DELETE_OBJECT_RULES (
P_OBJECT_APP_ID in NUMBER,
P_OBJECT_CODE in VARCHAR2,
P_OBJECT_TYPE in VARCHAR2,
P_SECURITY_APP_ID in NUMBER,
P_SECURITY_CODE in VARCHAR2) IS
VV_SECURITY_CODE BNE_SECURITY_RULES.SECURITY_CODE%type;
SELECT SECURITY_RULE_CODE
INTO VV_SECURITY_CODE
FROM BNE_SECURED_OBJECTS
WHERE APPLICATION_ID = P_OBJECT_APP_ID
AND OBJECT_CODE = P_OBJECT_CODE
AND OBJECT_TYPE = P_OBJECT_TYPE
AND SECURITY_RULE_APP_ID = P_SECURITY_APP_ID;
BNE_SECURED_OBJECTS_PKG.DELETE_ROW( P_OBJECT_APP_ID, P_OBJECT_CODE, P_OBJECT_TYPE );
BNE_SECURITY_RULES_PKG.DELETE_ROW( P_SECURITY_APP_ID, P_SECURITY_CODE );
END DELETE_OBJECT_RULES;