eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GL_LEDGERS_PKG dependencies on GL_LEDGERS

Line 1: PACKAGE BODY GL_LEDGERS_PKG AS

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: --

Line 3: g_pkg_name CONSTANT VARCHAR2(30) := 'GL_LEDGERS_PKG';

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: --

Line 13: FROM gl_ledger_config_details glcd, gl_ledgers ledger

9: x_config_id NUMBER)
10: RETURN VARCHAR2 IS
11: CURSOR c_ledgers IS
12: SELECT DISTINCT ledger.chart_of_accounts_id -- glcd.object_id,
13: FROM gl_ledger_config_details glcd, gl_ledgers ledger
14: WHERE glcd.configuration_id = x_config_id
15: AND glcd.setup_step_code = 'NONE'
16: AND ledger.ledger_id = glcd.object_id;
17:

Line 20: FROM gl_ledgers

16: AND ledger.ledger_id = glcd.object_id;
17:
18: CURSOR c_all_ledgers IS
19: SELECT ledger_id,ledger_category_code
20: FROM gl_ledgers
21: WHERE configuration_id = x_config_id;
22:
23: CURSOR c_org_curr (p_ledger_id IN VARCHAR2) IS
24: SELECT haou.organization_id

Line 71: FROM gl_ledgers

67: implicit_access_set_id
68: INTO x_ledger_id, x_name, x_chart_of_accounts_id, x_description,
69: x_period_set_name, x_accounted_period_type,
70: x_access_set_id
71: FROM gl_ledgers
72: WHERE ledger_id = v_ledgers.ledger_id;
73:
74: IF (x_access_set_id IS NULL) THEN
75: v_security_segment_code := 'F';

Line 98: UPDATE gl_ledgers

94: NULL;
95: END;
96:
97: IF x_access_set_id IS NOT NULL THEN
98: UPDATE gl_ledgers
99: SET implicit_access_set_id = x_access_set_id
100: WHERE ledger_id = x_ledger_id;
101: END IF;
102: END IF;

Line 245: FROM gl_ledgers

241: x_net_closing_bal_flag VARCHAR2 DEFAULT 'N',
242: x_auto_jrnl_rev_flag VARCHAR2 DEFAULT 'N') IS
243: CURSOR c IS
244: SELECT ROWID
245: FROM gl_ledgers
246: WHERE NAME = x_name;
247:
248: l_api_version NUMBER := p_api_version;
249: l_api_name CONSTANT VARCHAR(30) := 'insert_row';

Line 360: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,

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);

Line 461: INSERT INTO gl_ledgers

457: l_complete_flag := 'N';
458: END IF;
459:
460: ----- temporary validation ends
461: INSERT INTO gl_ledgers
462: (ledger_id, NAME, short_name, chart_of_accounts_id,
463: currency_code, period_set_name,
464: accounted_period_type, first_ledger_period_name,
465: ret_earn_code_combination_id, suspense_allowed_flag,

Line 627: gl_ledgers_pkg.enable_manual_je_approval;

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);

Line 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,

Line 632: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

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,

Line 824: -- Modified by LPOON on 11/21/03: Join with GL_LEDGERS table to make

820: AND object_id = x_ledger_id);
821:
822: -- Added by LPOON on 11/20/03: Used to loop for each ALC to default GL
823: -- suspense CCID from the source
824: -- Modified by LPOON on 11/21/03: Join with GL_LEDGERS table to make
825: -- sure the ALC ledger which has been created already
826: CURSOR c_alc_ledgers IS
827: SELECT DISTINCT rs.target_ledger_id
828: FROM gl_ledger_relationships rs, gl_ledgers lg

Line 828: FROM gl_ledger_relationships rs, gl_ledgers lg

824: -- Modified by LPOON on 11/21/03: Join with GL_LEDGERS table to make
825: -- sure the ALC ledger which has been created already
826: CURSOR c_alc_ledgers IS
827: SELECT DISTINCT rs.target_ledger_id
828: FROM gl_ledger_relationships rs, gl_ledgers lg
829: WHERE rs.source_ledger_id = x_ledger_id
830: AND rs.application_id = 101
831: AND rs.target_ledger_category_code = 'ALC'
832: AND rs.relationship_type_code in ('JOURNAL', 'SUBLEDGER')

Line 836: FROM gl_ledgers

832: AND rs.relationship_type_code in ('JOURNAL', 'SUBLEDGER')
833: AND lg.ledger_id = rs.target_ledger_id;
834: CURSOR c IS
835: SELECT *
836: FROM gl_ledgers
837: WHERE ledger_id = x_ledger_id;
838:
839: recinfo c%ROWTYPE;
840: l_ret_changed VARCHAR2(1) :='N';

Line 955: IF (GL_LEDGERS_PKG.Check_Avg_Translation(x_ledger_Id)) THEN

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;

Line 1041: FROM gl_ledgers

1037:
1038: ----- temporary validation ends
1039: SELECT NAME, short_name
1040: INTO x_current_name, x_current_short_name
1041: FROM gl_ledgers
1042: WHERE ledger_id = x_ledger_id;
1043:
1044: IF (x_current_name <> x_name) THEN
1045: -- Added where clauses to exclude ALC balance level relationships

Line 1079: FROM gl_ledgers

1075: SELECT bal_seg_value_option_code, sla_accounting_method_code,
1076: sla_accounting_method_type, allow_intercompany_post_flag
1077: INTO x_current_bsv_option_code, x_current_sla_actg_method_code,
1078: x_current_sla_actg_method_type, x_current_allow_intercom_flag
1079: FROM gl_ledgers
1080: WHERE ledger_id = x_ledger_id;
1081:
1082: /* IF (x_current_bsv_option_code <> x_bal_seg_value_option_code) THEN
1083: INSERT INTO gl_ledger_config_details

Line 1094: UPDATE gl_ledgers

1090: x_ledger_id, x_name, 'BSV_ASSIGNMENTS',
1091: 'ASSIGN_BSV', 'NOT_STARTED', x_last_update_login,
1092: x_last_update_login, x_last_update_date,
1093: x_last_updated_by, x_last_update_date);
1094: UPDATE gl_ledgers
1095: SET bal_seg_value_option_code = x_bal_seg_value_option_code
1096: WHERE ledger_id IN(
1097: SELECT DISTINCT target_ledger_id
1098: FROM gl_ledger_relationships

Line 1185: /* UPDATE gl_ledgers

1181: END IF;
1182:
1183: -- Move this to a single update SQL for all attributes
1184: -- required to be sychronized for ALC ledgers
1185: /* UPDATE gl_ledgers
1186: SET future_enterable_periods_limit =
1187: x_future_enterable_periods_lmt
1188: WHERE ledger_id IN(
1189: SELECT DISTINCT target_ledger_id

Line 1289: UPDATE gl_ledgers

1285:
1286: --- There are some columns are not updateable as business rule.
1287: --- Enhancement: I try to comments them out in following update to avoid
1288: --- potential mistake.
1289: UPDATE gl_ledgers
1290: SET --ledger_id = x_ledger_id,
1291: NAME = x_name,
1292: short_name = x_short_name,
1293: --chart_of_accounts_id = x_chart_of_accounts_id,

Line 1413: UPDATE gl_ledgers alclg

1409: END;
1410:
1411: -- Propagate the setup changes to its ALC ledgers if it is a ALC source
1412: IF (x_alc_ledger_type_code = 'SOURCE') THEN
1413: UPDATE gl_ledgers alclg
1414: SET (future_enterable_periods_limit, suspense_allowed_flag,
1415: allow_intercompany_post_flag, bal_seg_value_option_code,
1416: mgt_seg_value_option_code, sla_accounting_method_code,
1417: sla_accounting_method_type, sla_description_language,

Line 1532: FROM gl_ledgers srclg

1528: srclg.attribute12,
1529: srclg.attribute13,
1530: srclg.attribute14,
1531: srclg.attribute15
1532: FROM gl_ledgers srclg
1533: WHERE ledger_id = x_ledger_id)
1534: WHERE ledger_id IN(
1535: SELECT target_ledger_id
1536: FROM gl_ledger_relationships

Line 1566: gl_ledgers_pkg.enable_manual_je_approval;

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

Line 1572: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,

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);

Line 1594: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

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,

Line 1595: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

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,

Line 1624: gl_ledgers_pkg.led_update_other_tables(x_ledger_id,

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:

Line 1634: gl_ledgers_pkg.led_update_other_tables(v_alc.target_ledger_id,

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

Line 1686: FROM gl_ledgers l

1682: x_rowid VARCHAR2,
1683: x_name VARCHAR2) IS
1684: CURSOR c_dup IS
1685: SELECT 'Duplicate'
1686: FROM gl_ledgers l
1687: WHERE l.NAME = x_name AND(x_rowid IS NULL OR l.ROWID <> x_rowid);
1688:
1689: CURSOR c_dup2 IS
1690: SELECT 'Duplicate'

Line 1729: 'GL_LEDGERS_PKG.check_unique_name');

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: -- **********************************************************************

Line 1739: FROM gl_ledgers l

1735: x_rowid VARCHAR2,
1736: x_short_name VARCHAR2) IS
1737: CURSOR c_dup IS
1738: SELECT 'Duplicate'
1739: FROM gl_ledgers l
1740: WHERE l.short_name = x_short_name
1741: AND (x_rowid IS NULL OR l.ROWID <> x_rowid);
1742:
1743: dummy VARCHAR2(100);

Line 1764: 'GL_LEDGERS_PKG.check_unique_short_name');

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: -- **********************************************************************

Line 1772: SELECT gl_ledgers_s.NEXTVAL

1768: -- **********************************************************************
1769: FUNCTION get_unique_id
1770: RETURN NUMBER IS
1771: CURSOR c_getid IS
1772: SELECT gl_ledgers_s.NEXTVAL
1773: FROM DUAL;
1774:
1775: ID NUMBER;
1776: BEGIN

Line 1790: fnd_message.set_token('SEQUENCE', 'GL_LEDGERS_S');

1786: ELSE
1787: CLOSE c_getid;
1788:
1789: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
1790: fnd_message.set_token('SEQUENCE', 'GL_LEDGERS_S');
1791: app_exception.raise_exception;
1792: END IF;
1793: EXCEPTION
1794: WHEN app_exceptions.application_exception THEN

Line 1798: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.get_unique_id');

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: -- **********************************************************************

Line 1835: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.is_coa_frozen');

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: -- **********************************************************************

Line 1911: 'GL_LEDGERS_PKG.get_bal_mgt_seg_info');

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: -- **********************************************************************

Line 1994: FROM gl_ledgers

1990: x_attribute15 VARCHAR2,
1991: x_set_manual_flag VARCHAR2) IS
1992: CURSOR c IS
1993: SELECT ROWID
1994: FROM gl_ledgers
1995: WHERE NAME = x_name;
1996:
1997: x_access_set_id NUMBER(15);
1998: v_security_segment_code VARCHAR2(1);

Line 2027: INSERT INTO gl_ledgers

2023: x_last_update_login => x_last_update_login,
2024: x_creation_date => x_creation_date,
2025: x_description => x_description);
2026:
2027: INSERT INTO gl_ledgers
2028: (ledger_id, NAME, short_name,
2029: chart_of_accounts_id, currency_code,
2030: period_set_name, accounted_period_type,
2031: first_ledger_period_name,

Line 2143: gl_ledgers_pkg.enable_manual_je_approval;

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);

Line 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,

Line 2148: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

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,

Line 2231: FROM gl_ledgers

2227: x_attribute14 VARCHAR2,
2228: x_attribute15 VARCHAR2) IS
2229: CURSOR c IS
2230: SELECT *
2231: FROM gl_ledgers
2232: WHERE ROWID = x_rowid
2233: FOR UPDATE OF NAME NOWAIT;
2234:
2235: recinfo c%ROWTYPE;

Line 2503: UPDATE gl_ledgers

2499: x_attribute14 VARCHAR2,
2500: x_attribute15 VARCHAR2,
2501: x_set_manual_flag VARCHAR2) IS
2502: BEGIN
2503: UPDATE gl_ledgers
2504: SET ledger_id = x_ledger_id,
2505: NAME = x_name,
2506: short_name = x_short_name,
2507: chart_of_accounts_id = x_chart_of_accounts_id,

Line 2582: gl_ledgers_pkg.enable_manual_je_approval;

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,

Line 2585: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,

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:

Line 2592: recinfo IN OUT NOCOPY gl_ledgers%ROWTYPE) IS

2588: END update_row;
2589:
2590: -- **********************************************************************
2591: PROCEDURE select_row(
2592: recinfo IN OUT NOCOPY gl_ledgers%ROWTYPE) IS
2593: BEGIN
2594: SELECT *
2595: INTO recinfo
2596: FROM gl_ledgers

Line 2596: FROM gl_ledgers

2592: recinfo IN OUT NOCOPY gl_ledgers%ROWTYPE) IS
2593: BEGIN
2594: SELECT *
2595: INTO recinfo
2596: FROM gl_ledgers
2597: WHERE ledger_id = recinfo.ledger_id;
2598: END select_row;
2599:
2600: -- **********************************************************************

Line 2604: recinfo gl_ledgers%ROWTYPE;

2600: -- **********************************************************************
2601: PROCEDURE select_columns(
2602: x_ledger_id NUMBER,
2603: x_name IN OUT NOCOPY VARCHAR2) IS
2604: recinfo gl_ledgers%ROWTYPE;
2605: BEGIN
2606: recinfo.ledger_id := x_ledger_id;
2607: select_row(recinfo);
2608: x_name := recinfo.NAME;

Line 2777: FROM gl_ledgers

2773: l_chart_of_accounts_id NUMBER(15);
2774:
2775: CURSOR c IS
2776: SELECT ROWID
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,

Line 2781: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,

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);

Line 2800: INSERT INTO gl_ledgers

2796: x_last_update_login => x_last_update_login,
2797: x_creation_date => x_creation_date,
2798: x_description => x_description);
2799:
2800: INSERT INTO gl_ledgers
2801: (ledger_id, NAME, short_name,
2802: chart_of_accounts_id, currency_code, period_set_name,
2803: accounted_period_type, first_ledger_period_name,
2804: ret_earn_code_combination_id, suspense_allowed_flag,

Line 2908: FROM gl_ledgers

2904: x_attribute14 VARCHAR2,
2905: x_attribute15 VARCHAR2) IS
2906: CURSOR c IS
2907: SELECT *
2908: FROM gl_ledgers
2909: WHERE ROWID = x_rowid
2910: FOR UPDATE OF NAME NOWAIT;
2911:
2912: recinfo c%ROWTYPE;

Line 3015: UPDATE gl_ledgers

3011: x_attribute13 VARCHAR2,
3012: x_attribute14 VARCHAR2,
3013: x_attribute15 VARCHAR2) IS
3014: BEGIN
3015: UPDATE gl_ledgers
3016: SET ledger_id = x_ledger_id,
3017: NAME = x_name,
3018: short_name = x_short_name,
3019: chart_of_accounts_id = x_chart_of_accounts_id,

Line 3093: FROM GL_LEDGERS

3089:
3090: -- Insert default ledger assignment
3091: SELECT last_updated_by, last_update_login, last_update_date
3092: INTO updated_by, update_login, update_date
3093: FROM GL_LEDGERS
3094: WHERE ledger_id = x_ledger_set_id;
3095:
3096: GL_LEDGER_SET_NORM_ASSIGN_PKG.Insert_Row(
3097: rowid,

Line 3244: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.Get_CCID');

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: -- *********************************************************************

Line 3285: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,

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);

Line 3305: INSERT INTO GL_LEDGERS

3301: x_last_update_login => x_login_id,
3302: x_creation_date => x_date,
3303: x_description => x_description);
3304:
3305: INSERT INTO GL_LEDGERS
3306: (ledger_id, name, short_name, chart_of_accounts_id, currency_code,
3307: period_set_name, accounted_period_type, first_ledger_period_name,
3308: ret_earn_code_combination_id, suspense_allowed_flag,
3309: allow_intercompany_post_flag, track_rounding_imbalance_flag,

Line 3389: UPDATE GL_LEDGERS

3385: x_attribute14 VARCHAR2,
3386: x_attribute15 VARCHAR2) IS
3387: l_access_set_id NUMBER(15);
3388: BEGIN
3389: UPDATE GL_LEDGERS
3390: SET name = x_name,
3391: short_name = x_short_name,
3392: chart_of_accounts_id = x_chart_of_accounts_id,
3393: period_set_name = x_period_set_name,

Line 3452: -- GL_LEGAL_ENTITIES_BSVS and update GL_LEDGERS

3448:
3449: BEGIN
3450:
3451: -- Bug 8265487 Added code to delete corresponding data from
3452: -- GL_LEGAL_ENTITIES_BSVS and update GL_LEDGERS
3453: -- accordingly for BAL_SEG_VALUE_OPTION_CODE
3454:
3455: delete from gl_legal_entities_bsvs
3456: where legal_entity_id = x_le_id;

Line 3463: -- We need to take care of BAL_SEG_VALUE_OPTION_CODE in GL_LEDGERS

3459: where legal_entity_id = x_le_id
3460: and segment_type_code = 'B'
3461: and segment_value_type_code = 'S';
3462:
3463: -- We need to take care of BAL_SEG_VALUE_OPTION_CODE in GL_LEDGERS
3464:
3465: for PLSL in PLSLLEDGER
3466: loop
3467:

Line 3473: update gl_ledgers

3469: select count(*) into BSVCount from
3470: gl_ledger_norm_seg_vals where ledger_id = PLSL.ledger_id;
3471:
3472: if BSVCount = 0 then
3473: update gl_ledgers
3474: set bal_seg_value_option_code = 'A'
3475: where ledger_id = PLSL.ledger_id;
3476:
3477: update gl_ledgers

Line 3477: update gl_ledgers

3473: update gl_ledgers
3474: set bal_seg_value_option_code = 'A'
3475: where ledger_id = PLSL.ledger_id;
3476:
3477: update gl_ledgers
3478: set bal_seg_value_option_code = 'A'
3479: where ledger_id in
3480: (
3481: select distinct target_ledger_id from gl_ledger_relationships

Line 3507: from gl_ledgers l, gl_le_value_sets lv,

3503: l_completion_status VARCHAR2(30);
3504: l_has_le_bsv VARCHAR2(30);
3505: CURSOR get_ledger_id IS
3506: select l.ledger_id, cd2.configuration_id
3507: from gl_ledgers l, gl_le_value_sets lv,
3508: gl_ledger_config_details cd1, gl_ledger_config_details cd2
3509: where lv.legal_entity_id = x_le_id
3510: and lv.flex_value_set_id = x_value_set_id
3511: and cd1.object_id = lv.legal_entity_id

Line 3630: update gl_ledgers

3626: from gl_ledger_config_details
3627: where object_id = l_ledger_id
3628: and object_type_code <> 'LEGAL_ENTITY'
3629: and setup_step_code = 'INTER_ASSG');
3630: update gl_ledgers
3631: set bal_seg_value_option_code = 'I'
3632: where ledger_id = l_ledger_id
3633: and bal_seg_value_option_code = 'A';
3634: update gl_ledgers

Line 3634: update gl_ledgers

3630: update gl_ledgers
3631: set bal_seg_value_option_code = 'I'
3632: where ledger_id = l_ledger_id
3633: and bal_seg_value_option_code = 'A';
3634: update gl_ledgers
3635: set bal_seg_value_option_code = 'I'
3636: where ledger_id in
3637: (select target_ledger_id
3638: from gl_ledger_relationships

Line 3657: update gl_ledgers

3653: where ledger_id = l_ledger_id
3654: and segment_type_code = 'B'
3655: and segment_value_type_code = 'S';
3656:
3657: update gl_ledgers
3658: set bal_seg_value_option_code = 'A'
3659: where ledger_id = l_ledger_id
3660: and bal_seg_value_option_code = 'I';
3661:

Line 3662: update gl_ledgers

3658: set bal_seg_value_option_code = 'A'
3659: where ledger_id = l_ledger_id
3660: and bal_seg_value_option_code = 'I';
3661:
3662: update gl_ledgers
3663: set bal_seg_value_option_code = 'A'
3664: where ledger_id in
3665: (select target_ledger_id
3666: from gl_ledger_relationships

Line 3726: from gl_ledgers

3722: from fnd_flex_validation_tables
3723: where flex_value_set_id = c_flex_value_set_id;
3724: CURSOR ledger_bsv_value_set(c_ledger_id NUMBER) IS
3725: select BAL_SEG_VALUE_SET_ID
3726: from gl_ledgers
3727: where ledger_id = c_ledger_id;
3728: BEGIN
3729: IF(x_object_type = 'LGR') THEN
3730: OPEN ledger_bsv_value_set(x_object_id);

Line 3846: from GL_LEDGERS LEDGERS

3842: x_object_id IN NUMBER,
3843: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3844: CURSOR get_duplicate IS
3845: select 'Duplicate'
3846: from GL_LEDGERS LEDGERS
3847: where LEDGERS.NAME = x_object_name
3848: and LEDGERS.LEDGER_ID <> x_object_id
3849: UNION
3850: select 'Duplicate'

Line 3877: from GL_LEDGERS GL_LEDGERS

3873: x_ledger_id IN NUMBER,
3874: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3875: CURSOR get_duplicate IS
3876: select 'Duplicate'
3877: from GL_LEDGERS GL_LEDGERS
3878: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3879: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3880: UNION
3881: select 'Duplicate'

Line 3878: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name

3874: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3875: CURSOR get_duplicate IS
3876: select 'Duplicate'
3877: from GL_LEDGERS GL_LEDGERS
3878: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3879: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3880: UNION
3881: select 'Duplicate'
3882: from GL_LEDGER_RELATIONSHIPS

Line 3879: and GL_LEDGERS.LEDGER_ID <> x_ledger_id

3875: CURSOR get_duplicate IS
3876: select 'Duplicate'
3877: from GL_LEDGERS GL_LEDGERS
3878: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3879: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3880: UNION
3881: select 'Duplicate'
3882: from GL_LEDGER_RELATIONSHIPS
3883: where target_ledger_category_code = 'ALC'

Line 3912: FROM GL_LEDGERS

3908: AND relationship_id <> x_relationship_id
3909: AND target_ledger_id <> x_ledger_id
3910: UNION
3911: SELECT name
3912: FROM GL_LEDGERS
3913: WHERE name = x_target_ledger_name
3914: AND ledger_id <> NVL(x_ledger_id,-1)
3915: UNION
3916: SELECT 'Duplicate'

Line 3946: FROM gl_ledgers

3942: AND relationship_id <> x_relationship_id
3943: AND target_ledger_id <> x_ledger_id
3944: UNION
3945: SELECT short_name
3946: FROM gl_ledgers
3947: WHERE short_name = x_ledger_short_name
3948: AND ledger_id <> NVL(x_ledger_id,-1);
3949: test VARCHAR2(20);
3950: BEGIN

Line 3968: update gl_ledgers

3964: update gl_ledger_configurations
3965: set completion_status_code = 'CONFIRMED'
3966: where configuration_id = x_object_id;
3967:
3968: update gl_ledgers
3969: set complete_flag = 'Y'
3970: where configuration_id = x_object_id
3971: and ledger_category_code in ('PRIMARY', 'SECONDARY', 'ALC');
3972: ELSIF(x_object_type = 'LEDGER') THEN

Line 3973: update gl_ledgers

3969: set complete_flag = 'Y'
3970: where configuration_id = x_object_id
3971: and ledger_category_code in ('PRIMARY', 'SECONDARY', 'ALC');
3972: ELSIF(x_object_type = 'LEDGER') THEN
3973: update gl_ledgers
3974: set complete_flag = 'Y'
3975: where ledger_id = x_object_id;
3976: END IF;
3977: END set_status_complete;

Line 4016: FROM gl_ledgers where ledger_id = x_ledger_id))

4012: FROM GL_PERIODS pr, GL_PERIOD_TYPES pty
4013: WHERE pr.period_type = pty.period_type
4014: AND ((pr.period_set_name, pr.period_type)
4015: IN (SELECT period_set_name, accounted_period_type
4016: FROM gl_ledgers where ledger_id = x_ledger_id))
4017: GROUP BY pr.period_set_name, pty.user_period_type, pty.period_type
4018: HAVING (max(pr.end_date - pr.start_date)+1) >=35;
4019:
4020: dummy VARCHAR2(100);

Line 4094: END gl_ledgers_pkg;

4090: END IF;
4091:
4092: END get_short_name ;
4093: -- ***********************************************************************
4094: END gl_ledgers_pkg;