APPS.XLA_GL_LEDGERS_PVT dependencies on XLA_GL_LEDGERS

Line 1: PACKAGE BODY XLA_GL_LEDGERS_PVT AS

1: PACKAGE BODY XLA_GL_LEDGERS_PVT AS
2: /* $Header: xlathtbled.pkb 120.0 2005/10/07 12:16:28 svjoshi noship $ */
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |

Line 9: | xla_gl_ledgers_pvt |

5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_gl_ledgers_pvt |
10: | |
11: | Description |
12: | This is a XLA package, which contains all the logic required |
13: | to maintain ledger level options. |

Line 20: C_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'xla_gl_ledgers_pvt';

16: | HISTORY |
17: | 07-Oct-2005 M.Asada Created |
18: +===========================================================================*/
19:
20: C_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'xla_gl_ledgers_pvt';
21:
22:
23: --
24: --

Line 54: INSERT INTO xla_gl_ledgers

50: RAISE no_data_found;
51: END IF;
52:
53:
54: INSERT INTO xla_gl_ledgers
55: (
56: ledger_id
57: ,object_version_number
58: ,work_unit

Line 128: FROM xla_gl_ledgers

124: -- Allow update. Increment the database's OVN by 1
125: --
126: SELECT object_version_number
127: INTO l_object_version_number
128: FROM xla_gl_ledgers
129: WHERE ledger_id = p_ledger_id;
130:
131: l_object_version_number := l_object_version_number + 1;
132:

Line 145: FROM xla_gl_ledgers

141: --
142:
143: SELECT object_version_number
144: INTO l_object_version_number
145: FROM xla_gl_ledgers
146: WHERE ledger_id = p_ledger_id
147: FOR UPDATE;
148:
149: IF (l_object_version_number = p_object_version_number) THEN

Line 165: UPDATE xla_gl_ledgers

161: END IF;
162:
163: END IF;
164:
165: UPDATE xla_gl_ledgers
166: SET object_version_number = l_object_version_number
167: ,work_unit = p_work_unit
168: ,num_of_workers = p_num_of_workers
169: ,last_update_date = p_last_update_date

Line 206: DELETE FROM xla_gl_ledgers

202: (p_ledger_id IN NUMBER
203: ) IS
204: BEGIN
205:
206: DELETE FROM xla_gl_ledgers
207: WHERE ledger_id = p_ledger_id;
208:
209: IF SQL%NOTFOUND then
210: RAISE no_data_found;

Line 218: END xla_gl_ledgers_pvt; -- end of package spec

214:
215: --
216: --
217:
218: END xla_gl_ledgers_pvt; -- end of package spec