96: begin
97: select count(B.PROPVAL_ID)
98: into propValCount
99: from IES_META_OBJECTS A, IES_META_OBJECT_PROPVALS B,
100: IES_META_PROPERTY_VALUES C,
101: IES_META_PROPERTIES D
102: where A.OBJECT_UID = X_OBJECT_UID
103: and A.OBJECT_ID = B.OBJECT_ID
104: and C.PROPERTY_ID = D.PROPERTY_ID
111: procedure deletePropVals(x_propval_id in number,
112: x_prop_name in varchar2) IS
113: deleteStmt varchar2(2000);
114: begin
115: deleteStmt := 'delete from IES_META_PROPERTY_VALUES
116: where propval_id = :1
117: and property_id IN (select property_id
118: from IES_META_PROPERTIES
119: where NAME = :2)';
129: BEGIN
130: OPEN propval FOR
131: 'select B.PROPVAL_ID
132: from IES_META_OBJECTS A, IES_META_OBJECT_PROPVALS B,
133: IES_META_PROPERTY_VALUES C,
134: IES_META_PROPERTIES D
135: where A.OBJECT_UID = :1
136: and A.OBJECT_ID = B.OBJECT_ID
137: and C.PROPERTY_ID = D.PROPERTY_ID
349:
350: select B.PROPVAL_ID
351: into propValId
352: from IES_META_OBJECTS A, IES_META_OBJECT_PROPVALS B,
353: IES_META_PROPERTY_VALUES C,
354: IES_META_PROPERTIES D
355: where A.OBJECT_UID = X_OBJECT_UID
356: and A.OBJECT_ID = B.OBJECT_ID
357: and C.PROPERTY_ID = D.PROPERTY_ID
420: if (x_lookup_key IS NOT NULL) then
421: lookupId := getLookupId(propId, x_lookup_key);
422: end if;
423:
424: execute immediate 'update IES_META_PROPERTY_VALUES set
425: LAST_UPDATE_DATE = :1,
426: LAST_UPDATED_BY = :2,
427: STRING_VAL = :3,
428: LOOKUP_ID = :4
484: if (x_lookup_key IS NOT NULL) then
485: lookupId := getLookupId(propId, x_lookup_key);
486: end if;
487:
488: execute immediate 'select IES_META_PROPERTY_VALUES_S.NEXTVAL from dual' into seqval;
489:
490: insertStmt := 'insert into IES_META_PROPERTY_VALUES (
491: PROPVAL_ID,
492: CREATION_DATE,
486: end if;
487:
488: execute immediate 'select IES_META_PROPERTY_VALUES_S.NEXTVAL from dual' into seqval;
489:
490: insertStmt := 'insert into IES_META_PROPERTY_VALUES (
491: PROPVAL_ID,
492: CREATION_DATE,
493: CREATED_BY,
494: LAST_UPDATE_DATE,
529:
530: CURSOR propvals_curs IS
531: select b.last_updated_by, b.last_update_date
532: from IES_META_OBJECTS A, IES_META_OBJECT_PROPVALS B,
533: IES_META_PROPERTY_VALUES C,
534: IES_META_PROPERTIES D
535: where A.OBJECT_UID = X_OBJECT_UID
536: and A.OBJECT_ID = B.OBJECT_ID
537: and C.PROPERTY_ID = D.PROPERTY_ID