[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
107: POST_TERMINATION_RULE,
108: PROCESS_IN_RUN_FLAG,
109: PROCESSING_PRIORITY,
110: PROCESSING_TYPE,
111: STANDARD_LINK_FLAG,
112: COMMENT_ID,
113: LEGISLATION_SUBGROUP,
114: QUALIFYING_AGE,
115: QUALIFYING_LENGTH_OF_SERVICE,
198: ,p_multiply_value_flag => rec_element_types.MULTIPLY_VALUE_FLAG
199: ,p_post_termination_rule => rec_element_types.POST_TERMINATION_RULE
200: ,p_process_in_run_flag => rec_element_types.PROCESS_IN_RUN_FLAG
201: ,p_processing_priority => rec_element_types.PROCESSING_PRIORITY
202: ,p_standard_link_flag => rec_element_types.STANDARD_LINK_FLAG
203: ,p_third_party_pay_only_flag => rec_element_types.THIRD_PARTY_PAY_ONLY_FLAG
204: ,p_iterative_flag => rec_element_types.ITERATIVE_FLAG
205: ,p_iterative_formula_id => rec_element_types.ITERATIVE_FORMULA_ID
206: ,p_iterative_priority => rec_element_types.ITERATIVE_PRIORITY
969: POST_TERMINATION_RULE,
970: PROCESS_IN_RUN_FLAG,
971: PROCESSING_PRIORITY,
972: PROCESSING_TYPE,
973: STANDARD_LINK_FLAG,
974: COMMENT_ID,
975: LEGISLATION_SUBGROUP,
976: QUALIFYING_AGE,
977: QUALIFYING_LENGTH_OF_SERVICE,
1043: pel.PAY_BASIS_ID,
1044: pel.COSTABLE_TYPE,
1045: pel.LINK_TO_ALL_PAYROLLS_FLAG,
1046: pel.MULTIPLY_VALUE_FLAG,
1047: pel.STANDARD_LINK_FLAG,
1048: pel.TRANSFER_TO_GL_FLAG,
1049: pel.COMMENT_ID,
1050: pel.EMPLOYMENT_CATEGORY,
1051: pel.QUALIFYING_AGE,
1126: ,p_multiply_value_flag => rec_element_types.MULTIPLY_VALUE_FLAG
1127: ,p_post_termination_rule => rec_element_types.POST_TERMINATION_RULE
1128: ,p_process_in_run_flag => rec_element_types.PROCESS_IN_RUN_FLAG
1129: ,p_processing_priority => rec_element_types.PROCESSING_PRIORITY
1130: ,p_standard_link_flag => rec_element_types.STANDARD_LINK_FLAG
1131: ,p_third_party_pay_only_flag => rec_element_types.THIRD_PARTY_PAY_ONLY_FLAG
1132: ,p_iterative_flag => rec_element_types.ITERATIVE_FLAG
1133: ,p_iterative_formula_id => rec_element_types.ITERATIVE_FORMULA_ID
1134: ,p_iterative_priority => rec_element_types.ITERATIVE_PRIORITY
1204: ,p_grade_id => rec_element_links.GRADE_ID
1205: ,p_element_set_id => rec_element_links.ELEMENT_SET_ID
1206: ,p_pay_basis_id => rec_element_links.PAY_BASIS_ID
1207: ,p_link_to_all_payrolls_flag => rec_element_links.LINK_TO_ALL_PAYROLLS_FLAG
1208: ,p_standard_link_flag => rec_element_links.STANDARD_LINK_FLAG
1209: ,p_transfer_to_gl_flag => rec_element_links.TRANSFER_TO_GL_FLAG
1210: ,p_employment_category => rec_element_links.EMPLOYMENT_CATEGORY
1211: ,p_qualifying_age => rec_element_links.QUALIFYING_AGE
1212: ,p_qualifying_length_of_service => rec_element_links.QUALIFYING_LENGTH_OF_SERVICE
1474: ** Description: This is the qualifying procedure which determines whether
1475: ** the element passed in as a parameter needs to be migrated.
1476: ** The conditions that are checked here are
1477: ** 1. Element is part of a Retro Set used for Retro
1478: ** 2. Element is of type "Pre Tax Deductions" and "Earnings Standard"
1479: **
1480: ****************************************************************************/
1481: PROCEDURE qualify_element(p_object_id in varchar2
1482: ,p_qualified out nocopy varchar2)
1677: /* Chechk whether Element set is used for retropayment */
1678: /* Bug 5731490 - Check Added for summary element */
1679: open c_element_check(ln_element_set_id);
1680: fetch c_element_check into ln_element_used;
1681: if c_element_check%found AND ((lv_classification_name = 'Earnings' AND lv_label = 'Standard')
1682: OR lv_classification_name = 'Pre Tax Deductions'
1683: OR ln_retro_summ_ele_id IS NOT NULL) then
1684:
1685: lv_qualified := 'Y';
1705: /* Bug 5749509 - Moved statement outside IF Block */
1706: p_qualified := lv_qualified;
1707:
1708: /* Bug 5731490 - Moved statement outside IF Block */
1709: if ((lv_classification_name = 'Earnings' AND lv_label = 'Standard')
1710: OR lv_classification_name = 'Pre Tax Deductions'
1711: OR ln_retro_summ_ele_id IS NOT NULL) and lv_qualified ='N' and ln_element_set_exist = TRUE then
1712: 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.');
1713: elsif NOT ((lv_classification_name = 'Earnings' AND lv_label = 'Standard')
1709: if ((lv_classification_name = 'Earnings' AND lv_label = 'Standard')
1710: OR lv_classification_name = 'Pre Tax Deductions'
1711: OR ln_retro_summ_ele_id IS NOT NULL) and lv_qualified ='N' and ln_element_set_exist = TRUE then
1712: 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.');
1713: elsif NOT ((lv_classification_name = 'Earnings' AND lv_label = 'Standard')
1714: OR lv_classification_name = 'Pre Tax Deductions'
1715: OR ln_retro_summ_ele_id IS NOT NULL) and ln_element_set_exist = TRUE then
1716: 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.');
1717: end if;
1948: 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);
1949: end if;
1950:
1951: if ln_retro_comp_exists = 0 and l_user_element_exist='N'
1952: AND ( (lv_classification_name = 'Earnings' AND lv_class_label ='Standard')
1953: OR (lv_classification_name = 'Pre Tax Deductions')
1954: ) /* Bug 5731490 - Enter Loop to create Retro components only for Earnings Standard and
1955: Pre Tax Deductions */
1956: THEN /* Bug#5583165 */
1950:
1951: if ln_retro_comp_exists = 0 and l_user_element_exist='N'
1952: AND ( (lv_classification_name = 'Earnings' AND lv_class_label ='Standard')
1953: OR (lv_classification_name = 'Pre Tax Deductions')
1954: ) /* Bug 5731490 - Enter Loop to create Retro components only for Earnings Standard and
1955: Pre Tax Deductions */
1956: THEN /* Bug#5583165 */
1957: /* Get retro component info for AU legislation. */
1958: open c_retro_info(lv_legislation_code);
2217:
2218: END IF;
2219: CLOSE c_retro_info;
2220:
2221: END IF; /*End of Check for Earnings Standard and Pre Tax Deductions */
2222:
2223: IF g_debug THEN
2224: hr_utility.trace('Leaving ' || gv_package_name || lv_procedure_name);
2225: End if;