[Home] [Help]
982:
983: --
984: BEGIN
985:
986: g_debug := hr_utility.debug_enabled;
987: l_procedure := g_package ||'get_location_details';
988: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
989:
990: OPEN csr_add;
1185:
1186:
1187: BEGIN
1188:
1189: g_debug := hr_utility.debug_enabled;
1190: l_procedure := g_package ||'create_form27A_xml';
1191: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1192:
1193: IF g_debug THEN
1354: l_procedure VARCHAR2(100);
1355:
1356: BEGIN
1357: --
1358: g_debug := hr_utility.debug_enabled;
1359: l_procedure := g_package ||'init_code';
1360: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1361:
1362: IF p_form_type <> 'ESI6' and p_form_type <> 'PT3' AND p_form_type <> 'FORM27A' THEN
1712: asg_sum NUMBER := 0;
1713:
1714:
1715: BEGIN
1716: g_debug := hr_utility.debug_enabled;
1717: l_procedure := g_package ||'create_form8_xml';
1718: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1719:
1720:
2262: l_procedure VARCHAR2(100);
2263:
2264: BEGIN
2265:
2266: g_debug := hr_utility.debug_enabled;
2267: l_procedure := g_package ||'employee_type';
2268: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2269:
2270: IF g_debug THEN
2759:
2760: BEGIN
2761: pay_in_xml_utils.gXMLTable.DELETE;
2762:
2763: g_debug := hr_utility.debug_enabled;
2764: l_procedure := g_package ||'create_form6a_xml';
2765: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2766:
2767: --
3321: l_message VARCHAR2(255);
3322: l_procedure VARCHAR2(100);
3323:
3324: BEGIN
3325: g_debug := hr_utility.debug_enabled;
3326: l_procedure := g_package ||'create_form3a_xml';
3327: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3328:
3329: pay_in_xml_utils.gXMLTable.DELETE;
3810: l_cont_type_date_earned VARCHAR(20);
3811: l_pf_ceiling_type VARCHAR2(50);
3812:
3813: BEGIN
3814: g_debug := hr_utility.debug_enabled;
3815: l_procedure := g_package ||'create_form7_xml';
3816: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3817:
3818: pay_in_xml_utils.gXMLTable.DELETE;
4283: l_procedure VARCHAR2(100);
4284:
4285: BEGIN
4286:
4287: g_debug := hr_utility.debug_enabled;
4288: l_procedure := g_package ||'esi_employee_type';
4289: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
4290:
4291: OPEN c_person_id;
4426: --The following cursor checks for the presence of p_org_id in the archived data
4427: OPEN c_transfer_status(p_org_id);
4428: FETCH c_transfer_status INTO l_reason;
4429: CLOSE c_transfer_status;
4430: -- hr_utility.set_location('Checking asg '||p_assignment_id||' for termination',7);
4431: IF l_reason IS NULL THEN -- This means that employee is no longer attached to that p_org_id
4432: pay_in_utils.set_location(g_debug,l_procedure, 90);
4433: IF l_exem_status=p_esi_coverage THEN
4434: RETURN TRUE; -- Hence we can safely return true and process that assignment.
4438: ELSE
4439: pay_in_utils.set_location(g_debug,l_procedure, 100);
4440: l_reason := NULL;
4441: l_org_count := 0;
4442: -- hr_utility.set_location('Asg '||p_assignment_id||' not terminated. Checking for org counts',7);
4443: --Here we know that in last archived record employee was attached to p_org_id.
4444: --But there may be multiple records for last archival process.
4445: --So checking for no of records of last payroll.
4446: OPEN c_last_pay_count;
4445: --So checking for no of records of last payroll.
4446: OPEN c_last_pay_count;
4447: FETCH c_last_pay_count INTO l_org_count;
4448: CLOSE c_last_pay_count ;
4449: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count,7);
4450: IF l_org_count < 2 THEN
4451: --This means there is only one record and employee is attached to it only.
4452: --Hence he is not a separted employee. So returning false
4453: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count||' and is thus active emp',7);
4449: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count,7);
4450: IF l_org_count < 2 THEN
4451: --This means there is only one record and employee is attached to it only.
4452: --Hence he is not a separted employee. So returning false
4453: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count||' and is thus active emp',7);
4454: pay_in_utils.set_location(g_debug,l_procedure, 110);
4455: RETURN FALSE;
4456: ELSE
4457: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count||' and might be transferred',7);
4453: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count||' and is thus active emp',7);
4454: pay_in_utils.set_location(g_debug,l_procedure, 110);
4455: RETURN FALSE;
4456: ELSE
4457: -- hr_utility.set_location('Asg '||p_assignment_id||' has an org count of '||l_org_count||' and might be transferred',7);
4458: --Employee has multiple records for the last run.
4459: --Now we have to make sure that for which one he is transferred.
4460: --For this we are using the last payroll date and then we shall find the SCL Information.
4461: --Find the last payroll date
4463: OPEN c_last_pay_date;
4464: FETCH c_last_pay_date INTO l_pay_date;
4465: CLOSE c_last_pay_date;
4466:
4467: hr_utility.set_location('Last Payroll Date'||l_pay_date,12);
4468:
4469: OPEN c_final_check(p_org_id,l_pay_date);
4470: FETCH c_final_check INTO l_reason;
4471: CLOSE c_final_check ;
4828:
4829:
4830: BEGIN
4831: --
4832: g_debug := hr_utility.debug_enabled;
4833: l_procedure := g_package ||'create_esi_xml';
4834: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
4835:
4836: pay_in_utils.trace('p_esi_org_id',p_esi_org_id);