2: /* $Header: pyjpdatamig.pkb 120.10 2008/06/20 13:52:53 keyazawa noship $ */
3: --
4: -- Global Utils
5: g_pkg VARCHAR2(30) := 'pay_jp_data_migration_pkg';
6: g_traces BOOLEAN := hr_utility.debug_enabled; --See if hr_utility.traces should be output
7: g_dbg BOOLEAN := FALSE; --Used for diagnosing issues by dev, more outputs
8: --
9: -- |-------------------------------------------------------------------|
10: -- |---------------------< migrate_input_values >----------------------|
25:
26: l_jp_input_names_tab.DELETE;
27: l_input_names_tab.DELETE;
28:
29: hr_utility.set_location(l_proc, 10);
30:
31: l_jp_input_names_tab(1) := '32E59B9EE79BAEE4BBA5E9998DE381AEE7A88EE9A18D';
32: l_input_names_tab(1) := 'SUBSEQUENT_TAX';
33:
1061:
1062: l_jp_input_names_tab(344) := 'E5B9B4E99693E6A899E6BA96E8B39EE4B88EE9A18D';
1063: l_input_names_tab(344) := 'ANNUAL_STD_BON';
1064:
1065: hr_utility.set_location(l_proc, 20);
1066:
1067: if (g_dbg) then
1068: hr_utility.trace('| Input Value Count = ' || l_jp_input_names_tab.COUNT);
1069: hr_utility.trace('+--------------------------------------------+ ');
1064:
1065: hr_utility.set_location(l_proc, 20);
1066:
1067: if (g_dbg) then
1068: hr_utility.trace('| Input Value Count = ' || l_jp_input_names_tab.COUNT);
1069: hr_utility.trace('+--------------------------------------------+ ');
1070: end if;
1071: --
1072:
1065: hr_utility.set_location(l_proc, 20);
1066:
1067: if (g_dbg) then
1068: hr_utility.trace('| Input Value Count = ' || l_jp_input_names_tab.COUNT);
1069: hr_utility.trace('+--------------------------------------------+ ');
1070: end if;
1071: --
1072:
1073: UPDATE pay_input_values_f
1114: WHERE name LIKE hr_jp_standard_pkg.hextochar(l_jp_input_names_tab(l_tab_cnt),'AL32UTF8')
1115: AND legislation_code = 'JP';
1116:
1117:
1118: hr_utility.set_location(l_proc, 30);
1119:
1120: if (g_dbg) then
1121: hr_utility.trace('| Total Input Values Updated = ' || SQL%ROWCOUNT);
1122: hr_utility.trace('+-------------------------------+ ');
1117:
1118: hr_utility.set_location(l_proc, 30);
1119:
1120: if (g_dbg) then
1121: hr_utility.trace('| Total Input Values Updated = ' || SQL%ROWCOUNT);
1122: hr_utility.trace('+-------------------------------+ ');
1123: end if;
1124: --
1125: EXCEPTION
1118: hr_utility.set_location(l_proc, 30);
1119:
1120: if (g_dbg) then
1121: hr_utility.trace('| Total Input Values Updated = ' || SQL%ROWCOUNT);
1122: hr_utility.trace('+-------------------------------+ ');
1123: end if;
1124: --
1125: EXCEPTION
1126:
1125: EXCEPTION
1126:
1127: WHEN OTHERS THEN
1128:
1129: hr_utility.set_location(l_proc, 40);
1130:
1131: raise;
1132:
1133: END migrate_input_values;
1159: l_element_names_tab.DELETE;
1160: l_element_desc_tab.DELETE;
1161: l_element_rep_tab.DELETE;
1162:
1163: hr_utility.set_location(l_proc, 10);
1164:
1165: l_jp_element_names_tab(1) := 'E7B5A6EFBCBFE59FBAE69CACEFBCBFE581A5E4BF9DEFBCBFE4BF9DE999BAE69699';
1166: l_element_names_tab(1) := 'SAL_HI_PREM_PROC';
1167: l_element_desc_tab(1) := 'Calculation of Health Insurance Premium on Salary';
2008: l_element_names_tab(169) := 'YEA_INS_PREM_EXM_DECLARE_INFO';
2009: l_element_desc_tab(169) := 'Declaration Finalized Content Information of Insurance Premium Exemtion Declaration and Spouse Special Exemption Declaration';
2010: l_element_rep_tab(169) := 'Insurance Premium and Spouse Special Exemption';
2011:
2012: hr_utility.set_location(l_proc, 20);
2013:
2014: if (g_dbg) then
2015: hr_utility.trace('| Element Type Count = ' || l_jp_element_names_tab.COUNT);
2016: hr_utility.trace('+-------------------------------+ ');
2011:
2012: hr_utility.set_location(l_proc, 20);
2013:
2014: if (g_dbg) then
2015: hr_utility.trace('| Element Type Count = ' || l_jp_element_names_tab.COUNT);
2016: hr_utility.trace('+-------------------------------+ ');
2017: end if;
2018: --
2019:
2012: hr_utility.set_location(l_proc, 20);
2013:
2014: if (g_dbg) then
2015: hr_utility.trace('| Element Type Count = ' || l_jp_element_names_tab.COUNT);
2016: hr_utility.trace('+-------------------------------+ ');
2017: end if;
2018: --
2019:
2020: FORALL l_tab_cnt IN 1..l_jp_element_names_tab.COUNT
2030: SET description = description || 'Obsoleted'
2031: WHERE ASCII(description) > 127
2032: AND legislation_code = 'JP';
2033:
2034: hr_utility.set_location(l_proc, 30);
2035:
2036: if (g_dbg) then
2037: hr_utility.trace('| Total Elements Updated = ' || SQL%ROWCOUNT);
2038: hr_utility.trace('+-------------------------------+ ');
2033:
2034: hr_utility.set_location(l_proc, 30);
2035:
2036: if (g_dbg) then
2037: hr_utility.trace('| Total Elements Updated = ' || SQL%ROWCOUNT);
2038: hr_utility.trace('+-------------------------------+ ');
2039: end if;
2040: --
2041: EXCEPTION
2034: hr_utility.set_location(l_proc, 30);
2035:
2036: if (g_dbg) then
2037: hr_utility.trace('| Total Elements Updated = ' || SQL%ROWCOUNT);
2038: hr_utility.trace('+-------------------------------+ ');
2039: end if;
2040: --
2041: EXCEPTION
2042:
2041: EXCEPTION
2042:
2043: WHEN OTHERS THEN
2044:
2045: hr_utility.set_location(l_proc, 40);
2046:
2047: raise;
2048:
2049: END migrate_element_types;
2071: l_jp_class_name.DELETE;
2072: l_class_names_tab.DELETE;
2073: l_class_desc_tab.DELETE;
2074:
2075: hr_utility.set_location(l_proc, 10);
2076:
2077: l_jp_class_name(1) := 'C%2401%';
2078: l_class_names_tab(1) := 'TRM_ERN_KIND_TXBL';
2079: l_class_desc_tab(1) := 'Taxable Earning in Kind for Termination Payment (Resident)';
2440: l_jp_class_name(92) := 'C%0100%';
2441: l_class_names_tab(92) := 'BASIC_INFO';
2442: l_class_desc_tab(92) := 'Basic Information';
2443:
2444: hr_utility.set_location(l_proc, 20);
2445:
2446: if (g_dbg) then
2447: hr_utility.trace('| Element Classification Count = ' || l_jp_class_name.COUNT);
2448: hr_utility.trace('+--------------------------------------------+ ');
2443:
2444: hr_utility.set_location(l_proc, 20);
2445:
2446: if (g_dbg) then
2447: hr_utility.trace('| Element Classification Count = ' || l_jp_class_name.COUNT);
2448: hr_utility.trace('+--------------------------------------------+ ');
2449: end if;
2450: --
2451:
2444: hr_utility.set_location(l_proc, 20);
2445:
2446: if (g_dbg) then
2447: hr_utility.trace('| Element Classification Count = ' || l_jp_class_name.COUNT);
2448: hr_utility.trace('+--------------------------------------------+ ');
2449: end if;
2450: --
2451:
2452: FORALL l_tab_cnt IN 1..l_jp_class_name.COUNT
2456: description = l_class_desc_tab(l_tab_cnt)
2457: WHERE classification_name LIKE l_jp_class_name(l_tab_cnt)
2458: AND legislation_code = 'JP';
2459:
2460: hr_utility.set_location(l_proc, 30);
2461:
2462: if (g_dbg) then
2463: hr_utility.trace('| Total Classifications Updated = ' || SQL%ROWCOUNT);
2464: hr_utility.trace('+-------------------------------+ ');
2459:
2460: hr_utility.set_location(l_proc, 30);
2461:
2462: if (g_dbg) then
2463: hr_utility.trace('| Total Classifications Updated = ' || SQL%ROWCOUNT);
2464: hr_utility.trace('+-------------------------------+ ');
2465: end if;
2466: --
2467: EXCEPTION
2460: hr_utility.set_location(l_proc, 30);
2461:
2462: if (g_dbg) then
2463: hr_utility.trace('| Total Classifications Updated = ' || SQL%ROWCOUNT);
2464: hr_utility.trace('+-------------------------------+ ');
2465: end if;
2466: --
2467: EXCEPTION
2468:
2467: EXCEPTION
2468:
2469: WHEN OTHERS THEN
2470:
2471: hr_utility.set_location(l_proc, 40);
2472:
2473: raise;
2474:
2475: END migrate_element_class;
2497: l_jp_bal_names_tab.DELETE;
2498: l_bal_names_tab.DELETE;
2499: l_bal_rep_tab.DELETE;
2500:
2501: hr_utility.set_location(l_proc, 10);
2502:
2503: l_jp_bal_names_tab(1) := '42EFBCBFE585B1EFBCBFE58E9AE7949FE5B9B4E98791E4BF9DE999BAE69699E59088E8A888';
2504: l_bal_names_tab(1) := 'B_COM_WP_PREM';
2505: l_bal_rep_tab(1) := 'Welfare Pension Insurance Premium';
3006: l_jp_bal_names_tab(126) := '42EFBCBFE5B9B4EFBCBFE7B5A6E4B88EE68EA7E999A4E58886E59CB0E99C87E4BF9DE999BAE69699';
3007: l_bal_names_tab(126) := 'B_YEA_SAL_DCT_EARTHQUAKE_INS_PREM';
3008: l_bal_rep_tab(126) := 'Earthquake Insurance Premium (Salary Deduction)';
3009:
3010: hr_utility.set_location(l_proc, 20);
3011:
3012: if (g_dbg) then
3013: hr_utility.trace('| Balance Type Count = ' || l_jp_bal_names_tab.COUNT);
3014: hr_utility.trace('+--------------------------------------------+ ');
3009:
3010: hr_utility.set_location(l_proc, 20);
3011:
3012: if (g_dbg) then
3013: hr_utility.trace('| Balance Type Count = ' || l_jp_bal_names_tab.COUNT);
3014: hr_utility.trace('+--------------------------------------------+ ');
3015: end if;
3016: --
3017:
3010: hr_utility.set_location(l_proc, 20);
3011:
3012: if (g_dbg) then
3013: hr_utility.trace('| Balance Type Count = ' || l_jp_bal_names_tab.COUNT);
3014: hr_utility.trace('+--------------------------------------------+ ');
3015: end if;
3016: --
3017:
3018: FORALL l_tab_cnt IN 1..l_jp_bal_names_tab.COUNT
3027: SET reporting_name = reporting_name || 'Obsoleted'
3028: WHERE ASCII(reporting_name) > 127
3029: AND legislation_code = 'JP';
3030:
3031: hr_utility.set_location(l_proc, 30);
3032:
3033: if (g_dbg) then
3034: hr_utility.trace('| Total Balance Types Updated = ' || SQL%ROWCOUNT);
3035: hr_utility.trace('+-------------------------------+ ');
3030:
3031: hr_utility.set_location(l_proc, 30);
3032:
3033: if (g_dbg) then
3034: hr_utility.trace('| Total Balance Types Updated = ' || SQL%ROWCOUNT);
3035: hr_utility.trace('+-------------------------------+ ');
3036: end if;
3037: --
3038: EXCEPTION
3031: hr_utility.set_location(l_proc, 30);
3032:
3033: if (g_dbg) then
3034: hr_utility.trace('| Total Balance Types Updated = ' || SQL%ROWCOUNT);
3035: hr_utility.trace('+-------------------------------+ ');
3036: end if;
3037: --
3038: EXCEPTION
3039:
3038: EXCEPTION
3039:
3040: WHEN OTHERS THEN
3041:
3042: hr_utility.set_location(l_proc, 40);
3043:
3044: raise;
3045:
3046: END migrate_balance_types;
3072: l_dim_names_tab.DELETE;
3073: l_dim_desc_tab.DELETE;
3074: l_dim_suffix_tab.DELETE;
3075:
3076: hr_utility.set_location(l_proc, 10);
3077:
3078: l_jp_dim_names_tab(1) := '5F41EFBCBFE5BD93E7B5A6E4B88EE587A6E79086';
3079: l_dim_names_tab(1) := '_ASG_RUN';
3080: l_dim_desc_tab(1) := 'Grand Total within Current Payroll Process (Assignment)';
3139: l_dim_names_tab(13) := '_ASG_BYTD';
3140: l_dim_desc_tab(13) := 'Grand Total until Processing Date within the Business Year Period (Assignment)';
3141: l_dim_suffix_tab(13) := '_ASG_BYTD';
3142:
3143: hr_utility.set_location(l_proc, 20);
3144:
3145: if (g_dbg) then
3146: hr_utility.trace('| Balance Dimension Count = ' || l_jp_dim_names_tab.COUNT);
3147: hr_utility.trace('+--------------------------------------------+ ');
3142:
3143: hr_utility.set_location(l_proc, 20);
3144:
3145: if (g_dbg) then
3146: hr_utility.trace('| Balance Dimension Count = ' || l_jp_dim_names_tab.COUNT);
3147: hr_utility.trace('+--------------------------------------------+ ');
3148: end if;
3149: --
3150:
3143: hr_utility.set_location(l_proc, 20);
3144:
3145: if (g_dbg) then
3146: hr_utility.trace('| Balance Dimension Count = ' || l_jp_dim_names_tab.COUNT);
3147: hr_utility.trace('+--------------------------------------------+ ');
3148: end if;
3149: --
3150:
3151: FORALL l_tab_cnt IN 1..l_jp_dim_names_tab.COUNT
3156: description = l_dim_desc_tab(l_tab_cnt)
3157: WHERE dimension_name LIKE hr_jp_standard_pkg.hextochar(l_jp_dim_names_tab(l_tab_cnt),'AL32UTF8')
3158: AND legislation_code = 'JP';
3159:
3160: hr_utility.set_location(l_proc, 30);
3161:
3162: if (g_dbg) then
3163: hr_utility.trace('| Total Balance Dimensions Updated = ' || SQL%ROWCOUNT);
3164: hr_utility.trace('+-----------------------------------------+ ');
3159:
3160: hr_utility.set_location(l_proc, 30);
3161:
3162: if (g_dbg) then
3163: hr_utility.trace('| Total Balance Dimensions Updated = ' || SQL%ROWCOUNT);
3164: hr_utility.trace('+-----------------------------------------+ ');
3165: end if;
3166: --
3167: EXCEPTION
3160: hr_utility.set_location(l_proc, 30);
3161:
3162: if (g_dbg) then
3163: hr_utility.trace('| Total Balance Dimensions Updated = ' || SQL%ROWCOUNT);
3164: hr_utility.trace('+-----------------------------------------+ ');
3165: end if;
3166: --
3167: EXCEPTION
3168:
3167: EXCEPTION
3168:
3169: WHEN OTHERS THEN
3170:
3171: hr_utility.set_location(l_proc, 40);
3172:
3173: raise;
3174:
3175: END migrate_bal_dimensions;
3193:
3194: l_jp_ele_set_names_tab.DELETE;
3195: l_ele_set_names_tab.DELETE;
3196:
3197: hr_utility.set_location(l_proc, 10);
3198:
3199: l_jp_ele_set_names_tab(1) := 'E8B39EE4B88E'; l_ele_set_names_tab(1) := 'BON';
3200: l_jp_ele_set_names_tab(2) := 'E7AE97E5AE9A'; l_ele_set_names_tab(2) := 'SAN';
3201: l_jp_ele_set_names_tab(3) := 'E7B5A6E4B88E'; l_ele_set_names_tab(3) := 'SAL';
3205: l_jp_ele_set_names_tab(7) := 'E789B9E588A5E8B39EE4B88E'; l_ele_set_names_tab(7) := 'SPB';
3206: l_jp_ele_set_names_tab(8) := 'E5868DE5B9B4E69CABE8AABFE695B4'; l_ele_set_names_tab(8) := 'REY';
3207: l_jp_ele_set_names_tab(9) := 'E882B2E694B9'; l_ele_set_names_tab(9) := 'IKU';
3208:
3209: hr_utility.set_location(l_proc, 20);
3210:
3211: if (g_dbg) then
3212: hr_utility.trace('| Element Sets Count = ' || l_jp_ele_set_names_tab.COUNT);
3213: hr_utility.trace('+--------------------------------------------+ ');
3208:
3209: hr_utility.set_location(l_proc, 20);
3210:
3211: if (g_dbg) then
3212: hr_utility.trace('| Element Sets Count = ' || l_jp_ele_set_names_tab.COUNT);
3213: hr_utility.trace('+--------------------------------------------+ ');
3214: end if;
3215: --
3216:
3209: hr_utility.set_location(l_proc, 20);
3210:
3211: if (g_dbg) then
3212: hr_utility.trace('| Element Sets Count = ' || l_jp_ele_set_names_tab.COUNT);
3213: hr_utility.trace('+--------------------------------------------+ ');
3214: end if;
3215: --
3216:
3217: FORALL l_tab_cnt IN 1..l_jp_ele_set_names_tab.COUNT
3220: SET element_set_name = l_ele_set_names_tab(l_tab_cnt)
3221: WHERE element_set_name LIKE hr_jp_standard_pkg.hextochar(l_jp_ele_set_names_tab(l_tab_cnt),'AL32UTF8')
3222: AND legislation_code = 'JP';
3223:
3224: hr_utility.set_location(l_proc, 30);
3225:
3226: if (g_dbg) then
3227: hr_utility.trace('| Total Element Sets Updated = ' || SQL%ROWCOUNT);
3228: hr_utility.trace('+-----------------------------------------+ ');
3223:
3224: hr_utility.set_location(l_proc, 30);
3225:
3226: if (g_dbg) then
3227: hr_utility.trace('| Total Element Sets Updated = ' || SQL%ROWCOUNT);
3228: hr_utility.trace('+-----------------------------------------+ ');
3229: end if;
3230: --
3231: EXCEPTION
3224: hr_utility.set_location(l_proc, 30);
3225:
3226: if (g_dbg) then
3227: hr_utility.trace('| Total Element Sets Updated = ' || SQL%ROWCOUNT);
3228: hr_utility.trace('+-----------------------------------------+ ');
3229: end if;
3230: --
3231: EXCEPTION
3232:
3231: EXCEPTION
3232:
3233: WHEN OTHERS THEN
3234:
3235: hr_utility.set_location(l_proc, 40);
3236:
3237: raise;
3238:
3239: END migrate_element_sets;
3261: l_jp_global_names_tab.DELETE;
3262: l_global_names_tab.DELETE;
3263: l_global_desc_tab.DELETE;
3264:
3265: hr_utility.set_location(l_proc, 10);
3266:
3267: l_jp_global_names_tab(1) := '47EFBCBFE585B1EFBCBFE6BA90E6B389E5BEB4E58F8EE7A88EE9A18DE8A1A8E69C80E5A4A7E689B6E9A48AE88085E695B0';
3268: l_global_names_tab(1) := 'G_COM_ITX_TBL_NUM_OF_DEP_MAX';
3269: l_global_desc_tab(1) := 'Maximum Number of Dependent People of Withholding Tax Amount Table';
3362: l_jp_global_names_tab(24) := '47EFBCBFE98080EFBCBFE4BD8FE6B091E7A88EEFBCBFE789B9E588A5E5BEB4E58F8EEFBCBFE68EA7E999A4E78E87';
3363: l_global_names_tab(24) := 'G_TRM_LTX_SP_WITHHOLD_DCTBL_RATE';
3364: l_global_desc_tab(24) := 'Deduction Rate of Special Collecting Local Tax on Termination Payment';
3365:
3366: hr_utility.set_location(l_proc, 20);
3367:
3368: if (g_dbg) then
3369: hr_utility.trace('| Global Names Count = ' || l_jp_global_names_tab.COUNT);
3370: hr_utility.trace('+----------------------------------+ ');
3365:
3366: hr_utility.set_location(l_proc, 20);
3367:
3368: if (g_dbg) then
3369: hr_utility.trace('| Global Names Count = ' || l_jp_global_names_tab.COUNT);
3370: hr_utility.trace('+----------------------------------+ ');
3371: end if;
3372: --
3373:
3366: hr_utility.set_location(l_proc, 20);
3367:
3368: if (g_dbg) then
3369: hr_utility.trace('| Global Names Count = ' || l_jp_global_names_tab.COUNT);
3370: hr_utility.trace('+----------------------------------+ ');
3371: end if;
3372: --
3373:
3374: hr_general.g_data_migrator_mode := 'Y';
3385: SET global_description = global_description || 'Obsoleted'
3386: WHERE ASCII(global_description) > 127
3387: AND legislation_code = 'JP';
3388:
3389: hr_utility.set_location(l_proc, 30);
3390:
3391: if (g_dbg) then
3392: hr_utility.trace('| Total Global Names Updated = ' || SQL%ROWCOUNT);
3393: hr_utility.trace('+-----------------------------------------+ ');
3388:
3389: hr_utility.set_location(l_proc, 30);
3390:
3391: if (g_dbg) then
3392: hr_utility.trace('| Total Global Names Updated = ' || SQL%ROWCOUNT);
3393: hr_utility.trace('+-----------------------------------------+ ');
3394: end if;
3395: --
3396: EXCEPTION
3389: hr_utility.set_location(l_proc, 30);
3390:
3391: if (g_dbg) then
3392: hr_utility.trace('| Total Global Names Updated = ' || SQL%ROWCOUNT);
3393: hr_utility.trace('+-----------------------------------------+ ');
3394: end if;
3395: --
3396: EXCEPTION
3397:
3396: EXCEPTION
3397:
3398: WHEN OTHERS THEN
3399:
3400: hr_utility.set_location(l_proc, 40);
3401:
3402: raise;
3403:
3404: END migrate_globals;
3426: l_jp_formula_names_tab.DELETE;
3427: l_formula_names_tab.DELETE;
3428: l_formula_desc_tab.DELETE;
3429:
3430: hr_utility.set_location(l_proc, 10);
3431:
3432: l_jp_formula_names_tab(1) := '46EFBCBFE69C88EFBCBFE59FBAE69CACEFBCBFE5A0B1E985ACE69C88E9A18D';
3433: l_formula_names_tab(1) := 'GEP_MR_PROC';
3434: l_formula_desc_tab(1) := 'Calculation of Standard Monthly Remuneration on Unscheduled Revision';
3766: l_jp_formula_names_tab(84) := '4A505F41495F5052454D5F43414C43';
3767: l_formula_names_tab(84) := 'ACCIDENT_INS_PREM_TEMPLATE';
3768: l_formula_desc_tab(84) := 'Calculation Template of Accident Insurance Premium Total for Insurance Premium and Spouse Special Exemption Declaration';
3769:
3770: hr_utility.set_location(l_proc, 20);
3771:
3772: if (g_dbg) then
3773: hr_utility.trace('| Fast Formulas Count = ' || l_jp_formula_names_tab.COUNT);
3774: hr_utility.trace('+----------------------------------+ ');
3769:
3770: hr_utility.set_location(l_proc, 20);
3771:
3772: if (g_dbg) then
3773: hr_utility.trace('| Fast Formulas Count = ' || l_jp_formula_names_tab.COUNT);
3774: hr_utility.trace('+----------------------------------+ ');
3775: end if;
3776: --
3777:
3770: hr_utility.set_location(l_proc, 20);
3771:
3772: if (g_dbg) then
3773: hr_utility.trace('| Fast Formulas Count = ' || l_jp_formula_names_tab.COUNT);
3774: hr_utility.trace('+----------------------------------+ ');
3775: end if;
3776: --
3777:
3778: FORALL l_tab_cnt IN 1..l_jp_formula_names_tab.COUNT
3787: SET description = description || 'Obsoleted'
3788: WHERE ASCII(description) > 127
3789: AND legislation_code = 'JP';
3790:
3791: hr_utility.set_location(l_proc, 30);
3792:
3793: if (g_dbg) then
3794: hr_utility.trace('| Total Formulas Updated = ' || SQL%ROWCOUNT);
3795: hr_utility.trace('+-----------------------------------+ ');
3790:
3791: hr_utility.set_location(l_proc, 30);
3792:
3793: if (g_dbg) then
3794: hr_utility.trace('| Total Formulas Updated = ' || SQL%ROWCOUNT);
3795: hr_utility.trace('+-----------------------------------+ ');
3796: end if;
3797: --
3798: EXCEPTION
3791: hr_utility.set_location(l_proc, 30);
3792:
3793: if (g_dbg) then
3794: hr_utility.trace('| Total Formulas Updated = ' || SQL%ROWCOUNT);
3795: hr_utility.trace('+-----------------------------------+ ');
3796: end if;
3797: --
3798: EXCEPTION
3799:
3798: EXCEPTION
3799:
3800: WHEN OTHERS THEN
3801:
3802: hr_utility.set_location(l_proc, 40);
3803:
3804: raise;
3805:
3806: END migrate_formulas;
3824:
3825: l_jp_monetary_name_tab.DELETE;
3826: l_monetary_name_tab.DELETE;
3827:
3828: hr_utility.set_location(l_proc, 10);
3829:
3830: l_jp_monetary_name_tab(1) := '3130303030E58686'; l_monetary_name_tab(1) := 'TEN_THOUSAND_YEN';
3831: l_jp_monetary_name_tab(2) := '31303030E58686'; l_monetary_name_tab(2) := 'ONE_THOUSAND_YEN';
3832: l_jp_monetary_name_tab(3) := '313030E58686'; l_monetary_name_tab(3) := 'ONE_HUNDRED_YEN';
3837: l_jp_monetary_name_tab(8) := '353030E58686'; l_monetary_name_tab(8) := 'FIVE_HUNDRED_YEN';
3838: l_jp_monetary_name_tab(9) := '3530E58686'; l_monetary_name_tab(9) := 'FIFTY_YEN';
3839: l_jp_monetary_name_tab(10) := '35E58686'; l_monetary_name_tab(10) := 'FIVE_YEN';
3840:
3841: hr_utility.set_location(l_proc, 20);
3842:
3843: if (g_dbg) then
3844: hr_utility.trace('| Monetary Units Count = ' || l_jp_monetary_name_tab.COUNT);
3845: hr_utility.trace('+----------------------------------+ ');
3840:
3841: hr_utility.set_location(l_proc, 20);
3842:
3843: if (g_dbg) then
3844: hr_utility.trace('| Monetary Units Count = ' || l_jp_monetary_name_tab.COUNT);
3845: hr_utility.trace('+----------------------------------+ ');
3846: end if;
3847: --
3848:
3841: hr_utility.set_location(l_proc, 20);
3842:
3843: if (g_dbg) then
3844: hr_utility.trace('| Monetary Units Count = ' || l_jp_monetary_name_tab.COUNT);
3845: hr_utility.trace('+----------------------------------+ ');
3846: end if;
3847: --
3848:
3849: FORALL l_tab_cnt IN 1..l_jp_monetary_name_tab.COUNT
3852: SET monetary_unit_name = l_monetary_name_tab(l_tab_cnt)
3853: WHERE monetary_unit_name LIKE hr_jp_standard_pkg.hextochar(l_jp_monetary_name_tab(l_tab_cnt),'AL32UTF8')
3854: AND legislation_code = 'JP';
3855:
3856: hr_utility.set_location(l_proc, 30);
3857:
3858: if (g_dbg) then
3859: hr_utility.trace('| Total Monetary Units Updated = ' || SQL%ROWCOUNT);
3860: hr_utility.trace('+-----------------------------------------+ ');
3855:
3856: hr_utility.set_location(l_proc, 30);
3857:
3858: if (g_dbg) then
3859: hr_utility.trace('| Total Monetary Units Updated = ' || SQL%ROWCOUNT);
3860: hr_utility.trace('+-----------------------------------------+ ');
3861: end if;
3862: --
3863: EXCEPTION
3856: hr_utility.set_location(l_proc, 30);
3857:
3858: if (g_dbg) then
3859: hr_utility.trace('| Total Monetary Units Updated = ' || SQL%ROWCOUNT);
3860: hr_utility.trace('+-----------------------------------------+ ');
3861: end if;
3862: --
3863: EXCEPTION
3864:
3863: EXCEPTION
3864:
3865: WHEN OTHERS THEN
3866:
3867: hr_utility.set_location(l_proc, 40);
3868:
3869: raise;
3870:
3871: END migrate_monetary_units;
3889:
3890: l_jp_column_names_tab.DELETE;
3891: l_column_names_tab.DELETE;
3892:
3893: hr_utility.set_location(l_proc, 10);
3894:
3895: l_jp_column_names_tab(1) := 'E4B880E888ACE98080E881B7';
3896: l_column_names_tab(1) := 'GEN_TRM';
3897:
4146: l_jp_column_names_tab(85) := 'E78E87';
4147: l_column_names_tab(85) := 'DCTBL_RATE';
4148:
4149:
4150: hr_utility.set_location(l_proc, 20);
4151:
4152: if (g_dbg) then
4153: hr_utility.trace('| User Columns Count = ' || l_jp_column_names_tab.COUNT);
4154: hr_utility.trace('+----------------------------------+ ');
4149:
4150: hr_utility.set_location(l_proc, 20);
4151:
4152: if (g_dbg) then
4153: hr_utility.trace('| User Columns Count = ' || l_jp_column_names_tab.COUNT);
4154: hr_utility.trace('+----------------------------------+ ');
4155: end if;
4156: --
4157:
4150: hr_utility.set_location(l_proc, 20);
4151:
4152: if (g_dbg) then
4153: hr_utility.trace('| User Columns Count = ' || l_jp_column_names_tab.COUNT);
4154: hr_utility.trace('+----------------------------------+ ');
4155: end if;
4156: --
4157:
4158: UPDATE pay_user_columns
4168: hr_jp_standard_pkg.hextochar('54EFBCBFE5B9B4EFBCBFE995B7E69C9FE6908DE5AEB3E4BF9DE999BAE69699E68EA7E999A4E9A18DE8A1A8','AL32UTF8'),
4169: hr_jp_standard_pkg.hextochar('54EFBCBFE5B9B4EFBCBFE79FADE69C9FE6908DE5AEB3E4BF9DE999BAE69699E68EA7E999A4E9A18DE8A1A8','AL32UTF8'))
4170: AND legislation_code = 'JP');
4171:
4172: hr_utility.set_location(l_proc, 30);
4173:
4174: UPDATE pay_user_columns
4175: SET user_column_name = 'EXM'
4176: WHERE user_column_name LIKE hr_jp_standard_pkg.hextochar('E68EA7E999A4E9A18D','AL32UTF8')
4182: hr_jp_standard_pkg.hextochar('54EFBCBFE5B9B4EFBCBFE59084E7A8AEE68980E5BE97E68EA7E999A4E9A18DE8A1A8','AL32UTF8'),
4183: hr_jp_standard_pkg.hextochar('54EFBCBFE5B9B4EFBCBFE9858DE581B6E88085E789B9E588A5E68EA7E999A4E9A18DE697A9E8A68BE8A1A8','AL32UTF8'))
4184: AND legislation_code = 'JP');
4185:
4186: hr_utility.set_location(l_proc, 40);
4187:
4188: UPDATE pay_user_columns
4189: SET user_column_name = 'STD_DCT'
4190: WHERE user_column_name LIKE hr_jp_standard_pkg.hextochar('E68EA7E999A4E9A18D','AL32UTF8')
4194: FROM pay_user_tables
4195: WHERE user_table_name LIKE hr_jp_standard_pkg.hextochar('54EFBCBFE5B9B4EFBCBFE7B5A6E4B88EE68980E5BE97E68EA7E999A4E5BE8CE381AEE7B5A6E4B88EE7AD89E381AEE98791E9A18DE8A1A832','AL32UTF8')
4196: AND legislation_code = 'JP');
4197:
4198: hr_utility.set_location(l_proc, 50);
4199:
4200: FORALL l_tab_cnt IN 1..l_jp_column_names_tab.COUNT
4201:
4202: UPDATE pay_user_columns
4203: SET user_column_name = l_column_names_tab(l_tab_cnt)
4204: WHERE user_column_name LIKE hr_jp_standard_pkg.hextochar(l_jp_column_names_tab(l_tab_cnt),'AL32UTF8')
4205: AND legislation_code = 'JP';
4206:
4207: hr_utility.set_location(l_proc, 60);
4208:
4209: if (g_dbg) then
4210: hr_utility.trace('| Total User Columns Updated = ' || SQL%ROWCOUNT);
4211: hr_utility.trace('+-----------------------------------------+ ');
4206:
4207: hr_utility.set_location(l_proc, 60);
4208:
4209: if (g_dbg) then
4210: hr_utility.trace('| Total User Columns Updated = ' || SQL%ROWCOUNT);
4211: hr_utility.trace('+-----------------------------------------+ ');
4212: end if;
4213:
4214: --
4207: hr_utility.set_location(l_proc, 60);
4208:
4209: if (g_dbg) then
4210: hr_utility.trace('| Total User Columns Updated = ' || SQL%ROWCOUNT);
4211: hr_utility.trace('+-----------------------------------------+ ');
4212: end if;
4213:
4214: --
4215: EXCEPTION
4215: EXCEPTION
4216:
4217: WHEN OTHERS THEN
4218:
4219: hr_utility.set_location(l_proc, 70);
4220:
4221: raise;
4222:
4223: END migrate_user_columns;
4241:
4242: l_jp_row_names_tab.DELETE;
4243: l_row_names_tab.DELETE;
4244:
4245: hr_utility.set_location(l_proc, 10);
4246:
4247: l_jp_row_names_tab(1) := 'E9A790E8BB8AE5A0B4E4BBA3E7AD89';
4248: l_row_names_tab(1) := 'PARKING_FEE';
4249:
4352:
4353: l_jp_row_names_tab(36) := 'E59CB0E99C87E4BF9DE999BAE69699E68EA7E999A4';
4354: l_row_names_tab(36) := 'EARTHQUAKE_INS_EXM';
4355:
4356: hr_utility.set_location(l_proc, 20);
4357:
4358: if (g_dbg) then
4359: hr_utility.trace('| User Rows Count = ' || l_jp_row_names_tab.COUNT);
4360: hr_utility.trace('+----------------------------------+ ');
4355:
4356: hr_utility.set_location(l_proc, 20);
4357:
4358: if (g_dbg) then
4359: hr_utility.trace('| User Rows Count = ' || l_jp_row_names_tab.COUNT);
4360: hr_utility.trace('+----------------------------------+ ');
4361: end if;
4362: --
4363:
4356: hr_utility.set_location(l_proc, 20);
4357:
4358: if (g_dbg) then
4359: hr_utility.trace('| User Rows Count = ' || l_jp_row_names_tab.COUNT);
4360: hr_utility.trace('+----------------------------------+ ');
4361: end if;
4362: --
4363:
4364: FORALL l_tab_cnt IN 1..l_jp_row_names_tab.COUNT
4367: SET row_low_range_or_name = l_row_names_tab(l_tab_cnt)
4368: WHERE row_low_range_or_name LIKE hr_jp_standard_pkg.hextochar(l_jp_row_names_tab(l_tab_cnt),'AL32UTF8')
4369: AND legislation_code = 'JP';
4370:
4371: hr_utility.set_location(l_proc, 30);
4372:
4373: if (g_dbg) then
4374: hr_utility.trace('| Total User Rows Updated = ' || SQL%ROWCOUNT);
4375: hr_utility.trace('+-----------------------------------------+ ');
4370:
4371: hr_utility.set_location(l_proc, 30);
4372:
4373: if (g_dbg) then
4374: hr_utility.trace('| Total User Rows Updated = ' || SQL%ROWCOUNT);
4375: hr_utility.trace('+-----------------------------------------+ ');
4376: end if;
4377: --
4378: EXCEPTION
4371: hr_utility.set_location(l_proc, 30);
4372:
4373: if (g_dbg) then
4374: hr_utility.trace('| Total User Rows Updated = ' || SQL%ROWCOUNT);
4375: hr_utility.trace('+-----------------------------------------+ ');
4376: end if;
4377: --
4378: EXCEPTION
4379:
4378: EXCEPTION
4379:
4380: WHEN OTHERS THEN
4381:
4382: hr_utility.set_location(l_proc, 40);
4383:
4384: raise;
4385:
4386: END migrate_user_rows;
4408: l_jp_table_names_tab.DELETE;
4409: l_table_names_tab.DELETE;
4410: l_row_titles_tab.DELETE;
4411:
4412: hr_utility.set_location(l_proc, 10);
4413:
4414: l_jp_table_names_tab(1) := '54EFBCBFE5B9B4EFBCBFE5808BE4BABAE5B9B4E98791E4BF9DE999BAE69699E68EA7E999A4E9A18DE8A1A8';
4415: l_table_names_tab(1) := 'T_YEA_INDIVIDUAL_PENSION_INS_EXM';
4416: l_row_titles_tab(1) := 'ANNUAL_INS_PREM';
4550: l_jp_table_names_tab(35) := '54EFBCBFE7B5A6EFBCBFE9809AE58BA4E6898BE6AEB5EFBCBFE68385E5A0B1';
4551: l_table_names_tab(35) := 'T_SAL_CMA_METHOD_INFO';
4552: l_row_titles_tab(35) := 'CMA_METHOD';
4553:
4554: hr_utility.set_location(l_proc, 20);
4555:
4556: if (g_dbg) then
4557: hr_utility.trace('| User Tables Count = ' || l_jp_table_names_tab.COUNT);
4558: hr_utility.trace('+----------------------------------+ ');
4553:
4554: hr_utility.set_location(l_proc, 20);
4555:
4556: if (g_dbg) then
4557: hr_utility.trace('| User Tables Count = ' || l_jp_table_names_tab.COUNT);
4558: hr_utility.trace('+----------------------------------+ ');
4559: end if;
4560: --
4561:
4554: hr_utility.set_location(l_proc, 20);
4555:
4556: if (g_dbg) then
4557: hr_utility.trace('| User Tables Count = ' || l_jp_table_names_tab.COUNT);
4558: hr_utility.trace('+----------------------------------+ ');
4559: end if;
4560: --
4561:
4562: FORALL l_tab_cnt IN 1..l_jp_table_names_tab.COUNT
4566: user_row_title = l_row_titles_tab(l_tab_cnt)
4567: WHERE user_table_name LIKE hr_jp_standard_pkg.hextochar(l_jp_table_names_tab(l_tab_cnt),'AL32UTF8')
4568: AND legislation_code = 'JP';
4569:
4570: hr_utility.set_location(l_proc, 30);
4571:
4572: if (g_dbg) then
4573: hr_utility.trace('| Total User Tables Updated = ' || SQL%ROWCOUNT);
4574: hr_utility.trace('+-----------------------------------------+ ');
4569:
4570: hr_utility.set_location(l_proc, 30);
4571:
4572: if (g_dbg) then
4573: hr_utility.trace('| Total User Tables Updated = ' || SQL%ROWCOUNT);
4574: hr_utility.trace('+-----------------------------------------+ ');
4575: end if;
4576: --
4577: EXCEPTION
4570: hr_utility.set_location(l_proc, 30);
4571:
4572: if (g_dbg) then
4573: hr_utility.trace('| Total User Tables Updated = ' || SQL%ROWCOUNT);
4574: hr_utility.trace('+-----------------------------------------+ ');
4575: end if;
4576: --
4577: EXCEPTION
4578:
4577: EXCEPTION
4578:
4579: WHEN OTHERS THEN
4580:
4581: hr_utility.set_location(l_proc, 40);
4582:
4583: raise;
4584:
4585: END migrate_user_tables;
4738: Exception
4739: --
4740: When Others Then
4741: --
4742: hr_utility.set_location( 'Error in deleting',99 );
4743: raise;
4744: --
4745: END delete_dbi;
4746: --
4771: --
4772: begin
4773: --
4774: if (g_dbg) then
4775: hr_utility.set_location(l_proc, 0);
4776: end if;
4777: --
4778: open csr_org_df;
4779: loop
4796: end loop;
4797: close csr_org_df;
4798: --
4799: if (g_dbg) then
4800: hr_utility.set_location(l_proc, 10);
4801: hr_utility.trace('update cnt : '||to_char(l_cnt));
4802: hr_utility.trace('p_org_information_context : '||p_org_information_context);
4803: hr_utility.trace('p_org_information3_o : '||p_org_information3_o);
4804: hr_utility.trace('p_org_information3_n : '||p_org_information3_n);
4797: close csr_org_df;
4798: --
4799: if (g_dbg) then
4800: hr_utility.set_location(l_proc, 10);
4801: hr_utility.trace('update cnt : '||to_char(l_cnt));
4802: hr_utility.trace('p_org_information_context : '||p_org_information_context);
4803: hr_utility.trace('p_org_information3_o : '||p_org_information3_o);
4804: hr_utility.trace('p_org_information3_n : '||p_org_information3_n);
4805: end if;
4798: --
4799: if (g_dbg) then
4800: hr_utility.set_location(l_proc, 10);
4801: hr_utility.trace('update cnt : '||to_char(l_cnt));
4802: hr_utility.trace('p_org_information_context : '||p_org_information_context);
4803: hr_utility.trace('p_org_information3_o : '||p_org_information3_o);
4804: hr_utility.trace('p_org_information3_n : '||p_org_information3_n);
4805: end if;
4806: --
4799: if (g_dbg) then
4800: hr_utility.set_location(l_proc, 10);
4801: hr_utility.trace('update cnt : '||to_char(l_cnt));
4802: hr_utility.trace('p_org_information_context : '||p_org_information_context);
4803: hr_utility.trace('p_org_information3_o : '||p_org_information3_o);
4804: hr_utility.trace('p_org_information3_n : '||p_org_information3_n);
4805: end if;
4806: --
4807: if l_cnt > 0 then
4800: hr_utility.set_location(l_proc, 10);
4801: hr_utility.trace('update cnt : '||to_char(l_cnt));
4802: hr_utility.trace('p_org_information_context : '||p_org_information_context);
4803: hr_utility.trace('p_org_information3_o : '||p_org_information3_o);
4804: hr_utility.trace('p_org_information3_n : '||p_org_information3_n);
4805: end if;
4806: --
4807: if l_cnt > 0 then
4808: --
4810: --
4811: end if;
4812: --
4813: if (g_dbg) then
4814: hr_utility.set_location(l_proc, 1000);
4815: end if;
4816: --
4817: end migrate_org_df;
4818: --
4844: --
4845: begin
4846: --
4847: if (g_dbg) then
4848: hr_utility.set_location(l_proc, 0);
4849: end if;
4850: --
4851: open csr_li_ff;
4852: fetch csr_li_ff into l_li_ff_cnt;
4852: fetch csr_li_ff into l_li_ff_cnt;
4853: close csr_li_ff;
4854: --
4855: if (g_dbg) then
4856: hr_utility.set_location(l_proc, 10);
4857: hr_utility.trace('migrate li ff cnt : '||to_char(l_li_ff_cnt));
4858: end if;
4859: --
4860: if (l_li_ff_cnt > 0) then
4853: close csr_li_ff;
4854: --
4855: if (g_dbg) then
4856: hr_utility.set_location(l_proc, 10);
4857: hr_utility.trace('migrate li ff cnt : '||to_char(l_li_ff_cnt));
4858: end if;
4859: --
4860: if (l_li_ff_cnt > 0) then
4861: --
4865: --
4866: end if;
4867: --
4868: if (g_dbg) then
4869: hr_utility.set_location(l_proc, 1000);
4870: end if;
4871: --
4872: end migrate_li_ff;
4873: --
4882: l_proc VARCHAR2(50) := g_pkg||'.migrate_data';
4883: --
4884: BEGIN
4885:
4886: hr_utility.set_location(l_proc, 10);
4887:
4888: SELECT COUNT(1)
4889: INTO l_count
4890: FROM pay_input_values_f
4894: IF (l_count > 0) THEN
4895: migrate_input_values;
4896: END IF;
4897:
4898: hr_utility.set_location(l_proc, 20);
4899:
4900: SELECT COUNT(1)
4901: INTO l_count
4902: FROM pay_element_types_f
4907: IF (l_count > 0) THEN
4908: migrate_element_types;
4909: END IF;
4910:
4911: hr_utility.set_location(l_proc, 30);
4912:
4913: SELECT COUNT(1)
4914: INTO l_count
4915: FROM pay_element_classifications
4919: IF (l_count > 0) THEN
4920: migrate_element_class;
4921: END IF;
4922:
4923: hr_utility.set_location(l_proc, 40);
4924:
4925: SELECT COUNT(1)
4926: INTO l_count
4927: FROM pay_balance_types
4932: IF (l_count > 0) THEN
4933: migrate_balance_types;
4934: END IF;
4935:
4936: hr_utility.set_location(l_proc, 50);
4937:
4938: SELECT COUNT(1)
4939: INTO l_count
4940: FROM pay_balance_dimensions
4944: IF (l_count > 0) THEN
4945: migrate_bal_dimensions;
4946: END IF;
4947:
4948: hr_utility.set_location(l_proc, 60);
4949:
4950: SELECT COUNT(1)
4951: INTO l_count
4952: FROM pay_element_sets
4956: IF (l_count > 0) THEN
4957: migrate_element_sets;
4958: END IF;
4959:
4960: hr_utility.set_location(l_proc, 70);
4961:
4962: SELECT COUNT(1)
4963: INTO l_count
4964: FROM ff_globals_f
4969: IF (l_count > 0) THEN
4970: migrate_globals;
4971: END IF;
4972:
4973: hr_utility.set_location(l_proc, 80);
4974:
4975: SELECT COUNT(1)
4976: INTO l_count
4977: FROM ff_formulas_f
4982: IF (l_count > 0) THEN
4983: migrate_formulas;
4984: END IF;
4985:
4986: hr_utility.set_location(l_proc, 90);
4987:
4988: SELECT COUNT(1)
4989: INTO l_count
4990: FROM pay_monetary_units
4994: IF (l_count > 0) THEN
4995: migrate_monetary_units;
4996: END IF;
4997:
4998: hr_utility.set_location(l_proc, 100);
4999:
5000: SELECT COUNT(1)
5001: INTO l_count
5002: FROM pay_user_columns
5006: IF (l_count > 0) THEN
5007: migrate_user_columns;
5008: END IF;
5009:
5010: hr_utility.set_location(l_proc, 110);
5011:
5012: SELECT COUNT(1)
5013: INTO l_count
5014: FROM pay_user_rows_f
5018: IF (l_count > 0) THEN
5019: migrate_user_rows;
5020: END IF;
5021:
5022: hr_utility.set_location(l_proc, 120);
5023:
5024: SELECT COUNT(1)
5025: INTO l_count
5026: FROM pay_user_tables
5030: IF (l_count > 0) THEN
5031: migrate_user_tables;
5032: END IF;
5033:
5034: hr_utility.set_location(l_proc, 130);
5035:
5036: -- To delete JP Char DBI's
5037: delete_dbi;
5038:
5035:
5036: -- To delete JP Char DBI's
5037: delete_dbi;
5038:
5039: hr_utility.set_location(l_proc, 140);
5040: --
5041: migrate_li_ff;
5042: hr_utility.set_location('Successful completion of ' || l_proc, 150);
5043: --
5038:
5039: hr_utility.set_location(l_proc, 140);
5040: --
5041: migrate_li_ff;
5042: hr_utility.set_location('Successful completion of ' || l_proc, 150);
5043: --
5044: EXCEPTION
5045:
5046: WHEN OTHERS THEN
5044: EXCEPTION
5045:
5046: WHEN OTHERS THEN
5047:
5048: hr_utility.set_location(l_proc, 150);
5049:
5050: raise;
5051:
5052: END migrate_data;