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.99.12010000.3 2008/11/27 06:43:34 phmullap 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.99.12010000.3 2008/11/27 06:43:34 phmullap 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 NUMBER) IS
24: SELECT haou.organization_id

Line 70: FROM gl_ledgers

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

Line 97: UPDATE gl_ledgers

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

Line 242: FROM gl_ledgers

238: x_create_je_flag VARCHAR2 DEFAULT 'Y',
239: x_commitment_budget_flag VARCHAR2 DEFAULT NULL) IS
240: CURSOR c IS
241: SELECT ROWID
242: FROM gl_ledgers
243: WHERE NAME = x_name;
244:
245: l_api_version NUMBER := p_api_version;
246: l_api_name CONSTANT VARCHAR(30) := 'insert_row';

Line 357: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,

353: x_creation_date => x_creation_date,
354: x_description => x_description); */
355:
356: -- get the balance segment infor and mgt segment infor
357: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,
358: x_bal_seg_value_set_id,
359: x_mgt_seg_column_name,
360: x_mgt_seg_value_set_id,
361: x_chart_of_accounts_id);

Line 458: INSERT INTO gl_ledgers

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

Line 624: gl_ledgers_pkg.enable_manual_je_approval;

620:
621: -- Check whether journal_approval_flag is to be set to Y for
622: -- the Manual source.
623: IF (x_set_manual_flag = 'Y') THEN
624: gl_ledgers_pkg.enable_manual_je_approval;
625: END IF;
626:
627: IF (x_enable_avgbal_flag = 'Y') THEN
628: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

Line 628: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

624: gl_ledgers_pkg.enable_manual_je_approval;
625: END IF;
626:
627: IF (x_enable_avgbal_flag = 'Y') THEN
628: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
629: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
630: v_balancing_segment,
631:
632: --x_balancing_segment,

Line 629: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

625: END IF;
626:
627: IF (x_enable_avgbal_flag = 'Y') THEN
628: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
629: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
630: v_balancing_segment,
631:
632: --x_balancing_segment,
633: x_net_income_ccid,

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

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

Line 823: FROM gl_ledger_relationships rs, gl_ledgers lg

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

Line 831: FROM gl_ledgers

827: AND rs.relationship_type_code in ('JOURNAL', 'SUBLEDGER')
828: AND lg.ledger_id = rs.target_ledger_id;
829: CURSOR c IS
830: SELECT *
831: FROM gl_ledgers
832: WHERE ledger_id = x_ledger_id;
833:
834: recinfo c%ROWTYPE;
835: l_ret_changed VARCHAR2(1) :='N';

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

946: -- Updating average balances translation options
947: IF ((recinfo.translate_eod_flag <> x_translate_eod_flag) OR
948: (recinfo.translate_qatd_flag <> x_translate_qatd_flag) OR
949: (recinfo.translate_yatd_flag <> x_translate_yatd_flag)) THEN
950: IF (GL_LEDGERS_PKG.Check_Avg_Translation(x_ledger_Id)) THEN
951: fnd_message.set_name('SQLGL', 'GL_LEDGER_TRANSLATION_FLAGS');
952: app_exception.raise_exception;
953: END IF;
954: END IF;

Line 1036: FROM gl_ledgers

1032:
1033: ----- temporary validation ends
1034: SELECT NAME, short_name
1035: INTO x_current_name, x_current_short_name
1036: FROM gl_ledgers
1037: WHERE ledger_id = x_ledger_id;
1038:
1039: IF (x_current_name <> x_name) THEN
1040: -- Added where clauses to exclude ALC balance level relationships

Line 1074: FROM gl_ledgers

1070: SELECT bal_seg_value_option_code, sla_accounting_method_code,
1071: sla_accounting_method_type, allow_intercompany_post_flag
1072: INTO x_current_bsv_option_code, x_current_sla_actg_method_code,
1073: x_current_sla_actg_method_type, x_current_allow_intercom_flag
1074: FROM gl_ledgers
1075: WHERE ledger_id = x_ledger_id;
1076:
1077: /* IF (x_current_bsv_option_code <> x_bal_seg_value_option_code) THEN
1078: INSERT INTO gl_ledger_config_details

Line 1089: UPDATE gl_ledgers

1085: x_ledger_id, x_name, 'BSV_ASSIGNMENTS',
1086: 'ASSIGN_BSV', 'NOT_STARTED', x_last_update_login,
1087: x_last_update_login, x_last_update_date,
1088: x_last_updated_by, x_last_update_date);
1089: UPDATE gl_ledgers
1090: SET bal_seg_value_option_code = x_bal_seg_value_option_code
1091: WHERE ledger_id IN(
1092: SELECT DISTINCT target_ledger_id
1093: FROM gl_ledger_relationships

Line 1180: /* UPDATE gl_ledgers

1176: END IF;
1177:
1178: -- Move this to a single update SQL for all attributes
1179: -- required to be sychronized for ALC ledgers
1180: /* UPDATE gl_ledgers
1181: SET future_enterable_periods_limit =
1182: x_future_enterable_periods_lmt
1183: WHERE ledger_id IN(
1184: SELECT DISTINCT target_ledger_id

Line 1284: UPDATE gl_ledgers

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

Line 1406: UPDATE gl_ledgers alclg

1402: END;
1403:
1404: -- Propagate the setup changes to its ALC ledgers if it is a ALC source
1405: IF (x_alc_ledger_type_code = 'SOURCE') THEN
1406: UPDATE gl_ledgers alclg
1407: SET (future_enterable_periods_limit, suspense_allowed_flag,
1408: allow_intercompany_post_flag, bal_seg_value_option_code,
1409: mgt_seg_value_option_code, sla_accounting_method_code,
1410: sla_accounting_method_type, sla_description_language,

Line 1525: FROM gl_ledgers srclg

1521: srclg.attribute12,
1522: srclg.attribute13,
1523: srclg.attribute14,
1524: srclg.attribute15
1525: FROM gl_ledgers srclg
1526: WHERE ledger_id = x_ledger_id)
1527: WHERE ledger_id IN(
1528: SELECT target_ledger_id
1529: FROM gl_ledger_relationships

Line 1559: gl_ledgers_pkg.enable_manual_je_approval;

1555:
1556: -- Check whether journal_approval_flag is to be set to Y for
1557: -- the Manual source.
1558: IF (x_set_manual_flag = 'Y') THEN
1559: gl_ledgers_pkg.enable_manual_je_approval;
1560: END IF;
1561:
1562: -- Update gl_system_usage and insert the net income account
1563: IF (recinfo.enable_average_balances_flag = 'N' AND x_enable_avgbal_flag = 'Y') THEN

Line 1565: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,

1561:
1562: -- Update gl_system_usage and insert the net income account
1563: IF (recinfo.enable_average_balances_flag = 'N' AND x_enable_avgbal_flag = 'Y') THEN
1564: -- get the balance segment infor and mgt segment infor
1565: gl_ledgers_pkg.get_bal_mgt_seg_info(x_bal_seg_column_name,
1566: x_bal_seg_value_set_id,
1567: x_mgt_seg_column_name,
1568: x_mgt_seg_value_set_id,
1569: x_chart_of_accounts_id);

Line 1587: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

1583: ELSE
1584: v_balancing_segment := x_balancing_segment;
1585: END IF;
1586:
1587: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
1588: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
1589: v_balancing_segment,
1590: --x_balancing_segment,
1591: x_net_income_ccid,

Line 1588: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

1584: v_balancing_segment := x_balancing_segment;
1585: END IF;
1586:
1587: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
1588: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
1589: v_balancing_segment,
1590: --x_balancing_segment,
1591: x_net_income_ccid,
1592: x_last_update_date,

Line 1617: gl_ledgers_pkg.led_update_other_tables(x_ledger_id,

1613: -- IF ( (x_suspense_allowed_flag = 'Y')
1614: -- AND (x_suspense_ccid_temp IS NOT NULL)) THEN
1615: -- Update suspense account for this ledger
1616: -- bug fix 2826511
1617: gl_ledgers_pkg.led_update_other_tables(x_ledger_id,
1618: x_last_update_date,
1619: x_last_updated_by,
1620: x_suspense_ccid_temp);
1621:

Line 1627: gl_ledgers_pkg.led_update_other_tables(v_alc.target_ledger_id,

1623: -- suspense account, default it same as source's
1624: FOR v_alc IN c_alc_ledgers LOOP
1625: -- IF ( NOT gl_suspense_accounts_pkg.is_ledger_suspense_exist(v_alc.ledger_id)
1626: -- AND x_suspense_ccid_temp IS NOT NULL) THEN
1627: gl_ledgers_pkg.led_update_other_tables(v_alc.target_ledger_id,
1628: x_last_update_date,
1629: x_last_updated_by,
1630: x_suspense_ccid_temp);
1631: -- gl_suspense_accounts_pkg.insert_ledger_suspense

Line 1679: FROM gl_ledgers l

1675: x_rowid VARCHAR2,
1676: x_name VARCHAR2) IS
1677: CURSOR c_dup IS
1678: SELECT 'Duplicate'
1679: FROM gl_ledgers l
1680: WHERE l.NAME = x_name AND(x_rowid IS NULL OR l.ROWID <> x_rowid);
1681:
1682: CURSOR c_dup2 IS
1683: SELECT 'Duplicate'

Line 1722: 'GL_LEDGERS_PKG.check_unique_name');

1718: RAISE;
1719: WHEN OTHERS THEN
1720: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1721: fnd_message.set_token('PROCEDURE',
1722: 'GL_LEDGERS_PKG.check_unique_name');
1723: RAISE;
1724: END check_unique_name;
1725:
1726: -- **********************************************************************

Line 1732: FROM gl_ledgers l

1728: x_rowid VARCHAR2,
1729: x_short_name VARCHAR2) IS
1730: CURSOR c_dup IS
1731: SELECT 'Duplicate'
1732: FROM gl_ledgers l
1733: WHERE l.short_name = x_short_name
1734: AND (x_rowid IS NULL OR l.ROWID <> x_rowid);
1735:
1736: dummy VARCHAR2(100);

Line 1757: 'GL_LEDGERS_PKG.check_unique_short_name');

1753: RAISE;
1754: WHEN OTHERS THEN
1755: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1756: fnd_message.set_token('PROCEDURE',
1757: 'GL_LEDGERS_PKG.check_unique_short_name');
1758: RAISE;
1759: END check_unique_short_name;
1760:
1761: -- **********************************************************************

Line 1765: SELECT gl_ledgers_s.NEXTVAL

1761: -- **********************************************************************
1762: FUNCTION get_unique_id
1763: RETURN NUMBER IS
1764: CURSOR c_getid IS
1765: SELECT gl_ledgers_s.NEXTVAL
1766: FROM DUAL;
1767:
1768: ID NUMBER;
1769: BEGIN

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

1779: ELSE
1780: CLOSE c_getid;
1781:
1782: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
1783: fnd_message.set_token('SEQUENCE', 'GL_LEDGERS_S');
1784: app_exception.raise_exception;
1785: END IF;
1786: EXCEPTION
1787: WHEN app_exceptions.application_exception THEN

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

1787: WHEN app_exceptions.application_exception THEN
1788: RAISE;
1789: WHEN OTHERS THEN
1790: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1791: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.get_unique_id');
1792: RAISE;
1793: END get_unique_id;
1794:
1795: -- **********************************************************************

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

1824: WHEN app_exceptions.application_exception THEN
1825: RAISE;
1826: WHEN OTHERS THEN
1827: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1828: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.is_coa_frozen');
1829: RAISE;
1830: END is_coa_frozen;
1831:
1832: -- **********************************************************************

Line 1904: 'GL_LEDGERS_PKG.get_bal_mgt_seg_info');

1900: RAISE;
1901: WHEN OTHERS THEN
1902: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
1903: fnd_message.set_token('PROCEDURE',
1904: 'GL_LEDGERS_PKG.get_bal_mgt_seg_info');
1905: RAISE;
1906: END get_bal_mgt_seg_info;
1907:
1908: -- **********************************************************************

Line 1987: FROM gl_ledgers

1983: x_attribute15 VARCHAR2,
1984: x_set_manual_flag VARCHAR2) IS
1985: CURSOR c IS
1986: SELECT ROWID
1987: FROM gl_ledgers
1988: WHERE NAME = x_name;
1989:
1990: x_access_set_id NUMBER(15);
1991: v_security_segment_code VARCHAR2(1);

Line 2020: INSERT INTO gl_ledgers

2016: x_last_update_login => x_last_update_login,
2017: x_creation_date => x_creation_date,
2018: x_description => x_description);
2019:
2020: INSERT INTO gl_ledgers
2021: (ledger_id, NAME, short_name,
2022: chart_of_accounts_id, currency_code,
2023: period_set_name, accounted_period_type,
2024: first_ledger_period_name,

Line 2134: gl_ledgers_pkg.enable_manual_je_approval;

2130:
2131: -- Check whether journal_approval_flag is to be set to Y for
2132: -- the Manual source.
2133: IF (x_set_manual_flag = 'Y') THEN
2134: gl_ledgers_pkg.enable_manual_je_approval;
2135: END IF;
2136:
2137: IF (x_enable_avgbal_flag = 'Y') THEN
2138: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

Line 2138: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);

2134: gl_ledgers_pkg.enable_manual_je_approval;
2135: END IF;
2136:
2137: IF (x_enable_avgbal_flag = 'Y') THEN
2138: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
2139: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
2140: x_balancing_segment,
2141: x_net_income_ccid,
2142: x_creation_date,

Line 2139: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,

2135: END IF;
2136:
2137: IF (x_enable_avgbal_flag = 'Y') THEN
2138: gl_ledgers_pkg.update_gl_system_usages(x_consolidation_ledger_flag);
2139: gl_ledgers_pkg.insert_gl_net_income_accounts(x_ledger_id,
2140: x_balancing_segment,
2141: x_net_income_ccid,
2142: x_creation_date,
2143: x_created_by,

Line 2222: FROM gl_ledgers

2218: x_attribute14 VARCHAR2,
2219: x_attribute15 VARCHAR2) IS
2220: CURSOR c IS
2221: SELECT *
2222: FROM gl_ledgers
2223: WHERE ROWID = x_rowid
2224: FOR UPDATE OF NAME NOWAIT;
2225:
2226: recinfo c%ROWTYPE;

Line 2494: UPDATE gl_ledgers

2490: x_attribute14 VARCHAR2,
2491: x_attribute15 VARCHAR2,
2492: x_set_manual_flag VARCHAR2) IS
2493: BEGIN
2494: UPDATE gl_ledgers
2495: SET ledger_id = x_ledger_id,
2496: NAME = x_name,
2497: short_name = x_short_name,
2498: chart_of_accounts_id = x_chart_of_accounts_id,

Line 2573: gl_ledgers_pkg.enable_manual_je_approval;

2569:
2570: -- Check whether journal_approval_flag is to be set to Y for
2571: -- the Manual source.
2572: IF (x_set_manual_flag = 'Y') THEN
2573: gl_ledgers_pkg.enable_manual_je_approval;
2574: END IF;
2575:
2576: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,
2577: x_last_updated_by,

Line 2576: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,

2572: IF (x_set_manual_flag = 'Y') THEN
2573: gl_ledgers_pkg.enable_manual_je_approval;
2574: END IF;
2575:
2576: gl_ledgers_pkg.led_update_other_tables(x_ledger_id, x_last_update_date,
2577: x_last_updated_by,
2578: x_suspense_ccid);
2579: END update_row;
2580:

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

2579: END update_row;
2580:
2581: -- **********************************************************************
2582: PROCEDURE select_row(
2583: recinfo IN OUT NOCOPY gl_ledgers%ROWTYPE) IS
2584: BEGIN
2585: SELECT *
2586: INTO recinfo
2587: FROM gl_ledgers

Line 2587: FROM gl_ledgers

2583: recinfo IN OUT NOCOPY gl_ledgers%ROWTYPE) IS
2584: BEGIN
2585: SELECT *
2586: INTO recinfo
2587: FROM gl_ledgers
2588: WHERE ledger_id = recinfo.ledger_id;
2589: END select_row;
2590:
2591: -- **********************************************************************

Line 2595: recinfo gl_ledgers%ROWTYPE;

2591: -- **********************************************************************
2592: PROCEDURE select_columns(
2593: x_ledger_id NUMBER,
2594: x_name IN OUT NOCOPY VARCHAR2) IS
2595: recinfo gl_ledgers%ROWTYPE;
2596: BEGIN
2597: recinfo.ledger_id := x_ledger_id;
2598: select_row(recinfo);
2599: x_name := recinfo.NAME;

Line 2768: FROM gl_ledgers

2764: l_chart_of_accounts_id NUMBER(15);
2765:
2766: CURSOR c IS
2767: SELECT ROWID
2768: FROM gl_ledgers
2769: WHERE NAME = x_name;
2770: BEGIN
2771: l_chart_of_accounts_id := x_chart_of_accounts_id;
2772: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,

Line 2772: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,

2768: FROM gl_ledgers
2769: WHERE NAME = x_name;
2770: BEGIN
2771: l_chart_of_accounts_id := x_chart_of_accounts_id;
2772: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,
2773: l_bal_seg_value_set_id,
2774: l_mgt_seg_column_name,
2775: l_mgt_seg_value_set_id,
2776: l_chart_of_accounts_id);

Line 2791: INSERT INTO gl_ledgers

2787: x_last_update_login => x_last_update_login,
2788: x_creation_date => x_creation_date,
2789: x_description => x_description);
2790:
2791: INSERT INTO gl_ledgers
2792: (ledger_id, NAME, short_name,
2793: chart_of_accounts_id, currency_code, period_set_name,
2794: accounted_period_type, first_ledger_period_name,
2795: ret_earn_code_combination_id, suspense_allowed_flag,

Line 2898: FROM gl_ledgers

2894: x_attribute14 VARCHAR2,
2895: x_attribute15 VARCHAR2) IS
2896: CURSOR c IS
2897: SELECT *
2898: FROM gl_ledgers
2899: WHERE ROWID = x_rowid
2900: FOR UPDATE OF NAME NOWAIT;
2901:
2902: recinfo c%ROWTYPE;

Line 3005: UPDATE gl_ledgers

3001: x_attribute13 VARCHAR2,
3002: x_attribute14 VARCHAR2,
3003: x_attribute15 VARCHAR2) IS
3004: BEGIN
3005: UPDATE gl_ledgers
3006: SET ledger_id = x_ledger_id,
3007: NAME = x_name,
3008: short_name = x_short_name,
3009: chart_of_accounts_id = x_chart_of_accounts_id,

Line 3083: FROM GL_LEDGERS

3079:
3080: -- Insert default ledger assignment
3081: SELECT last_updated_by, last_update_login, last_update_date
3082: INTO updated_by, update_login, update_date
3083: FROM GL_LEDGERS
3084: WHERE ledger_id = x_ledger_set_id;
3085:
3086: GL_LEDGER_SET_NORM_ASSIGN_PKG.Insert_Row(
3087: rowid,

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

3230:
3231: EXCEPTION
3232: WHEN OTHERS THEN
3233: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
3234: fnd_message.set_token('PROCEDURE', 'GL_LEDGERS_PKG.Get_CCID');
3235: RAISE;
3236: END Get_CCID;
3237:
3238: -- *********************************************************************

Line 3275: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,

3271: l_chart_of_accounts_id NUMBER(15);
3272: l_access_set_id NUMBER(15);
3273: BEGIN
3274: l_chart_of_accounts_id := x_chart_of_accounts_id;
3275: gl_ledgers_pkg.get_bal_mgt_seg_info(l_bal_seg_column_name,
3276: l_bal_seg_value_set_id,
3277: l_mgt_seg_column_name,
3278: l_mgt_seg_value_set_id,
3279: l_chart_of_accounts_id);

Line 3295: INSERT INTO GL_LEDGERS

3291: x_last_update_login => x_login_id,
3292: x_creation_date => x_date,
3293: x_description => x_description);
3294:
3295: INSERT INTO GL_LEDGERS
3296: (ledger_id, name, short_name, chart_of_accounts_id, currency_code,
3297: period_set_name, accounted_period_type, first_ledger_period_name,
3298: ret_earn_code_combination_id, suspense_allowed_flag,
3299: allow_intercompany_post_flag, track_rounding_imbalance_flag,

Line 3378: UPDATE GL_LEDGERS

3374: x_attribute14 VARCHAR2,
3375: x_attribute15 VARCHAR2) IS
3376: l_access_set_id NUMBER(15);
3377: BEGIN
3378: UPDATE GL_LEDGERS
3379: SET name = x_name,
3380: short_name = x_short_name,
3381: chart_of_accounts_id = x_chart_of_accounts_id,
3382: period_set_name = x_period_set_name,

Line 3450: from gl_ledgers l, gl_le_value_sets lv,

3446: l_completion_status VARCHAR2(30);
3447: l_has_le_bsv VARCHAR2(30);
3448: CURSOR get_ledger_id IS
3449: select l.ledger_id, cd2.configuration_id
3450: from gl_ledgers l, gl_le_value_sets lv,
3451: gl_ledger_config_details cd1, gl_ledger_config_details cd2
3452: where lv.legal_entity_id = x_le_id
3453: and lv.flex_value_set_id = x_value_set_id
3454: and cd1.object_id = lv.legal_entity_id

Line 3573: update gl_ledgers

3569: from gl_ledger_config_details
3570: where object_id = l_ledger_id
3571: and object_type_code <> 'LEGAL_ENTITY'
3572: and setup_step_code = 'INTER_ASSG');
3573: update gl_ledgers
3574: set bal_seg_value_option_code = 'I'
3575: where ledger_id = l_ledger_id
3576: and bal_seg_value_option_code = 'A';
3577: update gl_ledgers

Line 3577: update gl_ledgers

3573: update gl_ledgers
3574: set bal_seg_value_option_code = 'I'
3575: where ledger_id = l_ledger_id
3576: and bal_seg_value_option_code = 'A';
3577: update gl_ledgers
3578: set bal_seg_value_option_code = 'I'
3579: where ledger_id in
3580: (select target_ledger_id
3581: from gl_ledger_relationships

Line 3600: update gl_ledgers

3596: where ledger_id = l_ledger_id
3597: and segment_type_code = 'B'
3598: and segment_value_type_code = 'S';
3599:
3600: update gl_ledgers
3601: set bal_seg_value_option_code = 'A'
3602: where ledger_id = l_ledger_id
3603: and bal_seg_value_option_code = 'I';
3604:

Line 3605: update gl_ledgers

3601: set bal_seg_value_option_code = 'A'
3602: where ledger_id = l_ledger_id
3603: and bal_seg_value_option_code = 'I';
3604:
3605: update gl_ledgers
3606: set bal_seg_value_option_code = 'A'
3607: where ledger_id in
3608: (select target_ledger_id
3609: from gl_ledger_relationships

Line 3669: from gl_ledgers

3665: from fnd_flex_validation_tables
3666: where flex_value_set_id = c_flex_value_set_id;
3667: CURSOR ledger_bsv_value_set(c_ledger_id NUMBER) IS
3668: select BAL_SEG_VALUE_SET_ID
3669: from gl_ledgers
3670: where ledger_id = c_ledger_id;
3671: BEGIN
3672: IF(x_object_type = 'LGR') THEN
3673: OPEN ledger_bsv_value_set(x_object_id);

Line 3789: from GL_LEDGERS LEDGERS

3785: x_object_id IN NUMBER,
3786: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3787: CURSOR get_duplicate IS
3788: select 'Duplicate'
3789: from GL_LEDGERS LEDGERS
3790: where LEDGERS.NAME = x_object_name
3791: and LEDGERS.LEDGER_ID <> x_object_id
3792: UNION
3793: select 'Duplicate'

Line 3820: from GL_LEDGERS GL_LEDGERS

3816: x_ledger_id IN NUMBER,
3817: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3818: CURSOR get_duplicate IS
3819: select 'Duplicate'
3820: from GL_LEDGERS GL_LEDGERS
3821: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3822: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3823: UNION
3824: select 'Duplicate'

Line 3821: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name

3817: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3818: CURSOR get_duplicate IS
3819: select 'Duplicate'
3820: from GL_LEDGERS GL_LEDGERS
3821: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3822: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3823: UNION
3824: select 'Duplicate'
3825: from GL_LEDGER_RELATIONSHIPS

Line 3822: and GL_LEDGERS.LEDGER_ID <> x_ledger_id

3818: CURSOR get_duplicate IS
3819: select 'Duplicate'
3820: from GL_LEDGERS GL_LEDGERS
3821: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3822: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3823: UNION
3824: select 'Duplicate'
3825: from GL_LEDGER_RELATIONSHIPS
3826: where target_ledger_category_code = 'ALC'

Line 3855: FROM GL_LEDGERS

3851: AND relationship_id <> x_relationship_id
3852: AND target_ledger_id <> x_ledger_id
3853: UNION
3854: SELECT name
3855: FROM GL_LEDGERS
3856: WHERE name = x_target_ledger_name
3857: AND ledger_id <> NVL(x_ledger_id,-1)
3858: UNION
3859: SELECT 'Duplicate'

Line 3889: FROM gl_ledgers

3885: AND relationship_id <> x_relationship_id
3886: AND target_ledger_id <> x_ledger_id
3887: UNION
3888: SELECT short_name
3889: FROM gl_ledgers
3890: WHERE short_name = x_ledger_short_name
3891: AND ledger_id <> NVL(x_ledger_id,-1);
3892: test VARCHAR2(20);
3893: BEGIN

Line 3911: update gl_ledgers

3907: update gl_ledger_configurations
3908: set completion_status_code = 'CONFIRMED'
3909: where configuration_id = x_object_id;
3910:
3911: update gl_ledgers
3912: set complete_flag = 'Y'
3913: where configuration_id = x_object_id
3914: and ledger_category_code in ('PRIMARY', 'SECONDARY', 'ALC');
3915: ELSIF(x_object_type = 'LEDGER') THEN

Line 3916: update gl_ledgers

3912: set complete_flag = 'Y'
3913: where configuration_id = x_object_id
3914: and ledger_category_code in ('PRIMARY', 'SECONDARY', 'ALC');
3915: ELSIF(x_object_type = 'LEDGER') THEN
3916: update gl_ledgers
3917: set complete_flag = 'Y'
3918: where ledger_id = x_object_id;
3919: END IF;
3920: END set_status_complete;

Line 3959: FROM gl_ledgers where ledger_id = x_ledger_id))

3955: FROM GL_PERIODS pr, GL_PERIOD_TYPES pty
3956: WHERE pr.period_type = pty.period_type
3957: AND ((pr.period_set_name, pr.period_type)
3958: IN (SELECT period_set_name, accounted_period_type
3959: FROM gl_ledgers where ledger_id = x_ledger_id))
3960: GROUP BY pr.period_set_name, pty.user_period_type, pty.period_type
3961: HAVING (max(pr.end_date - pr.start_date)+1) >=35;
3962:
3963: dummy VARCHAR2(100);

Line 4037: END gl_ledgers_pkg;

4033: END IF;
4034:
4035: END get_short_name ;
4036: -- ***********************************************************************
4037: END gl_ledgers_pkg;