64: l_balance_dimension_id pay_balance_dimensions.balance_dimension_id%TYPE;
65: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
66:
67: Begin
68: hr_utility.set_location('Entering:'|| l_proc, 10);
69: --
70: -- Check if the EE Contribution
71: -- balances already exist for the BG
72: --
83: If p_business_group_id Is Not Null Then
84: Open csr_bg;
85: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
86: Close csr_bg;
87: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
88: ElsIf p_legislation_code Is Not Null Then
89: l_currency_code := hr_general.default_currency_code(p_legislation_code);
90: l_legislation_code := p_legislation_code;
91: Else
110:
111: l_balance_name := p_pension_type_name||' EE Contribution';
112: l_reporting_name := l_balance_name;
113:
114: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
115: Pay_Balance_Types_pkg.Insert_Row
116: (x_Rowid => l_row_id
117: ,x_Balance_Type_Id => l_balance_type_id
118: ,x_Business_Group_Id => p_business_group_id
149: ,x_balance_category_id => l_balance_cat_id
150: ,x_base_balance_type_id => Null
151: ,x_input_value_id => Null
152: );
153: hr_utility.set_location(' Created balance :'||l_balance_name,22);
154:
155: p_ee_balance_typeid := l_balance_type_id;
156:
157: l_balance_type_id := Null;
159:
160: --
161: -- Create the dimensions for the balances.
162: --
163: hr_utility.set_location(' Creating Defined balances', 25);
164:
165:
166: l_balance_type_id := p_ee_balance_typeid;
167:
184:
185:
186: Exception
187: When Others Then
188: hr_utility.set_location('Exception in Create_EE_Balance',150);
189: raise;
190:
191: End Create_EE_Balance;
192:
245: l_balance_dimension_id pay_balance_dimensions.balance_dimension_id%TYPE;
246: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
247:
248: Begin
249: hr_utility.set_location('Entering:'|| l_proc, 10);
250: --
251: -- Check if the ER Contribution
252: -- balances already exist for the BG
253: --
264: If p_business_group_id Is Not Null Then
265: Open csr_bg;
266: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
267: Close csr_bg;
268: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
269: ElsIf p_legislation_code Is Not Null Then
270: l_currency_code := hr_general.default_currency_code(p_legislation_code);
271: l_legislation_code := p_legislation_code;
272: Else
291:
292: l_balance_name := p_pension_type_name||' ER Contribution';
293: l_reporting_name := l_balance_name;
294:
295: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
296: Pay_Balance_Types_pkg.Insert_Row
297: (x_Rowid => l_row_id
298: ,x_Balance_Type_Id => l_balance_type_id
299: ,x_Business_Group_Id => p_business_group_id
330: ,x_balance_category_id => l_balance_cat_id
331: ,x_base_balance_type_id => Null
332: ,x_input_value_id => Null
333: );
334: hr_utility.set_location(' Created balance :'||l_balance_name,22);
335:
336: p_er_balance_typeid := l_balance_type_id;
337:
338: l_balance_type_id := Null;
340:
341: --
342: -- Create the dimensions for the balances.
343: --
344: hr_utility.set_location(' Creating Defined balances', 25);
345:
346:
347: l_balance_type_id := p_er_balance_typeid;
348:
365:
366:
367: Exception
368: When Others Then
369: hr_utility.set_location('Exception in Create_ER_Balance',150);
370: raise;
371:
372: End Create_ER_Balance;
373: --
426: l_balance_dimension_id pay_balance_dimensions.balance_dimension_id%TYPE;
427: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE := Null;
428:
429: Begin
430: hr_utility.set_location('Entering:'|| l_proc, 10);
431: --
432: -- Check if the EE Contribution and ER Contribution
433: -- balances already exist for the BG
434: --
455: If p_business_group_id Is Not Null Then
456: Open csr_bg;
457: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
458: Close csr_bg;
459: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
460: ElsIf p_legislation_code Is Not Null Then
461: l_currency_code := hr_general.default_currency_code(p_legislation_code);
462: l_legislation_code := p_legislation_code;
463: Else
473: ,c_legislation_code => 'GB'
474: ,c_effective_date => p_effective_date);
475: Fetch csr_get_balance_cat_id into l_balance_cat_id;
476: close csr_get_balance_cat_id;
477: hr_utility.set_location('Fetched the category id :'||l_balance_cat_id,17);
478: ElsIf (l_legislation_code is Not Null and l_legislation_code = 'NL') Then
479: l_balance_cat_id := Null;
480: End If;
481:
495: Else
496: l_balance_name := p_pension_type_name||' ER Contribution';
497: l_reporting_name := l_balance_name;
498: End if;
499: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
500: Pay_Balance_Types_pkg.Insert_Row
501: (x_Rowid => l_row_id
502: ,x_Balance_Type_Id => l_balance_type_id
503: ,x_Business_Group_Id => p_business_group_id
534: ,x_balance_category_id => l_balance_cat_id
535: ,x_base_balance_type_id => Null
536: ,x_input_value_id => Null
537: );
538: hr_utility.set_location(' Created balance :'||l_balance_name,22);
539: If i = 1 Then
540: p_ee_balance_typeid := l_balance_type_id;
541: Else
542: p_er_balance_typeid := l_balance_type_id;
546: End Loop;
547: --
548: -- Create the dimensions for the balances.
549: --
550: hr_utility.set_location(' Creating Defined balances', 25);
551: For i in 1..2 Loop
552: If i = 1 Then
553: l_balance_type_id := p_ee_balance_typeid;
554: Else
573: End Loop;
574:
575: Exception
576: When Others Then
577: hr_utility.set_location('Exception in Create_EE_ER_Balances',150);
578: raise;
579:
580: End Create_EE_ER_Balances;
581:
626: l_pension_sub_cat varchar2(80) := '';
627: l_balance_cat_id pay_balance_categories_f.balance_category_id%TYPE;
628:
629: Begin
630: hr_utility.set_location('Entering:'|| l_proc, 10);
631:
632: -- First construct the EE and ER sub category level balance names
633: If p_pension_sub_cat IS NOT NULL THEN
634:
661: If p_business_group_id Is Not Null Then
662: Open csr_bg;
663: fetch csr_bg Into l_currency_code,l_legislation_code,g_bg_grp_name;
664: Close csr_bg;
665: hr_utility.set_location(' Fetched the currency code :'||l_currency_code,15);
666: ElsIf p_legislation_code Is Not Null Then
667: l_currency_code := hr_general.default_currency_code(p_legislation_code);
668: l_legislation_code := p_legislation_code;
669: Else
711:
712: Else
713: Close csr_bal_typ_id;
714:
715: hr_utility.set_location(' Creating balance : '||l_balance_name,20);
716: Pay_Balance_Types_pkg.Insert_Row
717: (x_Rowid => l_row_id
718: ,x_Balance_Type_Id => l_balance_type_id
719: ,x_Business_Group_Id => p_business_group_id
750: ,x_balance_category_id => l_balance_cat_id
751: ,x_base_balance_type_id => Null
752: ,x_input_value_id => Null
753: );
754: hr_utility.set_location(' Created balance :'||l_balance_name,22);
755: If i = 1 Then
756: p_ee_balance_typeid := l_balance_type_id;
757: Else
758: p_er_balance_typeid := l_balance_type_id;
760:
761: --
762: -- Create the dimensions for the balances.
763: --
764: hr_utility.set_location(' Creating Defined balances', 25);
765: If i = 1 Then
766: l_balance_type_id := p_ee_balance_typeid;
767: Else
768: l_balance_type_id := p_er_balance_typeid;
793: End If; /* end of chk for NL*/
794: End If; /* end of chk for non null sub category*/
795: Exception
796: When Others Then
797: hr_utility.set_location('Exception in Create_ABP_EE_ER_Balances',150);
798: raise;
799:
800: End Create_ABP_EE_ER_Balances;
801:
836: l_business_group_name per_business_groups.name%TYPE;
837: l_pension_sub_cat_mean varchar2(80) := '';
838:
839: Begin
840: hr_utility.set_location(' Entering:'|| l_proc, 10);
841: l_business_group_name := g_bg_grp_name;
842:
843: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
844: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
839: Begin
840: hr_utility.set_location(' Entering:'|| l_proc, 10);
841: l_business_group_name := g_bg_grp_name;
842:
843: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
844: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
845:
846: hr_utility.set_location(' Creating the balance initialization element', 15);
847: p_balance_init_element_type_id :=
842:
843: hr_utility.set_location(' Setting the session date to :'||p_effective_date,11);
844: pay_db_pay_setup.set_session_date(nvl(p_effective_date, trunc(sysdate)));
845:
846: hr_utility.set_location(' Creating the balance initialization element', 15);
847: p_balance_init_element_type_id :=
848: pay_db_pay_setup.create_element
849: ( p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
850: ,p_description => 'Element for initializing '||p_pension_type_name||' balances'
861: ,p_effective_start_date => p_effective_date
862: ,p_effective_end_date => hr_api.g_eot
863: );
864:
865: hr_utility.set_location(' Creating input value EE Contribution', 20);
866: l_ipv_ee_contr := pay_db_pay_setup.create_input_value
867: (
868: p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
869: ,p_name => 'EE Contribution'
874: ,p_effective_start_date => p_effective_date
875: ,p_effective_end_date => hr_api.g_eot
876: ,p_legislation_code => p_legislation_code
877: );
878: hr_utility.set_location(' Creating input value ER Contribution', 25);
879: l_ipv_er_contr := pay_db_pay_setup.create_input_value
880: (
881: p_element_name => 'Setup '||p_pension_type_name ||' Contribution Element'
882: ,p_name => 'ER Contribution'
937: Loop
938: l_count := l_count + 1 ;
939: l_balfeeds_tab(l_count).balance_type_id := c_rec.balance_type_id;
940: l_balfeeds_tab(l_count).input_value_id := l_ipv_er_contr;
941: hr_utility.set_location(' Found seeded balance ER Pension Contribution',30);
942: End Loop;
943:
944: If p_pension_sub_cat IS NULL THEN
945: For c_rec in csr_bal_type
964: Loop
965: l_count := l_count + 1 ;
966: l_balfeeds_tab(l_count).balance_type_id := c_rec.balance_type_id;
967: l_balfeeds_tab(l_count).input_value_id := l_ipv_ee_contr;
968: hr_utility.set_location(' Found seeded balance EE Pension Contribution',35);
969: End Loop;
970:
971: hr_utility.set_location(' Creating input value ER,EE Contribution, balance feeds', 40);
972: For i in 1..l_count Loop
967: l_balfeeds_tab(l_count).input_value_id := l_ipv_ee_contr;
968: hr_utility.set_location(' Found seeded balance EE Pension Contribution',35);
969: End Loop;
970:
971: hr_utility.set_location(' Creating input value ER,EE Contribution, balance feeds', 40);
972: For i in 1..l_count Loop
973: Pay_Balance_Feeds_f_pkg.Insert_Row(
974: X_Rowid => l_row_id,
975: X_Balance_Feed_Id => l_Balance_Feed_Id,
985:
986: l_Balance_Feed_Id := Null;
987: l_row_id := Null;
988: End Loop;
989: hr_utility.set_location(' Leaving:'|| l_proc, 80);
990:
991: Exception
992: When Others Then
993: hr_utility.set_location('Exception in Create_Balance_Init_Ele',150);
989: hr_utility.set_location(' Leaving:'|| l_proc, 80);
990:
991: Exception
992: When Others Then
993: hr_utility.set_location('Exception in Create_Balance_Init_Ele',150);
994: raise;
995:
996: End Create_Balance_Init_Ele;
997:
1192: l_ee_annual_salary_threshold number;
1193: l_leg_code varchar2(10);
1194:
1195: begin
1196: hr_utility.set_location('Entering:'|| l_proc, 10);
1197: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1198: -- Issue a savepoint
1199: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1200: savepoint Create_Pension_Type;
1281:
1282: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1283: -- Create the EE, ER Contribution balances(only for NL,GB)
1284: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1285: hr_utility.set_location('Creating EE, ER Balances ',14);
1286: OPEN c_get_leg_code;
1287: FETCH c_get_leg_code INTO l_leg_code;
1288: CLOSE c_get_leg_code;
1289:
1311: ,p_er_balance_typeid => l_er_contribution_bal_type_id
1312: );
1313:
1314: End If;
1315: hr_utility.set_location('Created EE, ER Balances ',15);
1316: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1317: -- Create Balance Initialization Element
1318: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1319: IF (NVL(p_special_pension_type_code,'X') <> 'PGGM' and p_pension_category = 'P') THEN
1377: -- Call Before Process User Hook
1378: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1379:
1380: begin
1381: hr_utility.set_location('Before Calling User Hook Create_PensionType_b',20);
1382: PQP_Pension_Types_BK1.Create_Pension_Type_b
1383: (p_validate => p_validate
1384: ,p_effective_date => l_effective_date
1385: ,p_pension_type_name => p_pension_type_name
1472: ,p_er_age_threshold => p_er_age_threshold -- added for ABP TAR fixes
1473: ,p_ee_age_contribution => p_ee_age_contribution -- added for ABP TAR fixes
1474: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
1475: );
1476: hr_utility.set_location('After Calling User Hook Create_PensionType_b',20);
1477: exception
1478: when hr_api.cannot_find_prog_unit then
1479: hr_utility.set_location('Exception in User Hook Create_PensionType_b',25);
1480: hr_api.cannot_find_prog_unit_error
1475: );
1476: hr_utility.set_location('After Calling User Hook Create_PensionType_b',20);
1477: exception
1478: when hr_api.cannot_find_prog_unit then
1479: hr_utility.set_location('Exception in User Hook Create_PensionType_b',25);
1480: hr_api.cannot_find_prog_unit_error
1481: (p_module_name => 'Create_Pension_Type'
1482: ,p_hook_type => 'BP'
1483: );
1491:
1492: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1493: -- Process Logic - Call the row-handler ins procedure
1494: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1495: hr_utility.set_location('Before calling row-handler pqp_pty_ins.ins',30);
1496: pqp_pty_ins.ins
1497: (p_effective_date => l_effective_date
1498: ,p_pension_type_name => p_pension_type_name
1499: ,p_pension_category => p_pension_category
1719: p_effective_start_date := l_effective_start_date;
1720: p_effective_end_date := l_effective_end_date;
1721:
1722: --
1723: hr_utility.set_location(' Leaving:'||l_proc, 70);
1724: Exception
1725: When hr_api.validate_enabled Then
1726: --
1727: -- As the Validate_Enabled exception has been raised
1737: p_object_version_number := Null;
1738: p_effective_start_date := Null;
1739: p_effective_end_date := Null;
1740: p_api_warning := l_api_warning;
1741: hr_utility.set_location(' Leaving:'||l_proc, 80);
1742: When Others Then
1743: --
1744: -- A validation or unexpected error has occured
1745: --
1743: --
1744: -- A validation or unexpected error has occured
1745: --
1746: Rollback to Create_Pension_Type;
1747: hr_utility.set_location('error is : '||SQLERRM,85);
1748: hr_utility.set_location(' Leaving:'||l_proc, 90);
1749: Raise;
1750: End Create_Pension_Type;
1751: --
1744: -- A validation or unexpected error has occured
1745: --
1746: Rollback to Create_Pension_Type;
1747: hr_utility.set_location('error is : '||SQLERRM,85);
1748: hr_utility.set_location(' Leaving:'||l_proc, 90);
1749: Raise;
1750: End Create_Pension_Type;
1751: --
1752: -- ----------------------------------------------------------------------------
1881: AND effective_end_date;
1882:
1883: Begin
1884: p_api_warning := hr_api.g_varchar2;
1885: hr_utility.set_location('Entering:'|| l_proc, 10);
1886: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1887: -- Issue a savepoint
1888: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1889: savepoint Update_Pension_Type;
1969: -- Call Before Process User Hook
1970: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1971:
1972: begin
1973: hr_utility.set_location('Before Calling User Hook Update_Pension_Type_b',20);
1974: PQP_Pension_Types_BK2.Update_Pension_Type_b
1975: (p_validate => p_validate
1976: ,p_effective_date => p_effective_date
1977: ,p_datetrack_mode => p_datetrack_mode
2067: ,p_er_age_threshold => p_er_age_threshold -- added for ABP TAR fixes
2068: ,p_ee_age_contribution => p_ee_age_contribution -- added for ABP TAR fixes
2069: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
2070: );
2071: hr_utility.set_location('After Calling User Hook Update_Pension_Type_b',20);
2072: exception
2073: when hr_api.cannot_find_prog_unit then
2074: hr_utility.set_location('Exception in User Hook Update_Pension_Type_b',25);
2075: hr_api.cannot_find_prog_unit_error
2070: );
2071: hr_utility.set_location('After Calling User Hook Update_Pension_Type_b',20);
2072: exception
2073: when hr_api.cannot_find_prog_unit then
2074: hr_utility.set_location('Exception in User Hook Update_Pension_Type_b',25);
2075: hr_api.cannot_find_prog_unit_error
2076: (p_module_name => 'Update_Pension_Type'
2077: ,p_hook_type => 'BP'
2078: );
2084:
2085: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2086: -- Process Logic - Call the row-handler ins procedure
2087: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2088: hr_utility.set_location('Before calling row-handler pqp_pty_upd.upd',30);
2089: pqp_pty_upd.upd
2090: (p_effective_date => l_effective_date
2091: ,p_datetrack_mode => p_datetrack_mode
2092: ,p_pension_type_id => p_pension_type_id
2187: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2188: -- Call After Process User Hook
2189: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2190: begin
2191: hr_utility.set_location(' Before Calling User Hook : Update_Pension_Type_a',20);
2192: PQP_Pension_Types_BK2.Update_Pension_Type_a
2193: (p_validate => p_validate
2194: ,p_effective_date => p_effective_date
2195: ,p_datetrack_mode => p_datetrack_mode
2287: ,p_er_age_contribution => p_er_age_contribution -- added for ABP TAR fixes
2288: ,p_effective_start_date => l_effective_start_date
2289: ,p_effective_end_date => l_effective_end_date
2290: );
2291: hr_utility.set_location(' After Calling User Hook : Update_Pension_Type_a',20);
2292: Exception
2293: When hr_api.cannot_find_prog_unit Then
2294: hr_utility.set_location('Exception in User Hook : Update_Pension_Type_a',25);
2295: hr_api.cannot_find_prog_unit_error
2290: );
2291: hr_utility.set_location(' After Calling User Hook : Update_Pension_Type_a',20);
2292: Exception
2293: When hr_api.cannot_find_prog_unit Then
2294: hr_utility.set_location('Exception in User Hook : Update_Pension_Type_a',25);
2295: hr_api.cannot_find_prog_unit_error
2296: (p_module_name => 'Update_Pension_Type'
2297: ,p_hook_type => 'AP'
2298: );
2312: p_object_version_number := l_object_version_number;
2313: --p_api_warning := l_api_warning;
2314:
2315: --
2316: hr_utility.set_location(' Leaving:'||l_proc, 70);
2317: Exception
2318: When hr_api.validate_enabled Then
2319: --
2320: -- As the Validate_Enabled exception has been raised
2328: --
2329: p_effective_start_date := Null;
2330: p_effective_end_date := Null;
2331: --p_api_warning := l_api_warning;
2332: hr_utility.set_location(' Leaving:'||l_proc, 80);
2333: When Others Then
2334: --
2335: -- A validation or unexpected error has occured
2336: --
2334: --
2335: -- A validation or unexpected error has occured
2336: --
2337: Rollback to Update_Pension_Type;
2338: hr_utility.set_location(' Leaving:'||l_proc, 90);
2339: Raise;
2340:
2341: End Update_Pension_Type;
2342:
2366: l_pty_rec csr_get_pty_bal_ele_info%ROWTYPE;
2367: --
2368: Begin
2369: --
2370: hr_utility.set_location ('Entering: '||l_proc, 10);
2371:
2372: OPEN csr_get_pty_bal_ele_info;
2373: FETCH csr_get_pty_bal_ele_info INTO l_pty_rec;
2374: -- No need to check for cursor found as this
2379: p_er_contribution_bal_type_id := l_pty_rec.er_contribution_bal_type_id;
2380: p_balance_init_ele_type_id := l_pty_rec.balance_init_element_type_id;
2381:
2382: --
2383: hr_utility.set_location ('Leaving: '||l_proc, 20);
2384: --
2385: Exception
2386:
2387: When Others Then
2384: --
2385: Exception
2386:
2387: When Others Then
2388: hr_utility.set_location ('Others Exception occurred in '||l_proc, 30);
2389: p_ee_contribution_bal_type_id := NULL;
2390: p_er_contribution_bal_type_id := NULL;
2391: p_balance_init_ele_type_id := NULL;
2392: RAISE;
2433:
2434: --
2435: Begin
2436: --
2437: hr_utility.set_location ('Entering: '||l_proc, 10);
2438: --
2439:
2440: -- Delete the input values for this element first
2441: -- Only do this if datetrack mode is not 'DELETE'
2445: FOR csr_get_ipv_rec IN csr_get_ipv_info
2446: LOOP
2447:
2448: -- Call the api to delete input values
2449: hr_utility.set_location (l_proc, 20);
2450: --
2451: pay_input_value_api.delete_input_value
2452: (p_validate => p_validate
2453: ,p_effective_date => p_effective_date
2463:
2464: END IF; -- End if of date track mode not delete check ...
2465:
2466: -- Delete the element now
2467: hr_utility.set_location (l_proc, 30);
2468:
2469: -- Get ele ovn
2470: OPEN csr_get_ele_ovn;
2471: FETCH csr_get_ele_ovn INTO l_ele_ovn;
2487: END IF; -- End if of check element exists check ...
2488:
2489: CLOSE csr_get_ele_ovn;
2490: --
2491: hr_utility.set_location ('Leaving: '||l_proc, 40);
2492: --
2493: End Delete_Balance_Init_Ele;
2494: --
2495:
2519: l_bal_type_id t_number;
2520: --
2521: Begin
2522: --
2523: hr_utility.set_location ('Entering: '||l_proc, 10);
2524: --
2525: i := 0;
2526: i := i + 1 ;
2527: l_bal_type_id (i) := p_ee_contribution_bal_type_id;
2550: CLOSE csr_get_bal_rowid;
2551:
2552: END LOOP;
2553: --
2554: hr_utility.set_location ('Leaving: '||l_proc, 20);
2555: --
2556: End Delete_EE_ER_Balances;
2557: --
2558:
2579:
2580: BEGIN
2581:
2582: SAVEPOINT end_date_org_info;
2583: hr_utility.set_location('In end date org info'||p_pension_type_id,10);
2584: -- fetch all the org information rows in the org information EIT
2585: -- where the pension type is the same as the current pension type
2586: -- and the end date is greater than the effective end date
2587: FOR temp_rec in c_get_org_info
2585: -- where the pension type is the same as the current pension type
2586: -- and the end date is greater than the effective end date
2587: FOR temp_rec in c_get_org_info
2588: LOOP
2589: hr_utility.set_location('In end date org info',20);
2590: -- for each of these rows call the hr_org_information_pkg.update_row proc
2591: hr_org_information_pkg.update_row
2592: (x_rowid => temp_rec.rowid
2593: ,x_org_information_id => temp_rec.org_information_id
2679: WHERE pension_type_id = p_pension_type_id
2680: AND special_pension_type_code = 'ABP';
2681:
2682: Begin
2683: -- hr_utility.trace_on(null,'rkpipe');
2684: -- if the start date is earlier than the least start date of the PT,raise error
2685: hr_utility.set_location('Entering:'|| l_proc, 10);
2686: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2687: -- Issue a savepoint
2681:
2682: Begin
2683: -- hr_utility.trace_on(null,'rkpipe');
2684: -- if the start date is earlier than the least start date of the PT,raise error
2685: hr_utility.set_location('Entering:'|| l_proc, 10);
2686: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2687: -- Issue a savepoint
2688: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2689: savepoint Delete_Pension_Type;
2708: -- Call Before Process User Hook
2709: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2710: Begin
2711: p_api_warning := hr_api.g_varchar2;
2712: hr_utility.set_location('Before Calling User Hook Delete_Pension_Type_b',20);
2713: PQP_Pension_Types_BK3.Delete_Pension_Type_b
2714: (p_validate => p_validate
2715: ,p_effective_date => p_effective_date
2716: ,p_datetrack_mode => p_datetrack_mode
2716: ,p_datetrack_mode => p_datetrack_mode
2717: ,p_pension_type_id => p_pension_type_id
2718: ,p_object_version_number => l_object_version_number
2719: );
2720: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_b',20);
2721: Exception
2722: When hr_api.cannot_find_prog_unit Then
2723: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_b',25);
2724: hr_api.cannot_find_prog_unit_error
2719: );
2720: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_b',20);
2721: Exception
2722: When hr_api.cannot_find_prog_unit Then
2723: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_b',25);
2724: hr_api.cannot_find_prog_unit_error
2725: (p_module_name => 'Delete_Pension_Type'
2726: ,p_hook_type => 'BP'
2727: );
2741: -- associated with this pension type as this will be lost after
2742: -- calling del rhi procedure
2743:
2744: -- Call function get_pty_bal_ele_info
2745: hr_utility.set_location (l_proc, 25);
2746: get_pty_bal_ele_info
2747: (p_pension_type_id => p_pension_type_id
2748: ,p_effective_date => p_effective_date
2749: ,p_ee_contribution_bal_type_id => l_ee_contribution_bal_type_id
2753:
2754: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2755: -- Process Logic - Call the row-handler del procedure
2756: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2757: hr_utility.set_location('Before calling row-handler pqp_pty_del.del',30);
2758: pqp_pty_del.del
2759: (p_effective_date => p_effective_date
2760: ,p_datetrack_mode => p_datetrack_mode
2761: ,p_pension_type_id => p_pension_type_id
2766:
2767: -- Delete the EE and ER balances and Balance Init Element
2768: -- First delete the element
2769:
2770: hr_utility.set_location (l_proc, 35);
2771: delete_balance_init_ele
2772: (p_balance_init_ele_type_id => l_balance_init_ele_type_id
2773: ,p_validate => p_validate
2774: ,p_effective_date => p_effective_date
2775: ,p_datetrack_mode => p_datetrack_mode
2776: );
2777:
2778: -- Delete balance only if date track mode is ZAP
2779: hr_utility.set_location (l_proc, 36);
2780:
2781: IF p_datetrack_mode = hr_api.g_zap THEN
2782: --only if the PT is not a ABP PT, delete the EE/ER balances
2783: IF l_chk_abp_pt = 0 THEN
2794: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2795: -- Call After Process User Hook
2796: -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2797: Begin
2798: hr_utility.set_location('Before Calling User Hook Delete_Pension_Type_a',20);
2799: PQP_Pension_Types_BK3.Delete_Pension_Type_a
2800: (p_validate => p_validate
2801: ,p_effective_date => p_effective_date
2802: ,p_datetrack_mode => p_datetrack_mode
2804: ,p_object_version_number => l_object_version_number
2805: ,p_effective_start_date => l_effective_start_date
2806: ,p_effective_end_date => l_effective_end_date
2807: );
2808: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_a',20);
2809: Exception
2810: When hr_api.cannot_find_prog_unit Then
2811: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_a',25);
2812: hr_api.cannot_find_prog_unit_error
2807: );
2808: hr_utility.set_location('After Calling User Hook Delete_Pension_Type_a',20);
2809: Exception
2810: When hr_api.cannot_find_prog_unit Then
2811: hr_utility.set_location('Exception in User Hook Delete_Pension_Type_a',25);
2812: hr_api.cannot_find_prog_unit_error
2813: (p_module_name => 'Delete_Pension_Type'
2814: ,p_hook_type => 'AP'
2815: );
2827: p_effective_start_date := l_effective_start_date;
2828: p_effective_end_date := l_effective_end_date;
2829: p_object_version_number := l_object_version_number;
2830: --
2831: hr_utility.set_location(' Leaving:'||l_proc, 70);
2832: -- hr_utility.trace_off;
2833: Exception
2834: When hr_api.validate_enabled Then
2835: --
2828: p_effective_end_date := l_effective_end_date;
2829: p_object_version_number := l_object_version_number;
2830: --
2831: hr_utility.set_location(' Leaving:'||l_proc, 70);
2832: -- hr_utility.trace_off;
2833: Exception
2834: When hr_api.validate_enabled Then
2835: --
2836: -- As the Validate_Enabled exception has been raised
2843: -- when validation only mode is being used.)
2844: --
2845: p_effective_start_date := Null;
2846: p_effective_end_date := Null;
2847: hr_utility.set_location(' Leaving:'||l_proc, 80);
2848: When Others Then
2849: --
2850: -- A validation or unexpected error has occured
2851: --
2849: --
2850: -- A validation or unexpected error has occured
2851: --
2852: Rollback to Delete_Pension_Type;
2853: hr_utility.set_location(' Leaving:'||l_proc, 90);
2854: Raise;
2855:
2856: End Delete_Pension_Type;
2857: