[Home] [Help]
1: PACKAGE BODY BSC_UPDATE AS
2: /* $Header: BSCDUPDB.pls 120.20 2007/12/07 10:03:19 phattarg ship $ */
3:
4: --
5: -- Package constants
15: | FUNCTION Can_Load_Dim_Table
16: +============================================================================*/
17: FUNCTION Can_Load_Dim_Table(
18: x_dim_table IN VARCHAR2,
19: x_loaded_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
20: x_num_loaded_tables IN NUMBER,
21: x_dim_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
22: x_num_dim_tables IN NUMBER
23: ) RETURN BOOLEAN IS
17: FUNCTION Can_Load_Dim_Table(
18: x_dim_table IN VARCHAR2,
19: x_loaded_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
20: x_num_loaded_tables IN NUMBER,
21: x_dim_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
22: x_num_dim_tables IN NUMBER
23: ) RETURN BOOLEAN IS
24:
25: TYPE t_cursor IS REF CURSOR;
39:
40: OPEN c_parent_tables(x_dim_table);
41: FETCH c_parent_tables INTO h_parent_table;
42: WHILE c_parent_tables%FOUND LOOP
43: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_parent_table,
44: x_dim_tables,
45: x_num_dim_tables) THEN
46:
47: -- The parent table was or is going to be loaded in this process
48: -- So, we need to check if this parent table is already loaded or not
49: -- If it is not already loaded the dimension table cannot be
50: -- loaded right now.
51:
52: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_parent_table,
53: x_loaded_tables,
54: x_num_loaded_tables) THEN
55: h_ret := FALSE;
56: EXIT;
66:
67: EXCEPTION
68: WHEN OTHERS THEN
69: BSC_MESSAGE.Add(x_message => SQLERRM,
70: x_source => 'BSC_UPDATE.Can_Load_Dim_Table');
71: RETURN NULL;
72:
73: END Can_Load_Dim_Table;
74:
77: | FUNCTION Can_Calculate_Sys_Table
78: +============================================================================*/
79: FUNCTION Can_Calculate_Sys_Table(
80: x_system_table IN VARCHAR2,
81: x_calculated_sys_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
82: x_num_calculated_sys_tables IN NUMBER,
83: x_system_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
84: x_num_system_tables IN NUMBER
85: ) RETURN BOOLEAN IS
79: FUNCTION Can_Calculate_Sys_Table(
80: x_system_table IN VARCHAR2,
81: x_calculated_sys_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
82: x_num_calculated_sys_tables IN NUMBER,
83: x_system_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
84: x_num_system_tables IN NUMBER
85: ) RETURN BOOLEAN IS
86:
87: TYPE t_cursor IS REF CURSOR;
106: --OPEN c_origin_tables FOR c_origin_tables_sql USING x_system_table;
107: OPEN c_origin_tables(x_system_table);
108: FETCH c_origin_tables INTO h_origin_table;
109: WHILE c_origin_tables%FOUND LOOP
110: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_origin_table,
111: x_system_tables,
112: x_num_system_tables) THEN
113:
114: -- The origin table was or is going to be calculated in this process
115: -- So, we need to check if this origin table is already calculated or not
116: -- If it is not already calculated the the system table cannot be
117: -- calculated right now.
118:
119: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_origin_table,
120: x_calculated_sys_tables,
121: x_num_calculated_sys_tables) THEN
122: h_ret := FALSE;
123: EXIT;
133:
134: EXCEPTION
135: WHEN OTHERS THEN
136: BSC_MESSAGE.Add(x_message => SQLERRM,
137: x_source => 'BSC_UPDATE.Can_Calculate_Sys_Table');
138: RETURN NULL;
139:
140: END Can_Calculate_Sys_Table;
141:
151: e_unexpected_error EXCEPTION;
152:
153: c_calculation_type NUMBER;
154:
155: h_base_table BSC_UPDATE_UTIL.t_array_of_varchar2;
156: h_base_table_periodicity NUMBER;
157:
158: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
159: h_num_system_tables NUMBER;
154:
155: h_base_table BSC_UPDATE_UTIL.t_array_of_varchar2;
156: h_base_table_periodicity NUMBER;
157:
158: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
159: h_num_system_tables NUMBER;
160:
161: h_lst_where VARCHAR2(32700);
162: h_i NUMBER;
175: DELETE FROM bsc_db_calculations
176: WHERE table_name = p_base_table AND calculation_type = c_calculation_type;
177:
178: -- Get base table periodicity
179: h_base_table_periodicity := BSC_UPDATE_UTIL.Get_Table_Periodicity(p_base_table);
180: IF h_base_table_periodicity IS NULL THEN
181: RAISE e_unexpected_error;
182: END IF;
183:
219: RETURN TRUE;
220:
221: EXCEPTION
222: WHEN e_unexpected_error THEN
223: x_error_message := BSC_UPDATE_UTIL.Get_Message('BSC_UNEXPECTED_ERROR');
224: WHEN OTHERS THEN
225: x_error_message := SQLERRM;
226: RETURN FALSE;
227:
247: EXCEPTION
248: WHEN e_error THEN
249: BSC_MESSAGE.flush;
250: BSC_MESSAGE.Add(x_message => l_error_message,
251: x_source => 'BSC_UPDATE.Configure_Periodicity_Calc_VB',
252: x_mode => 'I');
253: COMMIT;
254:
255: WHEN OTHERS THEN
253: COMMIT;
254:
255: WHEN OTHERS THEN
256: BSC_MESSAGE.Add(x_message => SQLERRM,
257: x_source => 'BSC_UPDATE.Configure_Periodicity_Calc_VB',
258: x_mode => 'I');
259: COMMIT;
260:
261: END Configure_Periodicity_Calc_VB;
348: EXCEPTION
349: WHEN e_error THEN
350: BSC_MESSAGE.flush;
351: BSC_MESSAGE.Add(x_message => l_error_message,
352: x_source => 'BSC_UPDATE.Configure_Profit_Calc_VB',
353: x_mode => 'I');
354: COMMIT;
355:
356: WHEN OTHERS THEN
354: COMMIT;
355:
356: WHEN OTHERS THEN
357: BSC_MESSAGE.Add(x_message => SQLERRM,
358: x_source => 'BSC_UPDATE.Configure_Profit_Calc_VB',
359: x_mode => 'I');
360: COMMIT;
361:
362: END Configure_Profit_Calc_VB;
382:
383: h_b BOOLEAN;
384: h_i NUMBER;
385:
386: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
387: h_num_input_tables NUMBER;
388:
389: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
390: h_num_indicators NUMBER;
385:
386: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
387: h_num_input_tables NUMBER;
388:
389: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
390: h_num_indicators NUMBER;
391:
392: h_calendars BSC_UPDATE_UTIL.t_array_of_number;
393: h_num_calendars NUMBER;
388:
389: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
390: h_num_indicators NUMBER;
391:
392: h_calendars BSC_UPDATE_UTIL.t_array_of_number;
393: h_num_calendars NUMBER;
394:
395: h_edw_dim_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
396: h_num_edw_dim_tables NUMBER;
391:
392: h_calendars BSC_UPDATE_UTIL.t_array_of_number;
393: h_num_calendars NUMBER;
394:
395: h_edw_dim_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
396: h_num_edw_dim_tables NUMBER;
397:
398: TYPE t_cursor IS REF CURSOR;
399: h_cursor t_cursor;
457: -- ----------------------------------------------------------------------------------
458: */
459:
460: h_sql := 'alter session set hash_area_size=50000000';
461: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
462:
463: h_sql := 'alter session set sort_area_size=50000000';
464: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
465:
460: h_sql := 'alter session set hash_area_size=50000000';
461: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
462:
463: h_sql := 'alter session set sort_area_size=50000000';
464: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
465:
466: IF BSC_UPDATE_UTIL.is_parallel THEN
467: COMMIT;
468: h_sql := 'alter session enable parallel dml';
462:
463: h_sql := 'alter session set sort_area_size=50000000';
464: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
465:
466: IF BSC_UPDATE_UTIL.is_parallel THEN
467: COMMIT;
468: h_sql := 'alter session enable parallel dml';
469: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
470: COMMIT;
465:
466: IF BSC_UPDATE_UTIL.is_parallel THEN
467: COMMIT;
468: h_sql := 'alter session enable parallel dml';
469: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
470: COMMIT;
471: END IF;
472:
473: -- Get the pending process id
485: -- Initiliaze log file
486: IF NOT BSC_APPS.APPS_ENV THEN
487: h_log_file_name := g_schema_name||g_process_id||'.log';
488:
489: IF NOT BSC_UPDATE_LOG.Init_Log_File(h_log_file_name) THEN
490: RAISE e_update_error;
491: END IF;
492: END IF;
493:
491: END IF;
492: END IF;
493:
494: -- Write process_id to log file
495: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'PROCESS_ID')||
496: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
497: ' '||TO_CHAR(g_process_id), BSC_UPDATE_LOG.LOG);
498:
499: BSC_UPDATE_LOG.Write_Line_Log(USERENV('SESSIONID'), BSC_UPDATE_LOG.LOG);
492: END IF;
493:
494: -- Write process_id to log file
495: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'PROCESS_ID')||
496: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
497: ' '||TO_CHAR(g_process_id), BSC_UPDATE_LOG.LOG);
498:
499: BSC_UPDATE_LOG.Write_Line_Log(USERENV('SESSIONID'), BSC_UPDATE_LOG.LOG);
500:
493:
494: -- Write process_id to log file
495: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'PROCESS_ID')||
496: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
497: ' '||TO_CHAR(g_process_id), BSC_UPDATE_LOG.LOG);
498:
499: BSC_UPDATE_LOG.Write_Line_Log(USERENV('SESSIONID'), BSC_UPDATE_LOG.LOG);
500:
501: -- Update the status of the pending process to running
495: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'PROCESS_ID')||
496: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
497: ' '||TO_CHAR(g_process_id), BSC_UPDATE_LOG.LOG);
498:
499: BSC_UPDATE_LOG.Write_Line_Log(USERENV('SESSIONID'), BSC_UPDATE_LOG.LOG);
500:
501: -- Update the status of the pending process to running
502: IF NOT Set_PStatus_Running() THEN
503: RAISE e_update_error;
526: -- RAISE e_update_error;
527: -- END IF;
528: --
529: -- IF h_num_edw_dim_tables > 0 THEN
530: -- IF NOT BSC_UPDATE_DIM.Refresh_EDW_Dimensions(h_edw_dim_tables, h_num_edw_dim_tables) THEN
531: -- RAISE e_update_error;
532: -- END IF;
533: -- END IF;
534: -- END IF;
541: g_kpi_mode := FALSE;
542: IF x_process_name = PC_LOADER_PROCESS OR x_process_name = PC_LOAD_DIMENSIONS THEN
543: -- Decompose the list in x_parameter_1 into the array g_indicators
544: IF x_parameter_1 IS NOT NULL THEN
545: g_num_indicators := BSC_UPDATE_UTIL.Decompose_Numeric_List(x_parameter_1,
546: g_indicators,
547: ',');
548: g_kpi_mode := TRUE;
549: END IF;
568:
569: -- Fix bug#3923207: Load dbi plans into bsc benchmarks whenever Loader is called to load data
570: IF x_process_name = PC_LOADER_PROCESS THEN
571: --LOCKING: Get the locks needed to import benchmarks
572: IF NOT BSC_UPDATE_LOCK.Lock_Import_Dbi_Plans THEN
573: RAISE e_could_not_get_lock;
574: END IF;
575:
576: -- LOCKING: Call the autonomous transaction function
573: RAISE e_could_not_get_lock;
574: END IF;
575:
576: -- LOCKING: Call the autonomous transaction function
577: IF NOT BSC_UPDATE_DIM.Import_Dbi_Plans_AT(h_error_message) THEN
578: RAISE e_import_dbi_plans;
579: END IF;
580:
581: -- AW_INTEGRATION: Load TYPE dimension into AW
584: -- if none of the objectives are implemented in AW
585: h_load_type_into_aw := FALSE;
586: IF g_kpi_mode THEN
587: FOR h_i IN 1..g_num_indicators LOOP
588: IF BSC_UPDATE_UTIL.Get_Kpi_Impl_Type(g_indicators(h_i)) = 2 THEN
589: h_load_type_into_aw := TRUE;
590: EXIT;
591: END IF;
592: END LOOP;
591: END IF;
592: END LOOP;
593: ELSE
594: -- running by input tables
595: IF BSC_UPDATE_UTIL.Exists_AW_Kpi THEN
596: h_load_type_into_aw := TRUE;
597: END IF;
598: END IF;
599: IF h_load_type_into_aw THEN
596: h_load_type_into_aw := TRUE;
597: END IF;
598: END IF;
599: IF h_load_type_into_aw THEN
600: BSC_UPDATE_DIM.Load_Type_Into_AW_AT;
601: END IF;
602:
603: --LOCKING: commit to release the locks
604: COMMIT;
613: -- of the current process whose status is pending
614:
615: -- AW_INTEGRATION: Create temporary tables needed for AW dimension processing
616: --LOCKING: Lock the temporal tables for dimensions
617: IF NOT BSC_UPDATE_LOCK.Lock_Temp_Tables('DIMENSION') THEN
618: RAISE e_could_not_get_lock;
619: END IF;
620:
621: -- LOCKING: call the autonomous trnasaction function
618: RAISE e_could_not_get_lock;
619: END IF;
620:
621: -- LOCKING: call the autonomous trnasaction function
622: IF NOT BSC_UPDATE_DIM.Create_AW_Dim_Temp_Tables_AT THEN
623: RAISE e_update_error;
624: END IF;
625:
626: --LOCKING: commit to release locks
654: --LOCKING: Lock all the indicators that are going to be affected in the
655: -- incremental logic. This is in cascade mode and in READ mode.
656: -- This is to prevent Metadata Optimizer and Designer to modify those indicators
657: -- during this process
658: IF NOT BSC_UPDATE_LOCK.Lock_Incremental_Indicators THEN
659: RAISE e_could_not_get_lock;
660: END IF;
661:
662: --LOCKING: call the autonomous transaction function
659: RAISE e_could_not_get_lock;
660: END IF;
661:
662: --LOCKING: call the autonomous transaction function
663: IF NOT BSC_UPDATE_INC.Do_Incremental_AT() THEN
664: RAISE e_update_error;
665: END IF;
666:
667: --LOCKING: commit to release the locks
680: -- This is in cascade mode and in READ mode.
681: -- This is to prevent Metadata Optimizer and Designer to modify those indicators
682: -- during this process.
683:
684: IF NOT BSC_UPDATE_LOCK.Lock_Indicators(h_input_tables, h_num_input_tables) THEN
685: RAISE e_could_not_get_lock;
686: END IF;
687:
688: --LOCKING: Review no commit between this point and the commit to release the locks
700: END IF;
701:
702: IF h_num_input_tables > 0 THEN
703: --LOCKING: Call the autonomous transaction function
704: IF NOT BSC_UPDATE.Process_Input_Tables_AT(h_input_tables, h_num_input_tables, 0) THEN
705: RAISE e_update_error;
706: END IF;
707: END IF;
708:
718: ELSIF x_process_name = PC_YEAR_CHANGE_PROCESS THEN
719: -- Run the year change process
720:
721: -- Decompose the list in x_parameter_1 into the array h_calendars
722: h_num_calendars := BSC_UPDATE_UTIL.Decompose_Numeric_List(x_parameter_1,
723: h_calendars,
724: ',');
725:
726: -- LOCKING: Lock the indicators in cascade mode and in read mode that are using
725:
726: -- LOCKING: Lock the indicators in cascade mode and in read mode that are using
727: -- any of the calendars. This is to prevent Metadata Optimizer to run on those
728: -- indicators or Designer to midify those indicators, its measures and dimensions
729: IF NOT BSC_UPDATE_LOCK.Lock_Indicators_by_Calendar(h_calendars, h_num_calendars) THEN
730: RAISE e_could_not_get_lock;
731: END IF;
732:
733: --LOCKING: Review no commit between this point and the commit to release the locks
765: CLOSE c_indicators;
766:
767: -- LOCKING: lock all the affected indicators in casscade mode and in read mode to prevent
768: -- metadata optimizer and designers to run on those indicators during this process
769: IF NOT BSC_UPDATE_LOCK.Lock_Indicators_To_Delete(h_indicators, h_num_indicators) THEN
770: RAISE e_could_not_get_lock;
771: END IF;
772:
773: IF g_keep_input_table_data IS NULL THEN
774: g_keep_input_table_data := 'N';
775: END IF;
776:
777: --LOCKING: Call the autonomous transaction function
778: IF NOT BSC_UPDATE_INC.Purge_Indicators_Data_AT(h_indicators, h_num_indicators, g_keep_input_table_data) THEN
779: RAISE e_update_error;
780: END IF;
781:
782: --LOCKING: commit to release locks
786: --ELSIF x_process_name = PC_REFRESH_EDW_DIMENSION THEN
787: -- -- Refresh EDW dimension table
788: -- h_num_edw_dim_tables := 1;
789: -- h_edw_dim_tables(1) := x_parameter_1;
790: -- IF NOT BSC_UPDATE_DIM.Refresh_EDW_Dimensions(h_edw_dim_tables, h_num_edw_dim_tables) THEN
791: -- RAISE e_update_error;
792: -- END IF;
793: END IF;
794:
800:
801: COMMIT;
802:
803: -- Write Program completed to log file
804: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
805: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
806: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
807: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
808:
801: COMMIT;
802:
803: -- Write Program completed to log file
804: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
805: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
806: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
807: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
808:
809: -- Delete records in the temporal table used for big 'in' conditions
802:
803: -- Write Program completed to log file
804: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
805: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
806: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
807: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
808:
809: -- Delete records in the temporal table used for big 'in' conditions
810: BSC_APPS.Init_Big_In_Cond_Table;
803: -- Write Program completed to log file
804: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
805: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
806: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
807: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
808:
809: -- Delete records in the temporal table used for big 'in' conditions
810: BSC_APPS.Init_Big_In_Cond_Table;
811:
819: end if;
820:
821: --Enable parallel: need to disable parallel here since I am getting ORA-12838 error when concurrent manager
822: -- is closing the concurrent program.
823: IF BSC_UPDATE_UTIL.is_parallel THEN
824: h_sql := 'alter session disable parallel dml';
825: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
826: commit;
827: END IF;
821: --Enable parallel: need to disable parallel here since I am getting ORA-12838 error when concurrent manager
822: -- is closing the concurrent program.
823: IF BSC_UPDATE_UTIL.is_parallel THEN
824: h_sql := 'alter session disable parallel dml';
825: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
826: commit;
827: END IF;
828:
829: COMMIT;
832: WHEN e_no_pending_process THEN
833: -- Delete records in the temporal table used for big 'in' conditions
834: BSC_APPS.Init_Big_In_Cond_Table;
835:
836: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_NO_PENDING_PROCESS'),
837: x_source => 'BSC_UPDATE.Execute_Update_Process',
838: x_mode => 'I');
839: COMMIT;
840:
833: -- Delete records in the temporal table used for big 'in' conditions
834: BSC_APPS.Init_Big_In_Cond_Table;
835:
836: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_NO_PENDING_PROCESS'),
837: x_source => 'BSC_UPDATE.Execute_Update_Process',
838: x_mode => 'I');
839: COMMIT;
840:
841: BSC_UPDATE_LOG.Write_Errors_To_Log;
837: x_source => 'BSC_UPDATE.Execute_Update_Process',
838: x_mode => 'I');
839: COMMIT;
840:
841: BSC_UPDATE_LOG.Write_Errors_To_Log;
842:
843: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
844: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
845: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
839: COMMIT;
840:
841: BSC_UPDATE_LOG.Write_Errors_To_Log;
842:
843: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
844: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
845: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
846: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
847:
840:
841: BSC_UPDATE_LOG.Write_Errors_To_Log;
842:
843: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
844: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
845: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
846: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
847:
848: WHEN e_exists_prototype_indicators THEN
841: BSC_UPDATE_LOG.Write_Errors_To_Log;
842:
843: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
844: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
845: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
846: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
847:
848: WHEN e_exists_prototype_indicators THEN
849: -- Delete records in the temporal table used for big 'in' conditions
842:
843: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
844: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
845: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
846: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
847:
848: WHEN e_exists_prototype_indicators THEN
849: -- Delete records in the temporal table used for big 'in' conditions
850: BSC_APPS.Init_Big_In_Cond_Table;
849: -- Delete records in the temporal table used for big 'in' conditions
850: BSC_APPS.Init_Big_In_Cond_Table;
851:
852: BSC_MESSAGE.flush;
853: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_METADATA_PEND_CHANGES'),
854: x_source => 'BSC_UPDATE.Execute_Update_Process',
855: x_mode => 'I');
856: COMMIT;
857:
850: BSC_APPS.Init_Big_In_Cond_Table;
851:
852: BSC_MESSAGE.flush;
853: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_METADATA_PEND_CHANGES'),
854: x_source => 'BSC_UPDATE.Execute_Update_Process',
855: x_mode => 'I');
856: COMMIT;
857:
858: BSC_UPDATE_LOG.Write_Errors_To_Log;
854: x_source => 'BSC_UPDATE.Execute_Update_Process',
855: x_mode => 'I');
856: COMMIT;
857:
858: BSC_UPDATE_LOG.Write_Errors_To_Log;
859:
860: IF g_process_id <> -1 THEN
861: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
862: COMMIT;
861: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
862: COMMIT;
863: END IF;
864:
865: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
866: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
867: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
868: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
869:
862: COMMIT;
863: END IF;
864:
865: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
866: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
867: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
868: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
869:
870: WHEN e_update_error THEN
863: END IF;
864:
865: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
866: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
867: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
868: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
869:
870: WHEN e_update_error THEN
871: ROLLBACK;
864:
865: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
866: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
867: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
868: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
869:
870: WHEN e_update_error THEN
871: ROLLBACK;
872:
873: -- Delete records in the temporal table used for big 'in' conditions
874: BSC_APPS.Init_Big_In_Cond_Table;
875:
876: BSC_MESSAGE.flush;
877: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED'),
878: x_source => 'BSC_UPDATE.Execute_Update_Process',
879: x_mode => 'I');
880: COMMIT;
881:
874: BSC_APPS.Init_Big_In_Cond_Table;
875:
876: BSC_MESSAGE.flush;
877: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED'),
878: x_source => 'BSC_UPDATE.Execute_Update_Process',
879: x_mode => 'I');
880: COMMIT;
881:
882: BSC_UPDATE_LOG.Write_Errors_To_Log;
878: x_source => 'BSC_UPDATE.Execute_Update_Process',
879: x_mode => 'I');
880: COMMIT;
881:
882: BSC_UPDATE_LOG.Write_Errors_To_Log;
883:
884: IF g_process_id <> -1 THEN
885: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
886: COMMIT;
885: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
886: COMMIT;
887: END IF;
888:
889: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
890: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
891: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
892: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
893:
886: COMMIT;
887: END IF;
888:
889: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
890: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
891: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
892: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
893:
894: --catching the error in creating table for bug 3899523
887: END IF;
888:
889: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
890: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
891: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
892: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
893:
894: --catching the error in creating table for bug 3899523
895: --added 3899523
888:
889: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
890: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
891: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
892: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
893:
894: --catching the error in creating table for bug 3899523
895: --added 3899523
896: WHEN e_tmp_tbl_create_error THEN
899: BSC_APPS.Init_Big_In_Cond_Table;
900:
901: BSC_MESSAGE.flush;
902: BSC_MESSAGE.Add(x_message => 'BSC_OLAP_MAIN.create_tmp_col_type_table '||h_error_message,
903: x_source => 'BSC_UPDATE.Execute_Update_Process',
904: x_mode => 'I');
905: COMMIT;
906:
907: BSC_UPDATE_LOG.Write_Errors_To_Log;
903: x_source => 'BSC_UPDATE.Execute_Update_Process',
904: x_mode => 'I');
905: COMMIT;
906:
907: BSC_UPDATE_LOG.Write_Errors_To_Log;
908:
909: IF g_process_id <> -1 THEN
910: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
911: COMMIT;
910: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
911: COMMIT;
912: END IF;
913:
914: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
915: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
916: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
917: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
918:
911: COMMIT;
912: END IF;
913:
914: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
915: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
916: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
917: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
918:
919: --Fix bug#3923207: import dbi plans into bsc benchmarks
912: END IF;
913:
914: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
915: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
916: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
917: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
918:
919: --Fix bug#3923207: import dbi plans into bsc benchmarks
920: WHEN e_import_dbi_plans THEN
913:
914: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
915: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
916: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
917: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
918:
919: --Fix bug#3923207: import dbi plans into bsc benchmarks
920: WHEN e_import_dbi_plans THEN
921: ROLLBACK;
923: -- Delete records in the temporal table used for big 'in' conditions
924: BSC_APPS.Init_Big_In_Cond_Table;
925:
926: BSC_MESSAGE.flush;
927: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_DIM.Import_Dbi_Plans: '||h_error_message,
928: x_source => 'BSC_UPDATE.Execute_Update_Process',
929: x_mode => 'I');
930: COMMIT;
931:
924: BSC_APPS.Init_Big_In_Cond_Table;
925:
926: BSC_MESSAGE.flush;
927: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_DIM.Import_Dbi_Plans: '||h_error_message,
928: x_source => 'BSC_UPDATE.Execute_Update_Process',
929: x_mode => 'I');
930: COMMIT;
931:
932: BSC_UPDATE_LOG.Write_Errors_To_Log;
928: x_source => 'BSC_UPDATE.Execute_Update_Process',
929: x_mode => 'I');
930: COMMIT;
931:
932: BSC_UPDATE_LOG.Write_Errors_To_Log;
933:
934: IF g_process_id <> -1 THEN
935: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
936: COMMIT;
935: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
936: COMMIT;
937: END IF;
938:
939: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
940: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
941: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
942: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
943:
936: COMMIT;
937: END IF;
938:
939: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
940: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
941: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
942: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
943:
944: --LOCKING
937: END IF;
938:
939: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
940: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
941: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
942: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
943:
944: --LOCKING
945: WHEN e_could_not_get_lock THEN
938:
939: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
940: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
941: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
942: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
943:
944: --LOCKING
945: WHEN e_could_not_get_lock THEN
946: ROLLBACK;
951: BSC_MESSAGE.flush;
952:
953: -- Error is already in the log file snet to the log file
954: BSC_MESSAGE.Add(x_message => 'Loader could not get the required locks to continue.',
955: x_source => 'BSC_UPDATE.Execute_Update_Process',
956: x_mode => 'I');
957: COMMIT;
958:
959: BSC_UPDATE_LOG.Write_Errors_To_Log;
955: x_source => 'BSC_UPDATE.Execute_Update_Process',
956: x_mode => 'I');
957: COMMIT;
958:
959: BSC_UPDATE_LOG.Write_Errors_To_Log;
960:
961: IF g_process_id <> -1 THEN
962: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
963: COMMIT;
962: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
963: COMMIT;
964: END IF;
965:
966: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
967: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
968: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
969: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
970:
963: COMMIT;
964: END IF;
965:
966: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
967: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
968: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
969: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
970:
971: WHEN OTHERS THEN
964: END IF;
965:
966: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
967: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
968: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
969: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
970:
971: WHEN OTHERS THEN
972: ROLLBACK;
965:
966: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
967: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
968: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
969: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
970:
971: WHEN OTHERS THEN
972: ROLLBACK;
973:
975: BSC_APPS.Init_Big_In_Cond_Table;
976:
977: BSC_MESSAGE.flush;
978: BSC_MESSAGE.Add(x_message => SQLERRM,
979: x_source => 'BSC_UPDATE.Execute_Update_Process',
980: x_mode => 'I');
981: COMMIT;
982:
983: BSC_UPDATE_LOG.Write_Errors_To_Log;
979: x_source => 'BSC_UPDATE.Execute_Update_Process',
980: x_mode => 'I');
981: COMMIT;
982:
983: BSC_UPDATE_LOG.Write_Errors_To_Log;
984:
985: IF g_process_id <> -1 THEN
986: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
987: COMMIT;
986: h_b := Set_PStatus_Finished(PC_ERROR_STATUS);
987: COMMIT;
988: END IF;
989:
990: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
991: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
992: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
993: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
994:
987: COMMIT;
988: END IF;
989:
990: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
991: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
992: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
993: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
994:
995: END Execute_Update_Process;
988: END IF;
989:
990: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
991: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
992: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
993: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
994:
995: END Execute_Update_Process;
996:
989:
990: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
991: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
992: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
993: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
994:
995: END Execute_Update_Process;
996:
997:
1087: h_end_year NUMBER;
1088:
1089: h_sql VARCHAR2(2000);
1090: h_b BOOLEAN;
1091: l_bind_vars_values BSC_UPDATE_UTIL.t_array_of_number;
1092: l_num_bind_vars NUMBER;
1093:
1094: h_periodicity_id NUMBER;
1095: h_yearly_flag NUMBER;
1094: h_periodicity_id NUMBER;
1095: h_yearly_flag NUMBER;
1096: h_current_period NUMBER;
1097:
1098: h_base_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
1099: h_num_base_tables NUMBER;
1100:
1101: h_calendar_source VARCHAR2(20);
1102: h_count NUMBER;
1105: h_message VARCHAR2(4000);
1106: h_calendar_name VARCHAR2(2000);
1107:
1108: --AW_INTEGRATION: New variables
1109: h_aw_indicators BSC_UPDATE_UTIL.t_array_of_number;
1110: h_num_aw_indicators NUMBER;
1111: h_aw_table_name VARCHAR2(30);
1112: h_aw_flag BOOLEAN;
1113: h_i NUMBER;
1111: h_aw_table_name VARCHAR2(30);
1112: h_aw_flag BOOLEAN;
1113: h_i NUMBER;
1114: h_kpi_list dbms_sql.varchar2_table;
1115: h_aw_base_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
1116: h_num_aw_base_tables NUMBER;
1117:
1118: --LOCKING: new variables
1119: h_error_message VARCHAR2(2000);
1134: h_num_aw_indicators := 0;
1135: h_num_aw_base_tables := 0;
1136:
1137: --LOCKING: Lock the objects required to change the calendar
1138: IF NOT BSC_UPDATE_LOCK.Lock_Calendar_Change(x_calendar_id) THEN
1139: RAISE e_could_not_get_lock;
1140: END IF;
1141:
1142: --LOCKING: review no commit between this point and the commit to release the locks
1140: END IF;
1141:
1142: --LOCKING: review no commit between this point and the commit to release the locks
1143:
1144: h_calendar_name := BSC_UPDATE_UTIL.Get_Calendar_Name(x_calendar_id);
1145:
1146: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_PROCESS')||' ('||
1147: h_calendar_name||')', BSC_UPDATE_LOG.OUTPUT);
1148:
1142: --LOCKING: review no commit between this point and the commit to release the locks
1143:
1144: h_calendar_name := BSC_UPDATE_UTIL.Get_Calendar_Name(x_calendar_id);
1145:
1146: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_PROCESS')||' ('||
1147: h_calendar_name||')', BSC_UPDATE_LOG.OUTPUT);
1148:
1149: -- Get the current fiscal year
1150: h_current_fy := BSC_UPDATE_UTIL.Get_Calendar_Fiscal_Year(x_calendar_id);
1143:
1144: h_calendar_name := BSC_UPDATE_UTIL.Get_Calendar_Name(x_calendar_id);
1145:
1146: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_PROCESS')||' ('||
1147: h_calendar_name||')', BSC_UPDATE_LOG.OUTPUT);
1148:
1149: -- Get the current fiscal year
1150: h_current_fy := BSC_UPDATE_UTIL.Get_Calendar_Fiscal_Year(x_calendar_id);
1151: h_new_fiscal_year := h_current_fy + 1;
1146: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_PROCESS')||' ('||
1147: h_calendar_name||')', BSC_UPDATE_LOG.OUTPUT);
1148:
1149: -- Get the current fiscal year
1150: h_current_fy := BSC_UPDATE_UTIL.Get_Calendar_Fiscal_Year(x_calendar_id);
1151: h_new_fiscal_year := h_current_fy + 1;
1152:
1153: -- Get calendar source
1154: h_calendar_source := BSC_UPDATE_UTIL.Get_Calendar_Source(x_calendar_id);
1150: h_current_fy := BSC_UPDATE_UTIL.Get_Calendar_Fiscal_Year(x_calendar_id);
1151: h_new_fiscal_year := h_current_fy + 1;
1152:
1153: -- Get calendar source
1154: h_calendar_source := BSC_UPDATE_UTIL.Get_Calendar_Source(x_calendar_id);
1155:
1156: -- BSC-BIS-DIMENSIONS: If it is a BIS calendar we need to validate that the new fiscal
1157: -- year is already available in BSC
1158: IF h_calendar_source = 'PMF' THEN
1162: WHERE calendar_id = x_calendar_id AND year = h_new_fiscal_year;
1163:
1164: IF h_count = 0 THEN
1165: -- The new fiscal year is not available
1166: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_DBI_YEAR_NOT_AVAILABLE');
1167: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'YEAR', TO_CHAR(h_new_fiscal_year));
1168: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'CALENDAR_NAME', h_calendar_name);
1169: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
1170: --LOCKING: commit to release locks
1163:
1164: IF h_count = 0 THEN
1165: -- The new fiscal year is not available
1166: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_DBI_YEAR_NOT_AVAILABLE');
1167: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'YEAR', TO_CHAR(h_new_fiscal_year));
1168: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'CALENDAR_NAME', h_calendar_name);
1169: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
1170: --LOCKING: commit to release locks
1171: COMMIT;
1164: IF h_count = 0 THEN
1165: -- The new fiscal year is not available
1166: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_DBI_YEAR_NOT_AVAILABLE');
1167: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'YEAR', TO_CHAR(h_new_fiscal_year));
1168: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'CALENDAR_NAME', h_calendar_name);
1169: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
1170: --LOCKING: commit to release locks
1171: COMMIT;
1172: RETURN FALSE;
1165: -- The new fiscal year is not available
1166: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_DBI_YEAR_NOT_AVAILABLE');
1167: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'YEAR', TO_CHAR(h_new_fiscal_year));
1168: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'CALENDAR_NAME', h_calendar_name);
1169: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
1170: --LOCKING: commit to release locks
1171: COMMIT;
1172: RETURN FALSE;
1173: END IF;
1176: -- Fix bug#3636273 We are going to drop indexes to avoid commit in the middle
1177: --LOCKING: we are not going to drop indexes in calendar tables. If we do so, we cannot
1178: --run year change process on different calendars at the same time
1179: --IF h_calendar_source = 'BSC' THEN
1180: -- IF NOT BSC_UPDATE_UTIL.Init_Calendar_Tables(x_calendar_id, 1) THEN
1181: -- RAISE e_unexpected_error;
1182: -- END IF;
1183: --END IF;
1184:
1183: --END IF;
1184:
1185: -- Write new current fiscal year
1186: -- LOCKING: There is not commit inside this function
1187: IF NOT BSC_UPDATE_UTIL.Set_Calendar_Fiscal_Year(x_calendar_id, (h_current_fy + 1)) THEN
1188: RAISE e_unexpected_error;
1189: END IF;
1190:
1191: -- Init calendar tables (BSC Calendars)
1193: -- Removing code for EDW. This was never supported.
1194: IF h_calendar_source = 'BSC' THEN
1195: -- Fix bug#3636273 add second parameter.
1196: -- LOCKING: no commit inside this function
1197: IF NOT BSC_UPDATE_UTIL.Init_Calendar_Tables(x_calendar_id) THEN
1198: RAISE e_unexpected_error;
1199: END IF;
1200: END IF;
1201:
1204: FETCH c_indicators INTO h_indicator;
1205: WHILE c_indicators%FOUND LOOP
1206:
1207: -- AW_INTEGRATION: Add AW indicators to the array x_aw_indicators
1208: IF BSC_UPDATE_UTIL.Get_Kpi_Impl_Type(h_indicator) = 2 THEN
1209: h_num_aw_indicators := h_num_aw_indicators + 1;
1210: h_aw_indicators(h_num_aw_indicators) := h_indicator;
1211: END IF;
1212:
1244:
1245:
1246: -- All colors in the panel have to be gray
1247: UPDATE bsc_sys_kpi_colors
1248: SET kpi_color = BSC_UPDATE_COLOR.GRAY,
1249: actual_data = NULL,
1250: budget_data = NULL
1251: WHERE indicator = h_indicator;
1252:
1250: budget_data = NULL
1251: WHERE indicator = h_indicator;
1252:
1253: UPDATE bsc_sys_objective_colors
1254: SET obj_color = BSC_UPDATE_COLOR.GRAY
1255: WHERE indicator = h_indicator;
1256:
1257:
1258: -- Update the name of period of indicators in BSC_KPI_DEFAULTS_TL table
1255: WHERE indicator = h_indicator;
1256:
1257:
1258: -- Update the name of period of indicators in BSC_KPI_DEFAULTS_TL table
1259: IF NOT BSC_UPDATE_UTIL.Update_Kpi_Period_Name(h_indicator) THEN
1260: RAISE e_unexpected_error;
1261: END IF;
1262:
1263: -- Update date of indicator
1291: -- the AW table created for the base table. I will add them to the array
1292: -- h_aw_base_tables to truncate them later. We cannot do DDL here.
1293: -- Also the base table is not added to
1294: -- to array h_base_tables because that array is for base table for MV indicators
1295: h_aw_flag := BSC_UPDATE_UTIL.Is_Table_For_AW_Kpi(h_table_info.table_name);
1296: IF h_aw_flag THEN
1297: -- Base table for AW indicators
1298: h_num_aw_base_tables := h_num_aw_base_tables + 1;
1299: h_aw_base_tables(h_num_aw_base_tables) := h_table_info.table_name;
1309:
1310: --ENH_B_TABLES_PERF: In the new strategy the base table may have a projection table
1311: -- In this case we need to truncate the projection table and we do not need to touch
1312: -- the base table since it contains only actuals.
1313: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_table_info.table_name);
1314: IF h_proj_tbl_name IS NOT NULL THEN
1315: BSC_UPDATE_UTIL.Truncate_Table_AT(h_proj_tbl_name);
1316: ELSE
1317: IF h_table_info.yearly_flag = 1 THEN
1311: -- In this case we need to truncate the projection table and we do not need to touch
1312: -- the base table since it contains only actuals.
1313: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_table_info.table_name);
1314: IF h_proj_tbl_name IS NOT NULL THEN
1315: BSC_UPDATE_UTIL.Truncate_Table_AT(h_proj_tbl_name);
1316: ELSE
1317: IF h_table_info.yearly_flag = 1 THEN
1318: -- Annual periodicity
1319: h_sql := 'DELETE FROM '||h_table_info.table_name||
1321: IF NOT h_aw_flag THEN
1322: h_sql := h_sql||' AND PERIODICITY_ID = :2';
1323: l_bind_vars_values(1):=h_table_info.current_period;
1324: l_bind_vars_values(2):=h_table_info.periodicity_id;
1325: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1326: ELSE
1327: l_bind_vars_values(1):=h_table_info.current_period;
1328: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,1);
1329: END IF;
1324: l_bind_vars_values(2):=h_table_info.periodicity_id;
1325: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1326: ELSE
1327: l_bind_vars_values(1):=h_table_info.current_period;
1328: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,1);
1329: END IF;
1330: ELSE
1331: -- Other periodicity
1332: h_sql := 'DELETE FROM '||h_table_info.table_name||
1335: h_sql := h_sql||' AND PERIODICITY_ID = :3';
1336: l_bind_vars_values(1):=h_current_fy;
1337: l_bind_vars_values(2):=h_table_info.current_period;
1338: l_bind_vars_values(3):=h_table_info.periodicity_id;
1339: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,3);
1340: ELSE
1341: l_bind_vars_values(1):=h_current_fy;
1342: l_bind_vars_values(2):=h_table_info.current_period;
1343: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1339: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,3);
1340: ELSE
1341: l_bind_vars_values(1):=h_current_fy;
1342: l_bind_vars_values(2):=h_table_info.current_period;
1343: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1344: END IF;
1345: END IF;
1346:
1347: -- Delete projection for other periodicities
1357: h_sql := 'DELETE FROM '||h_table_info.table_name||
1358: ' WHERE YEAR > :1 AND TYPE = 0 AND PERIODICITY_ID = :2';
1359: l_bind_vars_values(1):=h_current_fy;
1360: l_bind_vars_values(2):=h_periodicity_id;
1361: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1362: ELSE
1363: -- Get current period of this periodicity based on the current period
1364: -- of the base periodicity of the base table
1365: h_current_period := BSC_UPDATE_UTIL.Get_Period_Other_Periodicity(
1361: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1362: ELSE
1363: -- Get current period of this periodicity based on the current period
1364: -- of the base periodicity of the base table
1365: h_current_period := BSC_UPDATE_UTIL.Get_Period_Other_Periodicity(
1366: h_periodicity_id,
1367: x_calendar_id,
1368: h_yearly_flag,
1369: h_current_fy,
1376: ' WHERE YEAR = :1 AND PERIOD > :2 AND TYPE = 0 AND PERIODICITY_ID = :3';
1377: l_bind_vars_values(1):=h_current_fy;
1378: l_bind_vars_values(2):=h_current_period;
1379: l_bind_vars_values(3):=h_periodicity_id;
1380: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,3);
1381: END IF;
1382: END LOOP;
1383: CLOSE c_other_periodicities;
1384: END IF;
1389: l_bind_vars_values.delete;
1390: OPEN c_tables(1, x_calendar_id);
1391: FETCH c_tables INTO h_table_info;
1392: WHILE c_tables%FOUND LOOP
1393: IF BSC_UPDATE_UTIL.Table_Exists(h_table_info.table_name) THEN
1394: --ENH_B_TABLES_PERF: In the new strategy the base table may have a projection table
1395: -- In this case we need to truncate the projection table and we do not need to touch
1396: -- the base table since it contains only actuals.
1397: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_table_info.table_name);
1393: IF BSC_UPDATE_UTIL.Table_Exists(h_table_info.table_name) THEN
1394: --ENH_B_TABLES_PERF: In the new strategy the base table may have a projection table
1395: -- In this case we need to truncate the projection table and we do not need to touch
1396: -- the base table since it contains only actuals.
1397: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_table_info.table_name);
1398: IF h_proj_tbl_name IS NOT NULL THEN
1399: BSC_UPDATE_UTIL.Truncate_Table_AT(h_proj_tbl_name);
1400: ELSE
1401: IF h_table_info.yearly_flag = 1 THEN
1395: -- In this case we need to truncate the projection table and we do not need to touch
1396: -- the base table since it contains only actuals.
1397: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_table_info.table_name);
1398: IF h_proj_tbl_name IS NOT NULL THEN
1399: BSC_UPDATE_UTIL.Truncate_Table_AT(h_proj_tbl_name);
1400: ELSE
1401: IF h_table_info.yearly_flag = 1 THEN
1402: -- Annual periodicity
1403: h_sql := 'DELETE FROM '||h_table_info.table_name||
1402: -- Annual periodicity
1403: h_sql := 'DELETE FROM '||h_table_info.table_name||
1404: ' WHERE YEAR > :1 AND TYPE = 0';
1405: l_bind_vars_values(1):=h_table_info.current_period;
1406: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,1);
1407: ELSE
1408: -- Other periodicity
1409: h_sql := 'DELETE FROM '||h_table_info.table_name||
1410: ' WHERE YEAR = :1 AND PERIOD > :2 AND TYPE = 0';
1409: h_sql := 'DELETE FROM '||h_table_info.table_name||
1410: ' WHERE YEAR = :1 AND PERIOD > :2 AND TYPE = 0';
1411: l_bind_vars_values(1):=h_current_fy;
1412: l_bind_vars_values(2):=h_table_info.current_period;
1413: BSC_UPDATE_UTIL.Execute_Immediate(h_sql,l_bind_vars_values,2);
1414: END IF;
1415: END IF;
1416: END IF;
1417: FETCH c_tables INTO h_table_info;
1462: -- Fix bug#3636273 We are going to create indexes here to avoid commit in the middle
1463: --LOCKING: we are not going to drop indexes in calendar tables. If we do so, we cannot
1464: --run year change process on different calendars at the same time
1465: --IF h_calendar_source = 'BSC' THEN
1466: -- IF NOT BSC_UPDATE_UTIL.Init_Calendar_Tables(x_calendar_id, 3) THEN
1467: -- RAISE e_unexpected_error;
1468: -- END IF;
1469: --END IF;
1470:
1486: FETCH c_sum_tables_mv INTO h_table_name;
1487: EXIT WHEN c_sum_tables_mv%NOTFOUND;
1488:
1489: --LOCKING: Lock the table
1490: IF NOT BSC_UPDATE_LOCK.Lock_Table(h_table_name) THEN
1491: RAISE e_could_not_get_lock;
1492: END IF;
1493:
1494: --LOCKING: Call the autonomous transaction function
1491: RAISE e_could_not_get_lock;
1492: END IF;
1493:
1494: --LOCKING: Call the autonomous transaction function
1495: BSC_UPDATE_UTIL.Truncate_Table_AT(h_table_name);
1496:
1497: --LOCKING: commit to release locks
1498: COMMIT;
1499: END LOOP;
1499: END LOOP;
1500: CLOSE c_sum_tables_mv;
1501:
1502: -- Refresh all MVs in the system affected by base tables
1503: IF NOT BSC_UPDATE.Refresh_System_MVs(h_base_tables, h_num_base_tables) THEN
1504: RAISE e_unexpected_error;
1505: END IF;
1506: END IF;
1507: COMMIT;
1510: -- bug 5660053 we are not creating AW tables for base tables so we do not need to truncate
1511: /*FOR h_i IN 1..h_num_aw_base_tables LOOP
1512: -- We need to truncate the AW table created for the base table
1513: --LOCKING: Lock the table
1514: IF NOT BSC_UPDATE_LOCK.Lock_Table(h_aw_base_tables(h_i)) THEN
1515: RAISE e_could_not_get_lock;
1516: END IF;
1517:
1518: h_aw_table_name := BSC_UPDATE_BASE.Get_Base_AW_Table_Name(h_aw_base_tables(h_i));
1514: IF NOT BSC_UPDATE_LOCK.Lock_Table(h_aw_base_tables(h_i)) THEN
1515: RAISE e_could_not_get_lock;
1516: END IF;
1517:
1518: h_aw_table_name := BSC_UPDATE_BASE.Get_Base_AW_Table_Name(h_aw_base_tables(h_i));
1519:
1520: --LOCKING: call the autonomous transaction function
1521: BSC_UPDATE_UTIL.Truncate_Table_AT(h_aw_table_name);
1522:
1517:
1518: h_aw_table_name := BSC_UPDATE_BASE.Get_Base_AW_Table_Name(h_aw_base_tables(h_i));
1519:
1520: --LOCKING: call the autonomous transaction function
1521: BSC_UPDATE_UTIL.Truncate_Table_AT(h_aw_table_name);
1522:
1523: --LOCKING: commit to release locks
1524: COMMIT;
1525: END LOOP;*/
1525: END LOOP;*/
1526:
1527: -- AW_INTEGRATION: Refresh indicators cubes
1528: FOR h_i IN 1..h_num_aw_indicators LOOP
1529: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_aw_indicators(h_i)) THEN
1530: --LOCKING: Lock the objects required to refresh the AW indicator cubes
1531: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_AW_Indicator(h_aw_indicators(h_i)) THEN
1532: RAISE e_could_not_get_lock;
1533: END IF;
1527: -- AW_INTEGRATION: Refresh indicators cubes
1528: FOR h_i IN 1..h_num_aw_indicators LOOP
1529: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_aw_indicators(h_i)) THEN
1530: --LOCKING: Lock the objects required to refresh the AW indicator cubes
1531: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_AW_Indicator(h_aw_indicators(h_i)) THEN
1532: RAISE e_could_not_get_lock;
1533: END IF;
1534:
1535: --LOCKING: call the autonomous transaction procedure
1532: RAISE e_could_not_get_lock;
1533: END IF;
1534:
1535: --LOCKING: call the autonomous transaction procedure
1536: BSC_UPDATE_SUM.Refresh_AW_Kpi_AT(h_aw_indicators(h_i));
1537:
1538: -- LOCKING: commit to release locks
1539: COMMIT;
1540: END IF;
1542: COMMIT;
1543:
1544: -- Write the update date
1545: --LOCKING: Lock date of update process
1546: IF NOT BSC_UPDATE_LOCK.Lock_Update_Date THEN
1547: RAISE e_could_not_get_lock;
1548: END IF;
1549:
1550: IF NOT BSC_UPDATE_UTIL.Write_Init_Variable_Value('UPDATE_DATE', TO_CHAR(SYSDATE, 'DD/MM/YYYY')) THEN
1546: IF NOT BSC_UPDATE_LOCK.Lock_Update_Date THEN
1547: RAISE e_could_not_get_lock;
1548: END IF;
1549:
1550: IF NOT BSC_UPDATE_UTIL.Write_Init_Variable_Value('UPDATE_DATE', TO_CHAR(SYSDATE, 'DD/MM/YYYY')) THEN
1551: RAISE e_unexpected_error;
1552: END IF;
1553:
1554: -- Fix bug#3636273 Move this call here.
1552: END IF;
1553:
1554: -- Fix bug#3636273 Move this call here.
1555: -- Update the system time stamp
1556: BSC_UPDATE_UTIL.Update_System_Time_Stamp;
1557:
1558: --LOCKING: commit to release locks
1559: COMMIT;
1560:
1562: -- BSC_MV Note: Populate reporting calendar
1563: -- Fix bug#4027813: move load reporting calendar here and pass calendar id
1564: IF BSC_APPS.bsc_mv THEN
1565: -- LOCKING: lock the calendar
1566: IF NOT BSC_UPDATE_LOCK.Lock_Calendar(x_calendar_id) THEN
1567: RAISE e_could_not_get_lock;
1568: END IF;
1569:
1570: --LOCKING: call the autonomous transaction
1573: END IF;
1574:
1575: --AW_INTEGRATION: call aw api to import calendars into aw world
1576: --LOCKING: call the autonomous transaction
1577: BSC_UPDATE_UTIL.Load_Calendar_Into_AW_AT(x_calendar_id);
1578:
1579: --LOCKING: commit to release locks
1580: COMMIT;
1581: END IF;
1579: --LOCKING: commit to release locks
1580: COMMIT;
1581: END IF;
1582:
1583: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
1584:
1585: RETURN TRUE;
1586:
1587: EXCEPTION
1586:
1587: EXCEPTION
1588: WHEN e_unexpected_error THEN
1589: ROLLBACK;
1590: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_FAILED'),
1591: x_source => 'BSC_UPDATE.Execute_Year_Change_Process');
1592:
1593: RETURN FALSE;
1594:
1587: EXCEPTION
1588: WHEN e_unexpected_error THEN
1589: ROLLBACK;
1590: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_YEARCHANGE_FAILED'),
1591: x_source => 'BSC_UPDATE.Execute_Year_Change_Process');
1592:
1593: RETURN FALSE;
1594:
1595: --LOCKING
1595: --LOCKING
1596: WHEN e_could_not_get_lock THEN
1597: ROLLBACK;
1598: BSC_MESSAGE.Add (x_message => 'Loader could not get the required locks to continue.',
1599: x_source => 'BSC_UPDATE.Execute_Year_Change_Process');
1600:
1601: RETURN FALSE;
1602:
1603: --LOCKING
1603: --LOCKING
1604: WHEN e_error_load_rpt_cal THEN
1605: ROLLBACK;
1606: BSC_MESSAGE.Add (x_message => 'BSC_BIA_WRAPPER.Load_Reporting_Calendar: '||h_error_message,
1607: x_source => 'BSC_UPDATE.Execute_Year_Change_Process');
1608:
1609: RETURN FALSE;
1610:
1611: WHEN OTHERS THEN
1610:
1611: WHEN OTHERS THEN
1612: ROLLBACK;
1613: BSC_MESSAGE.Add (x_message => SQLERRM,
1614: x_source => 'BSC_UPDATE.Execute_Year_Change_Process');
1615:
1616: RETURN FALSE;
1617:
1618: END Execute_Year_Change_Process;
1673:
1674: EXCEPTION
1675: WHEN OTHERS THEN
1676: BSC_MESSAGE.Add(x_message => SQLERRM,
1677: x_source => 'BSC_UPDATE.Exists_Prototype_Indicators');
1678: RETURN NULL;
1679:
1680: END Exists_Prototype_Indicators;
1681:
1707:
1708: EXCEPTION
1709: WHEN OTHERS THEN
1710: BSC_MESSAGE.Add(x_message => SQLERRM,
1711: x_source => 'BSC_UPDATE.Flag_Last_Stage_Input_Table');
1712: RETURN FALSE;
1713:
1714: END Flag_Last_Stage_Input_Table;
1715:
1755:
1756: EXCEPTION
1757: WHEN OTHERS THEN
1758: BSC_MESSAGE.Add(x_message => SQLERRM,
1759: x_source => 'BSC_UPDATE.Get_Base_Table_Of_Input_Table');
1760: RETURN FALSE;
1761:
1762: END Get_Base_Table_Of_Input_Table;
1763:
1765: /*===========================================================================+
1766: | FUNCTION Get_EDW_Dims_In_Input_Tables
1767: +============================================================================*/
1768: FUNCTION Get_EDW_Dims_In_Input_Tables (
1769: x_edw_dim_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
1770: x_num_edw_dim_tables IN OUT NOCOPY NUMBER
1771: ) RETURN BOOLEAN IS
1772:
1773: TYPE t_cursor IS REF CURSOR;
1815:
1816: EXCEPTION
1817: WHEN OTHERS THEN
1818: BSC_MESSAGE.Add(x_message => SQLERRM,
1819: x_source => 'BSC_UPDATE.Get_EDW_Dims_In_Input_Tables');
1820: RETURN FALSE;
1821: END Get_EDW_Dims_In_Input_Tables;
1822:
1823:
1824: /*===========================================================================+
1825: | FUNCTION Get_Indicators_To_Color
1826: +============================================================================*/
1827: FUNCTION Get_Indicators_To_Color(
1828: x_base_tables_to_color IN BSC_UPDATE_UTIL.t_array_of_varchar2,
1829: x_num_base_tables_to_color IN NUMBER,
1830: x_color_indicators IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number,
1831: x_num_color_indicators IN OUT NOCOPY NUMBER
1832: ) RETURN BOOLEAN IS
1826: +============================================================================*/
1827: FUNCTION Get_Indicators_To_Color(
1828: x_base_tables_to_color IN BSC_UPDATE_UTIL.t_array_of_varchar2,
1829: x_num_base_tables_to_color IN NUMBER,
1830: x_color_indicators IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number,
1831: x_num_color_indicators IN OUT NOCOPY NUMBER
1832: ) RETURN BOOLEAN IS
1833:
1834: e_unexpected_error EXCEPTION;
1832: ) RETURN BOOLEAN IS
1833:
1834: e_unexpected_error EXCEPTION;
1835:
1836: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
1837: h_num_system_tables NUMBER;
1838: h_i NUMBER;
1839: h_lst_where VARCHAR2(32700);
1840:
1886:
1887: RETURN TRUE;
1888: EXCEPTION
1889: WHEN e_unexpected_error THEN
1890: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_COLORKPILIST_FAILED'),
1891: x_source => 'BSC_UPDATE.Get_Indicators_To_Color');
1892: RETURN FALSE;
1893:
1894: WHEN OTHERS THEN
1887: RETURN TRUE;
1888: EXCEPTION
1889: WHEN e_unexpected_error THEN
1890: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_COLORKPILIST_FAILED'),
1891: x_source => 'BSC_UPDATE.Get_Indicators_To_Color');
1892: RETURN FALSE;
1893:
1894: WHEN OTHERS THEN
1895: BSC_MESSAGE.Add(x_message => SQLERRM,
1892: RETURN FALSE;
1893:
1894: WHEN OTHERS THEN
1895: BSC_MESSAGE.Add(x_message => SQLERRM,
1896: x_source => 'BSC_UPDATE.Get_Indicators_To_Color');
1897: RETURN FALSE;
1898:
1899: END Get_Indicators_To_Color;
1900:
1938: RETURN TRUE;
1939: EXCEPTION
1940: WHEN OTHERS THEN
1941: BSC_MESSAGE.Add(x_message => SQLERRM,
1942: x_source => 'BSC_UPDATE.Get_Last_Stage_Input_Table');
1943: RETURN FALSE;
1944:
1945: END Get_Last_Stage_Input_Table;
1946:
2091:
2092: EXCEPTION
2093: WHEN OTHERS THEN
2094: BSC_MESSAGE.Add(x_message => SQLERRM,
2095: x_source => 'BSC_UPDATE.Get_Process_Id');
2096: RETURN NULL;
2097:
2098: END Get_Process_Id;
2099:
2101: /*===========================================================================+
2102: | FUNCTION Get_Process_Input_Tables
2103: +============================================================================*/
2104: FUNCTION Get_Process_Input_Tables (
2105: x_input_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
2106: x_num_input_tables IN OUT NOCOPY NUMBER,
2107: x_status IN VARCHAR2
2108: ) RETURN BOOLEAN IS
2109:
2139:
2140: EXCEPTION
2141: WHEN OTHERS THEN
2142: BSC_MESSAGE.Add(x_message => SQLERRM,
2143: x_source => 'BSC_UPDATE.Get_Process_Input_Tables');
2144: RETURN FALSE;
2145:
2146: END Get_Process_Input_Tables;
2147:
2163:
2164: EXCEPTION
2165: WHEN OTHERS THEN
2166: BSC_MESSAGE.Add(x_message => SQLERRM,
2167: x_source => 'BSC_UPDATE.Init_Env_Values');
2168: RETURN FALSE;
2169:
2170: END Init_Env_Values;
2171:
2173: /*===========================================================================+
2174: | FUNCTION Import_ITables_From_DBSrc
2175: +============================================================================*/
2176: FUNCTION Import_ITables_From_DBSrc(
2177: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2178: x_num_input_tables IN NUMBER
2179: ) RETURN BOOLEAN IS
2180:
2181: e_unexpected_error EXCEPTION;
2195:
2196: FOR h_i IN 1 .. x_num_input_tables LOOP
2197: h_input_table := x_input_tables(h_i);
2198:
2199: IF NOT BSC_UPDATE_UTIL.Get_Input_Table_Source(h_input_table, h_source_type, h_source_name) THEN
2200: RAISE e_unexpected_error;
2201: END IF;
2202:
2203: IF h_source_type = 4 THEN
2202:
2203: IF h_source_type = 4 THEN
2204: -- Stored procedure
2205:
2206: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_IMPORTING_TO_ITABLE');
2207: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INPUT_TABLE', h_input_table);
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2203: IF h_source_type = 4 THEN
2204: -- Stored procedure
2205:
2206: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_IMPORTING_TO_ITABLE');
2207: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INPUT_TABLE', h_input_table);
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2204: -- Stored procedure
2205:
2206: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_IMPORTING_TO_ITABLE');
2207: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INPUT_TABLE', h_input_table);
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2212: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2206: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_IMPORTING_TO_ITABLE');
2207: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INPUT_TABLE', h_input_table);
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2212: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2213:
2214: -- LOCKING: Lock required objects
2207: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INPUT_TABLE', h_input_table);
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2212: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2213:
2214: -- LOCKING: Lock required objects
2215: IF NOT BSC_UPDATE_LOCK.Lock_Import_ITable(h_input_table) THEN
2208: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2209:
2210: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SOURCE')||
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2212: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2213:
2214: -- LOCKING: Lock required objects
2215: IF NOT BSC_UPDATE_LOCK.Lock_Import_ITable(h_input_table) THEN
2216: RAISE e_could_not_get_lock;
2211: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||h_source_name;
2212: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2213:
2214: -- LOCKING: Lock required objects
2215: IF NOT BSC_UPDATE_LOCK.Lock_Import_ITable(h_input_table) THEN
2216: RAISE e_could_not_get_lock;
2217: END IF;
2218:
2219: -- LOCKING: call the autonomous transaction
2232: EXCEPTION
2233: --LOCKING
2234: WHEN e_could_not_get_lock THEN
2235: BSC_MESSAGE.Add (x_message => 'Loader could not get the required locks to continue.',
2236: x_source => 'BSC_UPDATE.Import_ITables_From_DBSrc');
2237: RETURN FALSE;
2238:
2239: WHEN e_unexpected_error THEN
2240: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_IMPORT_ITABLES_FAILED'),
2236: x_source => 'BSC_UPDATE.Import_ITables_From_DBSrc');
2237: RETURN FALSE;
2238:
2239: WHEN e_unexpected_error THEN
2240: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_IMPORT_ITABLES_FAILED'),
2241: x_source => 'BSC_UPDATE.Import_ITables_From_DBSrc');
2242: RETURN FALSE;
2243:
2244: WHEN OTHERS THEN
2237: RETURN FALSE;
2238:
2239: WHEN e_unexpected_error THEN
2240: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_IMPORT_ITABLES_FAILED'),
2241: x_source => 'BSC_UPDATE.Import_ITables_From_DBSrc');
2242: RETURN FALSE;
2243:
2244: WHEN OTHERS THEN
2245: BSC_MESSAGE.Add (x_message => SQLERRM,
2242: RETURN FALSE;
2243:
2244: WHEN OTHERS THEN
2245: BSC_MESSAGE.Add (x_message => SQLERRM,
2246: x_source => 'BSC_UPDATE.Import_ITables_From_DBSrc');
2247: RETURN FALSE;
2248: END Import_ITables_From_DBSrc;
2249:
2250:
2252: /*===========================================================================+
2253: | FUNCTION Import_ITables_From_DBSrc_AT
2254: +============================================================================*/
2255: FUNCTION Import_ITables_From_DBSrc_AT(
2256: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2257: x_num_input_tables IN NUMBER
2258: ) RETURN BOOLEAN IS
2259: PRAGMA AUTONOMOUS_TRANSACTION;
2260: h_b BOOLEAN;
2301: /*h_procedure := 'PROCEDURE';*/
2302:
2303: -- Delete data from the input table
2304: h_sql := 'DELETE FROM '||x_input_table;
2305: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
2306: COMMIT;
2307:
2308: /*h_stored_proc := UPPER(x_stored_proc);
2309:
2315: IF h_status = 'VALID' THEN*/
2316: -- Execute the stored procedure to populate the input table
2317: BEGIN
2318: h_sql := 'BEGIN '||x_stored_proc||'; END;';
2319: BSC_UPDATE_UTIL.Execute_Immediate(h_sql);
2320:
2321: -- Update the stage of the input table to UPLOADED
2322: IF NOT Update_Stage_Input_Table(x_input_table, LC_UPLOADED_STAGE) THEN
2323: RAISE e_unexpected_error;
2329: IF NOT Update_Status_Input_Table(x_input_table, LC_ERROR_STATUS, LC_UPLOAD_SP_EXECUTION_ERR) THEN
2330: RAISE e_unexpected_error;
2331: END IF;
2332:
2333: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2334: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2335: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
2336: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2337: BSC_UPDATE_LOG.Write_Line_Log(SQLERRM, BSC_UPDATE_LOG.OUTPUT);
2330: RAISE e_unexpected_error;
2331: END IF;
2332:
2333: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2334: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2335: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
2336: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2337: BSC_UPDATE_LOG.Write_Line_Log(SQLERRM, BSC_UPDATE_LOG.OUTPUT);
2338: END;
2331: END IF;
2332:
2333: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2334: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2335: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
2336: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2337: BSC_UPDATE_LOG.Write_Line_Log(SQLERRM, BSC_UPDATE_LOG.OUTPUT);
2338: END;
2339: /*
2332:
2333: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2334: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2335: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
2336: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2337: BSC_UPDATE_LOG.Write_Line_Log(SQLERRM, BSC_UPDATE_LOG.OUTPUT);
2338: END;
2339: /*
2340: ELSE
2333: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2334: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2335: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
2336: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2337: BSC_UPDATE_LOG.Write_Line_Log(SQLERRM, BSC_UPDATE_LOG.OUTPUT);
2338: END;
2339: /*
2340: ELSE
2341: -- Stored procedure is invalid
2342: IF NOT Update_Status_Input_Table(x_input_table, LC_ERROR_STATUS, LC_UPLOAD_SP_INVALID_ERR) THEN
2343: RAISE e_unexpected_error;
2344: END IF;
2345:
2346: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2347: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2348: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
2349: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2350: END IF;
2343: RAISE e_unexpected_error;
2344: END IF;
2345:
2346: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2347: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2348: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
2349: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2350: END IF;
2351: ELSE
2344: END IF;
2345:
2346: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2347: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2348: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
2349: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2350: END IF;
2351: ELSE
2352: -- Stored procedure does not exists
2345:
2346: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2347: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2348: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
2349: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2350: END IF;
2351: ELSE
2352: -- Stored procedure does not exists
2353: IF NOT Update_Status_Input_Table(x_input_table, LC_ERROR_STATUS, LC_UPLOAD_SP_NOT_FOUND_ERR) THEN
2353: IF NOT Update_Status_Input_Table(x_input_table, LC_ERROR_STATUS, LC_UPLOAD_SP_NOT_FOUND_ERR) THEN
2354: RAISE e_unexpected_error;
2355: END IF;
2356:
2357: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2358: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2359: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
2360: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2361: END IF;
2354: RAISE e_unexpected_error;
2355: END IF;
2356:
2357: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2358: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2359: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
2360: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2361: END IF;
2362: CLOSE c_status;
2355: END IF;
2356:
2357: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2358: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2359: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
2360: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2361: END IF;
2362: CLOSE c_status;
2363: */
2356:
2357: h_message := BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'ERROR')||
2358: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||' '||
2359: BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
2360: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2361: END IF;
2362: CLOSE c_status;
2363: */
2364: COMMIT;
2366: RETURN TRUE;
2367:
2368: EXCEPTION
2369: WHEN e_unexpected_error THEN
2370: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_IMPORT_ITABLES_FAILED'),
2371: x_source => 'BSC_UPDATE.Import_ITable_StoredProc');
2372: RETURN FALSE;
2373:
2374: WHEN OTHERS THEN
2367:
2368: EXCEPTION
2369: WHEN e_unexpected_error THEN
2370: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_IMPORT_ITABLES_FAILED'),
2371: x_source => 'BSC_UPDATE.Import_ITable_StoredProc');
2372: RETURN FALSE;
2373:
2374: WHEN OTHERS THEN
2375: BSC_MESSAGE.Add (x_message => SQLERRM,
2372: RETURN FALSE;
2373:
2374: WHEN OTHERS THEN
2375: BSC_MESSAGE.Add (x_message => SQLERRM,
2376: x_source => 'BSC_UPDATE.Import_ITable_StoredProc');
2377: RETURN FALSE;
2378: END Import_ITable_StoredProc;
2379:
2380:
2398: /*===========================================================================+
2399: | FUNCTION Insert_Affected_Tables
2400: +============================================================================*/
2401: FUNCTION Insert_Affected_Tables (
2402: x_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2403: x_num_tables IN NUMBER,
2404: x_affected_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
2405: x_num_affected_tables IN OUT NOCOPY NUMBER
2406: ) RETURN BOOLEAN IS
2400: +============================================================================*/
2401: FUNCTION Insert_Affected_Tables (
2402: x_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2403: x_num_tables IN NUMBER,
2404: x_affected_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
2405: x_num_affected_tables IN OUT NOCOPY NUMBER
2406: ) RETURN BOOLEAN IS
2407:
2408: e_unexpected_error EXCEPTION;
2414: SELECT table_name
2415: FROM bsc_db_tables_rels
2416: WHERE source_table_name = p_source_table_name;
2417:
2418: h_new_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2419: h_num_new_tables NUMBER;
2420:
2421: h_i NUMBER;
2422: h_sql VARCHAR2(32700);
2436: */
2437: OPEN c_tables(x_tables(h_i));
2438: FETCH c_tables INTO h_table_name;
2439: WHILE c_tables%FOUND LOOP
2440: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_table_name, x_affected_tables, x_num_affected_tables) THEN
2441: x_num_affected_tables := x_num_affected_tables + 1;
2442: x_affected_tables(x_num_affected_tables) := h_table_name;
2443:
2444: h_num_new_tables := h_num_new_tables + 1;
2460: RETURN TRUE;
2461:
2462: EXCEPTION
2463: WHEN e_unexpected_error THEN
2464: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_TABLES_INSERT_FAILED'),
2465: x_source => 'BSC_UPDATE.Insert_Affected_Tables');
2466: RETURN FALSE;
2467:
2468: WHEN OTHERS THEN
2461:
2462: EXCEPTION
2463: WHEN e_unexpected_error THEN
2464: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_TABLES_INSERT_FAILED'),
2465: x_source => 'BSC_UPDATE.Insert_Affected_Tables');
2466: RETURN FALSE;
2467:
2468: WHEN OTHERS THEN
2469: BSC_MESSAGE.Add(x_message => SQLERRM,
2466: RETURN FALSE;
2467:
2468: WHEN OTHERS THEN
2469: BSC_MESSAGE.Add(x_message => SQLERRM,
2470: x_source => 'BSC_UPDATE.Insert_Affected_Tables');
2471: RETURN FALSE;
2472:
2473: END Insert_Affected_Tables;
2474:
2476: /*===========================================================================+
2477: | FUNCTION Load_Dim_Input_Tables
2478: +============================================================================*/
2479: FUNCTION Load_Dim_Input_Tables(
2480: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2481: x_num_input_tables IN NUMBER
2482: ) RETURN BOOLEAN IS
2483:
2484: e_unexpected_error EXCEPTION;
2484: e_unexpected_error EXCEPTION;
2485: --LOCKING
2486: e_could_not_get_lock EXCEPTION;
2487:
2488: h_dim_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2489: h_num_dim_tables NUMBER;
2490:
2491: h_loaded_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2492: h_num_loaded_tables NUMBER;
2487:
2488: h_dim_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2489: h_num_dim_tables NUMBER;
2490:
2491: h_loaded_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2492: h_num_loaded_tables NUMBER;
2493:
2494: h_i NUMBER;
2495: h_b BOOLEAN;
2505: h_dim_table_type NUMBER;
2506: h_dim_level_list dbms_sql.varchar2_table;
2507: h_dim_was_loaded BOOLEAN;
2508:
2509: h_input_tables_err_status BSC_UPDATE_UTIL.t_array_of_varchar2;
2510: h_num_input_tables_err_status NUMBER;
2511:
2512: CURSOR c_input_tables_err_status IS
2513: SELECT input_table_name
2518: h_num_dim_tables := 0;
2519: h_num_loaded_tables := 0;
2520: h_num_input_tables_err_status := 0;
2521:
2522: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPD_PROCESS'), BSC_UPDATE_LOG.OUTPUT);
2523:
2524: -- Get input table with status error
2525: OPEN c_input_tables_err_status;
2526: LOOP
2539:
2540: -- Init array h_dim_tables which contains the dimension table corrsponding to input
2541: -- tables in array x_input_tables (same order)
2542: FOR h_i IN 1 .. x_num_input_tables LOOP
2543: h_dim_tables(h_i) := BSC_UPDATE_DIM.Get_Dim_Table_of_Input_Table(x_input_tables(h_i));
2544: END LOOP;
2545: h_num_dim_tables := x_num_input_tables;
2546:
2547: -- Load input tables
2553: WHILE h_num_loaded_tables <> h_num_dim_tables LOOP
2554: FOR h_i IN 1 .. h_num_dim_tables LOOP
2555: h_dim_table := h_dim_tables(h_i);
2556:
2557: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_dim_table,
2558: h_loaded_tables,
2559: h_num_loaded_tables) THEN
2560: -- The table has not been calculated yet
2561:
2577: h_input_table := x_input_tables(h_i);
2578:
2579: --LOCKING: Lock the required objects to process this dimension table
2580: --LOCKING: Remove any commit between this point and the commit to release the locks
2581: IF NOT BSC_UPDATE_LOCK.Lock_Load_Dimension_Table(h_dim_table, h_input_table) THEN
2582: RAISE e_could_not_get_lock;
2583: END IF;
2584:
2585: -- AW_INTEGRATION: init this variable
2584:
2585: -- AW_INTEGRATION: init this variable
2586: h_dim_was_loaded := FALSE;
2587:
2588: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_input_table,
2589: h_input_tables_err_status,
2590: h_num_input_tables_err_status) THEN
2591: -- Input table is ok, there was no error before loading it from stored procedure
2592:
2590: h_num_input_tables_err_status) THEN
2591: -- Input table is ok, there was no error before loading it from stored procedure
2592:
2593: -- Know if the input table is empty or not.
2594: h_table_has_any_row := BSC_UPDATE_UTIL.Table_Has_Any_Row(h_input_table);
2595:
2596: IF h_table_has_any_row IS NULL THEN
2597: RAISE e_unexpected_error;
2598: END IF;
2600: IF h_table_has_any_row THEN
2601: -- Input table has records. The table can be processed
2602:
2603: -- Validate input table
2604: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
2605: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2606: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2607: --LOCKING: call the automous transaction function
2608: h_table_is_valid := BSC_UPDATE_DIM.Validate_Input_Table_AT(h_input_table, h_dim_table);
2601: -- Input table has records. The table can be processed
2602:
2603: -- Validate input table
2604: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
2605: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2606: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2607: --LOCKING: call the automous transaction function
2608: h_table_is_valid := BSC_UPDATE_DIM.Validate_Input_Table_AT(h_input_table, h_dim_table);
2609:
2602:
2603: -- Validate input table
2604: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
2605: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2606: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2607: --LOCKING: call the automous transaction function
2608: h_table_is_valid := BSC_UPDATE_DIM.Validate_Input_Table_AT(h_input_table, h_dim_table);
2609:
2610: IF h_table_is_valid IS NULL THEN
2604: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
2605: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2606: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2607: --LOCKING: call the automous transaction function
2608: h_table_is_valid := BSC_UPDATE_DIM.Validate_Input_Table_AT(h_input_table, h_dim_table);
2609:
2610: IF h_table_is_valid IS NULL THEN
2611: RAISE e_unexpected_error;
2612: END IF;
2612: END IF;
2613:
2614: IF h_table_is_valid THEN
2615: -- Input table doesn't have invalid codes
2616: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
2617: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2618: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2619:
2620: -- Update the stage of the input table to VALIDATED
2613:
2614: IF h_table_is_valid THEN
2615: -- Input table doesn't have invalid codes
2616: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
2617: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2618: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2619:
2620: -- Update the stage of the input table to VALIDATED
2621: IF NOT Update_Stage_Input_Table(h_input_table, LC_VALIDATED_STAGE) THEN
2614: IF h_table_is_valid THEN
2615: -- Input table doesn't have invalid codes
2616: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
2617: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2618: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2619:
2620: -- Update the stage of the input table to VALIDATED
2621: IF NOT Update_Stage_Input_Table(h_input_table, LC_VALIDATED_STAGE) THEN
2622: RAISE e_unexpected_error;
2622: RAISE e_unexpected_error;
2623: END IF;
2624:
2625: -- Load the dimension table
2626: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_DIM_TABLE')||
2627: ' '||h_dim_table, BSC_UPDATE_LOG.OUTPUT);
2628:
2629: --LOCKING: Call the autonomous trnsaction
2630: IF NOT BSC_UPDATE_DIM.Load_Dim_Table_AT(h_dim_table, h_input_table) THEN
2623: END IF;
2624:
2625: -- Load the dimension table
2626: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_DIM_TABLE')||
2627: ' '||h_dim_table, BSC_UPDATE_LOG.OUTPUT);
2628:
2629: --LOCKING: Call the autonomous trnsaction
2630: IF NOT BSC_UPDATE_DIM.Load_Dim_Table_AT(h_dim_table, h_input_table) THEN
2631: RAISE e_unexpected_error;
2626: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_DIM_TABLE')||
2627: ' '||h_dim_table, BSC_UPDATE_LOG.OUTPUT);
2628:
2629: --LOCKING: Call the autonomous trnsaction
2630: IF NOT BSC_UPDATE_DIM.Load_Dim_Table_AT(h_dim_table, h_input_table) THEN
2631: RAISE e_unexpected_error;
2632: END IF;
2633:
2634: -- AW_INTEGRATION: init this variable
2638: IF NOT Update_Stage_Input_Table(h_input_table, LC_COMPLETED_STAGE) THEN
2639: RAISE e_unexpected_error;
2640: END IF;
2641:
2642: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_DIM_TABLE');
2643: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_dim_table);
2644: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2645: ELSE
2646: -- Input table has invalid codes
2639: RAISE e_unexpected_error;
2640: END IF;
2641:
2642: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_DIM_TABLE');
2643: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_dim_table);
2644: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2645: ELSE
2646: -- Input table has invalid codes
2647: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
2640: END IF;
2641:
2642: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_DIM_TABLE');
2643: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_dim_table);
2644: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2645: ELSE
2646: -- Input table has invalid codes
2647: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
2648: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2643: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_dim_table);
2644: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2645: ELSE
2646: -- Input table has invalid codes
2647: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
2648: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2649: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2650:
2651: -- Update the status of input table to ERROR
2644: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2645: ELSE
2646: -- Input table has invalid codes
2647: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
2648: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2649: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2650:
2651: -- Update the status of input table to ERROR
2652: IF NOT Update_Status_Input_Table(h_input_table, LC_ERROR_STATUS, LC_INVALID_CODES_ERR) THEN
2645: ELSE
2646: -- Input table has invalid codes
2647: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
2648: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2649: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2650:
2651: -- Update the status of input table to ERROR
2652: IF NOT Update_Status_Input_Table(h_input_table, LC_ERROR_STATUS, LC_INVALID_CODES_ERR) THEN
2653: RAISE e_unexpected_error;
2656: ELSE
2657: -- Input table doesn't have any record.
2658:
2659: -- The input table cannot be processed because is an empty table
2660: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
2661: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2662: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2663:
2664: -- Update the status of the input table to NO_DATA
2657: -- Input table doesn't have any record.
2658:
2659: -- The input table cannot be processed because is an empty table
2660: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
2661: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2662: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2663:
2664: -- Update the status of the input table to NO_DATA
2665: IF NOT Update_Status_Input_Table(h_input_table, LC_NO_DATA_STATUS, NULL) THEN
2658:
2659: -- The input table cannot be processed because is an empty table
2660: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
2661: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
2662: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
2663:
2664: -- Update the status of the input table to NO_DATA
2665: IF NOT Update_Status_Input_Table(h_input_table, LC_NO_DATA_STATUS, NULL) THEN
2666: RAISE e_unexpected_error;
2669: END IF;
2670:
2671: --AW_INTEGRATION: We need to load the dimension into AW even if the table was not loaded
2672: IF NOT h_dim_was_loaded THEN
2673: h_dim_table_type := BSC_UPDATE_DIM.Get_Dim_Table_Type(h_dim_table);
2674: IF h_dim_table_type = BSC_UPDATE_DIM.DIM_TABLE_TYPE_1N THEN
2675: IF BSC_UPDATE_DIM.Dimension_Used_In_AW_Kpi(h_dim_table) THEN
2676: BSC_UPDATE_LOG.Write_Line_Log('Loading '||h_dim_table||' into AW', BSC_UPDATE_LOG.OUTPUT);
2677: --LOCKING: Call the autonomous transaction procedure
2670:
2671: --AW_INTEGRATION: We need to load the dimension into AW even if the table was not loaded
2672: IF NOT h_dim_was_loaded THEN
2673: h_dim_table_type := BSC_UPDATE_DIM.Get_Dim_Table_Type(h_dim_table);
2674: IF h_dim_table_type = BSC_UPDATE_DIM.DIM_TABLE_TYPE_1N THEN
2675: IF BSC_UPDATE_DIM.Dimension_Used_In_AW_Kpi(h_dim_table) THEN
2676: BSC_UPDATE_LOG.Write_Line_Log('Loading '||h_dim_table||' into AW', BSC_UPDATE_LOG.OUTPUT);
2677: --LOCKING: Call the autonomous transaction procedure
2678: BSC_UPDATE_DIM.Load_Dim_Into_AW_AT(h_dim_table);
2671: --AW_INTEGRATION: We need to load the dimension into AW even if the table was not loaded
2672: IF NOT h_dim_was_loaded THEN
2673: h_dim_table_type := BSC_UPDATE_DIM.Get_Dim_Table_Type(h_dim_table);
2674: IF h_dim_table_type = BSC_UPDATE_DIM.DIM_TABLE_TYPE_1N THEN
2675: IF BSC_UPDATE_DIM.Dimension_Used_In_AW_Kpi(h_dim_table) THEN
2676: BSC_UPDATE_LOG.Write_Line_Log('Loading '||h_dim_table||' into AW', BSC_UPDATE_LOG.OUTPUT);
2677: --LOCKING: Call the autonomous transaction procedure
2678: BSC_UPDATE_DIM.Load_Dim_Into_AW_AT(h_dim_table);
2679: END IF;
2672: IF NOT h_dim_was_loaded THEN
2673: h_dim_table_type := BSC_UPDATE_DIM.Get_Dim_Table_Type(h_dim_table);
2674: IF h_dim_table_type = BSC_UPDATE_DIM.DIM_TABLE_TYPE_1N THEN
2675: IF BSC_UPDATE_DIM.Dimension_Used_In_AW_Kpi(h_dim_table) THEN
2676: BSC_UPDATE_LOG.Write_Line_Log('Loading '||h_dim_table||' into AW', BSC_UPDATE_LOG.OUTPUT);
2677: --LOCKING: Call the autonomous transaction procedure
2678: BSC_UPDATE_DIM.Load_Dim_Into_AW_AT(h_dim_table);
2679: END IF;
2680: END IF;
2674: IF h_dim_table_type = BSC_UPDATE_DIM.DIM_TABLE_TYPE_1N THEN
2675: IF BSC_UPDATE_DIM.Dimension_Used_In_AW_Kpi(h_dim_table) THEN
2676: BSC_UPDATE_LOG.Write_Line_Log('Loading '||h_dim_table||' into AW', BSC_UPDATE_LOG.OUTPUT);
2677: --LOCKING: Call the autonomous transaction procedure
2678: BSC_UPDATE_DIM.Load_Dim_Into_AW_AT(h_dim_table);
2679: END IF;
2680: END IF;
2681: END IF;
2682:
2691: END LOOP;
2692: END LOOP;
2693:
2694: -- Update the date of update process
2695: IF NOT BSC_UPDATE_UTIL.Write_Init_Variable_Value('UPDATE_DATE_DIM', TO_CHAR(SYSDATE, 'DD/MM/YYYY')) THEN
2696: RAISE e_unexpected_error;
2697: END IF;
2698: COMMIT;
2699:
2707: RAISE e_unexpected_error;
2708: END IF;
2709: COMMIT;
2710:
2711: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATED'), BSC_UPDATE_LOG.OUTPUT);
2712:
2713: -- Write indicator with unexisting default dimenision values
2714: IF NOT BSC_UPDATE_DIM.WriteRemovedKeyItems THEN
2715: NULL;
2710:
2711: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATED'), BSC_UPDATE_LOG.OUTPUT);
2712:
2713: -- Write indicator with unexisting default dimenision values
2714: IF NOT BSC_UPDATE_DIM.WriteRemovedKeyItems THEN
2715: NULL;
2716: END IF;
2717:
2718: RETURN TRUE;
2720: --LOCKING
2721: WHEN e_could_not_get_lock THEN
2722: ROLLBACK;
2723: BSC_MESSAGE.Add (x_message => 'Loader could not get the required locks to continue.',
2724: x_source => 'BSC_UPDATE.Load_Dim_Input_Tables');
2725: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
2726: COMMIT;
2727:
2728: RETURN FALSE;
2728: RETURN FALSE;
2729:
2730: WHEN e_unexpected_error THEN
2731: ROLLBACK;
2732: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATE_FAILED'),
2733: x_source => 'BSC_UPDATE.Load_Dim_Input_Tables');
2734: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
2735: COMMIT;
2736:
2729:
2730: WHEN e_unexpected_error THEN
2731: ROLLBACK;
2732: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATE_FAILED'),
2733: x_source => 'BSC_UPDATE.Load_Dim_Input_Tables');
2734: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
2735: COMMIT;
2736:
2737: RETURN FALSE;
2738:
2739: WHEN OTHERS THEN
2740: ROLLBACK;
2741: BSC_MESSAGE.Add (x_message => SQLERRM,
2742: x_source => 'BSC_UPDATE.Load_Dim_Input_Tables');
2743:
2744: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
2745: COMMIT;
2746:
2752: /*===========================================================================+
2753: | FUNCTION Load_Dims_Into_AW
2754: +============================================================================*/
2755: FUNCTION Load_Dims_Into_AW(
2756: x_dim_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2757: x_num_dim_tables IN NUMBER
2758: ) RETURN BOOLEAN IS
2759:
2760: e_unexpected_error EXCEPTION;
2758: ) RETURN BOOLEAN IS
2759:
2760: e_unexpected_error EXCEPTION;
2761:
2762: h_loaded_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2763: h_num_loaded_tables NUMBER;
2764:
2765: h_i NUMBER;
2766: h_b BOOLEAN;
2778: WHILE h_num_loaded_tables <> x_num_dim_tables LOOP
2779: FOR h_i IN 1 .. x_num_dim_tables LOOP
2780: h_dim_table := x_dim_tables(h_i);
2781:
2782: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_dim_table,
2783: h_loaded_tables,
2784: h_num_loaded_tables) THEN
2785: -- The table has not been calculated yet
2786:
2819: RETURN TRUE;
2820: EXCEPTION
2821: WHEN e_unexpected_error THEN
2822: ROLLBACK;
2823: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATE_FAILED'),
2824: x_source => 'BSC_UPDATE.Load_Dims_Into_AW');
2825: RETURN FALSE;
2826:
2827: WHEN OTHERS THEN
2820: EXCEPTION
2821: WHEN e_unexpected_error THEN
2822: ROLLBACK;
2823: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DIMTABLE_UPDATE_FAILED'),
2824: x_source => 'BSC_UPDATE.Load_Dims_Into_AW');
2825: RETURN FALSE;
2826:
2827: WHEN OTHERS THEN
2828: ROLLBACK;
2826:
2827: WHEN OTHERS THEN
2828: ROLLBACK;
2829: BSC_MESSAGE.Add (x_message => SQLERRM,
2830: x_source => 'BSC_UPDATE.Load_Dims_Into_AW');
2831: RETURN FALSE;
2832: END Load_Dims_Into_AW;
2833:
2834:
2847:
2848: EXCEPTION
2849: WHEN OTHERS THEN
2850: BSC_MESSAGE.Add( x_message => SQLERRM
2851: , x_source => 'BSC_UPDATE.Update_Kpis_Prototype_Flag');
2852: RETURN FALSE;
2853: END Update_Kpis_Prototype_Flag;
2854:
2855:
2856: /*===========================================================================+
2857: | FUNCTION Process_Input_Tables
2858: +============================================================================*/
2859: FUNCTION Process_Input_Tables(
2860: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
2861: x_num_input_tables IN NUMBER,
2862: x_start_from IN NUMBER
2863: ) RETURN BOOLEAN IS
2864:
2876: h_last_stage VARCHAR2(1);
2877:
2878: h_base_table VARCHAR2(30);
2879:
2880: h_base_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2881: h_num_base_tables NUMBER;
2882:
2883: h_base_tables_to_color BSC_UPDATE_UTIL.t_array_of_varchar2;
2884:
2879:
2880: h_base_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2881: h_num_base_tables NUMBER;
2882:
2883: h_base_tables_to_color BSC_UPDATE_UTIL.t_array_of_varchar2;
2884:
2885: h_num_base_tables_to_color NUMBER;
2886:
2887: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2883: h_base_tables_to_color BSC_UPDATE_UTIL.t_array_of_varchar2;
2884:
2885: h_num_base_tables_to_color NUMBER;
2886:
2887: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2888: h_num_system_tables NUMBER;
2889:
2890: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2891: h_num_calculated_sys_tables NUMBER;
2886:
2887: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2888: h_num_system_tables NUMBER;
2889:
2890: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2891: h_num_calculated_sys_tables NUMBER;
2892:
2893: h_color_indicators BSC_UPDATE_UTIL.t_array_of_number;
2894: h_num_color_indicators NUMBER;
2889:
2890: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
2891: h_num_calculated_sys_tables NUMBER;
2892:
2893: h_color_indicators BSC_UPDATE_UTIL.t_array_of_number;
2894: h_num_color_indicators NUMBER;
2895:
2896: h_message VARCHAR2(4000);
2897:
2898: h_table_edw_flag NUMBER;
2899:
2900: h_sql VARCHAR2(32000);
2901:
2902: h_kpis BSC_UPDATE_UTIL.t_array_kpis;
2903: h_num_kpis NUMBER;
2904: h_calc_summary_table BOOLEAN;
2905: h_calc_color BOOLEAN;
2906:
2904: h_calc_summary_table BOOLEAN;
2905: h_calc_color BOOLEAN;
2906:
2907: -- AW_INTEGRATION: need these new variables
2908: h_base_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2909: h_num_base_tables_aw NUMBER;
2910: h_system_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2911: h_num_system_tables_aw NUMBER;
2912: h_indicators_aw BSC_UPDATE_UTIL.t_array_of_number;
2906:
2907: -- AW_INTEGRATION: need these new variables
2908: h_base_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2909: h_num_base_tables_aw NUMBER;
2910: h_system_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2911: h_num_system_tables_aw NUMBER;
2912: h_indicators_aw BSC_UPDATE_UTIL.t_array_of_number;
2913: h_num_indicators_aw NUMBER;
2914: h_aw_flag BOOLEAN;
2908: h_base_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2909: h_num_base_tables_aw NUMBER;
2910: h_system_tables_aw BSC_UPDATE_UTIL.t_array_of_varchar2;
2911: h_num_system_tables_aw NUMBER;
2912: h_indicators_aw BSC_UPDATE_UTIL.t_array_of_number;
2913: h_num_indicators_aw NUMBER;
2914: h_aw_flag BOOLEAN;
2915: h_calc_aw_kpi BOOLEAN;
2916: h_kpi_list dbms_sql.varchar2_table;
2928: h_num_base_tables_aw := 0;
2929: h_num_system_tables_aw := 0;
2930: h_num_indicators_aw := 0;
2931:
2932: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPD_PROCESS'), BSC_UPDATE_LOG.OUTPUT);
2933:
2934: -- Create generic temporal tables for the process
2935: --LOCKING: lock the temporary tables
2936: IF NOT BSC_UPDATE_LOCK.Lock_Temp_Tables('DATA') THEN
2932: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPD_PROCESS'), BSC_UPDATE_LOG.OUTPUT);
2933:
2934: -- Create generic temporal tables for the process
2935: --LOCKING: lock the temporary tables
2936: IF NOT BSC_UPDATE_LOCK.Lock_Temp_Tables('DATA') THEN
2937: RAISE e_could_not_get_lock;
2938: END IF;
2939:
2940: --LOCKING: call the autonomous transaction function
2937: RAISE e_could_not_get_lock;
2938: END IF;
2939:
2940: --LOCKING: call the autonomous transaction function
2941: IF NOT BSC_UPDATE_BASE.Create_Generic_Temp_Tables_AT THEN
2942: RAISE e_unexpected_error;
2943: END IF;
2944:
2945: -- ENH_B_TABLES_PERF: create new temporary tables needed in the new strategy
2942: RAISE e_unexpected_error;
2943: END IF;
2944:
2945: -- ENH_B_TABLES_PERF: create new temporary tables needed in the new strategy
2946: IF NOT BSC_UPDATE_BASE_V2.Create_Generic_Temp_Tables_AT THEN
2947: RAISE e_unexpected_error;
2948: END IF;
2949:
2950: --LOCKING: commit to release the locks
2979: END IF;
2980:
2981: -- AW_INTEGRATION: Know if the base table belongs to an AW Kpi
2982: IF BSC_APPS.bsc_mv THEN
2983: h_aw_flag := BSC_UPDATE_UTIL.Is_Table_For_AW_Kpi(h_base_table);
2984: ELSE
2985: h_aw_flag := FALSE;
2986: END IF;
2987:
2985: h_aw_flag := FALSE;
2986: END IF;
2987:
2988: --LOCKING: lock the input table and the base table
2989: IF NOT BSC_UPDATE_LOCK.Lock_Update_Base_Table(h_input_table, h_base_table) THEN
2990: RAISE e_could_not_get_lock;
2991: END IF;
2992:
2993: --LOCKING: review no commit between this point and the commit to release the locks
2992:
2993: --LOCKING: review no commit between this point and the commit to release the locks
2994:
2995: -- Know if the input table is empty or not.
2996: h_table_has_any_row := BSC_UPDATE_UTIL.Table_Has_Any_Row(h_input_table);
2997:
2998: IF h_table_has_any_row IS NULL THEN
2999: RAISE e_unexpected_error;
3000: END IF;
3010: RAISE e_unexpected_error;
3011: END IF;
3012:
3013: -- Validate input table
3014: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
3015: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3016: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3017: --LOCKING: Call the autonomous transaction function
3018: h_table_is_valid := BSC_UPDATE_VAL.Validate_Codes_AT(h_input_table);
3011: END IF;
3012:
3013: -- Validate input table
3014: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
3015: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3016: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3017: --LOCKING: Call the autonomous transaction function
3018: h_table_is_valid := BSC_UPDATE_VAL.Validate_Codes_AT(h_input_table);
3019:
3012:
3013: -- Validate input table
3014: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
3015: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3016: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3017: --LOCKING: Call the autonomous transaction function
3018: h_table_is_valid := BSC_UPDATE_VAL.Validate_Codes_AT(h_input_table);
3019:
3020: IF h_table_is_valid IS NULL THEN
3014: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDATION');
3015: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3016: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3017: --LOCKING: Call the autonomous transaction function
3018: h_table_is_valid := BSC_UPDATE_VAL.Validate_Codes_AT(h_input_table);
3019:
3020: IF h_table_is_valid IS NULL THEN
3021: RAISE e_unexpected_error;
3022: END IF;
3022: END IF;
3023:
3024: IF h_table_is_valid THEN
3025: -- Input table doesn't have invalid codes
3026: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
3027: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3028: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3029:
3030: -- Update the stage of the input table to VALIDATED
3023:
3024: IF h_table_is_valid THEN
3025: -- Input table doesn't have invalid codes
3026: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
3027: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3028: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3029:
3030: -- Update the stage of the input table to VALIDATED
3031: --LOCKING: there is no commit inside this function so we do not need AT
3024: IF h_table_is_valid THEN
3025: -- Input table doesn't have invalid codes
3026: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_NAME_VALIDCONF');
3027: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3028: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3029:
3030: -- Update the stage of the input table to VALIDATED
3031: --LOCKING: there is no commit inside this function so we do not need AT
3032: IF NOT Update_Stage_Input_Table(h_input_table, LC_VALIDATED_STAGE) THEN
3033: RAISE e_unexpected_error;
3034: END IF;
3035:
3036: -- Update the base table
3037: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_BASE_TABLE')||
3038: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3039:
3040: -- ENH_B_TABLES_PERF: If the base table has a projection table then this is a new strategy.
3041: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3034: END IF;
3035:
3036: -- Update the base table
3037: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_BASE_TABLE')||
3038: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3039:
3040: -- ENH_B_TABLES_PERF: If the base table has a projection table then this is a new strategy.
3041: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3042: IF h_proj_tbl_name IS NULL THEN
3037: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_BASE_TABLE')||
3038: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3039:
3040: -- ENH_B_TABLES_PERF: If the base table has a projection table then this is a new strategy.
3041: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3042: IF h_proj_tbl_name IS NULL THEN
3043: -- AW_INTEGRATION: pass h_aw_flag
3044: -- LOCKING: call the autonomous transaction function
3045: IF NOT BSC_UPDATE_BASE.Calculate_Base_Table_AT(h_base_table, h_input_table, FALSE, h_aw_flag) THEN
3041: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3042: IF h_proj_tbl_name IS NULL THEN
3043: -- AW_INTEGRATION: pass h_aw_flag
3044: -- LOCKING: call the autonomous transaction function
3045: IF NOT BSC_UPDATE_BASE.Calculate_Base_Table_AT(h_base_table, h_input_table, FALSE, h_aw_flag) THEN
3046: RAISE e_unexpected_error;
3047: END IF;
3048: ELSE
3049: -- New strategy for better performance.
3046: RAISE e_unexpected_error;
3047: END IF;
3048: ELSE
3049: -- New strategy for better performance.
3050: IF NOT BSC_UPDATE_BASE_V2.Calculate_Base_Table_AT(h_base_table, h_input_table, FALSE, h_aw_flag) THEN
3051: RAISE e_unexpected_error;
3052: END IF;
3053: END IF;
3054:
3082: -- colored.
3083: h_num_base_tables_to_color := h_num_base_tables_to_color + 1;
3084: h_base_tables_to_color(h_num_base_tables_to_color) := h_base_table;
3085:
3086: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3087: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3088: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3089:
3090: --LOCKING: we do not need to call this here. base tables are not used by any kpi
3083: h_num_base_tables_to_color := h_num_base_tables_to_color + 1;
3084: h_base_tables_to_color(h_num_base_tables_to_color) := h_base_table;
3085:
3086: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3087: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3088: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3089:
3090: --LOCKING: we do not need to call this here. base tables are not used by any kpi
3091: -- Update Time Stamp of the indicators using this table directly
3084: h_base_tables_to_color(h_num_base_tables_to_color) := h_base_table;
3085:
3086: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3087: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3088: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3089:
3090: --LOCKING: we do not need to call this here. base tables are not used by any kpi
3091: -- Update Time Stamp of the indicators using this table directly
3092: --BSC_UPDATE_UTIL.Update_Kpi_Table_Time_Stamp(h_base_table);
3088: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3089:
3090: --LOCKING: we do not need to call this here. base tables are not used by any kpi
3091: -- Update Time Stamp of the indicators using this table directly
3092: --BSC_UPDATE_UTIL.Update_Kpi_Table_Time_Stamp(h_base_table);
3093:
3094: ELSE
3095: -- Input table has invalid codes
3096: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
3092: --BSC_UPDATE_UTIL.Update_Kpi_Table_Time_Stamp(h_base_table);
3093:
3094: ELSE
3095: -- Input table has invalid codes
3096: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
3097: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3098: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3099: BSC_UPDATE_LOG.OUTPUT);
3100:
3093:
3094: ELSE
3095: -- Input table has invalid codes
3096: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
3097: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3098: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3099: BSC_UPDATE_LOG.OUTPUT);
3100:
3101: -- Update the status of input table to ERROR
3094: ELSE
3095: -- Input table has invalid codes
3096: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
3097: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3098: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3099: BSC_UPDATE_LOG.OUTPUT);
3100:
3101: -- Update the status of input table to ERROR
3102: --LOCKING: there is no commit inside this function so we do not need AT
3095: -- Input table has invalid codes
3096: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_ITABLE');
3097: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3098: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3099: BSC_UPDATE_LOG.OUTPUT);
3100:
3101: -- Update the status of input table to ERROR
3102: --LOCKING: there is no commit inside this function so we do not need AT
3103: IF NOT Update_Status_Input_Table(h_input_table, LC_ERROR_STATUS, LC_INVALID_CODES_ERR) THEN
3144: IF NOT Update_Status_Input_Table(h_input_table, LC_NO_DATA_STATUS, NULL) THEN
3145: RAISE e_unexpected_error;
3146: END IF;
3147:
3148: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3149: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3150: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3145: RAISE e_unexpected_error;
3146: END IF;
3147:
3148: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3149: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3150: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3153: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
3146: END IF;
3147:
3148: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3149: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3150: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3153: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
3154: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3149: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3150: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3153: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
3154: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3155: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3156:
3157: -- Update the status of the input table to NO_DATA
3150: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3153: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
3154: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3155: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3156:
3157: -- Update the status of the input table to NO_DATA
3158: --LOCKING: there is no commit inside this function so we do not need AT
3151: ELSE
3152: -- The input table cannot be processed because is an empty table
3153: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_MISSING_DATA_ITABLE');
3154: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_input_table);
3155: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3156:
3157: -- Update the status of the input table to NO_DATA
3158: --LOCKING: there is no commit inside this function so we do not need AT
3159: IF NOT Update_Status_Input_Table(h_input_table, LC_NO_DATA_STATUS, NULL) THEN
3182: RAISE e_unexpected_error;
3183: END IF;
3184:
3185: --LOCKING: lock the input table and the base table
3186: IF NOT BSC_UPDATE_LOCK.Lock_Update_Base_Table(x_input_tables(h_i), h_base_table) THEN
3187: RAISE e_could_not_get_lock;
3188: END IF;
3189:
3190: --LOCKING: review no commit between this point and the commit to release the locks
3196: -- are calculated in the base tables and the user could have activated projection
3197: -- so it needs to be calculatated.
3198:
3199: -- Update the base table
3200: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_BASE_TABLE')||
3201: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3202:
3203: -- AW_INTEGRATION: Know if the base table belongs to an AW Kpi
3204: IF BSC_APPS.bsc_mv THEN
3197: -- so it needs to be calculatated.
3198:
3199: -- Update the base table
3200: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_UPDATING_BASE_TABLE')||
3201: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3202:
3203: -- AW_INTEGRATION: Know if the base table belongs to an AW Kpi
3204: IF BSC_APPS.bsc_mv THEN
3205: h_aw_flag := BSC_UPDATE_UTIL.Is_Table_For_AW_Kpi(h_base_table);
3201: ' '||h_base_table, BSC_UPDATE_LOG.OUTPUT);
3202:
3203: -- AW_INTEGRATION: Know if the base table belongs to an AW Kpi
3204: IF BSC_APPS.bsc_mv THEN
3205: h_aw_flag := BSC_UPDATE_UTIL.Is_Table_For_AW_Kpi(h_base_table);
3206: ELSE
3207: h_aw_flag := FALSE;
3208: END IF;
3209:
3207: h_aw_flag := FALSE;
3208: END IF;
3209:
3210: -- ENH_B_TABLES_PERF: If the base table has a projection table then this is a new strategy.
3211: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3212: IF h_proj_tbl_name IS NULL THEN
3213: -- AW_INTEGRATION: pass h_aw_flag
3214: -- LOCKING: call the autonomous transaction function
3215: IF NOT BSC_UPDATE_BASE.Calculate_Base_Table_AT(h_base_table, x_input_tables(h_i), TRUE, h_aw_flag) THEN
3211: h_proj_tbl_name := BSC_UPDATE_BASE_V2.Get_Base_Proj_Tbl_Name(h_base_table);
3212: IF h_proj_tbl_name IS NULL THEN
3213: -- AW_INTEGRATION: pass h_aw_flag
3214: -- LOCKING: call the autonomous transaction function
3215: IF NOT BSC_UPDATE_BASE.Calculate_Base_Table_AT(h_base_table, x_input_tables(h_i), TRUE, h_aw_flag) THEN
3216: RAISE e_unexpected_error;
3217: END IF;
3218: ELSE
3219: -- New strategy for better performance.
3216: RAISE e_unexpected_error;
3217: END IF;
3218: ELSE
3219: -- New strategy for better performance.
3220: IF NOT BSC_UPDATE_BASE_V2.Calculate_Base_Table_AT(h_base_table, x_input_tables(h_i), TRUE, h_aw_flag) THEN
3221: RAISE e_unexpected_error;
3222: END IF;
3223: END IF;
3224:
3221: RAISE e_unexpected_error;
3222: END IF;
3223: END IF;
3224:
3225: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3226: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3227: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3228:
3229: h_num_base_tables := h_num_base_tables + 1;
3222: END IF;
3223: END IF;
3224:
3225: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3226: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3227: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3228:
3229: h_num_base_tables := h_num_base_tables + 1;
3230: h_base_tables(h_num_base_tables) := h_base_table;
3223: END IF;
3224:
3225: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_BASE_TABLE');
3226: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_base_table);
3227: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
3228:
3229: h_num_base_tables := h_num_base_tables + 1;
3230: h_base_tables(h_num_base_tables) := h_base_table;
3231:
3271: END IF;
3272: END IF;
3273:
3274: -- Calculate the system tables
3275: BSC_UPDATE_SUM.g_refreshed_mvs.delete;
3276: BSC_UPDATE_SUM.g_num_refreshed_mvs := 0;
3277:
3278: -- Until all system tables have been calculated
3279: WHILE h_num_calculated_sys_tables <> h_num_system_tables LOOP
3272: END IF;
3273:
3274: -- Calculate the system tables
3275: BSC_UPDATE_SUM.g_refreshed_mvs.delete;
3276: BSC_UPDATE_SUM.g_num_refreshed_mvs := 0;
3277:
3278: -- Until all system tables have been calculated
3279: WHILE h_num_calculated_sys_tables <> h_num_system_tables LOOP
3280: FOR h_i IN 1 .. h_num_system_tables LOOP
3277:
3278: -- Until all system tables have been calculated
3279: WHILE h_num_calculated_sys_tables <> h_num_system_tables LOOP
3280: FOR h_i IN 1 .. h_num_system_tables LOOP
3281: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_system_tables(h_i),
3282: h_calculated_sys_tables,
3283: h_num_calculated_sys_tables) THEN
3284: -- The table has not been calculated yet
3285:
3303: -- If the table is used direclty by a Kpi and the Kpi is in production then we calculate
3304: -- the table.
3305:
3306: -- If the table is not used directly by a Kpi then this fuctions returns 0;
3307: h_num_kpis := BSC_UPDATE_UTIL.Get_Kpis_Using_Table(h_system_tables(h_i), h_kpis);
3308:
3309: IF h_num_kpis = 0 THEN
3310: -- This table is not used directly by any Kpi (T table) so we need to
3311: -- to calculate the table.
3317: h_calc_summary_table := FALSE;
3318: FOR h_i IN 1..h_num_kpis LOOP
3319: IF h_kpis(h_i).prototype_flag IN (0,6,7) THEN
3320: IF g_kpi_mode THEN
3321: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Number(h_kpis(h_i).indicator,
3322: g_indicators,
3323: g_num_indicators) THEN
3324: h_calc_summary_table := TRUE;
3325: EXIT;
3333: END IF;
3334:
3335: IF h_calc_summary_table THEN
3336: -- Calculate the summary (system) table
3337: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALC_PROCESS')||
3338: ' '||h_system_tables(h_i),
3339: BSC_UPDATE_LOG.OUTPUT);
3340:
3341:
3335: IF h_calc_summary_table THEN
3336: -- Calculate the summary (system) table
3337: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALC_PROCESS')||
3338: ' '||h_system_tables(h_i),
3339: BSC_UPDATE_LOG.OUTPUT);
3340:
3341:
3342: -- BSC-MV Note: In new architecture, call Calculate_Sum_Table_MV()
3343: IF BSC_APPS.bsc_mv THEN
3341:
3342: -- BSC-MV Note: In new architecture, call Calculate_Sum_Table_MV()
3343: IF BSC_APPS.bsc_mv THEN
3344: -- AW_INTEGRATION: Know if the table is used in a AW indicator
3345: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_system_tables(h_i),
3346: h_system_tables_aw,
3347: h_num_system_tables_aw) THEN
3348: -- This table is for an AW indicator
3349: --LOCKING: lock the tables needed to refresh this table
3346: h_system_tables_aw,
3347: h_num_system_tables_aw) THEN
3348: -- This table is for an AW indicator
3349: --LOCKING: lock the tables needed to refresh this table
3350: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_AW_Table(h_system_tables(h_i)) THEN
3351: RAISE e_could_not_get_lock;
3352: END IF;
3353:
3354: --LOCKING: call the autonomous transaction function
3351: RAISE e_could_not_get_lock;
3352: END IF;
3353:
3354: --LOCKING: call the autonomous transaction function
3355: IF NOT BSC_UPDATE_SUM.Calculate_Sum_Table_AW_AT(h_system_tables(h_i)) THEN
3356: RAISE e_unexpected_error;
3357: END IF;
3358:
3359: --LOCKING: commit to release locks
3360: COMMIT;
3361: ELSE
3362: -- This table is for a MV indicator
3363: --LOCKING: lock the tables needed to refresh this table
3364: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_MV(h_system_tables(h_i)) THEN
3365: RAISE e_could_not_get_lock;
3366: END IF;
3367:
3368: -- LOCKING: call the autonomous transaction function
3365: RAISE e_could_not_get_lock;
3366: END IF;
3367:
3368: -- LOCKING: call the autonomous transaction function
3369: IF NOT BSC_UPDATE_SUM.Calculate_Sum_Table_MV_AT(h_system_tables(h_i),
3370: h_calculated_sys_tables,
3371: h_num_calculated_sys_tables,
3372: h_system_tables,
3373: h_num_system_tables) THEN
3378: COMMIT;
3379: END IF;
3380: ELSE
3381: --LOCKING: lock the tables needed to refresh this table
3382: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_Sum_Table(h_system_tables(h_i)) THEN
3383: RAISE e_could_not_get_lock;
3384: END IF;
3385:
3386: --LOCKING: call the autonomous transaction function
3383: RAISE e_could_not_get_lock;
3384: END IF;
3385:
3386: --LOCKING: call the autonomous transaction function
3387: IF NOT BSC_UPDATE_SUM.Calculate_Sum_Table_AT(h_system_tables(h_i)) THEN
3388: RAISE e_unexpected_error;
3389: END IF;
3390:
3391: --LOCKING: commit to refresh the locks
3392: COMMIT;
3393: END IF;
3394: COMMIT;
3395:
3396: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALCULATED');
3397: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_system_tables(h_i));
3398: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3399: BSC_UPDATE_LOG.OUTPUT);
3400:
3393: END IF;
3394: COMMIT;
3395:
3396: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALCULATED');
3397: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_system_tables(h_i));
3398: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3399: BSC_UPDATE_LOG.OUTPUT);
3400:
3401: --LOCKING: remove this call
3394: COMMIT;
3395:
3396: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALCULATED');
3397: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_system_tables(h_i));
3398: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3399: BSC_UPDATE_LOG.OUTPUT);
3400:
3401: --LOCKING: remove this call
3402: -- Update Time Stamp of the indicators using this table directly
3395:
3396: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_SUMTABLE_CALCULATED');
3397: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'TABLE_NAME', h_system_tables(h_i));
3398: BSC_UPDATE_LOG.Write_Line_Log(h_message,
3399: BSC_UPDATE_LOG.OUTPUT);
3400:
3401: --LOCKING: remove this call
3402: -- Update Time Stamp of the indicators using this table directly
3403: --LOCKING: Lock the indicator period fo the indicators using this table
3400:
3401: --LOCKING: remove this call
3402: -- Update Time Stamp of the indicators using this table directly
3403: --LOCKING: Lock the indicator period fo the indicators using this table
3404: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicators(h_system_tables(h_i)) THEN
3405: RAISE e_could_not_get_lock;
3406: END IF;
3407:
3408: BSC_UPDATE_UTIL.Update_Kpi_Table_Time_Stamp(h_system_tables(h_i));
3404: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicators(h_system_tables(h_i)) THEN
3405: RAISE e_could_not_get_lock;
3406: END IF;
3407:
3408: BSC_UPDATE_UTIL.Update_Kpi_Table_Time_Stamp(h_system_tables(h_i));
3409:
3410: --LOCKING: commit to release lock
3411: COMMIT;
3412: END IF;
3436: -- are indicators in prototype. We need to check and only color indicators in production mode.
3437: -- Additionally if we are running in KPI_MODE we need to color only indicators
3438: -- that belong to the array g_indicators.
3439: h_calc_aw_kpi := FALSE;
3440: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_indicators_aw(h_i)) THEN
3441: IF g_kpi_mode THEN
3442: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Number(h_indicators_aw(h_i),
3443: g_indicators,
3444: g_num_indicators) THEN
3438: -- that belong to the array g_indicators.
3439: h_calc_aw_kpi := FALSE;
3440: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_indicators_aw(h_i)) THEN
3441: IF g_kpi_mode THEN
3442: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Number(h_indicators_aw(h_i),
3443: g_indicators,
3444: g_num_indicators) THEN
3445: h_calc_aw_kpi := TRUE;
3446: END IF;
3449: END IF;
3450: END IF;
3451:
3452: IF h_calc_aw_kpi THEN
3453: BSC_UPDATE_LOG.Write_Line_log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_IVIEWER', 'REFRESH')||
3454: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
3455: ' '||h_indicators_aw(h_i),
3456: BSC_UPDATE_LOG.OUTPUT);
3457:
3450: END IF;
3451:
3452: IF h_calc_aw_kpi THEN
3453: BSC_UPDATE_LOG.Write_Line_log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_IVIEWER', 'REFRESH')||
3454: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
3455: ' '||h_indicators_aw(h_i),
3456: BSC_UPDATE_LOG.OUTPUT);
3457:
3458: --LOCKING: Lock the objects required to refresh the AW indicator cubes
3452: IF h_calc_aw_kpi THEN
3453: BSC_UPDATE_LOG.Write_Line_log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_IVIEWER', 'REFRESH')||
3454: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
3455: ' '||h_indicators_aw(h_i),
3456: BSC_UPDATE_LOG.OUTPUT);
3457:
3458: --LOCKING: Lock the objects required to refresh the AW indicator cubes
3459: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_AW_Indicator(h_indicators_aw(h_i)) THEN
3460: RAISE e_could_not_get_lock;
3455: ' '||h_indicators_aw(h_i),
3456: BSC_UPDATE_LOG.OUTPUT);
3457:
3458: --LOCKING: Lock the objects required to refresh the AW indicator cubes
3459: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_AW_Indicator(h_indicators_aw(h_i)) THEN
3460: RAISE e_could_not_get_lock;
3461: END IF;
3462:
3463: -- AW_INTEGRATION: Call the aw api to refresh the indicator cubes
3461: END IF;
3462:
3463: -- AW_INTEGRATION: Call the aw api to refresh the indicator cubes
3464: --LOCKING: call the autonomous transaction procedure
3465: BSC_UPDATE_SUM.Refresh_AW_Kpi_AT(h_indicators_aw(h_i));
3466:
3467: --LOCKING: commit to release the locks
3468: COMMIT;
3469: END IF;
3497: END IF;
3498:
3499: IF h_num_color_indicators > 0 THEN
3500: -- LOCKING: Lock temp tables for coloring
3501: IF NOT BSC_UPDATE_LOCK.Lock_Temp_Tables('COLOR') THEN
3502: RAISE e_could_not_get_lock;
3503: END IF;
3504:
3505: -- LOCKING: call the autonomous transaction function
3502: RAISE e_could_not_get_lock;
3503: END IF;
3504:
3505: -- LOCKING: call the autonomous transaction function
3506: IF NOT BSC_UPDATE_COLOR.Create_Temp_Tab_Tables_AT() THEN
3507: RAISE e_unexpected_error;
3508: END IF;
3509:
3510: --LOCKING: Commit to release locks
3515: -- are indicators in prototype. We need to check and only color indicators in production mode.
3516: -- Additionally if we are runnign in KPI_MODE we need to color only indicators
3517: -- that belong to the array g_indicators.
3518: h_calc_color := FALSE;
3519: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_color_indicators(h_i)) THEN
3520: IF g_kpi_mode THEN
3521: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Number(h_color_indicators(h_i),
3522: g_indicators,
3523: g_num_indicators) THEN
3517: -- that belong to the array g_indicators.
3518: h_calc_color := FALSE;
3519: IF BSC_UPDATE_UTIL.Is_Kpi_In_Production(h_color_indicators(h_i)) THEN
3520: IF g_kpi_mode THEN
3521: IF BSC_UPDATE_UTIL.Item_Belong_To_Array_Number(h_color_indicators(h_i),
3522: g_indicators,
3523: g_num_indicators) THEN
3524: h_calc_color := TRUE;
3525: END IF;
3528: END IF;
3529: END IF;
3530:
3531: IF h_calc_color THEN
3532: BSC_UPDATE_LOG.Write_Line_log(BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC')||
3533: ' '||h_color_indicators(h_i),
3534: BSC_UPDATE_LOG.OUTPUT);
3535:
3536: --LOCKING: Calculate indicator period here
3530:
3531: IF h_calc_color THEN
3532: BSC_UPDATE_LOG.Write_Line_log(BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC')||
3533: ' '||h_color_indicators(h_i),
3534: BSC_UPDATE_LOG.OUTPUT);
3535:
3536: --LOCKING: Calculate indicator period here
3537: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicator(h_color_indicators(h_i)) THEN
3538: RAISE e_could_not_get_lock;
3533: ' '||h_color_indicators(h_i),
3534: BSC_UPDATE_LOG.OUTPUT);
3535:
3536: --LOCKING: Calculate indicator period here
3537: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicator(h_color_indicators(h_i)) THEN
3538: RAISE e_could_not_get_lock;
3539: END IF;
3540:
3541: IF NOT Update_Indicator_Period(h_color_indicators(h_i)) THEN
3551: --LOCKING: commit to release lock
3552: COMMIT;
3553:
3554: --LOCKING: Lock indicator color
3555: IF NOT BSC_UPDATE_LOCK.Lock_Color_Indicator(h_color_indicators(h_i)) THEN
3556: RAISE e_could_not_get_lock;
3557: END IF;
3558:
3559: -- LOCKING: Call the autonomous transaction
3556: RAISE e_could_not_get_lock;
3557: END IF;
3558:
3559: -- LOCKING: Call the autonomous transaction
3560: IF NOT BSC_UPDATE_COLOR.Color_Indicator_AT(h_color_indicators(h_i)) THEN
3561: RAISE e_unexpected_error;
3562: END IF;
3563:
3564: -- LOCKING: Commit to release the locks
3563:
3564: -- LOCKING: Commit to release the locks
3565: COMMIT;
3566:
3567: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC_COMPLETED');
3568: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INDICATOR', TO_CHAR(h_color_indicators(h_i)));
3569: BSC_UPDATE_LOG.Write_Line_log(h_message,
3570: BSC_UPDATE_LOG.OUTPUT);
3571:
3564: -- LOCKING: Commit to release the locks
3565: COMMIT;
3566:
3567: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC_COMPLETED');
3568: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INDICATOR', TO_CHAR(h_color_indicators(h_i)));
3569: BSC_UPDATE_LOG.Write_Line_log(h_message,
3570: BSC_UPDATE_LOG.OUTPUT);
3571:
3572: --LOCKING: Lock the update period of the indicator
3565: COMMIT;
3566:
3567: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC_COMPLETED');
3568: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INDICATOR', TO_CHAR(h_color_indicators(h_i)));
3569: BSC_UPDATE_LOG.Write_Line_log(h_message,
3570: BSC_UPDATE_LOG.OUTPUT);
3571:
3572: --LOCKING: Lock the update period of the indicator
3573: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicator(h_color_indicators(h_i)) THEN
3566:
3567: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_COLOR_CALC_COMPLETED');
3568: h_message := BSC_UPDATE_UTIL.Replace_Token(h_message, 'INDICATOR', TO_CHAR(h_color_indicators(h_i)));
3569: BSC_UPDATE_LOG.Write_Line_log(h_message,
3570: BSC_UPDATE_LOG.OUTPUT);
3571:
3572: --LOCKING: Lock the update period of the indicator
3573: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicator(h_color_indicators(h_i)) THEN
3574: RAISE e_could_not_get_lock;
3569: BSC_UPDATE_LOG.Write_Line_log(h_message,
3570: BSC_UPDATE_LOG.OUTPUT);
3571:
3572: --LOCKING: Lock the update period of the indicator
3573: IF NOT BSC_UPDATE_LOCK.Lock_Period_Indicator(h_color_indicators(h_i)) THEN
3574: RAISE e_could_not_get_lock;
3575: END IF;
3576:
3577: -- LOCKING: review not commit between this point and the commit to release the locks
3576:
3577: -- LOCKING: review not commit between this point and the commit to release the locks
3578:
3579: -- Update the name of period of indicator in BSC_KPI_DEFAULTS_TL table
3580: IF NOT BSC_UPDATE_UTIL.Update_Kpi_Period_Name(h_color_indicators(h_i)) THEN
3581: RAISE e_unexpected_error;
3582: END IF;
3583:
3584: -- Update date of indicator
3585: UPDATE bsc_kpi_defaults_b SET last_update_date = SYSDATE
3586: WHERE indicator = h_color_indicators(h_i);
3587:
3588: -- Update kpi time stamp
3589: BSC_UPDATE_UTIL.Update_Kpi_Time_Stamp(h_color_indicators(h_i));
3590:
3591: -- Update Tabs time stamp
3592: BSC_UPDATE_UTIL.Update_Kpi_Tab_Time_Stamp(h_color_indicators(h_i));
3593:
3588: -- Update kpi time stamp
3589: BSC_UPDATE_UTIL.Update_Kpi_Time_Stamp(h_color_indicators(h_i));
3590:
3591: -- Update Tabs time stamp
3592: BSC_UPDATE_UTIL.Update_Kpi_Tab_Time_Stamp(h_color_indicators(h_i));
3593:
3594: --LOCKING: commit to release locks
3595: COMMIT;
3596:
3596:
3597: -- BSC-BIS-DIMENSIONS: Since we can run on indicators with prototype flag 6 or 7
3598: -- we need to update the indicator to prototype flag 0
3599: --LOCKING: lock the prototype flag of the indicator
3600: IF NOT BSC_UPDATE_LOCK.Lock_Prototype_Indicator(h_color_indicators(h_i)) THEN
3601: RAISE e_could_not_get_lock;
3602: END IF;
3603:
3604: UPDATE bsc_kpis_b
3619: END IF;
3620:
3621: -- Update the date of update process
3622: --LOCKING: Lock date of update process
3623: IF NOT BSC_UPDATE_LOCK.Lock_Update_Date THEN
3624: RAISE e_could_not_get_lock;
3625: END IF;
3626:
3627: IF NOT BSC_UPDATE_UTIL.Write_Init_Variable_Value('UPDATE_DATE', TO_CHAR(SYSDATE, 'DD/MM/YYYY')) THEN
3623: IF NOT BSC_UPDATE_LOCK.Lock_Update_Date THEN
3624: RAISE e_could_not_get_lock;
3625: END IF;
3626:
3627: IF NOT BSC_UPDATE_UTIL.Write_Init_Variable_Value('UPDATE_DATE', TO_CHAR(SYSDATE, 'DD/MM/YYYY')) THEN
3628: RAISE e_unexpected_error;
3629: END IF;
3630:
3631: --LOCKING: commit to release lock
3642: END IF;
3643: COMMIT;
3644: END IF;
3645:
3646: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATED'), BSC_UPDATE_LOG.OUTPUT);
3647:
3648: RETURN TRUE;
3649: EXCEPTION
3650: WHEN e_unexpected_error THEN
3648: RETURN TRUE;
3649: EXCEPTION
3650: WHEN e_unexpected_error THEN
3651: ROLLBACK;
3652: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3653: x_source => 'BSC_UPDATE.Process_Input_Tables');
3654: IF x_start_from = 0 THEN
3655: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
3656: COMMIT;
3649: EXCEPTION
3650: WHEN e_unexpected_error THEN
3651: ROLLBACK;
3652: BSC_MESSAGE.Add (x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3653: x_source => 'BSC_UPDATE.Process_Input_Tables');
3654: IF x_start_from = 0 THEN
3655: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
3656: COMMIT;
3657: END IF;
3661: --LOCKING
3662: WHEN e_could_not_get_lock THEN
3663: ROLLBACK;
3664: BSC_MESSAGE.Add (x_message => 'Loader could not get the required locks to continue.',
3665: x_source => 'BSC_UPDATE.Process_Input_Tables');
3666: IF x_start_from = 0 THEN
3667: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
3668: COMMIT;
3669: END IF;
3672:
3673: WHEN OTHERS THEN
3674: ROLLBACK;
3675: BSC_MESSAGE.Add (x_message => SQLERRM,
3676: x_source => 'BSC_UPDATE.Process_Input_Tables');
3677:
3678: IF x_start_from = 0 THEN
3679: h_b := Update_Status_All_Input_Tables(LC_RUNNING_STATUS, LC_ERROR_STATUS, LC_PROGRAM_ERR);
3680: COMMIT;
3688: /*===========================================================================+
3689: | FUNCTION Process_Input_Tables_AT
3690: +============================================================================*/
3691: FUNCTION Process_Input_Tables_AT(
3692: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
3693: x_num_input_tables IN NUMBER,
3694: x_start_from IN NUMBER
3695: ) RETURN BOOLEAN IS
3696: PRAGMA AUTONOMOUS_TRANSACTION;
3705: /*===========================================================================+
3706: | FUNCTION Refresh_System_MVs
3707: +============================================================================*/
3708: FUNCTION Refresh_System_MVs(
3709: p_base_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
3710: p_num_base_tables IN NUMBER
3711: ) RETURN BOOLEAN IS
3712:
3713: e_unexpected_error EXCEPTION;
3713: e_unexpected_error EXCEPTION;
3714: --LOCKING
3715: e_could_not_get_lock EXCEPTION;
3716:
3717: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3718: h_num_system_tables NUMBER;
3719:
3720: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3721: h_num_calculated_sys_tables NUMBER;
3716:
3717: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3718: h_num_system_tables NUMBER;
3719:
3720: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3721: h_num_calculated_sys_tables NUMBER;
3722:
3723: h_refreshed_mvs BSC_UPDATE_UTIL.t_array_of_varchar2;
3724: h_num_refreshed_mvs NUMBER;
3719:
3720: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3721: h_num_calculated_sys_tables NUMBER;
3722:
3723: h_refreshed_mvs BSC_UPDATE_UTIL.t_array_of_varchar2;
3724: h_num_refreshed_mvs NUMBER;
3725:
3726: h_i NUMBER;
3727: h_b BOOLEAN;
3731: e_error_refresh EXCEPTION;
3732: e_error_refresh_zero EXCEPTION;
3733: h_error_refresh VARCHAR2(2000);
3734:
3735: h_kpis BSC_UPDATE_UTIL.t_array_kpis;
3736: h_num_kpis NUMBER;
3737: h_calc_summary_table BOOLEAN;
3738:
3739: BEGIN
3751:
3752: -- Until all MVs have been refreshed
3753: WHILE h_num_calculated_sys_tables <> h_num_system_tables LOOP
3754: FOR h_i IN 1 .. h_num_system_tables LOOP
3755: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_system_tables(h_i),
3756: h_calculated_sys_tables,
3757: h_num_calculated_sys_tables) THEN
3758: -- The table has not been calculated yet
3759:
3773: -- have already been calculated
3774:
3775: -- Fix bug#5023588 Only calculate the MV if it is used by an indicator in production mode
3776: -- If the table is not used directly by a Kpi then this fuctions returns 0;
3777: h_num_kpis := BSC_UPDATE_UTIL.Get_Kpis_Using_Table(h_system_tables(h_i), h_kpis);
3778: IF h_num_kpis > 0 THEN
3779: -- If at least one indicator using the table is in production then we calculate the table.
3780: h_calc_summary_table := FALSE;
3781: FOR i IN 1..h_num_kpis LOOP
3790: -- has data for different periodicities.
3791: -- Note: The api to refresh the MV does not fail if the MV does not exists
3792: -- or if the MV is actually a normal view
3793: mv_name := BSC_BIA_WRAPPER.Get_Sum_Table_MV_Name(h_system_tables(h_i));
3794: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(mv_name,
3795: h_refreshed_mvs,
3796: h_num_refreshed_mvs) THEN
3797:
3798: --LOCKING: Lock the objects required for the mv refresh
3797:
3798: --LOCKING: Lock the objects required for the mv refresh
3799: --LOCKING: review that no commits between this point and the commit to
3800: -- to release the locks
3801: IF NOT BSC_UPDATE_LOCK.Lock_Refresh_MV(h_system_tables(h_i)) THEN
3802: RAISE e_could_not_get_lock;
3803: END IF;
3804:
3805: --LOCKING: call the autonomous transaction function
3808: END IF;
3809:
3810: -- Also refresh the MV created for zero code (if it exists)
3811: --LOCKING: call the autonomous transaction function
3812: IF NOT BSC_UPDATE_SUM.Refresh_Zero_MVs_AT(h_system_tables(h_i),
3813: mv_name, h_error_refresh) THEN
3814: RAISE e_error_refresh_zero;
3815: END IF;
3816:
3838: EXCEPTION
3839: --LOCKING
3840: WHEN e_could_not_get_lock THEN
3841: BSC_MESSAGE.Add(x_message => 'Loader could not get the required locks to continue.',
3842: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3843: RETURN FALSE;
3844:
3845: WHEN e_unexpected_error THEN
3846: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3842: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3843: RETURN FALSE;
3844:
3845: WHEN e_unexpected_error THEN
3846: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3847: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3848: RETURN FALSE;
3849:
3850: WHEN e_error_refresh THEN
3843: RETURN FALSE;
3844:
3845: WHEN e_unexpected_error THEN
3846: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3847: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3848: RETURN FALSE;
3849:
3850: WHEN e_error_refresh THEN
3851: BSC_MESSAGE.Add(x_message => 'BSC_BIA_WRAPPER.Refresh_Summary_MV '||mv_name||' '||h_error_refresh,
3848: RETURN FALSE;
3849:
3850: WHEN e_error_refresh THEN
3851: BSC_MESSAGE.Add(x_message => 'BSC_BIA_WRAPPER.Refresh_Summary_MV '||mv_name||' '||h_error_refresh,
3852: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3853: RETURN FALSE;
3854:
3855: WHEN e_error_refresh_zero THEN
3856: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3852: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3853: RETURN FALSE;
3854:
3855: WHEN e_error_refresh_zero THEN
3856: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3857: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3858: RETURN FALSE;
3859:
3860: WHEN OTHERS THEN
3853: RETURN FALSE;
3854:
3855: WHEN e_error_refresh_zero THEN
3856: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3857: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3858: RETURN FALSE;
3859:
3860: WHEN OTHERS THEN
3861: BSC_MESSAGE.Add(x_message => SQLERRM,
3858: RETURN FALSE;
3859:
3860: WHEN OTHERS THEN
3861: BSC_MESSAGE.Add(x_message => SQLERRM,
3862: x_source => 'BSC_UPDATE.Refresh_System_MVs');
3863: RETURN FALSE;
3864: END Refresh_System_MVs;
3865:
3866:
3868: /*===========================================================================+
3869: | FUNCTION Refresh_System_MVs_Mig
3870: +============================================================================*/
3871: FUNCTION Refresh_System_MVs_Mig(
3872: p_base_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
3873: p_num_base_tables IN NUMBER
3874: ) RETURN BOOLEAN IS
3875:
3876: e_unexpected_error EXCEPTION;
3874: ) RETURN BOOLEAN IS
3875:
3876: e_unexpected_error EXCEPTION;
3877:
3878: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3879: h_num_system_tables NUMBER;
3880:
3881: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3882: h_num_calculated_sys_tables NUMBER;
3877:
3878: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3879: h_num_system_tables NUMBER;
3880:
3881: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3882: h_num_calculated_sys_tables NUMBER;
3883:
3884: h_refreshed_mvs BSC_UPDATE_UTIL.t_array_of_varchar2;
3885: h_num_refreshed_mvs NUMBER;
3880:
3881: h_calculated_sys_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
3882: h_num_calculated_sys_tables NUMBER;
3883:
3884: h_refreshed_mvs BSC_UPDATE_UTIL.t_array_of_varchar2;
3885: h_num_refreshed_mvs NUMBER;
3886:
3887: h_i NUMBER;
3888: h_b BOOLEAN;
3908:
3909: -- Until all MVs have been refreshed
3910: WHILE h_num_calculated_sys_tables <> h_num_system_tables LOOP
3911: FOR h_i IN 1 .. h_num_system_tables LOOP
3912: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(h_system_tables(h_i),
3913: h_calculated_sys_tables,
3914: h_num_calculated_sys_tables) THEN
3915: -- The table has not been calculated yet
3916:
3934: -- has data for different periodicities.
3935: -- Note: The api to refresh the MV does not fail if the MV does not exists
3936: -- or if the MV is actually a normal view
3937: mv_name := BSC_BIA_WRAPPER.Get_Sum_Table_MV_Name(h_system_tables(h_i));
3938: IF NOT BSC_UPDATE_UTIL.Item_Belong_To_Array_Varchar2(mv_name,
3939: h_refreshed_mvs,
3940: h_num_refreshed_mvs) THEN
3941:
3942: IF NOT BSC_BIA_WRAPPER.Refresh_Summary_MV(mv_name, h_error_refresh) THEN
3943: RAISE e_error_refresh;
3944: END IF;
3945:
3946: -- Also refresh the MV created for zero code (if it exists)
3947: IF NOT BSC_UPDATE_SUM.Refresh_Zero_MVs(h_system_tables(h_i),
3948: mv_name, h_error_refresh) THEN
3949: RAISE e_error_refresh_zero;
3950: END IF;
3951:
3968: RETURN TRUE;
3969:
3970: EXCEPTION
3971: WHEN e_unexpected_error THEN
3972: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3973: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3974: RETURN FALSE;
3975:
3976: WHEN e_error_refresh THEN
3969:
3970: EXCEPTION
3971: WHEN e_unexpected_error THEN
3972: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_DATATABLE_UPDATE_FAILED'),
3973: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3974: RETURN FALSE;
3975:
3976: WHEN e_error_refresh THEN
3977: BSC_MESSAGE.Add(x_message => 'BSC_BIA_WRAPPER.Refresh_Summary_MV '||mv_name||' '||h_error_refresh,
3974: RETURN FALSE;
3975:
3976: WHEN e_error_refresh THEN
3977: BSC_MESSAGE.Add(x_message => 'BSC_BIA_WRAPPER.Refresh_Summary_MV '||mv_name||' '||h_error_refresh,
3978: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3979: RETURN FALSE;
3980:
3981: WHEN e_error_refresh_zero THEN
3982: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3978: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3979: RETURN FALSE;
3980:
3981: WHEN e_error_refresh_zero THEN
3982: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3983: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3984: RETURN FALSE;
3985:
3986: WHEN OTHERS THEN
3979: RETURN FALSE;
3980:
3981: WHEN e_error_refresh_zero THEN
3982: BSC_MESSAGE.Add(x_message => 'BSC_UPDATE_SUM.Refresh_Zero_MVs '||mv_name||' '||h_error_refresh,
3983: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3984: RETURN FALSE;
3985:
3986: WHEN OTHERS THEN
3987: BSC_MESSAGE.Add(x_message => SQLERRM,
3984: RETURN FALSE;
3985:
3986: WHEN OTHERS THEN
3987: BSC_MESSAGE.Add(x_message => SQLERRM,
3988: x_source => 'BSC_UPDATE.Refresh_System_MVs_Mig');
3989: RETURN FALSE;
3990: END Refresh_System_MVs_Mig;
3991:
3992:
4058: END IF;
4059:
4060: Execute_Update_Process(TO_NUMBER(x_process_id), x_process_name, x_parameter_1);
4061:
4062: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
4063:
4064: SELECT count(*)
4065: INTO h_count
4066: FROM bsc_message_logs
4091: WHEN e_system_lock THEN
4092: --LOCKING: h_msg_data has the error message
4093: BSC_MESSAGE.Add(
4094: X_Message => h_msg_data,
4095: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4096: X_Mode => 'I'
4097: );
4098:
4099: BSC_UPDATE_LOG.Write_Errors_To_Log;
4095: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4096: X_Mode => 'I'
4097: );
4098:
4099: BSC_UPDATE_LOG.Write_Errors_To_Log;
4100:
4101: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4102: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4103: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4097: );
4098:
4099: BSC_UPDATE_LOG.Write_Errors_To_Log;
4100:
4101: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4102: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4103: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4104: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4105:
4098:
4099: BSC_UPDATE_LOG.Write_Errors_To_Log;
4100:
4101: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4102: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4103: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4104: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4105:
4106: -- LOCKING
4099: BSC_UPDATE_LOG.Write_Errors_To_Log;
4100:
4101: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4102: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4103: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4104: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4105:
4106: -- LOCKING
4107: BSC_LOCKS_PUB.Remove_System_Lock;
4100:
4101: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4102: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4103: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4104: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4105:
4106: -- LOCKING
4107: BSC_LOCKS_PUB.Remove_System_Lock;
4108:
4105:
4106: -- LOCKING
4107: BSC_LOCKS_PUB.Remove_System_Lock;
4108:
4109: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4110: RETCODE := 2; -- Request completed with errors
4111:
4112: WHEN e_update_error THEN
4113: -- LOCKING
4112: WHEN e_update_error THEN
4113: -- LOCKING
4114: BSC_LOCKS_PUB.Remove_System_Lock;
4115:
4116: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4117: RETCODE := 2; -- Request completed with errors
4118:
4119: WHEN e_warning THEN
4120: -- LOCKING
4124: RETCODE := 1; -- Request completed with warning
4125:
4126: WHEN OTHERS THEN
4127: BSC_MESSAGE.Add(x_message => SQLERRM,
4128: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4129: x_mode => 'I');
4130: COMMIT;
4131:
4132: BSC_UPDATE_LOG.Write_Errors_To_Log;
4128: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4129: x_mode => 'I');
4130: COMMIT;
4131:
4132: BSC_UPDATE_LOG.Write_Errors_To_Log;
4133:
4134: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4135: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4136: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4130: COMMIT;
4131:
4132: BSC_UPDATE_LOG.Write_Errors_To_Log;
4133:
4134: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4135: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4136: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4137: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4138:
4131:
4132: BSC_UPDATE_LOG.Write_Errors_To_Log;
4133:
4134: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4135: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4136: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4137: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4138:
4139: -- LOCKING
4132: BSC_UPDATE_LOG.Write_Errors_To_Log;
4133:
4134: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4135: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4136: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4137: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4138:
4139: -- LOCKING
4140: BSC_LOCKS_PUB.Remove_System_Lock;
4133:
4134: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4135: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4136: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4137: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4138:
4139: -- LOCKING
4140: BSC_LOCKS_PUB.Remove_System_Lock;
4141:
4156: Begin
4157: Run_Concurrent_Loader_Apps(ERRBUF,RETCODE,x_process_id,'N');
4158: EXCEPTION when others then
4159: BSC_MESSAGE.Add(x_message => SQLERRM,
4160: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4161: x_mode => 'I');
4162: COMMIT;
4163:
4164: BSC_UPDATE_LOG.Write_Errors_To_Log;
4160: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4161: x_mode => 'I');
4162: COMMIT;
4163:
4164: BSC_UPDATE_LOG.Write_Errors_To_Log;
4165:
4166: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4167: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4168: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4162: COMMIT;
4163:
4164: BSC_UPDATE_LOG.Write_Errors_To_Log;
4165:
4166: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4167: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4168: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4169: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4170:
4163:
4164: BSC_UPDATE_LOG.Write_Errors_To_Log;
4165:
4166: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4167: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4168: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4169: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4170:
4171: ERRBUF := SQLERRM;
4164: BSC_UPDATE_LOG.Write_Errors_To_Log;
4165:
4166: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4167: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4168: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4169: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4170:
4171: ERRBUF := SQLERRM;
4172: RETCODE := 2; -- Request completed with errors
4165:
4166: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4167: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4168: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4169: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4170:
4171: ERRBUF := SQLERRM;
4172: RETCODE := 2; -- Request completed with errors
4173: End;
4190:
4191: h_source VARCHAR2(200);
4192: h_sessionid NUMBER;
4193: --
4194: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
4195: h_num_input_tables NUMBER;
4196: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
4197: h_num_indicators NUMBER;
4198: h_indicator_string varchar2(32000);
4192: h_sessionid NUMBER;
4193: --
4194: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
4195: h_num_input_tables NUMBER;
4196: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
4197: h_num_indicators NUMBER;
4198: h_indicator_string varchar2(32000);
4199: --
4200:
4287:
4288: -- Run loader
4289: Execute_Update_Process(TO_NUMBER(x_process_id), PC_LOADER_PROCESS, NULL);
4290:
4291: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
4292:
4293: /*
4294: h_sql := 'SELECT count(*)'||
4295: ' FROM bsc_message_logs'||
4337: WHEN e_system_lock THEN
4338: --LOCKING: h_msg_data has the error message
4339: BSC_MESSAGE.Add(
4340: X_Message => h_msg_data,
4341: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4342: X_Mode => 'I'
4343: );
4344:
4345: BSC_UPDATE_LOG.Write_Errors_To_Log;
4341: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4342: X_Mode => 'I'
4343: );
4344:
4345: BSC_UPDATE_LOG.Write_Errors_To_Log;
4346:
4347: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4348: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4349: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4343: );
4344:
4345: BSC_UPDATE_LOG.Write_Errors_To_Log;
4346:
4347: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4348: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4349: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4350: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4351:
4344:
4345: BSC_UPDATE_LOG.Write_Errors_To_Log;
4346:
4347: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4348: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4349: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4350: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4351:
4352: -- LOCKING
4345: BSC_UPDATE_LOG.Write_Errors_To_Log;
4346:
4347: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4348: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4349: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4350: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4351:
4352: -- LOCKING
4353: BSC_LOCKS_PUB.Remove_System_Lock;
4346:
4347: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4348: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4349: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4350: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4351:
4352: -- LOCKING
4353: BSC_LOCKS_PUB.Remove_System_Lock;
4354:
4351:
4352: -- LOCKING
4353: BSC_LOCKS_PUB.Remove_System_Lock;
4354:
4355: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4356: RETCODE := 2; -- Request completed with errors
4357:
4358: WHEN e_update_error THEN
4359: -- LOCKING
4358: WHEN e_update_error THEN
4359: -- LOCKING
4360: BSC_LOCKS_PUB.Remove_System_Lock;
4361:
4362: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4363: RETCODE := 2; -- Request completed with errors
4364:
4365: WHEN e_warning THEN
4366: -- LOCKING
4370: RETCODE := 1; -- Request completed with warning
4371:
4372: WHEN OTHERS THEN
4373: BSC_MESSAGE.Add(x_message => SQLERRM,
4374: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4375: x_mode => 'I');
4376: COMMIT;
4377:
4378: BSC_UPDATE_LOG.Write_Errors_To_Log;
4374: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4375: x_mode => 'I');
4376: COMMIT;
4377:
4378: BSC_UPDATE_LOG.Write_Errors_To_Log;
4379:
4380: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4381: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4382: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4376: COMMIT;
4377:
4378: BSC_UPDATE_LOG.Write_Errors_To_Log;
4379:
4380: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4381: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4382: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4383: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4384:
4377:
4378: BSC_UPDATE_LOG.Write_Errors_To_Log;
4379:
4380: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4381: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4382: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4383: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4384:
4385: -- LOCKING
4378: BSC_UPDATE_LOG.Write_Errors_To_Log;
4379:
4380: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4381: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4382: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4383: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4384:
4385: -- LOCKING
4386: BSC_LOCKS_PUB.Remove_System_Lock;
4379:
4380: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4381: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4382: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4383: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4384:
4385: -- LOCKING
4386: BSC_LOCKS_PUB.Remove_System_Lock;
4387:
4459:
4460: -- Run loader
4461: Execute_Update_Process(TO_NUMBER(x_process_id), PC_LOAD_DIMENSIONS, NULL);
4462:
4463: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
4464:
4465: /*
4466: h_sql := 'SELECT count(*)'||
4467: ' FROM bsc_message_logs'||
4509: WHEN e_system_lock THEN
4510: --LOCKING: h_msg_data has the error message
4511: BSC_MESSAGE.Add(
4512: X_Message => h_msg_data,
4513: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4514: X_Mode => 'I'
4515: );
4516:
4517: BSC_UPDATE_LOG.Write_Errors_To_Log;
4513: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4514: X_Mode => 'I'
4515: );
4516:
4517: BSC_UPDATE_LOG.Write_Errors_To_Log;
4518:
4519: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4520: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4521: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4515: );
4516:
4517: BSC_UPDATE_LOG.Write_Errors_To_Log;
4518:
4519: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4520: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4521: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4522: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4523:
4516:
4517: BSC_UPDATE_LOG.Write_Errors_To_Log;
4518:
4519: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4520: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4521: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4522: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4523:
4524: -- LOCKING
4517: BSC_UPDATE_LOG.Write_Errors_To_Log;
4518:
4519: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4520: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4521: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4522: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4523:
4524: -- LOCKING
4525: BSC_LOCKS_PUB.Remove_System_Lock;
4518:
4519: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4520: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4521: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4522: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4523:
4524: -- LOCKING
4525: BSC_LOCKS_PUB.Remove_System_Lock;
4526:
4523:
4524: -- LOCKING
4525: BSC_LOCKS_PUB.Remove_System_Lock;
4526:
4527: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4528: RETCODE := 2; -- Request completed with errors
4529:
4530: WHEN e_update_error THEN
4531: -- LOCKING
4530: WHEN e_update_error THEN
4531: -- LOCKING
4532: BSC_LOCKS_PUB.Remove_System_Lock;
4533:
4534: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4535: RETCODE := 2; -- Request completed with errors
4536:
4537: WHEN e_warning THEN
4538: -- LOCKING
4542: RETCODE := 1; -- Request completed with warning
4543:
4544: WHEN OTHERS THEN
4545: BSC_MESSAGE.Add(x_message => SQLERRM,
4546: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Dim_Apps',
4547: x_mode => 'I');
4548: COMMIT;
4549:
4550: BSC_UPDATE_LOG.Write_Errors_To_Log;
4546: x_source => 'BSC_UPDATE.Run_Concurrent_Loader_Dim_Apps',
4547: x_mode => 'I');
4548: COMMIT;
4549:
4550: BSC_UPDATE_LOG.Write_Errors_To_Log;
4551:
4552: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4553: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4554: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4548: COMMIT;
4549:
4550: BSC_UPDATE_LOG.Write_Errors_To_Log;
4551:
4552: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4553: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4554: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4555: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4556:
4549:
4550: BSC_UPDATE_LOG.Write_Errors_To_Log;
4551:
4552: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4553: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4554: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4555: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4556:
4557: -- LOCKING
4550: BSC_UPDATE_LOG.Write_Errors_To_Log;
4551:
4552: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4553: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4554: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4555: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4556:
4557: -- LOCKING
4558: BSC_LOCKS_PUB.Remove_System_Lock;
4551:
4552: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4553: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4554: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4555: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4556:
4557: -- LOCKING
4558: BSC_LOCKS_PUB.Remove_System_Lock;
4559:
4556:
4557: -- LOCKING
4558: BSC_LOCKS_PUB.Remove_System_Lock;
4559:
4560: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4561: RETCODE := 2; -- Request completed with errors
4562:
4563: END Run_Concurrent_Loader_Dim_Apps;
4564:
4637:
4638: -- Run loader
4639: Execute_Update_Process(TO_NUMBER(x_process_id), PC_YEAR_CHANGE_PROCESS, x_calendars);
4640:
4641: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
4642:
4643: SELECT count(*)
4644: INTO h_count
4645: FROM bsc_message_logs
4656: WHEN e_system_lock THEN
4657: --LOCKING: h_msg_data has the error message
4658: BSC_MESSAGE.Add(
4659: X_Message => h_msg_data,
4660: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4661: X_Mode => 'I'
4662: );
4663:
4664: BSC_UPDATE_LOG.Write_Errors_To_Log;
4660: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4661: X_Mode => 'I'
4662: );
4663:
4664: BSC_UPDATE_LOG.Write_Errors_To_Log;
4665:
4666: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4667: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4668: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4662: );
4663:
4664: BSC_UPDATE_LOG.Write_Errors_To_Log;
4665:
4666: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4667: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4668: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4669: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4670:
4663:
4664: BSC_UPDATE_LOG.Write_Errors_To_Log;
4665:
4666: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4667: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4668: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4669: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4670:
4671: -- LOCKING
4664: BSC_UPDATE_LOG.Write_Errors_To_Log;
4665:
4666: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4667: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4668: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4669: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4670:
4671: -- LOCKING
4672: BSC_LOCKS_PUB.Remove_System_Lock;
4665:
4666: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4667: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4668: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4669: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4670:
4671: -- LOCKING
4672: BSC_LOCKS_PUB.Remove_System_Lock;
4673:
4670:
4671: -- LOCKING
4672: BSC_LOCKS_PUB.Remove_System_Lock;
4673:
4674: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4675: RETCODE := 2; -- Request completed with errors
4676:
4677: WHEN e_update_error THEN
4678: -- LOCKING
4677: WHEN e_update_error THEN
4678: -- LOCKING
4679: BSC_LOCKS_PUB.Remove_System_Lock;
4680:
4681: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4682: RETCODE := 2; -- Request completed with errors
4683:
4684: WHEN OTHERS THEN
4685: BSC_MESSAGE.Add(x_message => SQLERRM,
4682: RETCODE := 2; -- Request completed with errors
4683:
4684: WHEN OTHERS THEN
4685: BSC_MESSAGE.Add(x_message => SQLERRM,
4686: x_source => 'BSC_UPDATE.Run_change_current_year',
4687: x_mode => 'I');
4688: COMMIT;
4689:
4690: BSC_UPDATE_LOG.Write_Errors_To_Log;
4686: x_source => 'BSC_UPDATE.Run_change_current_year',
4687: x_mode => 'I');
4688: COMMIT;
4689:
4690: BSC_UPDATE_LOG.Write_Errors_To_Log;
4691:
4692: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4693: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4694: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4688: COMMIT;
4689:
4690: BSC_UPDATE_LOG.Write_Errors_To_Log;
4691:
4692: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4693: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4694: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4695: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4696:
4689:
4690: BSC_UPDATE_LOG.Write_Errors_To_Log;
4691:
4692: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4693: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4694: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4695: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4696:
4697: -- LOCKING
4690: BSC_UPDATE_LOG.Write_Errors_To_Log;
4691:
4692: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4693: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4694: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4695: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4696:
4697: -- LOCKING
4698: BSC_LOCKS_PUB.Remove_System_Lock;
4691:
4692: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4693: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4694: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4695: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4696:
4697: -- LOCKING
4698: BSC_LOCKS_PUB.Remove_System_Lock;
4699:
4726: h_sql VARCHAR2(32000);
4727:
4728: h_source VARCHAR2(200);
4729:
4730: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
4731: h_num_indicators NUMBER;
4732:
4733: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
4734: h_num_input_tables NUMBER;
4729:
4730: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
4731: h_num_indicators NUMBER;
4732:
4733: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
4734: h_num_input_tables NUMBER;
4735:
4736: h_process_id NUMBER;
4737: h_i NUMBER;
4745: h_msg_count NUMBER;
4746: h_msg_data VARCHAR2(4000);
4747:
4748: -- Bug#4681065
4749: h_prod_indicators BSC_UPDATE_UTIL.t_array_of_number;
4750: h_num_prod_indicators NUMBER;
4751: h_lst_prod_indicators VARCHAR2(32000);
4752: h_first_prot_indic BOOLEAN;
4753: h_indic_name VARCHAR2(2000);
4816: RAISE e_system_lock;
4817: END IF;
4818:
4819: -- Decompose the list in x_parameter_1 into the array h_indicators
4820: h_num_indicators := BSC_UPDATE_UTIL.Decompose_Numeric_List(x_indicators,
4821: h_indicators,
4822: ',');
4823:
4824: IF h_num_indicators = 0 THEN
4828: RETURN;
4829: END IF;
4830:
4831: --Fix bug#3923207: import dbi plans was moved to execute_update_process
4832: --IF NOT BSC_UPDATE_DIM.Import_Dbi_Plans(h_error_msg) THEN
4833: -- RAISE e_import_dbi_plans;
4834: --END IF;
4835:
4836: -- Bug#4681065: we are going to process only indicators in production.
4848: END IF;
4849: h_lst_prod_indicators := h_lst_prod_indicators||h_indicators(h_i);
4850: ELSE
4851: IF h_first_prot_indic THEN
4852: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT'),
4853: BSC_UPDATE_LOG.OUTPUT);
4854: h_first_prot_indic := FALSE;
4855: g_warning := TRUE;
4856: END IF;
4849: h_lst_prod_indicators := h_lst_prod_indicators||h_indicators(h_i);
4850: ELSE
4851: IF h_first_prot_indic THEN
4852: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT'),
4853: BSC_UPDATE_LOG.OUTPUT);
4854: h_first_prot_indic := FALSE;
4855: g_warning := TRUE;
4856: END IF;
4857: BSC_UPDATE_LOG.Write_Line_Log(h_indicators(h_i)||' '||h_indic_name, BSC_UPDATE_LOG.OUTPUT);
4853: BSC_UPDATE_LOG.OUTPUT);
4854: h_first_prot_indic := FALSE;
4855: g_warning := TRUE;
4856: END IF;
4857: BSC_UPDATE_LOG.Write_Line_Log(h_indicators(h_i)||' '||h_indic_name, BSC_UPDATE_LOG.OUTPUT);
4858: END IF;
4859: END LOOP;
4860:
4861: -- Get input tables used for the indicators
4903: Execute_Update_Process(h_process_id, PC_LOADER_PROCESS, h_lst_prod_indicators);
4904:
4905: END IF;
4906:
4907: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
4908:
4909: SELECT count(*)
4910: INTO h_count
4911: FROM bsc_message_logs
4936: WHEN e_system_lock THEN
4937: --LOCKING: h_msg_data has the error message
4938: BSC_MESSAGE.Add(
4939: X_Message => h_msg_data,
4940: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4941: X_Mode => 'I'
4942: );
4943:
4944: BSC_UPDATE_LOG.Write_Errors_To_Log;
4940: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
4941: X_Mode => 'I'
4942: );
4943:
4944: BSC_UPDATE_LOG.Write_Errors_To_Log;
4945:
4946: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4947: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4948: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4942: );
4943:
4944: BSC_UPDATE_LOG.Write_Errors_To_Log;
4945:
4946: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4947: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4948: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4949: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4950:
4943:
4944: BSC_UPDATE_LOG.Write_Errors_To_Log;
4945:
4946: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4947: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4948: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4949: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4950:
4951: -- LOCKING
4944: BSC_UPDATE_LOG.Write_Errors_To_Log;
4945:
4946: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4947: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4948: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4949: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4950:
4951: -- LOCKING
4952: BSC_LOCKS_PUB.Remove_System_Lock;
4945:
4946: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4947: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4948: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4949: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4950:
4951: -- LOCKING
4952: BSC_LOCKS_PUB.Remove_System_Lock;
4953:
4950:
4951: -- LOCKING
4952: BSC_LOCKS_PUB.Remove_System_Lock;
4953:
4954: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4955: RETCODE := 2; -- Request completed with errors
4956:
4957: WHEN e_update_error THEN
4958: -- LOCKING
4957: WHEN e_update_error THEN
4958: -- LOCKING
4959: BSC_LOCKS_PUB.Remove_System_Lock;
4960:
4961: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
4962: RETCODE := 2; -- Request completed with errors
4963:
4964: WHEN e_warning THEN
4965: -- LOCKING
4968: ERRBUF := '';
4969: RETCODE := 1; -- Request completed with warning
4970:
4971: WHEN e_unexpected_error THEN
4972: BSC_UPDATE_LOG.Write_Errors_To_Log;
4973:
4974: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4975: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4976: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4970:
4971: WHEN e_unexpected_error THEN
4972: BSC_UPDATE_LOG.Write_Errors_To_Log;
4973:
4974: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4975: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4976: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4977: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4978:
4971: WHEN e_unexpected_error THEN
4972: BSC_UPDATE_LOG.Write_Errors_To_Log;
4973:
4974: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4975: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4976: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4977: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4978:
4979: -- LOCKING
4972: BSC_UPDATE_LOG.Write_Errors_To_Log;
4973:
4974: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4975: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4976: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4977: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4978:
4979: -- LOCKING
4980: BSC_LOCKS_PUB.Remove_System_Lock;
4973:
4974: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4975: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4976: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4977: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
4978:
4979: -- LOCKING
4980: BSC_LOCKS_PUB.Remove_System_Lock;
4981:
4986: --WHEN e_import_dbi_plans THEN
4987:
4988: WHEN OTHERS THEN
4989: BSC_MESSAGE.Add(x_message => SQLERRM,
4990: x_source => 'BSC_UPDATE.Load_Indicators_Data',
4991: x_mode => 'I');
4992: COMMIT;
4993:
4994: BSC_UPDATE_LOG.Write_Errors_To_Log;
4990: x_source => 'BSC_UPDATE.Load_Indicators_Data',
4991: x_mode => 'I');
4992: COMMIT;
4993:
4994: BSC_UPDATE_LOG.Write_Errors_To_Log;
4995:
4996: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4997: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4998: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4992: COMMIT;
4993:
4994: BSC_UPDATE_LOG.Write_Errors_To_Log;
4995:
4996: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4997: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4998: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4999: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5000:
4993:
4994: BSC_UPDATE_LOG.Write_Errors_To_Log;
4995:
4996: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4997: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4998: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4999: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5000:
5001: -- LOCKING
4994: BSC_UPDATE_LOG.Write_Errors_To_Log;
4995:
4996: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4997: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4998: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4999: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5000:
5001: -- LOCKING
5002: BSC_LOCKS_PUB.Remove_System_Lock;
4995:
4996: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
4997: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
4998: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
4999: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5000:
5001: -- LOCKING
5002: BSC_LOCKS_PUB.Remove_System_Lock;
5003:
5028: h_sql VARCHAR2(32000);
5029:
5030: h_source VARCHAR2(200);
5031:
5032: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
5033: h_num_indicators NUMBER;
5034:
5035: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5036: h_num_input_tables NUMBER;
5031:
5032: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
5033: h_num_indicators NUMBER;
5034:
5035: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5036: h_num_input_tables NUMBER;
5037:
5038: l_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5039: l_num_input_tables NUMBER;
5034:
5035: h_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5036: h_num_input_tables NUMBER;
5037:
5038: l_input_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5039: l_num_input_tables NUMBER;
5040:
5041: h_process_id NUMBER;
5042: h_i NUMBER;
5040:
5041: h_process_id NUMBER;
5042: h_i NUMBER;
5043:
5044: h_dbi_dimensions BSC_UPDATE_UTIL.t_array_of_varchar2;
5045: h_num_dbi_dimensions NUMBER;
5046: h_dbi_dim_requests BSC_UPDATE_UTIL.t_array_of_number;
5047:
5048: --LOCKING: new variables
5042: h_i NUMBER;
5043:
5044: h_dbi_dimensions BSC_UPDATE_UTIL.t_array_of_varchar2;
5045: h_num_dbi_dimensions NUMBER;
5046: h_dbi_dim_requests BSC_UPDATE_UTIL.t_array_of_number;
5047:
5048: --LOCKING: new variables
5049: h_return_status VARCHAR2(10);
5050: h_msg_count NUMBER;
5104: RAISE e_system_lock;
5105: END IF;
5106:
5107: -- Decompose the list in x_parameter_1 into the array h_indicators
5108: h_num_indicators := BSC_UPDATE_UTIL.Decompose_Numeric_List(x_indicators,
5109: h_indicators,
5110: ',');
5111:
5112: IF h_num_indicators = 0 THEN
5134: -- Get short name of the DBI dimensions used by the indicators
5135: -- AW_INTEGRATION: Since we need to bring all the BIS dimensions used by AW indicators into AW world
5136: -- I need to change the next function to return all the BIS dimensions and not only the
5137: -- ones that are materialized in BSC
5138: IF NOT BSC_UPDATE_DIM.Get_Dbi_Dims_Kpis(h_indicators, h_num_indicators, h_dbi_dimensions, h_num_dbi_dimensions) THEN
5139: RAISE e_unexpected_error;
5140: END IF;
5141:
5142: -- Launch a concurrent program to refresh each DBI dim table created in BSC to materialize
5143: -- the DBi dimension view.
5144:
5145: -- Create the global temporary tables needed in this process (one time)
5146: IF h_num_dbi_dimensions > 0 THEN
5147: IF NOT BSC_UPDATE_DIM.Create_Dbi_Dim_Temp_Tables THEN
5148: RAISE e_unexpected_error;
5149: END IF;
5150: -- AW_INTEGRATION: Create temporary tables needed for AW dimension processing
5151: IF NOT BSC_UPDATE_DIM.Create_AW_Dim_Temp_Tables THEN
5147: IF NOT BSC_UPDATE_DIM.Create_Dbi_Dim_Temp_Tables THEN
5148: RAISE e_unexpected_error;
5149: END IF;
5150: -- AW_INTEGRATION: Create temporary tables needed for AW dimension processing
5151: IF NOT BSC_UPDATE_DIM.Create_AW_Dim_Temp_Tables THEN
5152: RAISE e_unexpected_error;
5153: END IF;
5154: END IF;
5155:
5154: END IF;
5155:
5156: h_dbi_dim_requests.delete;
5157: FOR h_i IN 1..h_num_dbi_dimensions LOOP
5158: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_IVIEWER', 'REFRESH')||
5159: ' '||h_dbi_dimensions(h_i), BSC_UPDATE_LOG.OUTPUT);
5160:
5161: h_dbi_dim_requests(h_i) := FND_REQUEST.Submit_Request(application => BSC_APPS.bsc_apps_short_name,
5162: program => 'BSC_REFRESH_DBI_DIM',
5155:
5156: h_dbi_dim_requests.delete;
5157: FOR h_i IN 1..h_num_dbi_dimensions LOOP
5158: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_IVIEWER', 'REFRESH')||
5159: ' '||h_dbi_dimensions(h_i), BSC_UPDATE_LOG.OUTPUT);
5160:
5161: h_dbi_dim_requests(h_i) := FND_REQUEST.Submit_Request(application => BSC_APPS.bsc_apps_short_name,
5162: program => 'BSC_REFRESH_DBI_DIM',
5163: argument1 => h_dbi_dimensions(h_i));
5164:
5165:
5166: IF h_dbi_dim_requests(h_i) = 0 THEN
5167: -- Request error;
5168: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_SUBMMITREQ_FAILED'), BSC_UPDATE_LOG.OUTPUT);
5169: ELSE
5170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_REQ_ID')||
5171: ' '||h_dbi_dim_requests(h_i), BSC_UPDATE_LOG.OUTPUT);
5172: END IF;
5166: IF h_dbi_dim_requests(h_i) = 0 THEN
5167: -- Request error;
5168: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_SUBMMITREQ_FAILED'), BSC_UPDATE_LOG.OUTPUT);
5169: ELSE
5170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_REQ_ID')||
5171: ' '||h_dbi_dim_requests(h_i), BSC_UPDATE_LOG.OUTPUT);
5172: END IF;
5173: COMMIT;
5174: END LOOP;
5167: -- Request error;
5168: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_SUBMMITREQ_FAILED'), BSC_UPDATE_LOG.OUTPUT);
5169: ELSE
5170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_REQ_ID')||
5171: ' '||h_dbi_dim_requests(h_i), BSC_UPDATE_LOG.OUTPUT);
5172: END IF;
5173: COMMIT;
5174: END LOOP;
5175: -- --------------------------------------------------------------------------------
5220: END IF;
5221: END IF;
5222: -- -------------------------------------------------------------------
5223:
5224: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
5225:
5226: SELECT count(*)
5227: INTO h_count
5228: FROM bsc_message_logs
5253: WHEN e_system_lock THEN
5254: --LOCKING: h_msg_data has the error message
5255: BSC_MESSAGE.Add(
5256: X_Message => h_msg_data,
5257: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
5258: X_Mode => 'I'
5259: );
5260:
5261: BSC_UPDATE_LOG.Write_Errors_To_Log;
5257: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
5258: X_Mode => 'I'
5259: );
5260:
5261: BSC_UPDATE_LOG.Write_Errors_To_Log;
5262:
5263: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5264: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5265: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5259: );
5260:
5261: BSC_UPDATE_LOG.Write_Errors_To_Log;
5262:
5263: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5264: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5265: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5266: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5267:
5260:
5261: BSC_UPDATE_LOG.Write_Errors_To_Log;
5262:
5263: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5264: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5265: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5266: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5267:
5268: -- LOCKING
5261: BSC_UPDATE_LOG.Write_Errors_To_Log;
5262:
5263: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5264: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5265: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5266: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5267:
5268: -- LOCKING
5269: BSC_LOCKS_PUB.Remove_System_Lock;
5262:
5263: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5264: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5265: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5266: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5267:
5268: -- LOCKING
5269: BSC_LOCKS_PUB.Remove_System_Lock;
5270:
5267:
5268: -- LOCKING
5269: BSC_LOCKS_PUB.Remove_System_Lock;
5270:
5271: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5272: RETCODE := 2; -- Request completed with errors
5273:
5274: WHEN e_update_error THEN
5275: -- LOCKING
5273:
5274: WHEN e_update_error THEN
5275: -- LOCKING
5276: BSC_LOCKS_PUB.Remove_System_Lock;
5277: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5278: RETCODE := 2; -- Request completed with errors
5279:
5280: WHEN e_warning THEN
5281: -- LOCKING
5283: ERRBUF := '';
5284: RETCODE := 1; -- Request completed with warning
5285:
5286: WHEN e_unexpected_error THEN
5287: BSC_UPDATE_LOG.Write_Errors_To_Log;
5288:
5289: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5290: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5291: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5285:
5286: WHEN e_unexpected_error THEN
5287: BSC_UPDATE_LOG.Write_Errors_To_Log;
5288:
5289: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5290: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5291: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5292: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5293:
5286: WHEN e_unexpected_error THEN
5287: BSC_UPDATE_LOG.Write_Errors_To_Log;
5288:
5289: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5290: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5291: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5292: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5293:
5294: -- LOCKING
5287: BSC_UPDATE_LOG.Write_Errors_To_Log;
5288:
5289: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5290: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5291: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5292: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5293:
5294: -- LOCKING
5295: BSC_LOCKS_PUB.Remove_System_Lock;
5288:
5289: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5290: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5291: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5292: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5293:
5294: -- LOCKING
5295: BSC_LOCKS_PUB.Remove_System_Lock;
5296: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5292: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5293:
5294: -- LOCKING
5295: BSC_LOCKS_PUB.Remove_System_Lock;
5296: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5297: RETCODE := 2; -- Request completed with errors
5298:
5299: WHEN OTHERS THEN
5300: BSC_MESSAGE.Add(x_message => SQLERRM,
5297: RETCODE := 2; -- Request completed with errors
5298:
5299: WHEN OTHERS THEN
5300: BSC_MESSAGE.Add(x_message => SQLERRM,
5301: x_source => 'BSC_UPDATE.Load_Indicators_Dims',
5302: x_mode => 'I');
5303: COMMIT;
5304:
5305: BSC_UPDATE_LOG.Write_Errors_To_Log;
5301: x_source => 'BSC_UPDATE.Load_Indicators_Dims',
5302: x_mode => 'I');
5303: COMMIT;
5304:
5305: BSC_UPDATE_LOG.Write_Errors_To_Log;
5306:
5307: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5308: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5309: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5303: COMMIT;
5304:
5305: BSC_UPDATE_LOG.Write_Errors_To_Log;
5306:
5307: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5308: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5309: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5310: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5311:
5304:
5305: BSC_UPDATE_LOG.Write_Errors_To_Log;
5306:
5307: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5308: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5309: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5310: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5311:
5312: -- LOCKING
5305: BSC_UPDATE_LOG.Write_Errors_To_Log;
5306:
5307: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5308: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5309: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5310: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5311:
5312: -- LOCKING
5313: BSC_LOCKS_PUB.Remove_System_Lock;
5306:
5307: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5308: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5309: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5310: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5311:
5312: -- LOCKING
5313: BSC_LOCKS_PUB.Remove_System_Lock;
5314: ERRBUF := SQLERRM;
5336: h_sql VARCHAR2(32000);
5337:
5338: h_source VARCHAR2(200);
5339:
5340: h_indicators BSC_UPDATE_UTIL.t_array_of_number;
5341: h_num_indicators NUMBER;
5342:
5343: h_process_id NUMBER;
5344: h_i NUMBER;
5404: h_process_id := TO_NUMBER(SUBSTR(x_indicators, 12));
5405: ELSE
5406: -- called from RSG, it is passing a list of indicators
5407: --Decompose the list in x_indicators into the array h_indicators
5408: h_num_indicators := BSC_UPDATE_UTIL.Decompose_Numeric_List(x_indicators,
5409: h_indicators,
5410: ',');
5411:
5412: IF h_num_indicators = 0 THEN
5439:
5440: -- Run loader
5441: Execute_Update_Process(h_process_id, PC_DELETE_KPI_DATA_PROCESS, NULL);
5442:
5443: h_source := 'BSC_UPDATE.EXECUTE_UPDATE_PROCESS';
5444:
5445: SELECT count(*)
5446: INTO h_count
5447: FROM bsc_message_logs
5458: WHEN e_system_lock THEN
5459: --LOCKING: h_msg_data has the error message
5460: BSC_MESSAGE.Add(
5461: X_Message => h_msg_data,
5462: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
5463: X_Mode => 'I'
5464: );
5465:
5466: BSC_UPDATE_LOG.Write_Errors_To_Log;
5462: X_Source => 'BSC_UPDATE.Run_Concurrent_Loader_Apps',
5463: X_Mode => 'I'
5464: );
5465:
5466: BSC_UPDATE_LOG.Write_Errors_To_Log;
5467:
5468: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5469: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5470: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5464: );
5465:
5466: BSC_UPDATE_LOG.Write_Errors_To_Log;
5467:
5468: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5469: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5470: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5471: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5472:
5465:
5466: BSC_UPDATE_LOG.Write_Errors_To_Log;
5467:
5468: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5469: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5470: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5471: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5472:
5473: -- LOCKING
5466: BSC_UPDATE_LOG.Write_Errors_To_Log;
5467:
5468: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5469: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5470: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5471: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5472:
5473: -- LOCKING
5474: BSC_LOCKS_PUB.Remove_System_Lock;
5467:
5468: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5469: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5470: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5471: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5472:
5473: -- LOCKING
5474: BSC_LOCKS_PUB.Remove_System_Lock;
5475:
5472:
5473: -- LOCKING
5474: BSC_LOCKS_PUB.Remove_System_Lock;
5475:
5476: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5477: RETCODE := 2; -- Request completed with errors
5478:
5479: WHEN e_update_error THEN
5480: -- LOCKING
5478:
5479: WHEN e_update_error THEN
5480: -- LOCKING
5481: BSC_LOCKS_PUB.Remove_System_Lock;
5482: ERRBUF := BSC_UPDATE_UTIL.Get_Message('BSC_UPDATE_PROC_FAILED');
5483: RETCODE := 2; -- Request completed with errors
5484:
5485: WHEN OTHERS THEN
5486: BSC_MESSAGE.Add(x_message => SQLERRM,
5483: RETCODE := 2; -- Request completed with errors
5484:
5485: WHEN OTHERS THEN
5486: BSC_MESSAGE.Add(x_message => SQLERRM,
5487: x_source => 'BSC_UPDATE.Delete_Indicators_Data',
5488: x_mode => 'I');
5489: COMMIT;
5490:
5491: BSC_UPDATE_LOG.Write_Errors_To_Log;
5487: x_source => 'BSC_UPDATE.Delete_Indicators_Data',
5488: x_mode => 'I');
5489: COMMIT;
5490:
5491: BSC_UPDATE_LOG.Write_Errors_To_Log;
5492:
5493: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5494: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5495: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5489: COMMIT;
5490:
5491: BSC_UPDATE_LOG.Write_Errors_To_Log;
5492:
5493: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5494: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5495: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5496: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5497:
5490:
5491: BSC_UPDATE_LOG.Write_Errors_To_Log;
5492:
5493: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5494: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5495: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5496: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5497:
5498: -- LOCKING
5491: BSC_UPDATE_LOG.Write_Errors_To_Log;
5492:
5493: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5494: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5495: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5496: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5497:
5498: -- LOCKING
5499: BSC_LOCKS_PUB.Remove_System_Lock;
5492:
5493: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
5494: BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
5495: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time), BSC_UPDATE_LOG.OUTPUT);
5496: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROGRAM_COMPLETED'), BSC_UPDATE_LOG.OUTPUT);
5497:
5498: -- LOCKING
5499: BSC_LOCKS_PUB.Remove_System_Lock;
5500:
5507: /*===========================================================================+
5508: | FUNCTION Get_Input_Tables_Kpis
5509: +============================================================================*/
5510: FUNCTION Get_Input_Tables_Kpis(
5511: x_indicators IN BSC_UPDATE_UTIL.t_array_of_number,
5512: x_num_indicators IN NUMBER,
5513: x_input_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
5514: x_num_input_tables IN OUT NOCOPY NUMBER
5515: ) RETURN BOOLEAN IS
5509: +============================================================================*/
5510: FUNCTION Get_Input_Tables_Kpis(
5511: x_indicators IN BSC_UPDATE_UTIL.t_array_of_number,
5512: x_num_indicators IN NUMBER,
5513: x_input_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
5514: x_num_input_tables IN OUT NOCOPY NUMBER
5515: ) RETURN BOOLEAN IS
5516:
5517: e_unexpected_error EXCEPTION;
5524: h_sql VARCHAR2(32700);
5525:
5526: h_table_name VARCHAR2(50);
5527:
5528: h_system_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5529: h_num_system_tables NUMBER;
5530:
5531: BEGIN
5532: h_where_indics := NULL;
5552: END LOOP;
5553: CLOSE h_cursor;
5554:
5555: -- Insert into the array x_input_tables the input tables from where the system tables are originated.
5556: IF NOT BSC_UPDATE_INC.Get_Input_Tables(x_input_tables, x_num_input_tables, h_system_tables, h_num_system_tables) THEN
5557: RAISE e_unexpected_error;
5558: END IF;
5559:
5560: RETURN TRUE;
5560: RETURN TRUE;
5561:
5562: EXCEPTION
5563: WHEN e_unexpected_error THEN
5564: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5565: x_source => 'BSC_UPDATE.Get_Input_Tables_Kpis');
5566: RETURN FALSE;
5567:
5568: WHEN OTHERS THEN
5561:
5562: EXCEPTION
5563: WHEN e_unexpected_error THEN
5564: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5565: x_source => 'BSC_UPDATE.Get_Input_Tables_Kpis');
5566: RETURN FALSE;
5567:
5568: WHEN OTHERS THEN
5569: BSC_MESSAGE.Add(x_message => SQLERRM,
5566: RETURN FALSE;
5567:
5568: WHEN OTHERS THEN
5569: BSC_MESSAGE.Add(x_message => SQLERRM,
5570: x_source => 'BSC_UPDATE.Get_Input_Tables_Kpis');
5571: RETURN FALSE;
5572:
5573: END Get_Input_Tables_Kpis;
5574:
5572:
5573: END Get_Input_Tables_Kpis;
5574:
5575: function get_kpi_for_input_tables(
5576: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
5577: x_num_input_tables IN NUMBER,
5578: x_indicators IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number,
5579: x_num_indicators IN OUT NOCOPY NUMBER
5580: )return boolean is
5574:
5575: function get_kpi_for_input_tables(
5576: x_input_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
5577: x_num_input_tables IN NUMBER,
5578: x_indicators IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number,
5579: x_num_indicators IN OUT NOCOPY NUMBER
5580: )return boolean is
5581: --
5582: e_unexpected_error exception;
5592: end loop;
5593: return true;
5594: EXCEPTION
5595: WHEN e_unexpected_error THEN
5596: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5597: x_source => 'BSC_UPDATE.get_kpi_for_input_tables');
5598: RETURN FALSE;
5599:
5600: WHEN OTHERS THEN
5593: return true;
5594: EXCEPTION
5595: WHEN e_unexpected_error THEN
5596: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5597: x_source => 'BSC_UPDATE.get_kpi_for_input_tables');
5598: RETURN FALSE;
5599:
5600: WHEN OTHERS THEN
5601: BSC_MESSAGE.Add(x_message => SQLERRM,
5598: RETURN FALSE;
5599:
5600: WHEN OTHERS THEN
5601: BSC_MESSAGE.Add(x_message => SQLERRM,
5602: x_source => 'BSC_UPDATE.get_kpi_for_input_tables');
5603: RETURN FALSE;
5604:
5605: END get_kpi_for_input_tables;
5606:
5606:
5607: --called recursively
5608: function get_kpi_for_input_tables(
5609: x_input_table varchar2,
5610: x_indicators IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number,
5611: x_num_indicators IN OUT NOCOPY NUMBER
5612: )return boolean is
5613: --
5614: cursor c1(p_table varchar2) is select table_name from bsc_db_tables_rels where source_table_name=p_table;
5614: cursor c1(p_table varchar2) is select table_name from bsc_db_tables_rels where source_table_name=p_table;
5615: --
5616: cursor c2(p_table varchar2) is select distinct indicator from bsc_kpi_data_tables where table_name=p_table;
5617: --
5618: l_tables BSC_UPDATE_UTIL.t_array_of_varchar2;
5619: l_num_tables number;
5620: l_indicator number;
5621: --
5622: Begin
5652: END get_kpi_for_input_tables;
5653:
5654: function value_in_array(
5655: x_value number,
5656: x_array BSC_UPDATE_UTIL.t_array_of_number,
5657: x_num_array NUMBER
5658: )return boolean is
5659: Begin
5660: for i in 1..x_num_array loop
5670: /*===========================================================================+
5671: | FUNCTION Get_Dim_Input_Tables_Kpis
5672: +============================================================================*/
5673: FUNCTION Get_Dim_Input_Tables_Kpis(
5674: x_indicators IN BSC_UPDATE_UTIL.t_array_of_number,
5675: x_num_indicators IN NUMBER,
5676: x_input_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
5677: x_num_input_tables IN OUT NOCOPY NUMBER
5678: ) RETURN BOOLEAN IS
5672: +============================================================================*/
5673: FUNCTION Get_Dim_Input_Tables_Kpis(
5674: x_indicators IN BSC_UPDATE_UTIL.t_array_of_number,
5675: x_num_indicators IN NUMBER,
5676: x_input_tables IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_varchar2,
5677: x_num_input_tables IN OUT NOCOPY NUMBER
5678: ) RETURN BOOLEAN IS
5679:
5680: e_unexpected_error EXCEPTION;
5734: RETURN TRUE;
5735:
5736: EXCEPTION
5737: WHEN e_unexpected_error THEN
5738: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5739: x_source => 'BSC_UPDATE.Get_Dim_Input_Tables_Kpis');
5740: RETURN FALSE;
5741:
5742: WHEN OTHERS THEN
5735:
5736: EXCEPTION
5737: WHEN e_unexpected_error THEN
5738: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_RETR_ITABLES_FAILED'),
5739: x_source => 'BSC_UPDATE.Get_Dim_Input_Tables_Kpis');
5740: RETURN FALSE;
5741:
5742: WHEN OTHERS THEN
5743: BSC_MESSAGE.Add(x_message => SQLERRM,
5740: RETURN FALSE;
5741:
5742: WHEN OTHERS THEN
5743: BSC_MESSAGE.Add(x_message => SQLERRM,
5744: x_source => 'BSC_UPDATE.Get_Dim_Input_Tables_Kpis');
5745: RETURN FALSE;
5746:
5747: END Get_Dim_Input_Tables_Kpis;
5748:
5769:
5770: EXCEPTION
5771: WHEN OTHERS THEN
5772: BSC_MESSAGE.Add(x_message => SQLERRM,
5773: x_source => 'BSC_UPDATE.Set_PStatus_Finished');
5774: RETURN FALSE;
5775:
5776: END Set_PStatus_Finished;
5777:
5783:
5784: h_complete_log_file_name VARCHAR2(500);
5785:
5786: BEGIN
5787: IF BSC_UPDATE_LOG.Log_File_Name IS NULL THEN
5788: h_complete_log_file_name := NULL;
5789: ELSE
5790: h_complete_log_file_name := BSC_UPDATE_LOG.Log_File_Dir||'/'||BSC_UPDATE_LOG.Log_File_Name;
5791: END IF;
5786: BEGIN
5787: IF BSC_UPDATE_LOG.Log_File_Name IS NULL THEN
5788: h_complete_log_file_name := NULL;
5789: ELSE
5790: h_complete_log_file_name := BSC_UPDATE_LOG.Log_File_Dir||'/'||BSC_UPDATE_LOG.Log_File_Name;
5791: END IF;
5792:
5793: UPDATE
5794: bsc_db_process_control
5806:
5807: EXCEPTION
5808: WHEN OTHERS THEN
5809: BSC_MESSAGE.Add(x_message => SQLERRM,
5810: x_source => 'BSC_UPDATE.Set_PStatus_Running');
5811: RETURN FALSE;
5812:
5813: END Set_PStatus_Running;
5814:
5844:
5845: EXCEPTION
5846: WHEN OTHERS THEN
5847: BSC_MESSAGE.Add(x_message => SQLERRM,
5848: x_source => 'BSC_UPDATE.Update_Indicator_Period');
5849: RETURN FALSE;
5850:
5851: END Update_Indicator_Period;
5852:
5884:
5885: EXCEPTION
5886: WHEN OTHERS THEN
5887: BSC_MESSAGE.Add(x_message => SQLERRM,
5888: x_source => 'BSC_UPDATE.Update_Indicators_Periods');
5889: RETURN FALSE;
5890:
5891: END Update_Indicators_Periods;
5892:
5911:
5912: EXCEPTION
5913: WHEN OTHERS THEN
5914: BSC_MESSAGE.Add(x_message => SQLERRM,
5915: x_source => 'BSC_UPDATE.Update_Stage_Input_Table');
5916: RETURN FALSE;
5917:
5918: END Update_Stage_Input_Table;
5919:
5967:
5968: EXCEPTION
5969: WHEN OTHERS THEN
5970: BSC_MESSAGE.Add(x_message => SQLERRM,
5971: x_source => 'BSC_UPDATE.Update_Stage_Input_Tables');
5972: RETURN FALSE;
5973:
5974: END Update_Stage_Input_Tables;
5975:
5996:
5997: EXCEPTION
5998: WHEN OTHERS THEN
5999: BSC_MESSAGE.Add(x_message => SQLERRM,
6000: x_source => 'BSC_UPDATE.Update_Status_All_Input_Tables');
6001: RETURN FALSE;
6002:
6003: END Update_Status_All_Input_Tables;
6004:
6025:
6026: EXCEPTION
6027: WHEN OTHERS THEN
6028: BSC_MESSAGE.Add(x_message => SQLERRM,
6029: x_source => 'BSC_UPDATE.Update_Status_Input_Table');
6030: RETURN FALSE;
6031:
6032: END Update_Status_Input_Table;
6033:
6035: /*===========================================================================+
6036: | FUNCTION Wait_For_Requests
6037: +============================================================================*/
6038: FUNCTION Wait_For_Requests(
6039: x_requests IN BSC_UPDATE_UTIL.t_array_of_number,
6040: x_num_requests IN NUMBER
6041: ) RETURN BOOLEAN IS
6042:
6043: h_i NUMBER;
6065:
6066: EXCEPTION
6067: WHEN OTHERS THEN
6068: BSC_MESSAGE.Add(x_message => SQLERRM,
6069: x_source => 'BSC_UPDATE.Wait_For_Requests');
6070: RETURN FALSE;
6071: END Wait_For_Requests;
6072:
6073:
6156: h_periodicity_type NUMBER;
6157:
6158: BEGIN
6159: -- Result
6160: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6157:
6158: BEGIN
6159: -- Result
6160: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6158: BEGIN
6159: -- Result
6160: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6159: -- Result
6160: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6160: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6168: RAISE e_unexpected_error;
6161: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6162: BSC_UPDATE_LOG.OUTPUT);
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6168: RAISE e_unexpected_error;
6169: END IF;
6163: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_PROCESS_RESULT'), BSC_UPDATE_LOG.OUTPUT);
6164: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6165: BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6168: RAISE e_unexpected_error;
6169: END IF;
6170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LAST_UPDATE')||' '||h_update_date, BSC_UPDATE_LOG.OUTPUT);
6171: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6166: -- Get update date
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6168: RAISE e_unexpected_error;
6169: END IF;
6170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LAST_UPDATE')||' '||h_update_date, BSC_UPDATE_LOG.OUTPUT);
6171: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6172:
6173: --OPEN c_status FOR c_status_sql USING g_process_id;
6174: OPEN c_status(g_process_id);
6167: IF NOT BSC_UPDATE_UTIL.Get_Init_Variable_Value('UPDATE_DATE', h_update_date) THEN
6168: RAISE e_unexpected_error;
6169: END IF;
6170: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Message('BSC_LAST_UPDATE')||' '||h_update_date, BSC_UPDATE_LOG.OUTPUT);
6171: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6172:
6173: --OPEN c_status FOR c_status_sql USING g_process_id;
6174: OPEN c_status(g_process_id);
6175: FETCH c_status INTO h_input_table_name, h_status, h_error_code;
6174: OPEN c_status(g_process_id);
6175: FETCH c_status INTO h_input_table_name, h_status, h_error_code;
6176:
6177: IF c_status%FOUND THEN
6178: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6179: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'STATUS'), C_STATUS_W),
6180: BSC_UPDATE_LOG.OUTPUT);
6181: END IF;
6182:
6175: FETCH c_status INTO h_input_table_name, h_status, h_error_code;
6176:
6177: IF c_status%FOUND THEN
6178: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6179: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'STATUS'), C_STATUS_W),
6180: BSC_UPDATE_LOG.OUTPUT);
6181: END IF;
6182:
6183: WHILE c_status%FOUND LOOP
6176:
6177: IF c_status%FOUND THEN
6178: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6179: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'STATUS'), C_STATUS_W),
6180: BSC_UPDATE_LOG.OUTPUT);
6181: END IF;
6182:
6183: WHILE c_status%FOUND LOOP
6184: h_line := RPAD(h_input_table_name, C_TABLE_W);
6182:
6183: WHILE c_status%FOUND LOOP
6184: h_line := RPAD(h_input_table_name, C_TABLE_W);
6185: IF h_status = LC_ERROR_STATUS THEN
6186: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED');
6187:
6188: IF h_error_code = LC_INVALID_CODES_ERR THEN
6189: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_FOUND');
6190: ELSIF h_error_code = LC_PROGRAM_ERR THEN
6185: IF h_status = LC_ERROR_STATUS THEN
6186: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED');
6187:
6188: IF h_error_code = LC_INVALID_CODES_ERR THEN
6189: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_FOUND');
6190: ELSIF h_error_code = LC_PROGRAM_ERR THEN
6191: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_PROC_FAILED');
6192: ELSIF h_error_code = LC_UPLOAD_OPEN_ERR THEN
6193: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_FAILED');
6187:
6188: IF h_error_code = LC_INVALID_CODES_ERR THEN
6189: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_FOUND');
6190: ELSIF h_error_code = LC_PROGRAM_ERR THEN
6191: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_PROC_FAILED');
6192: ELSIF h_error_code = LC_UPLOAD_OPEN_ERR THEN
6193: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_FAILED');
6194: ELSIF h_error_code = LC_UPLOAD_NUM_COLS_ERR THEN
6195: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_FIELDNUMBER_FAILED');
6189: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_CODES_FOUND');
6190: ELSIF h_error_code = LC_PROGRAM_ERR THEN
6191: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_PROC_FAILED');
6192: ELSIF h_error_code = LC_UPLOAD_OPEN_ERR THEN
6193: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_FAILED');
6194: ELSIF h_error_code = LC_UPLOAD_NUM_COLS_ERR THEN
6195: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_FIELDNUMBER_FAILED');
6196: ELSIF h_error_code = LC_UPLOAD_INV_KEY_ERR THEN
6197: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_NULL_KEYVALUES');
6191: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_LOADER_PROC_FAILED');
6192: ELSIF h_error_code = LC_UPLOAD_OPEN_ERR THEN
6193: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_FAILED');
6194: ELSIF h_error_code = LC_UPLOAD_NUM_COLS_ERR THEN
6195: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_FIELDNUMBER_FAILED');
6196: ELSIF h_error_code = LC_UPLOAD_INV_KEY_ERR THEN
6197: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_NULL_KEYVALUES');
6198: ELSIF h_error_code = LC_UPLOAD_INSERT_ERR THEN
6199: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_DATATYPE');
6193: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_FAILED');
6194: ELSIF h_error_code = LC_UPLOAD_NUM_COLS_ERR THEN
6195: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_FIELDNUMBER_FAILED');
6196: ELSIF h_error_code = LC_UPLOAD_INV_KEY_ERR THEN
6197: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_NULL_KEYVALUES');
6198: ELSIF h_error_code = LC_UPLOAD_INSERT_ERR THEN
6199: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_DATATYPE');
6200: ELSIF h_error_code = LC_UPLOAD_NOT_FOUND_ERR THEN
6201: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_NOT_FOUND');
6195: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_FIELDNUMBER_FAILED');
6196: ELSIF h_error_code = LC_UPLOAD_INV_KEY_ERR THEN
6197: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_NULL_KEYVALUES');
6198: ELSIF h_error_code = LC_UPLOAD_INSERT_ERR THEN
6199: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_DATATYPE');
6200: ELSIF h_error_code = LC_UPLOAD_NOT_FOUND_ERR THEN
6201: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_NOT_FOUND');
6202: ELSIF h_error_code = LC_UPLOAD_EXCEL_ERR THEN
6203: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_EXCEL_CONNECTION_FAILED');
6197: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRC_NULL_KEYVALUES');
6198: ELSIF h_error_code = LC_UPLOAD_INSERT_ERR THEN
6199: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_DATATYPE');
6200: ELSIF h_error_code = LC_UPLOAD_NOT_FOUND_ERR THEN
6201: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_NOT_FOUND');
6202: ELSIF h_error_code = LC_UPLOAD_EXCEL_ERR THEN
6203: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_EXCEL_CONNECTION_FAILED');
6204: ELSIF h_error_code = LC_UPLOAD_SP_NOT_FOUND_ERR THEN
6205: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
6199: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_INVALID_DATATYPE');
6200: ELSIF h_error_code = LC_UPLOAD_NOT_FOUND_ERR THEN
6201: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_NOT_FOUND');
6202: ELSIF h_error_code = LC_UPLOAD_EXCEL_ERR THEN
6203: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_EXCEL_CONNECTION_FAILED');
6204: ELSIF h_error_code = LC_UPLOAD_SP_NOT_FOUND_ERR THEN
6205: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
6206: ELSIF h_error_code = LC_UPLOAD_SP_INVALID_ERR THEN
6207: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
6201: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_SRCFILE_NOT_FOUND');
6202: ELSIF h_error_code = LC_UPLOAD_EXCEL_ERR THEN
6203: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_EXCEL_CONNECTION_FAILED');
6204: ELSIF h_error_code = LC_UPLOAD_SP_NOT_FOUND_ERR THEN
6205: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
6206: ELSIF h_error_code = LC_UPLOAD_SP_INVALID_ERR THEN
6207: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
6208: ELSIF h_error_code = LC_UPLOAD_SP_EXECUTION_ERR THEN
6209: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
6203: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_EXCEL_CONNECTION_FAILED');
6204: ELSIF h_error_code = LC_UPLOAD_SP_NOT_FOUND_ERR THEN
6205: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
6206: ELSIF h_error_code = LC_UPLOAD_SP_INVALID_ERR THEN
6207: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
6208: ELSIF h_error_code = LC_UPLOAD_SP_EXECUTION_ERR THEN
6209: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
6210: END IF;
6211:
6205: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_NOT_FOUND');
6206: ELSIF h_error_code = LC_UPLOAD_SP_INVALID_ERR THEN
6207: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_IS_INVALID');
6208: ELSIF h_error_code = LC_UPLOAD_SP_EXECUTION_ERR THEN
6209: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
6210: END IF;
6211:
6212: ELSIF h_status = LC_NO_DATA_STATUS THEN
6213: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED')||' '||
6209: h_line := h_line||' '||BSC_UPDATE_UTIL.Get_Message('BSC_STOREDPROC_FAILED');
6210: END IF;
6211:
6212: ELSIF h_status = LC_NO_DATA_STATUS THEN
6213: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED')||' '||
6214: BSC_UPDATE_UTIL.Get_Message('BSC_ITABLE_EMPTY');
6215: ELSIF h_status = LC_COMPLETED_STATUS THEN
6216: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_STATUS');
6217: END IF;
6210: END IF;
6211:
6212: ELSIF h_status = LC_NO_DATA_STATUS THEN
6213: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED')||' '||
6214: BSC_UPDATE_UTIL.Get_Message('BSC_ITABLE_EMPTY');
6215: ELSIF h_status = LC_COMPLETED_STATUS THEN
6216: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_STATUS');
6217: END IF;
6218:
6212: ELSIF h_status = LC_NO_DATA_STATUS THEN
6213: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_TABLE_UPDATE_FAILED')||' '||
6214: BSC_UPDATE_UTIL.Get_Message('BSC_ITABLE_EMPTY');
6215: ELSIF h_status = LC_COMPLETED_STATUS THEN
6216: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_STATUS');
6217: END IF;
6218:
6219: BSC_UPDATE_LOG.Write_Line_Log(h_line, BSC_UPDATE_LOG.OUTPUT);
6220:
6215: ELSIF h_status = LC_COMPLETED_STATUS THEN
6216: h_line := h_line||BSC_UPDATE_UTIL.Get_Message('BSC_UPDATED_STATUS');
6217: END IF;
6218:
6219: BSC_UPDATE_LOG.Write_Line_Log(h_line, BSC_UPDATE_LOG.OUTPUT);
6220:
6221: FETCH c_status INTO h_input_table_name, h_status, h_error_code;
6222: END LOOP;
6223: CLOSE c_status;
6225: -- Invalid codes
6226: OPEN c_invalid_codes(g_process_id);
6227: FETCH c_invalid_codes INTO h_input_table_name, h_column_name, h_invalid_code;
6228: IF c_invalid_codes%FOUND THEN
6229: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6226: OPEN c_invalid_codes(g_process_id);
6227: FETCH c_invalid_codes INTO h_input_table_name, h_column_name, h_invalid_code;
6228: IF c_invalid_codes%FOUND THEN
6229: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6227: FETCH c_invalid_codes INTO h_input_table_name, h_column_name, h_invalid_code;
6228: IF c_invalid_codes%FOUND THEN
6229: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6228: IF c_invalid_codes%FOUND THEN
6229: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6229: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6230: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6231: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6239: BSC_UPDATE_LOG.OUTPUT);
6232: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_RECORDS'),
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6239: BSC_UPDATE_LOG.OUTPUT);
6240: END IF;
6233: BSC_UPDATE_LOG.OUTPUT);
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6239: BSC_UPDATE_LOG.OUTPUT);
6240: END IF;
6241:
6234: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6239: BSC_UPDATE_LOG.OUTPUT);
6240: END IF;
6241:
6242: WHILE c_invalid_codes%FOUND LOOP
6235: BSC_UPDATE_LOG.OUTPUT);
6236: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_W)||
6237: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'COLUMN'), C_COLUMN_W)||
6238: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INVALID_CODE'), C_INVALID_CODE_W),
6239: BSC_UPDATE_LOG.OUTPUT);
6240: END IF;
6241:
6242: WHILE c_invalid_codes%FOUND LOOP
6243: BSC_UPDATE_LOG.Write_Line_Log(RPAD(h_input_table_name, C_TABLE_W)||
6239: BSC_UPDATE_LOG.OUTPUT);
6240: END IF;
6241:
6242: WHILE c_invalid_codes%FOUND LOOP
6243: BSC_UPDATE_LOG.Write_Line_Log(RPAD(h_input_table_name, C_TABLE_W)||
6244: RPAD(h_column_name, C_COLUMN_W)||
6245: RPAD(h_invalid_code, C_INVALID_CODE_W), BSC_UPDATE_LOG.OUTPUT);
6246: FETCH c_invalid_codes INTO h_input_table_name, h_column_name, h_invalid_code;
6247: END LOOP;
6241:
6242: WHILE c_invalid_codes%FOUND LOOP
6243: BSC_UPDATE_LOG.Write_Line_Log(RPAD(h_input_table_name, C_TABLE_W)||
6244: RPAD(h_column_name, C_COLUMN_W)||
6245: RPAD(h_invalid_code, C_INVALID_CODE_W), BSC_UPDATE_LOG.OUTPUT);
6246: FETCH c_invalid_codes INTO h_input_table_name, h_column_name, h_invalid_code;
6247: END LOOP;
6248: CLOSE c_invalid_codes;
6249:
6249:
6250:
6251: -- Update periods
6252: IF g_process_name = PC_LOADER_PROCESS THEN
6253: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6250:
6251: -- Update periods
6252: IF g_process_name = PC_LOADER_PROCESS THEN
6253: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6251: -- Update periods
6252: IF g_process_name = PC_LOADER_PROCESS THEN
6253: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6252: IF g_process_name = PC_LOADER_PROCESS THEN
6253: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6253: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6254: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6255: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6263: BSC_UPDATE_LOG.OUTPUT);
6256: BSC_UPDATE_LOG.Write_Line_Log(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'TABLE_UPDATE_PERIOD'),
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6263: BSC_UPDATE_LOG.OUTPUT);
6264:
6257: BSC_UPDATE_LOG.OUTPUT);
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6263: BSC_UPDATE_LOG.OUTPUT);
6264:
6265: --OPEN c_tables FOR c_tables_sql USING g_process_id;
6258: BSC_UPDATE_LOG.Write_Line_Log('+---------------------------------------------------------------------------+',
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6263: BSC_UPDATE_LOG.OUTPUT);
6264:
6265: --OPEN c_tables FOR c_tables_sql USING g_process_id;
6266: OPEN c_tables(g_process_id);
6259: BSC_UPDATE_LOG.OUTPUT);
6260: BSC_UPDATE_LOG.Write_Line_Log(RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_BACKEND', 'INPUT_TABLE_NAME'), C_TABLE_NAME_W)||
6261: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIODICITY'), C_PERIODICITY_W)||
6262: RPAD(BSC_UPDATE_UTIL.Get_Lookup_Value('BSC_UI_COMMON', 'PERIOD'), C_PERIOD_W),
6263: BSC_UPDATE_LOG.OUTPUT);
6264:
6265: --OPEN c_tables FOR c_tables_sql USING g_process_id;
6266: OPEN c_tables(g_process_id);
6267: FETCH c_tables INTO h_input_table_name, h_periodicity_id, h_periodicity_name, h_current_period, h_current_subperiod;
6268:
6269: WHILE c_tables%FOUND LOOP
6270: h_line := RPAD(h_input_table_name, C_TABLE_NAME_W)||RPAD(h_periodicity_name, C_PERIODICITY_W)||TO_CHAR(h_current_period);
6271:
6272: h_periodicity_type := BSC_UPDATE_UTIL.Get_Periodicity_Type(h_periodicity_id);
6273:
6274: IF h_periodicity_type = 11 OR h_periodicity_type = 12 THEN
6275: h_line := h_line||', '||TO_CHAR(h_current_subperiod);
6276: END IF;
6274: IF h_periodicity_type = 11 OR h_periodicity_type = 12 THEN
6275: h_line := h_line||', '||TO_CHAR(h_current_subperiod);
6276: END IF;
6277:
6278: BSC_UPDATE_LOG.Write_Line_Log(h_line, BSC_UPDATE_LOG.OUTPUT);
6279:
6280: FETCH c_tables INTO h_input_table_name, h_periodicity_id, h_periodicity_name, h_current_period, h_current_subperiod;
6281: END LOOP;
6282: CLOSE c_tables;
6281: END LOOP;
6282: CLOSE c_tables;
6283: END IF;
6284:
6285: BSC_UPDATE_LOG.Write_Line_Log('', BSC_UPDATE_LOG.OUTPUT);
6286:
6287: RETURN TRUE;
6288:
6289: EXCEPTION
6287: RETURN TRUE;
6288:
6289: EXCEPTION
6290: WHEN e_unexpected_error THEN
6291: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_WR_LOGFILE_RES_FAILED'),
6292: x_source => 'BSC_UPDATE.Write_Result_Log');
6293: RETURN FALSE;
6294:
6295: WHEN OTHERS THEN
6288:
6289: EXCEPTION
6290: WHEN e_unexpected_error THEN
6291: BSC_MESSAGE.Add(x_message => BSC_UPDATE_UTIL.Get_Message('BSC_WR_LOGFILE_RES_FAILED'),
6292: x_source => 'BSC_UPDATE.Write_Result_Log');
6293: RETURN FALSE;
6294:
6295: WHEN OTHERS THEN
6296: BSC_MESSAGE.Add(x_message => SQLERRM,
6293: RETURN FALSE;
6294:
6295: WHEN OTHERS THEN
6296: BSC_MESSAGE.Add(x_message => SQLERRM,
6297: x_source => 'BSC_UPDATE.Write_Result_Log');
6298: RETURN FALSE;
6299:
6300: END Write_Result_Log;
6301:
6301:
6302: /*===========================================================================+
6303: | FUNCTION Get_Indicator_List
6304: +============================================================================*/
6305: FUNCTION Get_Indicator_List(x_number_array IN OUT NOCOPY BSC_UPDATE_UTIL.t_array_of_number)
6306: RETURN NUMBER IS
6307: CURSOR cIndics is
6308: SELECT value_n
6309: FROM BSC_TMP_BIG_IN_COND
6329: /*===========================================================================+
6330: | PROCEDURE Write_Warning_Kpis_In_Prot
6331: +============================================================================*/
6332: PROCEDURE Write_Warning_Kpis_In_Prot (
6333: x_system_tables IN BSC_UPDATE_UTIL.t_array_of_varchar2,
6334: x_num_system_tables IN NUMBER
6335: ) IS
6336:
6337: h_where_cond VARCHAR2(32700);
6359: FETCH h_cursor INTO h_kpi, h_name;
6360: EXIT WHEN h_cursor%NOTFOUND;
6361:
6362: IF h_i = 0 THEN
6363: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6364: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6365: h_i := 1;
6366: END IF;
6367: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6360: EXIT WHEN h_cursor%NOTFOUND;
6361:
6362: IF h_i = 0 THEN
6363: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6364: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6365: h_i := 1;
6366: END IF;
6367: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6368: g_warning := TRUE;
6363: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6364: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6365: h_i := 1;
6366: END IF;
6367: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6368: g_warning := TRUE;
6369: END LOOP;
6370: CLOSE h_cursor;
6371: ELSE
6387: FETCH h_cursor INTO h_kpi, h_name;
6388: EXIT WHEN h_cursor%NOTFOUND;
6389:
6390: IF h_i = 0 THEN
6391: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6392: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6393: h_i := 1;
6394: END IF;
6395: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6388: EXIT WHEN h_cursor%NOTFOUND;
6389:
6390: IF h_i = 0 THEN
6391: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6392: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6393: h_i := 1;
6394: END IF;
6395: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6396: g_warning := TRUE;
6391: h_message := BSC_UPDATE_UTIL.Get_Message('BSC_CANNOT_LOAD_OBJS_IN_PROT');
6392: BSC_UPDATE_LOG.Write_Line_Log(h_message, BSC_UPDATE_LOG.OUTPUT);
6393: h_i := 1;
6394: END IF;
6395: BSC_UPDATE_LOG.Write_Line_Log(h_kpi||' '||h_name, BSC_UPDATE_LOG.OUTPUT);
6396: g_warning := TRUE;
6397: END LOOP;
6398: CLOSE h_cursor;
6399: END IF;
6399: END IF;
6400: END Write_Warning_Kpis_In_Prot;
6401:
6402:
6403: END BSC_UPDATE;