1: PACKAGE BODY MSD_WS_DEM_RENAME_FORECAST AS
2: /* $Header: MSDWDRFB.pls 120.21.12020000.3 2013/02/04 07:42:44 kkhatri ship $ */
3:
4:
5: /*** PROCEDURES FUNCTIONS ***
295: retcode := -1;
296: errbuf:='INVALID_DATA_PROFILE';
297: msd_dem_common_utilities.log_message ('Error: can not assign plan name to forecast' );
298: msd_dem_common_utilities.log_message(errbuf);
299: msd_dem_common_utilities.log_message ('Exiting: MSD_WS_DEM_RENAME_FORECAST.ASSIGN_PLAN_NAME_TO_FORECAST- ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
300:
301: RETURN;
302: END IF;
303:
326: retcode := x_retcode;
327: errbuf:= x_errbuf;
328: msd_dem_common_utilities.log_message ('Error: In assign plan name to forecast' );
329: msd_dem_common_utilities.log_message(errbuf);
330: msd_dem_common_utilities.log_message ('Exiting: MSD_WS_DEM_RENAME_FORECAST.ASSIGN_PLAN_NAME_TO_FORECAST- ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
331: RETURN;
332: END IF;
333:
334: EXCEPTION
335: WHEN OTHERS THEN
336: retcode:= -1;
337: errbuf := substr(SQLERRM,1,150);
338: msd_dem_common_utilities.log_message ('Error: can not assign plan name to forecast' );
339: msd_dem_common_utilities.log_message ('Exception: MSD_WS_DEM_RENAME_FORECAST.ASSIGN_PLAN_NAME_TO_FORECAST - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS') );
340: msd_dem_common_utilities.log_message (errbuf);
341: RETURN;
342:
343:
526:
527:
528: IF (x_retcode <> '0')
529: THEN
530: msd_dem_demantra_utilities.log_message ('The procedure MSD_WS_DEM_RENAME_FORECAST.PUSH_ODS_DATA failed with the following error : '||x_errbuf);
531: END IF;
532: EXCEPTION
533: WHEN OTHERS THEN
534: /* Alter session to demantra schema */
533: WHEN OTHERS THEN
534: /* Alter session to demantra schema */
535: x_small_sql := 'alter session set current_schema = ' || x_schema;
536: EXECUTE IMMEDIATE x_small_sql;
537: msd_dem_demantra_utilities.log_message ('The procedure MSD_WS_DEM_RENAME_FORECAST.PUSH_ODS_DATA failed with error : '||SQLCODE||' -ERROR- '||SQLERRM);
538: END PUSH_ODS_DATA;
539:
540:
541: /*
684:
685:
686: BEGIN
687:
688: msd_dem_common_utilities.log_debug ('Entering: msd_ws_dem_rename_forecast.delete_plan - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
689: msd_dem_common_utilities.log_debug (' ');
690:
691: msd_dem_common_utilities.log_message (' ' || rpad('Plan Scenario Id', 30) || ' - ' || to_char(p_plan_scn_id));
692: msd_dem_common_utilities.log_message (' ' || rpad('Delete Associations', 30) || ' - ' || to_char(p_delete_assoc));
721: IF (x_attached_flag <> 0 AND p_delete_assoc = C_NO) THEN -- scenario_id is attached, delete_assoc is NO
722:
723: retcode := -1;
724: errbuf := 'There are associations for this plan, hence the plan cannot be deleted.';
725: msd_dem_common_utilities.log_message ('ERROR(1): msd_ws_dem_rename_forecast.delete_plan - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
726: msd_dem_common_utilities.log_message ('There are associations for this plan, hence the plan cannot be deleted.');
727: msd_dem_common_utilities.log_message ('If you still want to delete, rerun program with parameter "Delete Associations to Supply Plans" set to yes');
728: msd_dem_common_utilities.log_message (' ');
729:
775: END IF;
776:
777: END IF;
778:
779: msd_dem_common_utilities.log_debug ('Exiting: msd_ws_dem_rename_forecast.delete_plan - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
780: msd_dem_common_utilities.log_debug (' ');
781:
782:
783: EXCEPTION
783: EXCEPTION
784: WHEN others THEN
785: errbuf := substr(SQLERRM,1,150);
786: retcode := -1 ;
787: msd_dem_common_utilities.log_message ('Exception: msd_ws_dem_rename_forecast.delete_plan - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
788: msd_dem_common_utilities.log_message (errbuf);
789: msd_dem_common_utilities.log_message (' ');
790: ROLLBACK;
791:
791:
792: END DELETE_PLAN;
793:
794:
795: END MSD_WS_DEM_RENAME_FORECAST;