[Home] [Help]
49: -- p_emp_category VARCHAR2 --
50: -- p_notice_period VARCHAR2 --
51: -- p_calling_procedure VARCHAR2 --
52: -- OUT : p_message_name VARCHAR2 --
53: -- p_token_name pay_in_utils.char_tab_type --
54: -- p_token_value pay_in_utils.char_tab_type --
55: -- Change History : --
56: --------------------------------------------------------------------------
57: -- Rev# Date Userid Description --
50: -- p_notice_period VARCHAR2 --
51: -- p_calling_procedure VARCHAR2 --
52: -- OUT : p_message_name VARCHAR2 --
53: -- p_token_name pay_in_utils.char_tab_type --
54: -- p_token_value pay_in_utils.char_tab_type --
55: -- Change History : --
56: --------------------------------------------------------------------------
57: -- Rev# Date Userid Description --
58: --------------------------------------------------------------------------
68: ,p_emp_category IN VARCHAR2
69: ,p_notice_period IN VARCHAR2
70: ,p_calling_procedure IN VARCHAR2
71: ,p_message_name OUT NOCOPY VARCHAR2
72: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
73: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
74: IS
75:
76: l_procedure VARCHAR2(100);
69: ,p_notice_period IN VARCHAR2
70: ,p_calling_procedure IN VARCHAR2
71: ,p_message_name OUT NOCOPY VARCHAR2
72: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
73: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
74: IS
75:
76: l_procedure VARCHAR2(100);
77: l_message VARCHAR2(255);
86: AND org_information_id <> NVL(p_org_information_id,0);
87:
88: BEGIN
89: l_procedure := g_package ||'check_pt_frequency';
90: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
91: p_message_name := 'SUCCESS';
92: pay_in_utils.null_message(p_token_name, p_token_value);
93:
94: --
88: BEGIN
89: l_procedure := g_package ||'check_pt_frequency';
90: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
91: p_message_name := 'SUCCESS';
92: pay_in_utils.null_message(p_token_name, p_token_value);
93:
94: --
95: -- Validations are as follows:
96: --
107: p_token_name(2) := 'ARGUMENT';
108: p_token_value(2) := 'P_EMP_CATEGORY';
109: RETURN;
110: END IF;
111: pay_in_utils.set_location(g_debug,l_procedure,20);
112:
113: IF p_notice_period IS NULL THEN
114: p_message_name := 'HR_7207_API_MANDATORY_ARG';
115: p_token_name(1) := 'API_NAME';
117: p_token_name(2) := 'ARGUMENT';
118: p_token_value(2) := 'P_NOTICE_PERIOD';
119: RETURN;
120: END IF;
121: pay_in_utils.set_location(g_debug,l_procedure,30);
122:
123: IF hr_general.decode_lookup('EMPLOYEE_CATG',p_emp_category) IS NULL THEN
124: p_message_name := 'PER_IN_INVALID_LOOKUP_VALUE';
125: p_token_name(1) := 'VALUE';
127: p_token_name(2) := 'FIELD';
128: p_token_value(2) := 'P_EMP_CATEGORY';
129: RETURN;
130: END IF;
131: pay_in_utils.set_location(g_debug,l_procedure,50);
132:
133: IF to_number(p_notice_period) > 999 THEN
134: p_message_name := 'PER_IN_INVALID_LOOKUP_VALUE';
135: p_token_name(1) := 'VALUE';
137: p_token_name(2) := 'FIELD';
138: p_token_value(2) := 'P_NOTICE_PERIOD';
139: RETURN;
140: END IF;
141: pay_in_utils.set_location(g_debug,l_procedure,60);
142:
143: OPEN c_dup_comb;
144: FETCH c_dup_comb
145: INTO l_dummy;
146: IF c_dup_comb%FOUND THEN
147: p_message_name := 'PER_IN_NON_UNIQUE_COMBINATION';
148: END IF;
149: CLOSE c_dup_comb;
150: pay_in_utils.set_location(g_debug,l_procedure,70);
151:
152: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
153:
154: END check_notice_period;
148: END IF;
149: CLOSE c_dup_comb;
150: pay_in_utils.set_location(g_debug,l_procedure,70);
151:
152: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
153:
154: END check_notice_period;
155:
156: --------------------------------------------------------------------------
165: -- IN : p_element_entry_id NUMBER --
166: -- p_effective_date DATE --
167: -- p_calling_procedure VARCHAR2 --
168: -- OUT : p_message_name VARCHAR2 --
169: -- p_token_name pay_in_utils.char_tab_type--
170: -- p_token_value pay_in_utils.char_tab_type--
171: -- Change History : --
172: --
173: -- Rev# Date Userid Description --
166: -- p_effective_date DATE --
167: -- p_calling_procedure VARCHAR2 --
168: -- OUT : p_message_name VARCHAR2 --
169: -- p_token_name pay_in_utils.char_tab_type--
170: -- p_token_value pay_in_utils.char_tab_type--
171: -- Change History : --
172: --
173: -- Rev# Date Userid Description --
174: --------------------------------------------------------------------------
180: (p_element_entry_id IN NUMBER
181: ,p_effective_date IN DATE
182: ,p_calling_procedure IN VARCHAR2
183: ,p_message_name OUT NOCOPY VARCHAR2
184: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
185: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
186: IS
187: /* Cursor to find the element id of the current element entry */
188: CURSOR c_element_type_id(p_element_entry_id NUMBER
181: ,p_effective_date IN DATE
182: ,p_calling_procedure IN VARCHAR2
183: ,p_message_name OUT NOCOPY VARCHAR2
184: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
185: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
186: IS
187: /* Cursor to find the element id of the current element entry */
188: CURSOR c_element_type_id(p_element_entry_id NUMBER
189: ,p_effective_date DATE)
242:
243: BEGIN
244: g_debug := hr_utility.debug_enabled ;
245: l_procedure := g_package||'check_gratuity' ;
246: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
247: p_message_name := 'SUCCESS';
248: pay_in_utils.null_message(p_token_name, p_token_value);
249:
250: /* Check for Gratuity Information element*/
244: g_debug := hr_utility.debug_enabled ;
245: l_procedure := g_package||'check_gratuity' ;
246: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
247: p_message_name := 'SUCCESS';
248: pay_in_utils.null_message(p_token_name, p_token_value);
249:
250: /* Check for Gratuity Information element*/
251: OPEN c_element_type_id(p_element_entry_id,p_effective_date);
252: FETCH c_element_type_id INTO l_element_type_id;
268: END IF;
269: CLOSE c_gratuity_forfeiture_amount;
270: END IF;
271: CLOSE c_element_type_id;
272: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
273:
274: END check_gratuity;
275:
276: --------------------------------------------------------------------------
313: BEGIN
314: --
315: g_debug := hr_utility.debug_enabled ;
316: l_procedure := g_package || 'years_of_service' ;
317: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
318:
319: l_years := months_between(p_end_date, p_start_date)/12 ;
320: l_yrs_of_service := trunc(l_years) ;
321: l_temp_date := add_months(p_start_date,l_yrs_of_service*12)-1;
321: l_temp_date := add_months(p_start_date,l_yrs_of_service*12)-1;
322: l_days := p_end_date - l_temp_date;
323:
324: IF g_debug THEN
325: pay_in_utils.trace('Years ',to_char(l_years));
326: pay_in_utils.trace('Yrs of Service ',to_char(l_yrs_of_service));
327: pay_in_utils.trace('Days = ',to_char(l_days));
328: END IF;
329: --
322: l_days := p_end_date - l_temp_date;
323:
324: IF g_debug THEN
325: pay_in_utils.trace('Years ',to_char(l_years));
326: pay_in_utils.trace('Yrs of Service ',to_char(l_yrs_of_service));
327: pay_in_utils.trace('Days = ',to_char(l_days));
328: END IF;
329: --
330: -- Chech IF flag is 'N', means employee is not covered
323:
324: IF g_debug THEN
325: pay_in_utils.trace('Years ',to_char(l_years));
326: pay_in_utils.trace('Yrs of Service ',to_char(l_yrs_of_service));
327: pay_in_utils.trace('Days = ',to_char(l_days));
328: END IF;
329: --
330: -- Chech IF flag is 'N', means employee is not covered
331: -- under Payment of Gratuity Act, 1972
332: --
333:
334: IF p_flag = 'N' THEN
335: --
336: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
337: RETURN l_yrs_of_service ;
338: --
339: END IF ;
340:
345: --
346: l_months := months_between(p_end_date, l_temp_date);
347:
348: IF g_debug THEN
349: pay_in_utils.trace('Temp Date ',to_char(l_temp_date,'DD-MM-YYYY'));
350: pay_in_utils.trace('Months ',to_char(l_months));
351: END IF;
352:
353: IF l_months > 6 THEN
346: l_months := months_between(p_end_date, l_temp_date);
347:
348: IF g_debug THEN
349: pay_in_utils.trace('Temp Date ',to_char(l_temp_date,'DD-MM-YYYY'));
350: pay_in_utils.trace('Months ',to_char(l_months));
351: END IF;
352:
353: IF l_months > 6 THEN
354: l_yrs_of_service := l_yrs_of_service + 1;
365: --
366:
367: IF l_yrs_of_service = 4 AND l_days >= 240 THEN
368: --
369: pay_in_utils.set_location(g_debug,l_procedure,30);
370: l_yrs_of_service := 5 ;
371: --
372: ELSIF l_yrs_of_service >= 5 AND l_days >= 183 THEN
373: --
370: l_yrs_of_service := 5 ;
371: --
372: ELSIF l_yrs_of_service >= 5 AND l_days >= 183 THEN
373: --
374: pay_in_utils.set_location(g_debug,l_procedure,40);
375: l_yrs_of_service := l_yrs_of_service + 1;
376: --
377: END IF ;
378: pay_in_utils.set_location(g_debug,'Years of Service : '||l_yrs_of_service,50);
374: pay_in_utils.set_location(g_debug,l_procedure,40);
375: l_yrs_of_service := l_yrs_of_service + 1;
376: --
377: END IF ;
378: pay_in_utils.set_location(g_debug,'Years of Service : '||l_yrs_of_service,50);
379: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,60);
380: RETURN l_yrs_of_service ;
381:
382: --
375: l_yrs_of_service := l_yrs_of_service + 1;
376: --
377: END IF ;
378: pay_in_utils.set_location(g_debug,'Years of Service : '||l_yrs_of_service,50);
379: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,60);
380: RETURN l_yrs_of_service ;
381:
382: --
383: END years_of_service ;
479:
480: BEGIN
481: g_debug := hr_utility.debug_enabled ;
482: l_procedure := g_package || 'get_average_salary' ;
483: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
484:
485: IF g_debug THEN
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
482: l_procedure := g_package || 'get_average_salary' ;
483: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
484:
485: IF g_debug THEN
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
483: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
484:
485: IF g_debug THEN
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
484:
485: IF g_debug THEN
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
492: pay_in_utils.trace('Duration ',to_char(p_duration));
485: IF g_debug THEN
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
492: pay_in_utils.trace('Duration ',to_char(p_duration));
493: END IF;
486: pay_in_utils.trace('**************************************************','********************');
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
492: pay_in_utils.trace('Duration ',to_char(p_duration));
493: END IF;
494:
487: pay_in_utils.trace('Payroll ID ',to_char(p_payroll_id));
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
492: pay_in_utils.trace('Duration ',to_char(p_duration));
493: END IF;
494:
495: l_bal_end_date := p_end_date;
488: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
489: pay_in_utils.trace('AsAct ID ',to_char(p_assignment_action_id));
490: pay_in_utils.trace('Balance Name ',p_balance_name);
491: pay_in_utils.trace('End Date ',to_char(p_end_date));
492: pay_in_utils.trace('Duration ',to_char(p_duration));
493: END IF;
494:
495: l_bal_end_date := p_end_date;
496: l_bal_start_date := add_months(l_bal_end_date,(-1)*p_duration)+1;
503: l_total_salary := 0;
504: l_average_salary := 0;
505: l_total_divisor := 10;
506:
507: pay_in_utils.set_location(g_debug,l_procedure,20);
508: IF g_debug THEN
509: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
510: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
511: pay_in_utils.trace('Def Bal ID ',to_char(l_def_bal_id));
505: l_total_divisor := 10;
506:
507: pay_in_utils.set_location(g_debug,l_procedure,20);
508: IF g_debug THEN
509: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
510: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
511: pay_in_utils.trace('Def Bal ID ',to_char(l_def_bal_id));
512: END IF;
513:
506:
507: pay_in_utils.set_location(g_debug,l_procedure,20);
508: IF g_debug THEN
509: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
510: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
511: pay_in_utils.trace('Def Bal ID ',to_char(l_def_bal_id));
512: END IF;
513:
514:
507: pay_in_utils.set_location(g_debug,l_procedure,20);
508: IF g_debug THEN
509: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
510: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
511: pay_in_utils.trace('Def Bal ID ',to_char(l_def_bal_id));
512: END IF;
513:
514:
515:
512: END IF;
513:
514:
515:
516: pay_in_utils.set_location(g_debug,l_procedure,30);
517:
518: IF g_debug THEN
519: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
520: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
515:
516: pay_in_utils.set_location(g_debug,l_procedure,30);
517:
518: IF g_debug THEN
519: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
520: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
521: pay_in_utils.trace('**************************************************','********************');
522: END IF;
523:
516: pay_in_utils.set_location(g_debug,l_procedure,30);
517:
518: IF g_debug THEN
519: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
520: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
521: pay_in_utils.trace('**************************************************','********************');
522: END IF;
523:
524: i:=0;
517:
518: IF g_debug THEN
519: pay_in_utils.trace('Bal Start ',to_char(l_bal_start_date,'DD-MM-YYYY'));
520: pay_in_utils.trace('Bal End ',to_char(l_bal_end_date,'DD-MM-YYYY'));
521: pay_in_utils.trace('**************************************************','********************');
522: END IF;
523:
524: i:=0;
525: OPEN csr_tp(l_bal_start_date, l_bal_end_date);
552: ,p_get_rr_route => 'TRUE'
553: ,p_get_rb_route => 'FALSE');
554:
555: IF g_debug THEN
556: pay_in_utils.trace('**************************************************','********************');
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
553: ,p_get_rb_route => 'FALSE');
554:
555: IF g_debug THEN
556: pay_in_utils.trace('**************************************************','********************');
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
554:
555: IF g_debug THEN
556: pay_in_utils.trace('**************************************************','********************');
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
555: IF g_debug THEN
556: pay_in_utils.trace('**************************************************','********************');
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
556: pay_in_utils.trace('**************************************************','********************');
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
557: pay_in_utils.trace('AsActID : '||i||' ',to_char(l_asact_id));
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
565: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('Date Earned : '||i||' ',to_char(l_date_earned));
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
565: pay_in_utils.trace('**************************************************','********************');
566: END IF;
559: pay_in_utils.trace('Date Paid : '||i||' ',to_char(l_effective_date));
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
565: pay_in_utils.trace('**************************************************','********************');
566: END IF;
567: l_total_salary := l_total_salary + l_salary;
560: pay_in_utils.trace('Start Date : '||i||' ',to_char(l_start_date));
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
565: pay_in_utils.trace('**************************************************','********************');
566: END IF;
567: l_total_salary := l_total_salary + l_salary;
568:
561: pay_in_utils.trace('End Date : '||i||' ',to_char(l_end_date));
562: pay_in_utils.trace('Month Days : '||i||' ',to_char(l_days_in_month));
563: pay_in_utils.trace('Days : '||i||' ',to_char(l_days));
564: pay_in_utils.trace('Salary : '||i||' ',to_char(l_salary));
565: pay_in_utils.trace('**************************************************','********************');
566: END IF;
567: l_total_salary := l_total_salary + l_salary;
568:
569: END LOOP;
567: l_total_salary := l_total_salary + l_salary;
568:
569: END LOOP;
570: CLOSE csr_tp;
571: pay_in_utils.set_location(g_debug,l_procedure,40);
572:
573: l_average_salary := ROUND(l_total_salary /l_total_divisor,2);
574: IF g_debug THEN
575: pay_in_utils.trace('Tot Salary ',to_char(ROUND(l_total_salary,2)));
571: pay_in_utils.set_location(g_debug,l_procedure,40);
572:
573: l_average_salary := ROUND(l_total_salary /l_total_divisor,2);
574: IF g_debug THEN
575: pay_in_utils.trace('Tot Salary ',to_char(ROUND(l_total_salary,2)));
576: pay_in_utils.trace('Divisor ',to_char(ROUND(l_total_divisor,2)));
577: pay_in_utils.trace('Avg Salary ',to_char(ROUND(l_average_salary,2)));
578: END IF;
579: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,100);
572:
573: l_average_salary := ROUND(l_total_salary /l_total_divisor,2);
574: IF g_debug THEN
575: pay_in_utils.trace('Tot Salary ',to_char(ROUND(l_total_salary,2)));
576: pay_in_utils.trace('Divisor ',to_char(ROUND(l_total_divisor,2)));
577: pay_in_utils.trace('Avg Salary ',to_char(ROUND(l_average_salary,2)));
578: END IF;
579: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,100);
580: RETURN l_average_salary;
573: l_average_salary := ROUND(l_total_salary /l_total_divisor,2);
574: IF g_debug THEN
575: pay_in_utils.trace('Tot Salary ',to_char(ROUND(l_total_salary,2)));
576: pay_in_utils.trace('Divisor ',to_char(ROUND(l_total_divisor,2)));
577: pay_in_utils.trace('Avg Salary ',to_char(ROUND(l_average_salary,2)));
578: END IF;
579: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,100);
580: RETURN l_average_salary;
581:
575: pay_in_utils.trace('Tot Salary ',to_char(ROUND(l_total_salary,2)));
576: pay_in_utils.trace('Divisor ',to_char(ROUND(l_total_divisor,2)));
577: pay_in_utils.trace('Avg Salary ',to_char(ROUND(l_average_salary,2)));
578: END IF;
579: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,100);
580: RETURN l_average_salary;
581:
582: END get_average_salary;
583: --------------------------------------------------------------------------
627:
628: BEGIN
629: g_debug := hr_utility.debug_enabled ;
630: l_procedure := g_package ||'get_pos_dtls' ;
631: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
632:
633: IF g_debug THEN
634: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
635: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
630: l_procedure := g_package ||'get_pos_dtls' ;
631: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
632:
633: IF g_debug THEN
634: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
635: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
636: pay_in_utils.trace('Effective Date ',to_char(p_effective_date, 'DD-MM-YYYY'));
637: END IF;
638:
631: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
632:
633: IF g_debug THEN
634: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
635: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
636: pay_in_utils.trace('Effective Date ',to_char(p_effective_date, 'DD-MM-YYYY'));
637: END IF;
638:
639: pay_in_utils.set_location(g_debug,l_procedure,20);
632:
633: IF g_debug THEN
634: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
635: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
636: pay_in_utils.trace('Effective Date ',to_char(p_effective_date, 'DD-MM-YYYY'));
637: END IF;
638:
639: pay_in_utils.set_location(g_debug,l_procedure,20);
640:
635: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
636: pay_in_utils.trace('Effective Date ',to_char(p_effective_date, 'DD-MM-YYYY'));
637: END IF;
638:
639: pay_in_utils.set_location(g_debug,l_procedure,20);
640:
641: OPEN c_pos_dtls;
642: FETCH c_pos_dtls
643: INTO g_assignment_id, g_payroll_id, g_hire_date, g_leaving_reason, g_notified_date;
642: FETCH c_pos_dtls
643: INTO g_assignment_id, g_payroll_id, g_hire_date, g_leaving_reason, g_notified_date;
644: CLOSE c_pos_dtls;
645:
646: pay_in_utils.set_location(g_debug,l_procedure,30);
647:
648: IF g_debug THEN
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
645:
646: pay_in_utils.set_location(g_debug,l_procedure,30);
647:
648: IF g_debug THEN
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
646: pay_in_utils.set_location(g_debug,l_procedure,30);
647:
648: IF g_debug THEN
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
654: END IF;
647:
648: IF g_debug THEN
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
654: END IF;
655: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
648: IF g_debug THEN
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
654: END IF;
655: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
656:
649: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
650: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
654: END IF;
655: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
656:
657: END get_pos_dtls;
651: pay_in_utils.trace('Hire Date ',to_char(g_hire_date, 'DD-MM-YYYY'));
652: pay_in_utils.trace('Leaving Reason ',g_leaving_reason);
653: pay_in_utils.trace('Notified Date ',to_char(g_notified_date,'DD-MM-YYYY'));
654: END IF;
655: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
656:
657: END get_pos_dtls;
658:
659: --------------------------------------------------------------------------
703: BEGIN
704: g_debug := hr_utility.debug_enabled ;
705: l_procedure := g_package ||'get_input_value_ids' ;
706:
707: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
708:
709: l_count := 0;
710:
711: FOR rec_input_values IN csr_element_inputs
712: LOOP
713:
714: l_count := l_count+1;
715: p_input_values(l_count).input_value_id := rec_input_values.input_value_id;
716: pay_in_utils.trace('Input Name: ' || rec_input_values.name, '['||rec_input_values.input_value_id||']');
717:
718: END LOOP;
719:
720: p_expected_entries:= l_count;
717:
718: END LOOP;
719:
720: p_expected_entries:= l_count;
721: pay_in_utils.set_location(g_debug, 'Leaving: '||l_procedure, 20);
722:
723: END get_input_value_ids;
724:
725: --------------------------------------------------------------------------
739: -- p_object_version_number NUMBER --
740: -- p_input_values t_input_values_tab --
741: -- p_expected_entries NUMBER --
742: -- p_message_name VARCHAR2 --
743: -- p_token_name pay_in_utils.char_tab_type --
744: -- p_token_value pay_in_utils.char_tab_type --
745: -- Change History : --
746: --------------------------------------------------------------------------
747: -- Rev# Date Userid Description --
740: -- p_input_values t_input_values_tab --
741: -- p_expected_entries NUMBER --
742: -- p_message_name VARCHAR2 --
743: -- p_token_name pay_in_utils.char_tab_type --
744: -- p_token_value pay_in_utils.char_tab_type --
745: -- Change History : --
746: --------------------------------------------------------------------------
747: -- Rev# Date Userid Description --
748: --------------------------------------------------------------------------
755: ,p_element_link_id OUT NOCOPY NUMBER
756: ,p_input_values OUT NOCOPY t_input_values_tab
757: ,p_expected_entries OUT NOCOPY NUMBER
758: ,p_message_name OUT NOCOPY VARCHAR2
759: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
760: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
761: ,p_business_group_id IN NUMBER
762: )
763: IS
756: ,p_input_values OUT NOCOPY t_input_values_tab
757: ,p_expected_entries OUT NOCOPY NUMBER
758: ,p_message_name OUT NOCOPY VARCHAR2
759: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
760: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
761: ,p_business_group_id IN NUMBER
762: )
763: IS
764:
799: BEGIN
800: g_debug := hr_utility.debug_enabled ;
801: l_procedure := g_package ||'get_entry_details' ;
802: p_message_name := 'SUCCESS';
803: pay_in_utils.null_message (p_token_name, p_token_value);
804:
805: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
806:
807: OPEN c_element_type_id;
801: l_procedure := g_package ||'get_entry_details' ;
802: p_message_name := 'SUCCESS';
803: pay_in_utils.null_message (p_token_name, p_token_value);
804:
805: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
806:
807: OPEN c_element_type_id;
808: FETCH c_element_type_id INTO p_element_type_id;
809: CLOSE c_element_type_id;
807: OPEN c_element_type_id;
808: FETCH c_element_type_id INTO p_element_type_id;
809: CLOSE c_element_type_id;
810:
811: l_link_flag := pay_in_utils.chk_element_link
812: (p_element_name,
813: g_assignment_id,
814: p_effective_date,
815: p_element_link_id);
817: IF l_link_flag <> 'SUCCESS' OR p_element_link_id IS NULL THEN
818: p_message_name := 'PER_IN_MISSING_LINK';
819: p_token_name(1) := 'ELEMENT_NAME';
820: p_token_value(1):= p_element_name;
821: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
822: RETURN;
823: END IF;
824: /*
825: OPEN c_element_link;
824: /*
825: OPEN c_element_link;
826: FETCH c_element_link INTO p_element_link_id
827: , p_element_type_id;
828: pay_in_utils.set_location(g_debug,l_procedure,20);
829:
830: IF p_element_link_id is NULL OR c_element_link%NOTFOUND THEN
831: CLOSE c_element_link;
832: p_message_name := 'PER_IN_MISSING_LINK';
831: CLOSE c_element_link;
832: p_message_name := 'PER_IN_MISSING_LINK';
833: p_token_name(1) := 'ELEMENT_NAME';
834: p_token_value(1):= p_element_name;
835: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
836: RETURN;
837: END IF;
838: CLOSE c_element_link;
839: */
838: CLOSE c_element_link;
839: */
840:
841: IF g_debug THEN
842: pay_in_utils.trace('Element link ID ', p_element_link_id);
843: pay_in_utils.trace('Element Type ID ', p_element_type_id);
844: END IF;
845: pay_in_utils.set_location(g_debug, l_procedure, 40);
846:
839: */
840:
841: IF g_debug THEN
842: pay_in_utils.trace('Element link ID ', p_element_link_id);
843: pay_in_utils.trace('Element Type ID ', p_element_type_id);
844: END IF;
845: pay_in_utils.set_location(g_debug, l_procedure, 40);
846:
847: get_input_value_ids(p_element_type_id => p_element_type_id
841: IF g_debug THEN
842: pay_in_utils.trace('Element link ID ', p_element_link_id);
843: pay_in_utils.trace('Element Type ID ', p_element_type_id);
844: END IF;
845: pay_in_utils.set_location(g_debug, l_procedure, 40);
846:
847: get_input_value_ids(p_element_type_id => p_element_type_id
848: ,p_effective_date => p_effective_date
849: ,p_expected_entries => p_expected_entries
849: ,p_expected_entries => p_expected_entries
850: ,p_input_values => p_input_values
851: ,p_business_group_id => p_business_group_id);
852:
853: pay_in_utils.set_location(g_debug, 'Leaving: '||l_procedure, 50);
854:
855: END get_entry_details;
856:
857: --------------------------------------------------------------------------
866: -- p_business_group_id VARCHAR2 --
867: -- p_assignment_id NUMBER --
868: -- p_payroll_id NUMBER --
869: -- p_element_name VARCHAR2 --
870: -- p_entry_values pay_in_utils.char_tab_type --
871: -- p_calling_procedure VARCHAR2 --
872: -- OUT : p_message_name VARCHAR2 --
873: -- p_token_name pay_in_utils.char_tab_type --
874: -- p_token_value pay_in_utils.char_tab_type --
869: -- p_element_name VARCHAR2 --
870: -- p_entry_values pay_in_utils.char_tab_type --
871: -- p_calling_procedure VARCHAR2 --
872: -- OUT : p_message_name VARCHAR2 --
873: -- p_token_name pay_in_utils.char_tab_type --
874: -- p_token_value pay_in_utils.char_tab_type --
875: -- Change History : --
876: --------------------------------------------------------------------------
877: -- Rev# Date Userid Description --
870: -- p_entry_values pay_in_utils.char_tab_type --
871: -- p_calling_procedure VARCHAR2 --
872: -- OUT : p_message_name VARCHAR2 --
873: -- p_token_name pay_in_utils.char_tab_type --
874: -- p_token_value pay_in_utils.char_tab_type --
875: -- Change History : --
876: --------------------------------------------------------------------------
877: -- Rev# Date Userid Description --
878: --------------------------------------------------------------------------
883: ,p_entry_values IN t_entry_values_tab
884: ,p_element_name IN VARCHAR2
885: ,p_calling_procedure IN VARCHAR2
886: ,p_message_name OUT NOCOPY VARCHAR2
887: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
888: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
889: )
890: IS
891: l_procedure VARCHAR2(100) ;
884: ,p_element_name IN VARCHAR2
885: ,p_calling_procedure IN VARCHAR2
886: ,p_message_name OUT NOCOPY VARCHAR2
887: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
888: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
889: )
890: IS
891: l_procedure VARCHAR2(100) ;
892: l_element_type_id pay_element_types_f.element_type_id%TYPE;
907: BEGIN
908:
909: l_procedure := g_package || 'create_entry' ;
910: p_message_name := 'SUCCESS';
911: pay_in_utils.null_message (p_token_name, p_token_value);
912:
913: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
914:
915: IF g_payroll_id is null THEN
909: l_procedure := g_package || 'create_entry' ;
910: p_message_name := 'SUCCESS';
911: pay_in_utils.null_message (p_token_name, p_token_value);
912:
913: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
914:
915: IF g_payroll_id is null THEN
916:
917: /* p_message_name := 'PER_IN_MISSING_LINK';
916:
917: /* p_message_name := 'PER_IN_MISSING_LINK';
918: p_token_name(1) := 'ELEMENT_NAME';
919: p_token_value(1) := p_element_name;
920: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
921: */ RETURN;
922:
923: END IF ;
924:
921: */ RETURN;
922:
923: END IF ;
924:
925: pay_in_utils.set_location(g_debug,l_procedure,30);
926:
927: get_entry_details
928: (p_effective_date => p_effective_date
929: ,p_element_name => p_element_name
937: ,p_business_group_id => p_business_group_id
938: ) ;
939:
940: IF p_message_name <> 'SUCCESS' THEN
941: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
942: RETURN;
943: END IF;
944:
945: pay_in_utils.set_location(g_debug,l_procedure,50);
941: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
942: RETURN;
943: END IF;
944:
945: pay_in_utils.set_location(g_debug,l_procedure,50);
946:
947: --
948: -- Dynamic SQL Cursor
949: --
963: l_statem := l_statem||',p_element_entry_id => :l_ee_id';
964: l_statem := l_statem||',p_object_version_number => :l_ovn';
965: l_statem := l_statem||',p_create_warning => l_warning';
966: l_statem := l_statem||',p_override_user_ent_chk => ''Y''';
967: pay_in_utils.set_location(g_debug,l_procedure,60);
968:
969: FOR i IN 1..l_expected_entries
970: LOOP
971: l_statem := l_statem||',p_input_value_id'||i||'=> '||l_input_values(i).input_value_id;
978:
979: l_statem := l_statem||');';
980: l_statem := l_statem||'IF l_warning THEN :l_warn := ''TRUE''; ELSE :l_warn := ''FALSE''; END IF;';
981: l_statem := l_statem||'END;';
982: pay_in_utils.trace(substr(l_statem,1,250),1);
983: pay_in_utils.trace(substr(l_statem,251,250),2);
984: pay_in_utils.trace(substr(l_statem,501,250),3);
985: pay_in_utils.trace(substr(l_statem,751,250),4);
986:
979: l_statem := l_statem||');';
980: l_statem := l_statem||'IF l_warning THEN :l_warn := ''TRUE''; ELSE :l_warn := ''FALSE''; END IF;';
981: l_statem := l_statem||'END;';
982: pay_in_utils.trace(substr(l_statem,1,250),1);
983: pay_in_utils.trace(substr(l_statem,251,250),2);
984: pay_in_utils.trace(substr(l_statem,501,250),3);
985: pay_in_utils.trace(substr(l_statem,751,250),4);
986:
987: pay_in_utils.set_location(g_debug,l_procedure,70);
980: l_statem := l_statem||'IF l_warning THEN :l_warn := ''TRUE''; ELSE :l_warn := ''FALSE''; END IF;';
981: l_statem := l_statem||'END;';
982: pay_in_utils.trace(substr(l_statem,1,250),1);
983: pay_in_utils.trace(substr(l_statem,251,250),2);
984: pay_in_utils.trace(substr(l_statem,501,250),3);
985: pay_in_utils.trace(substr(l_statem,751,250),4);
986:
987: pay_in_utils.set_location(g_debug,l_procedure,70);
988:
981: l_statem := l_statem||'END;';
982: pay_in_utils.trace(substr(l_statem,1,250),1);
983: pay_in_utils.trace(substr(l_statem,251,250),2);
984: pay_in_utils.trace(substr(l_statem,501,250),3);
985: pay_in_utils.trace(substr(l_statem,751,250),4);
986:
987: pay_in_utils.set_location(g_debug,l_procedure,70);
988:
989: sql_cursor := dbms_sql.open_cursor;
983: pay_in_utils.trace(substr(l_statem,251,250),2);
984: pay_in_utils.trace(substr(l_statem,501,250),3);
985: pay_in_utils.trace(substr(l_statem,751,250),4);
986:
987: pay_in_utils.set_location(g_debug,l_procedure,70);
988:
989: sql_cursor := dbms_sql.open_cursor;
990: pay_in_utils.set_location(g_debug,l_procedure,80);
991:
986:
987: pay_in_utils.set_location(g_debug,l_procedure,70);
988:
989: sql_cursor := dbms_sql.open_cursor;
990: pay_in_utils.set_location(g_debug,l_procedure,80);
991:
992: dbms_sql.parse(sql_cursor, l_statem, dbms_sql.native);
993: pay_in_utils.set_location(g_debug,l_procedure,90);
994:
989: sql_cursor := dbms_sql.open_cursor;
990: pay_in_utils.set_location(g_debug,l_procedure,80);
991:
992: dbms_sql.parse(sql_cursor, l_statem, dbms_sql.native);
993: pay_in_utils.set_location(g_debug,l_procedure,90);
994:
995: dbms_sql.bind_variable(sql_cursor, 'l_eff_start_date', l_effective_start_date);
996: dbms_sql.bind_variable(sql_cursor, 'l_eff_end_date', l_effective_end_date);
997: dbms_sql.bind_variable(sql_cursor, 'l_ee_id', l_element_entry_id);
997: dbms_sql.bind_variable(sql_cursor, 'l_ee_id', l_element_entry_id);
998: dbms_sql.bind_variable(sql_cursor, 'l_ovn', l_object_version_number);
999: dbms_sql.bind_variable_char(sql_cursor, 'l_warn', l_warning,10);
1000:
1001: pay_in_utils.set_location(g_debug,l_procedure,100);
1002:
1003: l_rows := dbms_sql.execute(sql_cursor);
1004: pay_in_utils.set_location(g_debug,l_procedure,110);
1005:
1000:
1001: pay_in_utils.set_location(g_debug,l_procedure,100);
1002:
1003: l_rows := dbms_sql.execute(sql_cursor);
1004: pay_in_utils.set_location(g_debug,l_procedure,110);
1005:
1006: dbms_sql.close_cursor(sql_cursor);
1007:
1008: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,120);
1004: pay_in_utils.set_location(g_debug,l_procedure,110);
1005:
1006: dbms_sql.close_cursor(sql_cursor);
1007:
1008: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,120);
1009: --
1010: END create_entry ;
1011:
1012: --------------------------------------------------------------------------
1091: INTO l_business_group_id, l_payroll_id;
1092: CLOSE csr_asg_details;
1093:
1094: IF g_debug THEN
1095: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1096: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1097: END IF;
1098:
1099: l_link_flag := pay_in_utils.chk_element_link
1092: CLOSE csr_asg_details;
1093:
1094: IF g_debug THEN
1095: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1096: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1097: END IF;
1098:
1099: l_link_flag := pay_in_utils.chk_element_link
1100: (p_element_name,
1095: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1096: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1097: END IF;
1098:
1099: l_link_flag := pay_in_utils.chk_element_link
1100: (p_element_name,
1101: p_assignment_id,
1102: p_effective_date,
1103: l_element_link_id);
1113: RETURN FALSE;
1114: */
1115: ELSE
1116: IF g_debug THEN
1117: pay_in_utils.trace('Element Link ID ',l_element_link_id);
1118: END IF;
1119:
1120: -- CLOSE csr_element_link;
1121: --
1121: --
1122: OPEN csr_element_entry(l_element_link_id) ;
1123: FETCH csr_element_entry INTO p_element_entry_id, p_ee_ovn, p_start_date ;
1124: IF g_debug then
1125: pay_in_utils.trace('Element Entry ID ',p_element_entry_id);
1126: END IF;
1127:
1128: IF p_element_entry_id IS NULL OR csr_element_entry%NOTFOUND
1129: THEN
1232: INTO l_business_group_id, l_payroll_id;
1233: CLOSE csr_asg_details;
1234:
1235: IF g_debug THEN
1236: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1237: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1238: END IF;
1239:
1240: l_link_flag := pay_in_utils.chk_element_link
1233: CLOSE csr_asg_details;
1234:
1235: IF g_debug THEN
1236: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1237: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1238: END IF;
1239:
1240: l_link_flag := pay_in_utils.chk_element_link
1241: (p_element_name,
1236: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1237: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1238: END IF;
1239:
1240: l_link_flag := pay_in_utils.chk_element_link
1241: (p_element_name,
1242: p_assignment_id,
1243: p_effective_date,
1244: l_element_link_id);
1254: RETURN FALSE;
1255: */
1256: ELSE
1257: IF g_debug THEN
1258: pay_in_utils.trace('Element Link ID ',l_element_link_id);
1259: END IF;
1260:
1261: -- CLOSE csr_element_link;
1262: --
1262: --
1263: OPEN csr_element_entry(l_element_link_id) ;
1264: FETCH csr_element_entry INTO p_element_entry_id, p_ee_ovn, p_start_date ;
1265: IF g_debug then
1266: pay_in_utils.trace('Element Entry ID ',p_element_entry_id);
1267: END IF;
1268:
1269: IF p_element_entry_id IS NULL OR csr_element_entry%NOTFOUND
1270: THEN
1325: --
1326: BEGIN
1327: g_debug := hr_utility.debug_enabled ;
1328: l_procedure := g_package || 'is_element_processed' ;
1329: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1330:
1331: OPEN csr_element_proc;
1332: FETCH csr_element_proc INTO l_count;
1333: IF csr_element_proc%FOUND THEN
1330:
1331: OPEN csr_element_proc;
1332: FETCH csr_element_proc INTO l_count;
1333: IF csr_element_proc%FOUND THEN
1334: pay_in_utils.set_location(g_debug,'Leaving: True'||l_procedure,60);
1335: CLOSE csr_element_proc;
1336: RETURN TRUE ;
1337: END IF ;
1338: CLOSE csr_element_proc;
1335: CLOSE csr_element_proc;
1336: RETURN TRUE ;
1337: END IF ;
1338: CLOSE csr_element_proc;
1339: pay_in_utils.set_location(g_debug,'Leaving: False'||l_procedure,60);
1340: RETURN FALSE ;
1341: --
1342: END is_element_processed ;
1343:
1425: INTO l_business_group_id, l_payroll_id;
1426: CLOSE csr_asg_details;
1427:
1428: IF g_debug THEN
1429: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1430: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1431: END IF;
1432:
1433:
1426: CLOSE csr_asg_details;
1427:
1428: IF g_debug THEN
1429: pay_in_utils.trace('Business Group ID ',l_business_group_id);
1430: pay_in_utils.trace('Payroll ID ',l_payroll_id);
1431: END IF;
1432:
1433:
1434: --
1434: --
1435: OPEN csr_element_entry(l_business_group_id) ;
1436: FETCH csr_element_entry INTO p_element_entry_id, p_ee_ovn, p_start_date ;
1437: IF g_debug then
1438: pay_in_utils.trace('Element Entry ID ',p_element_entry_id);
1439: END IF;
1440:
1441: IF p_element_entry_id IS NULL OR csr_element_entry%NOTFOUND
1442: THEN
1494:
1495: BEGIN
1496: g_debug := hr_utility.debug_enabled ;
1497: l_procedure := g_package ||'get_gratuity_ivs' ;
1498: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1499:
1500: pay_in_utils.set_location(g_debug,l_procedure,20);
1501:
1502: OPEN csr_asg_details;
1496: g_debug := hr_utility.debug_enabled ;
1497: l_procedure := g_package ||'get_gratuity_ivs' ;
1498: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1499:
1500: pay_in_utils.set_location(g_debug,l_procedure,20);
1501:
1502: OPEN csr_asg_details;
1503: FETCH csr_asg_details
1504: INTO l_coverage_flag;
1503: FETCH csr_asg_details
1504: INTO l_coverage_flag;
1505: CLOSE csr_asg_details;
1506:
1507: pay_in_utils.set_location(g_debug,l_procedure,30);
1508:
1509: IF l_coverage_flag = 'Y' AND p_actual_termination_date > l_e_date
1510: THEN
1511: pay_in_utils.set_location(g_debug,l_procedure,40);
1507: pay_in_utils.set_location(g_debug,l_procedure,30);
1508:
1509: IF l_coverage_flag = 'Y' AND p_actual_termination_date > l_e_date
1510: THEN
1511: pay_in_utils.set_location(g_debug,l_procedure,40);
1512: p_years_of_service := years_of_service(p_start_date => g_hire_date
1513: ,p_end_date => p_actual_termination_date
1514: ,p_flag => 'Y'
1515: ) ;
1514: ,p_flag => 'Y'
1515: ) ;
1516: p_continuous_service_flag:='Y';
1517: IF g_debug THEN
1518: pay_in_utils.trace('Years of Service ',p_years_of_service);
1519: END IF;
1520: pay_in_utils.set_location(g_debug,l_procedure,50);
1521:
1522: IF g_leaving_reason IN ( 'PDD', 'PDA', 'D' ) OR p_years_of_service >=5
1516: p_continuous_service_flag:='Y';
1517: IF g_debug THEN
1518: pay_in_utils.trace('Years of Service ',p_years_of_service);
1519: END IF;
1520: pay_in_utils.set_location(g_debug,l_procedure,50);
1521:
1522: IF g_leaving_reason IN ( 'PDD', 'PDA', 'D' ) OR p_years_of_service >=5
1523: THEN
1524: pay_in_utils.set_location(g_debug,l_procedure,60);
1520: pay_in_utils.set_location(g_debug,l_procedure,50);
1521:
1522: IF g_leaving_reason IN ( 'PDD', 'PDA', 'D' ) OR p_years_of_service >=5
1523: THEN
1524: pay_in_utils.set_location(g_debug,l_procedure,60);
1525: p_create_ee := TRUE;
1526: ELSE
1527: pay_in_utils.set_location(g_debug,l_procedure,70);
1528: p_create_ee := FALSE;
1523: THEN
1524: pay_in_utils.set_location(g_debug,l_procedure,60);
1525: p_create_ee := TRUE;
1526: ELSE
1527: pay_in_utils.set_location(g_debug,l_procedure,70);
1528: p_create_ee := FALSE;
1529: END IF;
1530: --
1531: END IF; --End of IF block for Covered under Gratuity and act_term_date check.
1529: END IF;
1530: --
1531: END IF; --End of IF block for Covered under Gratuity and act_term_date check.
1532:
1533: pay_in_utils.set_location(g_debug,'Leaving :'||l_procedure,90);
1534:
1535: END get_gratuity_ivs;
1536:
1537: --------------------------------------------------------------------------
1548: -- p_business_group_id NUMBER --
1549: -- p_actual_termination_date DATE --
1550: -- p_calling_procedure VARCHAR2 --
1551: -- OUT : p_message_name VARCHAR2 --
1552: -- p_token_name pay_in_utils.char_tab_type--
1553: -- p_token_value pay_in_utils.char_tab_type--
1554: -- Change History : --
1555: --------------------------------------------------------------------------
1556: -- Rev# Date Userid Description --
1549: -- p_actual_termination_date DATE --
1550: -- p_calling_procedure VARCHAR2 --
1551: -- OUT : p_message_name VARCHAR2 --
1552: -- p_token_name pay_in_utils.char_tab_type--
1553: -- p_token_value pay_in_utils.char_tab_type--
1554: -- Change History : --
1555: --------------------------------------------------------------------------
1556: -- Rev# Date Userid Description --
1557: --------------------------------------------------------------------------
1563: ,p_business_group_id IN NUMBER
1564: ,p_actual_termination_date IN DATE
1565: ,p_calling_procedure IN VARCHAR2
1566: ,p_message_name OUT NOCOPY VARCHAR2
1567: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1568: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1569: )
1570: IS
1571: l_procedure VARCHAR2(100);
1564: ,p_actual_termination_date IN DATE
1565: ,p_calling_procedure IN VARCHAR2
1566: ,p_message_name OUT NOCOPY VARCHAR2
1567: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1568: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1569: )
1570: IS
1571: l_procedure VARCHAR2(100);
1572: l_element_name pay_element_types_f.element_name%TYPE ;
1581: BEGIN
1582: g_debug := hr_utility.debug_enabled ;
1583: l_procedure := g_package || 'create_gratuity_entry' ;
1584: p_message_name := 'SUCCESS';
1585: pay_in_utils.null_message (p_token_name, p_token_value);
1586:
1587: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1588:
1589: l_ee_exists := check_ee_exists
1583: l_procedure := g_package || 'create_gratuity_entry' ;
1584: p_message_name := 'SUCCESS';
1585: pay_in_utils.null_message (p_token_name, p_token_value);
1586:
1587: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1588:
1589: l_ee_exists := check_ee_exists
1590: (p_element_name => g_gratuity_et--l_element_name
1591: ,p_assignment_id => g_assignment_id
1594: ,p_start_date => l_start_date
1595: ,p_ee_ovn => l_ee_ovn);
1596:
1597: IF l_ee_exists THEN
1598: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
1599: RETURN;
1600: END IF;
1601:
1602: l_element_processed := is_element_processed
1603: (p_assignment_id =>g_assignment_id,
1604: p_element_name =>g_gratuity_et);
1605:
1606: IF l_element_processed THEN
1607: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
1608: RETURN;
1609: END IF;
1610: --
1611: -- Element Name : Gratuity Information
1633: l_entry_values(7).entry_value := null;
1634: l_element_name := g_gratuity_et;
1635:
1636: IF l_create_ee THEN
1637: pay_in_utils.set_location(g_debug,l_procedure,20);
1638: create_entry
1639: (p_effective_date => p_actual_termination_date
1640: ,p_business_group_id => p_business_group_id
1641: ,p_element_name => l_element_name
1644: ,p_message_name => p_message_name
1645: ,p_token_name => p_token_name
1646: ,p_token_value => p_token_value
1647: );
1648: pay_in_utils.set_location(g_debug,l_procedure,30);
1649: END IF;
1650: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
1651:
1652: END create_gratuity_entry;
1646: ,p_token_value => p_token_value
1647: );
1648: pay_in_utils.set_location(g_debug,l_procedure,30);
1649: END IF;
1650: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
1651:
1652: END create_gratuity_entry;
1653:
1654: --------------------------------------------------------------------------
1664: -- p_business_group_id NUMBER --
1665: -- p_actual_termination_date DATE --
1666: -- p_calling_procedure VARCHAR2 --
1667: -- OUT : p_message_name VARCHAR2 --
1668: -- p_token_name pay_in_utils.char_tab_type--
1669: -- p_token_value pay_in_utils.char_tab_type--
1670: -- Change History : --
1671: --------------------------------------------------------------------------
1672: -- Rev# Date Userid Description --
1665: -- p_actual_termination_date DATE --
1666: -- p_calling_procedure VARCHAR2 --
1667: -- OUT : p_message_name VARCHAR2 --
1668: -- p_token_name pay_in_utils.char_tab_type--
1669: -- p_token_value pay_in_utils.char_tab_type--
1670: -- Change History : --
1671: --------------------------------------------------------------------------
1672: -- Rev# Date Userid Description --
1673: --------------------------------------------------------------------------
1678: ,p_business_group_id IN NUMBER
1679: ,p_actual_termination_date IN DATE
1680: ,p_calling_procedure IN VARCHAR2
1681: ,p_message_name OUT NOCOPY VARCHAR2
1682: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1683: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1684: )
1685: IS
1686: l_procedure VARCHAR2(100);
1679: ,p_actual_termination_date IN DATE
1680: ,p_calling_procedure IN VARCHAR2
1681: ,p_message_name OUT NOCOPY VARCHAR2
1682: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1683: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1684: )
1685: IS
1686: l_procedure VARCHAR2(100);
1687: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
1695: BEGIN
1696: g_debug := hr_utility.debug_enabled ;
1697: l_procedure := g_package || 'delete_gratuity_entry' ;
1698: p_message_name := 'SUCCESS';
1699: pay_in_utils.null_message (p_token_name, p_token_value);
1700:
1701: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1702:
1703: l_element_name := g_gratuity_et;
1697: l_procedure := g_package || 'delete_gratuity_entry' ;
1698: p_message_name := 'SUCCESS';
1699: pay_in_utils.null_message (p_token_name, p_token_value);
1700:
1701: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1702:
1703: l_element_name := g_gratuity_et;
1704:
1705: IF check_ee_exists
1709: ,p_element_entry_id => l_element_entry_id
1710: ,p_start_date => l_start_date
1711: ,p_ee_ovn => l_ee_ovn)
1712: THEN
1713: pay_in_utils.set_location(g_debug,l_procedure,20);
1714: IF g_debug THEN
1715: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
1716: END IF;
1717:
1711: ,p_ee_ovn => l_ee_ovn)
1712: THEN
1713: pay_in_utils.set_location(g_debug,l_procedure,20);
1714: IF g_debug THEN
1715: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
1716: END IF;
1717:
1718: IF NOT is_element_processed
1719: (p_assignment_id =>g_assignment_id,
1728: ,p_effective_end_date => l_eff_end_date
1729: ,p_delete_warning => l_delete_warning
1730: ) ;
1731: END IF ;
1732: pay_in_utils.set_location(g_debug,l_procedure,30);
1733:
1734: END IF;
1735: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
1736:
1731: END IF ;
1732: pay_in_utils.set_location(g_debug,l_procedure,30);
1733:
1734: END IF;
1735: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
1736:
1737: END delete_gratuity_entry;
1738:
1739: --------------------------------------------------------------------------
1786:
1787: BEGIN
1788: g_debug := hr_utility.debug_enabled ;
1789: l_procedure := g_package ||'get_notice_ivs' ;
1790: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1791:
1792: --
1793: -- Step 1. To fetch the Notice Period Days from the Assignment Form
1794: --
1797: INTO l_emp_category,l_notice_duration,l_notice_uom;
1798: CLOSE csr_emp_catg;
1799:
1800: IF g_debug THEN
1801: pay_in_utils.trace('Employee Category ',l_emp_category);
1802: END IF;
1803:
1804: --
1805: -- Step 2. To fetch the Notice Period Days from the DFF
1826: END IF ;
1827:
1828: IF l_notice_uom IS NULL OR l_notice_uom = 'D' THEN
1829: IF g_debug THEN
1830: pay_in_utils.trace('Notice Period Duration ',l_notice_duration);
1831: END IF;
1832: --Bug 3977010. Added +1
1833: l_shortfall := ROUND(l_notice_duration - (p_actual_termination_date - g_notified_date + 1),0);
1834: IF l_shortfall < 0 THEN
1838: END IF;
1839: ELSE
1840: p_notice_period_days := 0;
1841: END IF ;
1842: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,90);
1843:
1844: END get_notice_ivs;
1845:
1846: --------------------------------------------------------------------------
1857: -- p_business_group_id NUMBER --
1858: -- p_actual_termination_date DATE --
1859: -- p_calling_procedure VARCHAR2 --
1860: -- OUT : p_message_name VARCHAR2 --
1861: -- p_token_name pay_in_utils.char_tab_type--
1862: -- p_token_value pay_in_utils.char_tab_type--
1863: -- Change History : --
1864: --------------------------------------------------------------------------
1865: -- Rev# Date Userid Description --
1858: -- p_actual_termination_date DATE --
1859: -- p_calling_procedure VARCHAR2 --
1860: -- OUT : p_message_name VARCHAR2 --
1861: -- p_token_name pay_in_utils.char_tab_type--
1862: -- p_token_value pay_in_utils.char_tab_type--
1863: -- Change History : --
1864: --------------------------------------------------------------------------
1865: -- Rev# Date Userid Description --
1866: --------------------------------------------------------------------------
1871: ,p_business_group_id IN NUMBER
1872: ,p_actual_termination_date IN DATE
1873: ,p_calling_procedure IN VARCHAR2
1874: ,p_message_name OUT NOCOPY VARCHAR2
1875: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1876: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1877: )
1878: IS
1879: l_procedure VARCHAR2(100);
1872: ,p_actual_termination_date IN DATE
1873: ,p_calling_procedure IN VARCHAR2
1874: ,p_message_name OUT NOCOPY VARCHAR2
1875: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1876: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1877: )
1878: IS
1879: l_procedure VARCHAR2(100);
1880: l_element_name pay_element_types_f.element_name%TYPE ;
1888: BEGIN
1889: g_debug := hr_utility.debug_enabled ;
1890: l_procedure := g_package || 'create_notice_entry' ;
1891: p_message_name := 'SUCCESS';
1892: pay_in_utils.null_message (p_token_name, p_token_value);
1893:
1894: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1895:
1896: l_ee_exists := check_ee_exists
1890: l_procedure := g_package || 'create_notice_entry' ;
1891: p_message_name := 'SUCCESS';
1892: pay_in_utils.null_message (p_token_name, p_token_value);
1893:
1894: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1895:
1896: l_ee_exists := check_ee_exists
1897: (p_element_name => g_notice_et--l_element_name
1898: ,p_assignment_id => g_assignment_id
1901: ,p_start_date => l_start_date
1902: ,p_ee_ovn => l_ee_ovn);
1903:
1904: IF l_ee_exists THEN
1905: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
1906: RETURN;
1907: END IF;
1908:
1909: l_element_processed := is_element_processed
1910: (p_assignment_id =>g_assignment_id,
1911: p_element_name =>g_notice_et);
1912:
1913: IF l_element_processed THEN
1914: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
1915: RETURN;
1916: END IF;
1917: --
1918: -- Element Name : Notice Period Information
1936: l_element_name := g_notice_et;
1937:
1938: -- Bug 3977010
1939: IF l_entry_values(3).entry_value <= 0 THEN
1940: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
1941: RETURN;
1942: END IF;
1943:
1944: pay_in_utils.set_location(g_debug,l_procedure,30);
1940: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
1941: RETURN;
1942: END IF;
1943:
1944: pay_in_utils.set_location(g_debug,l_procedure,30);
1945: create_entry
1946: (p_effective_date => p_actual_termination_date
1947: ,p_business_group_id => p_business_group_id
1948: ,p_element_name => l_element_name
1952: ,p_token_name => p_token_name
1953: ,p_token_value => p_token_value
1954: );
1955:
1956: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
1957:
1958: END create_notice_entry;
1959:
1960: --------------------------------------------------------------------------
1970: -- p_business_group_id NUMBER --
1971: -- p_actual_termination_date DATE --
1972: -- p_calling_procedure VARCHAR2 --
1973: -- OUT : p_message_name VARCHAR2 --
1974: -- p_token_name pay_in_utils.char_tab_type--
1975: -- p_token_value pay_in_utils.char_tab_type--
1976: -- Change History : --
1977: --------------------------------------------------------------------------
1978: -- Rev# Date Userid Description --
1971: -- p_actual_termination_date DATE --
1972: -- p_calling_procedure VARCHAR2 --
1973: -- OUT : p_message_name VARCHAR2 --
1974: -- p_token_name pay_in_utils.char_tab_type--
1975: -- p_token_value pay_in_utils.char_tab_type--
1976: -- Change History : --
1977: --------------------------------------------------------------------------
1978: -- Rev# Date Userid Description --
1979: --------------------------------------------------------------------------
1984: ,p_business_group_id IN NUMBER
1985: ,p_actual_termination_date IN DATE
1986: ,p_calling_procedure IN VARCHAR2
1987: ,p_message_name OUT NOCOPY VARCHAR2
1988: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1989: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1990: )
1991: IS
1992: l_procedure VARCHAR2(100);
1985: ,p_actual_termination_date IN DATE
1986: ,p_calling_procedure IN VARCHAR2
1987: ,p_message_name OUT NOCOPY VARCHAR2
1988: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1989: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
1990: )
1991: IS
1992: l_procedure VARCHAR2(100);
1993: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2001: BEGIN
2002: g_debug := hr_utility.debug_enabled ;
2003: l_procedure := g_package || 'delete_notice_entry' ;
2004: p_message_name := 'SUCCESS';
2005: pay_in_utils.null_message (p_token_name, p_token_value);
2006:
2007: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2008:
2009: l_element_name := g_notice_et;
2003: l_procedure := g_package || 'delete_notice_entry' ;
2004: p_message_name := 'SUCCESS';
2005: pay_in_utils.null_message (p_token_name, p_token_value);
2006:
2007: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2008:
2009: l_element_name := g_notice_et;
2010:
2011: IF check_ee_exists
2015: ,p_element_entry_id => l_element_entry_id
2016: ,p_start_date => l_start_date
2017: ,p_ee_ovn => l_ee_ovn)
2018: THEN
2019: pay_in_utils.set_location(g_debug,l_procedure,20);
2020: IF g_debug THEN
2021: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2022: END IF;
2023: IF NOT is_element_processed
2017: ,p_ee_ovn => l_ee_ovn)
2018: THEN
2019: pay_in_utils.set_location(g_debug,l_procedure,20);
2020: IF g_debug THEN
2021: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2022: END IF;
2023: IF NOT is_element_processed
2024: (p_assignment_id =>g_assignment_id,
2025: p_element_name =>l_element_name)
2033: ,p_effective_end_date => l_eff_end_date
2034: ,p_delete_warning => l_delete_warning
2035: ) ;
2036: END IF ;
2037: pay_in_utils.set_location(g_debug,l_procedure,30);
2038:
2039: END IF;
2040: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2041:
2036: END IF ;
2037: pay_in_utils.set_location(g_debug,l_procedure,30);
2038:
2039: END IF;
2040: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2041:
2042: END delete_notice_entry;
2043: --------------------------------------------------------------------------
2044: -- --
2054: -- p_business_group_id NUMBER --
2055: -- p_actual_termination_date DATE --
2056: -- p_calling_procedure VARCHAR2 --
2057: -- OUT : p_message_name VARCHAR2 --
2058: -- p_token_name pay_in_utils.char_tab_type--
2059: -- p_token_value pay_in_utils.char_tab_type--
2060: --------------------------------------------------------------------------
2061: PROCEDURE create_retrenchment_entry
2062: (p_period_of_service_id IN NUMBER
2055: -- p_actual_termination_date DATE --
2056: -- p_calling_procedure VARCHAR2 --
2057: -- OUT : p_message_name VARCHAR2 --
2058: -- p_token_name pay_in_utils.char_tab_type--
2059: -- p_token_value pay_in_utils.char_tab_type--
2060: --------------------------------------------------------------------------
2061: PROCEDURE create_retrenchment_entry
2062: (p_period_of_service_id IN NUMBER
2063: ,p_business_group_id IN NUMBER
2063: ,p_business_group_id IN NUMBER
2064: ,p_actual_termination_date IN DATE
2065: ,p_calling_procedure IN VARCHAR2
2066: ,p_message_name OUT NOCOPY VARCHAR2
2067: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2068: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2069: )
2070: IS
2071: l_procedure VARCHAR2(100);
2064: ,p_actual_termination_date IN DATE
2065: ,p_calling_procedure IN VARCHAR2
2066: ,p_message_name OUT NOCOPY VARCHAR2
2067: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2068: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2069: )
2070: IS
2071: l_procedure VARCHAR2(100);
2072: l_element_name pay_element_types_f.element_name%TYPE ;
2080: BEGIN
2081: g_debug := hr_utility.debug_enabled ;
2082: l_procedure := g_package || 'create_retrenchment_entry' ;
2083: p_message_name := 'SUCCESS';
2084: pay_in_utils.null_message (p_token_name, p_token_value);
2085:
2086: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2087:
2088: l_ee_exists := check_ee_exists
2082: l_procedure := g_package || 'create_retrenchment_entry' ;
2083: p_message_name := 'SUCCESS';
2084: pay_in_utils.null_message (p_token_name, p_token_value);
2085:
2086: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2087:
2088: l_ee_exists := check_ee_exists
2089: (p_element_name => g_retrenchment_et--l_element_name
2090: ,p_assignment_id => g_assignment_id
2093: ,p_start_date => l_start_date
2094: ,p_ee_ovn => l_ee_ovn);
2095:
2096: IF l_ee_exists THEN
2097: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2098: RETURN;
2099: END IF;
2100:
2101: l_element_processed := is_element_processed
2102: (p_assignment_id =>g_assignment_id,
2103: p_element_name =>g_retrenchment_et);
2104:
2105: IF l_element_processed THEN
2106: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2107: RETURN;
2108: END IF;
2109: --
2110: -- Element Name : Retrenchment Compensation Information
2119: l_entry_values(2).entry_value := null;
2120: l_entry_values(3).entry_value := g_retrenchment_cn;
2121: l_element_name := g_retrenchment_et;
2122:
2123: pay_in_utils.set_location(g_debug,l_procedure,20);
2124: create_entry
2125: (p_effective_date => p_actual_termination_date
2126: ,p_business_group_id => p_business_group_id
2127: ,p_element_name => l_element_name
2131: ,p_token_name => p_token_name
2132: ,p_token_value => p_token_value
2133: );
2134:
2135: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
2136:
2137: END create_retrenchment_entry;
2138:
2139: --------------------------------------------------------------------------
2149: -- p_business_group_id NUMBER --
2150: -- p_actual_termination_date DATE --
2151: -- p_calling_procedure VARCHAR2 --
2152: -- OUT : p_message_name VARCHAR2 --
2153: -- p_token_name pay_in_utils.char_tab_type--
2154: -- p_token_value pay_in_utils.char_tab_type--
2155: -- Change History : --
2156: --------------------------------------------------------------------------
2157: -- Rev# Date Userid Description --
2150: -- p_actual_termination_date DATE --
2151: -- p_calling_procedure VARCHAR2 --
2152: -- OUT : p_message_name VARCHAR2 --
2153: -- p_token_name pay_in_utils.char_tab_type--
2154: -- p_token_value pay_in_utils.char_tab_type--
2155: -- Change History : --
2156: --------------------------------------------------------------------------
2157: -- Rev# Date Userid Description --
2158: --------------------------------------------------------------------------
2163: ,p_business_group_id IN NUMBER
2164: ,p_actual_termination_date IN DATE
2165: ,p_calling_procedure IN VARCHAR2
2166: ,p_message_name OUT NOCOPY VARCHAR2
2167: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2168: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2169: )
2170: IS
2171: l_procedure VARCHAR2(100);
2164: ,p_actual_termination_date IN DATE
2165: ,p_calling_procedure IN VARCHAR2
2166: ,p_message_name OUT NOCOPY VARCHAR2
2167: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2168: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2169: )
2170: IS
2171: l_procedure VARCHAR2(100);
2172: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2183: BEGIN
2184: g_debug := hr_utility.debug_enabled ;
2185: l_procedure := g_package || 'delete_retrenchment_entry' ;
2186: p_message_name := 'SUCCESS';
2187: pay_in_utils.null_message (p_token_name, p_token_value);
2188:
2189: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2190:
2191: l_element_name := g_retrenchment_et;
2185: l_procedure := g_package || 'delete_retrenchment_entry' ;
2186: p_message_name := 'SUCCESS';
2187: pay_in_utils.null_message (p_token_name, p_token_value);
2188:
2189: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2190:
2191: l_element_name := g_retrenchment_et;
2192:
2193: IF check_ee_exists
2197: ,p_element_entry_id => l_element_entry_id
2198: ,p_start_date => l_start_date
2199: ,p_ee_ovn => l_ee_ovn)
2200: THEN
2201: pay_in_utils.set_location(g_debug,l_procedure,20);
2202: IF g_debug THEN
2203: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2204: END IF;
2205: IF NOT is_element_processed
2199: ,p_ee_ovn => l_ee_ovn)
2200: THEN
2201: pay_in_utils.set_location(g_debug,l_procedure,20);
2202: IF g_debug THEN
2203: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2204: END IF;
2205: IF NOT is_element_processed
2206: (p_assignment_id =>g_assignment_id,
2207: p_element_name =>l_element_name)
2215: ,p_effective_end_date => l_eff_end_date
2216: ,p_delete_warning => l_delete_warning
2217: ) ;
2218: END IF ;
2219: pay_in_utils.set_location(g_debug,l_procedure,30);
2220:
2221: END IF;
2222: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2223:
2218: END IF ;
2219: pay_in_utils.set_location(g_debug,l_procedure,30);
2220:
2221: END IF;
2222: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2223:
2224: END delete_retrenchment_entry;
2225:
2226: --------------------------------------------------------------------------
2237: -- p_business_group_id NUMBER --
2238: -- p_actual_termination_date DATE --
2239: -- p_calling_procedure VARCHAR2 --
2240: -- OUT : p_message_name VARCHAR2 --
2241: -- p_token_name pay_in_utils.char_tab_type--
2242: -- p_token_value pay_in_utils.char_tab_type--
2243: -- Change History : --
2244: --------------------------------------------------------------------------
2245: -- Rev# Date Userid Description --
2238: -- p_actual_termination_date DATE --
2239: -- p_calling_procedure VARCHAR2 --
2240: -- OUT : p_message_name VARCHAR2 --
2241: -- p_token_name pay_in_utils.char_tab_type--
2242: -- p_token_value pay_in_utils.char_tab_type--
2243: -- Change History : --
2244: --------------------------------------------------------------------------
2245: -- Rev# Date Userid Description --
2246: --------------------------------------------------------------------------
2251: ,p_business_group_id IN NUMBER
2252: ,p_actual_termination_date IN DATE
2253: ,p_calling_procedure IN VARCHAR2
2254: ,p_message_name OUT NOCOPY VARCHAR2
2255: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2256: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2257: )
2258: IS
2259: l_procedure VARCHAR2(100);
2252: ,p_actual_termination_date IN DATE
2253: ,p_calling_procedure IN VARCHAR2
2254: ,p_message_name OUT NOCOPY VARCHAR2
2255: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2256: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2257: )
2258: IS
2259: l_procedure VARCHAR2(100);
2260: l_element_name pay_element_types_f.element_name%TYPE ;
2294: BEGIN
2295: g_debug := hr_utility.debug_enabled ;
2296: l_procedure := g_package || 'create_vrs_entry' ;
2297: p_message_name := 'SUCCESS';
2298: pay_in_utils.null_message (p_token_name, p_token_value);
2299:
2300: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2301: -- Fix for Bug 4027040 Start
2302:
2296: l_procedure := g_package || 'create_vrs_entry' ;
2297: p_message_name := 'SUCCESS';
2298: pay_in_utils.null_message (p_token_name, p_token_value);
2299:
2300: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2301: -- Fix for Bug 4027040 Start
2302:
2303: l_prev_earn := 0;
2304: l_prev_tds := 0;
2352: l_prev_med_reimburse,
2353: l_prev_sec_and_he_cess,
2354: l_prev_exemp_80ccd);
2355: IF l_vrs_amount <> 0 THEN
2356: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2357: RETURN;
2358: END IF;
2359:
2360: -- Fix for Bug 4027040 End
2366: ,p_start_date => l_start_date
2367: ,p_ee_ovn => l_ee_ovn);
2368:
2369: IF l_ee_exists THEN
2370: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2371: RETURN;
2372: END IF;
2373:
2374: l_element_processed := is_element_processed
2375: (p_assignment_id =>g_assignment_id,
2376: p_element_name =>g_vrs_et);
2377:
2378: IF l_element_processed THEN
2379: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2380: RETURN;
2381: END IF;
2382: --
2383: -- Element Name : Voluntary Retirement Information
2392: l_entry_values(2).entry_value := null;
2393: l_entry_values(3).entry_value := g_vrs_cn;
2394: l_element_name := g_vrs_et;
2395:
2396: pay_in_utils.set_location(g_debug,l_procedure,20);
2397: create_entry
2398: (p_effective_date => p_actual_termination_date
2399: ,p_business_group_id => p_business_group_id
2400: ,p_element_name => l_element_name
2405: ,p_token_value => p_token_value
2406: );
2407:
2408:
2409: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
2410:
2411: END create_vrs_entry;
2412:
2413: --------------------------------------------------------------------------
2423: -- p_business_group_id NUMBER --
2424: -- p_actual_termination_date DATE --
2425: -- p_calling_procedure VARCHAR2 --
2426: -- OUT : p_message_name VARCHAR2 --
2427: -- p_token_name pay_in_utils.char_tab_type--
2428: -- p_token_value pay_in_utils.char_tab_type--
2429: -- Change History : --
2430: --------------------------------------------------------------------------
2431: -- Rev# Date Userid Description --
2424: -- p_actual_termination_date DATE --
2425: -- p_calling_procedure VARCHAR2 --
2426: -- OUT : p_message_name VARCHAR2 --
2427: -- p_token_name pay_in_utils.char_tab_type--
2428: -- p_token_value pay_in_utils.char_tab_type--
2429: -- Change History : --
2430: --------------------------------------------------------------------------
2431: -- Rev# Date Userid Description --
2432: --------------------------------------------------------------------------
2437: ,p_business_group_id IN NUMBER
2438: ,p_actual_termination_date IN DATE
2439: ,p_calling_procedure IN VARCHAR2
2440: ,p_message_name OUT NOCOPY VARCHAR2
2441: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2442: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2443: )
2444: IS
2445: l_procedure VARCHAR2(100);
2438: ,p_actual_termination_date IN DATE
2439: ,p_calling_procedure IN VARCHAR2
2440: ,p_message_name OUT NOCOPY VARCHAR2
2441: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2442: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2443: )
2444: IS
2445: l_procedure VARCHAR2(100);
2446: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2457: BEGIN
2458: g_debug := hr_utility.debug_enabled ;
2459: l_procedure := g_package || 'delete_vrs_entry' ;
2460: p_message_name := 'SUCCESS';
2461: pay_in_utils.null_message (p_token_name, p_token_value);
2462:
2463: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2464:
2465: l_element_name := g_vrs_et;
2459: l_procedure := g_package || 'delete_vrs_entry' ;
2460: p_message_name := 'SUCCESS';
2461: pay_in_utils.null_message (p_token_name, p_token_value);
2462:
2463: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2464:
2465: l_element_name := g_vrs_et;
2466:
2467: IF check_ee_exists
2471: ,p_element_entry_id => l_element_entry_id
2472: ,p_start_date => l_start_date
2473: ,p_ee_ovn => l_ee_ovn)
2474: THEN
2475: pay_in_utils.set_location(g_debug,l_procedure,20);
2476: IF g_debug THEN
2477: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2478: END IF;
2479:
2473: ,p_ee_ovn => l_ee_ovn)
2474: THEN
2475: pay_in_utils.set_location(g_debug,l_procedure,20);
2476: IF g_debug THEN
2477: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2478: END IF;
2479:
2480: IF NOT is_element_processed
2481: (p_assignment_id =>g_assignment_id,
2490: ,p_effective_end_date => l_eff_end_date
2491: ,p_delete_warning => l_delete_warning
2492: ) ;
2493: END IF ;
2494: pay_in_utils.set_location(g_debug,l_procedure,30);
2495:
2496: END IF;
2497: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2498:
2493: END IF ;
2494: pay_in_utils.set_location(g_debug,l_procedure,30);
2495:
2496: END IF;
2497: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2498:
2499: END delete_vrs_entry;
2500:
2501: --------------------------------------------------------------------------
2512: -- p_business_group_id NUMBER --
2513: -- p_actual_termination_date DATE --
2514: -- p_calling_procedure VARCHAR2 --
2515: -- OUT : p_message_name VARCHAR2 --
2516: -- p_token_name pay_in_utils.char_tab_type--
2517: -- p_token_value pay_in_utils.char_tab_type--
2518: -- Change History : --
2519: --------------------------------------------------------------------------
2520: -- Rev# Date Userid Description --
2513: -- p_actual_termination_date DATE --
2514: -- p_calling_procedure VARCHAR2 --
2515: -- OUT : p_message_name VARCHAR2 --
2516: -- p_token_name pay_in_utils.char_tab_type--
2517: -- p_token_value pay_in_utils.char_tab_type--
2518: -- Change History : --
2519: --------------------------------------------------------------------------
2520: -- Rev# Date Userid Description --
2521: --------------------------------------------------------------------------
2526: ,p_business_group_id IN NUMBER
2527: ,p_actual_termination_date IN DATE
2528: ,p_calling_procedure IN VARCHAR2
2529: ,p_message_name OUT NOCOPY VARCHAR2
2530: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2531: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2532: )
2533: IS
2534: l_procedure VARCHAR2(100);
2527: ,p_actual_termination_date IN DATE
2528: ,p_calling_procedure IN VARCHAR2
2529: ,p_message_name OUT NOCOPY VARCHAR2
2530: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2531: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2532: )
2533: IS
2534: l_procedure VARCHAR2(100);
2535: l_element_name pay_element_types_f.element_name%TYPE ;
2543: BEGIN
2544: g_debug := hr_utility.debug_enabled ;
2545: l_procedure := g_package || 'create_pension_entry' ;
2546: p_message_name := 'SUCCESS';
2547: pay_in_utils.null_message (p_token_name, p_token_value);
2548:
2549: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2550:
2551: l_ee_exists := check_ee_exists
2545: l_procedure := g_package || 'create_pension_entry' ;
2546: p_message_name := 'SUCCESS';
2547: pay_in_utils.null_message (p_token_name, p_token_value);
2548:
2549: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2550:
2551: l_ee_exists := check_ee_exists
2552: (p_element_name => g_pension_et--l_element_name
2553: ,p_assignment_id => g_assignment_id
2556: ,p_start_date => l_start_date
2557: ,p_ee_ovn => l_ee_ovn);
2558:
2559: IF l_ee_exists THEN
2560: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2561: RETURN;
2562: END IF;
2563:
2564: l_element_processed := is_element_processed
2565: (p_assignment_id =>g_assignment_id,
2566: p_element_name =>g_pension_et);
2567:
2568: IF l_element_processed THEN
2569: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2570: RETURN;
2571: END IF;
2572:
2573: --
2583: l_entry_values(2).entry_value := null;
2584: l_entry_values(3).entry_value := g_pension_cn;
2585: l_element_name := g_pension_et;
2586:
2587: pay_in_utils.set_location(g_debug,l_procedure,20);
2588: create_entry
2589: (p_effective_date => p_actual_termination_date
2590: ,p_business_group_id => p_business_group_id
2591: ,p_element_name => l_element_name
2596: ,p_token_value => p_token_value
2597: );
2598:
2599:
2600: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
2601:
2602: END create_pension_entry;
2603:
2604: --------------------------------------------------------------------------
2614: -- p_business_group_id NUMBER --
2615: -- p_actual_termination_date DATE --
2616: -- p_calling_procedure VARCHAR2 --
2617: -- OUT : p_message_name VARCHAR2 --
2618: -- p_token_name pay_in_utils.char_tab_type--
2619: -- p_token_value pay_in_utils.char_tab_type--
2620: -- Change History : --
2621: --------------------------------------------------------------------------
2622: -- Rev# Date Userid Description --
2615: -- p_actual_termination_date DATE --
2616: -- p_calling_procedure VARCHAR2 --
2617: -- OUT : p_message_name VARCHAR2 --
2618: -- p_token_name pay_in_utils.char_tab_type--
2619: -- p_token_value pay_in_utils.char_tab_type--
2620: -- Change History : --
2621: --------------------------------------------------------------------------
2622: -- Rev# Date Userid Description --
2623: --------------------------------------------------------------------------
2628: ,p_business_group_id IN NUMBER
2629: ,p_actual_termination_date IN DATE
2630: ,p_calling_procedure IN VARCHAR2
2631: ,p_message_name OUT NOCOPY VARCHAR2
2632: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2633: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2634: )
2635: IS
2636: l_procedure VARCHAR2(100);
2629: ,p_actual_termination_date IN DATE
2630: ,p_calling_procedure IN VARCHAR2
2631: ,p_message_name OUT NOCOPY VARCHAR2
2632: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2633: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2634: )
2635: IS
2636: l_procedure VARCHAR2(100);
2637: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2648: BEGIN
2649: g_debug := hr_utility.debug_enabled ;
2650: l_procedure := g_package || 'delete_pension_entry' ;
2651: p_message_name := 'SUCCESS';
2652: pay_in_utils.null_message (p_token_name, p_token_value);
2653:
2654: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2655:
2656: l_element_name := g_pension_et;
2650: l_procedure := g_package || 'delete_pension_entry' ;
2651: p_message_name := 'SUCCESS';
2652: pay_in_utils.null_message (p_token_name, p_token_value);
2653:
2654: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2655:
2656: l_element_name := g_pension_et;
2657:
2658: IF check_ee_exists
2662: ,p_element_entry_id => l_element_entry_id
2663: ,p_start_date => l_start_date
2664: ,p_ee_ovn => l_ee_ovn)
2665: THEN
2666: pay_in_utils.set_location(g_debug,l_procedure,20);
2667: IF g_debug THEN
2668: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2669: END IF;
2670: IF NOT is_element_processed
2664: ,p_ee_ovn => l_ee_ovn)
2665: THEN
2666: pay_in_utils.set_location(g_debug,l_procedure,20);
2667: IF g_debug THEN
2668: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2669: END IF;
2670: IF NOT is_element_processed
2671: (p_assignment_id =>g_assignment_id,
2672: p_element_name =>l_element_name)
2680: ,p_effective_end_date => l_eff_end_date
2681: ,p_delete_warning => l_delete_warning
2682: ) ;
2683: END IF ;
2684: pay_in_utils.set_location(g_debug,l_procedure,30);
2685: END IF;
2686: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2687:
2688: END delete_pension_entry;
2682: ) ;
2683: END IF ;
2684: pay_in_utils.set_location(g_debug,l_procedure,30);
2685: END IF;
2686: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2687:
2688: END delete_pension_entry;
2689:
2690: --------------------------------------------------------------------------
2700: -- p_business_group_id NUMBER --
2701: -- p_actual_termination_date DATE --
2702: -- p_calling_procedure VARCHAR2 --
2703: -- OUT : p_message_name VARCHAR2 --
2704: -- p_token_name pay_in_utils.char_tab_type--
2705: -- p_token_value pay_in_utils.char_tab_type--
2706: -- Change History : --
2707: --------------------------------------------------------------------------
2708: -- Rev# Date Userid Description --
2701: -- p_actual_termination_date DATE --
2702: -- p_calling_procedure VARCHAR2 --
2703: -- OUT : p_message_name VARCHAR2 --
2704: -- p_token_name pay_in_utils.char_tab_type--
2705: -- p_token_value pay_in_utils.char_tab_type--
2706: -- Change History : --
2707: --------------------------------------------------------------------------
2708: -- Rev# Date Userid Description --
2709: --------------------------------------------------------------------------
2714: ,p_business_group_id IN NUMBER
2715: ,p_actual_termination_date IN DATE
2716: ,p_calling_procedure IN VARCHAR2
2717: ,p_message_name OUT NOCOPY VARCHAR2
2718: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2719: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2720: )
2721: IS
2722: l_procedure VARCHAR2(100);
2715: ,p_actual_termination_date IN DATE
2716: ,p_calling_procedure IN VARCHAR2
2717: ,p_message_name OUT NOCOPY VARCHAR2
2718: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2719: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2720: )
2721: IS
2722: l_procedure VARCHAR2(100);
2723: l_element_name pay_element_types_f.element_name%TYPE ;
2797: BEGIN
2798: g_debug := hr_utility.debug_enabled ;
2799: l_procedure := g_package || 'create_advances_entry' ;
2800: p_message_name := 'SUCCESS';
2801: pay_in_utils.null_message (p_token_name, p_token_value);
2802:
2803: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2804:
2805:
2799: l_procedure := g_package || 'create_advances_entry' ;
2800: p_message_name := 'SUCCESS';
2801: pay_in_utils.null_message (p_token_name, p_token_value);
2802:
2803: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2804:
2805:
2806:
2807: FOR i in csr_element LOOP
2829: ,p_get_rr_route => 'TRUE'
2830: ,p_get_rb_route => ''
2831: );
2832:
2833: pay_in_utils.set_location(g_debug,l_procedure,20);
2834:
2835: IF(l_entry_values(1).entry_value > 0) THEN
2836: l_entry_values(1).entry_value := 'RECOVER' ;
2837: l_entry_values(2).entry_value := i.default_value;
2836: l_entry_values(1).entry_value := 'RECOVER' ;
2837: l_entry_values(2).entry_value := i.default_value;
2838: l_element_name := substr(i.element_name,1,instr(i.element_name,' Recover',-1))||'Excess Advance';
2839:
2840: pay_in_utils.set_location(g_debug,l_procedure,30);
2841:
2842: l_ee_exists := check_advance_exists
2843: (p_component_name => i.default_value
2844: ,p_assignment_id => g_assignment_id
2853: p_element_name =>l_element_name);
2854:
2855:
2856: IF l_ee_exists OR l_element_processed THEN
2857: pay_in_utils.set_location(g_debug,l_procedure,40);
2858: ELSE
2859: pay_in_utils.set_location(g_debug,l_procedure,50);
2860: create_entry
2861: (p_effective_date => p_actual_termination_date
2855:
2856: IF l_ee_exists OR l_element_processed THEN
2857: pay_in_utils.set_location(g_debug,l_procedure,40);
2858: ELSE
2859: pay_in_utils.set_location(g_debug,l_procedure,50);
2860: create_entry
2861: (p_effective_date => p_actual_termination_date
2862: ,p_business_group_id => p_business_group_id
2863: ,p_element_name => l_element_name
2867: ,p_token_name => p_token_name
2868: ,p_token_value => p_token_value
2869: );
2870: END IF;
2871: pay_in_utils.set_location(g_debug,l_procedure,60);
2872: END IF;
2873:
2874: END LOOP;
2875:
2872: END IF;
2873:
2874: END LOOP;
2875:
2876: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,60);
2877:
2878: END create_advances_entry;
2879:
2880: --------------------------------------------------------------------------
2890: -- p_business_group_id NUMBER --
2891: -- p_actual_termination_date DATE --
2892: -- p_calling_procedure VARCHAR2 --
2893: -- OUT : p_message_name VARCHAR2 --
2894: -- p_token_name pay_in_utils.char_tab_type--
2895: -- p_token_value pay_in_utils.char_tab_type--
2896: -- Change History : --
2897: --------------------------------------------------------------------------
2898: -- Rev# Date Userid Description --
2891: -- p_actual_termination_date DATE --
2892: -- p_calling_procedure VARCHAR2 --
2893: -- OUT : p_message_name VARCHAR2 --
2894: -- p_token_name pay_in_utils.char_tab_type--
2895: -- p_token_value pay_in_utils.char_tab_type--
2896: -- Change History : --
2897: --------------------------------------------------------------------------
2898: -- Rev# Date Userid Description --
2899: --------------------------------------------------------------------------
2904: ,p_business_group_id IN NUMBER
2905: ,p_actual_termination_date IN DATE
2906: ,p_calling_procedure IN VARCHAR2
2907: ,p_message_name OUT NOCOPY VARCHAR2
2908: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2909: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2910: )
2911: IS
2912: l_procedure VARCHAR2(100);
2905: ,p_actual_termination_date IN DATE
2906: ,p_calling_procedure IN VARCHAR2
2907: ,p_message_name OUT NOCOPY VARCHAR2
2908: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2909: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2910: )
2911: IS
2912: l_procedure VARCHAR2(100);
2913: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2932: BEGIN
2933: g_debug := hr_utility.debug_enabled ;
2934: l_procedure := g_package || 'delete_advances_entry' ;
2935: p_message_name := 'SUCCESS';
2936: pay_in_utils.null_message (p_token_name, p_token_value);
2937:
2938: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2939:
2940: FOR i in csr_element loop
2934: l_procedure := g_package || 'delete_advances_entry' ;
2935: p_message_name := 'SUCCESS';
2936: pay_in_utils.null_message (p_token_name, p_token_value);
2937:
2938: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2939:
2940: FOR i in csr_element loop
2941:
2942: IF check_ee_exists
2946: ,p_element_entry_id => l_element_entry_id
2947: ,p_start_date => l_start_date
2948: ,p_ee_ovn => l_ee_ovn)
2949: THEN
2950: pay_in_utils.set_location(g_debug,l_procedure,20);
2951: IF g_debug THEN
2952: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2953: END IF;
2954: IF NOT is_element_processed
2948: ,p_ee_ovn => l_ee_ovn)
2949: THEN
2950: pay_in_utils.set_location(g_debug,l_procedure,20);
2951: IF g_debug THEN
2952: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2953: END IF;
2954: IF NOT is_element_processed
2955: (p_assignment_id =>g_assignment_id,
2956: p_element_name =>i.element_name)
2964: ,p_effective_end_date => l_eff_end_date
2965: ,p_delete_warning => l_delete_warning
2966: ) ;
2967: END IF ;
2968: pay_in_utils.set_location(g_debug,l_procedure,30);
2969:
2970: END IF;
2971: END LOOP;
2972:
2969:
2970: END IF;
2971: END LOOP;
2972:
2973: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2974:
2975: END delete_advances_entry;
2976:
2977: --------------------------------------------------------------------------
2988: -- p_business_group_id NUMBER --
2989: -- p_actual_termination_date DATE --
2990: -- p_calling_procedure VARCHAR2 --
2991: -- OUT : p_message_name VARCHAR2 --
2992: -- p_token_name pay_in_utils.char_tab_type--
2993: -- p_token_value pay_in_utils.char_tab_type--
2994: -- Change History : --
2995: --------------------------------------------------------------------------
2996: -- Rev# Date Userid Description --
2989: -- p_actual_termination_date DATE --
2990: -- p_calling_procedure VARCHAR2 --
2991: -- OUT : p_message_name VARCHAR2 --
2992: -- p_token_name pay_in_utils.char_tab_type--
2993: -- p_token_value pay_in_utils.char_tab_type--
2994: -- Change History : --
2995: --------------------------------------------------------------------------
2996: -- Rev# Date Userid Description --
2997: --------------------------------------------------------------------------
3002: ,p_business_group_id IN NUMBER
3003: ,p_actual_termination_date IN DATE
3004: ,p_calling_procedure IN VARCHAR2
3005: ,p_message_name OUT NOCOPY VARCHAR2
3006: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3007: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3008: )
3009: IS
3010: l_procedure VARCHAR2(100);
3003: ,p_actual_termination_date IN DATE
3004: ,p_calling_procedure IN VARCHAR2
3005: ,p_message_name OUT NOCOPY VARCHAR2
3006: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3007: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3008: )
3009: IS
3010: l_procedure VARCHAR2(100);
3011: l_element_name pay_element_types_f.element_name%TYPE ;
3019: BEGIN
3020: g_debug := hr_utility.debug_enabled ;
3021: l_procedure := g_package || 'create_pf_entry' ;
3022: p_message_name := 'SUCCESS';
3023: pay_in_utils.null_message (p_token_name, p_token_value);
3024:
3025: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3026:
3027: l_ee_exists := check_ee_exists
3021: l_procedure := g_package || 'create_pf_entry' ;
3022: p_message_name := 'SUCCESS';
3023: pay_in_utils.null_message (p_token_name, p_token_value);
3024:
3025: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3026:
3027: l_ee_exists := check_ee_exists
3028: (p_element_name => g_pf_et--l_element_name
3029: ,p_assignment_id => g_assignment_id
3032: ,p_start_date => l_start_date
3033: ,p_ee_ovn => l_ee_ovn);
3034:
3035: IF l_ee_exists THEN
3036: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3037: RETURN;
3038: END IF;
3039:
3040: l_element_processed := is_element_processed
3041: (p_assignment_id =>g_assignment_id,
3042: p_element_name =>g_pf_et);
3043:
3044: IF l_element_processed THEN
3045: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3046: RETURN;
3047: END IF;
3048: --
3049: -- Element Name : PF Settlement Information
3064: l_entry_values(3).entry_value := null;
3065: l_entry_values(4).entry_value := g_pf_cn;
3066: l_element_name := g_pf_et;
3067:
3068: pay_in_utils.set_location(g_debug,l_procedure,20);
3069: create_entry
3070: (p_effective_date => p_actual_termination_date
3071: ,p_business_group_id => p_business_group_id
3072: ,p_element_name => l_element_name
3076: ,p_token_name => p_token_name
3077: ,p_token_value => p_token_value
3078: );
3079:
3080: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
3081:
3082: END create_pf_entry;
3083:
3084: --------------------------------------------------------------------------
3094: -- p_business_group_id NUMBER --
3095: -- p_actual_termination_date DATE --
3096: -- p_calling_procedure VARCHAR2 --
3097: -- OUT : p_message_name VARCHAR2 --
3098: -- p_token_name pay_in_utils.char_tab_type--
3099: -- p_token_value pay_in_utils.char_tab_type--
3100: -- Change History : --
3101: --------------------------------------------------------------------------
3102: -- Rev# Date Userid Description --
3095: -- p_actual_termination_date DATE --
3096: -- p_calling_procedure VARCHAR2 --
3097: -- OUT : p_message_name VARCHAR2 --
3098: -- p_token_name pay_in_utils.char_tab_type--
3099: -- p_token_value pay_in_utils.char_tab_type--
3100: -- Change History : --
3101: --------------------------------------------------------------------------
3102: -- Rev# Date Userid Description --
3103: --------------------------------------------------------------------------
3108: ,p_business_group_id IN NUMBER
3109: ,p_actual_termination_date IN DATE
3110: ,p_calling_procedure IN VARCHAR2
3111: ,p_message_name OUT NOCOPY VARCHAR2
3112: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3113: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3114: )
3115: IS
3116: l_procedure VARCHAR2(100);
3109: ,p_actual_termination_date IN DATE
3110: ,p_calling_procedure IN VARCHAR2
3111: ,p_message_name OUT NOCOPY VARCHAR2
3112: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3113: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3114: )
3115: IS
3116: l_procedure VARCHAR2(100);
3117: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
3128: BEGIN
3129: g_debug := hr_utility.debug_enabled ;
3130: l_procedure := g_package || 'delete_pf_entry' ;
3131: p_message_name := 'SUCCESS';
3132: pay_in_utils.null_message (p_token_name, p_token_value);
3133:
3134: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3135:
3136: l_element_name := g_pf_et;
3130: l_procedure := g_package || 'delete_pf_entry' ;
3131: p_message_name := 'SUCCESS';
3132: pay_in_utils.null_message (p_token_name, p_token_value);
3133:
3134: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3135:
3136: l_element_name := g_pf_et;
3137:
3138: IF check_ee_exists
3142: ,p_element_entry_id => l_element_entry_id
3143: ,p_start_date => l_start_date
3144: ,p_ee_ovn => l_ee_ovn)
3145: THEN
3146: pay_in_utils.set_location(g_debug,l_procedure,20);
3147: IF g_debug THEN
3148: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3149: END IF;
3150: IF NOT is_element_processed
3144: ,p_ee_ovn => l_ee_ovn)
3145: THEN
3146: pay_in_utils.set_location(g_debug,l_procedure,20);
3147: IF g_debug THEN
3148: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3149: END IF;
3150: IF NOT is_element_processed
3151: (p_assignment_id =>g_assignment_id,
3152: p_element_name =>l_element_name)
3160: ,p_effective_end_date => l_eff_end_date
3161: ,p_delete_warning => l_delete_warning
3162: ) ;
3163: END IF ;
3164: pay_in_utils.set_location(g_debug,l_procedure,30);
3165:
3166: END IF;
3167: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
3168:
3163: END IF ;
3164: pay_in_utils.set_location(g_debug,l_procedure,30);
3165:
3166: END IF;
3167: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
3168:
3169: END delete_pf_entry;
3170: --------------------------------------------------------------------------
3171: -- --
3181: -- p_business_group_id NUMBER --
3182: -- p_actual_termination_date DATE --
3183: -- p_calling_procedure VARCHAR2 --
3184: -- OUT : p_message_name VARCHAR2 --
3185: -- p_token_name pay_in_utils.char_tab_type--
3186: -- p_token_value pay_in_utils.char_tab_type--
3187: -- Change History : --
3188: --------------------------------------------------------------------------
3189: -- Rev# Date Userid Description --
3182: -- p_actual_termination_date DATE --
3183: -- p_calling_procedure VARCHAR2 --
3184: -- OUT : p_message_name VARCHAR2 --
3185: -- p_token_name pay_in_utils.char_tab_type--
3186: -- p_token_value pay_in_utils.char_tab_type--
3187: -- Change History : --
3188: --------------------------------------------------------------------------
3189: -- Rev# Date Userid Description --
3190: --------------------------------------------------------------------------
3195: ,p_business_group_id IN NUMBER
3196: ,p_actual_termination_date IN DATE
3197: ,p_calling_procedure IN VARCHAR2
3198: ,p_message_name OUT NOCOPY VARCHAR2
3199: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3200: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3201: )
3202: IS
3203: l_procedure VARCHAR2(100);
3196: ,p_actual_termination_date IN DATE
3197: ,p_calling_procedure IN VARCHAR2
3198: ,p_message_name OUT NOCOPY VARCHAR2
3199: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3200: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3201: )
3202: IS
3203: l_procedure VARCHAR2(100);
3204: l_element_name pay_element_types_f.element_name%TYPE ;
3262: BEGIN
3263: g_debug := hr_utility.debug_enabled ;
3264: l_procedure := g_package || 'create_loan_entry' ;
3265: p_message_name := 'SUCCESS';
3266: pay_in_utils.null_message (p_token_name, p_token_value);
3267:
3268: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3269:
3270: --
3264: l_procedure := g_package || 'create_loan_entry' ;
3265: p_message_name := 'SUCCESS';
3266: pay_in_utils.null_message (p_token_name, p_token_value);
3267:
3268: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3269:
3270: --
3271: -- Fetch the Loan Number and Loan Type for each loan
3272: --
3295: ,p_start_date => l_start_date
3296: ,p_ee_ovn => l_ee_ovn);
3297:
3298: IF NOT l_ee_exists THEN
3299: pay_in_utils.set_location(g_debug,l_procedure,20);
3300:
3301: l_element_processed := is_element_processed
3302: (p_assignment_id =>g_assignment_id,
3303: p_element_name =>l_element_name);
3302: (p_assignment_id =>g_assignment_id,
3303: p_element_name =>l_element_name);
3304:
3305: IF l_element_processed THEN
3306: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3307: RETURN;
3308: END IF;
3309: --
3310: -- Element Name : Loan Recovery
3342: l_entry_values(2).entry_value := l_loan_number;
3343: l_entry_values(3).entry_value := l_loan_type;
3344: l_entry_values(4).entry_value := g_loan_cn;
3345:
3346: pay_in_utils.set_location(g_debug,l_procedure,30);
3347: create_entry
3348: (p_effective_date => p_actual_termination_date
3349: ,p_business_group_id => p_business_group_id
3350: ,p_element_name => l_element_name
3354: ,p_token_name => p_token_name
3355: ,p_token_value => p_token_value
3356: );
3357:
3358: pay_in_utils.set_location(g_debug,l_procedure,40);
3359: END IF;
3360: END LOOP;
3361: CLOSE c_ee_dtls;
3362: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
3358: pay_in_utils.set_location(g_debug,l_procedure,40);
3359: END IF;
3360: END LOOP;
3361: CLOSE c_ee_dtls;
3362: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
3363:
3364: END create_loan_entry;
3365:
3366: --------------------------------------------------------------------------
3376: -- p_business_group_id NUMBER --
3377: -- p_actual_termination_date DATE --
3378: -- p_calling_procedure VARCHAR2 --
3379: -- OUT : p_message_name VARCHAR2 --
3380: -- p_token_name pay_in_utils.char_tab_type--
3381: -- p_token_value pay_in_utils.char_tab_type--
3382: -- Change History : --
3383: --------------------------------------------------------------------------
3384: -- Rev# Date Userid Description --
3377: -- p_actual_termination_date DATE --
3378: -- p_calling_procedure VARCHAR2 --
3379: -- OUT : p_message_name VARCHAR2 --
3380: -- p_token_name pay_in_utils.char_tab_type--
3381: -- p_token_value pay_in_utils.char_tab_type--
3382: -- Change History : --
3383: --------------------------------------------------------------------------
3384: -- Rev# Date Userid Description --
3385: --------------------------------------------------------------------------
3390: ,p_business_group_id IN NUMBER
3391: ,p_actual_termination_date IN DATE
3392: ,p_calling_procedure IN VARCHAR2
3393: ,p_message_name OUT NOCOPY VARCHAR2
3394: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3395: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3396: )
3397: IS
3398: l_procedure VARCHAR2(100);
3391: ,p_actual_termination_date IN DATE
3392: ,p_calling_procedure IN VARCHAR2
3393: ,p_message_name OUT NOCOPY VARCHAR2
3394: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3395: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3396: )
3397: IS
3398: l_procedure VARCHAR2(100);
3399: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
3444: BEGIN
3445: g_debug := hr_utility.debug_enabled ;
3446: l_procedure := g_package || 'delete_loan_entry' ;
3447: p_message_name := 'SUCCESS';
3448: pay_in_utils.null_message (p_token_name, p_token_value);
3449:
3450: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3451:
3452: l_element_name := g_loan_et;
3446: l_procedure := g_package || 'delete_loan_entry' ;
3447: p_message_name := 'SUCCESS';
3448: pay_in_utils.null_message (p_token_name, p_token_value);
3449:
3450: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3451:
3452: l_element_name := g_loan_et;
3453:
3454: --
3477: ,p_element_entry_id => l_element_entry_id
3478: ,p_start_date => l_start_date
3479: ,p_ee_ovn => l_ee_ovn)
3480: THEN
3481: pay_in_utils.set_location(g_debug,l_procedure,20);
3482: IF g_debug THEN
3483: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3484: END IF;
3485: IF NOT is_element_processed
3479: ,p_ee_ovn => l_ee_ovn)
3480: THEN
3481: pay_in_utils.set_location(g_debug,l_procedure,20);
3482: IF g_debug THEN
3483: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3484: END IF;
3485: IF NOT is_element_processed
3486: (p_assignment_id =>g_assignment_id,
3487: p_element_name =>l_element_name)
3495: ,p_effective_end_date => l_eff_end_date
3496: ,p_delete_warning => l_delete_warning
3497: ) ;
3498: END IF ;
3499: pay_in_utils.set_location(g_debug,l_procedure,30);
3500:
3501: END IF;
3502: END LOOP;
3503: CLOSE c_ee_dtls;
3500:
3501: END IF;
3502: END LOOP;
3503: CLOSE c_ee_dtls;
3504: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3505:
3506: END delete_loan_entry;
3507:
3508:
3520: -- p_actual_termination_date DATE --
3521: -- p_assignment_id NUMBER --
3522: -- p_calling_procedure VARCHAR2 --
3523: -- OUT : p_message_name VARCHAR2 --
3524: -- p_token_name pay_in_utils.char_tab_type --
3525: -- p_token_value pay_in_utils.char_tab_type --
3526: -- Change History : --
3527: --------------------------------------------------------------------------
3528: -- Rev# Date Userid Description --
3521: -- p_assignment_id NUMBER --
3522: -- p_calling_procedure VARCHAR2 --
3523: -- OUT : p_message_name VARCHAR2 --
3524: -- p_token_name pay_in_utils.char_tab_type --
3525: -- p_token_value pay_in_utils.char_tab_type --
3526: -- Change History : --
3527: --------------------------------------------------------------------------
3528: -- Rev# Date Userid Description --
3529: --------------------------------------------------------------------------
3535: ,p_actual_termination_date IN DATE
3536: ,p_assignment_id IN NUMBER
3537: ,p_calling_procedure IN VARCHAR2
3538: ,p_message_name OUT NOCOPY VARCHAR2
3539: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3540: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3541: )
3542: IS
3543: CURSOR c_emp_mon_pf_pos_dtls IS
3536: ,p_assignment_id IN NUMBER
3537: ,p_calling_procedure IN VARCHAR2
3538: ,p_message_name OUT NOCOPY VARCHAR2
3539: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3540: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3541: )
3542: IS
3543: CURSOR c_emp_mon_pf_pos_dtls IS
3544: SELECT ppf.per_information15
3571: BEGIN
3572: g_debug := hr_utility.debug_enabled ;
3573: l_procedure := g_package || 'check_PF_leav_reasons' ;
3574: p_message_name := 'SUCCESS';
3575: pay_in_utils.null_message (p_token_name, p_token_value);
3576: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3577:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3572: g_debug := hr_utility.debug_enabled ;
3573: l_procedure := g_package || 'check_PF_leav_reasons' ;
3574: p_message_name := 'SUCCESS';
3575: pay_in_utils.null_message (p_token_name, p_token_value);
3576: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3577:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3575: pay_in_utils.null_message (p_token_name, p_token_value);
3576: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3577:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3581: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3576: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3577:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3581: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3584: END IF;
3577:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3581: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3584: END IF;
3585:
3578: IF g_debug THEN
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3581: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3584: END IF;
3585:
3586: pay_in_utils.set_location(g_debug,l_procedure,20);
3579: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3580: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3581: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3584: END IF;
3585:
3586: pay_in_utils.set_location(g_debug,l_procedure,20);
3587:
3582: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3583: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3584: END IF;
3585:
3586: pay_in_utils.set_location(g_debug,l_procedure,20);
3587:
3588: OPEN c_emp_mon_pf_pos_dtls;
3589: FETCH c_emp_mon_pf_pos_dtls
3590: INTO l_NSSN, l_print_leav_reas, l_efile_leav_reas;
3591: CLOSE c_emp_mon_pf_pos_dtls;
3592:
3593: IF l_NSSN IS NOT NULL AND (l_print_leav_reas IS NULL OR l_efile_leav_reas IS NULL) THEN
3594: p_message_name := 'PER_IN_PF_LEAV_REASON';
3595: pay_in_utils.set_location(g_debug,l_procedure,30);
3596: END IF;
3597: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3598: END check_PF_leav_reasons;
3599:
3593: IF l_NSSN IS NOT NULL AND (l_print_leav_reas IS NULL OR l_efile_leav_reas IS NULL) THEN
3594: p_message_name := 'PER_IN_PF_LEAV_REASON';
3595: pay_in_utils.set_location(g_debug,l_procedure,30);
3596: END IF;
3597: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3598: END check_PF_leav_reasons;
3599:
3600: --------------------------------------------------------------------------
3601: -- --
3611: -- p_business_group_id NUMBER --
3612: -- p_actual_termination_date DATE --
3613: -- p_calling_procedure VARCHAR2 --
3614: -- OUT : p_message_name VARCHAR2 --
3615: -- p_token_name pay_in_utils.char_tab_type--
3616: -- p_token_value pay_in_utils.char_tab_type--
3617: -- Change History : --
3618: --------------------------------------------------------------------------
3619: -- Rev# Date Userid Description --
3612: -- p_actual_termination_date DATE --
3613: -- p_calling_procedure VARCHAR2 --
3614: -- OUT : p_message_name VARCHAR2 --
3615: -- p_token_name pay_in_utils.char_tab_type--
3616: -- p_token_value pay_in_utils.char_tab_type--
3617: -- Change History : --
3618: --------------------------------------------------------------------------
3619: -- Rev# Date Userid Description --
3620: --------------------------------------------------------------------------
3627: ,p_business_group_id IN NUMBER
3628: ,p_actual_termination_date IN DATE
3629: ,p_calling_procedure IN VARCHAR2
3630: ,p_message_name OUT NOCOPY VARCHAR2
3631: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3632: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3633: )
3634: IS
3635: l_procedure VARCHAR2(100);
3628: ,p_actual_termination_date IN DATE
3629: ,p_calling_procedure IN VARCHAR2
3630: ,p_message_name OUT NOCOPY VARCHAR2
3631: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3632: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3633: )
3634: IS
3635: l_procedure VARCHAR2(100);
3636:
3637: BEGIN
3638: g_debug := hr_utility.debug_enabled ;
3639: l_procedure := g_package || 'create_termination_elements' ;
3640: p_message_name := 'SUCCESS';
3641: pay_in_utils.null_message (p_token_name, p_token_value);
3642:
3643: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3644:
3645: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3639: l_procedure := g_package || 'create_termination_elements' ;
3640: p_message_name := 'SUCCESS';
3641: pay_in_utils.null_message (p_token_name, p_token_value);
3642:
3643: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3644:
3645: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3646: ,p_business_group_id => p_business_group_id
3647: ,p_effective_date => p_actual_termination_date
3647: ,p_effective_date => p_actual_termination_date
3648: );
3649:
3650: IF g_debug THEN
3651: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3648: );
3649:
3650: IF g_debug THEN
3651: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3649:
3650: IF g_debug THEN
3651: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3657: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3650: IF g_debug THEN
3651: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3657: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3658: END IF;
3651: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3657: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3658: END IF;
3659:
3652: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3657: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3658: END IF;
3659:
3660: IF g_notified_date IS NULL THEN
3653: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3654: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3655: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3656: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3657: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3658: END IF;
3659:
3660: IF g_notified_date IS NULL THEN
3661: p_message_name := 'HR_7207_API_MANDATORY_ARG';
3675: ,p_token_name => p_token_name
3676: ,p_token_value => p_token_value
3677: );
3678:
3679: pay_in_utils.set_location(g_debug,l_procedure,15);
3680: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3681: p_message_name := 'SUCCESS';
3682: pay_in_utils.null_message (p_token_name, p_token_value);
3683:
3676: ,p_token_value => p_token_value
3677: );
3678:
3679: pay_in_utils.set_location(g_debug,l_procedure,15);
3680: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3681: p_message_name := 'SUCCESS';
3682: pay_in_utils.null_message (p_token_name, p_token_value);
3683:
3684: create_notice_entry
3678:
3679: pay_in_utils.set_location(g_debug,l_procedure,15);
3680: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3681: p_message_name := 'SUCCESS';
3682: pay_in_utils.null_message (p_token_name, p_token_value);
3683:
3684: create_notice_entry
3685: (p_period_of_service_id => p_period_of_service_id
3686: ,p_business_group_id => p_business_group_id
3690: ,p_token_name => p_token_name
3691: ,p_token_value => p_token_value
3692: );
3693:
3694: pay_in_utils.set_location(g_debug,l_procedure,20);
3695: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3696: p_message_name := 'SUCCESS';
3697: pay_in_utils.null_message (p_token_name, p_token_value);
3698:
3691: ,p_token_value => p_token_value
3692: );
3693:
3694: pay_in_utils.set_location(g_debug,l_procedure,20);
3695: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3696: p_message_name := 'SUCCESS';
3697: pay_in_utils.null_message (p_token_name, p_token_value);
3698:
3699: create_retrenchment_entry
3693:
3694: pay_in_utils.set_location(g_debug,l_procedure,20);
3695: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3696: p_message_name := 'SUCCESS';
3697: pay_in_utils.null_message (p_token_name, p_token_value);
3698:
3699: create_retrenchment_entry
3700: (p_period_of_service_id => p_period_of_service_id
3701: ,p_business_group_id => p_business_group_id
3705: ,p_token_name => p_token_name
3706: ,p_token_value => p_token_value
3707: );
3708:
3709: pay_in_utils.set_location(g_debug,l_procedure,30);
3710: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3711: p_message_name := 'SUCCESS';
3712: pay_in_utils.null_message (p_token_name, p_token_value);
3713:
3706: ,p_token_value => p_token_value
3707: );
3708:
3709: pay_in_utils.set_location(g_debug,l_procedure,30);
3710: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3711: p_message_name := 'SUCCESS';
3712: pay_in_utils.null_message (p_token_name, p_token_value);
3713:
3714: create_vrs_entry
3708:
3709: pay_in_utils.set_location(g_debug,l_procedure,30);
3710: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3711: p_message_name := 'SUCCESS';
3712: pay_in_utils.null_message (p_token_name, p_token_value);
3713:
3714: create_vrs_entry
3715: (p_period_of_service_id => p_period_of_service_id
3716: ,p_business_group_id => p_business_group_id
3720: ,p_token_name => p_token_name
3721: ,p_token_value => p_token_value
3722: );
3723:
3724: pay_in_utils.set_location(g_debug,l_procedure,40);
3725: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3726: p_message_name := 'SUCCESS';
3727: pay_in_utils.null_message (p_token_name, p_token_value);
3728:
3721: ,p_token_value => p_token_value
3722: );
3723:
3724: pay_in_utils.set_location(g_debug,l_procedure,40);
3725: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3726: p_message_name := 'SUCCESS';
3727: pay_in_utils.null_message (p_token_name, p_token_value);
3728:
3729: create_pension_entry
3723:
3724: pay_in_utils.set_location(g_debug,l_procedure,40);
3725: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3726: p_message_name := 'SUCCESS';
3727: pay_in_utils.null_message (p_token_name, p_token_value);
3728:
3729: create_pension_entry
3730: (p_period_of_service_id => p_period_of_service_id
3731: ,p_business_group_id => p_business_group_id
3735: ,p_token_name => p_token_name
3736: ,p_token_value => p_token_value
3737: );
3738:
3739: pay_in_utils.set_location(g_debug,l_procedure,50);
3740: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3741: p_message_name := 'SUCCESS';
3742: pay_in_utils.null_message (p_token_name, p_token_value);
3743:
3736: ,p_token_value => p_token_value
3737: );
3738:
3739: pay_in_utils.set_location(g_debug,l_procedure,50);
3740: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3741: p_message_name := 'SUCCESS';
3742: pay_in_utils.null_message (p_token_name, p_token_value);
3743:
3744: create_pf_entry
3738:
3739: pay_in_utils.set_location(g_debug,l_procedure,50);
3740: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3741: p_message_name := 'SUCCESS';
3742: pay_in_utils.null_message (p_token_name, p_token_value);
3743:
3744: create_pf_entry
3745: (p_period_of_service_id => p_period_of_service_id
3746: ,p_business_group_id => p_business_group_id
3750: ,p_token_name => p_token_name
3751: ,p_token_value => p_token_value
3752: );
3753:
3754: pay_in_utils.set_location(g_debug,l_procedure,60);
3755: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3756: p_message_name := 'SUCCESS';
3757: pay_in_utils.null_message (p_token_name, p_token_value);
3758:
3751: ,p_token_value => p_token_value
3752: );
3753:
3754: pay_in_utils.set_location(g_debug,l_procedure,60);
3755: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3756: p_message_name := 'SUCCESS';
3757: pay_in_utils.null_message (p_token_name, p_token_value);
3758:
3759: create_loan_entry
3753:
3754: pay_in_utils.set_location(g_debug,l_procedure,60);
3755: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3756: p_message_name := 'SUCCESS';
3757: pay_in_utils.null_message (p_token_name, p_token_value);
3758:
3759: create_loan_entry
3760: (p_period_of_service_id => p_period_of_service_id
3761: ,p_business_group_id => p_business_group_id
3764: ,p_message_name => p_message_name
3765: ,p_token_name => p_token_name
3766: ,p_token_value => p_token_value
3767: );
3768: pay_in_utils.set_location(g_debug,l_procedure,70);
3769: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3770: p_message_name := 'SUCCESS';
3771: pay_in_utils.null_message (p_token_name, p_token_value);
3772:
3765: ,p_token_name => p_token_name
3766: ,p_token_value => p_token_value
3767: );
3768: pay_in_utils.set_location(g_debug,l_procedure,70);
3769: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3770: p_message_name := 'SUCCESS';
3771: pay_in_utils.null_message (p_token_name, p_token_value);
3772:
3773: create_gratuity_entry
3767: );
3768: pay_in_utils.set_location(g_debug,l_procedure,70);
3769: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3770: p_message_name := 'SUCCESS';
3771: pay_in_utils.null_message (p_token_name, p_token_value);
3772:
3773: create_gratuity_entry
3774: (p_period_of_service_id => p_period_of_service_id
3775: ,p_business_group_id => p_business_group_id
3779: ,p_token_name => p_token_name
3780: ,p_token_value => p_token_value
3781: );
3782:
3783: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3784: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3785:
3786: create_advances_entry
3787: (p_period_of_service_id => p_period_of_service_id
3780: ,p_token_value => p_token_value
3781: );
3782:
3783: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3784: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3785:
3786: create_advances_entry
3787: (p_period_of_service_id => p_period_of_service_id
3788: ,p_business_group_id => p_business_group_id
3792: ,p_token_name => p_token_name
3793: ,p_token_value => p_token_value
3794: );
3795:
3796: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3797: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3798:
3799:
3800:
3793: ,p_token_value => p_token_value
3794: );
3795:
3796: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3797: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3798:
3799:
3800:
3801: END create_termination_elements;
3813: -- p_business_group_id NUMBER --
3814: -- p_actual_termination_date DATE --
3815: -- p_calling_procedure VARCHAR2 --
3816: -- OUT : p_message_name VARCHAR2 --
3817: -- p_token_name pay_in_utils.char_tab_type--
3818: -- p_token_value pay_in_utils.char_tab_type--
3819: -- Change History : --
3820: --------------------------------------------------------------------------
3821: -- Rev# Date Userid Description --
3814: -- p_actual_termination_date DATE --
3815: -- p_calling_procedure VARCHAR2 --
3816: -- OUT : p_message_name VARCHAR2 --
3817: -- p_token_name pay_in_utils.char_tab_type--
3818: -- p_token_value pay_in_utils.char_tab_type--
3819: -- Change History : --
3820: --------------------------------------------------------------------------
3821: -- Rev# Date Userid Description --
3822: --------------------------------------------------------------------------
3827: ,p_business_group_id IN NUMBER
3828: ,p_actual_termination_date IN DATE
3829: ,p_calling_procedure IN VARCHAR2
3830: ,p_message_name OUT NOCOPY VARCHAR2
3831: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3832: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3833: )
3834: IS
3835: l_procedure VARCHAR2(100);
3828: ,p_actual_termination_date IN DATE
3829: ,p_calling_procedure IN VARCHAR2
3830: ,p_message_name OUT NOCOPY VARCHAR2
3831: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3832: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3833: )
3834: IS
3835: l_procedure VARCHAR2(100);
3836:
3837: BEGIN
3838: g_debug := hr_utility.debug_enabled ;
3839: l_procedure := g_package || 'delete_termination_elements' ;
3840: p_message_name := 'SUCCESS';
3841: pay_in_utils.null_message (p_token_name, p_token_value);
3842:
3843: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3844: ,p_business_group_id => p_business_group_id
3845: ,p_effective_date => p_actual_termination_date
3855: ,p_token_name => p_token_name
3856: ,p_token_value => p_token_value
3857: );
3858:
3859: pay_in_utils.set_location(g_debug,l_procedure,20);
3860: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3861: p_message_name := 'SUCCESS';
3862: pay_in_utils.null_message (p_token_name, p_token_value);
3863:
3856: ,p_token_value => p_token_value
3857: );
3858:
3859: pay_in_utils.set_location(g_debug,l_procedure,20);
3860: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3861: p_message_name := 'SUCCESS';
3862: pay_in_utils.null_message (p_token_name, p_token_value);
3863:
3864: delete_retrenchment_entry
3858:
3859: pay_in_utils.set_location(g_debug,l_procedure,20);
3860: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3861: p_message_name := 'SUCCESS';
3862: pay_in_utils.null_message (p_token_name, p_token_value);
3863:
3864: delete_retrenchment_entry
3865: (p_period_of_service_id => p_period_of_service_id
3866: ,p_business_group_id => p_business_group_id
3870: ,p_token_name => p_token_name
3871: ,p_token_value => p_token_value
3872: );
3873:
3874: pay_in_utils.set_location(g_debug,l_procedure,30);
3875: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3876: p_message_name := 'SUCCESS';
3877: pay_in_utils.null_message (p_token_name, p_token_value);
3878:
3871: ,p_token_value => p_token_value
3872: );
3873:
3874: pay_in_utils.set_location(g_debug,l_procedure,30);
3875: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3876: p_message_name := 'SUCCESS';
3877: pay_in_utils.null_message (p_token_name, p_token_value);
3878:
3879: delete_vrs_entry
3873:
3874: pay_in_utils.set_location(g_debug,l_procedure,30);
3875: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3876: p_message_name := 'SUCCESS';
3877: pay_in_utils.null_message (p_token_name, p_token_value);
3878:
3879: delete_vrs_entry
3880: (p_period_of_service_id => p_period_of_service_id
3881: ,p_business_group_id => p_business_group_id
3885: ,p_token_name => p_token_name
3886: ,p_token_value => p_token_value
3887: );
3888:
3889: pay_in_utils.set_location(g_debug,l_procedure,40);
3890: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3891: p_message_name := 'SUCCESS';
3892: pay_in_utils.null_message (p_token_name, p_token_value);
3893:
3886: ,p_token_value => p_token_value
3887: );
3888:
3889: pay_in_utils.set_location(g_debug,l_procedure,40);
3890: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3891: p_message_name := 'SUCCESS';
3892: pay_in_utils.null_message (p_token_name, p_token_value);
3893:
3894: delete_pension_entry
3888:
3889: pay_in_utils.set_location(g_debug,l_procedure,40);
3890: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3891: p_message_name := 'SUCCESS';
3892: pay_in_utils.null_message (p_token_name, p_token_value);
3893:
3894: delete_pension_entry
3895: (p_period_of_service_id => p_period_of_service_id
3896: ,p_business_group_id => p_business_group_id
3900: ,p_token_name => p_token_name
3901: ,p_token_value => p_token_value
3902: );
3903:
3904: pay_in_utils.set_location(g_debug,l_procedure,50);
3905: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3906: p_message_name := 'SUCCESS';
3907: pay_in_utils.null_message (p_token_name, p_token_value);
3908:
3901: ,p_token_value => p_token_value
3902: );
3903:
3904: pay_in_utils.set_location(g_debug,l_procedure,50);
3905: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3906: p_message_name := 'SUCCESS';
3907: pay_in_utils.null_message (p_token_name, p_token_value);
3908:
3909: delete_pf_entry
3903:
3904: pay_in_utils.set_location(g_debug,l_procedure,50);
3905: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3906: p_message_name := 'SUCCESS';
3907: pay_in_utils.null_message (p_token_name, p_token_value);
3908:
3909: delete_pf_entry
3910: (p_period_of_service_id => p_period_of_service_id
3911: ,p_business_group_id => p_business_group_id
3915: ,p_token_name => p_token_name
3916: ,p_token_value => p_token_value
3917: );
3918:
3919: pay_in_utils.set_location(g_debug,l_procedure,60);
3920: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3921: p_message_name := 'SUCCESS';
3922: pay_in_utils.null_message (p_token_name, p_token_value);
3923:
3916: ,p_token_value => p_token_value
3917: );
3918:
3919: pay_in_utils.set_location(g_debug,l_procedure,60);
3920: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3921: p_message_name := 'SUCCESS';
3922: pay_in_utils.null_message (p_token_name, p_token_value);
3923:
3924: delete_loan_entry
3918:
3919: pay_in_utils.set_location(g_debug,l_procedure,60);
3920: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3921: p_message_name := 'SUCCESS';
3922: pay_in_utils.null_message (p_token_name, p_token_value);
3923:
3924: delete_loan_entry
3925: (p_period_of_service_id => p_period_of_service_id
3926: ,p_business_group_id => p_business_group_id
3930: ,p_token_name => p_token_name
3931: ,p_token_value => p_token_value
3932: );
3933:
3934: pay_in_utils.set_location(g_debug,l_procedure,70);
3935: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3936: p_message_name := 'SUCCESS';
3937: pay_in_utils.null_message (p_token_name, p_token_value);
3938:
3931: ,p_token_value => p_token_value
3932: );
3933:
3934: pay_in_utils.set_location(g_debug,l_procedure,70);
3935: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3936: p_message_name := 'SUCCESS';
3937: pay_in_utils.null_message (p_token_name, p_token_value);
3938:
3939: delete_gratuity_entry
3933:
3934: pay_in_utils.set_location(g_debug,l_procedure,70);
3935: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3936: p_message_name := 'SUCCESS';
3937: pay_in_utils.null_message (p_token_name, p_token_value);
3938:
3939: delete_gratuity_entry
3940: (p_period_of_service_id => p_period_of_service_id
3941: ,p_business_group_id => p_business_group_id
3945: ,p_token_name => p_token_name
3946: ,p_token_value => p_token_value
3947: );
3948:
3949: pay_in_utils.set_location(g_debug,l_procedure,80);
3950: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3951: p_message_name := 'SUCCESS';
3952: pay_in_utils.null_message (p_token_name, p_token_value);
3953:
3946: ,p_token_value => p_token_value
3947: );
3948:
3949: pay_in_utils.set_location(g_debug,l_procedure,80);
3950: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3951: p_message_name := 'SUCCESS';
3952: pay_in_utils.null_message (p_token_name, p_token_value);
3953:
3954: delete_advances_entry
3948:
3949: pay_in_utils.set_location(g_debug,l_procedure,80);
3950: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3951: p_message_name := 'SUCCESS';
3952: pay_in_utils.null_message (p_token_name, p_token_value);
3953:
3954: delete_advances_entry
3955: (p_period_of_service_id => p_period_of_service_id
3956: ,p_business_group_id => p_business_group_id
3960: ,p_token_name => p_token_name
3961: ,p_token_value => p_token_value
3962: );
3963:
3964: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,90);
3965: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3966:
3967:
3968: END delete_termination_elements;
3961: ,p_token_value => p_token_value
3962: );
3963:
3964: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,90);
3965: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3966:
3967:
3968: END delete_termination_elements;
3969:
4018: BEGIN
4019: --
4020: g_debug := hr_utility.debug_enabled;
4021: l_procedure := g_package||'get_value_on_termination';
4022: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
4023:
4024: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4025: pay_in_utils.set_location(g_debug, l_procedure,20);
4026: IF g_debug THEN
4021: l_procedure := g_package||'get_value_on_termination';
4022: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
4023:
4024: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4025: pay_in_utils.set_location(g_debug, l_procedure,20);
4026: IF g_debug THEN
4027: pay_in_utils.trace('l_def_bal_id ',l_def_bal_id);
4028: END IF ;
4029:
4023:
4024: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4025: pay_in_utils.set_location(g_debug, l_procedure,20);
4026: IF g_debug THEN
4027: pay_in_utils.trace('l_def_bal_id ',l_def_bal_id);
4028: END IF ;
4029:
4030: OPEN c_max_asact;
4031: FETCH c_max_asact INTO l_asg_action_id;
4029:
4030: OPEN c_max_asact;
4031: FETCH c_max_asact INTO l_asg_action_id;
4032: CLOSE c_max_asact;
4033: pay_in_utils.set_location(g_debug, l_procedure,30);
4034: IF g_debug THEN
4035: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4036: END IF ;
4037:
4031: FETCH c_max_asact INTO l_asg_action_id;
4032: CLOSE c_max_asact;
4033: pay_in_utils.set_location(g_debug, l_procedure,30);
4034: IF g_debug THEN
4035: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4036: END IF ;
4037:
4038: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4039: pay_in_utils.set_location(g_debug, l_procedure,40);
4035: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4036: END IF ;
4037:
4038: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4039: pay_in_utils.set_location(g_debug, l_procedure,40);
4040: IF g_debug THEN
4041: pay_in_utils.trace('l_value ',l_value);
4042: END IF ;
4043:
4037:
4038: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4039: pay_in_utils.set_location(g_debug, l_procedure,40);
4040: IF g_debug THEN
4041: pay_in_utils.trace('l_value ',l_value);
4042: END IF ;
4043:
4044: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,50);
4045:
4040: IF g_debug THEN
4041: pay_in_utils.trace('l_value ',l_value);
4042: END IF ;
4043:
4044: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,50);
4045:
4046: RETURN l_value;
4047: --
4048: EXCEPTION