The following lines contain the word 'select', 'insert', 'update' or 'delete':
SelectList VARCHAR2(30000);
SELECT oa.attribute_code
, oa.datatype
, oap.securable_flag
FROM oke_object_attributes_b oa
, oke_object_attributes_b oap
WHERE oa.database_object_name = C_Object_Name
AND oap.database_object_name = oa.database_object_name
AND oa.view_column_flag = 'Y'
AND oap.attribute_code = nvl( oa.parent_attribute_code
, oa.attribute_code )
ORDER BY oa.attribute_code;
SELECT Role_ID
FROM oke_compiled_access_rules
WHERE secured_object_name = C_Object_Name
AND attribute_code = C_attribute_code
AND access_level = OKE_K_SECURITY_PKG.G_NO_ACCESS
ORDER BY Role_ID;
SELECT MIN(ou.Oracle_Username)
INTO ApplsysSchema
FROM fnd_product_installations pi
, fnd_oracle_userid ou
WHERE ou.Oracle_ID = pi.Oracle_ID
AND Application_ID = 0;
ColumnList := 'ROW_ID , CREATION_DATE , CREATED_BY , LAST_UPDATE_DATE , ' ||
'LAST_UPDATED_BY , LAST_UPDATE_LOGIN , ATTRIBUTE_CATEGORY , ' ||
'ATTRIBUTE1 , ATTRIBUTE2 , ATTRIBUTE3 , ' ||
'ATTRIBUTE4 , ATTRIBUTE5 , ATTRIBUTE6 , ' ||
'ATTRIBUTE7 , ATTRIBUTE8 , ATTRIBUTE9 , ' ||
'ATTRIBUTE10 , ATTRIBUTE11 , ATTRIBUTE12 , ' ||
'ATTRIBUTE13 , ATTRIBUTE14 , ATTRIBUTE15 , ' ||
'MAJOR_VERSION , MINOR_VERSION , VERSION_DISP ';
SelectList := 'K.ROW_ID , K.CREATION_DATE , K.CREATED_BY , K.LAST_UPDATE_DATE , ' ||
'K.LAST_UPDATED_BY , K.LAST_UPDATE_LOGIN , K.ATTRIBUTE_CATEGORY , ' ||
'K.ATTRIBUTE1 , K.ATTRIBUTE2 , K.ATTRIBUTE3 , ' ||
'K.ATTRIBUTE4 , K.ATTRIBUTE5 , K.ATTRIBUTE6 , ' ||
'K.ATTRIBUTE7 , K.ATTRIBUTE8 , K.ATTRIBUTE9 , ' ||
'K.ATTRIBUTE10 , K.ATTRIBUTE11 , K.ATTRIBUTE12 , ' ||
'K.ATTRIBUTE13 , K.ATTRIBUTE14 , K.ATTRIBUTE15 , ' ||
'K.MAJOR_VERSION , K.MINOR_VERSION , K.VERSION_DISP ';
SelectList := SelectList || ' , K.' || ObjAttrRec.Attribute_Code;
SelectList := SelectList ||
' , DECODE( OKE_K_SECURITY_PKG.GET_K_ROLE( K.' || X_Header_ID_Col ||
' ) , ' || DecodePair || 'K.' || ObjAttrRec.Attribute_Code || ' ) ';
SelectList := SelectList || ' , K.' || ObjAttrRec.Attribute_Code;
ColumnList || ' ) AS SELECT /* ' || RCSHeader || ' */ ' || SelectList ||
' FROM ' || UnsecViewName || ' K ,' ||
' ( SELECT ID K_HDR_ID ,' ||
' OKE_K_SECURITY_PKG.GET_K_ACCESS( ID ) K_ACCESS ' ||
' FROM OKC_K_HEADERS_B ) ACC' ||
' WHERE ACC.K_HDR_ID = K.' || X_Header_ID_Col ||
' AND ACC.K_ACCESS IN ( ''EDIT'' , ''VIEW'' )' ;
ColumnList || ' ) AS SELECT /* ' || RCSHeader || ' */ ' || SelectList ||
' FROM ' || UnsecViewName || ' K ,' ||
' ( SELECT ID K_HDR_ID ,' ||
' OKE_K_SECURITY_PKG.GET_K_ACCESS( ID ) K_ACCESS ' ||
' FROM OKC_K_HEADERS_B ) ACC' ||
' WHERE ACC.K_HDR_ID = K.' || X_Header_ID_Col ||
' AND ACC.K_ACCESS IN ( ''EDIT'' , ''VIEW'' )';