APPS.GL_FLATTEN_LEDGER_SETS dependencies on GL_ACCESS_SET_NORM_ASSIGN

Line 16: -- 2) Clean up GL_ACCESS_SET_NORM_ASSIGN

12:
13: -- This is the routine that processes changes in explicit ledger
14: -- sets. The basic flow is as follows:
15: -- 1) Clean up GL_LEDGER_SET_ASSIGNMENTS
16: -- 2) Clean up GL_ACCESS_SET_NORM_ASSIGN
17: -- 3) For all newly created ledger sets, populate implicit access set
18: -- information into GL_ACCESS_SET_NORM_ASSIGN
19: -- 4) Mark all outdated mappings in GL_LEDGER_SET_ASSIGNMENTS for
20: -- delete.

Line 18: -- information into GL_ACCESS_SET_NORM_ASSIGN

14: -- sets. The basic flow is as follows:
15: -- 1) Clean up GL_LEDGER_SET_ASSIGNMENTS
16: -- 2) Clean up GL_ACCESS_SET_NORM_ASSIGN
17: -- 3) For all newly created ledger sets, populate implicit access set
18: -- information into GL_ACCESS_SET_NORM_ASSIGN
19: -- 4) Mark all outdated mappings in GL_LEDGER_SET_ASSIGNMENTS for
20: -- delete.
21: -- 5) Insert new mappings into GL_LEDGER_SET_ASSIGNMENTS
22: -- 6) Check if looping exists in the ledger set assignments. If so,

Line 89: -- Delete from GL_ACCESS_SET_NORM_ASSIGN for any new assignments

85: t2 => 'TABLE',
86: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
87: row_count := 0;
88:
89: -- Delete from GL_ACCESS_SET_NORM_ASSIGN for any new assignments
90: -- created for the implicit access sets associated with
91: -- these explicit ledger sets that are left over from pervious runs.
92: -- We don't need to reset the D record for this table since the
93: -- implicit access sets of ledger sets only contain 1 assignment,

Line 103: 'GL_ACCESS_SET_NORM_ASSIGN...');

99: t1 => 'ROUTINE',
100: v1 => 'Fix_Explicit_Sets()',
101: t2 => 'ACTION',
102: v2 => 'Deleting records with status code I in ' ||
103: 'GL_ACCESS_SET_NORM_ASSIGN...');
104: END IF;
105:
106: DELETE from GL_ACCESS_SET_NORM_ASSIGN
107: WHERE status_code = 'I'

Line 106: DELETE from GL_ACCESS_SET_NORM_ASSIGN

102: v2 => 'Deleting records with status code I in ' ||
103: 'GL_ACCESS_SET_NORM_ASSIGN...');
104: END IF;
105:
106: DELETE from GL_ACCESS_SET_NORM_ASSIGN
107: WHERE status_code = 'I'
108: AND access_set_id IN
109: (SELECT implicit_access_set_id
110: FROM GL_LEDGERS

Line 120: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');

116: token_num => 2,
117: t1 => 'NUM',
118: v1 => TO_CHAR(row_count),
119: t2 => 'TABLE',
120: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');
121: row_count := 0;
122:
123: -- Commit all work so far
124: FND_CONCURRENT.Af_Commit;

Line 126: -- Populate access information into GL_ACCESS_SET_NORM_ASSIGN

122:
123: -- Commit all work so far
124: FND_CONCURRENT.Af_Commit;
125:
126: -- Populate access information into GL_ACCESS_SET_NORM_ASSIGN
127: -- for all newly created ledger sets.
128:
129: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
130: GL_MESSAGE.Write_Log

Line 137: 'GL_ACCESS_SET_NORM_ASSIGN ' ||

133: t1 => 'ROUTINE',
134: v1 => 'Fix_Explicit_Sets()',
135: t2 => 'ACTION',
136: v2 => 'Insert access information into ' ||
137: 'GL_ACCESS_SET_NORM_ASSIGN ' ||
138: 'for new ledger sets...');
139: END IF;
140:
141: INSERT INTO GL_ACCESS_SET_NORM_ASSIGN

Line 141: INSERT INTO GL_ACCESS_SET_NORM_ASSIGN

137: 'GL_ACCESS_SET_NORM_ASSIGN ' ||
138: 'for new ledger sets...');
139: END IF;
140:
141: INSERT INTO GL_ACCESS_SET_NORM_ASSIGN
142: (access_set_id, ledger_id, all_segment_value_flag,
143: segment_value_type_code, access_privilege_code, status_code,
144: record_id, link_id, last_update_date, last_updated_by,
145: last_update_login, creation_date, created_by, request_id,

Line 164: FROM GL_ACCESS_SET_NORM_ASSIGN glasna

160: AND gll.chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
161: AND gll.automatically_created_flag = 'N'
162: AND NOT EXISTS
163: (SELECT 1
164: FROM GL_ACCESS_SET_NORM_ASSIGN glasna
165: WHERE glasna.access_set_id =
166: gll.implicit_access_set_id
167: AND glasna.ledger_id = gllsna.ledger_set_id
168: AND glasna.access_privilege_code = 'B'

Line 180: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');

176: token_num => 2,
177: t1 => 'NUM',
178: v1 => TO_CHAR(row_count),
179: t2 => 'TABLE',
180: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');
181: row_count := 0;
182:
183: -- Update the record_id column of the newly created records
184: -- in GL_ACCESS_SET_NORM_ASSIGN

Line 184: -- in GL_ACCESS_SET_NORM_ASSIGN

180: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');
181: row_count := 0;
182:
183: -- Update the record_id column of the newly created records
184: -- in GL_ACCESS_SET_NORM_ASSIGN
185:
186: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
187: GL_MESSAGE.Write_Log
188: (msg_name => 'SHRD0180',

Line 194: 'GL_ACCESS_SET_NORM_ASSIGN ' ||

190: t1 => 'ROUTINE',
191: v1 => 'Fix_Explicit_Sets()',
192: t2 => 'ACTION',
193: v2 => 'Updating records with new record_id in ' ||
194: 'GL_ACCESS_SET_NORM_ASSIGN ' ||
195: 'for new ledger sets...');
196: END IF;
197:
198: UPDATE GL_ACCESS_SET_NORM_ASSIGN glasna

Line 198: UPDATE GL_ACCESS_SET_NORM_ASSIGN glasna

194: 'GL_ACCESS_SET_NORM_ASSIGN ' ||
195: 'for new ledger sets...');
196: END IF;
197:
198: UPDATE GL_ACCESS_SET_NORM_ASSIGN glasna
199: SET glasna.record_id = GL_ACCESS_SET_NORM_ASSIGN_S.nextval
200: WHERE glasna.status_code = 'I'
201: AND glasna.request_id = GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
202: AND glasna.record_id = -1

Line 199: SET glasna.record_id = GL_ACCESS_SET_NORM_ASSIGN_S.nextval

195: 'for new ledger sets...');
196: END IF;
197:
198: UPDATE GL_ACCESS_SET_NORM_ASSIGN glasna
199: SET glasna.record_id = GL_ACCESS_SET_NORM_ASSIGN_S.nextval
200: WHERE glasna.status_code = 'I'
201: AND glasna.request_id = GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
202: AND glasna.record_id = -1
203: AND glasna.access_set_id IN

Line 217: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');

213: token_num => 2,
214: t1 => 'NUM',
215: v1 => TO_CHAR(row_count),
216: t2 => 'TABLE',
217: v2 => 'GL_ACCESS_SET_NORM_ASSIGN');
218: row_count := 0;
219:
220: -- Commit all work
221: FND_CONCURRENT.Af_Commit;