1: PACKAGE BODY PAY_FI_ARCHIVE_DPSA AS
2: /* $Header: pyfidpsa.pkb 120.5.12000000.1 2007/04/26 13:01:12 dbehera noship $ */
3:
4: g_debug boolean := hr_utility.debug_enabled;
5: g_package VARCHAR2(33) := ' PAY_FI_ARCHIVE_DPSA.';
6: g_payroll_action_id NUMBER ;
7: g_le_assignment_action_id NUMBER ;
8: g_lu_assignment_action_id NUMBER ;
28: l_proc VARCHAR2(40):= g_package||' get parameter ';
29: BEGIN
30: --
31: IF g_debug THEN
32: hr_utility.set_location(' Entering Function GET_PARAMETER',10);
33: END IF;
34: l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
35: --
36: IF l_start_pos = 0 THEN
54: END IF;
55: END IF;
56: --
57: IF g_debug THEN
58: hr_utility.set_location(' Leaving Function GET_PARAMETER',20);
59: END IF;
60:
61: RETURN l_parameter;
62:
105: ,p_business_group_id;
106: CLOSE csr_parameter_info;
107: --
108: IF g_debug THEN
109: hr_utility.set_location(' Leaving Procedure GET_ALL_PARAMETERS',30);
110: END IF;
111:
112: END GET_ALL_PARAMETERS;
113:
214:
215: fnd_file.put_line(fnd_file.log,'Range Code 1');
216:
217: IF g_debug THEN
218: hr_utility.set_location(' Entering Procedure RANGE_CODE',40);
219: END IF;
220:
221: p_sql := 'SELECT DISTINCT person_id
222: FROM per_people_f ppf
267: fnd_file.put_line(fnd_file.log,'Range Code 6');
268:
269: IF l_count < 1 then
270:
271: hr_utility.set_location('Entered Procedure GETDATA',10);
272:
273: fnd_file.put_line(fnd_file.log,'Range Code 7');
274:
275: OPEN csr_Legal_Emp_Details(g_legal_employer_id);
286: fnd_file.put_line(fnd_file.log,'Range Code 9');
287:
288: g_emp_type:='LU' ;
289: l_emp_id:=g_local_unit_id;
290: hr_utility.set_location('Calculation for Local Unit',40);
291:
292: /* Pick up the details belonging to Local Unit */
293:
294: OPEN csr_Local_Unit_Details( g_local_unit_id);
301: OPEN csr_Local_Unit_Details( g_local_unit_id);
302: FETCH csr_Local_Unit_Details INTO rg_Local_Unit_Details;
303: CLOSE csr_Local_Unit_Details;
304:
305: hr_utility.set_location('Pick up the details belonging to Local Unit',60);
306:
307: /* Pick up the contact details belonging to Local Unit*/
308:
309: OPEN csr_Local_Unit_contact( g_local_unit_id);
312:
313: l_contact_person := rg_Local_Unit_contact.contact_person ;
314: l_phone := rg_Local_Unit_contact.phone ;
315:
316: hr_utility.set_location('Pick up the contact details belonging to Local Unit',70);
317: fnd_file.put_line(fnd_file.log,'Range Code 10');
318: ELSE
319: fnd_file.put_line(fnd_file.log,'Range Code 11');
320: g_emp_type:='LE' ;
433:
434: END IF;
435:
436: IF g_debug THEN
437: hr_utility.set_location(' Leaving Procedure RANGE_CODE',50);
438: END IF;
439:
440: EXCEPTION
441: WHEN others THEN
439:
440: EXCEPTION
441: WHEN others THEN
442: IF g_debug THEN
443: hr_utility.set_location('error raised assignment_action_code ',5);
444: END if;
445: RAISE;
446: END RANGE_CODE;
447:
584:
585: fnd_file.put_line(fnd_file.log,'ASSIGNMENT_ACTION_CODE 1');
586:
587: IF g_debug THEN
588: hr_utility.set_location(' Entering Procedure ASSIGNMENT_ACTION_CODE',60);
589: END IF;
590:
591: PAY_FI_ARCHIVE_DPSA.GET_ALL_PARAMETERS(
592: p_payroll_action_id
678: END LOOP;
679: END IF;
680:
681: IF g_debug THEN
682: hr_utility.set_location(' Leaving Procedure ASSIGNMENT_ACTION_CODE',70);
683: END IF;
684:
685: EXCEPTION
686: WHEN others THEN
684:
685: EXCEPTION
686: WHEN others THEN
687: IF g_debug THEN
688: hr_utility.set_location('error raised assignment_action_code ',5);
689: END if;
690: RAISE;
691: END ASSIGNMENT_ACTION_CODE;
692:
696: IS
697:
698: BEGIN
699: IF g_debug THEN
700: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
701: END IF;
702: fnd_file.put_line(fnd_file.log,'INITIALIZATION_CODE 1');
703: IF g_debug THEN
704: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
700: hr_utility.set_location(' Entering Procedure INITIALIZATION_CODE',80);
701: END IF;
702: fnd_file.put_line(fnd_file.log,'INITIALIZATION_CODE 1');
703: IF g_debug THEN
704: hr_utility.set_location(' Leaving Procedure INITIALIZATION_CODE',90);
705: END IF;
706:
707: EXCEPTION
708: WHEN others THEN
706:
707: EXCEPTION
708: WHEN others THEN
709: IF g_debug THEN
710: hr_utility.set_location('error raised initialization code ',5);
711: END if;
712: RAISE;
713: END INITIALIZATION_CODE;
714:
1144: l_month := 0 ;
1145:
1146:
1147: IF g_debug THEN
1148: hr_utility.set_location(' Entering Procedure ARCHIVE_CODE',380);
1149: END IF;
1150:
1151: /* Fetching data from the Header record(Employer level) */
1152: OPEN csr_rpt_header(p_assignment_action_id);
2933: END IF;
2934: END IF;
2935: END IF;---ARCHIVE=YES
2936: IF g_debug THEN
2937: hr_utility.set_location(' Leaving Procedure ARCHIVE_CODE',390);
2938: END IF;
2939:
2940: EXCEPTION
2941: WHEN others THEN
2939:
2940: EXCEPTION
2941: WHEN others THEN
2942: IF g_debug THEN
2943: hr_utility.set_location('error raised in archive code ',5);
2944: END if;
2945: RAISE;
2946: END ARCHIVE_CODE;
2947:
3121: l_tot_631 :=0;
3122: l_tot_670 :=0;
3123:
3124: IF g_debug THEN
3125: hr_utility.set_location(' Entering Procedure DEINITIALIZATION_CODE',380);
3126: END IF;
3127:
3128: /* Fetching data from the Header record(Employer level) */
3129: OPEN csr_prpt_header(p_payroll_action_id);
3476:
3477: END IF;---ARCHIVE=YES
3478:
3479: IF g_debug THEN
3480: hr_utility.set_location(' Leaving Procedure DEINITIALIZATION_CODE',390);
3481: END IF;
3482:
3483: EXCEPTION
3484: WHEN others THEN
3482:
3483: EXCEPTION
3484: WHEN others THEN
3485: IF g_debug THEN
3486: hr_utility.set_location('error raised in DEINITIALIZATION_CODE ',5);
3487: END if;
3488: RAISE;
3489: END;
3490: