[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 ;
2295: BEGIN
2296: g_debug := hr_utility.debug_enabled ;
2297: l_procedure := g_package || 'create_vrs_entry' ;
2298: p_message_name := 'SUCCESS';
2299: pay_in_utils.null_message (p_token_name, p_token_value);
2300:
2301: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2302: -- Fix for Bug 4027040 Start
2303:
2297: l_procedure := g_package || 'create_vrs_entry' ;
2298: p_message_name := 'SUCCESS';
2299: pay_in_utils.null_message (p_token_name, p_token_value);
2300:
2301: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2302: -- Fix for Bug 4027040 Start
2303:
2304: l_prev_earn := 0;
2305: l_prev_tds := 0;
2355: l_prev_sec_and_he_cess,
2356: l_prev_exemp_80ccd,
2357: l_prev_cghs_exemp_80d);
2358: IF l_vrs_amount <> 0 THEN
2359: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2360: RETURN;
2361: END IF;
2362:
2363: -- Fix for Bug 4027040 End
2369: ,p_start_date => l_start_date
2370: ,p_ee_ovn => l_ee_ovn);
2371:
2372: IF l_ee_exists THEN
2373: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2374: RETURN;
2375: END IF;
2376:
2377: l_element_processed := is_element_processed
2378: (p_assignment_id =>g_assignment_id,
2379: p_element_name =>g_vrs_et);
2380:
2381: IF l_element_processed THEN
2382: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2383: RETURN;
2384: END IF;
2385: --
2386: -- Element Name : Voluntary Retirement Information
2395: l_entry_values(2).entry_value := null;
2396: l_entry_values(3).entry_value := g_vrs_cn;
2397: l_element_name := g_vrs_et;
2398:
2399: pay_in_utils.set_location(g_debug,l_procedure,20);
2400: create_entry
2401: (p_effective_date => p_actual_termination_date
2402: ,p_business_group_id => p_business_group_id
2403: ,p_element_name => l_element_name
2408: ,p_token_value => p_token_value
2409: );
2410:
2411:
2412: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
2413:
2414: END create_vrs_entry;
2415:
2416: --------------------------------------------------------------------------
2426: -- p_business_group_id NUMBER --
2427: -- p_actual_termination_date DATE --
2428: -- p_calling_procedure VARCHAR2 --
2429: -- OUT : p_message_name VARCHAR2 --
2430: -- p_token_name pay_in_utils.char_tab_type--
2431: -- p_token_value pay_in_utils.char_tab_type--
2432: -- Change History : --
2433: --------------------------------------------------------------------------
2434: -- Rev# Date Userid Description --
2427: -- p_actual_termination_date DATE --
2428: -- p_calling_procedure VARCHAR2 --
2429: -- OUT : p_message_name VARCHAR2 --
2430: -- p_token_name pay_in_utils.char_tab_type--
2431: -- p_token_value pay_in_utils.char_tab_type--
2432: -- Change History : --
2433: --------------------------------------------------------------------------
2434: -- Rev# Date Userid Description --
2435: --------------------------------------------------------------------------
2440: ,p_business_group_id IN NUMBER
2441: ,p_actual_termination_date IN DATE
2442: ,p_calling_procedure IN VARCHAR2
2443: ,p_message_name OUT NOCOPY VARCHAR2
2444: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2445: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2446: )
2447: IS
2448: l_procedure VARCHAR2(100);
2441: ,p_actual_termination_date IN DATE
2442: ,p_calling_procedure IN VARCHAR2
2443: ,p_message_name OUT NOCOPY VARCHAR2
2444: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2445: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2446: )
2447: IS
2448: l_procedure VARCHAR2(100);
2449: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2460: BEGIN
2461: g_debug := hr_utility.debug_enabled ;
2462: l_procedure := g_package || 'delete_vrs_entry' ;
2463: p_message_name := 'SUCCESS';
2464: pay_in_utils.null_message (p_token_name, p_token_value);
2465:
2466: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2467:
2468: l_element_name := g_vrs_et;
2462: l_procedure := g_package || 'delete_vrs_entry' ;
2463: p_message_name := 'SUCCESS';
2464: pay_in_utils.null_message (p_token_name, p_token_value);
2465:
2466: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2467:
2468: l_element_name := g_vrs_et;
2469:
2470: IF check_ee_exists
2474: ,p_element_entry_id => l_element_entry_id
2475: ,p_start_date => l_start_date
2476: ,p_ee_ovn => l_ee_ovn)
2477: THEN
2478: pay_in_utils.set_location(g_debug,l_procedure,20);
2479: IF g_debug THEN
2480: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2481: END IF;
2482:
2476: ,p_ee_ovn => l_ee_ovn)
2477: THEN
2478: pay_in_utils.set_location(g_debug,l_procedure,20);
2479: IF g_debug THEN
2480: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2481: END IF;
2482:
2483: IF NOT is_element_processed
2484: (p_assignment_id =>g_assignment_id,
2493: ,p_effective_end_date => l_eff_end_date
2494: ,p_delete_warning => l_delete_warning
2495: ) ;
2496: END IF ;
2497: pay_in_utils.set_location(g_debug,l_procedure,30);
2498:
2499: END IF;
2500: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2501:
2496: END IF ;
2497: pay_in_utils.set_location(g_debug,l_procedure,30);
2498:
2499: END IF;
2500: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2501:
2502: END delete_vrs_entry;
2503:
2504: --------------------------------------------------------------------------
2515: -- p_business_group_id NUMBER --
2516: -- p_actual_termination_date DATE --
2517: -- p_calling_procedure VARCHAR2 --
2518: -- OUT : p_message_name VARCHAR2 --
2519: -- p_token_name pay_in_utils.char_tab_type--
2520: -- p_token_value pay_in_utils.char_tab_type--
2521: -- Change History : --
2522: --------------------------------------------------------------------------
2523: -- Rev# Date Userid Description --
2516: -- p_actual_termination_date DATE --
2517: -- p_calling_procedure VARCHAR2 --
2518: -- OUT : p_message_name VARCHAR2 --
2519: -- p_token_name pay_in_utils.char_tab_type--
2520: -- p_token_value pay_in_utils.char_tab_type--
2521: -- Change History : --
2522: --------------------------------------------------------------------------
2523: -- Rev# Date Userid Description --
2524: --------------------------------------------------------------------------
2529: ,p_business_group_id IN NUMBER
2530: ,p_actual_termination_date IN DATE
2531: ,p_calling_procedure IN VARCHAR2
2532: ,p_message_name OUT NOCOPY VARCHAR2
2533: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2534: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2535: )
2536: IS
2537: l_procedure VARCHAR2(100);
2530: ,p_actual_termination_date IN DATE
2531: ,p_calling_procedure IN VARCHAR2
2532: ,p_message_name OUT NOCOPY VARCHAR2
2533: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2534: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2535: )
2536: IS
2537: l_procedure VARCHAR2(100);
2538: l_element_name pay_element_types_f.element_name%TYPE ;
2546: BEGIN
2547: g_debug := hr_utility.debug_enabled ;
2548: l_procedure := g_package || 'create_pension_entry' ;
2549: p_message_name := 'SUCCESS';
2550: pay_in_utils.null_message (p_token_name, p_token_value);
2551:
2552: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2553:
2554: l_ee_exists := check_ee_exists
2548: l_procedure := g_package || 'create_pension_entry' ;
2549: p_message_name := 'SUCCESS';
2550: pay_in_utils.null_message (p_token_name, p_token_value);
2551:
2552: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2553:
2554: l_ee_exists := check_ee_exists
2555: (p_element_name => g_pension_et--l_element_name
2556: ,p_assignment_id => g_assignment_id
2559: ,p_start_date => l_start_date
2560: ,p_ee_ovn => l_ee_ovn);
2561:
2562: IF l_ee_exists THEN
2563: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2564: RETURN;
2565: END IF;
2566:
2567: l_element_processed := is_element_processed
2568: (p_assignment_id =>g_assignment_id,
2569: p_element_name =>g_pension_et);
2570:
2571: IF l_element_processed THEN
2572: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
2573: RETURN;
2574: END IF;
2575:
2576: --
2586: l_entry_values(2).entry_value := null;
2587: l_entry_values(3).entry_value := g_pension_cn;
2588: l_element_name := g_pension_et;
2589:
2590: pay_in_utils.set_location(g_debug,l_procedure,20);
2591: create_entry
2592: (p_effective_date => p_actual_termination_date
2593: ,p_business_group_id => p_business_group_id
2594: ,p_element_name => l_element_name
2599: ,p_token_value => p_token_value
2600: );
2601:
2602:
2603: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
2604:
2605: END create_pension_entry;
2606:
2607: --------------------------------------------------------------------------
2617: -- p_business_group_id NUMBER --
2618: -- p_actual_termination_date DATE --
2619: -- p_calling_procedure VARCHAR2 --
2620: -- OUT : p_message_name VARCHAR2 --
2621: -- p_token_name pay_in_utils.char_tab_type--
2622: -- p_token_value pay_in_utils.char_tab_type--
2623: -- Change History : --
2624: --------------------------------------------------------------------------
2625: -- Rev# Date Userid Description --
2618: -- p_actual_termination_date DATE --
2619: -- p_calling_procedure VARCHAR2 --
2620: -- OUT : p_message_name VARCHAR2 --
2621: -- p_token_name pay_in_utils.char_tab_type--
2622: -- p_token_value pay_in_utils.char_tab_type--
2623: -- Change History : --
2624: --------------------------------------------------------------------------
2625: -- Rev# Date Userid Description --
2626: --------------------------------------------------------------------------
2631: ,p_business_group_id IN NUMBER
2632: ,p_actual_termination_date IN DATE
2633: ,p_calling_procedure IN VARCHAR2
2634: ,p_message_name OUT NOCOPY VARCHAR2
2635: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2636: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2637: )
2638: IS
2639: l_procedure VARCHAR2(100);
2632: ,p_actual_termination_date IN DATE
2633: ,p_calling_procedure IN VARCHAR2
2634: ,p_message_name OUT NOCOPY VARCHAR2
2635: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2636: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2637: )
2638: IS
2639: l_procedure VARCHAR2(100);
2640: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2651: BEGIN
2652: g_debug := hr_utility.debug_enabled ;
2653: l_procedure := g_package || 'delete_pension_entry' ;
2654: p_message_name := 'SUCCESS';
2655: pay_in_utils.null_message (p_token_name, p_token_value);
2656:
2657: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2658:
2659: l_element_name := g_pension_et;
2653: l_procedure := g_package || 'delete_pension_entry' ;
2654: p_message_name := 'SUCCESS';
2655: pay_in_utils.null_message (p_token_name, p_token_value);
2656:
2657: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2658:
2659: l_element_name := g_pension_et;
2660:
2661: IF check_ee_exists
2665: ,p_element_entry_id => l_element_entry_id
2666: ,p_start_date => l_start_date
2667: ,p_ee_ovn => l_ee_ovn)
2668: THEN
2669: pay_in_utils.set_location(g_debug,l_procedure,20);
2670: IF g_debug THEN
2671: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2672: END IF;
2673: IF NOT is_element_processed
2667: ,p_ee_ovn => l_ee_ovn)
2668: THEN
2669: pay_in_utils.set_location(g_debug,l_procedure,20);
2670: IF g_debug THEN
2671: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2672: END IF;
2673: IF NOT is_element_processed
2674: (p_assignment_id =>g_assignment_id,
2675: p_element_name =>l_element_name)
2683: ,p_effective_end_date => l_eff_end_date
2684: ,p_delete_warning => l_delete_warning
2685: ) ;
2686: END IF ;
2687: pay_in_utils.set_location(g_debug,l_procedure,30);
2688: END IF;
2689: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2690:
2691: END delete_pension_entry;
2685: ) ;
2686: END IF ;
2687: pay_in_utils.set_location(g_debug,l_procedure,30);
2688: END IF;
2689: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2690:
2691: END delete_pension_entry;
2692:
2693: --------------------------------------------------------------------------
2703: -- p_business_group_id NUMBER --
2704: -- p_actual_termination_date DATE --
2705: -- p_calling_procedure VARCHAR2 --
2706: -- OUT : p_message_name VARCHAR2 --
2707: -- p_token_name pay_in_utils.char_tab_type--
2708: -- p_token_value pay_in_utils.char_tab_type--
2709: -- Change History : --
2710: --------------------------------------------------------------------------
2711: -- Rev# Date Userid Description --
2704: -- p_actual_termination_date DATE --
2705: -- p_calling_procedure VARCHAR2 --
2706: -- OUT : p_message_name VARCHAR2 --
2707: -- p_token_name pay_in_utils.char_tab_type--
2708: -- p_token_value pay_in_utils.char_tab_type--
2709: -- Change History : --
2710: --------------------------------------------------------------------------
2711: -- Rev# Date Userid Description --
2712: --------------------------------------------------------------------------
2717: ,p_business_group_id IN NUMBER
2718: ,p_actual_termination_date IN DATE
2719: ,p_calling_procedure IN VARCHAR2
2720: ,p_message_name OUT NOCOPY VARCHAR2
2721: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2722: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2723: )
2724: IS
2725: l_procedure VARCHAR2(100);
2718: ,p_actual_termination_date IN DATE
2719: ,p_calling_procedure IN VARCHAR2
2720: ,p_message_name OUT NOCOPY VARCHAR2
2721: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2722: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2723: )
2724: IS
2725: l_procedure VARCHAR2(100);
2726: l_element_name pay_element_types_f.element_name%TYPE ;
2800: BEGIN
2801: g_debug := hr_utility.debug_enabled ;
2802: l_procedure := g_package || 'create_advances_entry' ;
2803: p_message_name := 'SUCCESS';
2804: pay_in_utils.null_message (p_token_name, p_token_value);
2805:
2806: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2807:
2808:
2802: l_procedure := g_package || 'create_advances_entry' ;
2803: p_message_name := 'SUCCESS';
2804: pay_in_utils.null_message (p_token_name, p_token_value);
2805:
2806: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2807:
2808:
2809:
2810: FOR i in csr_element LOOP
2832: ,p_get_rr_route => 'TRUE'
2833: ,p_get_rb_route => ''
2834: );
2835:
2836: pay_in_utils.set_location(g_debug,l_procedure,20);
2837:
2838: IF(l_entry_values(1).entry_value > 0) THEN
2839: l_entry_values(1).entry_value := 'RECOVER' ;
2840: l_entry_values(2).entry_value := i.default_value;
2839: l_entry_values(1).entry_value := 'RECOVER' ;
2840: l_entry_values(2).entry_value := i.default_value;
2841: l_element_name := substr(i.element_name,1,instr(i.element_name,' Recover',-1))||'Excess Advance';
2842:
2843: pay_in_utils.set_location(g_debug,l_procedure,30);
2844:
2845: l_ee_exists := check_advance_exists
2846: (p_component_name => i.default_value
2847: ,p_assignment_id => g_assignment_id
2856: p_element_name =>l_element_name);
2857:
2858:
2859: IF l_ee_exists OR l_element_processed THEN
2860: pay_in_utils.set_location(g_debug,l_procedure,40);
2861: ELSE
2862: pay_in_utils.set_location(g_debug,l_procedure,50);
2863: create_entry
2864: (p_effective_date => p_actual_termination_date
2858:
2859: IF l_ee_exists OR l_element_processed THEN
2860: pay_in_utils.set_location(g_debug,l_procedure,40);
2861: ELSE
2862: pay_in_utils.set_location(g_debug,l_procedure,50);
2863: create_entry
2864: (p_effective_date => p_actual_termination_date
2865: ,p_business_group_id => p_business_group_id
2866: ,p_element_name => l_element_name
2870: ,p_token_name => p_token_name
2871: ,p_token_value => p_token_value
2872: );
2873: END IF;
2874: pay_in_utils.set_location(g_debug,l_procedure,60);
2875: END IF;
2876:
2877: END LOOP;
2878:
2875: END IF;
2876:
2877: END LOOP;
2878:
2879: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,60);
2880:
2881: END create_advances_entry;
2882:
2883: --------------------------------------------------------------------------
2893: -- p_business_group_id NUMBER --
2894: -- p_actual_termination_date DATE --
2895: -- p_calling_procedure VARCHAR2 --
2896: -- OUT : p_message_name VARCHAR2 --
2897: -- p_token_name pay_in_utils.char_tab_type--
2898: -- p_token_value pay_in_utils.char_tab_type--
2899: -- Change History : --
2900: --------------------------------------------------------------------------
2901: -- Rev# Date Userid Description --
2894: -- p_actual_termination_date DATE --
2895: -- p_calling_procedure VARCHAR2 --
2896: -- OUT : p_message_name VARCHAR2 --
2897: -- p_token_name pay_in_utils.char_tab_type--
2898: -- p_token_value pay_in_utils.char_tab_type--
2899: -- Change History : --
2900: --------------------------------------------------------------------------
2901: -- Rev# Date Userid Description --
2902: --------------------------------------------------------------------------
2907: ,p_business_group_id IN NUMBER
2908: ,p_actual_termination_date IN DATE
2909: ,p_calling_procedure IN VARCHAR2
2910: ,p_message_name OUT NOCOPY VARCHAR2
2911: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2912: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2913: )
2914: IS
2915: l_procedure VARCHAR2(100);
2908: ,p_actual_termination_date IN DATE
2909: ,p_calling_procedure IN VARCHAR2
2910: ,p_message_name OUT NOCOPY VARCHAR2
2911: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
2912: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
2913: )
2914: IS
2915: l_procedure VARCHAR2(100);
2916: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
2935: BEGIN
2936: g_debug := hr_utility.debug_enabled ;
2937: l_procedure := g_package || 'delete_advances_entry' ;
2938: p_message_name := 'SUCCESS';
2939: pay_in_utils.null_message (p_token_name, p_token_value);
2940:
2941: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2942:
2943: FOR i in csr_element loop
2937: l_procedure := g_package || 'delete_advances_entry' ;
2938: p_message_name := 'SUCCESS';
2939: pay_in_utils.null_message (p_token_name, p_token_value);
2940:
2941: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
2942:
2943: FOR i in csr_element loop
2944:
2945: IF check_ee_exists
2949: ,p_element_entry_id => l_element_entry_id
2950: ,p_start_date => l_start_date
2951: ,p_ee_ovn => l_ee_ovn)
2952: THEN
2953: pay_in_utils.set_location(g_debug,l_procedure,20);
2954: IF g_debug THEN
2955: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2956: END IF;
2957: IF NOT is_element_processed
2951: ,p_ee_ovn => l_ee_ovn)
2952: THEN
2953: pay_in_utils.set_location(g_debug,l_procedure,20);
2954: IF g_debug THEN
2955: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
2956: END IF;
2957: IF NOT is_element_processed
2958: (p_assignment_id =>g_assignment_id,
2959: p_element_name =>i.element_name)
2967: ,p_effective_end_date => l_eff_end_date
2968: ,p_delete_warning => l_delete_warning
2969: ) ;
2970: END IF ;
2971: pay_in_utils.set_location(g_debug,l_procedure,30);
2972:
2973: END IF;
2974: END LOOP;
2975:
2972:
2973: END IF;
2974: END LOOP;
2975:
2976: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
2977:
2978: END delete_advances_entry;
2979:
2980: --------------------------------------------------------------------------
2991: -- p_business_group_id NUMBER --
2992: -- p_actual_termination_date DATE --
2993: -- p_calling_procedure VARCHAR2 --
2994: -- OUT : p_message_name VARCHAR2 --
2995: -- p_token_name pay_in_utils.char_tab_type--
2996: -- p_token_value pay_in_utils.char_tab_type--
2997: -- Change History : --
2998: --------------------------------------------------------------------------
2999: -- Rev# Date Userid Description --
2992: -- p_actual_termination_date DATE --
2993: -- p_calling_procedure VARCHAR2 --
2994: -- OUT : p_message_name VARCHAR2 --
2995: -- p_token_name pay_in_utils.char_tab_type--
2996: -- p_token_value pay_in_utils.char_tab_type--
2997: -- Change History : --
2998: --------------------------------------------------------------------------
2999: -- Rev# Date Userid Description --
3000: --------------------------------------------------------------------------
3005: ,p_business_group_id IN NUMBER
3006: ,p_actual_termination_date IN DATE
3007: ,p_calling_procedure IN VARCHAR2
3008: ,p_message_name OUT NOCOPY VARCHAR2
3009: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3010: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3011: )
3012: IS
3013: l_procedure VARCHAR2(100);
3006: ,p_actual_termination_date IN DATE
3007: ,p_calling_procedure IN VARCHAR2
3008: ,p_message_name OUT NOCOPY VARCHAR2
3009: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3010: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3011: )
3012: IS
3013: l_procedure VARCHAR2(100);
3014: l_element_name pay_element_types_f.element_name%TYPE ;
3022: BEGIN
3023: g_debug := hr_utility.debug_enabled ;
3024: l_procedure := g_package || 'create_pf_entry' ;
3025: p_message_name := 'SUCCESS';
3026: pay_in_utils.null_message (p_token_name, p_token_value);
3027:
3028: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3029:
3030: l_ee_exists := check_ee_exists
3024: l_procedure := g_package || 'create_pf_entry' ;
3025: p_message_name := 'SUCCESS';
3026: pay_in_utils.null_message (p_token_name, p_token_value);
3027:
3028: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3029:
3030: l_ee_exists := check_ee_exists
3031: (p_element_name => g_pf_et--l_element_name
3032: ,p_assignment_id => g_assignment_id
3035: ,p_start_date => l_start_date
3036: ,p_ee_ovn => l_ee_ovn);
3037:
3038: IF l_ee_exists THEN
3039: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3040: RETURN;
3041: END IF;
3042:
3043: l_element_processed := is_element_processed
3044: (p_assignment_id =>g_assignment_id,
3045: p_element_name =>g_pf_et);
3046:
3047: IF l_element_processed THEN
3048: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3049: RETURN;
3050: END IF;
3051: --
3052: -- Element Name : PF Settlement Information
3067: l_entry_values(3).entry_value := null;
3068: l_entry_values(4).entry_value := g_pf_cn;
3069: l_element_name := g_pf_et;
3070:
3071: pay_in_utils.set_location(g_debug,l_procedure,20);
3072: create_entry
3073: (p_effective_date => p_actual_termination_date
3074: ,p_business_group_id => p_business_group_id
3075: ,p_element_name => l_element_name
3079: ,p_token_name => p_token_name
3080: ,p_token_value => p_token_value
3081: );
3082:
3083: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,30);
3084:
3085: END create_pf_entry;
3086:
3087: --------------------------------------------------------------------------
3097: -- p_business_group_id NUMBER --
3098: -- p_actual_termination_date DATE --
3099: -- p_calling_procedure VARCHAR2 --
3100: -- OUT : p_message_name VARCHAR2 --
3101: -- p_token_name pay_in_utils.char_tab_type--
3102: -- p_token_value pay_in_utils.char_tab_type--
3103: -- Change History : --
3104: --------------------------------------------------------------------------
3105: -- Rev# Date Userid Description --
3098: -- p_actual_termination_date DATE --
3099: -- p_calling_procedure VARCHAR2 --
3100: -- OUT : p_message_name VARCHAR2 --
3101: -- p_token_name pay_in_utils.char_tab_type--
3102: -- p_token_value pay_in_utils.char_tab_type--
3103: -- Change History : --
3104: --------------------------------------------------------------------------
3105: -- Rev# Date Userid Description --
3106: --------------------------------------------------------------------------
3111: ,p_business_group_id IN NUMBER
3112: ,p_actual_termination_date IN DATE
3113: ,p_calling_procedure IN VARCHAR2
3114: ,p_message_name OUT NOCOPY VARCHAR2
3115: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3116: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3117: )
3118: IS
3119: l_procedure VARCHAR2(100);
3112: ,p_actual_termination_date IN DATE
3113: ,p_calling_procedure IN VARCHAR2
3114: ,p_message_name OUT NOCOPY VARCHAR2
3115: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3116: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3117: )
3118: IS
3119: l_procedure VARCHAR2(100);
3120: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
3131: BEGIN
3132: g_debug := hr_utility.debug_enabled ;
3133: l_procedure := g_package || 'delete_pf_entry' ;
3134: p_message_name := 'SUCCESS';
3135: pay_in_utils.null_message (p_token_name, p_token_value);
3136:
3137: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3138:
3139: l_element_name := g_pf_et;
3133: l_procedure := g_package || 'delete_pf_entry' ;
3134: p_message_name := 'SUCCESS';
3135: pay_in_utils.null_message (p_token_name, p_token_value);
3136:
3137: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3138:
3139: l_element_name := g_pf_et;
3140:
3141: IF check_ee_exists
3145: ,p_element_entry_id => l_element_entry_id
3146: ,p_start_date => l_start_date
3147: ,p_ee_ovn => l_ee_ovn)
3148: THEN
3149: pay_in_utils.set_location(g_debug,l_procedure,20);
3150: IF g_debug THEN
3151: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3152: END IF;
3153: IF NOT is_element_processed
3147: ,p_ee_ovn => l_ee_ovn)
3148: THEN
3149: pay_in_utils.set_location(g_debug,l_procedure,20);
3150: IF g_debug THEN
3151: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3152: END IF;
3153: IF NOT is_element_processed
3154: (p_assignment_id =>g_assignment_id,
3155: p_element_name =>l_element_name)
3163: ,p_effective_end_date => l_eff_end_date
3164: ,p_delete_warning => l_delete_warning
3165: ) ;
3166: END IF ;
3167: pay_in_utils.set_location(g_debug,l_procedure,30);
3168:
3169: END IF;
3170: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
3171:
3166: END IF ;
3167: pay_in_utils.set_location(g_debug,l_procedure,30);
3168:
3169: END IF;
3170: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
3171:
3172: END delete_pf_entry;
3173: --------------------------------------------------------------------------
3174: -- --
3184: -- p_business_group_id NUMBER --
3185: -- p_actual_termination_date DATE --
3186: -- p_calling_procedure VARCHAR2 --
3187: -- OUT : p_message_name VARCHAR2 --
3188: -- p_token_name pay_in_utils.char_tab_type--
3189: -- p_token_value pay_in_utils.char_tab_type--
3190: -- Change History : --
3191: --------------------------------------------------------------------------
3192: -- Rev# Date Userid Description --
3185: -- p_actual_termination_date DATE --
3186: -- p_calling_procedure VARCHAR2 --
3187: -- OUT : p_message_name VARCHAR2 --
3188: -- p_token_name pay_in_utils.char_tab_type--
3189: -- p_token_value pay_in_utils.char_tab_type--
3190: -- Change History : --
3191: --------------------------------------------------------------------------
3192: -- Rev# Date Userid Description --
3193: --------------------------------------------------------------------------
3198: ,p_business_group_id IN NUMBER
3199: ,p_actual_termination_date IN DATE
3200: ,p_calling_procedure IN VARCHAR2
3201: ,p_message_name OUT NOCOPY VARCHAR2
3202: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3203: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3204: )
3205: IS
3206: l_procedure VARCHAR2(100);
3199: ,p_actual_termination_date IN DATE
3200: ,p_calling_procedure IN VARCHAR2
3201: ,p_message_name OUT NOCOPY VARCHAR2
3202: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3203: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3204: )
3205: IS
3206: l_procedure VARCHAR2(100);
3207: l_element_name pay_element_types_f.element_name%TYPE ;
3265: BEGIN
3266: g_debug := hr_utility.debug_enabled ;
3267: l_procedure := g_package || 'create_loan_entry' ;
3268: p_message_name := 'SUCCESS';
3269: pay_in_utils.null_message (p_token_name, p_token_value);
3270:
3271: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3272:
3273: --
3267: l_procedure := g_package || 'create_loan_entry' ;
3268: p_message_name := 'SUCCESS';
3269: pay_in_utils.null_message (p_token_name, p_token_value);
3270:
3271: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3272:
3273: --
3274: -- Fetch the Loan Number and Loan Type for each loan
3275: --
3298: ,p_start_date => l_start_date
3299: ,p_ee_ovn => l_ee_ovn);
3300:
3301: IF NOT l_ee_exists THEN
3302: pay_in_utils.set_location(g_debug,l_procedure,20);
3303:
3304: l_element_processed := is_element_processed
3305: (p_assignment_id =>g_assignment_id,
3306: p_element_name =>l_element_name);
3305: (p_assignment_id =>g_assignment_id,
3306: p_element_name =>l_element_name);
3307:
3308: IF l_element_processed THEN
3309: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,15);
3310: RETURN;
3311: END IF;
3312: --
3313: -- Element Name : Loan Recovery
3345: l_entry_values(2).entry_value := l_loan_number;
3346: l_entry_values(3).entry_value := l_loan_type;
3347: l_entry_values(4).entry_value := g_loan_cn;
3348:
3349: pay_in_utils.set_location(g_debug,l_procedure,30);
3350: create_entry
3351: (p_effective_date => p_actual_termination_date
3352: ,p_business_group_id => p_business_group_id
3353: ,p_element_name => l_element_name
3357: ,p_token_name => p_token_name
3358: ,p_token_value => p_token_value
3359: );
3360:
3361: pay_in_utils.set_location(g_debug,l_procedure,40);
3362: END IF;
3363: END LOOP;
3364: CLOSE c_ee_dtls;
3365: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
3361: pay_in_utils.set_location(g_debug,l_procedure,40);
3362: END IF;
3363: END LOOP;
3364: CLOSE c_ee_dtls;
3365: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,50);
3366:
3367: END create_loan_entry;
3368:
3369: --------------------------------------------------------------------------
3379: -- p_business_group_id NUMBER --
3380: -- p_actual_termination_date DATE --
3381: -- p_calling_procedure VARCHAR2 --
3382: -- OUT : p_message_name VARCHAR2 --
3383: -- p_token_name pay_in_utils.char_tab_type--
3384: -- p_token_value pay_in_utils.char_tab_type--
3385: -- Change History : --
3386: --------------------------------------------------------------------------
3387: -- Rev# Date Userid Description --
3380: -- p_actual_termination_date DATE --
3381: -- p_calling_procedure VARCHAR2 --
3382: -- OUT : p_message_name VARCHAR2 --
3383: -- p_token_name pay_in_utils.char_tab_type--
3384: -- p_token_value pay_in_utils.char_tab_type--
3385: -- Change History : --
3386: --------------------------------------------------------------------------
3387: -- Rev# Date Userid Description --
3388: --------------------------------------------------------------------------
3393: ,p_business_group_id IN NUMBER
3394: ,p_actual_termination_date IN DATE
3395: ,p_calling_procedure IN VARCHAR2
3396: ,p_message_name OUT NOCOPY VARCHAR2
3397: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3398: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3399: )
3400: IS
3401: l_procedure VARCHAR2(100);
3394: ,p_actual_termination_date IN DATE
3395: ,p_calling_procedure IN VARCHAR2
3396: ,p_message_name OUT NOCOPY VARCHAR2
3397: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3398: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3399: )
3400: IS
3401: l_procedure VARCHAR2(100);
3402: l_element_entry_id pay_element_entries_f.element_entry_id%TYPE;
3447: BEGIN
3448: g_debug := hr_utility.debug_enabled ;
3449: l_procedure := g_package || 'delete_loan_entry' ;
3450: p_message_name := 'SUCCESS';
3451: pay_in_utils.null_message (p_token_name, p_token_value);
3452:
3453: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3454:
3455: l_element_name := g_loan_et;
3449: l_procedure := g_package || 'delete_loan_entry' ;
3450: p_message_name := 'SUCCESS';
3451: pay_in_utils.null_message (p_token_name, p_token_value);
3452:
3453: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3454:
3455: l_element_name := g_loan_et;
3456:
3457: --
3480: ,p_element_entry_id => l_element_entry_id
3481: ,p_start_date => l_start_date
3482: ,p_ee_ovn => l_ee_ovn)
3483: THEN
3484: pay_in_utils.set_location(g_debug,l_procedure,20);
3485: IF g_debug THEN
3486: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3487: END IF;
3488: IF NOT is_element_processed
3482: ,p_ee_ovn => l_ee_ovn)
3483: THEN
3484: pay_in_utils.set_location(g_debug,l_procedure,20);
3485: IF g_debug THEN
3486: pay_in_utils.trace('Element Entry ID ',to_char(l_element_entry_id));
3487: END IF;
3488: IF NOT is_element_processed
3489: (p_assignment_id =>g_assignment_id,
3490: p_element_name =>l_element_name)
3498: ,p_effective_end_date => l_eff_end_date
3499: ,p_delete_warning => l_delete_warning
3500: ) ;
3501: END IF ;
3502: pay_in_utils.set_location(g_debug,l_procedure,30);
3503:
3504: END IF;
3505: END LOOP;
3506: CLOSE c_ee_dtls;
3503:
3504: END IF;
3505: END LOOP;
3506: CLOSE c_ee_dtls;
3507: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3508:
3509: END delete_loan_entry;
3510:
3511:
3523: -- p_actual_termination_date DATE --
3524: -- p_assignment_id NUMBER --
3525: -- p_calling_procedure VARCHAR2 --
3526: -- OUT : p_message_name VARCHAR2 --
3527: -- p_token_name pay_in_utils.char_tab_type --
3528: -- p_token_value pay_in_utils.char_tab_type --
3529: -- Change History : --
3530: --------------------------------------------------------------------------
3531: -- Rev# Date Userid Description --
3524: -- p_assignment_id NUMBER --
3525: -- p_calling_procedure VARCHAR2 --
3526: -- OUT : p_message_name VARCHAR2 --
3527: -- p_token_name pay_in_utils.char_tab_type --
3528: -- p_token_value pay_in_utils.char_tab_type --
3529: -- Change History : --
3530: --------------------------------------------------------------------------
3531: -- Rev# Date Userid Description --
3532: --------------------------------------------------------------------------
3538: ,p_actual_termination_date IN DATE
3539: ,p_assignment_id IN NUMBER
3540: ,p_calling_procedure IN VARCHAR2
3541: ,p_message_name OUT NOCOPY VARCHAR2
3542: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3543: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3544: )
3545: IS
3546: CURSOR c_emp_mon_pf_pos_dtls IS
3539: ,p_assignment_id IN NUMBER
3540: ,p_calling_procedure IN VARCHAR2
3541: ,p_message_name OUT NOCOPY VARCHAR2
3542: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3543: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3544: )
3545: IS
3546: CURSOR c_emp_mon_pf_pos_dtls IS
3547: SELECT ppf.per_information15
3574: BEGIN
3575: g_debug := hr_utility.debug_enabled ;
3576: l_procedure := g_package || 'check_PF_leav_reasons' ;
3577: p_message_name := 'SUCCESS';
3578: pay_in_utils.null_message (p_token_name, p_token_value);
3579: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3580:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3575: g_debug := hr_utility.debug_enabled ;
3576: l_procedure := g_package || 'check_PF_leav_reasons' ;
3577: p_message_name := 'SUCCESS';
3578: pay_in_utils.null_message (p_token_name, p_token_value);
3579: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3580:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3578: pay_in_utils.null_message (p_token_name, p_token_value);
3579: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3580:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3584: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3579: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3580:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3584: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3587: END IF;
3580:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3584: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3587: END IF;
3588:
3581: IF g_debug THEN
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3584: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3587: END IF;
3588:
3589: pay_in_utils.set_location(g_debug,l_procedure,20);
3582: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3583: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3584: pay_in_utils.trace('Effective Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3587: END IF;
3588:
3589: pay_in_utils.set_location(g_debug,l_procedure,20);
3590:
3585: pay_in_utils.trace('Assignment ID ',to_char(p_assignment_id));
3586: pay_in_utils.trace('Calling Procedure ',p_calling_procedure);
3587: END IF;
3588:
3589: pay_in_utils.set_location(g_debug,l_procedure,20);
3590:
3591: OPEN c_emp_mon_pf_pos_dtls;
3592: FETCH c_emp_mon_pf_pos_dtls
3593: INTO l_NSSN, l_print_leav_reas, l_efile_leav_reas;
3594: CLOSE c_emp_mon_pf_pos_dtls;
3595:
3596: IF l_NSSN IS NOT NULL AND (l_print_leav_reas IS NULL OR l_efile_leav_reas IS NULL) THEN
3597: p_message_name := 'PER_IN_PF_LEAV_REASON';
3598: pay_in_utils.set_location(g_debug,l_procedure,30);
3599: END IF;
3600: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3601: END check_PF_leav_reasons;
3602:
3596: IF l_NSSN IS NOT NULL AND (l_print_leav_reas IS NULL OR l_efile_leav_reas IS NULL) THEN
3597: p_message_name := 'PER_IN_PF_LEAV_REASON';
3598: pay_in_utils.set_location(g_debug,l_procedure,30);
3599: END IF;
3600: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,40);
3601: END check_PF_leav_reasons;
3602:
3603: --------------------------------------------------------------------------
3604: -- --
3614: -- p_business_group_id NUMBER --
3615: -- p_actual_termination_date DATE --
3616: -- p_calling_procedure VARCHAR2 --
3617: -- OUT : p_message_name VARCHAR2 --
3618: -- p_token_name pay_in_utils.char_tab_type--
3619: -- p_token_value pay_in_utils.char_tab_type--
3620: -- Change History : --
3621: --------------------------------------------------------------------------
3622: -- Rev# Date Userid Description --
3615: -- p_actual_termination_date DATE --
3616: -- p_calling_procedure VARCHAR2 --
3617: -- OUT : p_message_name VARCHAR2 --
3618: -- p_token_name pay_in_utils.char_tab_type--
3619: -- p_token_value pay_in_utils.char_tab_type--
3620: -- Change History : --
3621: --------------------------------------------------------------------------
3622: -- Rev# Date Userid Description --
3623: --------------------------------------------------------------------------
3630: ,p_business_group_id IN NUMBER
3631: ,p_actual_termination_date IN DATE
3632: ,p_calling_procedure IN VARCHAR2
3633: ,p_message_name OUT NOCOPY VARCHAR2
3634: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3635: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3636: )
3637: IS
3638: l_procedure VARCHAR2(100);
3631: ,p_actual_termination_date IN DATE
3632: ,p_calling_procedure IN VARCHAR2
3633: ,p_message_name OUT NOCOPY VARCHAR2
3634: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3635: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3636: )
3637: IS
3638: l_procedure VARCHAR2(100);
3639:
3640: BEGIN
3641: g_debug := hr_utility.debug_enabled ;
3642: l_procedure := g_package || 'create_termination_elements' ;
3643: p_message_name := 'SUCCESS';
3644: pay_in_utils.null_message (p_token_name, p_token_value);
3645:
3646: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3647:
3648: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3642: l_procedure := g_package || 'create_termination_elements' ;
3643: p_message_name := 'SUCCESS';
3644: pay_in_utils.null_message (p_token_name, p_token_value);
3645:
3646: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
3647:
3648: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3649: ,p_business_group_id => p_business_group_id
3650: ,p_effective_date => p_actual_termination_date
3650: ,p_effective_date => p_actual_termination_date
3651: );
3652:
3653: IF g_debug THEN
3654: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3651: );
3652:
3653: IF g_debug THEN
3654: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3652:
3653: IF g_debug THEN
3654: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3660: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3653: IF g_debug THEN
3654: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3660: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3661: END IF;
3654: pay_in_utils.trace('Period of service id ',to_char(p_period_of_service_id));
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3660: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3661: END IF;
3662:
3655: pay_in_utils.trace('Business Group ID ',to_char(p_business_group_id));
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3660: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3661: END IF;
3662:
3663: IF g_notified_date IS NULL THEN
3656: pay_in_utils.trace('Act Term Date ',to_char(p_actual_termination_date, 'DD-MM-YYYY'));
3657: pay_in_utils.trace('Assignment ID ',to_char(g_assignment_id));
3658: pay_in_utils.trace('Payroll ID ',to_char(g_payroll_id));
3659: pay_in_utils.trace('Hire Date ',to_char(g_hire_date,'DD-MM-YYYY'));
3660: pay_in_utils.trace('Notified Term Date ',to_char(g_notified_date,'DD-MM-YYYY'));
3661: END IF;
3662:
3663: IF g_notified_date IS NULL THEN
3664: p_message_name := 'HR_7207_API_MANDATORY_ARG';
3678: ,p_token_name => p_token_name
3679: ,p_token_value => p_token_value
3680: );
3681:
3682: pay_in_utils.set_location(g_debug,l_procedure,15);
3683: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3684: p_message_name := 'SUCCESS';
3685: pay_in_utils.null_message (p_token_name, p_token_value);
3686:
3679: ,p_token_value => p_token_value
3680: );
3681:
3682: pay_in_utils.set_location(g_debug,l_procedure,15);
3683: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3684: p_message_name := 'SUCCESS';
3685: pay_in_utils.null_message (p_token_name, p_token_value);
3686:
3687: create_notice_entry
3681:
3682: pay_in_utils.set_location(g_debug,l_procedure,15);
3683: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3684: p_message_name := 'SUCCESS';
3685: pay_in_utils.null_message (p_token_name, p_token_value);
3686:
3687: create_notice_entry
3688: (p_period_of_service_id => p_period_of_service_id
3689: ,p_business_group_id => p_business_group_id
3693: ,p_token_name => p_token_name
3694: ,p_token_value => p_token_value
3695: );
3696:
3697: pay_in_utils.set_location(g_debug,l_procedure,20);
3698: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3699: p_message_name := 'SUCCESS';
3700: pay_in_utils.null_message (p_token_name, p_token_value);
3701:
3694: ,p_token_value => p_token_value
3695: );
3696:
3697: pay_in_utils.set_location(g_debug,l_procedure,20);
3698: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3699: p_message_name := 'SUCCESS';
3700: pay_in_utils.null_message (p_token_name, p_token_value);
3701:
3702: create_retrenchment_entry
3696:
3697: pay_in_utils.set_location(g_debug,l_procedure,20);
3698: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3699: p_message_name := 'SUCCESS';
3700: pay_in_utils.null_message (p_token_name, p_token_value);
3701:
3702: create_retrenchment_entry
3703: (p_period_of_service_id => p_period_of_service_id
3704: ,p_business_group_id => p_business_group_id
3708: ,p_token_name => p_token_name
3709: ,p_token_value => p_token_value
3710: );
3711:
3712: pay_in_utils.set_location(g_debug,l_procedure,30);
3713: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3714: p_message_name := 'SUCCESS';
3715: pay_in_utils.null_message (p_token_name, p_token_value);
3716:
3709: ,p_token_value => p_token_value
3710: );
3711:
3712: pay_in_utils.set_location(g_debug,l_procedure,30);
3713: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3714: p_message_name := 'SUCCESS';
3715: pay_in_utils.null_message (p_token_name, p_token_value);
3716:
3717: create_vrs_entry
3711:
3712: pay_in_utils.set_location(g_debug,l_procedure,30);
3713: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3714: p_message_name := 'SUCCESS';
3715: pay_in_utils.null_message (p_token_name, p_token_value);
3716:
3717: create_vrs_entry
3718: (p_period_of_service_id => p_period_of_service_id
3719: ,p_business_group_id => p_business_group_id
3723: ,p_token_name => p_token_name
3724: ,p_token_value => p_token_value
3725: );
3726:
3727: pay_in_utils.set_location(g_debug,l_procedure,40);
3728: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3729: p_message_name := 'SUCCESS';
3730: pay_in_utils.null_message (p_token_name, p_token_value);
3731:
3724: ,p_token_value => p_token_value
3725: );
3726:
3727: pay_in_utils.set_location(g_debug,l_procedure,40);
3728: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3729: p_message_name := 'SUCCESS';
3730: pay_in_utils.null_message (p_token_name, p_token_value);
3731:
3732: create_pension_entry
3726:
3727: pay_in_utils.set_location(g_debug,l_procedure,40);
3728: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3729: p_message_name := 'SUCCESS';
3730: pay_in_utils.null_message (p_token_name, p_token_value);
3731:
3732: create_pension_entry
3733: (p_period_of_service_id => p_period_of_service_id
3734: ,p_business_group_id => p_business_group_id
3738: ,p_token_name => p_token_name
3739: ,p_token_value => p_token_value
3740: );
3741:
3742: pay_in_utils.set_location(g_debug,l_procedure,50);
3743: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3744: p_message_name := 'SUCCESS';
3745: pay_in_utils.null_message (p_token_name, p_token_value);
3746:
3739: ,p_token_value => p_token_value
3740: );
3741:
3742: pay_in_utils.set_location(g_debug,l_procedure,50);
3743: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3744: p_message_name := 'SUCCESS';
3745: pay_in_utils.null_message (p_token_name, p_token_value);
3746:
3747: create_pf_entry
3741:
3742: pay_in_utils.set_location(g_debug,l_procedure,50);
3743: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3744: p_message_name := 'SUCCESS';
3745: pay_in_utils.null_message (p_token_name, p_token_value);
3746:
3747: create_pf_entry
3748: (p_period_of_service_id => p_period_of_service_id
3749: ,p_business_group_id => p_business_group_id
3753: ,p_token_name => p_token_name
3754: ,p_token_value => p_token_value
3755: );
3756:
3757: pay_in_utils.set_location(g_debug,l_procedure,60);
3758: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3759: p_message_name := 'SUCCESS';
3760: pay_in_utils.null_message (p_token_name, p_token_value);
3761:
3754: ,p_token_value => p_token_value
3755: );
3756:
3757: pay_in_utils.set_location(g_debug,l_procedure,60);
3758: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3759: p_message_name := 'SUCCESS';
3760: pay_in_utils.null_message (p_token_name, p_token_value);
3761:
3762: create_loan_entry
3756:
3757: pay_in_utils.set_location(g_debug,l_procedure,60);
3758: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3759: p_message_name := 'SUCCESS';
3760: pay_in_utils.null_message (p_token_name, p_token_value);
3761:
3762: create_loan_entry
3763: (p_period_of_service_id => p_period_of_service_id
3764: ,p_business_group_id => p_business_group_id
3767: ,p_message_name => p_message_name
3768: ,p_token_name => p_token_name
3769: ,p_token_value => p_token_value
3770: );
3771: pay_in_utils.set_location(g_debug,l_procedure,70);
3772: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3773: p_message_name := 'SUCCESS';
3774: pay_in_utils.null_message (p_token_name, p_token_value);
3775:
3768: ,p_token_name => p_token_name
3769: ,p_token_value => p_token_value
3770: );
3771: pay_in_utils.set_location(g_debug,l_procedure,70);
3772: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3773: p_message_name := 'SUCCESS';
3774: pay_in_utils.null_message (p_token_name, p_token_value);
3775:
3776: create_gratuity_entry
3770: );
3771: pay_in_utils.set_location(g_debug,l_procedure,70);
3772: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3773: p_message_name := 'SUCCESS';
3774: pay_in_utils.null_message (p_token_name, p_token_value);
3775:
3776: create_gratuity_entry
3777: (p_period_of_service_id => p_period_of_service_id
3778: ,p_business_group_id => p_business_group_id
3782: ,p_token_name => p_token_name
3783: ,p_token_value => p_token_value
3784: );
3785:
3786: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3787: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3788:
3789: create_advances_entry
3790: (p_period_of_service_id => p_period_of_service_id
3783: ,p_token_value => p_token_value
3784: );
3785:
3786: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3787: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3788:
3789: create_advances_entry
3790: (p_period_of_service_id => p_period_of_service_id
3791: ,p_business_group_id => p_business_group_id
3795: ,p_token_name => p_token_name
3796: ,p_token_value => p_token_value
3797: );
3798:
3799: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3800: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3801:
3802:
3803:
3796: ,p_token_value => p_token_value
3797: );
3798:
3799: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
3800: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3801:
3802:
3803:
3804: END create_termination_elements;
3816: -- p_business_group_id NUMBER --
3817: -- p_actual_termination_date DATE --
3818: -- p_calling_procedure VARCHAR2 --
3819: -- OUT : p_message_name VARCHAR2 --
3820: -- p_token_name pay_in_utils.char_tab_type--
3821: -- p_token_value pay_in_utils.char_tab_type--
3822: -- Change History : --
3823: --------------------------------------------------------------------------
3824: -- Rev# Date Userid Description --
3817: -- p_actual_termination_date DATE --
3818: -- p_calling_procedure VARCHAR2 --
3819: -- OUT : p_message_name VARCHAR2 --
3820: -- p_token_name pay_in_utils.char_tab_type--
3821: -- p_token_value pay_in_utils.char_tab_type--
3822: -- Change History : --
3823: --------------------------------------------------------------------------
3824: -- Rev# Date Userid Description --
3825: --------------------------------------------------------------------------
3830: ,p_business_group_id IN NUMBER
3831: ,p_actual_termination_date IN DATE
3832: ,p_calling_procedure IN VARCHAR2
3833: ,p_message_name OUT NOCOPY VARCHAR2
3834: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3835: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3836: )
3837: IS
3838: l_procedure VARCHAR2(100);
3831: ,p_actual_termination_date IN DATE
3832: ,p_calling_procedure IN VARCHAR2
3833: ,p_message_name OUT NOCOPY VARCHAR2
3834: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
3835: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
3836: )
3837: IS
3838: l_procedure VARCHAR2(100);
3839:
3840: BEGIN
3841: g_debug := hr_utility.debug_enabled ;
3842: l_procedure := g_package || 'delete_termination_elements' ;
3843: p_message_name := 'SUCCESS';
3844: pay_in_utils.null_message (p_token_name, p_token_value);
3845:
3846: get_pos_dtls(p_period_of_service_id => p_period_of_service_id
3847: ,p_business_group_id => p_business_group_id
3848: ,p_effective_date => p_actual_termination_date
3858: ,p_token_name => p_token_name
3859: ,p_token_value => p_token_value
3860: );
3861:
3862: pay_in_utils.set_location(g_debug,l_procedure,20);
3863: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3864: p_message_name := 'SUCCESS';
3865: pay_in_utils.null_message (p_token_name, p_token_value);
3866:
3859: ,p_token_value => p_token_value
3860: );
3861:
3862: pay_in_utils.set_location(g_debug,l_procedure,20);
3863: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3864: p_message_name := 'SUCCESS';
3865: pay_in_utils.null_message (p_token_name, p_token_value);
3866:
3867: delete_retrenchment_entry
3861:
3862: pay_in_utils.set_location(g_debug,l_procedure,20);
3863: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3864: p_message_name := 'SUCCESS';
3865: pay_in_utils.null_message (p_token_name, p_token_value);
3866:
3867: delete_retrenchment_entry
3868: (p_period_of_service_id => p_period_of_service_id
3869: ,p_business_group_id => p_business_group_id
3873: ,p_token_name => p_token_name
3874: ,p_token_value => p_token_value
3875: );
3876:
3877: pay_in_utils.set_location(g_debug,l_procedure,30);
3878: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3879: p_message_name := 'SUCCESS';
3880: pay_in_utils.null_message (p_token_name, p_token_value);
3881:
3874: ,p_token_value => p_token_value
3875: );
3876:
3877: pay_in_utils.set_location(g_debug,l_procedure,30);
3878: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3879: p_message_name := 'SUCCESS';
3880: pay_in_utils.null_message (p_token_name, p_token_value);
3881:
3882: delete_vrs_entry
3876:
3877: pay_in_utils.set_location(g_debug,l_procedure,30);
3878: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3879: p_message_name := 'SUCCESS';
3880: pay_in_utils.null_message (p_token_name, p_token_value);
3881:
3882: delete_vrs_entry
3883: (p_period_of_service_id => p_period_of_service_id
3884: ,p_business_group_id => p_business_group_id
3888: ,p_token_name => p_token_name
3889: ,p_token_value => p_token_value
3890: );
3891:
3892: pay_in_utils.set_location(g_debug,l_procedure,40);
3893: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3894: p_message_name := 'SUCCESS';
3895: pay_in_utils.null_message (p_token_name, p_token_value);
3896:
3889: ,p_token_value => p_token_value
3890: );
3891:
3892: pay_in_utils.set_location(g_debug,l_procedure,40);
3893: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3894: p_message_name := 'SUCCESS';
3895: pay_in_utils.null_message (p_token_name, p_token_value);
3896:
3897: delete_pension_entry
3891:
3892: pay_in_utils.set_location(g_debug,l_procedure,40);
3893: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3894: p_message_name := 'SUCCESS';
3895: pay_in_utils.null_message (p_token_name, p_token_value);
3896:
3897: delete_pension_entry
3898: (p_period_of_service_id => p_period_of_service_id
3899: ,p_business_group_id => p_business_group_id
3903: ,p_token_name => p_token_name
3904: ,p_token_value => p_token_value
3905: );
3906:
3907: pay_in_utils.set_location(g_debug,l_procedure,50);
3908: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3909: p_message_name := 'SUCCESS';
3910: pay_in_utils.null_message (p_token_name, p_token_value);
3911:
3904: ,p_token_value => p_token_value
3905: );
3906:
3907: pay_in_utils.set_location(g_debug,l_procedure,50);
3908: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3909: p_message_name := 'SUCCESS';
3910: pay_in_utils.null_message (p_token_name, p_token_value);
3911:
3912: delete_pf_entry
3906:
3907: pay_in_utils.set_location(g_debug,l_procedure,50);
3908: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3909: p_message_name := 'SUCCESS';
3910: pay_in_utils.null_message (p_token_name, p_token_value);
3911:
3912: delete_pf_entry
3913: (p_period_of_service_id => p_period_of_service_id
3914: ,p_business_group_id => p_business_group_id
3918: ,p_token_name => p_token_name
3919: ,p_token_value => p_token_value
3920: );
3921:
3922: pay_in_utils.set_location(g_debug,l_procedure,60);
3923: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3924: p_message_name := 'SUCCESS';
3925: pay_in_utils.null_message (p_token_name, p_token_value);
3926:
3919: ,p_token_value => p_token_value
3920: );
3921:
3922: pay_in_utils.set_location(g_debug,l_procedure,60);
3923: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3924: p_message_name := 'SUCCESS';
3925: pay_in_utils.null_message (p_token_name, p_token_value);
3926:
3927: delete_loan_entry
3921:
3922: pay_in_utils.set_location(g_debug,l_procedure,60);
3923: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3924: p_message_name := 'SUCCESS';
3925: pay_in_utils.null_message (p_token_name, p_token_value);
3926:
3927: delete_loan_entry
3928: (p_period_of_service_id => p_period_of_service_id
3929: ,p_business_group_id => p_business_group_id
3933: ,p_token_name => p_token_name
3934: ,p_token_value => p_token_value
3935: );
3936:
3937: pay_in_utils.set_location(g_debug,l_procedure,70);
3938: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3939: p_message_name := 'SUCCESS';
3940: pay_in_utils.null_message (p_token_name, p_token_value);
3941:
3934: ,p_token_value => p_token_value
3935: );
3936:
3937: pay_in_utils.set_location(g_debug,l_procedure,70);
3938: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3939: p_message_name := 'SUCCESS';
3940: pay_in_utils.null_message (p_token_name, p_token_value);
3941:
3942: delete_gratuity_entry
3936:
3937: pay_in_utils.set_location(g_debug,l_procedure,70);
3938: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3939: p_message_name := 'SUCCESS';
3940: pay_in_utils.null_message (p_token_name, p_token_value);
3941:
3942: delete_gratuity_entry
3943: (p_period_of_service_id => p_period_of_service_id
3944: ,p_business_group_id => p_business_group_id
3948: ,p_token_name => p_token_name
3949: ,p_token_value => p_token_value
3950: );
3951:
3952: pay_in_utils.set_location(g_debug,l_procedure,80);
3953: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3954: p_message_name := 'SUCCESS';
3955: pay_in_utils.null_message (p_token_name, p_token_value);
3956:
3949: ,p_token_value => p_token_value
3950: );
3951:
3952: pay_in_utils.set_location(g_debug,l_procedure,80);
3953: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3954: p_message_name := 'SUCCESS';
3955: pay_in_utils.null_message (p_token_name, p_token_value);
3956:
3957: delete_advances_entry
3951:
3952: pay_in_utils.set_location(g_debug,l_procedure,80);
3953: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3954: p_message_name := 'SUCCESS';
3955: pay_in_utils.null_message (p_token_name, p_token_value);
3956:
3957: delete_advances_entry
3958: (p_period_of_service_id => p_period_of_service_id
3959: ,p_business_group_id => p_business_group_id
3963: ,p_token_name => p_token_name
3964: ,p_token_value => p_token_value
3965: );
3966:
3967: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,90);
3968: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3969:
3970:
3971: END delete_termination_elements;
3964: ,p_token_value => p_token_value
3965: );
3966:
3967: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,90);
3968: pay_in_utils.raise_message(800, p_message_name, p_token_name, p_token_value);
3969:
3970:
3971: END delete_termination_elements;
3972:
4021: BEGIN
4022: --
4023: g_debug := hr_utility.debug_enabled;
4024: l_procedure := g_package||'get_value_on_termination';
4025: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
4026:
4027: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4028: pay_in_utils.set_location(g_debug, l_procedure,20);
4029: IF g_debug THEN
4024: l_procedure := g_package||'get_value_on_termination';
4025: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
4026:
4027: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4028: pay_in_utils.set_location(g_debug, l_procedure,20);
4029: IF g_debug THEN
4030: pay_in_utils.trace('l_def_bal_id ',l_def_bal_id);
4031: END IF ;
4032:
4026:
4027: l_def_bal_id := pay_in_tax_utils.get_defined_balance(p_balance_name, p_dimension_name);
4028: pay_in_utils.set_location(g_debug, l_procedure,20);
4029: IF g_debug THEN
4030: pay_in_utils.trace('l_def_bal_id ',l_def_bal_id);
4031: END IF ;
4032:
4033: OPEN c_max_asact;
4034: FETCH c_max_asact INTO l_asg_action_id;
4032:
4033: OPEN c_max_asact;
4034: FETCH c_max_asact INTO l_asg_action_id;
4035: CLOSE c_max_asact;
4036: pay_in_utils.set_location(g_debug, l_procedure,30);
4037: IF g_debug THEN
4038: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4039: END IF ;
4040:
4034: FETCH c_max_asact INTO l_asg_action_id;
4035: CLOSE c_max_asact;
4036: pay_in_utils.set_location(g_debug, l_procedure,30);
4037: IF g_debug THEN
4038: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4039: END IF ;
4040:
4041: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4042: pay_in_utils.set_location(g_debug, l_procedure,40);
4038: pay_in_utils.trace('l_asg_action_id ',l_asg_action_id);
4039: END IF ;
4040:
4041: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4042: pay_in_utils.set_location(g_debug, l_procedure,40);
4043: IF g_debug THEN
4044: pay_in_utils.trace('l_value ',l_value);
4045: END IF ;
4046:
4040:
4041: l_value := pay_balance_pkg.get_value(l_def_bal_id,l_asg_action_id);
4042: pay_in_utils.set_location(g_debug, l_procedure,40);
4043: IF g_debug THEN
4044: pay_in_utils.trace('l_value ',l_value);
4045: END IF ;
4046:
4047: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,50);
4048:
4043: IF g_debug THEN
4044: pay_in_utils.trace('l_value ',l_value);
4045: END IF ;
4046:
4047: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,50);
4048:
4049: RETURN l_value;
4050: --
4051: EXCEPTION