[Home] [Help]
66: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
67: l_category_name pay_balance_categories_f.category_name%TYPE;
68:
69: Begin
70: hr_utility.set_location('Entering:'|| l_proc, 10);
71: --
72: -- Check if the EE Contribution
73: -- balances already exist for the BG
74: --
85: If p_business_group_id Is Not Null Then
86: Open csr_bg;
87: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
88: Close csr_bg;
89: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
90: ElsIf p_legislation_code Is Not Null Then
91: l_currency_code := hr_general.default_currency_code(p_legislation_code);
92: l_legislation_code := p_legislation_code;
93: Else
107: ,c_legislation_code => 'NL'
108: ,c_effective_date => p_effective_date);
109: FETCH csr_get_balance_cat_id INTO l_balance_cat_id;
110: CLOSE csr_get_balance_cat_id;
111: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
112: End If;
113:
114: --
115: -- These global variables would be used by other procedures
124:
125: l_balance_name := p_pension_type_name||' EE Contribution';
126: l_reporting_name := l_balance_name;
127:
128: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
129: Pay_Balance_Types_pkg.Insert_Row
130: (x_Rowid => l_row_id
131: ,x_Balance_Type_Id => l_balance_type_id
132: ,x_Business_Group_Id => p_business_group_id
163: ,x_balance_category_id => l_balance_cat_id
164: ,x_base_balance_type_id => Null
165: ,x_input_value_id => Null
166: );
167: hr_utility.set_location(' Created balance :'||l_balance_name,22);
168:
169: p_ee_balance_typeid := l_balance_type_id;
170:
171: l_balance_type_id := Null;
173:
174: --
175: -- Create the dimensions for the balances.
176: --
177: hr_utility.set_location(' Creating Defined balances', 25);
178:
179:
180: l_balance_type_id := p_ee_balance_typeid;
181:
198:
199:
200: Exception
201: When Others Then
202: hr_utility.set_location('Exception in Create_EE_Balance',150);
203: raise;
204:
205: End Create_EE_Balance;
206:
261: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
262: l_category_name pay_balance_categories_f.category_name%TYPE;
263:
264: Begin
265: hr_utility.set_location('Entering:'|| l_proc, 10);
266: --
267: -- Check if the ER Contribution
268: -- balances already exist for the BG
269: --
280: If p_business_group_id Is Not Null Then
281: Open csr_bg;
282: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
283: Close csr_bg;
284: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
285: ElsIf p_legislation_code Is Not Null Then
286: l_currency_code := hr_general.default_currency_code(p_legislation_code);
287: l_legislation_code := p_legislation_code;
288: Else
302: ,c_legislation_code => 'NL'
303: ,c_effective_date => p_effective_date);
304: FETCH csr_get_balance_cat_id INTO l_balance_cat_id;
305: CLOSE csr_get_balance_cat_id;
306: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
307: End If;
308:
309: --
310: -- These global variables would be used by other procedures
319:
320: l_balance_name := p_pension_type_name||' ER Contribution';
321: l_reporting_name := l_balance_name;
322:
323: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
324: Pay_Balance_Types_pkg.Insert_Row
325: (x_Rowid => l_row_id
326: ,x_Balance_Type_Id => l_balance_type_id
327: ,x_Business_Group_Id => p_business_group_id
358: ,x_balance_category_id => l_balance_cat_id
359: ,x_base_balance_type_id => Null
360: ,x_input_value_id => Null
361: );
362: hr_utility.set_location(' Created balance :'||l_balance_name,22);
363:
364: p_er_balance_typeid := l_balance_type_id;
365:
366: l_balance_type_id := Null;
368:
369: --
370: -- Create the dimensions for the balances.
371: --
372: hr_utility.set_location(' Creating Defined balances', 25);
373:
374:
375: l_balance_type_id := p_er_balance_typeid;
376:
393:
394:
395: Exception
396: When Others Then
397: hr_utility.set_location('Exception in Create_ER_Balance',150);
398: raise;
399:
400: End Create_ER_Balance;
401: --
456: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
457: l_category_name pay_balance_categories_f.category_name%TYPE;
458:
459: Begin
460: hr_utility.set_location('Entering:'|| l_proc, 10);
461: --
462: -- Check if the EE Contribution and ER Contribution
463: -- balances already exist for the BG
464: --
485: If p_business_group_id Is Not Null Then
486: Open csr_bg;
487: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
488: Close csr_bg;
489: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
490: ElsIf p_legislation_code Is Not Null Then
491: l_currency_code := hr_general.default_currency_code(p_legislation_code);
492: l_legislation_code := p_legislation_code;
493: Else
503: ,c_legislation_code => 'GB'
504: ,c_effective_date => p_effective_date);
505: Fetch csr_get_balance_cat_id into l_balance_cat_id;
506: close csr_get_balance_cat_id;
507: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
508: ElsIf (l_legislation_code is Not Null and l_legislation_code = 'NL') Then
509: l_balance_cat_id := Null;
510: IF p_pension_category = 'P' THEN
511: l_category_name := 'Pension Contribution';
517: ,c_legislation_code => 'NL'
518: ,c_effective_date => p_effective_date);
519: FETCH csr_get_balance_cat_id INTO l_balance_cat_id;
520: CLOSE csr_get_balance_cat_id;
521: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
522:
523: ElsIf (l_legislation_code is Not Null and l_legislation_code = 'IE') Then
524: l_balance_cat_id := Null;
525:
527: ,c_legislation_code => 'IE'
528: ,c_effective_date => p_effective_date);
529: Fetch csr_get_balance_cat_id into l_balance_cat_id;
530: close csr_get_balance_cat_id;
531: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
532:
533: End If;
534:
535: --
548: Else
549: l_balance_name := p_pension_type_name||' ER Contribution';
550: l_reporting_name := l_balance_name;
551: End if;
552: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
553: Pay_Balance_Types_pkg.Insert_Row
554: (x_Rowid => l_row_id
555: ,x_Balance_Type_Id => l_balance_type_id
556: ,x_Business_Group_Id => p_business_group_id
587: ,x_balance_category_id => l_balance_cat_id
588: ,x_base_balance_type_id => Null
589: ,x_input_value_id => Null
590: );
591: hr_utility.set_location(' Created balance :'||l_balance_name,22);
592: If i = 1 Then
593: p_ee_balance_typeid := l_balance_type_id;
594: Else
595: p_er_balance_typeid := l_balance_type_id;
599: End Loop;
600: --
601: -- Create the dimensions for the balances.
602: --
603: hr_utility.set_location(' Creating Defined balances', 25);
604: For i in 1..2 Loop
605: If i = 1 Then
606: l_balance_type_id := p_ee_balance_typeid;
607: Else
626: End Loop;
627:
628: Exception
629: When Others Then
630: hr_utility.set_location('Exception in Create_EE_ER_Balances',150);
631: raise;
632:
633: End Create_EE_ER_Balances;
634:
688: l_pension_sub_cat varchar2(80) := '';
689: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE;
690:
691: Begin
692: hr_utility.set_location('Entering:'|| l_proc, 10);
693:
694: -- First construct the EE and ER sub category level balance names
695: If p_pension_sub_cat IS NOT NULL THEN
696:
723: If p_business_group_id Is Not Null Then
724: Open csr_bg;
725: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
726: Close csr_bg;
727: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
728: ElsIf p_legislation_code Is Not Null Then
729: l_currency_code := hr_general.default_currency_code(p_legislation_code);
730: l_legislation_code := p_legislation_code;
731: Else
747: ,c_legislation_code => 'NL'
748: ,c_effective_date => p_effective_date);
749: FETCH csr_get_balance_cat_id INTO l_balance_cat_id;
750: CLOSE csr_get_balance_cat_id;
751: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
752:
753: --
754: -- Create the EE and ER Contribution balances
755: --
780:
781: Else
782: Close csr_bal_typ_id;
783:
784: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
785: Pay_Balance_Types_pkg.Insert_Row
786: (x_Rowid => l_row_id
787: ,x_Balance_Type_Id => l_balance_type_id
788: ,x_Business_Group_Id => p_business_group_id
819: ,x_balance_category_id => l_balance_cat_id
820: ,x_base_balance_type_id => Null
821: ,x_input_value_id => Null
822: );
823: hr_utility.set_location(' Created balance :'||l_balance_name,22);
824: If i = 1 Then
825: p_ee_balance_typeid := l_balance_type_id;
826: Else
827: p_er_balance_typeid := l_balance_type_id;
829:
830: --
831: -- Create the dimensions for the balances.
832: --
833: hr_utility.set_location(' Creating Defined balances', 25);
834: If i = 1 Then
835: l_balance_type_id := p_ee_balance_typeid;
836: Else
837: l_balance_type_id := p_er_balance_typeid;
862: End If; /* end of chk for NL*/
863: End If; /* end of chk for non null sub category*/
864: Exception
865: When Others Then
866: hr_utility.set_location('Exception in Create_ABP_EE_ER_Balances',150);
867: raise;
868:
869: End Create_ABP_EE_ER_Balances;
870:
905: l_business_group_name per_business_groups.name%TYPE;
906: l_pension_sub_cat_mean varchar2(80) := '';
907:
908: Begin
909: hr_utility.set_location(' Entering:'|| l_proc, 10);
910: l_business_group_name := g_bg_grp_name;
911:
912: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
913: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
908: Begin
909: hr_utility.set_location(' Entering:'|| l_proc, 10);
910: l_business_group_name := g_bg_grp_name;
911:
912: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
913: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
914:
915: hr_utility.set_location(' Creating the balance initialization element', 15);
916: p_balance_init_element_type_id :=
911:
912: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
913: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
914:
915: hr_utility.set_location(' Creating the balance initialization element', 15);
916: p_balance_init_element_type_id :=
917: pay_db_pay_setup.create_element
918: ( p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
919: ,p_description => 'Element for initializing '||p_pension_type_name||' balances'
930: ,p_effective_start_date => p_effective_date
931: ,p_effective_end_date => hr_api.g_eot
932: );
933:
934: hr_utility.set_location(' Creating input value EE Contribution', 20);
935: l_ipv_ee_contr := pay_db_pay_setup.create_input_value
936: (
937: p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
938: ,p_name => 'EE Contribution'
943: ,p_effective_start_date => p_effective_date
944: ,p_effective_end_date => hr_api.g_eot
945: ,p_legislation_code => p_legislation_code
946: );
947: hr_utility.set_location(' Creating input value ER Contribution', 25);
948: l_ipv_er_contr := pay_db_pay_setup.create_input_value
949: (
950: p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
951: ,p_name => 'ER Contribution'
1006: Loop
1007: l_count := l_count + 1 ;
1008: l_balfeeds_tab(l_count).balance_type_id := c_rec.balance_type_id;
1009: l_balfeeds_tab(l_count).input_value_id := l_ipv_er_contr;
1010: hr_utility.set_location(' Found seeded balance ER Pension Contribution',30);
1011: End Loop;
1012:
1013: If p_pension_sub_cat IS NULL THEN
1014: For c_rec in csr_bal_type
1033: Loop
1034: l_count := l_count + 1 ;
1035: l_balfeeds_tab(l_count).balance_type_id := c_rec.balance_type_id;
1036: l_balfeeds_tab(l_count).input_value_id := l_ipv_ee_contr;
1037: hr_utility.set_location(' Found seeded balance EE Pension Contribution',35);
1038: End Loop;
1039:
1040: hr_utility.set_location(' Creating input value ER,EE Contribution, balance feeds', 40);
1041: For i in 1..l_count Loop
1036: l_balfeeds_tab(l_count).input_value_id := l_ipv_ee_contr;
1037: hr_utility.set_location(' Found seeded balance EE Pension Contribution',35);
1038: End Loop;
1039:
1040: hr_utility.set_location(' Creating input value ER,EE Contribution, balance feeds', 40);
1041: For i in 1..l_count Loop
1042: Pay_Balance_Feeds_f_pkg.Insert_Row(
1043: X_Rowid => l_row_id,
1044: X_Balance_Feed_Id => l_Balance_Feed_Id,
1054:
1055: l_Balance_Feed_Id := Null;
1056: l_row_id := Null;
1057: End Loop;
1058: hr_utility.set_location(' Leaving:'|| l_proc, 80);
1059:
1060: Exception
1061: When Others Then
1062: hr_utility.set_location('Exception in Create_Balance_Init_Ele',150);
1058: hr_utility.set_location(' Leaving:'|| l_proc, 80);
1059:
1060: Exception
1061: When Others Then
1062: hr_utility.set_location('Exception in Create_Balance_Init_Ele',150);
1063: raise;
1064:
1065: End Create_Balance_Init_Ele;
1066:
1261: l_ee_annual_salary_threshold number;
1262: l_leg_code varchar2(10);
1263:
1264: begin
1265: hr_utility.set_location('Entering:'|| l_proc, 10);
1266: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1267: -- Issue a savepoint
1268: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1269: savepoint Create_Pension_Type;
1350:
1351: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1352: -- Create the EE, ER Contribution balances(only for NL,GB)
1353: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1354: hr_utility.set_location('Creating EE, ER Balances ',14);
1355: OPEN c_get_leg_code;
1356: FETCH c_get_leg_code INTO l_leg_code;
1357: CLOSE c_get_leg_code;
1358:
1381: ,p_er_balance_typeid => l_er_contribution_bal_type_id
1382: );
1383:
1384: End If;
1385: hr_utility.set_location('Created EE, ER Balances ',15);
1386: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1387: -- Create Balance Initialization Element
1388: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1389: IF (NVL(p_special_pension_type_code,'X') <> 'PGGM' and p_pension_category = 'P') THEN
1450: -- Call Before Process User Hook
1451: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1452:
1453: begin
1454: hr_utility.set_location('Before Calling User Hook Create_PensionType_b',20);
1455: PQP_Pension_Types_BK1.Create_Pension_Type_b
1456: (p_validate => p_validate
1457: ,p_effective_date => l_effective_date
1458: ,p_pension_type_name => p_pension_type_name
1545: ,p_er_age_threshold => p_er_age_threshold -- added for ABP TAR fixes
1546: ,p_ee_age_contribution => p_ee_age_contribution -- added for ABP TAR fixes
1547: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
1548: );
1549: hr_utility.set_location('After Calling User Hook Create_PensionType_b',20);
1550: exception
1551: when hr_api.cannot_find_prog_unit then
1552: hr_utility.set_location('Exception in User Hook Create_PensionType_b',25);
1553: hr_api.cannot_find_prog_unit_error
1548: );
1549: hr_utility.set_location('After Calling User Hook Create_PensionType_b',20);
1550: exception
1551: when hr_api.cannot_find_prog_unit then
1552: hr_utility.set_location('Exception in User Hook Create_PensionType_b',25);
1553: hr_api.cannot_find_prog_unit_error
1554: (p_module_name => 'Create_Pension_Type'
1555: ,p_hook_type => 'BP'
1556: );
1564:
1565: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1566: -- Process Logic - Call the row-handler ins procedure
1567: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1568: hr_utility.set_location('Before calling row-handler pqp_pty_ins.ins',30);
1569: pqp_pty_ins.ins
1570: (p_effective_date => l_effective_date
1571: ,p_pension_type_name => p_pension_type_name
1572: ,p_pension_category => p_pension_category
1792: p_effective_start_date := l_effective_start_date;
1793: p_effective_end_date := l_effective_end_date;
1794:
1795: --
1796: hr_utility.set_location(' Leaving:'||l_proc, 70);
1797: Exception
1798: When hr_api.validate_enabled Then
1799: --
1800: -- As the Validate_Enabled exception has been raised
1810: p_object_version_number := Null;
1811: p_effective_start_date := Null;
1812: p_effective_end_date := Null;
1813: p_api_warning := l_api_warning;
1814: hr_utility.set_location(' Leaving:'||l_proc, 80);
1815: When Others Then
1816: --
1817: -- A validation or unexpected error has occured
1818: --
1816: --
1817: -- A validation or unexpected error has occured
1818: --
1819: Rollback to Create_Pension_Type;
1820: hr_utility.set_location('error is : '||SQLERRM,85);
1821: hr_utility.set_location(' Leaving:'||l_proc, 90);
1822: Raise;
1823: End Create_Pension_Type;
1824: --
1817: -- A validation or unexpected error has occured
1818: --
1819: Rollback to Create_Pension_Type;
1820: hr_utility.set_location('error is : '||SQLERRM,85);
1821: hr_utility.set_location(' Leaving:'||l_proc, 90);
1822: Raise;
1823: End Create_Pension_Type;
1824: --
1825: -- ----------------------------------------------------------------------------
1954: AND effective_end_date;
1955:
1956: Begin
1957: p_api_warning := hr_api.g_varchar2;
1958: hr_utility.set_location('Entering:'|| l_proc, 10);
1959: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1960: -- Issue a savepoint
1961: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1962: savepoint Update_Pension_Type;
2042: -- Call Before Process User Hook
2043: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2044:
2045: begin
2046: hr_utility.set_location('Before Calling User Hook Update_Pension_Type_b',20);
2047: PQP_Pension_Types_BK2.Update_Pension_Type_b
2048: (p_validate => p_validate
2049: ,p_effective_date => p_effective_date
2050: ,p_datetrack_mode => p_datetrack_mode
2140: ,p_er_age_threshold => p_er_age_threshold -- added for ABP TAR fixes
2141: ,p_ee_age_contribution => p_ee_age_contribution -- added for ABP TAR fixes
2142: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
2143: );
2144: hr_utility.set_location('After Calling User Hook Update_Pension_Type_b',20);
2145: exception
2146: when hr_api.cannot_find_prog_unit then
2147: hr_utility.set_location('Exception in User Hook Update_Pension_Type_b',25);
2148: hr_api.cannot_find_prog_unit_error
2143: );
2144: hr_utility.set_location('After Calling User Hook Update_Pension_Type_b',20);
2145: exception
2146: when hr_api.cannot_find_prog_unit then
2147: hr_utility.set_location('Exception in User Hook Update_Pension_Type_b',25);
2148: hr_api.cannot_find_prog_unit_error
2149: (p_module_name => 'Update_Pension_Type'
2150: ,p_hook_type => 'BP'
2151: );
2157:
2158: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2159: -- Process Logic - Call the row-handler ins procedure
2160: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2161: hr_utility.set_location('Before calling row-handler pqp_pty_upd.upd',30);
2162: pqp_pty_upd.upd
2163: (p_effective_date => l_effective_date
2164: ,p_datetrack_mode => p_datetrack_mode
2165: ,p_pension_type_id => p_pension_type_id
2260: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2261: -- Call After Process User Hook
2262: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2263: begin
2264: hr_utility.set_location(' Before Calling User Hook : Update_Pension_Type_a',20);
2265: PQP_Pension_Types_BK2.Update_Pension_Type_a
2266: (p_validate => p_validate
2267: ,p_effective_date => p_effective_date
2268: ,p_datetrack_mode => p_datetrack_mode
2360: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
2361: ,p_effective_start_date => l_effective_start_date
2362: ,p_effective_end_date => l_effective_end_date
2363: );
2364: hr_utility.set_location(' After Calling User Hook : Update_Pension_Type_a',20);
2365: Exception
2366: When hr_api.cannot_find_prog_unit Then
2367: hr_utility.set_location('Exception in User Hook : Update_Pension_Type_a',25);
2368: hr_api.cannot_find_prog_unit_error
2363: );
2364: hr_utility.set_location(' After Calling User Hook : Update_Pension_Type_a',20);
2365: Exception
2366: When hr_api.cannot_find_prog_unit Then
2367: hr_utility.set_location('Exception in User Hook : Update_Pension_Type_a',25);
2368: hr_api.cannot_find_prog_unit_error
2369: (p_module_name => 'Update_Pension_Type'
2370: ,p_hook_type => 'AP'
2371: );
2385: p_object_version_number := l_object_version_number;
2386: --p_api_warning := l_api_warning;
2387:
2388: --
2389: hr_utility.set_location(' Leaving:'||l_proc, 70);
2390: Exception
2391: When hr_api.validate_enabled Then
2392: --
2393: -- As the Validate_Enabled exception has been raised
2401: --
2402: p_effective_start_date := Null;
2403: p_effective_end_date := Null;
2404: --p_api_warning := l_api_warning;
2405: hr_utility.set_location(' Leaving:'||l_proc, 80);
2406: When Others Then
2407: --
2408: -- A validation or unexpected error has occured
2409: --
2407: --
2408: -- A validation or unexpected error has occured
2409: --
2410: Rollback to Update_Pension_Type;
2411: hr_utility.set_location(' Leaving:'||l_proc, 90);
2412: Raise;
2413:
2414: End Update_Pension_Type;
2415:
2439: l_pty_rec csr_get_pty_bal_ele_info%ROWTYPE;
2440: --
2441: Begin
2442: --
2443: hr_utility.set_location ('Entering: '||l_proc, 10);
2444:
2445: OPEN csr_get_pty_bal_ele_info;
2446: FETCH csr_get_pty_bal_ele_info INTO l_pty_rec;
2447: -- No need to check for cursor found as this
2452: p_er_contribution_bal_type_id := l_pty_rec.er_contribution_bal_type_id;
2453: p_balance_init_ele_type_id := l_pty_rec.balance_init_element_type_id;
2454:
2455: --
2456: hr_utility.set_location ('Leaving: '||l_proc, 20);
2457: --
2458: Exception
2459:
2460: When Others Then
2457: --
2458: Exception
2459:
2460: When Others Then
2461: hr_utility.set_location ('Others Exception occurred in '||l_proc, 30);
2462: p_ee_contribution_bal_type_id := NULL;
2463: p_er_contribution_bal_type_id := NULL;
2464: p_balance_init_ele_type_id := NULL;
2465: RAISE;
2506:
2507: --
2508: Begin
2509: --
2510: hr_utility.set_location ('Entering: '||l_proc, 10);
2511: --
2512:
2513: -- Delete the input values for this element first
2514: -- Only do this if datetrack mode is not 'DELETE'
2518: FOR csr_get_ipv_rec IN csr_get_ipv_info
2519: LOOP
2520:
2521: -- Call the api to delete input values
2522: hr_utility.set_location (l_proc, 20);
2523: --
2524: pay_input_value_api.delete_input_value
2525: (p_validate => p_validate
2526: ,p_effective_date => p_effective_date
2536:
2537: END IF; -- End if of date track mode not delete check ...
2538:
2539: -- Delete the element now
2540: hr_utility.set_location (l_proc, 30);
2541:
2542: -- Get ele ovn
2543: OPEN csr_get_ele_ovn;
2544: FETCH csr_get_ele_ovn INTO l_ele_ovn;
2560: END IF; -- End if of check element exists check ...
2561:
2562: CLOSE csr_get_ele_ovn;
2563: --
2564: hr_utility.set_location ('Leaving: '||l_proc, 40);
2565: --
2566: End Delete_Balance_Init_Ele;
2567: --
2568:
2592: l_bal_type_id t_number;
2593: --
2594: Begin
2595: --
2596: hr_utility.set_location ('Entering: '||l_proc, 10);
2597: --
2598: i := 0;
2599: i := i + 1 ;
2600: l_bal_type_id (i) := p_ee_contribution_bal_type_id;
2623: CLOSE csr_get_bal_rowid;
2624:
2625: END LOOP;
2626: --
2627: hr_utility.set_location ('Leaving: '||l_proc, 20);
2628: --
2629: End Delete_EE_ER_Balances;
2630: --
2631:
2652:
2653: BEGIN
2654:
2655: SAVEPOINT end_date_org_info;
2656: hr_utility.set_location('In end date org info'||p_pension_type_id,10);
2657: -- fetch all the org information rows in the org information EIT
2658: -- where the pension type is the same as the current pension type
2659: -- and the end date is greater than the effective end date
2660: FOR temp_rec in c_get_org_info
2658: -- where the pension type is the same as the current pension type
2659: -- and the end date is greater than the effective end date
2660: FOR temp_rec in c_get_org_info
2661: LOOP
2662: hr_utility.set_location('In end date org info',20);
2663: -- for each of these rows call the hr_org_information_pkg.update_row proc
2664: hr_org_information_pkg.update_row
2665: (x_rowid => temp_rec.rowid
2666: ,x_org_information_id => temp_rec.org_information_id
2752: WHERE pension_type_id = p_pension_type_id
2753: AND special_pension_type_code = 'ABP';
2754:
2755: Begin
2756: -- hr_utility.trace_on(null,'rkpipe');
2757: -- if the start date is earlier than the least start date of the PT,raise error
2758: hr_utility.set_location('Entering:'|| l_proc, 10);
2759: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2760: -- Issue a savepoint
2754:
2755: Begin
2756: -- hr_utility.trace_on(null,'rkpipe');
2757: -- if the start date is earlier than the least start date of the PT,raise error
2758: hr_utility.set_location('Entering:'|| l_proc, 10);
2759: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2760: -- Issue a savepoint
2761: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2762: savepoint Delete_Pension_Type;
2781: -- Call Before Process User Hook
2782: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2783: Begin
2784: p_api_warning := hr_api.g_varchar2;
2785: hr_utility.set_location('Before Calling User Hook Delete_Pension_Type_b',20);
2786: PQP_Pension_Types_BK3.Delete_Pension_Type_b
2787: (p_validate => p_validate
2788: ,p_effective_date => p_effective_date
2789: ,p_datetrack_mode => p_datetrack_mode
2789: ,p_datetrack_mode => p_datetrack_mode
2790: ,p_pension_type_id => p_pension_type_id
2791: ,p_object_version_number => l_object_version_number
2792: );
2793: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_b',20);
2794: Exception
2795: When hr_api.cannot_find_prog_unit Then
2796: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_b',25);
2797: hr_api.cannot_find_prog_unit_error
2792: );
2793: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_b',20);
2794: Exception
2795: When hr_api.cannot_find_prog_unit Then
2796: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_b',25);
2797: hr_api.cannot_find_prog_unit_error
2798: (p_module_name => 'Delete_Pension_Type'
2799: ,p_hook_type => 'BP'
2800: );
2814: -- associated with this pension type as this will be lost after
2815: -- calling del rhi procedure
2816:
2817: -- Call function get_pty_bal_ele_info
2818: hr_utility.set_location (l_proc, 25);
2819: get_pty_bal_ele_info
2820: (p_pension_type_id => p_pension_type_id
2821: ,p_effective_date => p_effective_date
2822: ,p_ee_contribution_bal_type_id => l_ee_contribution_bal_type_id
2826:
2827: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2828: -- Process Logic - Call the row-handler del procedure
2829: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2830: hr_utility.set_location('Before calling row-handler pqp_pty_del.del',30);
2831: pqp_pty_del.del
2832: (p_effective_date => p_effective_date
2833: ,p_datetrack_mode => p_datetrack_mode
2834: ,p_pension_type_id => p_pension_type_id
2839:
2840: -- Delete the EE and ER balances and Balance Init Element
2841: -- First delete the element
2842:
2843: hr_utility.set_location (l_proc, 35);
2844: delete_balance_init_ele
2845: (p_balance_init_ele_type_id => l_balance_init_ele_type_id
2846: ,p_validate => p_validate
2847: ,p_effective_date => p_effective_date
2848: ,p_datetrack_mode => p_datetrack_mode
2849: );
2850:
2851: -- Delete balance only if date track mode is ZAP
2852: hr_utility.set_location (l_proc, 36);
2853:
2854: IF p_datetrack_mode = hr_api.g_zap THEN
2855: --only if the PT is not a ABP PT, delete the EE/ER balances
2856: IF l_chk_abp_pt = 0 THEN
2867: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2868: -- Call After Process User Hook
2869: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2870: Begin
2871: hr_utility.set_location('Before Calling User Hook Delete_Pension_Type_a',20);
2872: PQP_Pension_Types_BK3.Delete_Pension_Type_a
2873: (p_validate => p_validate
2874: ,p_effective_date => p_effective_date
2875: ,p_datetrack_mode => p_datetrack_mode
2877: ,p_object_version_number => l_object_version_number
2878: ,p_effective_start_date => l_effective_start_date
2879: ,p_effective_end_date => l_effective_end_date
2880: );
2881: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_a',20);
2882: Exception
2883: When hr_api.cannot_find_prog_unit Then
2884: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_a',25);
2885: hr_api.cannot_find_prog_unit_error
2880: );
2881: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_a',20);
2882: Exception
2883: When hr_api.cannot_find_prog_unit Then
2884: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_a',25);
2885: hr_api.cannot_find_prog_unit_error
2886: (p_module_name => 'Delete_Pension_Type'
2887: ,p_hook_type => 'AP'
2888: );
2900: p_effective_start_date := l_effective_start_date;
2901: p_effective_end_date := l_effective_end_date;
2902: p_object_version_number := l_object_version_number;
2903: --
2904: hr_utility.set_location(' Leaving:'||l_proc, 70);
2905: -- hr_utility.trace_off;
2906: Exception
2907: When hr_api.validate_enabled Then
2908: --
2901: p_effective_end_date := l_effective_end_date;
2902: p_object_version_number := l_object_version_number;
2903: --
2904: hr_utility.set_location(' Leaving:'||l_proc, 70);
2905: -- hr_utility.trace_off;
2906: Exception
2907: When hr_api.validate_enabled Then
2908: --
2909: -- As the Validate_Enabled exception has been raised
2916: -- when validation only mode is being used.)
2917: --
2918: p_effective_start_date := Null;
2919: p_effective_end_date := Null;
2920: hr_utility.set_location(' Leaving:'||l_proc, 80);
2921: When Others Then
2922: --
2923: -- A validation or unexpected error has occured
2924: --
2922: --
2923: -- A validation or unexpected error has occured
2924: --
2925: Rollback to Delete_Pension_Type;
2926: hr_utility.set_location(' Leaving:'||l_proc, 90);
2927: Raise;
2928:
2929: End Delete_Pension_Type;
2930: