28: X_LAST_UPDATE_DATE in DATE,
29: X_LAST_UPDATED_BY in NUMBER,
30: X_LAST_UPDATE_LOGIN in NUMBER
31: ) is
32: cursor C is select ROWID from PRP_TEMPLATE_CATGS_B
33: where TEMPLATE_CATG_ID = X_TEMPLATE_CATG_ID
34: ;
35: begin
36: insert into PRP_TEMPLATE_CATGS_B (
32: cursor C is select ROWID from PRP_TEMPLATE_CATGS_B
33: where TEMPLATE_CATG_ID = X_TEMPLATE_CATG_ID
34: ;
35: begin
36: insert into PRP_TEMPLATE_CATGS_B (
37: TEMPLATE_CATG_ID,
38: OBJECT_VERSION_NUMBER,
39: TEMPLATE_CATG_CODE,
40: ATTRIBUTE_CATEGORY,
166: ATTRIBUTE12,
167: ATTRIBUTE13,
168: ATTRIBUTE14,
169: ATTRIBUTE15
170: from PRP_TEMPLATE_CATGS_B
171: where TEMPLATE_CATG_ID = X_TEMPLATE_CATG_ID
172: for update of TEMPLATE_CATG_ID nowait;
173: recinfo c%rowtype;
174:
272: X_LAST_UPDATED_BY in NUMBER,
273: X_LAST_UPDATE_LOGIN in NUMBER
274: ) is
275: begin
276: update PRP_TEMPLATE_CATGS_B set
277: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
278: TEMPLATE_CATG_CODE = X_TEMPLATE_CATG_CODE,
279: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
280: ATTRIBUTE1 = X_ATTRIBUTE1,
326: if (sql%notfound) then
327: raise no_data_found;
328: end if;
329:
330: delete from PRP_TEMPLATE_CATGS_B
331: where TEMPLATE_CATG_ID = X_TEMPLATE_CATG_ID;
332:
333: if (sql%notfound) then
334: raise no_data_found;
340: begin
341: delete from PRP_TEMPLATE_CATGS_TL T
342: where not exists
343: (select NULL
344: from PRP_TEMPLATE_CATGS_B B
345: where B.TEMPLATE_CATG_ID = T.TEMPLATE_CATG_ID
346: );
347:
348: update PRP_TEMPLATE_CATGS_TL T set (