34: BEGIN
35: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
36: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
37: g_api || '.' || fn_name,
38: GCS_UTILITY_PKG.g_module_enter || fn_name ||
39: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
40: END IF;
41: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter ||
42: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
37: g_api || '.' || fn_name,
38: GCS_UTILITY_PKG.g_module_enter || fn_name ||
39: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
40: END IF;
41: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter ||
42: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
43:
44: INSERT INTO GCS_ENTRY_LINES gel1
45: (entry_id, line_type_code,
87:
88: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
90: g_api || '.' || fn_name,
91: GCS_UTILITY_PKG.g_module_success || fn_name ||
92: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
93: END IF;
94: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
95: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
90: g_api || '.' || fn_name,
91: GCS_UTILITY_PKG.g_module_success || fn_name ||
92: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
93: END IF;
94: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
95: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
96:
97: EXCEPTION
98: WHEN OTHERS THEN
98: WHEN OTHERS THEN
99: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
100: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
101: g_api || '.' || fn_name,
102: GCS_UTILITY_PKG.g_module_failure || fn_name ||
103: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
104: END IF;
105: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
106: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
101: g_api || '.' || fn_name,
102: GCS_UTILITY_PKG.g_module_failure || fn_name ||
103: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
104: END IF;
105: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
106: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
107: RAISE;
108: END insert_prop_entry_lines;
109:
141: BEGIN
142: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
144: g_api || '.' || fn_name,
145: GCS_UTILITY_PKG.g_module_enter || fn_name ||
146: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
147: END IF;
148: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter ||
149: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
144: g_api || '.' || fn_name,
145: GCS_UTILITY_PKG.g_module_enter || fn_name ||
146: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
147: END IF;
148: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter ||
149: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
150:
151: -- Prepare all entry headers needed
152:
261:
262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
264: g_api || '.' || fn_name,
265: GCS_UTILITY_PKG.g_module_success || fn_name ||
266: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
267: END IF;
268: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
269: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
264: g_api || '.' || fn_name,
265: GCS_UTILITY_PKG.g_module_success || fn_name ||
266: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
267: END IF;
268: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
269: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
270:
271: EXCEPTION
272: WHEN GCS_AGGR_ENTRY_FAILURE THEN
272: WHEN GCS_AGGR_ENTRY_FAILURE THEN
273: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
274: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
275: g_api || '.' || fn_name,
276: GCS_UTILITY_PKG.g_module_failure || fn_name ||
277: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
278: END IF;
279: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
280: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
275: g_api || '.' || fn_name,
276: GCS_UTILITY_PKG.g_module_failure || fn_name ||
277: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
278: END IF;
279: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
280: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
281: RAISE GCS_AGGR_ENTRY_FAILURE;
282: WHEN OTHERS THEN
283: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
282: WHEN OTHERS THEN
283: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
284: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
285: g_api || '.' || fn_name,
286: GCS_UTILITY_PKG.g_module_failure || fn_name ||
287: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
288: END IF;
289: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
290: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
285: g_api || '.' || fn_name,
286: GCS_UTILITY_PKG.g_module_failure || fn_name ||
287: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
288: END IF;
289: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
290: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
291: RAISE;
292: END maintain_entries;
293:
325: BEGIN
326: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
327: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
328: g_api || '.' || fn_name,
329: GCS_UTILITY_PKG.g_module_enter || fn_name ||
330: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
331:
332: -- parameters passed in
333: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
355: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
356: g_api || '.' || fn_name,
357: 'p_stat_required = ' || p_stat_required);
358: END IF;
359: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter ||
360: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
361:
362: -- In case of an error, roll back to this point
363: SAVEPOINT gcs_aggregation_start;
437:
438: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
439: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
440: g_api || '.' || fn_name,
441: GCS_UTILITY_PKG.g_module_success || fn_name ||
442: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
443: END IF;
444: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
445: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
440: g_api || '.' || fn_name,
441: GCS_UTILITY_PKG.g_module_success || fn_name ||
442: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
443: END IF;
444: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
445: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
446:
447: EXCEPTION
448: WHEN GCS_AGGR_ENTRY_FAILURE THEN
448: WHEN GCS_AGGR_ENTRY_FAILURE THEN
449: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
450: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
451: g_api || '.' || fn_name,
452: GCS_UTILITY_PKG.g_module_failure || fn_name ||
453: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
454: END IF;
455: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
456: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
451: g_api || '.' || fn_name,
452: GCS_UTILITY_PKG.g_module_failure || fn_name ||
453: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
454: END IF;
455: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
456: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
457:
458: ROLLBACK TO gcs_aggregation_start;
459: -- p_errbuf and p_retcode are set by GCS_ENTRY_PKG.create_entry_header()
479: 'STAT MAU = ' || to_char(l_stat_round_factor));
480:
481: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
482: g_api || '.' || fn_name,
483: GCS_UTILITY_PKG.g_module_failure || fn_name ||
484: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
485: END IF;
486: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
487: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
482: g_api || '.' || fn_name,
483: GCS_UTILITY_PKG.g_module_failure || fn_name ||
484: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
485: END IF;
486: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
487: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
488:
489: ROLLBACK TO gcs_aggregation_start;
490: p_errbuf := 'GCS_AGGR_NO_DATA_FOUND';
495: g_api || '.' || fn_name,
496: SUBSTR(SQLERRM, 1, 4000));
497: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
498: g_api || '.' || fn_name,
499: GCS_UTILITY_PKG.g_module_failure || fn_name ||
500: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
501: END IF;
502: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
503: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
498: g_api || '.' || fn_name,
499: GCS_UTILITY_PKG.g_module_failure || fn_name ||
500: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
501: END IF;
502: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
503: -- fn_name || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
504:
505: ROLLBACK TO gcs_aggregation_start;
506: p_errbuf := 'GCS_AGGR_UNHANDLED_EXCEPTION';