29: X_LAST_UPDATE_DATE in DATE,
30: X_LAST_UPDATED_BY in NUMBER,
31: X_LAST_UPDATE_LOGIN in NUMBER
32: ) is
33: cursor C is select ROWID from AHL_SPACE_UNAVAILABLE_B
34: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
35: ;
36: begin
37: insert into AHL_SPACE_UNAVAILABLE_B (
33: cursor C is select ROWID from AHL_SPACE_UNAVAILABLE_B
34: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
35: ;
36: begin
37: insert into AHL_SPACE_UNAVAILABLE_B (
38: ATTRIBUTE13,
39: ATTRIBUTE14,
40: ATTRIBUTE15,
41: SPACE_ID,
172: OBJECT_VERSION_NUMBER,
173: ATTRIBUTE12,
174: ATTRIBUTE8,
175: ATTRIBUTE10
176: from AHL_SPACE_UNAVAILABLE_B
177: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID
178: for update of SPACE_UNAVAILABILITY_ID nowait;
179: recinfo c%rowtype;
180:
281: X_LAST_UPDATED_BY in NUMBER,
282: X_LAST_UPDATE_LOGIN in NUMBER
283: ) is
284: begin
285: update AHL_SPACE_UNAVAILABLE_B set
286: ATTRIBUTE13 = X_ATTRIBUTE13,
287: ATTRIBUTE14 = X_ATTRIBUTE14,
288: ATTRIBUTE15 = X_ATTRIBUTE15,
289: SPACE_ID = X_SPACE_ID,
336: if (sql%notfound) then
337: raise no_data_found;
338: end if;
339:
340: delete from AHL_SPACE_UNAVAILABLE_B
341: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
342:
343: if (sql%notfound) then
344: raise no_data_found;
350: begin
351: delete from AHL_SPACE_UNAVAILABLE_TL T
352: where not exists
353: (select NULL
354: from AHL_SPACE_UNAVAILABLE_B B
355: where B.SPACE_UNAVAILABILITY_ID = T.SPACE_UNAVAILABILITY_ID
356: );
357:
358: update AHL_SPACE_UNAVAILABLE_TL T set (
441:
442:
443: cursor c_obj_verno is
444: select object_version_number
445: from AHL_SPACE_UNAVAILABLE_B
446: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
447:
448: cursor c_chk_rec_exists is
449: select 'x'
446: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
447:
448: cursor c_chk_rec_exists is
449: select 'x'
450: from AHL_SPACE_UNAVAILABLE_B
451: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
452:
453: cursor c_get_rec_id is
454: select AHL_SPACE_UNAVAILABLE_B_S.NEXTVAL
450: from AHL_SPACE_UNAVAILABLE_B
451: where SPACE_UNAVAILABILITY_ID = X_SPACE_UNAVAILABILITY_ID;
452:
453: cursor c_get_rec_id is
454: select AHL_SPACE_UNAVAILABLE_B_S.NEXTVAL
455: from DUAL;
456:
457: BEGIN
458: