[Home] [Help]
49: Procedure - create_enhanced_retro_defn
50: (B)Added private procedures to create Enh Retropay Components
51: and retro definitions.
52: (C) Modified procedures qualify element and upgrade element to
53: upgrade Non Earnings Standard and Non Pre Tax elements.
54: 04-Jan-2007 avenkatk 115.1 5731490 Added Procedure - set_enh_retro_request_group
55: - enable_au_enhanced_retro
56: 17-Jan-2007 avenkatk 115.2 5749509 Fixed issues with Null Values in Once_each_period_flag,OVN etc.
57: 23-Feb-2007 abhargav 115.3 5731490 Fixed issue for cases where retro element has multiple links. corrected message logic when retro
124: POST_TERMINATION_RULE,
125: PROCESS_IN_RUN_FLAG,
126: PROCESSING_PRIORITY,
127: PROCESSING_TYPE,
128: STANDARD_LINK_FLAG,
129: COMMENT_ID,
130: LEGISLATION_SUBGROUP,
131: QUALIFYING_AGE,
132: QUALIFYING_LENGTH_OF_SERVICE,
215: ,p_multiply_value_flag => rec_element_types.MULTIPLY_VALUE_FLAG
216: ,p_post_termination_rule => rec_element_types.POST_TERMINATION_RULE
217: ,p_process_in_run_flag => rec_element_types.PROCESS_IN_RUN_FLAG
218: ,p_processing_priority => rec_element_types.PROCESSING_PRIORITY
219: ,p_standard_link_flag => rec_element_types.STANDARD_LINK_FLAG
220: ,p_third_party_pay_only_flag => rec_element_types.THIRD_PARTY_PAY_ONLY_FLAG
221: ,p_iterative_flag => rec_element_types.ITERATIVE_FLAG
222: ,p_iterative_formula_id => rec_element_types.ITERATIVE_FORMULA_ID
223: ,p_iterative_priority => rec_element_types.ITERATIVE_PRIORITY
566:
567:
568: /* Bug 8765082, p_bal_type values is used to decide the Indirect Results in the following manner
569: Index Element Type
570: 0 Earnings Standard
571: 1 Earnings Spread
572: 2 Pre Tax Deductions
573: 3 Earnings Leave Loading
574: 4 Earnings Additional
644: OPEN c_get_input_value_id('Additional Deduction','Deduction');
645: FETCH c_get_input_value_id INTO l_element_type_id, l_input_value_id;
646: CLOSE c_get_input_value_id;
647:
648: ELSE /* Retro Earnings Standard */
649: IF p_retro_type = 'GT12' THEN
650:
651: l_result_element_name := 'Retropay GT 12 Mths Amount';
652: OPEN c_get_input_value_id('Retropay GT 12 Mths Amount','GT_12_Mths_Amount');
1123: POST_TERMINATION_RULE,
1124: PROCESS_IN_RUN_FLAG,
1125: PROCESSING_PRIORITY,
1126: PROCESSING_TYPE,
1127: STANDARD_LINK_FLAG,
1128: COMMENT_ID,
1129: LEGISLATION_SUBGROUP,
1130: QUALIFYING_AGE,
1131: QUALIFYING_LENGTH_OF_SERVICE,
1197: pel.PAY_BASIS_ID,
1198: pel.COSTABLE_TYPE,
1199: pel.LINK_TO_ALL_PAYROLLS_FLAG,
1200: pel.MULTIPLY_VALUE_FLAG,
1201: pel.STANDARD_LINK_FLAG,
1202: pel.TRANSFER_TO_GL_FLAG,
1203: pel.COMMENT_ID,
1204: pel.EMPLOYMENT_CATEGORY,
1205: pel.QUALIFYING_AGE,
1288: ,p_multiply_value_flag => rec_element_types.MULTIPLY_VALUE_FLAG
1289: ,p_post_termination_rule => rec_element_types.POST_TERMINATION_RULE
1290: ,p_process_in_run_flag => rec_element_types.PROCESS_IN_RUN_FLAG
1291: ,p_processing_priority => rec_element_types.PROCESSING_PRIORITY
1292: ,p_standard_link_flag => rec_element_types.STANDARD_LINK_FLAG
1293: ,p_third_party_pay_only_flag => rec_element_types.THIRD_PARTY_PAY_ONLY_FLAG
1294: ,p_iterative_flag => rec_element_types.ITERATIVE_FLAG
1295: ,p_iterative_formula_id => rec_element_types.ITERATIVE_FORMULA_ID
1296: ,p_iterative_priority => rec_element_types.ITERATIVE_PRIORITY
1322: ,p_object_version_number => l_ovn
1323: ,p_comment_id => l_comment_id
1324: ,p_processing_priority_warning => l_warning);
1325:
1326: /*Bug 7665727 - deleting Standard sub classification and adding Spread sub classification */
1327: /*Bug 8765082 - Added Sub classification for Leave Loading */
1328: IF p_class_label = 'Spread' OR p_class_label = 'Leave Loading' OR p_class_label = 'Additional' THEN -- bug13362286
1329:
1330: IF g_debug THEN
1342: from pay_element_classifications
1343: where classification_name = p_class_label /* Bug 8765082 */
1344: and legislation_code = 'AU';
1345:
1346: /* Deleting Standard sub classification*/
1347: pay_sub_class_rules_pkg.DELETE_ROW (l_rowid,l_sub_classification_rule_id,'ZAP',l_effective_start_date,l_effective_end_date);
1348:
1349: /* Adding Spread sub classification*/
1350: pay_sub_class_rules_pkg.insert_row (
1405: ,p_grade_id => rec_element_links.GRADE_ID
1406: ,p_element_set_id => rec_element_links.ELEMENT_SET_ID
1407: ,p_pay_basis_id => rec_element_links.PAY_BASIS_ID
1408: ,p_link_to_all_payrolls_flag => rec_element_links.LINK_TO_ALL_PAYROLLS_FLAG
1409: ,p_standard_link_flag => rec_element_links.STANDARD_LINK_FLAG
1410: ,p_transfer_to_gl_flag => rec_element_links.TRANSFER_TO_GL_FLAG
1411: ,p_employment_category => rec_element_links.EMPLOYMENT_CATEGORY
1412: ,p_qualifying_age => rec_element_links.QUALIFYING_AGE
1413: ,p_qualifying_length_of_service => rec_element_links.QUALIFYING_LENGTH_OF_SERVICE
1677: ** Description: This is the qualifying procedure which determines whether
1678: ** the element passed in as a parameter needs to be migrated.
1679: ** The conditions that are checked here are
1680: ** 1. Element is part of a Retro Set used for Retro
1681: ** 2. Element is of type "Pre Tax Deductions" and "Earnings Standard"
1682: **
1683: ****************************************************************************/
1684: PROCEDURE qualify_element(p_object_id in varchar2
1685: ,p_qualified out nocopy varchar2)
1888: open c_element_check(ln_element_set_id);
1889: fetch c_element_check into ln_element_used;
1890: /* 7665727,8765082 Spread, Leave Loading Added, 13362286 Additional */
1891: if c_element_check%found AND ((lv_classification_name = 'Earnings' AND
1892: (lv_label = 'Standard' OR lv_label = 'Spread' OR lv_label = 'Leave Loading' OR lv_label = 'Additional'))
1893: OR lv_classification_name = 'Pre Tax Deductions'
1894: OR ln_retro_summ_ele_id IS NOT NULL) then
1895:
1896: lv_qualified := 'Y';
1916: /* Bug 5749509 - Moved statement outside IF Block */
1917: p_qualified := lv_qualified;
1918:
1919: /* Bug 5731490 - Moved statement outside IF Block */
1920: if ((lv_classification_name = 'Earnings' AND (lv_label = 'Standard' OR lv_label = 'Spread' OR lv_label = 'Leave Loading' OR lv_label = 'Additional')) /* 7665727,8765082 Spread, Leave Loading, 13362286 Additional */
1921: OR lv_classification_name = 'Pre Tax Deductions'
1922: OR ln_retro_summ_ele_id IS NOT NULL) and lv_qualified ='N' and ln_element_set_exist = TRUE then
1923: fnd_file.put_line(FND_FILE.LOG,'MESSAGE: Element ' || lv_element_name || ' (Element Type ID: ' || p_object_id|| ')'|| ' does not require upgrade as not included in a Retro Element set.');
1924: elsif NOT ((lv_classification_name = 'Earnings' AND (lv_label = 'Standard' OR lv_label = 'Spread' OR lv_label = 'Leave Loading' OR lv_label = 'Additional')) /* 7665727,8765082 Spread, Leave Loading, 13362286 Additional */
1920: if ((lv_classification_name = 'Earnings' AND (lv_label = 'Standard' OR lv_label = 'Spread' OR lv_label = 'Leave Loading' OR lv_label = 'Additional')) /* 7665727,8765082 Spread, Leave Loading, 13362286 Additional */
1921: OR lv_classification_name = 'Pre Tax Deductions'
1922: OR ln_retro_summ_ele_id IS NOT NULL) and lv_qualified ='N' and ln_element_set_exist = TRUE then
1923: fnd_file.put_line(FND_FILE.LOG,'MESSAGE: Element ' || lv_element_name || ' (Element Type ID: ' || p_object_id|| ')'|| ' does not require upgrade as not included in a Retro Element set.');
1924: elsif NOT ((lv_classification_name = 'Earnings' AND (lv_label = 'Standard' OR lv_label = 'Spread' OR lv_label = 'Leave Loading' OR lv_label = 'Additional')) /* 7665727,8765082 Spread, Leave Loading, 13362286 Additional */
1925: OR lv_classification_name = 'Pre Tax Deductions'
1926: OR ln_retro_summ_ele_id IS NOT NULL) and ln_element_set_exist = TRUE then
1927: fnd_file.put_line(FND_FILE.LOG,'MESSAGE: Element ' || lv_element_name || ' (Element Type ID: ' || p_object_id|| ')'|| ' with classification ' ||lv_classification_name||' '||lv_label||' does not require upgrade.');
1928: end if;
2152: element_exist_check(nvl(ln_retro_element_type_id,p_element_type_id),ln_ele_business_group_id,l_upgrade_element_exist,l_user_element_exist);
2153: end if;
2154:
2155: if ln_retro_comp_exists = 0 and l_user_element_exist='N'
2156: AND ( (lv_classification_name = 'Earnings' AND (lv_class_label ='Standard' OR lv_class_label ='Spread' OR lv_class_label = 'Leave Loading' OR lv_class_label ='Additional')) /* 7665727, 8765082, 13362286 */
2157: OR (lv_classification_name = 'Pre Tax Deductions'))
2158: /* Bug 5731490 - Enter Loop to create Retro components only for Earnings Standard and Pre Tax Deductions
2159: Bug 7665727 - Earnings Spread */
2160: THEN /* Bug#5583165 */
2154:
2155: if ln_retro_comp_exists = 0 and l_user_element_exist='N'
2156: AND ( (lv_classification_name = 'Earnings' AND (lv_class_label ='Standard' OR lv_class_label ='Spread' OR lv_class_label = 'Leave Loading' OR lv_class_label ='Additional')) /* 7665727, 8765082, 13362286 */
2157: OR (lv_classification_name = 'Pre Tax Deductions'))
2158: /* Bug 5731490 - Enter Loop to create Retro components only for Earnings Standard and Pre Tax Deductions
2159: Bug 7665727 - Earnings Spread */
2160: THEN /* Bug#5583165 */
2161: /* Get retro component info for AU legislation. */
2162: open c_retro_info(lv_legislation_code);
2486:
2487: END IF;
2488: CLOSE c_retro_info;
2489:
2490: END IF; /*End of Check for Earnings Standard and Pre Tax Deductions */
2491:
2492: IF g_debug THEN
2493: hr_utility.trace('Leaving ' || gv_package_name || lv_procedure_name);
2494: End if;