47: -- Logic
48: -- This procedure will always return 'E' (Error Reprocessing)
49: -- so both "new" rows and "error" dimension rows will always be loaded.
50: -- =========================================================================
51: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
52: 'fem.plsql.fem_loader_eng_util_pkg.get_dim_loader_exec_mode';
53: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_Dim_Loader_Exec_Mode';
54: --
55: v_count NUMBER;
55: v_count NUMBER;
56: --
57: BEGIN
58: --
59: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
60: FEM_ENGINES_PKG.TECH_MESSAGE(
61: p_severity => FND_LOG.level_procedure,
62: p_module => C_MODULE,
63: p_msg_text => 'Begin Procedure');
57: BEGIN
58: --
59: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
60: FEM_ENGINES_PKG.TECH_MESSAGE(
61: p_severity => FND_LOG.level_procedure,
62: p_module => C_MODULE,
63: p_msg_text => 'Begin Procedure');
64: END IF;
65:
71: p_api_version,
72: C_API_NAME,
73: G_PKG_NAME)
74: THEN
75: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
76: FEM_ENGINES_PKG.TECH_MESSAGE(
77: p_severity => FND_LOG.level_unexpected,
78: p_module => C_MODULE,
79: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
73: G_PKG_NAME)
74: THEN
75: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
76: FEM_ENGINES_PKG.TECH_MESSAGE(
77: p_severity => FND_LOG.level_unexpected,
78: p_module => C_MODULE,
79: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
80: ||'passed in version ('||p_api_version||')');
81: END IF;
94: WHERE dimension_id = p_dimension_id
95: AND loader_object_def_id IS NOT NULL;
96:
97: IF v_count = 0 THEN
98: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
99: FEM_ENGINES_PKG.TECH_MESSAGE(
100: p_severity => FND_LOG.level_unexpected,
101: p_module => C_MODULE,
102: p_msg_text => 'INTERNAL ERROR: Dimension ID ('||p_dimension_id
96:
97: IF v_count = 0 THEN
98: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
99: FEM_ENGINES_PKG.TECH_MESSAGE(
100: p_severity => FND_LOG.level_unexpected,
101: p_module => C_MODULE,
102: p_msg_text => 'INTERNAL ERROR: Dimension ID ('||p_dimension_id
103: ||') is not supported by the Dimension Member Loader!');
104: END IF;
113: IF (p_commit = G_TRUE) THEN
114: COMMIT;
115: END IF;
116:
117: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
118: FEM_ENGINES_PKG.TECH_MESSAGE(
119: p_severity => FND_LOG.level_procedure,
120: p_module => C_MODULE,
121: p_msg_text => 'End Procedure');
115: END IF;
116:
117: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
118: FEM_ENGINES_PKG.TECH_MESSAGE(
119: p_severity => FND_LOG.level_procedure,
120: p_module => C_MODULE,
121: p_msg_text => 'End Procedure');
122: END IF;
123: --
122: END IF;
123: --
124: EXCEPTION
125: WHEN others THEN
126: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
127: FEM_ENGINES_PKG.TECH_MESSAGE(
128: p_severity => FND_LOG.level_unexpected,
129: p_module => C_MODULE,
130: p_msg_text => 'Unexpected error: '||SQLERRM);
124: EXCEPTION
125: WHEN others THEN
126: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
127: FEM_ENGINES_PKG.TECH_MESSAGE(
128: p_severity => FND_LOG.level_unexpected,
129: p_module => C_MODULE,
130: p_msg_text => 'Unexpected error: '||SQLERRM);
131: END IF;
132: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
128: p_severity => FND_LOG.level_unexpected,
129: p_module => C_MODULE,
130: p_msg_text => 'Unexpected error: '||SQLERRM);
131: END IF;
132: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
133: FEM_ENGINES_PKG.TECH_MESSAGE(
134: p_severity => FND_LOG.level_procedure,
135: p_module => C_MODULE,
136: p_msg_text => 'End Procedure');
130: p_msg_text => 'Unexpected error: '||SQLERRM);
131: END IF;
132: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
133: FEM_ENGINES_PKG.TECH_MESSAGE(
134: p_severity => FND_LOG.level_procedure,
135: p_module => C_MODULE,
136: p_msg_text => 'End Procedure');
137: END IF;
138: x_return_status := G_UNEXP;
166: -- Logic
167: -- This procedure will always return 'E' (Error Reprocessing)
168: -- so both "new" rows and "error" dimesion rows will always be loaded.
169: -- =========================================================================
170: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
171: 'fem.plsql.fem_loader_eng_util_pkg.get_hier_loader_exec_mode';
172: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_Hier_Loader_Exec_Mode';
173: --
174: v_count NUMBER;
174: v_count NUMBER;
175: --
176: BEGIN
177: --
178: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
179: FEM_ENGINES_PKG.TECH_MESSAGE(
180: p_severity => FND_LOG.level_procedure,
181: p_module => C_MODULE,
182: p_msg_text => 'Begin Procedure');
176: BEGIN
177: --
178: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
179: FEM_ENGINES_PKG.TECH_MESSAGE(
180: p_severity => FND_LOG.level_procedure,
181: p_module => C_MODULE,
182: p_msg_text => 'Begin Procedure');
183: END IF;
184:
190: p_api_version,
191: C_API_NAME,
192: G_PKG_NAME)
193: THEN
194: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
195: FEM_ENGINES_PKG.TECH_MESSAGE(
196: p_severity => FND_LOG.level_unexpected,
197: p_module => C_MODULE,
198: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
192: G_PKG_NAME)
193: THEN
194: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
195: FEM_ENGINES_PKG.TECH_MESSAGE(
196: p_severity => FND_LOG.level_unexpected,
197: p_module => C_MODULE,
198: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
199: ||'passed in version ('||p_api_version||')');
200: END IF;
215: AND hierarchy_table_name IS NOT NULL
216: AND read_only_flag = 'N';
217:
218: IF v_count = 0 THEN
219: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
220: FEM_ENGINES_PKG.TECH_MESSAGE(
221: p_severity => FND_LOG.level_unexpected,
222: p_module => C_MODULE,
223: p_msg_text => 'INTERNAL ERROR: Dimension ID ('||p_dimension_id
217:
218: IF v_count = 0 THEN
219: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
220: FEM_ENGINES_PKG.TECH_MESSAGE(
221: p_severity => FND_LOG.level_unexpected,
222: p_module => C_MODULE,
223: p_msg_text => 'INTERNAL ERROR: Dimension ID ('||p_dimension_id
224: ||') is not supported by the Dimension Hierarchy Loader!');
225: END IF;
234: IF (p_commit = G_TRUE) THEN
235: COMMIT;
236: END IF;
237:
238: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FEM_ENGINES_PKG.TECH_MESSAGE(
240: p_severity => FND_LOG.level_procedure,
241: p_module => C_MODULE,
242: p_msg_text => 'End Procedure');
236: END IF;
237:
238: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FEM_ENGINES_PKG.TECH_MESSAGE(
240: p_severity => FND_LOG.level_procedure,
241: p_module => C_MODULE,
242: p_msg_text => 'End Procedure');
243: END IF;
244: --
243: END IF;
244: --
245: EXCEPTION
246: WHEN others THEN
247: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
248: FEM_ENGINES_PKG.TECH_MESSAGE(
249: p_severity => FND_LOG.level_unexpected,
250: p_module => C_MODULE,
251: p_msg_text => 'Unexpected error: '||SQLERRM);
245: EXCEPTION
246: WHEN others THEN
247: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
248: FEM_ENGINES_PKG.TECH_MESSAGE(
249: p_severity => FND_LOG.level_unexpected,
250: p_module => C_MODULE,
251: p_msg_text => 'Unexpected error: '||SQLERRM);
252: END IF;
253: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
249: p_severity => FND_LOG.level_unexpected,
250: p_module => C_MODULE,
251: p_msg_text => 'Unexpected error: '||SQLERRM);
252: END IF;
253: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
254: FEM_ENGINES_PKG.TECH_MESSAGE(
255: p_severity => FND_LOG.level_procedure,
256: p_module => C_MODULE,
257: p_msg_text => 'End Procedure');
251: p_msg_text => 'Unexpected error: '||SQLERRM);
252: END IF;
253: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
254: FEM_ENGINES_PKG.TECH_MESSAGE(
255: p_severity => FND_LOG.level_procedure,
256: p_module => C_MODULE,
257: p_msg_text => 'End Procedure');
258: END IF;
259: x_return_status := G_UNEXP;
290: -- Return 'S' (Snapshot) if the XGL Loader has not yet had a successful
291: -- Snapshot execution for the given calendar period, ledger and dataset.
292: -- Otherwise, return 'I' (Incremental).
293: -- =========================================================================
294: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
295: 'fem.plsql.fem_loader_eng_util_pkg.get_xgl_loader_exec_mode';
296: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_XGL_Loader_Exec_Mode';
297: C_XGL_OBJECT_ID CONSTANT NUMBER(9) := 1000;
298: --
299: v_count NUMBER;
300: --
301: BEGIN
302: --
303: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
304: FEM_ENGINES_PKG.TECH_MESSAGE(
305: p_severity => FND_LOG.level_procedure,
306: p_module => C_MODULE,
307: p_msg_text => 'Begin Procedure');
301: BEGIN
302: --
303: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
304: FEM_ENGINES_PKG.TECH_MESSAGE(
305: p_severity => FND_LOG.level_procedure,
306: p_module => C_MODULE,
307: p_msg_text => 'Begin Procedure');
308: END IF;
309:
315: p_api_version,
316: C_API_NAME,
317: G_PKG_NAME)
318: THEN
319: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
320: FEM_ENGINES_PKG.TECH_MESSAGE(
321: p_severity => FND_LOG.level_unexpected,
322: p_module => C_MODULE,
323: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
317: G_PKG_NAME)
318: THEN
319: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
320: FEM_ENGINES_PKG.TECH_MESSAGE(
321: p_severity => FND_LOG.level_unexpected,
322: p_module => C_MODULE,
323: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
324: ||'passed in version ('||p_api_version||')');
325: END IF;
359: IF (p_commit = G_TRUE) THEN
360: COMMIT;
361: END IF;
362:
363: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
364: FEM_ENGINES_PKG.TECH_MESSAGE(
365: p_severity => FND_LOG.level_procedure,
366: p_module => C_MODULE,
367: p_msg_text => 'End Procedure');
361: END IF;
362:
363: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
364: FEM_ENGINES_PKG.TECH_MESSAGE(
365: p_severity => FND_LOG.level_procedure,
366: p_module => C_MODULE,
367: p_msg_text => 'End Procedure');
368: END IF;
369: --
368: END IF;
369: --
370: EXCEPTION
371: WHEN others THEN
372: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
373: FEM_ENGINES_PKG.TECH_MESSAGE(
374: p_severity => FND_LOG.level_unexpected,
375: p_module => C_MODULE,
376: p_msg_text => 'Unexpected error: '||SQLERRM);
370: EXCEPTION
371: WHEN others THEN
372: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
373: FEM_ENGINES_PKG.TECH_MESSAGE(
374: p_severity => FND_LOG.level_unexpected,
375: p_module => C_MODULE,
376: p_msg_text => 'Unexpected error: '||SQLERRM);
377: END IF;
378: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
374: p_severity => FND_LOG.level_unexpected,
375: p_module => C_MODULE,
376: p_msg_text => 'Unexpected error: '||SQLERRM);
377: END IF;
378: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
379: FEM_ENGINES_PKG.TECH_MESSAGE(
380: p_severity => FND_LOG.level_procedure,
381: p_module => C_MODULE,
382: p_msg_text => 'End Procedure');
376: p_msg_text => 'Unexpected error: '||SQLERRM);
377: END IF;
378: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
379: FEM_ENGINES_PKG.TECH_MESSAGE(
380: p_severity => FND_LOG.level_procedure,
381: p_module => C_MODULE,
382: p_msg_text => 'End Procedure');
383: END IF;
384: x_return_status := G_UNEXP;
421: -- any rows for the given calendar period, ledger,
422: -- dataset, source system and table.
423: -- Otherwise, return 'R' (Replacement).
424: -- =========================================================================
425: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
426: 'fem.plsql.fem_loader_eng_util_pkg.get_fact_loader_exec_mode';
427: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_Fact_Loader_Exec_Mode';
428: --
429: v_count NUMBER;
430: v_object_id FEM_OBJECT_CATALOG_B.object_id%TYPE;
431: --
432: BEGIN
433: --
434: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
435: FEM_ENGINES_PKG.TECH_MESSAGE(
436: p_severity => FND_LOG.level_procedure,
437: p_module => C_MODULE,
438: p_msg_text => 'Begin Procedure');
432: BEGIN
433: --
434: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
435: FEM_ENGINES_PKG.TECH_MESSAGE(
436: p_severity => FND_LOG.level_procedure,
437: p_module => C_MODULE,
438: p_msg_text => 'Begin Procedure');
439: END IF;
440:
446: p_api_version,
447: C_API_NAME,
448: G_PKG_NAME)
449: THEN
450: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
451: FEM_ENGINES_PKG.TECH_MESSAGE(
452: p_severity => FND_LOG.level_unexpected,
453: p_module => C_MODULE,
454: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
448: G_PKG_NAME)
449: THEN
450: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
451: FEM_ENGINES_PKG.TECH_MESSAGE(
452: p_severity => FND_LOG.level_unexpected,
453: p_module => C_MODULE,
454: p_msg_text => 'INTERNAL ERROR: API Version ('||G_API_VERSION||') not compatible with '
455: ||'passed in version ('||p_api_version||')');
456: END IF;
472: AND d.object_id = o.object_id
473: AND d.table_name = p_table_name;
474: EXCEPTION
475: WHEN no_data_found THEN
476: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
477: FEM_ENGINES_PKG.TECH_MESSAGE(
478: p_severity => FND_LOG.level_unexpected,
479: p_module => C_MODULE,
480: p_msg_text => 'INTERNALL ERROR: Could not find the Object ID'
474: EXCEPTION
475: WHEN no_data_found THEN
476: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
477: FEM_ENGINES_PKG.TECH_MESSAGE(
478: p_severity => FND_LOG.level_unexpected,
479: p_module => C_MODULE,
480: p_msg_text => 'INTERNALL ERROR: Could not find the Object ID'
481: ||' associated with the '||p_table_name|| ' table!');
482: END IF;
516: IF (p_commit = G_TRUE) THEN
517: COMMIT;
518: END IF;
519:
520: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
521: FEM_ENGINES_PKG.TECH_MESSAGE(
522: p_severity => FND_LOG.level_procedure,
523: p_module => C_MODULE,
524: p_msg_text => 'End Procedure');
518: END IF;
519:
520: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
521: FEM_ENGINES_PKG.TECH_MESSAGE(
522: p_severity => FND_LOG.level_procedure,
523: p_module => C_MODULE,
524: p_msg_text => 'End Procedure');
525: END IF;
526: --
525: END IF;
526: --
527: EXCEPTION
528: WHEN others THEN
529: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
530: FEM_ENGINES_PKG.TECH_MESSAGE(
531: p_severity => FND_LOG.level_unexpected,
532: p_module => C_MODULE,
533: p_msg_text => 'Unexpected error: '||SQLERRM);
527: EXCEPTION
528: WHEN others THEN
529: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
530: FEM_ENGINES_PKG.TECH_MESSAGE(
531: p_severity => FND_LOG.level_unexpected,
532: p_module => C_MODULE,
533: p_msg_text => 'Unexpected error: '||SQLERRM);
534: END IF;
535: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
531: p_severity => FND_LOG.level_unexpected,
532: p_module => C_MODULE,
533: p_msg_text => 'Unexpected error: '||SQLERRM);
534: END IF;
535: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
536: FEM_ENGINES_PKG.TECH_MESSAGE(
537: p_severity => FND_LOG.level_procedure,
538: p_module => C_MODULE,
539: p_msg_text => 'End Procedure');
533: p_msg_text => 'Unexpected error: '||SQLERRM);
534: END IF;
535: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
536: FEM_ENGINES_PKG.TECH_MESSAGE(
537: p_severity => FND_LOG.level_procedure,
538: p_module => C_MODULE,
539: p_msg_text => 'End Procedure');
540: END IF;
541: x_return_status := G_UNEXP;