206: p_preview_obj_def_id IN NUMBER)
207: -------------------------------------------------------------------------------
208: IS
209:
210: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
211: 'fem.plsql.fem_mapping_preview_util_pkg.remove_results';
212: C_API_NAME CONSTANT VARCHAR2(30) := 'Remove_Results';
213: C_API_VERSION CONSTANT NUMBER := 1.0;
214: --
232: --
233: -- Standard Start of API savepoint
234: SAVEPOINT remove_results_pub;
235:
236: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
237: FEM_ENGINES_PKG.TECH_MESSAGE(
238: p_severity => FND_LOG.level_procedure,
239: p_module => C_MODULE,
240: p_msg_text => 'Begin Procedure');
234: SAVEPOINT remove_results_pub;
235:
236: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
237: FEM_ENGINES_PKG.TECH_MESSAGE(
238: p_severity => FND_LOG.level_procedure,
239: p_module => C_MODULE,
240: p_msg_text => 'Begin Procedure');
241: END IF;
242:
248: p_api_version,
249: C_API_NAME,
250: G_PKG_NAME)
251: THEN
252: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
253: FEM_ENGINES_PKG.TECH_MESSAGE(
254: p_severity => FND_LOG.level_unexpected,
255: p_module => C_MODULE,
256: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
250: G_PKG_NAME)
251: THEN
252: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
253: FEM_ENGINES_PKG.TECH_MESSAGE(
254: p_severity => FND_LOG.level_unexpected,
255: p_module => C_MODULE,
256: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
257: ||') not compatible with '
258: ||'passed in version ('||p_api_version||')');
265: FND_MSG_PUB.Initialize;
266: END IF;
267:
268: -- Log procedure param values
269: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
270: FEM_ENGINES_PKG.TECH_MESSAGE(
271: p_severity => FND_LOG.level_statement,
272: p_module => C_MODULE,
273: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
267:
268: -- Log procedure param values
269: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
270: FEM_ENGINES_PKG.TECH_MESSAGE(
271: p_severity => FND_LOG.level_statement,
272: p_module => C_MODULE,
273: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
274: END IF;
275:
307: p_request_id => prvw_execs.request_id,
308: p_object_id => v_preview_obj_id);
309:
310: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
311: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
312: FEM_ENGINES_PKG.TECH_MESSAGE(
313: p_severity => FND_LOG.level_unexpected,
314: p_module => C_MODULE,
315: p_msg_text => 'INTERNAL ERROR: Call to'
309:
310: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
311: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
312: FEM_ENGINES_PKG.TECH_MESSAGE(
313: p_severity => FND_LOG.level_unexpected,
314: p_module => C_MODULE,
315: p_msg_text => 'INTERNAL ERROR: Call to'
316: ||' FEM_UD_PKG.Remove_Process_Locks'
317: ||' failed with return status: '||x_return_status);
329:
330: DELETE FROM fem_alloc_preview_stats
331: WHERE preview_obj_def_id = p_preview_obj_def_id;
332:
333: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
334: FEM_ENGINES_PKG.TECH_MESSAGE(
335: p_severity => FND_LOG.level_statement,
336: p_module => C_MODULE,
337: p_msg_text => 'Deleted '||SQL%ROWCOUNT
331: WHERE preview_obj_def_id = p_preview_obj_def_id;
332:
333: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
334: FEM_ENGINES_PKG.TECH_MESSAGE(
335: p_severity => FND_LOG.level_statement,
336: p_module => C_MODULE,
337: p_msg_text => 'Deleted '||SQL%ROWCOUNT
338: ||' rows from FEM_ALLOC_PREVIEW_STATS');
339: END IF;
340:
341: DELETE FROM fem_alloc_preview_maps
342: WHERE preview_obj_def_id = p_preview_obj_def_id;
343:
344: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345: FEM_ENGINES_PKG.TECH_MESSAGE(
346: p_severity => FND_LOG.level_statement,
347: p_module => C_MODULE,
348: p_msg_text => 'Deleted '||SQL%ROWCOUNT
342: WHERE preview_obj_def_id = p_preview_obj_def_id;
343:
344: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
345: FEM_ENGINES_PKG.TECH_MESSAGE(
346: p_severity => FND_LOG.level_statement,
347: p_module => C_MODULE,
348: p_msg_text => 'Deleted '||SQL%ROWCOUNT
349: ||' rows from FEM_ALLOC_PREVIEW_MAPS');
350: END IF;
358: IF (p_commit = FND_API.G_TRUE) THEN
359: COMMIT;
360: END IF;
361:
362: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
363: FEM_ENGINES_PKG.TECH_MESSAGE(
364: p_severity => FND_LOG.level_procedure,
365: p_module => C_MODULE,
366: p_msg_text => 'End Procedure');
360: END IF;
361:
362: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
363: FEM_ENGINES_PKG.TECH_MESSAGE(
364: p_severity => FND_LOG.level_procedure,
365: p_module => C_MODULE,
366: p_msg_text => 'End Procedure');
367: END IF;
368: --
376: ROLLBACK;
377: WHEN others THEN
378: ROLLBACK;
379:
380: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FEM_ENGINES_PKG.TECH_MESSAGE(
382: p_severity => FND_LOG.level_unexpected,
383: p_module => C_MODULE,
384: p_msg_text => 'Unexpected error: '||SQLERRM);
378: ROLLBACK;
379:
380: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FEM_ENGINES_PKG.TECH_MESSAGE(
382: p_severity => FND_LOG.level_unexpected,
383: p_module => C_MODULE,
384: p_msg_text => 'Unexpected error: '||SQLERRM);
385: END IF;
386: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: p_severity => FND_LOG.level_unexpected,
383: p_module => C_MODULE,
384: p_msg_text => 'Unexpected error: '||SQLERRM);
385: END IF;
386: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: FEM_ENGINES_PKG.TECH_MESSAGE(
388: p_severity => FND_LOG.level_procedure,
389: p_module => C_MODULE,
390: p_msg_text => 'End Procedure');
384: p_msg_text => 'Unexpected error: '||SQLERRM);
385: END IF;
386: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
387: FEM_ENGINES_PKG.TECH_MESSAGE(
388: p_severity => FND_LOG.level_procedure,
389: p_module => C_MODULE,
390: p_msg_text => 'End Procedure');
391: END IF;
392:
435: p_request_id IN NUMBER)
436: -------------------------------------------------------------------------------
437: IS
438:
439: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
440: 'fem.plsql.fem_mapping_preview_util_pkg.pre_process';
441: C_API_NAME CONSTANT VARCHAR2(30) := 'Pre_Process';
442: C_API_VERSION CONSTANT NUMBER := 1.0;
443: --
469: --
470: -- Standard Start of API savepoint
471: SAVEPOINT pre_process_pub;
472:
473: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
474: FEM_ENGINES_PKG.TECH_MESSAGE(
475: p_severity => FND_LOG.level_procedure,
476: p_module => C_MODULE,
477: p_msg_text => 'Begin Procedure');
471: SAVEPOINT pre_process_pub;
472:
473: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
474: FEM_ENGINES_PKG.TECH_MESSAGE(
475: p_severity => FND_LOG.level_procedure,
476: p_module => C_MODULE,
477: p_msg_text => 'Begin Procedure');
478: END IF;
479:
485: p_api_version,
486: C_API_NAME,
487: G_PKG_NAME)
488: THEN
489: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
490: FEM_ENGINES_PKG.TECH_MESSAGE(
491: p_severity => FND_LOG.level_unexpected,
492: p_module => C_MODULE,
493: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
487: G_PKG_NAME)
488: THEN
489: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
490: FEM_ENGINES_PKG.TECH_MESSAGE(
491: p_severity => FND_LOG.level_unexpected,
492: p_module => C_MODULE,
493: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
494: ||') not compatible with '
495: ||'passed in version ('||p_api_version||')');
502: FND_MSG_PUB.Initialize;
503: END IF;
504:
505: -- Log procedure param values
506: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: FEM_ENGINES_PKG.TECH_MESSAGE(
508: p_severity => FND_LOG.level_statement,
509: p_module => C_MODULE,
510: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
504:
505: -- Log procedure param values
506: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: FEM_ENGINES_PKG.TECH_MESSAGE(
508: p_severity => FND_LOG.level_statement,
509: p_module => C_MODULE,
510: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
511: FEM_ENGINES_PKG.TECH_MESSAGE(
512: p_severity => FND_LOG.level_statement,
508: p_severity => FND_LOG.level_statement,
509: p_module => C_MODULE,
510: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
511: FEM_ENGINES_PKG.TECH_MESSAGE(
512: p_severity => FND_LOG.level_statement,
513: p_module => C_MODULE,
514: p_msg_text => 'p_request_id = '||to_char(p_request_id));
515: END IF;
516:
524: FROM fem_objdef_helper_rules
525: WHERE helper_obj_def_id = p_preview_obj_def_id
526: AND helper_object_type_code = 'MAPPING_PREVIEW';
527:
528: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
529: FEM_ENGINES_PKG.TECH_MESSAGE(
530: p_severity => FND_LOG.level_statement,
531: p_module => C_MODULE,
532: p_msg_text => 'v_map_obj_id = '||to_char(v_map_obj_id));
526: AND helper_object_type_code = 'MAPPING_PREVIEW';
527:
528: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
529: FEM_ENGINES_PKG.TECH_MESSAGE(
530: p_severity => FND_LOG.level_statement,
531: p_module => C_MODULE,
532: p_msg_text => 'v_map_obj_id = '||to_char(v_map_obj_id));
533: FEM_ENGINES_PKG.TECH_MESSAGE(
534: p_severity => FND_LOG.level_statement,
530: p_severity => FND_LOG.level_statement,
531: p_module => C_MODULE,
532: p_msg_text => 'v_map_obj_id = '||to_char(v_map_obj_id));
533: FEM_ENGINES_PKG.TECH_MESSAGE(
534: p_severity => FND_LOG.level_statement,
535: p_module => C_MODULE,
536: p_msg_text => 'v_map_obj_def_id = '||to_char(v_map_obj_def_id));
537: END IF;
538:
541: INTO v_map_rule_type
542: FROM fem_alloc_br_objects
543: WHERE map_rule_object_id = v_map_obj_id;
544:
545: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
546: FEM_ENGINES_PKG.TECH_MESSAGE(
547: p_severity => FND_LOG.level_statement,
548: p_module => C_MODULE,
549: p_msg_text => 'v_map_rule_type = '||v_map_rule_type);
543: WHERE map_rule_object_id = v_map_obj_id;
544:
545: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
546: FEM_ENGINES_PKG.TECH_MESSAGE(
547: p_severity => FND_LOG.level_statement,
548: p_module => C_MODULE,
549: p_msg_text => 'v_map_rule_type = '||v_map_rule_type);
550: END IF;
551:
550: END IF;
551:
552: -- Preview does not support Factor Table rules yet...
553: IF (v_map_rule_type = G_FACTOR_TABLE) THEN
554: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
555: FEM_ENGINES_PKG.TECH_MESSAGE(
556: p_severity => FND_LOG.level_unexpected,
557: p_module => C_MODULE,
558: p_msg_text => 'Preview does not support Factor Table rules!');
552: -- Preview does not support Factor Table rules yet...
553: IF (v_map_rule_type = G_FACTOR_TABLE) THEN
554: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
555: FEM_ENGINES_PKG.TECH_MESSAGE(
556: p_severity => FND_LOG.level_unexpected,
557: p_module => C_MODULE,
558: p_msg_text => 'Preview does not support Factor Table rules!');
559: END IF;
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: IF (p_commit = FND_API.G_TRUE) THEN
683: COMMIT;
684: END IF;
685:
686: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
687: FEM_ENGINES_PKG.TECH_MESSAGE(
688: p_severity => FND_LOG.level_procedure,
689: p_module => C_MODULE,
690: p_msg_text => 'End Procedure');
684: END IF;
685:
686: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
687: FEM_ENGINES_PKG.TECH_MESSAGE(
688: p_severity => FND_LOG.level_procedure,
689: p_module => C_MODULE,
690: p_msg_text => 'End Procedure');
691: END IF;
692: --
696: -- completely.
697: WHEN others THEN
698: ROLLBACK;
699:
700: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
701: FEM_ENGINES_PKG.TECH_MESSAGE(
702: p_severity => FND_LOG.level_unexpected,
703: p_module => C_MODULE,
704: p_msg_text => 'Unexpected error: '||SQLERRM);
698: ROLLBACK;
699:
700: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
701: FEM_ENGINES_PKG.TECH_MESSAGE(
702: p_severity => FND_LOG.level_unexpected,
703: p_module => C_MODULE,
704: p_msg_text => 'Unexpected error: '||SQLERRM);
705: END IF;
706: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
702: p_severity => FND_LOG.level_unexpected,
703: p_module => C_MODULE,
704: p_msg_text => 'Unexpected error: '||SQLERRM);
705: END IF;
706: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
707: FEM_ENGINES_PKG.TECH_MESSAGE(
708: p_severity => FND_LOG.level_procedure,
709: p_module => C_MODULE,
710: p_msg_text => 'End Procedure');
704: p_msg_text => 'Unexpected error: '||SQLERRM);
705: END IF;
706: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
707: FEM_ENGINES_PKG.TECH_MESSAGE(
708: p_severity => FND_LOG.level_procedure,
709: p_module => C_MODULE,
710: p_msg_text => 'End Procedure');
711: END IF;
712:
753: p_request_id IN NUMBER)
754: -------------------------------------------------------------------------------
755: IS
756:
757: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
758: 'fem.plsql.fem_mapping_preview_util_pkg.post_process';
759: C_API_NAME CONSTANT VARCHAR2(30) := 'Post_Process';
760: C_API_VERSION CONSTANT NUMBER := 1.0;
761: v_map_obj_def_id FEM_OBJECT_DEFINITION_B.object_definition_id%TYPE;
777: --
778: -- Standard Start of API savepoint
779: SAVEPOINT post_process_pub;
780:
781: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: FEM_ENGINES_PKG.TECH_MESSAGE(
783: p_severity => FND_LOG.level_procedure,
784: p_module => C_MODULE,
785: p_msg_text => 'Begin Procedure');
779: SAVEPOINT post_process_pub;
780:
781: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: FEM_ENGINES_PKG.TECH_MESSAGE(
783: p_severity => FND_LOG.level_procedure,
784: p_module => C_MODULE,
785: p_msg_text => 'Begin Procedure');
786: END IF;
787:
793: p_api_version,
794: C_API_NAME,
795: G_PKG_NAME)
796: THEN
797: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: FEM_ENGINES_PKG.TECH_MESSAGE(
799: p_severity => FND_LOG.level_unexpected,
800: p_module => C_MODULE,
801: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
795: G_PKG_NAME)
796: THEN
797: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: FEM_ENGINES_PKG.TECH_MESSAGE(
799: p_severity => FND_LOG.level_unexpected,
800: p_module => C_MODULE,
801: p_msg_text => 'INTERNAL ERROR: API Version ('||C_API_VERSION
802: ||') not compatible with '
803: ||'passed in version ('||p_api_version||')');
810: FND_MSG_PUB.Initialize;
811: END IF;
812:
813: -- Log procedure param values
814: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
815: FEM_ENGINES_PKG.TECH_MESSAGE(
816: p_severity => FND_LOG.level_statement,
817: p_module => C_MODULE,
818: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
812:
813: -- Log procedure param values
814: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
815: FEM_ENGINES_PKG.TECH_MESSAGE(
816: p_severity => FND_LOG.level_statement,
817: p_module => C_MODULE,
818: p_msg_text => 'p_preview_obj_def_id = '||to_char(p_preview_obj_def_id));
819: END IF;
820:
824: FROM fem_objdef_helper_rules
825: WHERE helper_obj_def_id = p_preview_obj_def_id
826: AND helper_object_type_code = 'MAPPING_PREVIEW';
827:
828: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
829: FEM_ENGINES_PKG.TECH_MESSAGE(
830: p_severity => FND_LOG.level_statement,
831: p_module => C_MODULE,
832: p_msg_text => 'v_map_obj_def_id = '||to_char(v_map_obj_def_id));
826: AND helper_object_type_code = 'MAPPING_PREVIEW';
827:
828: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
829: FEM_ENGINES_PKG.TECH_MESSAGE(
830: p_severity => FND_LOG.level_statement,
831: p_module => C_MODULE,
832: p_msg_text => 'v_map_obj_def_id = '||to_char(v_map_obj_def_id));
833: END IF;
834:
883: IF (p_commit = FND_API.G_TRUE) THEN
884: COMMIT;
885: END IF;
886:
887: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
888: FEM_ENGINES_PKG.TECH_MESSAGE(
889: p_severity => FND_LOG.level_procedure,
890: p_module => C_MODULE,
891: p_msg_text => 'End Procedure');
885: END IF;
886:
887: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
888: FEM_ENGINES_PKG.TECH_MESSAGE(
889: p_severity => FND_LOG.level_procedure,
890: p_module => C_MODULE,
891: p_msg_text => 'End Procedure');
892: END IF;
893: --
897: -- completely.
898: WHEN others THEN
899: ROLLBACK;
900:
901: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
902: FEM_ENGINES_PKG.TECH_MESSAGE(
903: p_severity => FND_LOG.level_unexpected,
904: p_module => C_MODULE,
905: p_msg_text => 'Unexpected error: '||SQLERRM);
899: ROLLBACK;
900:
901: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
902: FEM_ENGINES_PKG.TECH_MESSAGE(
903: p_severity => FND_LOG.level_unexpected,
904: p_module => C_MODULE,
905: p_msg_text => 'Unexpected error: '||SQLERRM);
906: END IF;
907: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
903: p_severity => FND_LOG.level_unexpected,
904: p_module => C_MODULE,
905: p_msg_text => 'Unexpected error: '||SQLERRM);
906: END IF;
907: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
908: FEM_ENGINES_PKG.TECH_MESSAGE(
909: p_severity => FND_LOG.level_procedure,
910: p_module => C_MODULE,
911: p_msg_text => 'End Procedure');
905: p_msg_text => 'Unexpected error: '||SQLERRM);
906: END IF;
907: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
908: FEM_ENGINES_PKG.TECH_MESSAGE(
909: p_severity => FND_LOG.level_procedure,
910: p_module => C_MODULE,
911: p_msg_text => 'End Procedure');
912: END IF;
913:
960: )
961: -------------------------------------------------------------------------------
962: IS
963: --
964: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
965: 'fem.plsql.fem_mapping_preview_util_pkg.CreateTempTable';
966: v_select_clause VARCHAR2(16383);
967: v_from_clause VARCHAR2(4095);
968: v_where_clause VARCHAR2(32767);
984: ORDER BY column_position;
985: --
986: BEGIN
987: --
988: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
989: FEM_ENGINES_PKG.TECH_MESSAGE(
990: p_severity => FND_LOG.level_procedure,
991: p_module => C_MODULE,
992: p_msg_text => 'Begin Procedure');
986: BEGIN
987: --
988: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
989: FEM_ENGINES_PKG.TECH_MESSAGE(
990: p_severity => FND_LOG.level_procedure,
991: p_module => C_MODULE,
992: p_msg_text => 'Begin Procedure');
993: END IF;
994:
991: p_module => C_MODULE,
992: p_msg_text => 'Begin Procedure');
993: END IF;
994:
995: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
996: FEM_ENGINES_PKG.TECH_MESSAGE(
997: p_severity => FND_LOG.level_statement,
998: p_module => C_MODULE,
999: p_msg_text => 'p_fact_table_name = '||p_fact_table_name);
993: END IF;
994:
995: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
996: FEM_ENGINES_PKG.TECH_MESSAGE(
997: p_severity => FND_LOG.level_statement,
998: p_module => C_MODULE,
999: p_msg_text => 'p_fact_table_name = '||p_fact_table_name);
1000: FEM_ENGINES_PKG.TECH_MESSAGE(
1001: p_severity => FND_LOG.level_statement,
997: p_severity => FND_LOG.level_statement,
998: p_module => C_MODULE,
999: p_msg_text => 'p_fact_table_name = '||p_fact_table_name);
1000: FEM_ENGINES_PKG.TECH_MESSAGE(
1001: p_severity => FND_LOG.level_statement,
1002: p_module => C_MODULE,
1003: p_msg_text => 'p_preview_row_group = '||p_preview_row_group);
1004: FEM_ENGINES_PKG.TECH_MESSAGE(
1005: p_severity => FND_LOG.level_statement,
1001: p_severity => FND_LOG.level_statement,
1002: p_module => C_MODULE,
1003: p_msg_text => 'p_preview_row_group = '||p_preview_row_group);
1004: FEM_ENGINES_PKG.TECH_MESSAGE(
1005: p_severity => FND_LOG.level_statement,
1006: p_module => C_MODULE,
1007: p_msg_text => 'p_function_cd = '||p_function_cd);
1008: FEM_ENGINES_PKG.TECH_MESSAGE(
1009: p_severity => FND_LOG.level_statement,
1005: p_severity => FND_LOG.level_statement,
1006: p_module => C_MODULE,
1007: p_msg_text => 'p_function_cd = '||p_function_cd);
1008: FEM_ENGINES_PKG.TECH_MESSAGE(
1009: p_severity => FND_LOG.level_statement,
1010: p_module => C_MODULE,
1011: p_msg_text => 'p_sub_obj_id = '||p_sub_obj_id);
1012:
1013: END IF;
1027: p_table_seq => p_temp_table_seq,
1028: x_temp_name => x_temp_table_name);
1029:
1030: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1031: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1032: FEM_ENGINES_PKG.TECH_MESSAGE(
1033: p_severity => FND_LOG.level_unexpected,
1034: p_module => C_MODULE,
1035: p_msg_text => 'INTERNAL ERROR: Call to'
1029:
1030: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1031: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1032: FEM_ENGINES_PKG.TECH_MESSAGE(
1033: p_severity => FND_LOG.level_unexpected,
1034: p_module => C_MODULE,
1035: p_msg_text => 'INTERNAL ERROR: Call to'
1036: ||' FEM_DATABASE_UTIL_PKG.Get_Unique_Temp_Name'
1037: ||' failed with return status: '||v_return_status);
1082: p_table_def => 'AS '||v_select_clause||' '
1083: ||v_from_clause||' '||v_where_clause);
1084:
1085: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1086: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1087: FEM_ENGINES_PKG.TECH_MESSAGE(
1088: p_severity => FND_LOG.level_unexpected,
1089: p_module => C_MODULE,
1090: p_msg_text => 'INTERNAL ERROR: Call to'
1084:
1085: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1086: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1087: FEM_ENGINES_PKG.TECH_MESSAGE(
1088: p_severity => FND_LOG.level_unexpected,
1089: p_module => C_MODULE,
1090: p_msg_text => 'INTERNAL ERROR: Call to'
1091: ||' FEM_DATABASE_UTIL_PKG.Create_Temp_Table'
1092: ||' failed with return status: '||v_return_status);
1121: p_table_seq => p_temp_table_seq,
1122: x_temp_name => v_index_name);
1123:
1124: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1125: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1126: FEM_ENGINES_PKG.TECH_MESSAGE(
1127: p_severity => FND_LOG.level_unexpected,
1128: p_module => C_MODULE,
1129: p_msg_text => 'INTERNAL ERROR: Call to'
1123:
1124: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1125: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1126: FEM_ENGINES_PKG.TECH_MESSAGE(
1127: p_severity => FND_LOG.level_unexpected,
1128: p_module => C_MODULE,
1129: p_msg_text => 'INTERNAL ERROR: Call to'
1130: ||' FEM_DATABASE_UTIL_PKG.Get_Unique_Temp_Name'
1131: ||' failed with return status: '||v_return_status);
1150: p_index_columns => v_index_columns,
1151: p_unique_flag => 'Y');
1152:
1153: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1154: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1155: FEM_ENGINES_PKG.TECH_MESSAGE(
1156: p_severity => FND_LOG.level_unexpected,
1157: p_module => C_MODULE,
1158: p_msg_text => 'INTERNAL ERROR: Call to'
1152:
1153: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1154: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1155: FEM_ENGINES_PKG.TECH_MESSAGE(
1156: p_severity => FND_LOG.level_unexpected,
1157: p_module => C_MODULE,
1158: p_msg_text => 'INTERNAL ERROR: Call to'
1159: ||' FEM_DATABASE_UTIL_PKG.Create_Temp_Index'
1160: ||' failed with return status: '||v_return_status);
1165:
1166: END IF; -- IF v_index_columns IS NOT NULL
1167:
1168:
1169: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1170: FEM_ENGINES_PKG.TECH_MESSAGE(
1171: p_severity => FND_LOG.level_procedure,
1172: p_module => C_MODULE,
1173: p_msg_text => 'End Procedure');
1167:
1168:
1169: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1170: FEM_ENGINES_PKG.TECH_MESSAGE(
1171: p_severity => FND_LOG.level_procedure,
1172: p_module => C_MODULE,
1173: p_msg_text => 'End Procedure');
1174: END IF;
1175: --
1199: )
1200: -------------------------------------------------------------------------------
1201: IS
1202: --
1203: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1204: 'fem.plsql.fem_mapping_preview_util_pkg.CreatePreviewStats';
1205: v_row_count NUMBER;
1206: v_sql VARCHAR2(32767);
1207: --
1206: v_sql VARCHAR2(32767);
1207: --
1208: BEGIN
1209: --
1210: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1211: FEM_ENGINES_PKG.TECH_MESSAGE(
1212: p_severity => FND_LOG.level_procedure,
1213: p_module => C_MODULE,
1214: p_msg_text => 'Begin Procedure');
1208: BEGIN
1209: --
1210: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1211: FEM_ENGINES_PKG.TECH_MESSAGE(
1212: p_severity => FND_LOG.level_procedure,
1213: p_module => C_MODULE,
1214: p_msg_text => 'Begin Procedure');
1215: END IF;
1216:
1219: -- calculations if the mapping rule were running in a normal execution
1220: -- (i.e. not Preview mode). This only applies to source and driver data.
1221: IF p_preview_row_group IN (G_SOURCE, G_DRIVER) THEN
1222:
1223: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1224: FEM_ENGINES_PKG.TECH_MESSAGE(
1225: p_severity => FND_LOG.level_statement,
1226: p_module => C_MODULE,
1227: p_msg_text => 'p_map_where_clause = '||p_map_where_clause);
1221: IF p_preview_row_group IN (G_SOURCE, G_DRIVER) THEN
1222:
1223: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1224: FEM_ENGINES_PKG.TECH_MESSAGE(
1225: p_severity => FND_LOG.level_statement,
1226: p_module => C_MODULE,
1227: p_msg_text => 'p_map_where_clause = '||p_map_where_clause);
1228: END IF;
1229:
1248: p_fact_table_name, p_temp_table_name, v_row_count, p_request_id,
1249: p_preview_obj_id, p_request_id, p_preview_obj_id);
1250:
1251:
1252: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1253: FEM_ENGINES_PKG.TECH_MESSAGE(
1254: p_severity => FND_LOG.level_procedure,
1255: p_module => C_MODULE,
1256: p_msg_text => 'End Procedure');
1250:
1251:
1252: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1253: FEM_ENGINES_PKG.TECH_MESSAGE(
1254: p_severity => FND_LOG.level_procedure,
1255: p_module => C_MODULE,
1256: p_msg_text => 'End Procedure');
1257: END IF;
1258: --
1278: )
1279: -------------------------------------------------------------------------------
1280: IS
1281: --
1282: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1283: 'fem.plsql.fem_mapping_preview_util_pkg.CreatePreviewMaps';
1284: v_row_count NUMBER;
1285: v_sql VARCHAR2(32767);
1286: --
1285: v_sql VARCHAR2(32767);
1286: --
1287: BEGIN
1288: --
1289: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1290: FEM_ENGINES_PKG.TECH_MESSAGE(
1291: p_severity => FND_LOG.level_procedure,
1292: p_module => C_MODULE,
1293: p_msg_text => 'Begin Procedure');
1287: BEGIN
1288: --
1289: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1290: FEM_ENGINES_PKG.TECH_MESSAGE(
1291: p_severity => FND_LOG.level_procedure,
1292: p_module => C_MODULE,
1293: p_msg_text => 'Begin Procedure');
1294: END IF;
1295:
1314: ('MAPPING_UI_INPUT', 'PROCESSING_KEY'))
1315: AND tc.column_name <> 'LEDGER_ID';
1316:
1317:
1318: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1319: FEM_ENGINES_PKG.TECH_MESSAGE(
1320: p_severity => FND_LOG.level_procedure,
1321: p_module => C_MODULE,
1322: p_msg_text => 'End Procedure');
1316:
1317:
1318: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1319: FEM_ENGINES_PKG.TECH_MESSAGE(
1320: p_severity => FND_LOG.level_procedure,
1321: p_module => C_MODULE,
1322: p_msg_text => 'End Procedure');
1323: END IF;
1324: --
1348: )
1349: -------------------------------------------------------------------------------
1350: IS
1351: --
1352: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1353: 'fem.plsql.fem_mapping_preview_util_pkg.GetSelectClause';
1354: --
1355: CURSOR c_dim (cv_preview_obj_def_id IN NUMBER,
1356: cv_preview_row_group IN VARCHAR2) IS
1360: AND preview_row_group = cv_preview_row_group;
1361: --
1362: BEGIN
1363: --
1364: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1365: FEM_ENGINES_PKG.TECH_MESSAGE(
1366: p_severity => FND_LOG.level_procedure,
1367: p_module => C_MODULE,
1368: p_msg_text => 'Begin Procedure');
1362: BEGIN
1363: --
1364: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1365: FEM_ENGINES_PKG.TECH_MESSAGE(
1366: p_severity => FND_LOG.level_procedure,
1367: p_module => C_MODULE,
1368: p_msg_text => 'Begin Procedure');
1369: END IF;
1370:
1385:
1386: END LOOP;
1387:
1388:
1389: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1390: FEM_ENGINES_PKG.TECH_MESSAGE(
1391: p_severity => FND_LOG.level_statement,
1392: p_module => C_MODULE,
1393: p_msg_text => 'x_select_clause = '||x_select_clause);
1387:
1388:
1389: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1390: FEM_ENGINES_PKG.TECH_MESSAGE(
1391: p_severity => FND_LOG.level_statement,
1392: p_module => C_MODULE,
1393: p_msg_text => 'x_select_clause = '||x_select_clause);
1394: END IF;
1395:
1392: p_module => C_MODULE,
1393: p_msg_text => 'x_select_clause = '||x_select_clause);
1394: END IF;
1395:
1396: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1397: FEM_ENGINES_PKG.TECH_MESSAGE(
1398: p_severity => FND_LOG.level_procedure,
1399: p_module => C_MODULE,
1400: p_msg_text => 'End Procedure');
1394: END IF;
1395:
1396: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1397: FEM_ENGINES_PKG.TECH_MESSAGE(
1398: p_severity => FND_LOG.level_procedure,
1399: p_module => C_MODULE,
1400: p_msg_text => 'End Procedure');
1401: END IF;
1402: --
1421: )
1422: -------------------------------------------------------------------------------
1423: IS
1424: --
1425: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1426: 'fem.plsql.fem_mapping_preview_util_pkg.GetMapTableType';
1427: v_is_ledger VARCHAR2(1);
1428: v_is_acct_trans VARCHAR2(1);
1429: --
1443: 'TRANSACTION_PROFITABILITY');
1444: --
1445: BEGIN
1446: --
1447: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1448: FEM_ENGINES_PKG.TECH_MESSAGE(
1449: p_severity => FND_LOG.level_procedure,
1450: p_module => C_MODULE,
1451: p_msg_text => 'Begin Procedure');
1445: BEGIN
1446: --
1447: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1448: FEM_ENGINES_PKG.TECH_MESSAGE(
1449: p_severity => FND_LOG.level_procedure,
1450: p_module => C_MODULE,
1451: p_msg_text => 'Begin Procedure');
1452: END IF;
1453:
1473: x_map_table_type := G_OTHER_TABLE_TYPE;
1474: END IF;
1475: END IF;
1476:
1477: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1478: FEM_ENGINES_PKG.TECH_MESSAGE(
1479: p_severity => FND_LOG.level_statement,
1480: p_module => C_MODULE,
1481: p_msg_text => 'x_map_table_type = '||x_map_table_type);
1475: END IF;
1476:
1477: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1478: FEM_ENGINES_PKG.TECH_MESSAGE(
1479: p_severity => FND_LOG.level_statement,
1480: p_module => C_MODULE,
1481: p_msg_text => 'x_map_table_type = '||x_map_table_type);
1482: END IF;
1483:
1480: p_module => C_MODULE,
1481: p_msg_text => 'x_map_table_type = '||x_map_table_type);
1482: END IF;
1483:
1484: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1485: FEM_ENGINES_PKG.TECH_MESSAGE(
1486: p_severity => FND_LOG.level_procedure,
1487: p_module => C_MODULE,
1488: p_msg_text => 'End Procedure');
1482: END IF;
1483:
1484: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1485: FEM_ENGINES_PKG.TECH_MESSAGE(
1486: p_severity => FND_LOG.level_procedure,
1487: p_module => C_MODULE,
1488: p_msg_text => 'End Procedure');
1489: END IF;
1490: --
1540: )
1541: -------------------------------------------------------------------------------
1542: IS
1543: --
1544: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1545: 'fem.plsql.fem_mapping_preview_util_pkg.GetOutputMatchingTable';
1546: v_map_rule_type FEM_ALLOC_BR_OBJECTS.map_rule_type_code%TYPE;
1547: v_fact_table_name FEM_ALLOC_PREVIEW_STATS.fact_table_name%TYPE;
1548: v_temp_table_name FEM_ALLOC_PREVIEW_STATS.temp_table_name%TYPE;
1559: AND s.preview_row_group = cv_preview_row_group;
1560: --
1561: BEGIN
1562: --
1563: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1564: FEM_ENGINES_PKG.TECH_MESSAGE(
1565: p_severity => FND_LOG.level_procedure,
1566: p_module => C_MODULE,
1567: p_msg_text => 'Begin Procedure');
1561: BEGIN
1562: --
1563: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1564: FEM_ENGINES_PKG.TECH_MESSAGE(
1565: p_severity => FND_LOG.level_procedure,
1566: p_module => C_MODULE,
1567: p_msg_text => 'Begin Procedure');
1568: END IF;
1569:
1590: v_temp_table_group := G_SOURCE;
1591: END IF;
1592: END IF;
1593:
1594: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1595: FEM_ENGINES_PKG.TECH_MESSAGE(
1596: p_severity => FND_LOG.level_statement,
1597: p_module => C_MODULE,
1598: p_msg_text => 'v_temp_table_group = '||v_temp_table_group);
1592: END IF;
1593:
1594: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1595: FEM_ENGINES_PKG.TECH_MESSAGE(
1596: p_severity => FND_LOG.level_statement,
1597: p_module => C_MODULE,
1598: p_msg_text => 'v_temp_table_group = '||v_temp_table_group);
1599: END IF;
1600:
1608:
1609: x_output_match_temp_table := v_temp_table_name;
1610: x_output_match_fact_table := v_fact_table_name;
1611:
1612: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1613: FEM_ENGINES_PKG.TECH_MESSAGE(
1614: p_severity => FND_LOG.level_statement,
1615: p_module => C_MODULE,
1616: p_msg_text => 'x_output_match_temp_table = '||x_output_match_temp_table);
1610: x_output_match_fact_table := v_fact_table_name;
1611:
1612: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1613: FEM_ENGINES_PKG.TECH_MESSAGE(
1614: p_severity => FND_LOG.level_statement,
1615: p_module => C_MODULE,
1616: p_msg_text => 'x_output_match_temp_table = '||x_output_match_temp_table);
1617: FEM_ENGINES_PKG.TECH_MESSAGE(
1618: p_severity => FND_LOG.level_statement,
1614: p_severity => FND_LOG.level_statement,
1615: p_module => C_MODULE,
1616: p_msg_text => 'x_output_match_temp_table = '||x_output_match_temp_table);
1617: FEM_ENGINES_PKG.TECH_MESSAGE(
1618: p_severity => FND_LOG.level_statement,
1619: p_module => C_MODULE,
1620: p_msg_text => 'x_output_match_fact_table = '||x_output_match_fact_table);
1621: END IF;
1622:
1622:
1623: -- An output match table should always be found.
1624: -- If not, then raise unexpected error...
1625: IF x_output_match_temp_table IS NULL THEN
1626: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1627: FEM_ENGINES_PKG.TECH_MESSAGE(
1628: p_severity => FND_LOG.level_unexpected,
1629: p_module => C_MODULE,
1630: p_msg_text => 'x_output_match_temp_table should NOT be NULL!');
1624: -- If not, then raise unexpected error...
1625: IF x_output_match_temp_table IS NULL THEN
1626: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1627: FEM_ENGINES_PKG.TECH_MESSAGE(
1628: p_severity => FND_LOG.level_unexpected,
1629: p_module => C_MODULE,
1630: p_msg_text => 'x_output_match_temp_table should NOT be NULL!');
1631: END IF;
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1631: END IF;
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1636: FEM_ENGINES_PKG.TECH_MESSAGE(
1637: p_severity => FND_LOG.level_procedure,
1638: p_module => C_MODULE,
1639: p_msg_text => 'End Procedure');
1633: END IF;
1634:
1635: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1636: FEM_ENGINES_PKG.TECH_MESSAGE(
1637: p_severity => FND_LOG.level_procedure,
1638: p_module => C_MODULE,
1639: p_msg_text => 'End Procedure');
1640: END IF;
1641: --
1659: )
1660: -------------------------------------------------------------------------------
1661: IS
1662: --
1663: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1664: 'fem.plsql.fem_mapping_preview_util_pkg.GetFromClause';
1665: --
1666: BEGIN
1667: --
1664: 'fem.plsql.fem_mapping_preview_util_pkg.GetFromClause';
1665: --
1666: BEGIN
1667: --
1668: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1669: FEM_ENGINES_PKG.TECH_MESSAGE(
1670: p_severity => FND_LOG.level_procedure,
1671: p_module => C_MODULE,
1672: p_msg_text => 'Begin Procedure');
1666: BEGIN
1667: --
1668: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1669: FEM_ENGINES_PKG.TECH_MESSAGE(
1670: p_severity => FND_LOG.level_procedure,
1671: p_module => C_MODULE,
1672: p_msg_text => 'Begin Procedure');
1673: END IF;
1674:
1676: -- FROM
1678: ||G_DIM_TEMPLATE_TABLE||' '||G_DIM_ALIAS;
1679:
1680: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1681: FEM_ENGINES_PKG.TECH_MESSAGE(
1682: p_severity => FND_LOG.level_statement,
1683: p_module => C_MODULE,
1684: p_msg_text => 'x_from_clause = '||x_from_clause);
1685: END IF;
1686:
1683: p_module => C_MODULE,
1684: p_msg_text => 'x_from_clause = '||x_from_clause);
1685: END IF;
1686:
1687: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1688: FEM_ENGINES_PKG.TECH_MESSAGE(
1689: p_severity => FND_LOG.level_procedure,
1690: p_module => C_MODULE,
1691: p_msg_text => 'End Procedure');
1685: END IF;
1686:
1687: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1688: FEM_ENGINES_PKG.TECH_MESSAGE(
1689: p_severity => FND_LOG.level_procedure,
1690: p_module => C_MODULE,
1691: p_msg_text => 'End Procedure');
1692: END IF;
1693: --
1728: )
1729: -------------------------------------------------------------------------------
1730: IS
1731: --
1732: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1733: 'fem.plsql.fem_mapping_preview_util_pkg.GetInputWhereClause';
1734: v_map_table_type VARCHAR2(30);
1735: v_condition_filter VARCHAR2(16000);
1736: v_return_status VARCHAR2(1);
1755: AND s.value IS NOT NULL;
1756: --
1757: BEGIN
1758: --
1759: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1760: FEM_ENGINES_PKG.TECH_MESSAGE(
1761: p_severity => FND_LOG.level_procedure,
1762: p_module => C_MODULE,
1763: p_msg_text => 'Begin Procedure');
1757: BEGIN
1758: --
1759: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1760: FEM_ENGINES_PKG.TECH_MESSAGE(
1761: p_severity => FND_LOG.level_procedure,
1762: p_module => C_MODULE,
1763: p_msg_text => 'Begin Procedure');
1764: END IF;
1765:
1816: p_commit => FND_API.G_FALSE,
1817: p_encoded => FND_API.G_TRUE);
1818:
1819: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1820: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1821: FEM_ENGINES_PKG.TECH_MESSAGE(
1822: p_severity => FND_LOG.level_statement,
1823: p_module => C_MODULE,
1824: p_msg_text => 'INTERNAL ERROR: Call to'
1818:
1819: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1820: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1821: FEM_ENGINES_PKG.TECH_MESSAGE(
1822: p_severity => FND_LOG.level_statement,
1823: p_module => C_MODULE,
1824: p_msg_text => 'INTERNAL ERROR: Call to'
1825: ||' FEM_ASSEMBLER_PREDICATE_API.Generate_Assembler_Predicate'
1826: ||' failed with return status: '||v_return_status);
1886: x_msg_data => v_msg_data,
1887: x_predicate_string => v_condition_filter);
1888:
1889: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1890: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1891: FEM_ENGINES_PKG.TECH_MESSAGE(
1892: p_severity => FND_LOG.level_statement,
1893: p_module => C_MODULE,
1894: p_msg_text => 'INTERNAL ERROR: Call to'
1888:
1889: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1890: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1891: FEM_ENGINES_PKG.TECH_MESSAGE(
1892: p_severity => FND_LOG.level_statement,
1893: p_module => C_MODULE,
1894: p_msg_text => 'INTERNAL ERROR: Call to'
1895: ||' FEM_CONDITIONS_API.generate_condition_predicate'
1896: ||' failed with return status: '||v_return_status);
1941: x_msg_data => v_msg_data,
1942: x_predicate_string => v_condition_filter);
1943:
1944: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1945: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1946: FEM_ENGINES_PKG.TECH_MESSAGE(
1947: p_severity => FND_LOG.level_statement,
1948: p_module => C_MODULE,
1949: p_msg_text => 'INTERNAL ERROR: Call to'
1943:
1944: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1945: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1946: FEM_ENGINES_PKG.TECH_MESSAGE(
1947: p_severity => FND_LOG.level_statement,
1948: p_module => C_MODULE,
1949: p_msg_text => 'INTERNAL ERROR: Call to'
1950: ||' FEM_CONDITIONS_API.generate_condition_predicate'
1951: ||' failed with return status: '||v_return_status);
1975: x_where_clause := 'WHERE '||x_where_clause
1976: ||' AND '||'rownum <= '||v_query_row_limit;
1977: END IF;
1978:
1979: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1980: FEM_ENGINES_PKG.TECH_MESSAGE(
1981: p_severity => FND_LOG.level_procedure,
1982: p_module => C_MODULE,
1983: p_msg_text => 'End Procedure');
1977: END IF;
1978:
1979: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1980: FEM_ENGINES_PKG.TECH_MESSAGE(
1981: p_severity => FND_LOG.level_procedure,
1982: p_module => C_MODULE,
1983: p_msg_text => 'End Procedure');
1984: END IF;
1985: --
2013: )
2014: -------------------------------------------------------------------------------
2015: IS
2016: --
2017: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2018: 'fem.plsql.fem_mapping_preview_util_pkg.GetOutputWhereClause';
2019: v_map_table_type VARCHAR2(30);
2020: v_output_match_temp_table VARCHAR2(30);
2021: v_output_match_fact_table VARCHAR2(30);
2047:
2048: --
2049: BEGIN
2050: --
2051: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2052: FEM_ENGINES_PKG.TECH_MESSAGE(
2053: p_severity => FND_LOG.level_procedure,
2054: p_module => C_MODULE,
2055: p_msg_text => 'Begin Procedure');
2049: BEGIN
2050: --
2051: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2052: FEM_ENGINES_PKG.TECH_MESSAGE(
2053: p_severity => FND_LOG.level_procedure,
2054: p_module => C_MODULE,
2055: p_msg_text => 'Begin Procedure');
2056: END IF;
2057:
2120: END IF;
2121:
2122: ELSE
2123:
2124: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2125: FEM_ENGINES_PKG.TECH_MESSAGE(
2126: p_severity => FND_LOG.level_unexpected,
2127: p_module => C_MODULE,
2128: p_msg_text => 'Unsupported output table type: '||v_map_table_type);
2122: ELSE
2123:
2124: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2125: FEM_ENGINES_PKG.TECH_MESSAGE(
2126: p_severity => FND_LOG.level_unexpected,
2127: p_module => C_MODULE,
2128: p_msg_text => 'Unsupported output table type: '||v_map_table_type);
2129: END IF;
2130:
2136: IF x_where_clause IS NOT NULL THEN
2137: x_where_clause := 'WHERE '||x_where_clause;
2138: END IF;
2139:
2140: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2141: FEM_ENGINES_PKG.TECH_MESSAGE(
2142: p_severity => FND_LOG.level_procedure,
2143: p_module => C_MODULE,
2144: p_msg_text => 'End Procedure');
2138: END IF;
2139:
2140: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2141: FEM_ENGINES_PKG.TECH_MESSAGE(
2142: p_severity => FND_LOG.level_procedure,
2143: p_module => C_MODULE,
2144: p_msg_text => 'End Procedure');
2145: END IF;
2146: --
2173: )
2174: -------------------------------------------------------------------------------
2175: IS
2176: --
2177: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2178: 'fem.plsql.fem_mapping_preview_util_pkg.GetWhereClause';
2179: v_map_table_type VARCHAR2(30);
2180: --
2181: BEGIN
2179: v_map_table_type VARCHAR2(30);
2180: --
2181: BEGIN
2182: --
2183: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2184: FEM_ENGINES_PKG.TECH_MESSAGE(
2185: p_severity => FND_LOG.level_procedure,
2186: p_module => C_MODULE,
2187: p_msg_text => 'Begin Procedure');
2181: BEGIN
2182: --
2183: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2184: FEM_ENGINES_PKG.TECH_MESSAGE(
2185: p_severity => FND_LOG.level_procedure,
2186: p_module => C_MODULE,
2187: p_msg_text => 'Begin Procedure');
2188: END IF;
2189:
2211: x_where_clause => x_where_clause);
2212:
2213: END IF;
2214:
2215: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2216: FEM_ENGINES_PKG.TECH_MESSAGE(
2217: p_severity => FND_LOG.level_statement,
2218: p_module => C_MODULE,
2219: p_msg_text => 'x_where_clause = '||x_where_clause);
2213: END IF;
2214:
2215: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2216: FEM_ENGINES_PKG.TECH_MESSAGE(
2217: p_severity => FND_LOG.level_statement,
2218: p_module => C_MODULE,
2219: p_msg_text => 'x_where_clause = '||x_where_clause);
2220: END IF;
2221:
2218: p_module => C_MODULE,
2219: p_msg_text => 'x_where_clause = '||x_where_clause);
2220: END IF;
2221:
2222: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2223: FEM_ENGINES_PKG.TECH_MESSAGE(
2224: p_severity => FND_LOG.level_procedure,
2225: p_module => C_MODULE,
2226: p_msg_text => 'End Procedure');
2220: END IF;
2221:
2222: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2223: FEM_ENGINES_PKG.TECH_MESSAGE(
2224: p_severity => FND_LOG.level_procedure,
2225: p_module => C_MODULE,
2226: p_msg_text => 'End Procedure');
2227: END IF;
2228: --
2253: )
2254: -------------------------------------------------------------------------------
2255: IS
2256: --
2257: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2258: 'fem.plsql.fem_mapping_preview_util_pkg.UpdatePreviewStats';
2259: v_functional_currency FEM_ALLOC_PREVIEW_STATS.amount_currency_code%TYPE;
2260: v_amount_total FEM_ALLOC_PREVIEW_STATS.preview_amount_total%TYPE;
2261: v_row_count FEM_ALLOC_PREVIEW_STATS.preview_rows%TYPE;
2261: v_row_count FEM_ALLOC_PREVIEW_STATS.preview_rows%TYPE;
2262: --
2263: BEGIN
2264: --
2265: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2266: FEM_ENGINES_PKG.TECH_MESSAGE(
2267: p_severity => FND_LOG.level_procedure,
2268: p_module => C_MODULE,
2269: p_msg_text => 'Begin Procedure');
2263: BEGIN
2264: --
2265: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2266: FEM_ENGINES_PKG.TECH_MESSAGE(
2267: p_severity => FND_LOG.level_procedure,
2268: p_module => C_MODULE,
2269: p_msg_text => 'Begin Procedure');
2270: END IF;
2271:
2290: preview_rows = v_row_count
2291: WHERE preview_obj_def_id = p_preview_obj_def_id
2292: AND preview_row_group = p_preview_row_group;
2293:
2294: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2295: FEM_ENGINES_PKG.TECH_MESSAGE(
2296: p_severity => FND_LOG.level_procedure,
2297: p_module => C_MODULE,
2298: p_msg_text => 'End Procedure');
2292: AND preview_row_group = p_preview_row_group;
2293:
2294: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2295: FEM_ENGINES_PKG.TECH_MESSAGE(
2296: p_severity => FND_LOG.level_procedure,
2297: p_module => C_MODULE,
2298: p_msg_text => 'End Procedure');
2299: END IF;
2300: --
2327: )
2328: -------------------------------------------------------------------------------
2329: IS
2330: --
2331: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2332: 'fem.plsql.fem_mapping_preview_util_pkg.GetPreviewAmount';
2333: v_dim_id FEM_DIMENSIONS_B.dimension_id%TYPE;
2334: v_dim_attr_id FEM_DIM_ATTRIBUTES_B.attribute_id%TYPE;
2335: v_dim_attr_ver_id FEM_DIM_ATTR_VERSIONS_B.version_id%TYPE;
2348: amount_cv RefCurTyp;
2349: --
2350: BEGIN
2351: --
2352: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2353: FEM_ENGINES_PKG.TECH_MESSAGE(
2354: p_severity => FND_LOG.level_procedure,
2355: p_module => C_MODULE,
2356: p_msg_text => 'Begin Procedure');
2350: BEGIN
2351: --
2352: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2353: FEM_ENGINES_PKG.TECH_MESSAGE(
2354: p_severity => FND_LOG.level_procedure,
2355: p_module => C_MODULE,
2356: p_msg_text => 'Begin Procedure');
2357: END IF;
2358:
2380: x_ver_id => v_dim_attr_ver_id,
2381: x_err_code => v_return_code);
2382:
2383: IF v_return_code <> 0 THEN -- if not success
2384: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2385: FEM_ENGINES_PKG.TECH_MESSAGE(
2386: p_severity => FND_LOG.level_unexpected,
2387: p_module => C_MODULE,
2388: p_msg_text => 'INTERNAL ERROR: Call to'
2382:
2383: IF v_return_code <> 0 THEN -- if not success
2384: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2385: FEM_ENGINES_PKG.TECH_MESSAGE(
2386: p_severity => FND_LOG.level_unexpected,
2387: p_module => C_MODULE,
2388: p_msg_text => 'INTERNAL ERROR: Call to'
2389: ||' FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
2390: ||' to get LEDGER_FUNCTIONAL_CRNCY_CODE attribute'
2400: AND version_id = v_dim_attr_ver_id
2401: AND ledger_id = p_ledger_id;
2402:
2403: IF x_functional_currency IS NULL THEN
2404: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2405: FEM_ENGINES_PKG.TECH_MESSAGE(
2406: p_severity => FND_LOG.level_unexpected,
2407: p_module => C_MODULE,
2408: p_msg_text => 'Functional currency does not exist for the ledger'
2402:
2403: IF x_functional_currency IS NULL THEN
2404: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2405: FEM_ENGINES_PKG.TECH_MESSAGE(
2406: p_severity => FND_LOG.level_unexpected,
2407: p_module => C_MODULE,
2408: p_msg_text => 'Functional currency does not exist for the ledger'
2409: ||' id: '||p_ledger_id);
2410: END IF;
2426: x_ver_id => v_dim_attr_ver_id,
2427: x_err_code => v_return_code);
2428:
2429: IF v_return_code <> 0 THEN -- if not success
2430: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2431: FEM_ENGINES_PKG.TECH_MESSAGE(
2432: p_severity => FND_LOG.level_unexpected,
2433: p_module => C_MODULE,
2434: p_msg_text => 'INTERNAL ERROR: Call to'
2428:
2429: IF v_return_code <> 0 THEN -- if not success
2430: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2431: FEM_ENGINES_PKG.TECH_MESSAGE(
2432: p_severity => FND_LOG.level_unexpected,
2433: p_module => C_MODULE,
2434: p_msg_text => 'INTERNAL ERROR: Call to'
2435: ||' FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
2436: ||' to get CAL_PERIOD_END_DATE attribute'
2446: AND version_id = v_dim_attr_ver_id
2447: AND cal_period_id = p_cal_period_id;
2448:
2449: IF v_cal_per_end_date IS NULL THEN
2450: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2451: FEM_ENGINES_PKG.TECH_MESSAGE(
2452: p_severity => FND_LOG.level_unexpected,
2453: p_module => C_MODULE,
2454: p_msg_text => 'Calendar Period End Date does not exist for this'
2448:
2449: IF v_cal_per_end_date IS NULL THEN
2450: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2451: FEM_ENGINES_PKG.TECH_MESSAGE(
2452: p_severity => FND_LOG.level_unexpected,
2453: p_module => C_MODULE,
2454: p_msg_text => 'Calendar Period End Date does not exist for this'
2455: ||' calendar period: '||p_cal_period_id);
2456: END IF;
2456: END IF;
2457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2458: END IF;
2459:
2460: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2461: FEM_ENGINES_PKG.Tech_Message(
2462: p_severity => FND_LOG.level_statement,
2463: p_module => C_MODULE,
2464: p_msg_text => 'The Calendar Period End Date is '
2458: END IF;
2459:
2460: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2461: FEM_ENGINES_PKG.Tech_Message(
2462: p_severity => FND_LOG.level_statement,
2463: p_module => C_MODULE,
2464: p_msg_text => 'The Calendar Period End Date is '
2465: ||FND_DATE.date_to_displayDT(v_cal_per_end_date));
2466: END IF;
2486: AND f.function_cd = m.function_cd
2487: AND m.preview_row_group = p_preview_row_group;
2488:
2489: IF v_amount_column IS NULL THEN
2490: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2491: FEM_ENGINES_PKG.TECH_MESSAGE(
2492: p_severity => FND_LOG.level_unexpected,
2493: p_module => C_MODULE,
2494: p_msg_text => 'Amount column is null for this preview group: '
2488:
2489: IF v_amount_column IS NULL THEN
2490: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2491: FEM_ENGINES_PKG.TECH_MESSAGE(
2492: p_severity => FND_LOG.level_unexpected,
2493: p_module => C_MODULE,
2494: p_msg_text => 'Amount column is null for this preview group: '
2495: ||p_preview_row_group);
2496: END IF;
2498: END IF;
2499:
2500: ELSE
2501:
2502: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2503: FEM_ENGINES_PKG.TECH_MESSAGE(
2504: p_severity => FND_LOG.level_unexpected,
2505: p_module => C_MODULE,
2506: p_msg_text => 'Unexpected table classification type: '
2500: ELSE
2501:
2502: IF FND_LOG.level_unexpected >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2503: FEM_ENGINES_PKG.TECH_MESSAGE(
2504: p_severity => FND_LOG.level_unexpected,
2505: p_module => C_MODULE,
2506: p_msg_text => 'Unexpected table classification type: '
2507: ||p_map_table_type);
2508: END IF;
2516: v_sql := 'SELECT SUM('||v_amount_column||'), currency_code'
2517: ||' FROM '||p_temp_table_name
2518: ||' GROUP BY currency_code';
2519:
2520: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2521: FEM_ENGINES_PKG.TECH_MESSAGE(
2522: p_severity => FND_LOG.level_statement,
2523: p_module => C_MODULE,
2524: p_msg_text => 'Preview amount SQL = '||v_sql);
2518: ||' GROUP BY currency_code';
2519:
2520: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2521: FEM_ENGINES_PKG.TECH_MESSAGE(
2522: p_severity => FND_LOG.level_statement,
2523: p_module => C_MODULE,
2524: p_msg_text => 'Preview amount SQL = '||v_sql);
2525: END IF;
2526:
2570: x_preview_amount_total := x_preview_amount_total + v_conv_amount;
2571:
2572: END LOOP;
2573:
2574: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2575: FEM_ENGINES_PKG.TECH_MESSAGE(
2576: p_severity => FND_LOG.level_procedure,
2577: p_module => C_MODULE,
2578: p_msg_text => 'End Procedure');
2572: END LOOP;
2573:
2574: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2575: FEM_ENGINES_PKG.TECH_MESSAGE(
2576: p_severity => FND_LOG.level_procedure,
2577: p_module => C_MODULE,
2578: p_msg_text => 'End Procedure');
2579: END IF;
2580: --
2613: )
2614: -------------------------------------------------------------------------------
2615: IS
2616: --
2617: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2618: 'fem.plsql.fem_mapping_preview_util_pkg.GetPreviewRowCount';
2619: v_sql VARCHAR2(4000);
2620: --
2621: BEGIN
2619: v_sql VARCHAR2(4000);
2620: --
2621: BEGIN
2622: --
2623: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2624: FEM_ENGINES_PKG.TECH_MESSAGE(
2625: p_severity => FND_LOG.level_procedure,
2626: p_module => C_MODULE,
2627: p_msg_text => 'Begin Procedure');
2621: BEGIN
2622: --
2623: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2624: FEM_ENGINES_PKG.TECH_MESSAGE(
2625: p_severity => FND_LOG.level_procedure,
2626: p_module => C_MODULE,
2627: p_msg_text => 'Begin Procedure');
2628: END IF;
2629:
2629:
2630: -- Get row count
2631: v_sql := 'SELECT count(*) FROM '||p_temp_table_name;
2632:
2633: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2634: FEM_ENGINES_PKG.TECH_MESSAGE(
2635: p_severity => FND_LOG.level_statement,
2636: p_module => C_MODULE,
2637: p_msg_text => 'Preview Row Count SQL = '||v_sql);
2631: v_sql := 'SELECT count(*) FROM '||p_temp_table_name;
2632:
2633: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2634: FEM_ENGINES_PKG.TECH_MESSAGE(
2635: p_severity => FND_LOG.level_statement,
2636: p_module => C_MODULE,
2637: p_msg_text => 'Preview Row Count SQL = '||v_sql);
2638: END IF;
2639:
2638: END IF;
2639:
2640: EXECUTE IMMEDIATE v_sql INTO x_preview_row_count;
2641:
2642: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2643: FEM_ENGINES_PKG.TECH_MESSAGE(
2644: p_severity => FND_LOG.level_procedure,
2645: p_module => C_MODULE,
2646: p_msg_text => 'End Procedure');
2640: EXECUTE IMMEDIATE v_sql INTO x_preview_row_count;
2641:
2642: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2643: FEM_ENGINES_PKG.TECH_MESSAGE(
2644: p_severity => FND_LOG.level_procedure,
2645: p_module => C_MODULE,
2646: p_msg_text => 'End Procedure');
2647: END IF;
2648: --
2679: )
2680: -------------------------------------------------------------------------------
2681: IS
2682: --
2683: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2684: 'fem.plsql.fem_mapping_preview_util_pkg.CleanOutputTable';
2685: v_sql VARCHAR2(4000);
2686: v_map_table_type VARCHAR2(30);
2687: --
2686: v_map_table_type VARCHAR2(30);
2687: --
2688: BEGIN
2689: --
2690: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2691: FEM_ENGINES_PKG.TECH_MESSAGE(
2692: p_severity => FND_LOG.level_procedure,
2693: p_module => C_MODULE,
2694: p_msg_text => 'Begin Procedure');
2688: BEGIN
2689: --
2690: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2691: FEM_ENGINES_PKG.TECH_MESSAGE(
2692: p_severity => FND_LOG.level_procedure,
2693: p_module => C_MODULE,
2694: p_msg_text => 'Begin Procedure');
2695: END IF;
2696:
2702: v_sql := 'DELETE FROM '||p_temp_table_name
2703: ||' WHERE last_updated_by_request_id <> :1'
2704: ||' AND last_updated_by_object_id <> :2';
2705:
2706: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2707: FEM_ENGINES_PKG.TECH_MESSAGE(
2708: p_severity => FND_LOG.level_statement,
2709: p_module => C_MODULE,
2710: p_msg_text => 'Delete unprocessed data SQL = '||v_sql);
2704: ||' AND last_updated_by_object_id <> :2';
2705:
2706: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2707: FEM_ENGINES_PKG.TECH_MESSAGE(
2708: p_severity => FND_LOG.level_statement,
2709: p_module => C_MODULE,
2710: p_msg_text => 'Delete unprocessed data SQL = '||v_sql);
2711: END IF;
2712:
2713: EXECUTE IMMEDIATE v_sql USING p_request_id, p_preview_obj_id;
2714:
2715: END IF;
2716:
2717: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2718: FEM_ENGINES_PKG.TECH_MESSAGE(
2719: p_severity => FND_LOG.level_procedure,
2720: p_module => C_MODULE,
2721: p_msg_text => 'End Procedure');
2715: END IF;
2716:
2717: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2718: FEM_ENGINES_PKG.TECH_MESSAGE(
2719: p_severity => FND_LOG.level_procedure,
2720: p_module => C_MODULE,
2721: p_msg_text => 'End Procedure');
2722: END IF;
2723: --
2771: )
2772: -------------------------------------------------------------------------------
2773: IS
2774: --
2775: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2776: 'fem.plsql.fem_mapping_preview_util_pkg.PopulateDimensionNames';
2777: C_TOKEN CONSTANT VARCHAR2(20) := 'FEMDIMNAMETOKEN';
2778: v_return_status VARCHAR2(1);
2779: v_msg_count NUMBER;
2800: AND gv.global_vs_combo_id (+) = cv_global_vs_combo_id;
2801: --
2802: BEGIN
2803: --
2804: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2805: FEM_ENGINES_PKG.TECH_MESSAGE(
2806: p_severity => FND_LOG.level_procedure,
2807: p_module => C_MODULE,
2808: p_msg_text => 'Begin Procedure');
2802: BEGIN
2803: --
2804: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2805: FEM_ENGINES_PKG.TECH_MESSAGE(
2806: p_severity => FND_LOG.level_procedure,
2807: p_module => C_MODULE,
2808: p_msg_text => 'Begin Procedure');
2809: END IF;
2810:
2816: x_msg_data => v_msg_data,
2817: p_ledger_id => p_ledger_id);
2818:
2819: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2820: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2821: FEM_ENGINES_PKG.TECH_MESSAGE(
2822: p_severity => FND_LOG.level_statement,
2823: p_module => C_MODULE,
2824: p_msg_text => 'INTERNAL ERROR: Call to'
2818:
2819: IF v_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2820: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2821: FEM_ENGINES_PKG.TECH_MESSAGE(
2822: p_severity => FND_LOG.level_statement,
2823: p_module => C_MODULE,
2824: p_msg_text => 'INTERNAL ERROR: Call to'
2825: ||' FEM_DIMENSION_UTIL_PKG.global_vs_combo_id'
2826: ||' failed with return status: '||v_return_status);
2869:
2870: -- Add the beginning part of the UPDATE sql to popluate the dimension names
2871: v_sql := 'UPDATE '||p_temp_table_name||' '||G_FACT_ALIAS||' SET '||v_sql;
2872:
2873: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2874: FEM_ENGINES_PKG.TECH_MESSAGE(
2875: p_severity => FND_LOG.level_statement,
2876: p_module => C_MODULE,
2877: p_msg_text => v_sql);
2871: v_sql := 'UPDATE '||p_temp_table_name||' '||G_FACT_ALIAS||' SET '||v_sql;
2872:
2873: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2874: FEM_ENGINES_PKG.TECH_MESSAGE(
2875: p_severity => FND_LOG.level_statement,
2876: p_module => C_MODULE,
2877: p_msg_text => v_sql);
2878: END IF;
2879:
2880: EXECUTE IMMEDIATE v_sql;
2881:
2882: END IF;
2883:
2884: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2885: FEM_ENGINES_PKG.TECH_MESSAGE(
2886: p_severity => FND_LOG.level_procedure,
2887: p_module => C_MODULE,
2888: p_msg_text => 'End Procedure');
2882: END IF;
2883:
2884: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2885: FEM_ENGINES_PKG.TECH_MESSAGE(
2886: p_severity => FND_LOG.level_procedure,
2887: p_module => C_MODULE,
2888: p_msg_text => 'End Procedure');
2889: END IF;
2890: --
2920: )
2921: -------------------------------------------------------------------------------
2922: IS
2923: --
2924: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2925: 'fem.plsql.fem_mapping_preview_util_pkg.GetByDimParams';
2926: C_BYDIM_FUNCIONCD CONSTANT VARCHAR2(10) := 'LEAFFUNC';
2927: --
2928: BEGIN
2926: C_BYDIM_FUNCIONCD CONSTANT VARCHAR2(10) := 'LEAFFUNC';
2927: --
2928: BEGIN
2929: --
2930: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2931: FEM_ENGINES_PKG.TECH_MESSAGE(
2932: p_severity => FND_LOG.level_procedure,
2933: p_module => C_MODULE,
2934: p_msg_text => 'Begin Procedure');
2928: BEGIN
2929: --
2930: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2931: FEM_ENGINES_PKG.TECH_MESSAGE(
2932: p_severity => FND_LOG.level_procedure,
2933: p_module => C_MODULE,
2934: p_msg_text => 'Begin Procedure');
2935: END IF;
2936:
2954: x_by_dimension_id := NULL;
2955: x_by_dimension_value := NULL;
2956: END IF;
2957:
2958: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2959: FEM_ENGINES_PKG.TECH_MESSAGE(
2960: p_severity => FND_LOG.level_procedure,
2961: p_module => C_MODULE,
2962: p_msg_text => 'End Procedure');
2956: END IF;
2957:
2958: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2959: FEM_ENGINES_PKG.TECH_MESSAGE(
2960: p_severity => FND_LOG.level_procedure,
2961: p_module => C_MODULE,
2962: p_msg_text => 'End Procedure');
2963: END IF;
2964: --