30: X_LAST_UPDATE_LOGIN in NUMBER,
31: X_STATUS_CODE in VARCHAR2,
32: X_SIMULATION_TYPE in VARCHAR2
33: ) is
34: cursor C is select ROWID from AHL_SIMULATION_PLANS_B
35: where SIMULATION_PLAN_ID = X_SIMULATION_PLAN_ID
36: ;
37: begin
38: insert into AHL_SIMULATION_PLANS_B (
34: cursor C is select ROWID from AHL_SIMULATION_PLANS_B
35: where SIMULATION_PLAN_ID = X_SIMULATION_PLAN_ID
36: ;
37: begin
38: insert into AHL_SIMULATION_PLANS_B (
39: SIMULATION_PLAN_ID,
40: OBJECT_VERSION_NUMBER,
41: PRIMARY_PLAN_FLAG,
42: ATTRIBUTE_CATEGORY,
176: ATTRIBUTE14,
177: ATTRIBUTE15,
178: STATUS_CODE,
179: SIMULATION_TYPE
180: from AHL_SIMULATION_PLANS_B
181: where SIMULATION_PLAN_ID = X_SIMULATION_PLAN_ID
182: for update of SIMULATION_PLAN_ID nowait;
183: recinfo c%rowtype;
184:
288: X_STATUS_CODE in VARCHAR2,
289: X_SIMULATION_TYPE in VARCHAR2
290: ) is
291: begin
292: update AHL_SIMULATION_PLANS_B set
293: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
294: PRIMARY_PLAN_FLAG = X_PRIMARY_PLAN_FLAG,
295: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
296: ATTRIBUTE1 = X_ATTRIBUTE1,
344: if (sql%notfound) then
345: raise no_data_found;
346: end if;
347:
348: delete from AHL_SIMULATION_PLANS_B
349: where SIMULATION_PLAN_ID = X_SIMULATION_PLAN_ID;
350:
351: if (sql%notfound) then
352: raise no_data_found;
358: begin
359: delete from AHL_SIMULATION_PLANS_TL T
360: where not exists
361: (select NULL
362: from AHL_SIMULATION_PLANS_B B
363: where B.SIMULATION_PLAN_ID = T.SIMULATION_PLAN_ID
364: );
365:
366: update AHL_SIMULATION_PLANS_TL T set (
447: IS
448:
449: CURSOR c_obj_verno IS
450: SELECT object_version_number
451: FROM AHL_SIMULATION_PLANS_B
452: WHERE simulation_plan_id = X_SIMULATION_PLAN_ID;
453: --
454: CURSOR c_chk_simulation_exists IS
455: SELECT 'x'
452: WHERE simulation_plan_id = X_SIMULATION_PLAN_ID;
453: --
454: CURSOR c_chk_simulation_exists IS
455: SELECT 'x'
456: FROM AHL_SIMULATION_PLANS_B
457: WHERE simulation_plan_id = X_SIMULATION_PLAN_ID;
458: --
459: CURSOR c_get_simulation_id IS
460: SELECT ahl_simulation_plans_b_s.NEXTVAL
456: FROM AHL_SIMULATION_PLANS_B
457: WHERE simulation_plan_id = X_SIMULATION_PLAN_ID;
458: --
459: CURSOR c_get_simulation_id IS
460: SELECT ahl_simulation_plans_b_s.NEXTVAL
461: FROM dual;
462: --
463: CURSOR c_chk_pri_plan_exists IS
464: SELECT 'x'
461: FROM dual;
462: --
463: CURSOR c_chk_pri_plan_exists IS
464: SELECT 'x'
465: FROM AHL_SIMULATION_PLANS_B
466: WHERE primary_plan_flag = 'Y'
467: AND simulation_type = 'UMP';
468: --
469: l_user_id NUMBER := 0;