107:
108:
109: BEGIN
110:
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
112: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_module || '.GDSD_UPDATE_IMPACT.begin', '<
113: END IF;
114:
115: -- Code to consume business event and get ledger id
108:
109: BEGIN
110:
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
112: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_module || '.GDSD_UPDATE_IMPACT.begin', '<
114:
115: -- Code to consume business event and get ledger id
116: l_event_key:= p_event.getEventKey();
116: l_event_key:= p_event.getEventKey();
117:
118: l_posting_run_id := substr(l_event_key, 0, (instr(l_event_key,':', 1) - 1) );
119:
120: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
121: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_posting_run_id: '||l_posting_run_id);
122: END IF;
123:
124: -- Bugfix 5303024
117:
118: l_posting_run_id := substr(l_event_key, 0, (instr(l_event_key,':', 1) - 1) );
119:
120: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
121: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_posting_run_id: '||l_posting_run_id);
122: END IF;
123:
124: -- Bugfix 5303024
125: -- Bugfix 5371570: Need to remove the reference to set of books id for R12 compatibility. Retrieve the ledger_id from gl_je_headers
132: fem_global_vs_combo_defs fch_gvcd
133: WHERE gso.fch_global_vs_combo_id = fch_gvcd.global_vs_combo_id
134: AND fch_gvcd.dimension_id = 8;
135:
136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'fch_vsid: '
138: || l_fch_gvcd_value_set_id);
139: END IF;
140: -- More than one ledger/period combination can correspond to a particular posting_run_id
133: WHERE gso.fch_global_vs_combo_id = fch_gvcd.global_vs_combo_id
134: AND fch_gvcd.dimension_id = 8;
135:
136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'fch_vsid: '
138: || l_fch_gvcd_value_set_id);
139: END IF;
140: -- More than one ledger/period combination can correspond to a particular posting_run_id
141: -- so decide the Mapping status and the Balancing Segment name for ledger/periods.
182:
183: FOR l_ledger_period_bsv_index IN l_ledger_period_bsv_info.FIRST..l_ledger_period_bsv_info.LAST
184: LOOP
185:
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_ledger_period_bsv_index: '
188: || l_ledger_period_bsv_index);
189: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_id: '
190: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_id);
183: FOR l_ledger_period_bsv_index IN l_ledger_period_bsv_info.FIRST..l_ledger_period_bsv_info.LAST
184: LOOP
185:
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_ledger_period_bsv_index: '
188: || l_ledger_period_bsv_index);
189: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_id: '
190: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_id);
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_id: '
185:
186: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_ledger_period_bsv_index: '
188: || l_ledger_period_bsv_index);
189: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_id: '
190: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_id);
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_id: '
192: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_name: '
187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_ledger_period_bsv_index: '
188: || l_ledger_period_bsv_index);
189: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_id: '
190: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_id);
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_id: '
192: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_name: '
194: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_name);
195: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_gvcd_value_set_id: '
189: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_id: '
190: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_id);
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_id: '
192: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_name: '
194: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_name);
195: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_gvcd_value_set_id: '
196: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_gvcd_value_set_id);
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'map_flag: '
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_id: '
192: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_name: '
194: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_name);
195: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_gvcd_value_set_id: '
196: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_gvcd_value_set_id);
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'map_flag: '
198: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).map_flag);
199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'segment_column: '
193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'cal_period_name: '
194: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_name);
195: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_gvcd_value_set_id: '
196: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_gvcd_value_set_id);
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'map_flag: '
198: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).map_flag);
199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'segment_column: '
200: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).segment_column);
201:
195: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'ledger_gvcd_value_set_id: '
196: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).ledger_gvcd_value_set_id);
197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'map_flag: '
198: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).map_flag);
199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'segment_column: '
200: || l_ledger_period_bsv_info(l_ledger_period_bsv_index).segment_column);
201:
202: END IF;
203:
258:
259: -- Append the extra filter clause here
260: l_orgs_flag_param := 2;
261:
262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_her_obj_def_id: '||l_her_obj_def_id);
264: END IF;
265:
266: END IF;
259: -- Append the extra filter clause here
260: l_orgs_flag_param := 2;
261:
262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
263: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_her_obj_def_id: '||l_her_obj_def_id);
264: END IF;
265:
266: END IF;
267:
278: WHERE fda.company_cost_center_org_id = rec_list_of_orgs.company_cost_center_org_id
279: AND fda.attribute_id = gcs_utility_pkg.g_dimension_attr_info('COMPANY_COST_CENTER_ORG_ID-COMPANY').attribute_id
280: AND fda.version_id = gcs_utility_pkg.g_dimension_attr_info('COMPANY_COST_CENTER_ORG_ID-COMPANY').version_id;
281:
282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_company_id: '||l_company_id);
284: END IF;
285:
286: --Check if Balance Seg Values match
279: AND fda.attribute_id = gcs_utility_pkg.g_dimension_attr_info('COMPANY_COST_CENTER_ORG_ID-COMPANY').attribute_id
280: AND fda.version_id = gcs_utility_pkg.g_dimension_attr_info('COMPANY_COST_CENTER_ORG_ID-COMPANY').version_id;
281:
282: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'l_company_id: '||l_company_id);
284: END IF;
285:
286: --Check if Balance Seg Values match
287: OPEN c_check_bal_seg_val(l_rec_outer.balance_seg_value, l_company_id);
307: --End Bugfix 5569620
308:
309: COMMIT;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
308:
309: COMMIT;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Currency Code: '||row_inner_rec.currency_code);
309: COMMIT;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Currency Code: '||row_inner_rec.currency_code);
317: END IF;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Currency Code: '||row_inner_rec.currency_code);
317: END IF;
318:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Currency Code: '||row_inner_rec.currency_code);
317: END IF;
318:
319: END IF;
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Data Submission Impacted for: ');
313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Balance Type Code: '||row_inner_rec.actual_flag);
314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Cal Period Id: '||l_ledger_period_bsv_info(l_ledger_period_bsv_index).cal_period_id);
315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Entity Id: '||rec_entity.entity_id);
316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_module || '.GDSD_UPDATE_IMPACT', 'Currency Code: '||row_inner_rec.currency_code);
317: END IF;
318:
319: END IF;
320:
331:
332: END IF; --l_ledger_period_bsv_info not null
333: -- Eng Bugfix 5613525
334:
335: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
336: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_module || '.GDSD_UPDATE_IMPACT.end', '<
337: END IF;
338:
339: RETURN 'SUCCESS';
332: END IF; --l_ledger_period_bsv_info not null
333: -- Eng Bugfix 5613525
334:
335: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
336: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_module || '.GDSD_UPDATE_IMPACT.end', '<
338:
339: RETURN 'SUCCESS';
340:
340:
341: EXCEPTION
342: WHEN OTHERS THEN
343: BEGIN
344: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
345: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_module || '.GDSD_UPDATE_IMPACT.end', SUBSTR(SQLERRM, 1, 255));
346: END IF;
347:
348: RETURN 'FAILURE';
341: EXCEPTION
342: WHEN OTHERS THEN
343: BEGIN
344: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
345: FND_LOG.STRING(FND_LOG.LEVEL_ERROR, g_module || '.GDSD_UPDATE_IMPACT.end', SUBSTR(SQLERRM, 1, 255));
346: END IF;
347:
348: RETURN 'FAILURE';
349: END;