[Home] [Help]
1: PACKAGE BODY jai_cmn_utils_pkg AS
2: /* $Header: jai_cmn_utils.plb 120.13.12020000.6 2013/03/15 13:29:22 mmurtuza ship $ */
3:
4: /********************************************************************************************************
5: FILENAME : ja_in_util_pkg_b.sql
112: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
113: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
114: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
115: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
116: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'JAI.PLSQL.JAI_CMN_UTILS_PKG.';
117: FUNCTION get_currency_code(p_operating_unit_id HR_OPERATING_UNITS.ORGANIZATION_ID%TYPE) RETURN VARCHAR2 IS
118: /* Bug 5243532. Added by Lakshmi Gopalsami.
119: Removed the cursor c_set_of_books and c_sob_currency
120: and implemented using caching logic.
299: ln_slno NUMBER;
300: ln_closing_balance NUMBER;
301:
302: /* Added by Ramananda for bug#4407165 */
303: lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_utils_pkg.update_rg_slno';
304:
305:
306: PROCEDURE insert_record(
307: pn_organization_id NUMBER,
387: Select currency_code from gl_sets_of_books
388: where set_of_books_id = c_set_of_books_id;
389:
390: /* Added by Ramananda for bug#4407165 */
391: lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_utils_pkg.currency_conversion';
392: lv_debug VARCHAR2(1) := 'N'; /* Bug 9547863 */
393: /* The value of lv_debug can be set to 'Y' depending on whether debug is enabled */
394: /* Wrapped the print_log calls with an IF to check for lv_debug value and execute */
395:
396: Begin
397: -- Bug 5148770. Added by Lakshmi Gopalsami
398:
399: IF lv_debug = 'Y' THEN
400: print_log('jai_cmn_utils_pkg.currency_conversion.log',' SOB'|| c_set_of_books_id);
401: END IF;
402:
403: Open currency_code_cur;
404: Fetch currency_code_cur Into v_func_curr;
407: -- Bug 5148770. Added by Lakshmi Gopalsami
408:
409:
410: IF lv_debug = 'Y' THEN
411: print_log('jai_cmn_utils_pkg.currency_conversion.log',' Func curr '|| v_func_curr);
412: print_log('jai_cmn_utils_pkg.currency_conversion.log', 'FROM curr code '|| c_from_currency_code);
413: END IF;
414:
415: If NVL(v_func_curr,'NO') = c_from_currency_code Then
408:
409:
410: IF lv_debug = 'Y' THEN
411: print_log('jai_cmn_utils_pkg.currency_conversion.log',' Func curr '|| v_func_curr);
412: print_log('jai_cmn_utils_pkg.currency_conversion.log', 'FROM curr code '|| c_from_currency_code);
413: END IF;
414:
415: If NVL(v_func_curr,'NO') = c_from_currency_code Then
416: -- Bug 5148770. Added by Lakshmi Gopalsami
415: If NVL(v_func_curr,'NO') = c_from_currency_code Then
416: -- Bug 5148770. Added by Lakshmi Gopalsami
417:
418: IF lv_debug = 'Y' THEN
419: print_log('jai_cmn_utils_pkg.currency_conversion.log',
420: ' func curr and from curr same - return 1');
421: END IF;
422:
423: ret_value := 1;
425: Elsif upper(c_conversion_type) = 'USER' Then
426: -- Bug 5148770. Added by Lakshmi Gopalsami
427:
428: IF lv_debug = 'Y' THEN
429: print_log('jai_cmn_utils_pkg.currency_conversion.log',
430: ' User entered the rate - return '|| c_conversion_rate);
431: END IF;
432:
433: ret_value := c_conversion_rate;
467:
468: -- Bug 5148770. Added by Lakshmi Gopalsami
469:
470: IF lv_debug = 'Y' THEN
471: print_log('jai_cmn_utils_pkg.currency_conversion.log',
472: ' derived type '|| v_dr_type);
473: END IF;
474:
475: IF v_dr_type IS NULL THEN
494:
495: -- Bug 5148770. Added by Lakshmi Gopalsami
496:
497: IF lv_debug = 'Y' THEN
498: print_log('jai_cmn_utils_pkg.currency_conversion.log',
499: ' derive type null - return value '|| ret_value);
500: END IF;
501:
502: ELSE
526:
527: -- Bug 5148770. Added by Lakshmi Gopalsami
528:
529: IF lv_debug = 'Y' THEN
530: print_log('jai_cmn_utils_pkg.currency_conversion.log',
531: ' EURO/EMU - derive type - return value '|| ret_value);
532: END IF;
533:
534: END IF;
617: Select item_um From ic_item_mst
618: Where item_id = p_item_id;
619:
620: Added by Ramananda for bug#4407165
621: lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_utils_pkg.opm_uom_version';
622:
623: BEGIN
624: OPEN C_Uom_Type(from_uom);
625: FETCH C_Uom_Type INTO f_uom_type,f_ref_um;
661: ELSE
662: return(round((l_std_factor/(l_std_factor_typ_1*l_std_factor_t)),9));
663: END IF;
664: ELSIF l_item_um = to_uom THEN
665: x:= jai_cmn_utils_pkg.opm_uom_version(to_uom,from_uom,p_item_id);
666: IF x = 0 THEN
667: return(x);
668: ELSE
669: return(1/x);
668: ELSE
669: return(1/x);
670: END IF;
671: ELSE
672: x := jai_cmn_utils_pkg.opm_uom_version(l_item_um,from_uom,p_item_id);
673: y := jai_cmn_utils_pkg.opm_uom_version(l_item_um,to_uom,p_item_id);
674: IF x > 0 THEN
675: z := y/x;
676: ELSE
669: return(1/x);
670: END IF;
671: ELSE
672: x := jai_cmn_utils_pkg.opm_uom_version(l_item_um,from_uom,p_item_id);
673: y := jai_cmn_utils_pkg.opm_uom_version(l_item_um,to_uom,p_item_id);
674: IF x > 0 THEN
675: z := y/x;
676: ELSE
677: z := 0;
697: From JAI_OPM_ITM_MASTERS
698: Where item_id = p_item_id;
699:
700: -- Added by Ramananda for bug#4407165
701: lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_utils_pkg.get_opm_assessable_value';
702:
703: ---Added For OPM Localization By A.Raina on 22-02-2000
704: ---Code Added For Fetching the Assessable_value at the customer level
705:
1133:
1134: RETURN lb_is_accrual_basis;
1135: END IS_ACCRUAL_BASIS;
1136:
1137: END jai_cmn_utils_pkg;