DBA Data[Home] [Help]

APPS.GL_FLATTEN_ACCESS_SETS dependencies on GL_FLATTEN_ACCESS_SETS

Line 1: PACKAGE BODY GL_FLATTEN_ACCESS_SETS AS

1: PACKAGE BODY GL_FLATTEN_ACCESS_SETS AS
2: /* $Header: gluflasb.pls 120.11 2006/01/13 02:21:38 spala ship $ */
3:
4: -- ********************************************************************
5:

Line 20: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');

16: -- changes to GL_ACCESS_SET_ASSIGNMENTS will not be committed
17: -- until everything is done.
18:
19: GL_MESSAGE.Func_Ent
20: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
21:
22: -- Call Fix_Flattened_Table to maintain GL_ACCESS_SET_ASSIGNMENTS.
23: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
24:

Line 23: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;

19: GL_MESSAGE.Func_Ent
20: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
21:
22: -- Call Fix_Flattened_Table to maintain GL_ACCESS_SET_ASSIGNMENTS.
23: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
24:
25: IF (NOT ret_val) THEN
26: RAISE GLSTFL_fatal_err;
27: END IF;

Line 30: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');

26: RAISE GLSTFL_fatal_err;
27: END IF;
28:
29: GL_MESSAGE.Func_Succ
30: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
31:
32: RETURN TRUE;
33:
34: -- Exception handling

Line 42: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets()');

38: GL_MESSAGE.Write_Log
39: (msg_name => 'FLAT0002',
40: token_num => 1,
41: t1 => 'ROUTINE_NAME',
42: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets()');
43:
44: GL_MESSAGE.Func_Fail
45: (func_name =>'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
46:

Line 45: (func_name =>'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');

41: t1 => 'ROUTINE_NAME',
42: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets()');
43:
44: GL_MESSAGE.Func_Fail
45: (func_name =>'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
46:
47: RETURN FALSE;
48:
49: WHEN OTHERS THEN

Line 54: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets()',

50: GL_MESSAGE.Write_Log
51: (msg_name => 'SHRD0203',
52: token_num => 2,
53: t1 => 'FUNCTION',
54: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets()',
55: t2 => 'SQLERRMC',
56: v2 => SQLERRM);
57:
58: GL_MESSAGE.Func_Fail

Line 59: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');

55: t2 => 'SQLERRMC',
56: v2 => SQLERRM);
57:
58: GL_MESSAGE.Func_Fail
59: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets');
60:
61: RETURN FALSE;
62:
63: END Fix_Explicit_Sets;

Line 87: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');

83: -- 3) Call routine Fix_Flattened_Table to maintain
84: -- GL_ACCESS_SET_ASSIGNMENTS.
85:
86: GL_MESSAGE.Func_Ent
87: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');
88:
89: -- Clean up GL_ACCESS_SET_NORM_ASSIGN
90: -- for any unprocessed data left over from previous failed run
91:

Line 156: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table

152: FND_CONCURRENT.Af_Commit;
153:
154: -- Call routines Fix_Norm_Table and Fix_Flattened_Table to
155: -- process data
156: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table
157: (Ledgers_And_Hier => Any_Ledger_Hier_Changes);
158:
159: IF (NOT ret_val) THEN
160: RAISE GLSTFL_fatal_err;

Line 163: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;

159: IF (NOT ret_val) THEN
160: RAISE GLSTFL_fatal_err;
161: END IF;
162:
163: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
164:
165: IF (NOT ret_val) THEN
166: RAISE GLSTFL_fatal_err;
167: END IF;

Line 170: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');

166: RAISE GLSTFL_fatal_err;
167: END IF;
168:
169: GL_MESSAGE.Func_Succ
170: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');
171:
172: RETURN TRUE;
173:
174: EXCEPTION

Line 181: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets()');

177: GL_MESSAGE.Write_Log
178: (msg_name => 'FLAT0002',
179: token_num => 1,
180: t1 => 'ROUTINE_NAME',
181: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets()');
182:
183: -- Rollback
184: FND_CONCURRENT.Af_Rollback;
185:

Line 187: (func_name =>'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');

183: -- Rollback
184: FND_CONCURRENT.Af_Rollback;
185:
186: GL_MESSAGE.Func_Fail
187: (func_name =>'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');
188:
189: RETURN FALSE;
190:
191: WHEN OTHERS THEN

Line 196: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets()',

192: GL_MESSAGE.Write_Log
193: (msg_name => 'SHRD0203',
194: token_num => 2,
195: t1 => 'FUNCTION',
196: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets()',
197: t2 => 'SQLERRMC',
198: v2 => SQLERRM);
199:
200: -- Rollback

Line 204: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');

200: -- Rollback
201: FND_CONCURRENT.Af_Rollback;
202:
203: GL_MESSAGE.Func_Fail
204: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets');
205:
206: RETURN FALSE;
207:
208: END Fix_Implicit_Sets;

Line 245: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');

241: *** -- statements will be run to process legal and management
242: *** -- hierarchies. */
243:
244: GL_MESSAGE.Func_Ent
245: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');
246:
247: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
248: GL_MESSAGE.Write_Log
249: (msg_name => 'SHRD0180',

Line 312: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');

308: FND_CONCURRENT.Af_Commit;
309:
310:
311: GL_MESSAGE.Func_Succ
312: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');
313:
314: RETURN TRUE;
315:
316: EXCEPTION

Line 322: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table()',

318: GL_MESSAGE.Write_Log
319: (msg_name => 'SHRD0203',
320: token_num => 2,
321: t1 => 'FUNCTION',
322: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table()',
323: t2 => 'SQLERRMC',
324: v2 => SQLERRM);
325:
326: FND_CONCURRENT.Af_Rollback;

Line 329: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');

325:
326: FND_CONCURRENT.Af_Rollback;
327:
328: GL_MESSAGE.Func_Fail
329: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Norm_Table');
330:
331: RETURN FALSE;
332:
333: END Fix_Norm_Table;

Line 372: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');

368: -- any management hierarchies.
369: -- If so, report as error and abort processing.
370:
371: GL_MESSAGE.Func_Ent
372: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');
373:
374: -- For modes LH, LS, VS and AS, obtain shared lock on both balancing
375: -- and management segments.
376: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE IN

Line 437: ret_val := GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table;

433: END IF;
434: END IF;
435:
436: -- Call Populate_Temp_Table
437: ret_val := GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table;
438:
439: IF (NOT ret_val) THEN
440: RAISE GLSTFL_fatal_err;
441: END IF;

Line 476: ret_val := GL_FLATTEN_ACCESS_SETS.Enable_Record;

472: -- Here only call Enable_Record when not processing implicit access
473: -- sets ONLY. This means that the routine will NOT be called in modes
474: -- LH and VH
475: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE NOT IN ('LH', 'VH')) THEN
476: ret_val := GL_FLATTEN_ACCESS_SETS.Enable_Record;
477:
478: IF (NOT ret_val) THEN
479: RAISE GLSTFL_fatal_err;
480: END IF;

Line 693: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');

689: -- that SH and FF processes cannot start until all status codes
690: -- are reset to current.
691:
692: GL_MESSAGE.Func_Succ
693: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');
694:
695: RETURN TRUE;
696:
697: EXCEPTION

Line 704: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table()');

700: GL_MESSAGE.Write_Log
701: (msg_name => 'FLAT0002',
702: token_num => 1,
703: t1 => 'ROUTINE_NAME',
704: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table()');
705:
706: GL_MESSAGE.Func_Fail
707: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');
708:

Line 707: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');

703: t1 => 'ROUTINE_NAME',
704: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table()');
705:
706: GL_MESSAGE.Func_Fail
707: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');
708:
709: RETURN FALSE;
710:
711: WHEN OTHERS THEN

Line 716: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table()',

712: GL_MESSAGE.Write_Log
713: (msg_name => 'SHRD0203',
714: token_num => 2,
715: t1 => 'FUNCTION',
716: v1 => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table()',
717: t2 => 'SQLERRMC',
718: v2 => SQLERRM);
719:
720: GL_MESSAGE.Func_Fail

Line 721: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');

717: t2 => 'SQLERRMC',
718: v2 => SQLERRM);
719:
720: GL_MESSAGE.Func_Fail
721: (func_name => 'GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table');
722:
723: RETURN FALSE;
724:
725: END Fix_Flattened_Table;

Line 749: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');

745: -- 2) If processing is needed, run statements to populate
746: -- GL_ACCESS_SET_ASSIGN_INT based on the mode of operation.
747:
748: GL_MESSAGE.Func_Ent
749: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');
750:
751: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
752: GL_MESSAGE.Write_Log
753: (msg_name => 'SHRD0180',

Line 1512: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');

1508: -- Commit all work
1509: FND_CONCURRENT.Af_Commit;
1510:
1511: GL_MESSAGE.Func_Succ
1512: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');
1513:
1514: RETURN TRUE;
1515:
1516: EXCEPTION

Line 1522: v1 => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table()',

1518: GL_MESSAGE.Write_Log
1519: (msg_name => 'SHRD0203',
1520: token_num => 2,
1521: t1 => 'FUNCTION',
1522: v1 => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table()',
1523: t2 => 'SQLERRMC',
1524: v2 => SQLERRM);
1525:
1526: -- Rollback

Line 1530: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');

1526: -- Rollback
1527: FND_CONCURRENT.Af_Rollback;
1528:
1529: GL_MESSAGE.Func_Fail
1530: (func_name => 'GL_FLATTEN_ACCESS_SETS.Populate_Temp_Table');
1531:
1532: RETURN FALSE;
1533:
1534: END Populate_Temp_Table;

Line 1582: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');

1578: -- effective record in GL_ACCESS_SET_ASSIGN_INT that has a higher
1579: -- access privilege.
1580:
1581: GL_MESSAGE.Func_Ent
1582: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');
1583:
1584: -- Pick a record with access_privilege_code of B that has
1585: -- the smallest rowid, and disable all other records
1586: -- Note this will only happen when the current effective

Line 1869: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');

1865: v2 => 'GL_ACCESS_SET_ASSIGNMENTS');
1866: row_count := 0;
1867:
1868: GL_MESSAGE.Func_Succ
1869: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');
1870:
1871: RETURN TRUE;
1872:
1873: EXCEPTION

Line 1879: v1 => 'GL_FLATTEN_ACCESS_SETS.Enable_Record()',

1875: GL_MESSAGE.Write_Log
1876: (msg_name => 'SHRD0203',
1877: token_num => 2,
1878: t1 => 'FUNCTION',
1879: v1 => 'GL_FLATTEN_ACCESS_SETS.Enable_Record()',
1880: t2 => 'SQLERRMC',
1881: v2 => SQLERRM);
1882:
1883: GL_MESSAGE.Func_Fail

Line 1884: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');

1880: t2 => 'SQLERRMC',
1881: v2 => SQLERRM);
1882:
1883: GL_MESSAGE.Func_Fail
1884: (func_name => 'GL_FLATTEN_ACCESS_SETS.Enable_Record');
1885:
1886: RETURN FALSE;
1887:
1888: END Enable_Record;

Line 1897: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');

1893: row_count NUMBER := 0;
1894: BEGIN
1895:
1896: GL_MESSAGE.Func_Ent
1897: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');
1898:
1899: -- Run the following statements using the right parameters
1900: -- to clean up GL_ACCESS_SET_NORM_ASSIGN
1901:

Line 2008: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');

2004: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');
2005: row_count := 0;
2006:
2007: GL_MESSAGE.Func_Succ
2008: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');
2009:
2010: RETURN TRUE;
2011:
2012: EXCEPTION

Line 2018: v1 => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa()',

2014: GL_MESSAGE.Write_Log
2015: (msg_name => 'SHRD0203',
2016: token_num => 2,
2017: t1 => 'FUNCTION',
2018: v1 => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa()',
2019: t2 => 'SQLERRMC',
2020: v2 => SQLERRM);
2021:
2022: GL_MESSAGE.Func_Fail

Line 2023: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');

2019: t2 => 'SQLERRMC',
2020: v2 => SQLERRM);
2021:
2022: GL_MESSAGE.Func_Fail
2023: (func_name => 'GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa');
2024:
2025: RETURN FALSE;
2026:
2027: END Clean_Up_By_Coa;

Line 2031: END GL_FLATTEN_ACCESS_SETS;

2027: END Clean_Up_By_Coa;
2028:
2029: -- ******************************************************************
2030:
2031: END GL_FLATTEN_ACCESS_SETS;
2032: