50: p_curr_code IN VARCHAR2) RETURN NUMBER IS
51: l_value number;
52: begin
53:
54: -- arp_standard.debug('rounding amount ' || p_amount || ' for curr ' || p_curr_code);
55:
56: select round(p_amount, fc.precision)
57: into l_value
58: from fnd_currencies_vl fc
338:
339: else
340:
341: /*
342: -- arp_standard.enable_file_debug('/sqlcom/out/aroa55n','osteinme_oie');
343:
344: -- arp_standard.debug('get_meaningful_value()+');
345:
346: l_success_flag := get_oie_responsibility(p_userid, l_oie_resp_id);
340:
341: /*
342: -- arp_standard.enable_file_debug('/sqlcom/out/aroa55n','osteinme_oie');
343:
344: -- arp_standard.debug('get_meaningful_value()+');
345:
346: l_success_flag := get_oie_responsibility(p_userid, l_oie_resp_id);
347:
348: -- arp_standard.debug('resp_id = ' || to_char(l_oie_resp_id));
344: -- arp_standard.debug('get_meaningful_value()+');
345:
346: l_success_flag := get_oie_responsibility(p_userid, l_oie_resp_id);
347:
348: -- arp_standard.debug('resp_id = ' || to_char(l_oie_resp_id));
349: -- arp_standard.debug('success = ' || l_success_flag);
350:
351: if (l_success_flag = 'N') then
352: p_success_flag := 'N';
345:
346: l_success_flag := get_oie_responsibility(p_userid, l_oie_resp_id);
347:
348: -- arp_standard.debug('resp_id = ' || to_char(l_oie_resp_id));
349: -- arp_standard.debug('success = ' || l_success_flag);
350:
351: if (l_success_flag = 'N') then
352: p_success_flag := 'N';
353: return;
354: end if;
355:
356: l_success_flag := get_oie_org_id(p_userid, l_oie_resp_id, l_org_id);
357:
358: -- arp_standard.debug('org_id = ' || to_char(l_org_id));
359: -- arp_standard.debug('success = ' || l_success_flag);
360: */
361: BEGIN
362: IF NOT (AP_WEB_DB_HR_INT_PKG.GetEmpIdForUser(p_userid, l_employee_id)) THEN
355:
356: l_success_flag := get_oie_org_id(p_userid, l_oie_resp_id, l_org_id);
357:
358: -- arp_standard.debug('org_id = ' || to_char(l_org_id));
359: -- arp_standard.debug('success = ' || l_success_flag);
360: */
361: BEGIN
362: IF NOT (AP_WEB_DB_HR_INT_PKG.GetEmpIdForUser(p_userid, l_employee_id)) THEN
363: p_success_flag := 'N';
405:
406: l_success_flag := get_ap_setup_data(l_org_id, l_func_curr_code, l_sob_id, l_exchange_rate_type);
407: END IF;
408:
409: -- arp_standard.debug('sob_id = ' || to_char(l_sob_id));
410: -- arp_standard.debug('func curr = ' || l_func_curr_code);
411: -- arp_standard.debug('def exch type = ' || l_exchange_rate_type);
412:
413: -- arp_standard.debug('success = ' || l_success_flag);
406: l_success_flag := get_ap_setup_data(l_org_id, l_func_curr_code, l_sob_id, l_exchange_rate_type);
407: END IF;
408:
409: -- arp_standard.debug('sob_id = ' || to_char(l_sob_id));
410: -- arp_standard.debug('func curr = ' || l_func_curr_code);
411: -- arp_standard.debug('def exch type = ' || l_exchange_rate_type);
412:
413: -- arp_standard.debug('success = ' || l_success_flag);
414:
407: END IF;
408:
409: -- arp_standard.debug('sob_id = ' || to_char(l_sob_id));
410: -- arp_standard.debug('func curr = ' || l_func_curr_code);
411: -- arp_standard.debug('def exch type = ' || l_exchange_rate_type);
412:
413: -- arp_standard.debug('success = ' || l_success_flag);
414:
415:
409: -- arp_standard.debug('sob_id = ' || to_char(l_sob_id));
410: -- arp_standard.debug('func curr = ' || l_func_curr_code);
411: -- arp_standard.debug('def exch type = ' || l_exchange_rate_type);
412:
413: -- arp_standard.debug('success = ' || l_success_flag);
414:
415:
416: if (l_success_flag = 'N') then
417: p_success_flag := 'N';
435: l_exchange_rate_type,
436: l_exchange_rate);
437:
438:
439: -- arp_standard.debug('rate = ' || to_char(l_exchange_rate));
440: -- arp_standard.debug('success = ' || l_success_flag);
441:
442: if (l_success_flag = 'N') then
443: p_success_flag := 'N';
436: l_exchange_rate);
437:
438:
439: -- arp_standard.debug('rate = ' || to_char(l_exchange_rate));
440: -- arp_standard.debug('success = ' || l_success_flag);
441:
442: if (l_success_flag = 'N') then
443: p_success_flag := 'N';
444: return;