22: dim_required VARCHAR2(1);
23: dim_str VARCHAR2(400);
24: BEGIN
25: fn_name := 'BUILD_DIM_STR';
26: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
27: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
28: g_api || '.' || fn_name,
29: GCS_UTILITY_PKG.g_module_enter || fn_name ||
30: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
23: dim_str VARCHAR2(400);
24: BEGIN
25: fn_name := 'BUILD_DIM_STR';
26: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
27: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
28: g_api || '.' || fn_name,
29: GCS_UTILITY_PKG.g_module_enter || fn_name ||
30: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
31: END IF;
49: END IF;
50:
51: -- **************************************************
52:
53: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
54: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
55: g_api || '.' || fn_name,
56: GCS_UTILITY_PKG.g_module_success || fn_name ||
57: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
50:
51: -- **************************************************
52:
53: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
54: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
55: g_api || '.' || fn_name,
56: GCS_UTILITY_PKG.g_module_success || fn_name ||
57: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
58: END IF;
60: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
61:
62: EXCEPTION
63: WHEN OTHERS THEN
64: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
65: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
66: g_api || '.' || fn_name,
67: GCS_UTILITY_PKG.g_module_failure || fn_name ||
68: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
61:
62: EXCEPTION
63: WHEN OTHERS THEN
64: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
65: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
66: g_api || '.' || fn_name,
67: GCS_UTILITY_PKG.g_module_failure || fn_name ||
68: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
69: END IF;
82: PROCEDURE build_re_stmt IS
83: fn_name VARCHAR2(30);
84: BEGIN
85: fn_name := 'BUILD_RE_STMT';
86: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
87: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
88: g_api || '.' || fn_name,
89: GCS_UTILITY_PKG.g_module_enter || fn_name ||
90: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
83: fn_name VARCHAR2(30);
84: BEGIN
85: fn_name := 'BUILD_RE_STMT';
86: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
87: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
88: g_api || '.' || fn_name,
89: GCS_UTILITY_PKG.g_module_enter || fn_name ||
90: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
91: END IF;
139: build_dim_str('user_dim10_id');
140:
141: -- **************************************************
142:
143: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
145: g_api || '.' || fn_name,
146: GCS_UTILITY_PKG.g_module_success || fn_name ||
147: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
140:
141: -- **************************************************
142:
143: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
145: g_api || '.' || fn_name,
146: GCS_UTILITY_PKG.g_module_success || fn_name ||
147: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
148: END IF;
150: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
151:
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
155: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
156: g_api || '.' || fn_name,
157: GCS_UTILITY_PKG.g_module_failure || fn_name ||
158: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
151:
152: EXCEPTION
153: WHEN OTHERS THEN
154: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
155: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
156: g_api || '.' || fn_name,
157: GCS_UTILITY_PKG.g_module_failure || fn_name ||
158: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
159: END IF;
179:
180: comp_err VARCHAR2(10);
181: BEGIN
182: fn_name := 'CREATE_PACKAGE';
183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
185: g_api || '.' || fn_name,
186: GCS_UTILITY_PKG.g_module_enter || fn_name ||
187: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
180: comp_err VARCHAR2(10);
181: BEGIN
182: fn_name := 'CREATE_PACKAGE';
183: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
185: g_api || '.' || fn_name,
186: GCS_UTILITY_PKG.g_module_enter || fn_name ||
187: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
188: END IF;
257: l_currency_code_list DBMS_SQL.VARCHAR2_TABLE;
258:
259:
260: BEGIN
261: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
262: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
263: g_api || ''.'' || fn_name,
264: GCS_UTILITY_PKG.g_module_enter || fn_name ||
265: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
258:
259:
260: BEGIN
261: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
262: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
263: g_api || ''.'' || fn_name,
264: GCS_UTILITY_PKG.g_module_enter || fn_name ||
265: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
266: END IF;
265: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
266: END IF;
267:
268: --Bugfix 5449718: Adding information on key parameters
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
266: END IF;
267:
268: --Bugfix 5449718: Adding information on key parameters
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
267:
268: --Bugfix 5449718: Adding information on key parameters
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
268: --Bugfix 5449718: Adding information on key parameters
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
277: END IF;
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
277: END IF;
278:
271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Run Name : '' || p_run_name);
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
277: END IF;
278:
279: IF ( p_is_elim_entity = ''Y'' ) THEN
272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Consolidation Entity: '' || p_cons_entity_id);
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Category Code : '' || p_category_code);
274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Cross Year Flag : '' || p_cross_year_flag);
275: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''Net to RE Flag : '' || p_net_to_re_flag);
276: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, g_api || ''.''|| fn_name, ''<<<<
278:
279: IF ( p_is_elim_entity = ''Y'' ) THEN
280:
389: /* FOR i IN l_stat_entry_id_list.FIRST.. l_stat_entry_id_list.LAST LOOP
390: l_entry_id_list(l_entry_id_list.LAST + i) := l_stat_entry_id_list(i);
391: END LOOP;
392: */
393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.''|| fn_name, ''Number of entries to process: '' || l_entry_id_list.COUNT);
395: END IF;
396:
397: --Bufix 5449718: Go to the end of the procedure as a safe net if there are no entries to process
390: l_entry_id_list(l_entry_id_list.LAST + i) := l_stat_entry_id_list(i);
391: END LOOP;
392: */
393: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.''|| fn_name, ''Number of entries to process: '' || l_entry_id_list.COUNT);
395: END IF;
396:
397: --Bufix 5449718: Go to the end of the procedure as a safe net if there are no entries to process
398: IF (l_entry_id_list.COUNT = 0) THEN
413: END IF;
414: END LOOP;
415: END IF;
416:
417: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Number of single year entries: '' || l_entry_id_list.COUNT);
419: 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);
420: END IF;
421:
414: END LOOP;
415: END IF;
416:
417: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Number of single year entries: '' || l_entry_id_list.COUNT);
419: 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);
420: END IF;
421:
422: IF (p_cross_year_flag = ''N'') THEN
415: END IF;
416:
417: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Number of single year entries: '' || l_entry_id_list.COUNT);
419: 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);
420: END IF;
421:
422: IF (p_cross_year_flag = ''N'') THEN
423:
420: END IF;
421:
422: IF (p_cross_year_flag = ''N'') THEN
423:
424: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing Within Year'');
426: END IF;
427:
428: IF (l_entry_id_list.COUNT > 0) THEN
421:
422: IF (p_cross_year_flag = ''N'') THEN
423:
424: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing Within Year'');
426: END IF;
427:
428: IF (l_entry_id_list.COUNT > 0) THEN
429: --Cannot reference tables of records in BULK statements so initializing individual tables
434: l_entry_list(i) := l_entry_id_list(i).entry_id;
435: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
436: END LOOP;
437:
438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
440: END IF;
441:
442: --Bugfix 5449718: Need to insert into GCS_ENTRY_LINES_GT to avoid unique constraint errors
435: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
436: END LOOP;
437:
438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
439: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
440: END IF;
441:
442: --Bugfix 5449718: Need to insert into GCS_ENTRY_LINES_GT to avoid unique constraint errors
443: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
514: AND feata.attribute_id = g_acct_type_attr_id
515: AND feata.version_id = g_acct_type_ver_id
516: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
517:
518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year Entries'');
520: END IF;
521:
522: END IF;
515: AND feata.version_id = g_acct_type_ver_id
516: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
517:
518: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year Entries'');
520: END IF;
521:
522: END IF;
523:
532: l_entry_list(i) := l_recur_entry_id_list(i).entry_id;
533: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
534: END LOOP;
535:
536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Recurring Entries'');
538: END IF;
539:
540: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
533: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
534: END LOOP;
535:
536: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Recurring Entries'');
538: END IF;
539:
540: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
541: INSERT INTO GCS_ENTRY_LINES_GT l1
601: GCS_ENTRY_LINES l2
602: WHERE l2.entry_id = l_entry_list(i)
603: AND l2.line_type_code IN (''PROFIT_LOSS'', ''BALANCE_SHEET'');
604:
605: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Recurring Entries'');
607: END IF;
608:
609: END IF;
602: WHERE l2.entry_id = l_entry_list(i)
603: AND l2.line_type_code IN (''PROFIT_LOSS'', ''BALANCE_SHEET'');
604:
605: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Recurring Entries'');
607: END IF;
608:
609: END IF;
610:
610:
611: --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
612: ELSIF (p_net_to_re_flag = ''N'') THEN
613:
614: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing for Next Year with Net to RE set to N'');
616: END IF;
617:
618: -- find default org id for RE, in case bal_by_org is ''N''
611: --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
612: ELSIF (p_net_to_re_flag = ''N'') THEN
613:
614: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing for Next Year with Net to RE set to N'');
616: END IF;
617:
618: -- find default org id for RE, in case bal_by_org is ''N''
619: l_default_org_id := GCS_UTILITY_PKG.get_org_id(p_entity_id,
634: l_entry_list(i) := l_entry_id_list(i).entry_id;
635: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
636: END LOOP;
637:
638: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
640: END IF;
641:
642: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
635: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
636: END LOOP;
637:
638: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
639: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
640: END IF;
641:
642: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
643: INSERT INTO GCS_ENTRY_LINES_GT l1
715: AND feata.version_id = g_acct_type_ver_id
716: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
717: -- Bugfix 5449718: Group by is no longer necessary
718:
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year Entries'');
721: END IF;
722:
723: END IF;
716: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
717: -- Bugfix 5449718: Group by is no longer necessary
718:
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year Entries'');
721: END IF;
722:
723: END IF;
724: ';
736: '
737: --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
738: ELSIF (p_net_to_re_flag = ''Y'') THEN
739:
740: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing for Next Year with Net to RE set to Y'');
742: END IF;
743:
744: -- find default org id for RE, in case bal_by_org is ''N''
737: --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
738: ELSIF (p_net_to_re_flag = ''Y'') THEN
739:
740: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Processing for Next Year with Net to RE set to Y'');
742: END IF;
743:
744: -- find default org id for RE, in case bal_by_org is ''N''
745: l_default_org_id := GCS_UTILITY_PKG.get_org_id(p_entity_id,
760: l_entry_list(i) := l_entry_id_list(i).entry_id;
761: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
762: END LOOP;
763:
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
765: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
766: END IF;
767:
768: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
761: l_currency_code_list(i) := l_entry_id_list(i).currency_code;
762: END LOOP;
763:
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
765: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Single Year Entries'');
766: END IF;
767:
768: FORALL i IN l_entry_id_list.FIRST.. l_entry_id_list.LAST
769: INSERT INTO GCS_ENTRY_LINES_GT l1
841: AND feata.version_id = g_acct_type_ver_id
842: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
843: -- Bugfix 5449718: Group by is no longer necessary
844:
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year'');
847: END IF;
848:
849: ';
842: AND feata.ext_account_type_code = lia.dim_attribute_varchar_member;
843: -- Bugfix 5449718: Group by is no longer necessary
844:
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
846: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Single Year'');
847: END IF;
848:
849: ';
850:
871: l_entry_list(i) := l_recur_entry_id_list(i).entry_id;
872: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
873: END LOOP;
874:
875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
876: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Recurring Entries'');
877: END IF;
878:
879: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
872: l_currency_code_list(i) := l_recur_entry_id_list(i).currency_code;
873: END LOOP;
874:
875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
876: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Beginning Collection of Recurring Entries'');
877: END IF;
878:
879: FORALL i IN l_recur_entry_id_list.FIRST.. l_recur_entry_id_list.LAST
880: INSERT INTO GCS_ENTRY_LINES_GT l1
941: l2.entry_id = l_entry_list(i)
942: AND l2.line_type_code IN (''CALCULATED'', ''BALANCE_SHEET'');
943: -- Bugfix 5449718: Group by is no longer necessary
944:
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Recurring Entries'');
947: END IF;
948: ';
949:
942: AND l2.line_type_code IN (''CALCULATED'', ''BALANCE_SHEET'');
943: -- Bugfix 5449718: Group by is no longer necessary
944:
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, g_api || ''.'' || fn_name, ''Completed Collection of Recurring Entries'');
947: END IF;
948: ';
949:
950: curr_pos := 1;
1026: sysdate,
1027: GCS_PERIOD_INIT_PKG.g_fnd_user_id,
1028: sysdate,
1029: GCS_PERIOD_INIT_PKG.g_fnd_user_id,
1030: GCS_PERIOD_INIT_PKG.g_fnd_login_id
1031: FROM gcs_entry_lines_gt
1032: GROUP BY entry_id,
1033: company_cost_center_org_id,
1034: line_item_id,
1049:
1050: body_block :=
1051: ' intercompany_id;
1052:
1053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1054: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1055: g_api || ''.'' || fn_name,
1056: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
1057: END IF;
1050: body_block :=
1051: ' intercompany_id;
1052:
1053: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1054: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1055: g_api || ''.'' || fn_name,
1056: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
1057: END IF;
1058:
1059: <
1060:
1061: COMMIT;
1062:
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1064: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1065: g_api || ''.'' || fn_name,
1066: GCS_UTILITY_PKG.g_module_success || fn_name ||
1067: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1060:
1061: COMMIT;
1062:
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1064: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1065: g_api || ''.'' || fn_name,
1066: GCS_UTILITY_PKG.g_module_success || fn_name ||
1067: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1068: END IF;
1070: -- fn_name || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1075: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1076: g_api || ''.'' || fn_name,
1077: GCS_UTILITY_PKG.g_module_failure || fn_name ||
1078: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1075: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1076: g_api || ''.'' || fn_name,
1077: GCS_UTILITY_PKG.g_module_failure || fn_name ||
1078: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1079: END IF;
1096: ad_ddl.create_plsql_object(GCS_DYNAMIC_UTIL_PKG.g_applsys_username,
1097: 'GCS', 'GCS_PERIOD_INIT_DYNAMIC_PKG',
1098: 1, line_num - 1, 'FALSE', comp_err);
1099:
1100: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1101: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1102: g_api || '.' || fn_name,
1103: GCS_UTILITY_PKG.g_module_success || fn_name ||
1104: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1097: 'GCS', 'GCS_PERIOD_INIT_DYNAMIC_PKG',
1098: 1, line_num - 1, 'FALSE', comp_err);
1099:
1100: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1101: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1102: g_api || '.' || fn_name,
1103: GCS_UTILITY_PKG.g_module_success || fn_name ||
1104: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1105: END IF;
1107: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1108:
1109: EXCEPTION
1110: WHEN OTHERS THEN
1111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1113: g_api || '.' || fn_name,
1114: SUBSTR(SQLERRM, 1, 4000));
1115: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1108:
1109: EXCEPTION
1110: WHEN OTHERS THEN
1111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1113: g_api || '.' || fn_name,
1114: SUBSTR(SQLERRM, 1, 4000));
1115: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1116: g_api || '.' || fn_name,
1111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1113: g_api || '.' || fn_name,
1114: SUBSTR(SQLERRM, 1, 4000));
1115: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1116: g_api || '.' || fn_name,
1117: GCS_UTILITY_PKG.g_module_failure || fn_name ||
1118: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1119: END IF;