2: /* $Header: pyindedn.pkb 120.13.12010000.3 2008/10/10 07:26:15 mdubasi ship $ */
3:
4: g_debug BOOLEAN;
5: g_package CONSTANT VARCHAR2(100) := 'pay_in_ff_pkg.';
6: p_token_name pay_in_utils.char_tab_type;
7: p_token_value pay_in_utils.char_tab_type;
8:
9: --------------------------------------------------------------------------
10: -- Name : CHECK_RETAINER --
3:
4: g_debug BOOLEAN;
5: g_package CONSTANT VARCHAR2(100) := 'pay_in_ff_pkg.';
6: p_token_name pay_in_utils.char_tab_type;
7: p_token_value pay_in_utils.char_tab_type;
8:
9: --------------------------------------------------------------------------
10: -- Name : CHECK_RETAINER --
11: -- Type : Function --
45: BEGIN
46: g_debug:= hr_utility.debug_enabled;
47: l_procedure:= g_package ||'check_retainer';
48:
49: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
50:
51: IF g_debug THEN
52: pay_in_utils.trace('**************************************************','********************');
53: pay_in_utils.trace('p_assignment_id',p_assignment_id);
48:
49: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
50:
51: IF g_debug THEN
52: pay_in_utils.trace('**************************************************','********************');
53: pay_in_utils.trace('p_assignment_id',p_assignment_id);
54: pay_in_utils.trace('p_payroll_action_id',p_payroll_action_id);
55: pay_in_utils.trace('**************************************************','********************');
56: END IF;
49: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
50:
51: IF g_debug THEN
52: pay_in_utils.trace('**************************************************','********************');
53: pay_in_utils.trace('p_assignment_id',p_assignment_id);
54: pay_in_utils.trace('p_payroll_action_id',p_payroll_action_id);
55: pay_in_utils.trace('**************************************************','********************');
56: END IF;
57: OPEN c_emp_cat;
50:
51: IF g_debug THEN
52: pay_in_utils.trace('**************************************************','********************');
53: pay_in_utils.trace('p_assignment_id',p_assignment_id);
54: pay_in_utils.trace('p_payroll_action_id',p_payroll_action_id);
55: pay_in_utils.trace('**************************************************','********************');
56: END IF;
57: OPEN c_emp_cat;
58: FETCH c_emp_cat INTO l_emp_cat;
51: IF g_debug THEN
52: pay_in_utils.trace('**************************************************','********************');
53: pay_in_utils.trace('p_assignment_id',p_assignment_id);
54: pay_in_utils.trace('p_payroll_action_id',p_payroll_action_id);
55: pay_in_utils.trace('**************************************************','********************');
56: END IF;
57: OPEN c_emp_cat;
58: FETCH c_emp_cat INTO l_emp_cat;
59: CLOSE c_emp_cat;
58: FETCH c_emp_cat INTO l_emp_cat;
59: CLOSE c_emp_cat;
60:
61: IF g_debug THEN
62: pay_in_utils.trace('l_emp_cat',l_emp_cat);
63: END IF;
64:
65: IF (l_emp_cat = 'IN_RE') THEN
66: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,30);
62: pay_in_utils.trace('l_emp_cat',l_emp_cat);
63: END IF;
64:
65: IF (l_emp_cat = 'IN_RE') THEN
66: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,30);
67: RETURN 1;
68: ELSE
69: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
70: RETURN 0;
65: IF (l_emp_cat = 'IN_RE') THEN
66: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,30);
67: RETURN 1;
68: ELSE
69: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,40);
70: RETURN 0;
71: END IF;
72:
73: EXCEPTION
71: END IF;
72:
73: EXCEPTION
74: WHEN OTHERS THEN
75: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
76: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 50);
77: hr_utility.trace(l_message);
78: RETURN NULL;
79: END check_retainer;
72:
73: EXCEPTION
74: WHEN OTHERS THEN
75: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
76: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 50);
77: hr_utility.trace(l_message);
78: RETURN NULL;
79: END check_retainer;
80:
115: BEGIN
116: g_debug:= hr_utility.debug_enabled;
117: l_procedure:= g_package ||'check_retainer';
118:
119: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
120:
121: IF g_debug THEN
122: pay_in_utils.trace('**************************************************','********************');
123: pay_in_utils.trace('p_assignment_id',p_assignment_id);
118:
119: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
120:
121: IF g_debug THEN
122: pay_in_utils.trace('**************************************************','********************');
123: pay_in_utils.trace('p_assignment_id',p_assignment_id);
124: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'dd/mm/yyyy'));
125: pay_in_utils.trace('**************************************************','********************');
126: END IF;
119: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
120:
121: IF g_debug THEN
122: pay_in_utils.trace('**************************************************','********************');
123: pay_in_utils.trace('p_assignment_id',p_assignment_id);
124: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'dd/mm/yyyy'));
125: pay_in_utils.trace('**************************************************','********************');
126: END IF;
127: OPEN c_get_edli;
120:
121: IF g_debug THEN
122: pay_in_utils.trace('**************************************************','********************');
123: pay_in_utils.trace('p_assignment_id',p_assignment_id);
124: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'dd/mm/yyyy'));
125: pay_in_utils.trace('**************************************************','********************');
126: END IF;
127: OPEN c_get_edli;
128: FETCH c_get_edli INTO l_edli;
121: IF g_debug THEN
122: pay_in_utils.trace('**************************************************','********************');
123: pay_in_utils.trace('p_assignment_id',p_assignment_id);
124: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'dd/mm/yyyy'));
125: pay_in_utils.trace('**************************************************','********************');
126: END IF;
127: OPEN c_get_edli;
128: FETCH c_get_edli INTO l_edli;
129: CLOSE c_get_edli;
128: FETCH c_get_edli INTO l_edli;
129: CLOSE c_get_edli;
130:
131: IF g_debug THEN
132: pay_in_utils.trace('l_edli',l_edli);
133: END IF;
134:
135: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,20);
136: RETURN l_edli;
131: IF g_debug THEN
132: pay_in_utils.trace('l_edli',l_edli);
133: END IF;
134:
135: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,20);
136: RETURN l_edli;
137:
138: EXCEPTION
139: WHEN OTHERS THEN
136: RETURN l_edli;
137:
138: EXCEPTION
139: WHEN OTHERS THEN
140: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
141: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
142: hr_utility.trace(l_message);
143: RETURN NULL;
144: END check_edli;
137:
138: EXCEPTION
139: WHEN OTHERS THEN
140: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
141: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
142: hr_utility.trace(l_message);
143: RETURN NULL;
144: END check_edli;
145:
231:
232: BEGIN
233: g_debug:= hr_utility.debug_enabled;
234: l_procedure := g_package ||'get_esi_cont_amt';
235: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure, 10);
236:
237: l_half_year_start1:='01-04-';
238: l_half_year_start2:='01-10-';
239:
237: l_half_year_start1:='01-04-';
238: l_half_year_start2:='01-10-';
239:
240: IF g_debug THEN
241: pay_in_utils.trace('**************************************************','********************');
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
238: l_half_year_start2:='01-10-';
239:
240: IF g_debug THEN
241: pay_in_utils.trace('**************************************************','********************');
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
246: pay_in_utils.trace('**************************************************','********************');
239:
240: IF g_debug THEN
241: pay_in_utils.trace('**************************************************','********************');
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
246: pay_in_utils.trace('**************************************************','********************');
247: END IF;
240: IF g_debug THEN
241: pay_in_utils.trace('**************************************************','********************');
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
246: pay_in_utils.trace('**************************************************','********************');
247: END IF;
248:
241: pay_in_utils.trace('**************************************************','********************');
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
246: pay_in_utils.trace('**************************************************','********************');
247: END IF;
248:
249: l_month :=TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
242: pay_in_utils.trace ('p_assignment_action_id ',to_char(p_assignment_action_id));
243: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
244: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
245: pay_in_utils.trace ('p_eligible_amt ',to_char(p_eligible_amt));
246: pay_in_utils.trace('**************************************************','********************');
247: END IF;
248:
249: l_month :=TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
250: l_year := TO_NUMBER(TO_CHAR(p_date_earned,'yyyy'));
248:
249: l_month :=TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
250: l_year := TO_NUMBER(TO_CHAR(p_date_earned,'yyyy'));
251:
252: pay_in_utils.set_location(g_debug,l_procedure, 20);
253:
254: IF l_month BETWEEN 4 AND 9 THEN
255: l_start := TO_DATE(l_half_year_start1||TO_CHAR(l_year),'dd-mm-yyyy');
256: ELSIF l_month BETWEEN 10 and 12 THEN
258: ELSE
259: l_start := TO_DATE(l_half_year_start2||TO_CHAR(l_year-1),'dd-mm-yyyy');
260: END IF;
261:
262: pay_in_utils.set_location(g_debug,l_procedure, 30);
263:
264: OPEN get_date(l_start);
265: FETCH get_date INTO l_esi_cont_date;
266: CLOSE get_date;
264: OPEN get_date(l_start);
265: FETCH get_date INTO l_esi_cont_date;
266: CLOSE get_date;
267:
268: pay_in_utils.set_location(g_debug,l_procedure, 40);
269:
270: --Get the last date of the month to be considered for ESI Eligibility
271: l_esi_contr_month := last_day(l_esi_cont_date);
272:
273: --Get the last date of the current pay period
274: l_start_period := last_day(p_date_earned);
275:
276: IF g_debug THEN
277: pay_in_utils.trace ('l_esi_contr_month : ' , to_char(l_esi_contr_month,'DD-MM-YYYY'));
278: pay_in_utils.trace ('l_start_period : ' , to_char(l_start_period,'DD-MM-YYYY'));
279: END IF;
280:
281: pay_in_utils.set_location(g_debug,l_procedure, 50);
274: l_start_period := last_day(p_date_earned);
275:
276: IF g_debug THEN
277: pay_in_utils.trace ('l_esi_contr_month : ' , to_char(l_esi_contr_month,'DD-MM-YYYY'));
278: pay_in_utils.trace ('l_start_period : ' , to_char(l_start_period,'DD-MM-YYYY'));
279: END IF;
280:
281: pay_in_utils.set_location(g_debug,l_procedure, 50);
282:
277: pay_in_utils.trace ('l_esi_contr_month : ' , to_char(l_esi_contr_month,'DD-MM-YYYY'));
278: pay_in_utils.trace ('l_start_period : ' , to_char(l_start_period,'DD-MM-YYYY'));
279: END IF;
280:
281: pay_in_utils.set_location(g_debug,l_procedure, 50);
282:
283: --
284: -- IF Current month is to considered for finding ESI Eligibility
285: -- THEN return back the input value(p_eligible_amt)
289:
290: IF l_start_period =l_esi_contr_month THEN
291:
292: l_esi_eligible_amt :=p_eligible_amt;
293: pay_in_utils.set_location(g_debug,l_procedure, 60);
294:
295: ELSE
296: pay_in_utils.set_location(g_debug,l_procedure, 70);
297: OPEN get_defined_bal_id;
292: l_esi_eligible_amt :=p_eligible_amt;
293: pay_in_utils.set_location(g_debug,l_procedure, 60);
294:
295: ELSE
296: pay_in_utils.set_location(g_debug,l_procedure, 70);
297: OPEN get_defined_bal_id;
298: FETCH get_defined_bal_id INTO l_defined_balance_id;
299: CLOSE get_defined_bal_id;
300:
304: INTO l_virtual_asact_id;
305: CLOSE csr_casact;
306:
307:
308: pay_in_utils.set_location(g_debug,'Virtual ASACT ID : '||to_char(l_virtual_asact_id),80);
309:
310: l_esi_eligible_amt := pay_balance_pkg.get_value(
311: p_defined_balance_id => l_defined_balance_id,
312: p_assignment_action_id => l_virtual_asact_id
311: p_defined_balance_id => l_defined_balance_id,
312: p_assignment_action_id => l_virtual_asact_id
313: );
314:
315: pay_in_utils.set_location(g_debug,l_procedure, 80);
316:
317: END IF;
318:
319: IF g_debug THEN
316:
317: END IF;
318:
319: IF g_debug THEN
320: pay_in_utils.trace ('l_esi_eligible_amt : ' , l_esi_eligible_amt);
321: END IF;
322:
323: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 90);
324: RETURN l_esi_eligible_amt;
319: IF g_debug THEN
320: pay_in_utils.trace ('l_esi_eligible_amt : ' , l_esi_eligible_amt);
321: END IF;
322:
323: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 90);
324: RETURN l_esi_eligible_amt;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
324: RETURN l_esi_eligible_amt;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
328: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
329: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 100);
330: hr_utility.trace(l_message);
331: RETURN NULL;
332: END get_esi_cont_amt;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
328: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
329: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 100);
330: hr_utility.trace(l_message);
331: RETURN NULL;
332: END get_esi_cont_amt;
333:
387:
388: BEGIN
389: g_debug := hr_utility.debug_enabled;
390: l_procedure := g_package ||'get_esi_disability_details';
391: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
392:
393: l_half_year_start1:='01-04-';
394: l_half_year_start2:='01-10-';
395:
393: l_half_year_start1:='01-04-';
394: l_half_year_start2:='01-10-';
395:
396: IF g_debug THEN
397: pay_in_utils.trace('**************************************************','********************');
398: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
399: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
400: pay_in_utils.trace('**************************************************','********************');
401: END IF;
394: l_half_year_start2:='01-10-';
395:
396: IF g_debug THEN
397: pay_in_utils.trace('**************************************************','********************');
398: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
399: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
400: pay_in_utils.trace('**************************************************','********************');
401: END IF;
402:
395:
396: IF g_debug THEN
397: pay_in_utils.trace('**************************************************','********************');
398: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
399: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
400: pay_in_utils.trace('**************************************************','********************');
401: END IF;
402:
403: l_month := TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
396: IF g_debug THEN
397: pay_in_utils.trace('**************************************************','********************');
398: pay_in_utils.trace ('p_assignment_id ',to_char(p_assignment_id));
399: pay_in_utils.trace ('p_date_earned ',to_char(p_date_earned,'DD-MM-YYYY'));
400: pay_in_utils.trace('**************************************************','********************');
401: END IF;
402:
403: l_month := TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
404: l_year := TO_NUMBER(TO_CHAR(p_date_earned,'yyyy'));
402:
403: l_month := TO_NUMBER(TO_CHAR(p_date_earned,'mm'));
404: l_year := TO_NUMBER(TO_CHAR(p_date_earned,'yyyy'));
405:
406: pay_in_utils.set_location(g_debug,l_procedure, 20);
407:
408: IF l_month BETWEEN 4 AND 9 THEN
409: l_start := TO_DATE(l_half_year_start1||TO_CHAR(l_year),'dd-mm-yyyy');
410: ELSIF l_month BETWEEN 10 and 12 THEN
412: ELSE
413: l_start := TO_DATE(l_half_year_start2||TO_CHAR(l_year-1),'dd-mm-yyyy');
414: END IF;
415:
416: pay_in_utils.set_location(g_debug,l_procedure, 30);
417:
418: /*To get latest of first pay period date and contribution period start date*/
419:
420: OPEN get_date(l_start);
420: OPEN get_date(l_start);
421: FETCH get_date INTO l_esi_cont_date;
422: CLOSE get_date;
423:
424: pay_in_utils.set_location(g_debug,l_procedure, 40);
425:
426: IF g_debug THEN
427: pay_in_utils.trace ('l_esi_cont_date : ' , to_char(l_esi_cont_date,'DD-MM-YYYY'));
428: END IF;
423:
424: pay_in_utils.set_location(g_debug,l_procedure, 40);
425:
426: IF g_debug THEN
427: pay_in_utils.trace ('l_esi_cont_date : ' , to_char(l_esi_cont_date,'DD-MM-YYYY'));
428: END IF;
429:
430: pay_in_utils.set_location(g_debug,l_procedure, 50);
431:
426: IF g_debug THEN
427: pay_in_utils.trace ('l_esi_cont_date : ' , to_char(l_esi_cont_date,'DD-MM-YYYY'));
428: END IF;
429:
430: pay_in_utils.set_location(g_debug,l_procedure, 50);
431:
432: l_proof := 'N';
433:
434: Open c_disab_details(l_esi_cont_date);
436: Close c_disab_details;
437:
438: p_disable_proof := l_proof;
439:
440: pay_in_utils.set_location(g_debug,l_procedure, 60);
441:
442:
443: IF g_debug THEN
444: pay_in_utils.trace('p_disable_proof',p_disable_proof);
440: pay_in_utils.set_location(g_debug,l_procedure, 60);
441:
442:
443: IF g_debug THEN
444: pay_in_utils.trace('p_disable_proof',p_disable_proof);
445: END IF;
446:
447: pay_in_utils.set_location(g_debug,l_procedure, 70);
448:
443: IF g_debug THEN
444: pay_in_utils.trace('p_disable_proof',p_disable_proof);
445: END IF;
446:
447: pay_in_utils.set_location(g_debug,l_procedure, 70);
448:
449:
450: pay_in_utils.trace('**************************************************','********************');
451: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
446:
447: pay_in_utils.set_location(g_debug,l_procedure, 70);
448:
449:
450: pay_in_utils.trace('**************************************************','********************');
451: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
452: Return 0;
453:
454: END get_esi_disability_details;
447: pay_in_utils.set_location(g_debug,l_procedure, 70);
448:
449:
450: pay_in_utils.trace('**************************************************','********************');
451: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,80);
452: Return 0;
453:
454: END get_esi_disability_details;
455:
477: l_procedure VARCHAR2(100);
478: BEGIN
479: g_debug := hr_utility.debug_enabled;
480: l_procedure := g_package ||'round_to_5paise';
481: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
482:
483:
484: IF g_debug THEN
485: pay_in_utils.trace('p_number',to_char(p_number));
481: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
482:
483:
484: IF g_debug THEN
485: pay_in_utils.trace('p_number',to_char(p_number));
486: END IF;
487:
488: l_number := ROUND(p_number,2);
489: N := CEIL (l_number*10)/10;
488: l_number := ROUND(p_number,2);
489: N := CEIL (l_number*10)/10;
490:
491: IF g_debug THEN
492: pay_in_utils.trace('N',to_char(N));
493: END IF;
494:
495: IF (N-l_number) >= 0.05 THEN
496: RETURN (N-0.05);
497: ELSE
498: RETURN N;
499: END IF;
500:
501: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
502:
503: END ROUND_TO_5PAISE;
504:
505: --------------------------------------------------------------------------
549:
550: BEGIN
551: g_debug := hr_utility.debug_enabled;
552: l_procedure := g_package ||'get_accrual_plan';
553: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
554:
555:
556: IF g_debug THEN
557: pay_in_utils.trace('**************************************************','********************');
553: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
554:
555:
556: IF g_debug THEN
557: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
559: pay_in_utils.trace('p_effective_date',to_char(p_effective_date));
560: pay_in_utils.trace('p_plan_category ',to_char(p_plan_category ));
561: pay_in_utils.trace('**************************************************','********************');
554:
555:
556: IF g_debug THEN
557: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
559: pay_in_utils.trace('p_effective_date',to_char(p_effective_date));
560: pay_in_utils.trace('p_plan_category ',to_char(p_plan_category ));
561: pay_in_utils.trace('**************************************************','********************');
562: END IF;
555:
556: IF g_debug THEN
557: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
559: pay_in_utils.trace('p_effective_date',to_char(p_effective_date));
560: pay_in_utils.trace('p_plan_category ',to_char(p_plan_category ));
561: pay_in_utils.trace('**************************************************','********************');
562: END IF;
563:
556: IF g_debug THEN
557: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
559: pay_in_utils.trace('p_effective_date',to_char(p_effective_date));
560: pay_in_utils.trace('p_plan_category ',to_char(p_plan_category ));
561: pay_in_utils.trace('**************************************************','********************');
562: END IF;
563:
564: OPEN csr_get_accrual_plan_id(p_assignment_id, p_effective_date, p_plan_category) ;
557: pay_in_utils.trace('**************************************************','********************');
558: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
559: pay_in_utils.trace('p_effective_date',to_char(p_effective_date));
560: pay_in_utils.trace('p_plan_category ',to_char(p_plan_category ));
561: pay_in_utils.trace('**************************************************','********************');
562: END IF;
563:
564: OPEN csr_get_accrual_plan_id(p_assignment_id, p_effective_date, p_plan_category) ;
565: FETCH csr_get_accrual_plan_id INTO l_accrual_plan_id;
573: CLOSE csr_get_accrual_plan_id;
574: END IF ;
575:
576: IF g_debug THEN
577: pay_in_utils.trace('**************************************************','********************');
578: pay_in_utils.trace('p_message ',p_message);
579: pay_in_utils.trace('l_accrual_plan_id ',to_char(l_accrual_plan_id ));
580: pay_in_utils.trace('**************************************************','********************');
581: END IF;
574: END IF ;
575:
576: IF g_debug THEN
577: pay_in_utils.trace('**************************************************','********************');
578: pay_in_utils.trace('p_message ',p_message);
579: pay_in_utils.trace('l_accrual_plan_id ',to_char(l_accrual_plan_id ));
580: pay_in_utils.trace('**************************************************','********************');
581: END IF;
582:
575:
576: IF g_debug THEN
577: pay_in_utils.trace('**************************************************','********************');
578: pay_in_utils.trace('p_message ',p_message);
579: pay_in_utils.trace('l_accrual_plan_id ',to_char(l_accrual_plan_id ));
580: pay_in_utils.trace('**************************************************','********************');
581: END IF;
582:
583: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
576: IF g_debug THEN
577: pay_in_utils.trace('**************************************************','********************');
578: pay_in_utils.trace('p_message ',p_message);
579: pay_in_utils.trace('l_accrual_plan_id ',to_char(l_accrual_plan_id ));
580: pay_in_utils.trace('**************************************************','********************');
581: END IF;
582:
583: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
584:
579: pay_in_utils.trace('l_accrual_plan_id ',to_char(l_accrual_plan_id ));
580: pay_in_utils.trace('**************************************************','********************');
581: END IF;
582:
583: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
584:
585: RETURN l_accrual_plan_id;
586:
587: EXCEPTION
585: RETURN l_accrual_plan_id;
586:
587: EXCEPTION
588: WHEN OTHERS THEN
589: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
590: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
591: hr_utility.trace(l_message);
592: RETURN NULL;
593:
586:
587: EXCEPTION
588: WHEN OTHERS THEN
589: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
590: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
591: hr_utility.trace(l_message);
592: RETURN NULL;
593:
594: END get_accrual_plan;
634: BEGIN
635:
636: g_debug:= hr_utility.debug_enabled;
637: l_procedure := g_package ||'get_net_accrual';
638: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
639:
640: IF g_debug THEN
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
637: l_procedure := g_package ||'get_net_accrual';
638: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
639:
640: IF g_debug THEN
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
638: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
639:
640: IF g_debug THEN
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
639:
640: IF g_debug THEN
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
647: pay_in_utils.trace('**************************************************','********************');
640: IF g_debug THEN
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
647: pay_in_utils.trace('**************************************************','********************');
648:
641: pay_in_utils.trace('**************************************************','********************');
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
647: pay_in_utils.trace('**************************************************','********************');
648:
649: END IF;
642: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
647: pay_in_utils.trace('**************************************************','********************');
648:
649: END IF;
650:
643: pay_in_utils.trace('p_payroll_id ',to_char(p_payroll_id ));
644: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
645: pay_in_utils.trace('p_calculation_date ',to_char(p_calculation_date,'yyyy-mm-dd'));
646: pay_in_utils.trace('p_plan_category ',p_plan_category);
647: pay_in_utils.trace('**************************************************','********************');
648:
649: END IF;
650:
651: l_plan_id := get_accrual_plan ( p_assignment_id => p_assignment_id
666: ,p_accrual => l_accrual
667: ,p_net_entitlement => l_accrued_leave) ;
668:
669: IF g_debug THEN
670: pay_in_utils.trace('**************************************************','********************');
671: pay_in_utils.trace('l_accrued_leave ',to_char(l_accrued_leave));
672: pay_in_utils.trace('p_message ',p_message);
673: pay_in_utils.trace('**************************************************','********************');
674: END IF;
667: ,p_net_entitlement => l_accrued_leave) ;
668:
669: IF g_debug THEN
670: pay_in_utils.trace('**************************************************','********************');
671: pay_in_utils.trace('l_accrued_leave ',to_char(l_accrued_leave));
672: pay_in_utils.trace('p_message ',p_message);
673: pay_in_utils.trace('**************************************************','********************');
674: END IF;
675: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
668:
669: IF g_debug THEN
670: pay_in_utils.trace('**************************************************','********************');
671: pay_in_utils.trace('l_accrued_leave ',to_char(l_accrued_leave));
672: pay_in_utils.trace('p_message ',p_message);
673: pay_in_utils.trace('**************************************************','********************');
674: END IF;
675: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
676: RETURN l_accrued_leave;
669: IF g_debug THEN
670: pay_in_utils.trace('**************************************************','********************');
671: pay_in_utils.trace('l_accrued_leave ',to_char(l_accrued_leave));
672: pay_in_utils.trace('p_message ',p_message);
673: pay_in_utils.trace('**************************************************','********************');
674: END IF;
675: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
676: RETURN l_accrued_leave;
677: EXCEPTION
671: pay_in_utils.trace('l_accrued_leave ',to_char(l_accrued_leave));
672: pay_in_utils.trace('p_message ',p_message);
673: pay_in_utils.trace('**************************************************','********************');
674: END IF;
675: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
676: RETURN l_accrued_leave;
677: EXCEPTION
678: WHEN OTHERS THEN
679: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
675: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 20);
676: RETURN l_accrued_leave;
677: EXCEPTION
678: WHEN OTHERS THEN
679: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
680: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
681: hr_utility.trace(l_message);
682: RETURN NULL;
683:
676: RETURN l_accrued_leave;
677: EXCEPTION
678: WHEN OTHERS THEN
679: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
680: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
681: hr_utility.trace(l_message);
682: RETURN NULL;
683:
684:
721:
722: BEGIN
723: g_debug := hr_utility.debug_enabled;
724: l_procedure := g_package ||'get_period_number';
725: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
726:
727:
728: IF g_debug THEN
729: pay_in_utils.trace('**************************************************','********************');
725: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
726:
727:
728: IF g_debug THEN
729: pay_in_utils.trace('**************************************************','********************');
730: pay_in_utils.trace('p_payroll_id',to_char(p_payroll_id ));
731: pay_in_utils.trace('p_term_date ',to_char(p_term_date,'yyyy-mm-dd'));
732: pay_in_utils.trace('**************************************************','********************');
733: END IF;
726:
727:
728: IF g_debug THEN
729: pay_in_utils.trace('**************************************************','********************');
730: pay_in_utils.trace('p_payroll_id',to_char(p_payroll_id ));
731: pay_in_utils.trace('p_term_date ',to_char(p_term_date,'yyyy-mm-dd'));
732: pay_in_utils.trace('**************************************************','********************');
733: END IF;
734:
727:
728: IF g_debug THEN
729: pay_in_utils.trace('**************************************************','********************');
730: pay_in_utils.trace('p_payroll_id',to_char(p_payroll_id ));
731: pay_in_utils.trace('p_term_date ',to_char(p_term_date,'yyyy-mm-dd'));
732: pay_in_utils.trace('**************************************************','********************');
733: END IF;
734:
735: l_period_num := 12;
728: IF g_debug THEN
729: pay_in_utils.trace('**************************************************','********************');
730: pay_in_utils.trace('p_payroll_id',to_char(p_payroll_id ));
731: pay_in_utils.trace('p_term_date ',to_char(p_term_date,'yyyy-mm-dd'));
732: pay_in_utils.trace('**************************************************','********************');
733: END IF;
734:
735: l_period_num := 12;
736:
738: FETCH c_period_number INTO l_period_num;
739: CLOSE c_period_number;
740:
741: IF g_debug THEN
742: pay_in_utils.trace('l_period_num',to_char(l_period_num ));
743: END IF;
744:
745: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
746:
741: IF g_debug THEN
742: pay_in_utils.trace('l_period_num',to_char(l_period_num ));
743: END IF;
744:
745: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
746:
747: RETURN l_period_num;
748:
749: EXCEPTION
747: RETURN l_period_num;
748:
749: EXCEPTION
750: WHEN OTHERS THEN
751: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
752: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
753: hr_utility.trace(l_message);
754: RETURN NULL;
755:
748:
749: EXCEPTION
750: WHEN OTHERS THEN
751: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
752: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
753: hr_utility.trace(l_message);
754: RETURN NULL;
755:
756:
802:
803: BEGIN
804: g_debug := hr_utility.debug_enabled;
805: l_procedure := g_package ||'sec_80dd_percent';
806: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
807:
808:
809: IF g_debug THEN
810: pay_in_utils.trace('**************************************************','********************');
806: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
807:
808:
809: IF g_debug THEN
810: pay_in_utils.trace('**************************************************','********************');
811: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id ));
812: pay_in_utils.trace('p_date_earned ',to_char(p_date_earned,'yyyy-mm-dd'));
813: pay_in_utils.trace('**************************************************','********************');
814: END IF;
807:
808:
809: IF g_debug THEN
810: pay_in_utils.trace('**************************************************','********************');
811: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id ));
812: pay_in_utils.trace('p_date_earned ',to_char(p_date_earned,'yyyy-mm-dd'));
813: pay_in_utils.trace('**************************************************','********************');
814: END IF;
815:
808:
809: IF g_debug THEN
810: pay_in_utils.trace('**************************************************','********************');
811: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id ));
812: pay_in_utils.trace('p_date_earned ',to_char(p_date_earned,'yyyy-mm-dd'));
813: pay_in_utils.trace('**************************************************','********************');
814: END IF;
815:
816: OPEN c_80dd_80_percent;
809: IF g_debug THEN
810: pay_in_utils.trace('**************************************************','********************');
811: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id ));
812: pay_in_utils.trace('p_date_earned ',to_char(p_date_earned,'yyyy-mm-dd'));
813: pay_in_utils.trace('**************************************************','********************');
814: END IF;
815:
816: OPEN c_80dd_80_percent;
817: FETCH c_80dd_80_percent INTO l_80_percent;
818: CLOSE c_80dd_80_percent;
819:
820:
821: IF g_debug THEN
822: pay_in_utils.trace('l_80_percent',l_80_percent);
823: END IF;
824:
825: IF l_80_percent > 0 THEN
826: RETURN 'Y';
827: ELSE
828: RETURN 'N';
829: END IF;
830:
831: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
832:
833: END sec_80dd_percent;
834: --------------------------------------------------------------------------
835: -- --
889: BEGIN
890:
891: g_debug := hr_utility.debug_enabled ;
892: l_procedure := g_package||'check_father_husband_name' ;
893: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
894:
895: IF g_debug THEN
896: pay_in_utils.trace('**************************************************','********************');
897: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
892: l_procedure := g_package||'check_father_husband_name' ;
893: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
894:
895: IF g_debug THEN
896: pay_in_utils.trace('**************************************************','********************');
897: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
898: pay_in_utils.trace('p_effective_date ',to_char(p_effective_date,'yyyy-mm-dd'));
899: pay_in_utils.trace('**************************************************','********************');
900: END IF;
893: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
894:
895: IF g_debug THEN
896: pay_in_utils.trace('**************************************************','********************');
897: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
898: pay_in_utils.trace('p_effective_date ',to_char(p_effective_date,'yyyy-mm-dd'));
899: pay_in_utils.trace('**************************************************','********************');
900: END IF;
901:
894:
895: IF g_debug THEN
896: pay_in_utils.trace('**************************************************','********************');
897: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
898: pay_in_utils.trace('p_effective_date ',to_char(p_effective_date,'yyyy-mm-dd'));
899: pay_in_utils.trace('**************************************************','********************');
900: END IF;
901:
902: p_message_name := 'SUCCESS';
895: IF g_debug THEN
896: pay_in_utils.trace('**************************************************','********************');
897: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
898: pay_in_utils.trace('p_effective_date ',to_char(p_effective_date,'yyyy-mm-dd'));
899: pay_in_utils.trace('**************************************************','********************');
900: END IF;
901:
902: p_message_name := 'SUCCESS';
903: p_token_value:=NULL;
924: p_token_value := 'Spouse';
925: END IF;
926:
927: IF g_debug THEN
928: pay_in_utils.trace('**************************************************','********************');
929: pay_in_utils.trace('p_message_name ',p_message_name);
930: pay_in_utils.trace('p_token_value ',p_token_value);
931: pay_in_utils.trace('**************************************************','********************');
932: END IF;
925: END IF;
926:
927: IF g_debug THEN
928: pay_in_utils.trace('**************************************************','********************');
929: pay_in_utils.trace('p_message_name ',p_message_name);
930: pay_in_utils.trace('p_token_value ',p_token_value);
931: pay_in_utils.trace('**************************************************','********************');
932: END IF;
933: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
926:
927: IF g_debug THEN
928: pay_in_utils.trace('**************************************************','********************');
929: pay_in_utils.trace('p_message_name ',p_message_name);
930: pay_in_utils.trace('p_token_value ',p_token_value);
931: pay_in_utils.trace('**************************************************','********************');
932: END IF;
933: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
934: RETURN;
927: IF g_debug THEN
928: pay_in_utils.trace('**************************************************','********************');
929: pay_in_utils.trace('p_message_name ',p_message_name);
930: pay_in_utils.trace('p_token_value ',p_token_value);
931: pay_in_utils.trace('**************************************************','********************');
932: END IF;
933: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
934: RETURN;
935:
929: pay_in_utils.trace('p_message_name ',p_message_name);
930: pay_in_utils.trace('p_token_value ',p_token_value);
931: pay_in_utils.trace('**************************************************','********************');
932: END IF;
933: pay_in_utils.set_location(g_debug,'Leaving: '||l_procedure,20);
934: RETURN;
935:
936: END check_father_husband_name;
937: --------------------------------------------------------------------------
960: ,p_gre IN NUMBER
961: ,p_pf IN NUMBER
962: ,p_esi IN NUMBER
963: ,p_message OUT NOCOPY VARCHAR2
964: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
965: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
966: )
967: IS
968: -- The cursor to obtain the maximum payroll run date for an assignment in a BG.
961: ,p_pf IN NUMBER
962: ,p_esi IN NUMBER
963: ,p_message OUT NOCOPY VARCHAR2
964: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
965: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type
966: )
967: IS
968: -- The cursor to obtain the maximum payroll run date for an assignment in a BG.
969: CURSOR c_max_pay_date
1054:
1055: BEGIN
1056: g_debug := hr_utility.debug_enabled;
1057: l_procedure := g_package ||'check_gre_update';
1058: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1059:
1060:
1061: IF g_debug THEN
1062: pay_in_utils.trace('**************************************************','********************');
1058: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1059:
1060:
1061: IF g_debug THEN
1062: pay_in_utils.trace('**************************************************','********************');
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1059:
1060:
1061: IF g_debug THEN
1062: pay_in_utils.trace('**************************************************','********************');
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1060:
1061: IF g_debug THEN
1062: pay_in_utils.trace('**************************************************','********************');
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1061: IF g_debug THEN
1062: pay_in_utils.trace('**************************************************','********************');
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1062: pay_in_utils.trace('**************************************************','********************');
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1063: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1064: pay_in_utils.trace('p_dt_mode ',p_dt_mode);
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1072: pay_in_utils.trace('**************************************************','********************');
1065: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1072: pay_in_utils.trace('**************************************************','********************');
1073: END IF;
1066: pay_in_utils.trace('p_gre_org ',p_gre_org);
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1072: pay_in_utils.trace('**************************************************','********************');
1073: END IF;
1074:
1067: pay_in_utils.trace('p_pf_org ',p_pf_org );
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1072: pay_in_utils.trace('**************************************************','********************');
1073: END IF;
1074:
1075: OPEN c_max_pay_date;
1068: pay_in_utils.trace('p_esi_org ',p_esi_org);
1069: pay_in_utils.trace('p_gre ',to_char(p_gre));
1070: pay_in_utils.trace('p_pf ',to_char(p_pf));
1071: pay_in_utils.trace('p_esi ',to_char(p_esi));
1072: pay_in_utils.trace('**************************************************','********************');
1073: END IF;
1074:
1075: OPEN c_max_pay_date;
1076: FETCH c_max_pay_date INTO l_max_date_earned;
1128: p_token_name(1) := 'ORG';
1129: p_token_value(1) := hr_general.decode_lookup('IN_MESSAGE_TOKENS','ESI_ORG');
1130: ELSE
1131: IF g_debug THEN
1132: pay_in_utils.trace('p_message ',p_message);
1133: END IF;
1134: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1135: RETURN;
1136: END IF;
1130: ELSE
1131: IF g_debug THEN
1132: pay_in_utils.trace('p_message ',p_message);
1133: END IF;
1134: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1135: RETURN;
1136: END IF;
1137: ELSIF (l_count > 2)
1138: THEN
1153: CLOSE c_flag;
1154:
1155: IF (l_flag IS NULL) THEN
1156: IF g_debug THEN
1157: pay_in_utils.trace('p_message ',p_message );
1158: END IF;
1159: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,30);
1160: RETURN;
1161: ELSE
1155: IF (l_flag IS NULL) THEN
1156: IF g_debug THEN
1157: pay_in_utils.trace('p_message ',p_message );
1158: END IF;
1159: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,30);
1160: RETURN;
1161: ELSE
1162: p_message := 'PER_IN_GRE_CHANGE_FORBIDDEN';
1163: END IF;
1165: p_message := 'PER_IN_GRE_CHANGE_FORBIDDEN';
1166: END IF;
1167: ELSE
1168: IF g_debug THEN
1169: pay_in_utils.trace('p_message ',p_message );
1170: END IF;
1171: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,40);
1172: RETURN;
1173: END IF;
1167: ELSE
1168: IF g_debug THEN
1169: pay_in_utils.trace('p_message ',p_message );
1170: END IF;
1171: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,40);
1172: RETURN;
1173: END IF;
1174:
1175: END check_gre_update;
1189: --------------------------------------------------------------------------
1190: -- Rev# Date Userid Description --
1191: --------------------------------------------------------------------------
1192: -- 1.0 05-Dec-04 statkar Created this function --
1193: -- 1.1 27-Dec-04 lnagaraj Used pay_in_utils.chk_element_link --
1194: -- 1.2 24-Mar-05 aaagarwa Modified cursor c_pf --
1195: -- 1.3 10-Apr-05 abhjain Removed the automatic element entry code --
1196: -- 1.4 25-Jul-05 snekkala Removed check for PF organization --
1197: -- 1.5 18-Aug-05 abhjain Commented the call to check_father_husband_name--
1216:
1217: BEGIN
1218: g_debug := hr_utility.debug_enabled;
1219: l_procedure := g_package ||'check_pf_update';
1220: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
1221:
1222: IF g_debug THEN
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1219: l_procedure := g_package ||'check_pf_update';
1220: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
1221:
1222: IF g_debug THEN
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1220: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure,10);
1221:
1222: IF g_debug THEN
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1221:
1222: IF g_debug THEN
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1222: IF g_debug THEN
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1223: pay_in_utils.trace('**************************************************','********************');
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1224: pay_in_utils.trace('p_effective_date',to_char(p_effective_date,'yyyy-mm-dd'));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1225: pay_in_utils.trace('p_dt_mode ',p_dt_mode );
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1233: pay_in_utils.trace('**************************************************','********************');
1226: pay_in_utils.trace('p_assignment_id',to_char(p_assignment_id));
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1233: pay_in_utils.trace('**************************************************','********************');
1234: END IF;
1227: pay_in_utils.trace('p_gre_org ',p_gre_org );
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1233: pay_in_utils.trace('**************************************************','********************');
1234: END IF;
1235:
1228: pay_in_utils.trace('p_pf_org ',p_pf_org );
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1233: pay_in_utils.trace('**************************************************','********************');
1234: END IF;
1235:
1236: l_message_name:='SUCCESS';
1229: pay_in_utils.trace('p_esi_org ',p_esi_org );
1230: pay_in_utils.trace('p_gre ',to_char(p_gre));
1231: pay_in_utils.trace('p_pf ',to_char(p_pf));
1232: pay_in_utils.trace('p_esi ',to_char(p_esi));
1233: pay_in_utils.trace('**************************************************','********************');
1234: END IF;
1235:
1236: l_message_name:='SUCCESS';
1237: pay_in_utils.null_message(p_token_name, p_token_value);
1233: pay_in_utils.trace('**************************************************','********************');
1234: END IF;
1235:
1236: l_message_name:='SUCCESS';
1237: pay_in_utils.null_message(p_token_name, p_token_value);
1238: /*
1239: check_father_husband_name
1240: (p_assignment_id =>p_assignment_id
1241: ,p_effective_date =>p_effective_date
1266: ,p_token_value => p_token_value
1267: );
1268:
1269: IF l_message_name <> 'SUCCESS' THEN
1270: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
1271: END IF;
1272:
1273: IF g_debug THEN
1274: pay_in_utils.trace('p_message',p_message);
1270: pay_in_utils.raise_message(800, l_message_name, p_token_name, p_token_value);
1271: END IF;
1272:
1273: IF g_debug THEN
1274: pay_in_utils.trace('p_message',p_message);
1275: END IF;
1276:
1277: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,170);
1278:
1273: IF g_debug THEN
1274: pay_in_utils.trace('p_message',p_message);
1275: END IF;
1276:
1277: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure,170);
1278:
1279: END check_pf_update;
1280:
1281: --------------------------------------------------------------------------
1296: --------------------------------------------------------------------------
1297: -- 1.0 05-Dec-04 statkar Created this function --
1298: -- 1.1 14-Dec-04 aaagarwa Added code for deleting ESI element entry --
1299: -- when payroll has not been run. --
1300: -- 1.2 27-Dec-04 lnagaraj Used pay_in_utils.chk_element_link --
1301: -- 1.3 24-Mar-05 aaagarwa Modified the cursor c_esi --
1302: -- 1.4 10-Apr-05 abhjain NULLed out the procedure --
1303: --------------------------------------------------------------------------
1304: PROCEDURE check_esi_update
1368:
1369: BEGIN
1370: g_debug := hr_utility.debug_enabled;
1371: l_procedure := g_package ||'in_reset_input_values';
1372: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1373:
1374:
1375: IF g_debug THEN
1376: pay_in_utils.trace('**************************************************','********************');
1372: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1373:
1374:
1375: IF g_debug THEN
1376: pay_in_utils.trace('**************************************************','********************');
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1373:
1374:
1375: IF g_debug THEN
1376: pay_in_utils.trace('**************************************************','********************');
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1374:
1375: IF g_debug THEN
1376: pay_in_utils.trace('**************************************************','********************');
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1375: IF g_debug THEN
1376: pay_in_utils.trace('**************************************************','********************');
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1383: pay_in_utils.trace('**************************************************','********************');
1376: pay_in_utils.trace('**************************************************','********************');
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1383: pay_in_utils.trace('**************************************************','********************');
1384: END IF;
1377: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id ));
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1383: pay_in_utils.trace('**************************************************','********************');
1384: END IF;
1385:
1378: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1383: pay_in_utils.trace('**************************************************','********************');
1384: END IF;
1385:
1386: OPEN c_ovn;
1379: pay_in_utils.trace('p_element_type_id ',to_char(p_element_type_id ));
1380: pay_in_utils.trace('p_element_entry_id ',to_char(p_element_entry_id ));
1381: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1382: pay_in_utils.trace('p_input_value ',p_input_value);
1383: pay_in_utils.trace('**************************************************','********************');
1384: END IF;
1385:
1386: OPEN c_ovn;
1387: FETCH c_ovn INTO l_ovn;
1404: ,p_update_warning => l_warning
1405: );
1406:
1407: IF g_debug THEN
1408: pay_in_utils.trace('1','1');
1409: END IF;
1410:
1411: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1412:
1407: IF g_debug THEN
1408: pay_in_utils.trace('1','1');
1409: END IF;
1410:
1411: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1412:
1413: RETURN 1;
1414: EXCEPTION
1415: When OTHERS THEN
1414: EXCEPTION
1415: When OTHERS THEN
1416: BEGIN
1417: IF g_debug THEN
1418: pay_in_utils.trace('0','0');
1419: END IF;
1420:
1421: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1422:
1417: IF g_debug THEN
1418: pay_in_utils.trace('0','0');
1419: END IF;
1420:
1421: pay_in_utils.set_location(g_debug,'LEAVING: '||l_procedure,20);
1422:
1423: RETURN 0;
1424: END;
1425: END in_reset_input_values;
1440: PROCEDURE check_pf_location
1441: (p_organization_id IN NUMBER
1442: ,p_calling_procedure IN VARCHAR2
1443: ,p_message_name OUT NOCOPY VARCHAR2
1444: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1445: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
1446: IS
1447: l_procedure VARCHAR2(100);
1448:
1441: (p_organization_id IN NUMBER
1442: ,p_calling_procedure IN VARCHAR2
1443: ,p_message_name OUT NOCOPY VARCHAR2
1444: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
1445: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
1446: IS
1447: l_procedure VARCHAR2(100);
1448:
1449: CURSOR csr_loc IS
1455:
1456: BEGIN
1457: g_debug := hr_utility.debug_enabled;
1458: l_procedure := g_package ||'check_pf_location';
1459: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1460:
1461: p_message_name := 'SUCCESS';
1462: pay_in_utils.null_message(p_token_name, p_token_value);
1463:
1458: l_procedure := g_package ||'check_pf_location';
1459: pay_in_utils.set_location(g_debug,'Entering: '||l_procedure,10);
1460:
1461: p_message_name := 'SUCCESS';
1462: pay_in_utils.null_message(p_token_name, p_token_value);
1463:
1464:
1465: IF g_debug THEN
1466: pay_in_utils.trace('**************************************************','********************');
1462: pay_in_utils.null_message(p_token_name, p_token_value);
1463:
1464:
1465: IF g_debug THEN
1466: pay_in_utils.trace('**************************************************','********************');
1467: pay_in_utils.trace('p_organization_id ',to_char(p_organization_id));
1468: pay_in_utils.trace('p_calling_procedure',p_calling_procedure);
1469: pay_in_utils.trace('**************************************************','********************');
1470: END IF;
1463:
1464:
1465: IF g_debug THEN
1466: pay_in_utils.trace('**************************************************','********************');
1467: pay_in_utils.trace('p_organization_id ',to_char(p_organization_id));
1468: pay_in_utils.trace('p_calling_procedure',p_calling_procedure);
1469: pay_in_utils.trace('**************************************************','********************');
1470: END IF;
1471:
1464:
1465: IF g_debug THEN
1466: pay_in_utils.trace('**************************************************','********************');
1467: pay_in_utils.trace('p_organization_id ',to_char(p_organization_id));
1468: pay_in_utils.trace('p_calling_procedure',p_calling_procedure);
1469: pay_in_utils.trace('**************************************************','********************');
1470: END IF;
1471:
1472: OPEN csr_loc ;
1465: IF g_debug THEN
1466: pay_in_utils.trace('**************************************************','********************');
1467: pay_in_utils.trace('p_organization_id ',to_char(p_organization_id));
1468: pay_in_utils.trace('p_calling_procedure',p_calling_procedure);
1469: pay_in_utils.trace('**************************************************','********************');
1470: END IF;
1471:
1472: OPEN csr_loc ;
1473: FETCH csr_loc
1471:
1472: OPEN csr_loc ;
1473: FETCH csr_loc
1474: INTO l_location_id;
1475: pay_in_utils.set_location(g_debug,l_procedure,20);
1476:
1477: IF l_location_id IS NULL THEN
1478: CLOSE csr_loc;
1479: pay_in_utils.set_location(g_debug,l_procedure,30);
1475: pay_in_utils.set_location(g_debug,l_procedure,20);
1476:
1477: IF l_location_id IS NULL THEN
1478: CLOSE csr_loc;
1479: pay_in_utils.set_location(g_debug,l_procedure,30);
1480: p_message_name := 'PER_IN_NO_STATE_ENTERED';
1481: RETURN;
1482: END IF;
1483: CLOSE csr_loc;
1482: END IF;
1483: CLOSE csr_loc;
1484:
1485: IF g_debug THEN
1486: pay_in_utils.trace('p_message_name ',p_message_name );
1487: END IF;
1488: pay_in_utils.set_location(g_debug,l_procedure,40);
1489: RETURN;
1490:
1484:
1485: IF g_debug THEN
1486: pay_in_utils.trace('p_message_name ',p_message_name );
1487: END IF;
1488: pay_in_utils.set_location(g_debug,l_procedure,40);
1489: RETURN;
1490:
1491: EXCEPTION
1492: WHEN OTHERS THEN
1532: l_procedure VARCHAR2(100);
1533: BEGIN
1534: l_procedure := g_package||'get_lwf_state';
1535: g_debug := hr_utility.debug_enabled;
1536: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1537: OPEN csr_state ;
1538: FETCH csr_state INTO l_state;
1539: pay_in_utils.set_location (g_debug,'l_state = '||l_state,20);
1540: CLOSE csr_state;
1535: g_debug := hr_utility.debug_enabled;
1536: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1537: OPEN csr_state ;
1538: FETCH csr_state INTO l_state;
1539: pay_in_utils.set_location (g_debug,'l_state = '||l_state,20);
1540: CLOSE csr_state;
1541: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
1542: RETURN l_state;
1543: EXCEPTION
1537: OPEN csr_state ;
1538: FETCH csr_state INTO l_state;
1539: pay_in_utils.set_location (g_debug,'l_state = '||l_state,20);
1540: CLOSE csr_state;
1541: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
1542: RETURN l_state;
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1541: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
1542: RETURN l_state;
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1546: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 40);
1547: hr_utility.trace(l_message);
1548: RETURN NULL;
1549: END get_lwf_state;
1542: RETURN l_state;
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1546: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 40);
1547: hr_utility.trace(l_message);
1548: RETURN NULL;
1549: END get_lwf_state;
1550:
1595: BEGIN
1596:
1597: l_procedure := g_package||'get_org_id';
1598: g_debug := hr_utility.debug_enabled;
1599: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1600:
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1598: g_debug := hr_utility.debug_enabled;
1599: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1600:
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1599: pay_in_utils.set_location(g_debug,'Entering : '||l_procedure, 10);
1600:
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1607: pay_in_utils.trace('**************************************************','********************');
1600:
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1607: pay_in_utils.trace('**************************************************','********************');
1608: END IF;
1601: IF g_debug THEN
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1607: pay_in_utils.trace('**************************************************','********************');
1608: END IF;
1609:
1602: pay_in_utils.trace('**************************************************','********************');
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1607: pay_in_utils.trace('**************************************************','********************');
1608: END IF;
1609:
1610: OPEN cur_org (p_assignment_id
1603: pay_in_utils.trace('p_assignment_id ',to_char(p_assignment_id));
1604: pay_in_utils.trace('p_business_group_id',to_char(p_business_group_id));
1605: pay_in_utils.trace('p_date ',to_char(p_date,'yyyy-mm-dd'));
1606: pay_in_utils.trace('p_org_type ',p_org_type );
1607: pay_in_utils.trace('**************************************************','********************');
1608: END IF;
1609:
1610: OPEN cur_org (p_assignment_id
1611: ,p_business_group_id
1612: ,p_date);
1613: FETCH cur_org into l_segment2
1614: ,l_segment3
1615: ,l_segment4;
1616: pay_in_utils.set_location (g_debug,'l_segment2 = '||l_segment2,20);
1617: pay_in_utils.set_location (g_debug,'l_segment3 = '||l_segment3,30);
1618: pay_in_utils.set_location (g_debug,'l_segment4 = '||l_segment4,40);
1619: CLOSE cur_org;
1620:
1613: FETCH cur_org into l_segment2
1614: ,l_segment3
1615: ,l_segment4;
1616: pay_in_utils.set_location (g_debug,'l_segment2 = '||l_segment2,20);
1617: pay_in_utils.set_location (g_debug,'l_segment3 = '||l_segment3,30);
1618: pay_in_utils.set_location (g_debug,'l_segment4 = '||l_segment4,40);
1619: CLOSE cur_org;
1620:
1621: IF p_org_type = 'PF' THEN
1614: ,l_segment3
1615: ,l_segment4;
1616: pay_in_utils.set_location (g_debug,'l_segment2 = '||l_segment2,20);
1617: pay_in_utils.set_location (g_debug,'l_segment3 = '||l_segment3,30);
1618: pay_in_utils.set_location (g_debug,'l_segment4 = '||l_segment4,40);
1619: CLOSE cur_org;
1620:
1621: IF p_org_type = 'PF' THEN
1622: return to_number(l_segment2);
1625: ELSIF p_org_type = 'ESI' THEN
1626: return to_number(l_segment4);
1627: END IF;
1628:
1629: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
1630:
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1629: pay_in_utils.set_location(g_debug,'Leaving : '||l_procedure, 30);
1630:
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1634: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 30);
1635: hr_utility.trace(l_message);
1636: RETURN NULL;
1637:
1630:
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: l_message := pay_in_utils.get_pay_message('PER_IN_ORACLE_GENERIC_ERROR', 'FUNCTION:'||l_procedure, 'SQLERRMC:'||sqlerrm);
1634: pay_in_utils.set_location(g_debug,' Leaving : '||l_procedure, 30);
1635: hr_utility.trace(l_message);
1636: RETURN NULL;
1637:
1638: