1: PACKAGE BODY GL_LEDGERS_PKG AS
2: /* $Header: glistldb.pls 120.107 2011/06/02 04:57:21 skotakar ship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'GL_LEDGERS_PKG';
4:
5: --
1: PACKAGE BODY GL_LEDGERS_PKG AS
2: /* $Header: glistldb.pls 120.107 2011/06/02 04:57:21 skotakar ship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'GL_LEDGERS_PKG';
4:
5: --
6: -- PUBLIC FUNCTIONS
7: --
356: x_creation_date => x_creation_date,
357: x_description => x_description); */
358:
359: -- get the balance segment infor and mgt segment infor
360: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,
361: x_bal_seg_value_set_id,
362: x_mgt_seg_column_name,
363: x_mgt_seg_value_set_id,
364: x_chart_of_accounts_id);
623:
624: -- Check whether journal_approval_flag is to be set to Y for
625: -- the Manual source.
626: IF (x_set_manual_flag = 'Y') THEN
627: gl_ledgers_pkg.enable_manual_je_approval;
628: END IF;
629:
630: IF (x_enable_avgbal_flag = 'Y') THEN
631: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
627: gl_ledgers_pkg.enable_manual_je_approval;
628: END IF;
629:
630: IF (x_enable_avgbal_flag = 'Y') THEN
631: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
632: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
633: v_balancing_segment,
634:
635: --x_balancing_segment,
628: END IF;
629:
630: IF (x_enable_avgbal_flag = 'Y') THEN
631: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
632: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
633: v_balancing_segment,
634:
635: --x_balancing_segment,
636: x_net_income_ccid,
951: -- Updating average balances translation options
952: IF ((recinfo.translate_eod_flag <> x_translate_eod_flag) OR
953: (recinfo.translate_qatd_flag <> x_translate_qatd_flag) OR
954: (recinfo.translate_yatd_flag <> x_translate_yatd_flag)) THEN
955: IF (GL_LEDGERS_PKG.Check_Avg_Translation(x_ledger_Id)) THEN
956: fnd_message.set_name('SQLGL', 'GL_LEDGER_TRANSLATION_FLAGS');
957: app_exception.raise_exception;
958: END IF;
959: END IF;
1562:
1563: -- Check whether journal_approval_flag is to be set to Y for
1564: -- the Manual source.
1565: IF (x_set_manual_flag = 'Y') THEN
1566: gl_ledgers_pkg.enable_manual_je_approval;
1567: END IF;
1568:
1569: -- Update gl_system_usage and insert the net income account
1570: IF (recinfo.enable_average_balances_flag = 'N' AND x_enable_avgbal_flag = 'Y') THEN
1568:
1569: -- Update gl_system_usage and insert the net income account
1570: IF (recinfo.enable_average_balances_flag = 'N' AND x_enable_avgbal_flag = 'Y') THEN
1571: -- get the balance segment infor and mgt segment infor
1572: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,
1573: x_bal_seg_value_set_id,
1574: x_mgt_seg_column_name,
1575: x_mgt_seg_value_set_id,
1576: x_chart_of_accounts_id);
1590: ELSE
1591: v_balancing_segment := x_balancing_segment;
1592: END IF;
1593:
1594: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
1595: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
1596: v_balancing_segment,
1597: --x_balancing_segment,
1598: x_net_income_ccid,
1591: v_balancing_segment := x_balancing_segment;
1592: END IF;
1593:
1594: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
1595: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
1596: v_balancing_segment,
1597: --x_balancing_segment,
1598: x_net_income_ccid,
1599: x_last_update_date,
1620: -- IF ( (x_suspense_allowed_flag = 'Y')
1621: -- AND (x_suspense_ccid_temp IS NOT NULL)) THEN
1622: -- Update suspense account for this ledger
1623: -- bug fix 2826511
1624: gl_ledgers_pkg.led_update_other_tables(x_ledger_id,
1625: x_last_update_date,
1626: x_last_updated_by,
1627: x_suspense_ccid_temp);
1628:
1630: -- suspense account, default it same as source's
1631: FOR v_alc IN c_alc_ledgers LOOP
1632: -- IF ( NOT gl_suspense_accounts_pkg.is_ledger_suspense_exist(v_alc.ledger_id)
1633: -- AND x_suspense_ccid_temp IS NOT NULL) THEN
1634: gl_ledgers_pkg.led_update_other_tables(v_alc.target_ledger_id,
1635: x_last_update_date,
1636: x_last_updated_by,
1637: x_suspense_ccid_temp);
1638: -- gl_suspense_accounts_pkg.insert_ledger_suspense
1725: RAISE;
1726: WHEN OTHERS THEN
1727: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1728: fnd_message.set_token('PROCEDURE',
1729: 'GL_LEDGERS_PKG.check_unique_name');
1730: RAISE;
1731: END check_unique_name;
1732:
1733: -- **********************************************************************
1760: RAISE;
1761: WHEN OTHERS THEN
1762: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1763: fnd_message.set_token('PROCEDURE',
1764: 'GL_LEDGERS_PKG.check_unique_short_name');
1765: RAISE;
1766: END check_unique_short_name;
1767:
1768: -- **********************************************************************
1794: WHEN app_exceptions.application_exception THEN
1795: RAISE;
1796: WHEN OTHERS THEN
1797: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1798: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.get_unique_id');
1799: RAISE;
1800: END get_unique_id;
1801:
1802: -- **********************************************************************
1831: WHEN app_exceptions.application_exception THEN
1832: RAISE;
1833: WHEN OTHERS THEN
1834: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1835: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.is_coa_frozen');
1836: RAISE;
1837: END is_coa_frozen;
1838:
1839: -- **********************************************************************
1907: RAISE;
1908: WHEN OTHERS THEN
1909: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1910: fnd_message.set_token('PROCEDURE',
1911: 'GL_LEDGERS_PKG.get_bal_mgt_seg_info');
1912: RAISE;
1913: END get_bal_mgt_seg_info;
1914:
1915: -- **********************************************************************
2139:
2140: -- Check whether journal_approval_flag is to be set to Y for
2141: -- the Manual source.
2142: IF (x_set_manual_flag = 'Y') THEN
2143: gl_ledgers_pkg.enable_manual_je_approval;
2144: END IF;
2145:
2146: IF (x_enable_avgbal_flag = 'Y') THEN
2147: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
2143: gl_ledgers_pkg.enable_manual_je_approval;
2144: END IF;
2145:
2146: IF (x_enable_avgbal_flag = 'Y') THEN
2147: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
2148: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
2149: x_balancing_segment,
2150: x_net_income_ccid,
2151: x_creation_date,
2144: END IF;
2145:
2146: IF (x_enable_avgbal_flag = 'Y') THEN
2147: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
2148: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
2149: x_balancing_segment,
2150: x_net_income_ccid,
2151: x_creation_date,
2152: x_created_by,
2578:
2579: -- Check whether journal_approval_flag is to be set to Y for
2580: -- the Manual source.
2581: IF (x_set_manual_flag = 'Y') THEN
2582: gl_ledgers_pkg.enable_manual_je_approval;
2583: END IF;
2584:
2585: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,
2586: x_last_updated_by,
2581: IF (x_set_manual_flag = 'Y') THEN
2582: gl_ledgers_pkg.enable_manual_je_approval;
2583: END IF;
2584:
2585: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,
2586: x_last_updated_by,
2587: x_suspense_ccid);
2588: END update_row;
2589:
2777: FROM gl_ledgers
2778: WHERE NAME = x_name;
2779: BEGIN
2780: l_chart_of_accounts_id := x_chart_of_accounts_id;
2781: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,
2782: l_bal_seg_value_set_id,
2783: l_mgt_seg_column_name,
2784: l_mgt_seg_value_set_id,
2785: l_chart_of_accounts_id);
3240:
3241: EXCEPTION
3242: WHEN OTHERS THEN
3243: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
3244: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.Get_CCID');
3245: RAISE;
3246: END Get_CCID;
3247:
3248: -- *********************************************************************
3281: l_chart_of_accounts_id NUMBER(15);
3282: l_access_set_id NUMBER(15);
3283: BEGIN
3284: l_chart_of_accounts_id := x_chart_of_accounts_id;
3285: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,
3286: l_bal_seg_value_set_id,
3287: l_mgt_seg_column_name,
3288: l_mgt_seg_value_set_id,
3289: l_chart_of_accounts_id);
4090: END IF;
4091:
4092: END get_short_name ;
4093: -- ***********************************************************************
4094: END gl_ledgers_pkg;