34:
35: l_prefix VARCHAR2(1800);
36: l_suffix VARCHAR2(200);
37: BEGIN
38: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
39: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
40: g_api || '.' || fn_name,
41: GCS_UTILITY_PKG.g_module_enter || fn_name ||
42: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
35: l_prefix VARCHAR2(1800);
36: l_suffix VARCHAR2(200);
37: BEGIN
38: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
39: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
40: g_api || '.' || fn_name,
41: GCS_UTILITY_PKG.g_module_enter || fn_name ||
42: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
43: END IF;
80: END LOOP;
81:
82: -- **************************************************
83:
84: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
85: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
86: g_api || '.' || fn_name,
87: GCS_UTILITY_PKG.g_module_success || fn_name ||
88: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
81:
82: -- **************************************************
83:
84: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
85: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
86: g_api || '.' || fn_name,
87: GCS_UTILITY_PKG.g_module_success || fn_name ||
88: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
89: END IF;
94: RETURN (l_prefix || l_suffix);
95: -- **************************************************
96: EXCEPTION
97: WHEN OTHERS THEN
98: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
99: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
100: g_api || '.' || fn_name,
101: GCS_UTILITY_PKG.g_module_failure || fn_name ||
102: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
95: -- **************************************************
96: EXCEPTION
97: WHEN OTHERS THEN
98: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
99: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
100: g_api || '.' || fn_name,
101: GCS_UTILITY_PKG.g_module_failure || fn_name ||
102: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
103: END IF;
128: --
129: PROCEDURE build_org_id_str IS
130: fn_name VARCHAR2(30) := 'BUILD_ORG_ID_STR';
131: BEGIN
132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
134: g_api || '.' || fn_name,
135: GCS_UTILITY_PKG.g_module_enter || fn_name ||
136: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
129: PROCEDURE build_org_id_str IS
130: fn_name VARCHAR2(30) := 'BUILD_ORG_ID_STR';
131: BEGIN
132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
133: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
134: g_api || '.' || fn_name,
135: GCS_UTILITY_PKG.g_module_enter || fn_name ||
136: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
137: END IF;
148: ' || build_dim_match_str('l_sus_template') || ' l_default_org_id,
149: company_cost_center_org_id),';
150:
151: -- **************************************************
152: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
154: g_api || '.' || fn_name,
155: GCS_UTILITY_PKG.g_module_success || fn_name ||
156: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
149: company_cost_center_org_id),';
150:
151: -- **************************************************
152: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
154: g_api || '.' || fn_name,
155: GCS_UTILITY_PKG.g_module_success || fn_name ||
156: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
157: END IF;
159: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
164: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
165: g_api || '.' || fn_name,
166: GCS_UTILITY_PKG.g_module_failure || fn_name ||
167: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
160:
161: EXCEPTION
162: WHEN OTHERS THEN
163: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
164: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
165: g_api || '.' || fn_name,
166: GCS_UTILITY_PKG.g_module_failure || fn_name ||
167: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
168: END IF;
185: l_col_name VARCHAR2(30);
186: l_dim_req VARCHAR2(1);
187: l_ct_prefix VARCHAR2(10);
188: BEGIN
189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
190: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
191: g_api || '.' || fn_name,
192: GCS_UTILITY_PKG.g_module_enter || fn_name ||
193: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
186: l_dim_req VARCHAR2(1);
187: l_ct_prefix VARCHAR2(10);
188: BEGIN
189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
190: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
191: g_api || '.' || fn_name,
192: GCS_UTILITY_PKG.g_module_enter || fn_name ||
193: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
194: END IF;
228: END LOOP;
229:
230: -- **************************************************
231:
232: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
233: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
234: g_api || '.' || fn_name,
235: GCS_UTILITY_PKG.g_module_success || fn_name ||
236: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
229:
230: -- **************************************************
231:
232: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
233: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
234: g_api || '.' || fn_name,
235: GCS_UTILITY_PKG.g_module_success || fn_name ||
236: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
237: END IF;
239: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
240:
241: EXCEPTION
242: WHEN OTHERS THEN
243: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
244: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
245: g_api || '.' || fn_name,
246: GCS_UTILITY_PKG.g_module_failure || fn_name ||
247: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
240:
241: EXCEPTION
242: WHEN OTHERS THEN
243: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
244: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
245: g_api || '.' || fn_name,
246: GCS_UTILITY_PKG.g_module_failure || fn_name ||
247: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
248: END IF;
268:
269: l_org_dim_str VARCHAR2(6500);
270: l_ic_dim_str VARCHAR2(6500);
271: BEGIN
272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
274: g_api || '.' || fn_name,
275: GCS_UTILITY_PKG.g_module_enter || fn_name ||
276: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
269: l_org_dim_str VARCHAR2(6500);
270: l_ic_dim_str VARCHAR2(6500);
271: BEGIN
272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
274: g_api || '.' || fn_name,
275: GCS_UTILITY_PKG.g_module_enter || fn_name ||
276: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
277: END IF;
352: AND parent_entity_id = p_cons_entity_id
353: AND actual_ownership_flag = ''Y'';
354:
355: BEGIN
356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
358: g_api || ''.'' || fn_name,
359: GCS_UTILITY_PKG.g_module_enter || fn_name ||
360: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
353: AND actual_ownership_flag = ''Y'';
354:
355: BEGIN
356: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
358: g_api || ''.'' || fn_name,
359: GCS_UTILITY_PKG.g_module_enter || fn_name ||
360: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
361: END IF;
367: INTO l_bal_by_org_flag
368: FROM gcs_hierarchies_b
369: WHERE hierarchy_id = p_hierarchy_id;
370:
371: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
373: g_api || ''.'' || fn_name,
374: ''l_bal_by_org_flag = '' || l_bal_by_org_flag || '' '' ||
375: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
368: FROM gcs_hierarchies_b
369: WHERE hierarchy_id = p_hierarchy_id;
370:
371: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
373: g_api || ''.'' || fn_name,
374: ''l_bal_by_org_flag = '' || l_bal_by_org_flag || '' '' ||
375: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
376: END IF;
425: sum(ptd_debit_balance_e), sum(ptd_credit_balance_e),
426: sum(ytd_debit_balance_e), sum(ytd_credit_balance_e),
427: sysdate, GCS_AGGREGATION_PKG.g_fnd_user_id,
428: sysdate, GCS_AGGREGATION_PKG.g_fnd_user_id,
429: GCS_AGGREGATION_PKG.g_fnd_login_id
430: FROM
431: GCS_HIERARCHIES_B ghb,
432: FEM_BALANCES fb,
433: GCS_CONS_RELATIONSHIPS gcr,
480: INTO l_intercompany_id
481: FROM GCS_CATEGORIES_B
482: WHERE category_code = ''AGGREGATION'';
483:
484: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
485: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
486: g_api || ''.'' || fn_name,
487: ''l_intercompany_id = '' || l_intercompany_id || '' '' ||
488: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
481: FROM GCS_CATEGORIES_B
482: WHERE category_code = ''AGGREGATION'';
483:
484: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
485: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
486: g_api || ''.'' || fn_name,
487: ''l_intercompany_id = '' || l_intercompany_id || '' '' ||
488: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
489: END IF;
747: SUM (ptd_debit_balance_e), SUM (ptd_credit_balance_e),
748: SUM (ytd_debit_balance_e), SUM (ytd_credit_balance_e),
749: SYSDATE, gcs_aggregation_pkg.g_fnd_user_id, SYSDATE,
750: gcs_aggregation_pkg.g_fnd_user_id,
751: gcs_aggregation_pkg.g_fnd_login_id
752: FROM gcs_entry_lines_gt
753: GROUP BY entry_id,
754: ';
755:
771: line_item_id,
772: intercompany_id;
773: END IF; -- l_bal_by_org_flag
774:
775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
776: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
777: g_api || ''.'' || fn_name,
778: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
779: END IF;
772: intercompany_id;
773: END IF; -- l_bal_by_org_flag
774:
775: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
776: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
777: g_api || ''.'' || fn_name,
778: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
779: END IF;
780:
777: g_api || ''.'' || fn_name,
778: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
779: END IF;
780:
781: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
783: g_api || ''.'' || fn_name,
784: GCS_UTILITY_PKG.g_module_success || fn_name ||
785: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
778: ''Inserted '' || to_char(SQL%ROWCOUNT) || '' row(s)'');
779: END IF;
780:
781: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
783: g_api || ''.'' || fn_name,
784: GCS_UTILITY_PKG.g_module_success || fn_name ||
785: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
786: END IF;
788: -- fn_name || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
789:
790: EXCEPTION
791: WHEN OTHERS THEN
792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
793: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
794: g_api || ''.'' || fn_name,
795: GCS_UTILITY_PKG.g_module_failure || fn_name ||
796: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
789:
790: EXCEPTION
791: WHEN OTHERS THEN
792: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
793: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
794: g_api || ''.'' || fn_name,
795: GCS_UTILITY_PKG.g_module_failure || fn_name ||
796: to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
797: END IF;
814: ad_ddl.create_plsql_object(GCS_DYNAMIC_UTIL_PKG.g_applsys_username,
815: 'GCS', 'GCS_AGGREGATION_DYNAMIC_PKG',
816: 1, line_num - 1, 'FALSE', comp_err);
817:
818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
820: g_api || '.' || fn_name,
821: GCS_UTILITY_PKG.g_module_success || fn_name ||
822: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
815: 'GCS', 'GCS_AGGREGATION_DYNAMIC_PKG',
816: 1, line_num - 1, 'FALSE', comp_err);
817:
818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
819: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
820: g_api || '.' || fn_name,
821: GCS_UTILITY_PKG.g_module_success || fn_name ||
822: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
823: END IF;
825: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
826:
827: EXCEPTION
828: WHEN OTHERS THEN
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
830: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
831: g_api || '.' || fn_name,
832: SUBSTR(SQLERRM, 1, 4000));
833: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
826:
827: EXCEPTION
828: WHEN OTHERS THEN
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
830: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
831: g_api || '.' || fn_name,
832: SUBSTR(SQLERRM, 1, 4000));
833: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
834: g_api || '.' || fn_name,
829: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
830: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
831: g_api || '.' || fn_name,
832: SUBSTR(SQLERRM, 1, 4000));
833: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
834: g_api || '.' || fn_name,
835: GCS_UTILITY_PKG.g_module_failure || fn_name ||
836: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
837: END IF;