11:
12: PROCEDURE log_message(p_error_text IN VARCHAR2) IS
13: BEGIN
14:
15: IF fnd_global.conc_request_id > 0 THEN
16: fnd_file.PUT_LINE(fnd_file.LOG, p_error_text);
17: END IF;
18:
19: EXCEPTION
274: IF l_demand_plan_id IS NULL THEN
275:
276: INSERT
277: INTO msd_demand_plans(demand_plan_id, organization_id, demand_plan_name, last_update_date, last_updated_by, creation_date, created_by, sr_instance_id, use_org_specific_bom_flag)
278: VALUES(5555555, -23453, 'SRP DUMMY PLAN', trunc(sysdate), fnd_global.user_id, trunc(sysdate), fnd_global.user_id, -23453, 'N');
279:
280: END IF;
281:
282: IF l_scenario_id IS NOT NULL THEN
303: CLOSE get_scn_name;
304: lv_sql_stmt := 'INSERT INTO MSD_DP_SCENARIOS(demand_plan_id,scenario_id,scenario_name, '
305: || 'last_update_date,last_updated_by,creation_date,created_by)'
306: || 'values(5555555,MSD_DP_SCENARIOS_S.nextval,' || bind_var
307: || 'trunc(sysdate),fnd_global.user_id,trunc(sysdate),fnd_global.user_id)';
308: EXECUTE IMMEDIATE lv_sql_stmt USING l_scenario_name;
309:
310: INSERT INTO MSD_DP_SCENARIO_OUTPUT_LEVELS(demand_plan_id,scenario_id,level_id,last_update_date,last_updated_by,creation_date,created_by)
311: values(5555555,MSD_DP_SCENARIOS_S.CURRVAL,1,trunc(sysdate),fnd_global.user_id,trunc(sysdate),fnd_global.user_id);
307: || 'trunc(sysdate),fnd_global.user_id,trunc(sysdate),fnd_global.user_id)';
308: EXECUTE IMMEDIATE lv_sql_stmt USING l_scenario_name;
309:
310: INSERT INTO MSD_DP_SCENARIO_OUTPUT_LEVELS(demand_plan_id,scenario_id,level_id,last_update_date,last_updated_by,creation_date,created_by)
311: values(5555555,MSD_DP_SCENARIOS_S.CURRVAL,1,trunc(sysdate),fnd_global.user_id,trunc(sysdate),fnd_global.user_id);
312:
313: OPEN get_scn_id;
314: FETCH get_scn_id
315: INTO l_scenario_id;