The following lines contain the word 'select', 'insert', 'update' or 'delete':
execute immediate 'select ies_meta_object_propvals_s.nextval from dual' into seqval;
'INSERT INTO ies_meta_object_propvals
(objpropval_id,
object_id,
propval_id,
created_by) VALUES
(:seq,
:objId,
:propValId,
:agent)';
END insertObjPropertyValues;
PROCEDURE insertPropertyValues(element IN xmldom.DOMElement, objId IN NUMBER) IS
type props_type IS REF CURSOR;
'SELECT b.name, a.property_id
FROM ies_meta_obj_type_properties a,
ies_meta_properties b
WHERE a.property_id = b.property_id
AND a.objtype_id IN ( SELECT type_id
FROM ies_meta_object_types
CONNECT BY PRIOR parent_id = type_id
START WITH type_name = :typeName)' USING xmldom.getAttribute(element, 'CLASS');
execute immediate 'select ies_meta_property_values_s.nextval from dual' into propValue_id ;
sqlStmt := 'INSERT INTO ies_meta_property_values (propval_id,
property_id,
string_val,
created_by)
VALUES (:id,
:property_id,
:val,
1 )';
sqlStmt := 'INSERT INTO ies_meta_property_values (propval_id,
property_id,
lookup_id,
created_by)
VALUES (:id,
:property_id,
:lookupId,
1 )';
insertObjPropertyValues(propval_tab, objId);
END insertPropertyValues;
FUNCTION insertMetaObject(element IN xmldom.DOMElement) return NUMBER IS
objId NUMBER := -1;
sqlStmt := 'INSERT INTO ies_meta_objects (object_id,
name,
object_uid,
type_id,
created_by)
VALUES (:id,
:a_name,
:a_uid,
:objTypeId,
1)';
execute immediate 'select ies_meta_objects_s.nextval from dual' into objId ;
insertPropertyValues(element, objId);
END insertMetaObject;