1: PACKAGE BODY pay_ac_utility as
2: /* $Header: pyacutil.pkb 120.2 2005/12/01 08:45 sdahiya noship $ */
3:
4: /*********************************************************************
5: ** Name : get_defined_balance_id
183: BEGIN
184:
185: ln_found := 0;
186:
187: if pay_ac_utility.bal_tbl.count > 0 then
188:
189: for i in pay_ac_utility.bal_tbl.first .. pay_ac_utility.bal_tbl.last
190: loop
191:
185: ln_found := 0;
186:
187: if pay_ac_utility.bal_tbl.count > 0 then
188:
189: for i in pay_ac_utility.bal_tbl.first .. pay_ac_utility.bal_tbl.last
190: loop
191:
192: if pay_ac_utility.bal_tbl(i).bal_type_id = p_balance_type_id then
193:
188:
189: for i in pay_ac_utility.bal_tbl.first .. pay_ac_utility.bal_tbl.last
190: loop
191:
192: if pay_ac_utility.bal_tbl(i).bal_type_id = p_balance_type_id then
193:
194: lv_balance_name := pay_ac_utility.bal_tbl(i).bal_name;
195: lv_reporting_name := pay_ac_utility.bal_tbl(i).bal_rep_name;
196: ln_found := 1;
190: loop
191:
192: if pay_ac_utility.bal_tbl(i).bal_type_id = p_balance_type_id then
193:
194: lv_balance_name := pay_ac_utility.bal_tbl(i).bal_name;
195: lv_reporting_name := pay_ac_utility.bal_tbl(i).bal_rep_name;
196: ln_found := 1;
197:
198: end if;
191:
192: if pay_ac_utility.bal_tbl(i).bal_type_id = p_balance_type_id then
193:
194: lv_balance_name := pay_ac_utility.bal_tbl(i).bal_name;
195: lv_reporting_name := pay_ac_utility.bal_tbl(i).bal_rep_name;
196: ln_found := 1;
197:
198: end if;
199:
206: open csr_balance(p_balance_type_id);
207: fetch csr_balance into lv_balance_name, lv_reporting_name;
208: close csr_balance;
209:
210: ln_index := pay_ac_utility.bal_tbl.count;
211:
212: pay_ac_utility.bal_tbl(ln_index).bal_type_id := p_balance_type_id;
213: pay_ac_utility.bal_tbl(ln_index).bal_name := lv_balance_name;
214: pay_ac_utility.bal_tbl(ln_index).bal_rep_name := lv_reporting_name;
208: close csr_balance;
209:
210: ln_index := pay_ac_utility.bal_tbl.count;
211:
212: pay_ac_utility.bal_tbl(ln_index).bal_type_id := p_balance_type_id;
213: pay_ac_utility.bal_tbl(ln_index).bal_name := lv_balance_name;
214: pay_ac_utility.bal_tbl(ln_index).bal_rep_name := lv_reporting_name;
215:
216: end if;
209:
210: ln_index := pay_ac_utility.bal_tbl.count;
211:
212: pay_ac_utility.bal_tbl(ln_index).bal_type_id := p_balance_type_id;
213: pay_ac_utility.bal_tbl(ln_index).bal_name := lv_balance_name;
214: pay_ac_utility.bal_tbl(ln_index).bal_rep_name := lv_reporting_name;
215:
216: end if;
217:
210: ln_index := pay_ac_utility.bal_tbl.count;
211:
212: pay_ac_utility.bal_tbl(ln_index).bal_type_id := p_balance_type_id;
213: pay_ac_utility.bal_tbl(ln_index).bal_name := lv_balance_name;
214: pay_ac_utility.bal_tbl(ln_index).bal_rep_name := lv_reporting_name;
215:
216: end if;
217:
218: if p_desc_type = 'R' then
282: ln_value NUMBER;
283:
284: BEGIN
285:
286: hr_utility.trace('Entering pay_ac_utility.get_value with Bal Type ID');
287: hr_utility.trace('p_balance_type_id: '||p_balance_type_id);
288: hr_utility.trace('p_dimension_name: '||p_dimension_name);
289: hr_utility.trace('p_bus_grp_id: '||p_bus_grp_id);
290: hr_utility.trace('p_legislation_cd: '||p_legislation_cd);
311: ln_value := NULL;
312: end if;
313:
314: hr_utility.trace('ln_value: '||ln_value);
315: hr_utility.trace('Leaving pay_ac_utility.get_value with Bal Type ID');
316:
317: return ln_value;
318:
319: END get_value;
330: ln_balance_type_id NUMBER;
331: ln_value NUMBER;
332: BEGIN
333:
334: hr_utility.trace('Entering pay_ac_utility.get_value with Bal Type Name');
335: hr_utility.trace('p_balance_name: '||p_balance_name);
336: hr_utility.trace('p_dimension_name: '||p_dimension_name);
337: hr_utility.trace('p_bus_grp_id: '||p_bus_grp_id);
338: hr_utility.trace('p_legislation_cd: '||p_legislation_cd);
353: ,p_tax_unit_id => p_tax_unit_id
354: ,p_date_paid => p_date_paid);
355:
356: hr_utility.trace('ln_value: '||ln_value);
357: hr_utility.trace('Leaving pay_ac_utility.get_value with Bal Type Name');
358:
359: return ln_value;
360:
361: END get_value;
515: WHEN NO_DATA_FOUND THEN
516: hr_utility.trace('BLOB contents end.');
517: END print_lob;
518:
519: end pay_ac_utility;