[Home] [Help]
758: IF NOT set_default_color_rollup(x_error_msg) THEN
759: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
760: END IF;
761:
762: -- Set BSC_KPIS_B.PROTOTYPE_COLOR to BSC_SYS_COLORS_B.COLOR_ID instead of G,Y,R,X
763: IF NOT set_obj_prototype_color(x_error_msg) THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
913: BEGIN
914: FOR c_init_colors IN c_sys_init_color LOOP
915: BEGIN
916: IF (c_init_colors.property_code = 'LGREEN_COLOR') THEN
917: UPDATE bsc_sys_colors_b
918: SET user_forecast_color = c_init_colors.property_value,
919: last_update_date = SYSDATE,
920: last_updated_by = FND_GLOBAL.USER_ID
921: WHERE perf_sequence = (SELECT
918: SET user_forecast_color = c_init_colors.property_value,
919: last_update_date = SYSDATE,
920: last_updated_by = FND_GLOBAL.USER_ID
921: WHERE perf_sequence = (SELECT
922: MIN(perf_sequence) FROM bsc_sys_colors_b);
923: ELSIF (c_init_colors.property_code = 'GREEN_COLOR') THEN
924: UPDATE bsc_sys_colors_b
925: SET user_color = c_init_colors.property_value,
926: last_update_date = SYSDATE,
920: last_updated_by = FND_GLOBAL.USER_ID
921: WHERE perf_sequence = (SELECT
922: MIN(perf_sequence) FROM bsc_sys_colors_b);
923: ELSIF (c_init_colors.property_code = 'GREEN_COLOR') THEN
924: UPDATE bsc_sys_colors_b
925: SET user_color = c_init_colors.property_value,
926: last_update_date = SYSDATE,
927: last_updated_by = FND_GLOBAL.USER_ID
928: WHERE perf_sequence = (SELECT
925: SET user_color = c_init_colors.property_value,
926: last_update_date = SYSDATE,
927: last_updated_by = FND_GLOBAL.USER_ID
928: WHERE perf_sequence = (SELECT
929: MIN(perf_sequence) FROM bsc_sys_colors_b);
930: ELSIF (c_init_colors.property_code = 'LYELLOW_COLOR') THEN
931: UPDATE bsc_sys_colors_b
932: SET user_forecast_color = c_init_colors.property_value,
933: last_update_date = SYSDATE,
927: last_updated_by = FND_GLOBAL.USER_ID
928: WHERE perf_sequence = (SELECT
929: MIN(perf_sequence) FROM bsc_sys_colors_b);
930: ELSIF (c_init_colors.property_code = 'LYELLOW_COLOR') THEN
931: UPDATE bsc_sys_colors_b
932: SET user_forecast_color = c_init_colors.property_value,
933: last_update_date = SYSDATE,
934: last_updated_by = FND_GLOBAL.USER_ID
935: WHERE short_name = 'AVERAGE_COLOR';
933: last_update_date = SYSDATE,
934: last_updated_by = FND_GLOBAL.USER_ID
935: WHERE short_name = 'AVERAGE_COLOR';
936: ELSIF (c_init_colors.property_code = 'YELLOW_COLOR') THEN
937: UPDATE bsc_sys_colors_b
938: SET user_color = c_init_colors.property_value,
939: last_update_date = SYSDATE,
940: last_updated_by = FND_GLOBAL.USER_ID
941: WHERE short_name = 'AVERAGE_COLOR';
939: last_update_date = SYSDATE,
940: last_updated_by = FND_GLOBAL.USER_ID
941: WHERE short_name = 'AVERAGE_COLOR';
942: ELSIF (c_init_colors.property_code = 'LRED_COLOR') THEN
943: UPDATE bsc_sys_colors_b
944: SET user_forecast_color = c_init_colors.property_value,
945: last_update_date = SYSDATE,
946: last_updated_by = FND_GLOBAL.USER_ID
947: WHERE perf_sequence = (SELECT
944: SET user_forecast_color = c_init_colors.property_value,
945: last_update_date = SYSDATE,
946: last_updated_by = FND_GLOBAL.USER_ID
947: WHERE perf_sequence = (SELECT
948: MAX(perf_sequence) FROM bsc_sys_colors_b);
949: ELSIF (c_init_colors.property_code = 'RED_COLOR') THEN
950: UPDATE bsc_sys_colors_b
951: SET user_color = c_init_colors.property_value,
952: last_update_date = SYSDATE,
946: last_updated_by = FND_GLOBAL.USER_ID
947: WHERE perf_sequence = (SELECT
948: MAX(perf_sequence) FROM bsc_sys_colors_b);
949: ELSIF (c_init_colors.property_code = 'RED_COLOR') THEN
950: UPDATE bsc_sys_colors_b
951: SET user_color = c_init_colors.property_value,
952: last_update_date = SYSDATE,
953: last_updated_by = FND_GLOBAL.USER_ID
954: WHERE perf_sequence = (SELECT
951: SET user_color = c_init_colors.property_value,
952: last_update_date = SYSDATE,
953: last_updated_by = FND_GLOBAL.USER_ID
954: WHERE perf_sequence = (SELECT
955: MAX(perf_sequence) FROM bsc_sys_colors_b);
956: ELSIF (c_init_colors.property_code = 'LGRAY_COLOR') THEN
957: UPDATE bsc_sys_colors_b
958: SET user_forecast_color = c_init_colors.property_value,
959: last_update_date = SYSDATE,
953: last_updated_by = FND_GLOBAL.USER_ID
954: WHERE perf_sequence = (SELECT
955: MAX(perf_sequence) FROM bsc_sys_colors_b);
956: ELSIF (c_init_colors.property_code = 'LGRAY_COLOR') THEN
957: UPDATE bsc_sys_colors_b
958: SET user_forecast_color = c_init_colors.property_value,
959: last_update_date = SYSDATE,
960: last_updated_by = FND_GLOBAL.USER_ID
961: WHERE perf_sequence IS NULL;
959: last_update_date = SYSDATE,
960: last_updated_by = FND_GLOBAL.USER_ID
961: WHERE perf_sequence IS NULL;
962: ELSIF (c_init_colors.property_code = 'DGRAY_COLOR') THEN
963: UPDATE bsc_sys_colors_b
964: SET user_color = c_init_colors.property_value,
965: last_update_date = SYSDATE,
966: last_updated_by = FND_GLOBAL.USER_ID
967: WHERE perf_sequence IS NULL;