1: PACKAGE BODY pay_ac_util AS
2: /* $Header: pyacdisc.pkb 115.1 2004/02/16 16:03:59 vpandya noship $ */
3: /*
4: ******************************************************************
5: * *
16: * 500 Oracle Parkway, Redwood City, CA, 94065. *
17: * *
18: ******************************************************************
19:
20: Name : pay_ac_util
21:
22: Description : Package contains functions and procedures used
23: by Discoverer
24:
345: -- hr_utility.trace_on(null,'DEFBAL');
346: hr_utility.trace('p_balance_name : '||p_balance_name);
347: hr_utility.trace('p_legislation_code : '||p_legislation_code);
348:
349: ln_index := pay_ac_util.ltr_def_bal.count;
350:
351: ln_step := 1;
352:
353: if ln_index = 0 then
376: for defbal in c_def_bal(lv_balance_name(i), p_legislation_code)
377: loop
378: hr_utility.trace('Balance Name : '||defbal.balance_name);
379: ln_step := 4;
380: pay_ac_util.ltr_def_bal(ln_index).balance_name
381: := defbal.balance_name;
382: pay_ac_util.ltr_def_bal(ln_index).legislation_code
383: := defbal.legislation_code;
384: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
378: hr_utility.trace('Balance Name : '||defbal.balance_name);
379: ln_step := 4;
380: pay_ac_util.ltr_def_bal(ln_index).balance_name
381: := defbal.balance_name;
382: pay_ac_util.ltr_def_bal(ln_index).legislation_code
383: := defbal.legislation_code;
384: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
385: := defbal.defined_balance_id;
386: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
380: pay_ac_util.ltr_def_bal(ln_index).balance_name
381: := defbal.balance_name;
382: pay_ac_util.ltr_def_bal(ln_index).legislation_code
383: := defbal.legislation_code;
384: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
385: := defbal.defined_balance_id;
386: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
387: := defbal.balance_type_id;
388: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
382: pay_ac_util.ltr_def_bal(ln_index).legislation_code
383: := defbal.legislation_code;
384: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
385: := defbal.defined_balance_id;
386: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
387: := defbal.balance_type_id;
388: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
389: := defbal.balance_dimension_id;
390:
384: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
385: := defbal.defined_balance_id;
386: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
387: := defbal.balance_type_id;
388: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
389: := defbal.balance_dimension_id;
390:
391: ln_index := ln_index + 1;
392: end loop;
394: end if;
395:
396: ln_step := 5;
397: if ln_index > 0 then
398: for i in pay_ac_util.ltr_def_bal.first ..
399: pay_ac_util.ltr_def_bal.last
400: loop
401: ln_step := 6;
402: if pay_ac_util.ltr_def_bal(i).balance_name =
395:
396: ln_step := 5;
397: if ln_index > 0 then
398: for i in pay_ac_util.ltr_def_bal.first ..
399: pay_ac_util.ltr_def_bal.last
400: loop
401: ln_step := 6;
402: if pay_ac_util.ltr_def_bal(i).balance_name =
403: p_balance_name and
398: for i in pay_ac_util.ltr_def_bal.first ..
399: pay_ac_util.ltr_def_bal.last
400: loop
401: ln_step := 6;
402: if pay_ac_util.ltr_def_bal(i).balance_name =
403: p_balance_name and
404: pay_ac_util.ltr_def_bal(i).legislation_code =
405: p_legislation_code
406: then
400: loop
401: ln_step := 6;
402: if pay_ac_util.ltr_def_bal(i).balance_name =
403: p_balance_name and
404: pay_ac_util.ltr_def_bal(i).legislation_code =
405: p_legislation_code
406: then
407: ln_step := 7;
408: hr_utility.trace(p_balance_name ||' ' ||
405: p_legislation_code
406: then
407: ln_step := 7;
408: hr_utility.trace(p_balance_name ||' ' ||
409: pay_ac_util.ltr_def_bal(i).defined_balance_id);
410: return pay_ac_util.ltr_def_bal(i).defined_balance_id;
411: end if;
412: end loop;
413: end if;
406: then
407: ln_step := 7;
408: hr_utility.trace(p_balance_name ||' ' ||
409: pay_ac_util.ltr_def_bal(i).defined_balance_id);
410: return pay_ac_util.ltr_def_bal(i).defined_balance_id;
411: end if;
412: end loop;
413: end if;
414:
415: ln_step := 8;
416: for defbal in c_def_bal(p_balance_name, p_legislation_code)
417: loop
418: ln_step := 9;
419: pay_ac_util.ltr_def_bal(ln_index).balance_name
420: := defbal.balance_name;
421: pay_ac_util.ltr_def_bal(ln_index).legislation_code
422: := defbal.legislation_code;
423: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
417: loop
418: ln_step := 9;
419: pay_ac_util.ltr_def_bal(ln_index).balance_name
420: := defbal.balance_name;
421: pay_ac_util.ltr_def_bal(ln_index).legislation_code
422: := defbal.legislation_code;
423: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
424: := defbal.defined_balance_id;
425: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
419: pay_ac_util.ltr_def_bal(ln_index).balance_name
420: := defbal.balance_name;
421: pay_ac_util.ltr_def_bal(ln_index).legislation_code
422: := defbal.legislation_code;
423: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
424: := defbal.defined_balance_id;
425: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
426: := defbal.balance_type_id;
427: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
421: pay_ac_util.ltr_def_bal(ln_index).legislation_code
422: := defbal.legislation_code;
423: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
424: := defbal.defined_balance_id;
425: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
426: := defbal.balance_type_id;
427: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
428: := defbal.balance_dimension_id;
429:
423: pay_ac_util.ltr_def_bal(ln_index).defined_balance_id
424: := defbal.defined_balance_id;
425: pay_ac_util.ltr_def_bal(ln_index).balance_type_id
426: := defbal.balance_type_id;
427: pay_ac_util.ltr_def_bal(ln_index).balance_dimension_id
428: := defbal.balance_dimension_id;
429:
430: ln_defined_balance_id := defbal.defined_balance_id;
431:
479: --Begin
480: --hr_utility.trace_on(null,'ACDIS');
481:
482:
483: end pay_ac_util;