61: l_currency_code_list DBMS_SQL.VARCHAR2_TABLE;
62:
63:
64: BEGIN
65: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
66: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
67: g_api || '.' || fn_name,
68: GCS_UTILITY_PKG.g_module_enter || fn_name ||
69: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
62:
63:
64: BEGIN
65: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
66: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
67: g_api || '.' || fn_name,
68: GCS_UTILITY_PKG.g_module_enter || fn_name ||
69: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
70: END IF;
69: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
70: END IF;
71:
72: --Bugfix 5449718: Adding information on key parameters
73: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
70: END IF;
71:
72: --Bugfix 5449718: Adding information on key parameters
73: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
71:
72: --Bugfix 5449718: Adding information on key parameters
73: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
72: --Bugfix 5449718: Adding information on key parameters
73: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
80: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
73: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
80: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
81: END IF;
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
80: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
81: END IF;
82:
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Run Name : ' || p_run_name);
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
80: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
81: END IF;
82:
83: IF ( p_is_elim_entity = 'Y' ) THEN
76: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Consolidation Entity: ' || p_cons_entity_id);
77: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Category Code : ' || p_category_code);
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Cross Year Flag : ' || p_cross_year_flag);
79: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, 'Net to RE Flag : ' || p_net_to_re_flag);
80: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || '.'|| fn_name, '<<<<
82:
83: IF ( p_is_elim_entity = 'Y' ) THEN
84:
193: /* FOR i IN l_stat_entry_id_list.FIRST.. l_stat_entry_id_list.LAST LOOP
194: l_entry_id_list(l_entry_id_list.LAST + i) := l_stat_entry_id_list(i);
195: END LOOP;
196: */
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.'|| fn_name, 'Number of entries to process: ' || l_entry_id_list.COUNT);
199: END IF;
200:
201: --Bufix 5449718: Go to the end of the procedure as a safe net if there are no entries to process
194: l_entry_id_list(l_entry_id_list.LAST + i) := l_stat_entry_id_list(i);
195: END LOOP;
196: */
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
198: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.'|| fn_name, 'Number of entries to process: ' || l_entry_id_list.COUNT);
199: END IF;
200:
201: --Bufix 5449718: Go to the end of the procedure as a safe net if there are no entries to process
202: IF (l_entry_id_list.COUNT = 0) THEN
217: END IF;
218: END LOOP;
219: END IF;
220:
221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
222: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Number of single year entries: ' || l_entry_id_list.COUNT);
223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Recurring Entries Where Year to Apply RE is not null: ' || l_recur_entry_id_list.COUNT);
224: END IF;
225:
218: END LOOP;
219: END IF;
220:
221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
222: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Number of single year entries: ' || l_entry_id_list.COUNT);
223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Recurring Entries Where Year to Apply RE is not null: ' || l_recur_entry_id_list.COUNT);
224: END IF;
225:
226: IF (p_cross_year_flag = 'N') THEN
219: END IF;
220:
221: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
222: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Number of single year entries: ' || l_entry_id_list.COUNT);
223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Recurring Entries Where Year to Apply RE is not null: ' || l_recur_entry_id_list.COUNT);
224: END IF;
225:
226: IF (p_cross_year_flag = 'N') THEN
227:
224: END IF;
225:
226: IF (p_cross_year_flag = 'N') THEN
227:
228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
229: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing Within Year');
230: END IF;
231:
232: IF (l_entry_id_list.COUNT > 0) THEN
225:
226: IF (p_cross_year_flag = 'N') THEN
227:
228: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
229: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing Within Year');
230: END IF;
231:
232: IF (l_entry_id_list.COUNT > 0) THEN
233: --Cannot reference tables of records in BULK statements so initializing individual tables
238: l_entry_list(i) := l_entry_id_list(i).entry_id;
239: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
240: END LOOP;
241:
242: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
244: END IF;
245:
246: --Bugfix 5449718: Need to insert into GCS_ENTRY_LINES_GT to avoid unique constraint errors
239: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
240: END LOOP;
241:
242: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
244: END IF;
245:
246: --Bugfix 5449718: Need to insert into GCS_ENTRY_LINES_GT to avoid unique constraint errors
247: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
289: AND feata.attribute_id = g_acct_type_attr_id
290: AND feata.version_id = g_acct_type_ver_id
291: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
292:
293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year Entries');
295: END IF;
296:
297: END IF;
290: AND feata.version_id = g_acct_type_ver_id
291: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
292:
293: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year Entries');
295: END IF;
296:
297: END IF;
298:
307: l_entry_list(i) := l_recur_entry_id_list(i).entry_id;
308: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
309: END LOOP;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Recurring Entries');
313: END IF;
314:
315: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
308: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
309: END LOOP;
310:
311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Recurring Entries');
313: END IF;
314:
315: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
316: INSERT INTO GCS_ENTRY_LINES_GT l1
347: GCS_ENTRY_LINES l2
348: WHERE l2.entry_id = l_entry_list(i)
349: AND l2.line_type_code IN ('PROFIT_LOSS', 'BALANCE_SHEET');
350:
351: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Recurring Entries');
353: END IF;
354:
355: END IF;
348: WHERE l2.entry_id = l_entry_list(i)
349: AND l2.line_type_code IN ('PROFIT_LOSS', 'BALANCE_SHEET');
350:
351: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Recurring Entries');
353: END IF;
354:
355: END IF;
356:
356:
357: --Bugfix 5449718: Needed to add a condition if the Net to RE Flag is N versus Y when crossing the year-end boundary for performance purposes
358: ELSIF (p_net_to_re_flag = 'N') THEN
359:
360: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
361: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing for Next Year with Net to RE set to N');
362: END IF;
363:
364: -- find default org id for RE, in case bal_by_org is 'N'
357: --Bugfix 5449718: Needed to add a condition if the Net to RE Flag is N versus Y when crossing the year-end boundary for performance purposes
358: ELSIF (p_net_to_re_flag = 'N') THEN
359:
360: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
361: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing for Next Year with Net to RE set to N');
362: END IF;
363:
364: -- find default org id for RE, in case bal_by_org is 'N'
365: l_default_org_id := GCS_UTILITY_PKG.get_org_id(p_entity_id,
380: l_entry_list(i) := l_entry_id_list(i).entry_id;
381: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
382: END LOOP;
383:
384: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
386: END IF;
387:
388: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
381: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
382: END LOOP;
383:
384: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
385: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
386: END IF;
387:
388: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
389: INSERT INTO GCS_ENTRY_LINES_GT l1
446: AND feata.version_id = g_acct_type_ver_id
447: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
448: -- Bugfix 5449718: Group by is no longer necessary
449:
450: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year Entries');
452: END IF;
453:
454: END IF;
447: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
448: -- Bugfix 5449718: Group by is no longer necessary
449:
450: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
451: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year Entries');
452: END IF;
453:
454: END IF;
455:
455:
456: --Bugfix 5449718: Needed to add a condition if the Net to RE Flag is N versus Y when crossing the year-end boundary for performance purposes
457: ELSIF (p_net_to_re_flag = 'Y') THEN
458:
459: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
460: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing for Next Year with Net to RE set to Y');
461: END IF;
462:
463: -- find default org id for RE, in case bal_by_org is 'N'
456: --Bugfix 5449718: Needed to add a condition if the Net to RE Flag is N versus Y when crossing the year-end boundary for performance purposes
457: ELSIF (p_net_to_re_flag = 'Y') THEN
458:
459: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
460: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Processing for Next Year with Net to RE set to Y');
461: END IF;
462:
463: -- find default org id for RE, in case bal_by_org is 'N'
464: l_default_org_id := GCS_UTILITY_PKG.get_org_id(p_entity_id,
479: l_entry_list(i) := l_entry_id_list(i).entry_id;
480: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
481: END LOOP;
482:
483: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
484: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
485: END IF;
486:
487: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
480: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
481: END LOOP;
482:
483: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
484: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Single Year Entries');
485: END IF;
486:
487: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
488: INSERT INTO GCS_ENTRY_LINES_GT l1
545: AND feata.version_id = g_acct_type_ver_id
546: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
547: -- Bugfix 5449718: Group by is no longer necessary
548:
549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year');
551: END IF;
552:
553:
546: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
547: -- Bugfix 5449718: Group by is no longer necessary
548:
549: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Single Year');
551: END IF;
552:
553:
554: END IF;
563: l_entry_list(i) := l_recur_entry_id_list(i).entry_id;
564: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
565: END LOOP;
566:
567: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
568: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Recurring Entries');
569: END IF;
570:
571: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
564: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
565: END LOOP;
566:
567: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
568: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Beginning Collection of Recurring Entries');
569: END IF;
570:
571: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
572: INSERT INTO GCS_ENTRY_LINES_GT l1
604: l2.entry_id = l_entry_list(i)
605: AND l2.line_type_code IN ('CALCULATED', 'BALANCE_SHEET');
606: -- Bugfix 5449718: Group by is no longer necessary
607:
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
609: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Recurring Entries');
610: END IF;
611:
612: END IF;
605: AND l2.line_type_code IN ('CALCULATED', 'BALANCE_SHEET');
606: -- Bugfix 5449718: Group by is no longer necessary
607:
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
609: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || '.' || fn_name, 'Completed Collection of Recurring Entries');
610: END IF;
611:
612: END IF;
613: END IF; --if..then..cross year flag
647: sysdate,
648: GCS_PERIOD_INIT_PKG.g_fnd_user_id,
649: sysdate,
650: GCS_PERIOD_INIT_PKG.g_fnd_user_id,
651: GCS_PERIOD_INIT_PKG.g_fnd_login_id
652: FROM gcs_entry_lines_gt
653: GROUP BY entry_id,
654: company_cost_center_org_id,
655: line_item_id,
655: line_item_id,
656:
657: intercompany_id;
658:
659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
661: g_api || '.' || fn_name,
662: 'Inserted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
663: END IF;
656:
657: intercompany_id;
658:
659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
661: g_api || '.' || fn_name,
662: 'Inserted ' || to_char(SQL%ROWCOUNT) || ' row(s)');
663: END IF;
664:
665: <
666:
667: COMMIT;
668:
669: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
670: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
671: g_api || '.' || fn_name,
672: GCS_UTILITY_PKG.g_module_success || fn_name ||
673: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
666:
667: COMMIT;
668:
669: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
670: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
671: g_api || '.' || fn_name,
672: GCS_UTILITY_PKG.g_module_success || fn_name ||
673: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
674: END IF;
676: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
677:
678: EXCEPTION
679: WHEN OTHERS THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
681: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
682: g_api || '.' || fn_name,
683: GCS_UTILITY_PKG.g_module_failure || fn_name ||
684: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
677:
678: EXCEPTION
679: WHEN OTHERS THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
681: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
682: g_api || '.' || fn_name,
683: GCS_UTILITY_PKG.g_module_failure || fn_name ||
684: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
685: END IF;