42: X_LAST_UPDATE_DATE in DATE,
43: X_LAST_UPDATED_BY in NUMBER,
44: X_LAST_UPDATE_LOGIN in NUMBER
45: ) is
46: cursor C is select ROWID from AHL_WARRANTY_TEMPLATES_B
47: where WARRANTY_TEMPLATE_ID = X_WARRANTY_TEMPLATE_ID
48: ;
49: begin
50: insert into AHL_WARRANTY_TEMPLATES_B (
46: cursor C is select ROWID from AHL_WARRANTY_TEMPLATES_B
47: where WARRANTY_TEMPLATE_ID = X_WARRANTY_TEMPLATE_ID
48: ;
49: begin
50: insert into AHL_WARRANTY_TEMPLATES_B (
51: ATTRIBUTE8,
52: ATTRIBUTE9,
53: ATTRIBUTE10,
54: ATTRIBUTE11,
233: ATTRIBUTE4,
234: ATTRIBUTE5,
235: ATTRIBUTE6,
236: ATTRIBUTE7
237: from AHL_WARRANTY_TEMPLATES_B
238: where WARRANTY_TEMPLATE_ID = X_WARRANTY_TEMPLATE_ID
239: for update of WARRANTY_TEMPLATE_ID nowait;
240: recinfo c%rowtype;
241:
381: X_LAST_UPDATED_BY in NUMBER,
382: X_LAST_UPDATE_LOGIN in NUMBER
383: ) is
384: begin
385: update AHL_WARRANTY_TEMPLATES_B set
386: ATTRIBUTE8 = X_ATTRIBUTE8,
387: ATTRIBUTE9 = X_ATTRIBUTE9,
388: ATTRIBUTE10 = X_ATTRIBUTE10,
389: ATTRIBUTE11 = X_ATTRIBUTE11,
449: if (sql%notfound) then
450: raise no_data_found;
451: end if;
452:
453: delete from AHL_WARRANTY_TEMPLATES_B
454: where WARRANTY_TEMPLATE_ID = X_WARRANTY_TEMPLATE_ID;
455:
456: if (sql%notfound) then
457: raise no_data_found;
463: begin
464: delete from AHL_WARRANTY_TEMPLATES_TL T
465: where not exists
466: (select NULL
467: from AHL_WARRANTY_TEMPLATES_B B
468: where B.WARRANTY_TEMPLATE_ID = T.WARRANTY_TEMPLATE_ID
469: );
470:
471: update AHL_WARRANTY_TEMPLATES_TL T set (