[Home] [Help]
39: -- 20-MAR-2001 apunekar 115.17 Validated anniversary date for 29th feb input,Bug#2272301
40: -- 10-DEC-2001 srussell 115.16 Put in checkfile syntax.
41: -- 07-DEC-2001 srussell 115.15 Allow get_accrual_entitlement to return a
42: -- negative amount for net_accrual.
43: -- 28-NOV-2001 nnaresh 115.12 Updated for GSCC Standards
44: -- 26-SEP-2001 shoskatt 115.11 Used the get_leave_initialise to get the accrual
45: -- initialise at the entitlement end date. This is
46: -- used to calculate the net entitlements
47: -- 12-SEP-2001 shoskatt 115.10 Used the get_leave_initialise function to get
560: Name : get_accrual_entitlement_2010
561: Type : Procedure
562: Access: Private
563: Description: The principal function to calculate accruals and entitlement,
564: is called from main function if FW Plan or Standard
565: Plan with associated FW Plan.
566: --------------------------------------------------------------------
567: */
568:
678: l_int_net_accrual - entitlement until the calculation date
679:
680: Entitlement = Total Accrual - Absences + Other Contributions
681:
682: If Standard Plan
683: l_int_net_entitlement := [(C) - (A)] - (E) + (G)
684: l_int_net_accrual := [(D) - (B)] - [(E) + (F)] + [(G) + (H)]
685: else
686: l_int_net_entitlement := [(A)] - (E) + (G)
817: l_fw_leave_calc_date := 0 ;
818:
819: END IF;
820:
821: /* Step (6) - For the standard Plan - get the total accrual on entitlement end date
822: and calculation date.
823: This value does not reflect absences or Other Contrib */
824:
825: /* bug 10212532 - Assumming Paid Parental Leaves are recorded against non-FW accrual plan only */
1013: Name : get_net_accrual_2010
1014: Type : Function
1015: Access: Private
1016: Description: The principal function to calculate accruals
1017: is called from main function if FW Plan or Standard
1018: Plan with associated FW Plan.
1019: --------------------------------------------------------------------
1020: */
1021:
1186: l_proc VARCHAR2(72) := g_package||'get_accrual_plan_by_category' ;
1187: l_accrual_plan_id NUMBER ;
1188: l_dummy NUMBER ;
1189:
1190: /* Bug 9950136 - Modified cursor to pick the non-FW Standard Plan Accrual ID
1191: */
1192:
1193: CURSOR csr_get_accrual_plan_id(p_assignment_id NUMBER
1194: ,p_effective_date DATE
1301: l_accrual := NULL ;
1302: l_net_entitlement := NULL ;
1303:
1304: /* Bug 9950136 - Call set_accrual_ids.
1305: If Plan is a FW Plan or Standard Plan with associated FW Plan,
1306: call new FW function wrapper */
1307:
1308: IF (g_plan_id <> l_plan_id OR g_plan_id IS NULL)
1309: THEN
1507:
1508:
1509:
1510: /* Bug 9950136 - Call set_accrual_ids.
1511: If Plan is a FW Plan or Standard Plan with associated FW Plan,
1512: call new FW function wrapper */
1513:
1514: IF (g_plan_id <> l_plan_id OR g_plan_id IS NULL)
1515: THEN
2532: --
2533: -- Find long service leave entitlement date
2534: --
2535: -- Because LSL has two entitlement periods they cannot be stored
2536: -- in the standard PTO model. For LSL we get the periods from the
2537: -- different in the from and to dates in the plan accrual bands.
2538: --
2539: -- public function called by Long Service Leave Formulae
2540: --