[Home] [Help]
135: g_log_current_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
136: l_request_id := FND_GLOBAL.Conc_Request_Id;
137:
138: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
139: FEM_ENGINES_PKG.TECH_MESSAGE(
140: p_severity => G_LOG_LEVEL_PROCEDURE,
141: p_module => C_MODULE,
142: p_msg_text => 'Begin Procedure');
143: END IF;
169:
170: -- Bug 5124844 hkaniven start
171: -- Start of Replacement enhancement
172:
173: FEM_ENGINES_PKG.User_Message
174: (p_app_name => 'FEM',
175: p_msg_name => 'FEM_SD_LDR_PARAMETERS',
176: p_token1 => 'DIM_GRP',
177: p_value1 => l_calp_dim_grp_dc,
189: p_value7 => p_exec_mode,
190: p_token8 => 'TABLE_NAME',
191: p_value8 => l_table_name);
192:
193: FEM_ENGINES_PKG.Tech_Message
194: (p_severity => G_LOG_LEVEL_STATEMENT,
195: p_module => C_MODULE,
196: p_app_name => 'FEM',
197: p_msg_name => 'FEM_SD_LDR_PARAMETERS',
254: status => l_status,
255: industry => l_industry,
256: oracle_schema => l_schema_name) THEN
257: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
258: FEM_ENGINES_PKG.TECH_MESSAGE(
259: p_severity => G_LOG_LEVEL_PROCEDURE,
260: p_module => C_MODULE,
261: p_msg_text => 'Failed in obtaining the schema name for FEM');
262: END IF;
324: p_arg10 => l_schema_name,
325: p_arg11 => l_condition);
326:
327: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
328: FEM_ENGINES_PKG.TECH_MESSAGE(
329: p_severity => G_LOG_LEVEL_PROCEDURE,
330: p_module => C_MODULE,
331: p_msg_text => 'MP Master return with status '||l_prg_stat);
332: END IF;
387: -- End of Replacement enhancement
388:
389: ELSE
390: IF l_exception_code = 'FEM_MP_NO_DATA_SLICES_ERR' THEN
391: FEM_ENGINES_PKG.User_Message
392: (p_app_name => 'FEM',
393: p_msg_name => 'FEM_SD_LDR_NO_SLICES',
394: p_token1 => 'DIM_GRP',
395: p_value1 => l_calp_dim_grp_dc,
404: p_token6 => 'SOURCE_DC',
405: p_value6 => l_source_system_dc,
406: p_token7 => 'EXEC_MODE',
407: p_value7 => p_exec_mode);
408: FEM_ENGINES_PKG.Tech_Message
409: (p_severity => G_LOG_LEVEL_STATEMENT,
410: p_module => C_MODULE,
411: p_app_name => 'FEM',
412: p_msg_name => 'FEM_SD_LDR_NO_SLICES',
443: p_login_id => FND_GLOBAL.Login_Id,
444: x_return_status => l_return_status);
445:
446: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
447: FEM_ENGINES_PKG.TECH_MESSAGE(
448: p_severity => G_LOG_LEVEL_PROCEDURE,
449: p_module => C_MODULE,
450: p_msg_text => 'End Procedure');
451: END IF;
470: p_login_id => FND_GLOBAL.Login_Id,
471: x_return_status => l_return_status);
472: ELSE
473: -- Post error rerun message to concurrent log
474: FEM_ENGINES_PKG.User_Message
475: (p_app_name => 'FEM',
476: p_msg_name => 'FEM_EXEC_RERUN');
477: FEM_ENGINES_PKG.Tech_Message
478: (p_severity => G_LOG_LEVEL_STATEMENT,
473: -- Post error rerun message to concurrent log
474: FEM_ENGINES_PKG.User_Message
475: (p_app_name => 'FEM',
476: p_msg_name => 'FEM_EXEC_RERUN');
477: FEM_ENGINES_PKG.Tech_Message
478: (p_severity => G_LOG_LEVEL_STATEMENT,
479: p_module => C_MODULE,
480: p_app_name => 'FEM',
481: p_msg_name => 'FEM_EXEC_RERUN');
484: -- set request status to error
485: l_dummy_boolean := FND_CONCURRENT.Set_Completion_Status
486: (status => 'ERROR', message => NULL);
487: WHEN others THEN
488: FEM_ENGINES_PKG.User_Message
489: (p_app_name => 'FEM',
490: p_msg_name => 'FEM_UNEXPECTED_ERROR',
491: p_token1 => 'ERR_MSG',
492: p_value1 => SQLERRM);
489: (p_app_name => 'FEM',
490: p_msg_name => 'FEM_UNEXPECTED_ERROR',
491: p_token1 => 'ERR_MSG',
492: p_value1 => SQLERRM);
493: FEM_ENGINES_PKG.Tech_Message
494: (p_severity => G_LOG_LEVEL_UNEXPECTED,
495: p_module => C_MODULE,
496: p_app_name => 'FEM',
497: p_msg_name => 'FEM_UNEXPECTED_ERROR',
516: p_login_id => FND_GLOBAL.Login_Id,
517: x_return_status => l_return_status);
518: ELSE
519: -- Post error rerun message to concurrent log
520: FEM_ENGINES_PKG.User_Message
521: (p_app_name => 'FEM',
522: p_msg_name => 'FEM_EXEC_RERUN');
523: FEM_ENGINES_PKG.Tech_Message
524: (p_severity => G_LOG_LEVEL_STATEMENT,
519: -- Post error rerun message to concurrent log
520: FEM_ENGINES_PKG.User_Message
521: (p_app_name => 'FEM',
522: p_msg_name => 'FEM_EXEC_RERUN');
523: FEM_ENGINES_PKG.Tech_Message
524: (p_severity => G_LOG_LEVEL_STATEMENT,
525: p_module => C_MODULE,
526: p_app_name => 'FEM',
527: p_msg_name => 'FEM_EXEC_RERUN');
589: l_ledger_per_hier_obj_def_id NUMBER;
590: BEGIN
591:
592: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
593: FEM_ENGINES_PKG.TECH_MESSAGE(
594: p_severity => G_LOG_LEVEL_PROCEDURE,
595: p_module => C_MODULE,
596: p_msg_text => 'Begin Procedure');
597: END IF;
720: END IF;
721: END IF;
722:
723: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
724: FEM_ENGINES_PKG.TECH_MESSAGE(
725: p_severity => G_LOG_LEVEL_STATEMENT,
726: p_module => C_MODULE,
727: p_msg_text => 'Returning with status of '||x_return_status);
728: END IF;
726: p_module => C_MODULE,
727: p_msg_text => 'Returning with status of '||x_return_status);
728: END IF;
729: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
730: FEM_ENGINES_PKG.TECH_MESSAGE(
731: p_severity => G_LOG_LEVEL_PROCEDURE,
732: p_module => C_MODULE,
733: p_msg_text => 'End Procedure');
734: END IF;
802: e_process_lock_error EXCEPTION;
803: BEGIN
804:
805: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
806: FEM_ENGINES_PKG.TECH_MESSAGE(
807: p_severity => G_LOG_LEVEL_PROCEDURE,
808: p_module => C_MODULE,
809: p_msg_text => 'Begin Procedure');
810: END IF;
809: p_msg_text => 'Begin Procedure');
810: END IF;
811: -- Log parameters
812: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
813: FEM_ENGINES_PKG.TECH_MESSAGE(
814: p_severity => G_LOG_LEVEL_STATEMENT,
815: p_module => C_MODULE,
816: p_msg_text => 'Parameter: Object ID is '||p_object_id);
817: FEM_ENGINES_PKG.TECH_MESSAGE(
813: FEM_ENGINES_PKG.TECH_MESSAGE(
814: p_severity => G_LOG_LEVEL_STATEMENT,
815: p_module => C_MODULE,
816: p_msg_text => 'Parameter: Object ID is '||p_object_id);
817: FEM_ENGINES_PKG.TECH_MESSAGE(
818: p_severity => G_LOG_LEVEL_STATEMENT,
819: p_module => C_MODULE,
820: p_msg_text => 'Parameter: Object Definition ID is '||p_obj_def_id);
821: FEM_ENGINES_PKG.TECH_MESSAGE(
817: FEM_ENGINES_PKG.TECH_MESSAGE(
818: p_severity => G_LOG_LEVEL_STATEMENT,
819: p_module => C_MODULE,
820: p_msg_text => 'Parameter: Object Definition ID is '||p_obj_def_id);
821: FEM_ENGINES_PKG.TECH_MESSAGE(
822: p_severity => G_LOG_LEVEL_STATEMENT,
823: p_module => C_MODULE,
824: p_msg_text => 'Parameter: Table Name is '||p_table_name);
825: FEM_ENGINES_PKG.TECH_MESSAGE(
821: FEM_ENGINES_PKG.TECH_MESSAGE(
822: p_severity => G_LOG_LEVEL_STATEMENT,
823: p_module => C_MODULE,
824: p_msg_text => 'Parameter: Table Name is '||p_table_name);
825: FEM_ENGINES_PKG.TECH_MESSAGE(
826: p_severity => G_LOG_LEVEL_STATEMENT,
827: p_module => C_MODULE,
828: p_msg_text => 'Parameter: Exec Mode is '||p_exec_mode);
829: FEM_ENGINES_PKG.TECH_MESSAGE(
825: FEM_ENGINES_PKG.TECH_MESSAGE(
826: p_severity => G_LOG_LEVEL_STATEMENT,
827: p_module => C_MODULE,
828: p_msg_text => 'Parameter: Exec Mode is '||p_exec_mode);
829: FEM_ENGINES_PKG.TECH_MESSAGE(
830: p_severity => G_LOG_LEVEL_STATEMENT,
831: p_module => C_MODULE,
832: p_msg_text => 'Parameter: Ledger ID is '||p_ledger_id);
833: FEM_ENGINES_PKG.TECH_MESSAGE(
829: FEM_ENGINES_PKG.TECH_MESSAGE(
830: p_severity => G_LOG_LEVEL_STATEMENT,
831: p_module => C_MODULE,
832: p_msg_text => 'Parameter: Ledger ID is '||p_ledger_id);
833: FEM_ENGINES_PKG.TECH_MESSAGE(
834: p_severity => G_LOG_LEVEL_STATEMENT,
835: p_module => C_MODULE,
836: p_msg_text => 'Parameter: Calendar Period ID is '||p_cal_period_id);
837: FEM_ENGINES_PKG.TECH_MESSAGE(
833: FEM_ENGINES_PKG.TECH_MESSAGE(
834: p_severity => G_LOG_LEVEL_STATEMENT,
835: p_module => C_MODULE,
836: p_msg_text => 'Parameter: Calendar Period ID is '||p_cal_period_id);
837: FEM_ENGINES_PKG.TECH_MESSAGE(
838: p_severity => G_LOG_LEVEL_STATEMENT,
839: p_module => C_MODULE,
840: p_msg_text => 'Parameter: Datset Code is '||p_dataset_code);
841: FEM_ENGINES_PKG.TECH_MESSAGE(
837: FEM_ENGINES_PKG.TECH_MESSAGE(
838: p_severity => G_LOG_LEVEL_STATEMENT,
839: p_module => C_MODULE,
840: p_msg_text => 'Parameter: Datset Code is '||p_dataset_code);
841: FEM_ENGINES_PKG.TECH_MESSAGE(
842: p_severity => G_LOG_LEVEL_STATEMENT,
843: p_module => C_MODULE,
844: p_msg_text => 'Parameter: Source System Code is '||p_source_system_code);
845: FEM_ENGINES_PKG.TECH_MESSAGE(
841: FEM_ENGINES_PKG.TECH_MESSAGE(
842: p_severity => G_LOG_LEVEL_STATEMENT,
843: p_module => C_MODULE,
844: p_msg_text => 'Parameter: Source System Code is '||p_source_system_code);
845: FEM_ENGINES_PKG.TECH_MESSAGE(
846: p_severity => G_LOG_LEVEL_STATEMENT,
847: p_module => C_MODULE,
848: p_msg_text => 'Parameter: Concurrent Request ID is '||p_request_id);
849: FEM_ENGINES_PKG.TECH_MESSAGE(
845: FEM_ENGINES_PKG.TECH_MESSAGE(
846: p_severity => G_LOG_LEVEL_STATEMENT,
847: p_module => C_MODULE,
848: p_msg_text => 'Parameter: Concurrent Request ID is '||p_request_id);
849: FEM_ENGINES_PKG.TECH_MESSAGE(
850: p_severity => G_LOG_LEVEL_STATEMENT,
851: p_module => C_MODULE,
852: p_msg_text => 'Parameter: User ID is '||p_user_id);
853: FEM_ENGINES_PKG.TECH_MESSAGE(
849: FEM_ENGINES_PKG.TECH_MESSAGE(
850: p_severity => G_LOG_LEVEL_STATEMENT,
851: p_module => C_MODULE,
852: p_msg_text => 'Parameter: User ID is '||p_user_id);
853: FEM_ENGINES_PKG.TECH_MESSAGE(
854: p_severity => G_LOG_LEVEL_STATEMENT,
855: p_module => C_MODULE,
856: p_msg_text => 'Parameter: Login ID is '||p_login_id);
857: FEM_ENGINES_PKG.TECH_MESSAGE(
853: FEM_ENGINES_PKG.TECH_MESSAGE(
854: p_severity => G_LOG_LEVEL_STATEMENT,
855: p_module => C_MODULE,
856: p_msg_text => 'Parameter: Login ID is '||p_login_id);
857: FEM_ENGINES_PKG.TECH_MESSAGE(
858: p_severity => G_LOG_LEVEL_STATEMENT,
859: p_module => C_MODULE,
860: p_msg_text => 'Parameter: Concurrent Program ID is '||p_program_id);
861: FEM_ENGINES_PKG.TECH_MESSAGE(
857: FEM_ENGINES_PKG.TECH_MESSAGE(
858: p_severity => G_LOG_LEVEL_STATEMENT,
859: p_module => C_MODULE,
860: p_msg_text => 'Parameter: Concurrent Program ID is '||p_program_id);
861: FEM_ENGINES_PKG.TECH_MESSAGE(
862: p_severity => G_LOG_LEVEL_STATEMENT,
863: p_module => C_MODULE,
864: p_msg_text => 'Parameter: Concurrent Program Application ID is '||
865: p_program_application_id);
887: x_msg_data => l_msg_data,
888: x_return_status => l_return_status);
889:
890: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
891: FEM_ENGINES_PKG.Tech_Message
892: (p_severity => G_LOG_LEVEL_STATEMENT,
893: p_module => C_MODULE,
894: p_msg_text => 'Call to FEM_PL_PKG.Register_Request returned with status '
895: ||l_return_status);
920: x_msg_data => l_msg_data,
921: x_return_status => l_return_status);
922:
923: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
924: FEM_ENGINES_PKG.Tech_Message
925: (p_severity => G_LOG_LEVEL_STATEMENT,
926: p_module => C_MODULE,
927: p_msg_text => 'Call to FEM_PL_PKG.Register_Object_Execution returned with '
928: ||' status as '||l_return_status
955: x_msg_data => l_msg_data,
956: x_return_status => l_return_status);
957:
958: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
959: FEM_ENGINES_PKG.Tech_Message
960: (p_severity => G_LOG_LEVEL_STATEMENT,
961: p_module => C_MODULE,
962: p_msg_text => 'Call to FEM_PL_PKG.Register_Object_Def returned with status '
963: ||l_return_status);
987: x_msg_data => l_msg_data,
988: x_return_status => l_return_status);
989:
990: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
991: FEM_ENGINES_PKG.Tech_Message
992: (p_severity => G_LOG_LEVEL_STATEMENT,
993: p_module => C_MODULE,
994: p_msg_text => 'Call to FEM_PL_PKG.Register_Table returned with status '
995: ||l_return_status);
1019: EXCEPTION
1020: WHEN others THEN
1021: x_return_status := G_RET_STS_UNEXP_ERROR;
1022:
1023: FEM_ENGINES_PKG.Tech_Message
1024: (p_severity => G_LOG_LEVEL_STATEMENT,
1025: p_module => C_MODULE,
1026: p_msg_text => 'Call to FEM_DIMENSION_UTIL_PKG.register_data_location '
1027: ||'failed unexpectedly.');
1034:
1035: x_return_status := G_RET_STS_SUCCESS;
1036:
1037: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1038: FEM_ENGINES_PKG.TECH_MESSAGE(
1039: p_severity => G_LOG_LEVEL_STATEMENT,
1040: p_module => C_MODULE,
1041: p_msg_text => 'Procedure returning with status of '||x_return_status);
1042: END IF;
1040: p_module => C_MODULE,
1041: p_msg_text => 'Procedure returning with status of '||x_return_status);
1042: END IF;
1043: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1044: FEM_ENGINES_PKG.TECH_MESSAGE(
1045: p_severity => G_LOG_LEVEL_PROCEDURE,
1046: p_module => C_MODULE,
1047: p_msg_text => 'End Procedure');
1048: END IF;
1052: -- No need to post error messages as it was taken care of by the calls
1053: -- to get_push_messages after every API call.
1054:
1055: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1056: FEM_ENGINES_PKG.Tech_Message
1057: (p_severity => G_LOG_LEVEL_STATEMENT,
1058: p_module => C_MODULE,
1059: p_msg_text => 'Exception e_process_lock_error raised.');
1060: END IF;
1068: x_msg_count => l_msg_count,
1069: x_msg_data => l_msg_data,
1070: x_return_status => l_return_status);
1071:
1072: FEM_ENGINES_PKG.TECH_MESSAGE(
1073: p_severity => G_LOG_LEVEL_STATEMENT,
1074: p_module => C_MODULE,
1075: p_msg_text => 'Call to FEM_PL_PKG.Unregister_Request returned with status '
1076: ||l_return_status);
1110: l_msg_count NUMBER;
1111: l_msg_data VARCHAR2(4000);
1112: BEGIN
1113: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1114: FEM_ENGINES_PKG.TECH_MESSAGE(
1115: p_severity => G_LOG_LEVEL_PROCEDURE,
1116: p_module => C_MODULE,
1117: p_msg_text => 'Begin Procedure');
1118: END IF;
1123: -- In case this procedure is called twice in the same session
1124: -- make sure to remove the previous dimension elements.
1125: IF g_xdim_info_tbl.COUNT > 0 THEN
1126: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1127: FEM_ENGINES_PKG.Tech_Message
1128: (p_severity => G_LOG_LEVEL_STATEMENT,
1129: p_module => C_MODULE,
1130: p_msg_text => 'g_xdim_info_tbl is not empty. Deleting all elements'
1131: ||' to ensure a fresh start when loading new dimension info.');
1151: END IF;
1152:
1153: IF x_return_status = G_RET_STS_SUCCESS THEN
1154: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1155: FEM_ENGINES_PKG.Tech_Message
1156: (p_severity => G_LOG_LEVEL_STATEMENT,
1157: p_module => C_MODULE,
1158: p_msg_text => 'Global Value Set Combination ID is '
1159: ||to_char(l_global_vs_combo_id));
1158: p_msg_text => 'Global Value Set Combination ID is '
1159: ||to_char(l_global_vs_combo_id));
1160: END IF;
1161: ELSE
1162: FEM_ENGINES_PKG.Tech_Message
1163: (p_severity => G_LOG_LEVEL_STATEMENT,
1164: p_module => C_MODULE,
1165: p_msg_text => 'Could not find the Global Value Set Combination ID '
1166: ||'associated with the ledger');
1196:
1197: g_num_dims := SQL%ROWCOUNT;
1198:
1199: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1200: FEM_ENGINES_PKG.Tech_Message
1201: (p_severity => G_LOG_LEVEL_STATEMENT,
1202: p_module => C_MODULE,
1203: p_msg_text => 'Number of dimenions is '
1204: ||to_char(g_num_dims));
1204: ||to_char(g_num_dims));
1205: END IF;
1206:
1207: IF g_num_dims > G_MAX_DIMS THEN
1208: FEM_ENGINES_PKG.TECH_MESSAGE(
1209: p_severity => G_LOG_LEVEL_STATEMENT,
1210: p_module => C_MODULE,
1211: p_msg_text => 'Number of dimensions for this table ('||to_number(g_num_dims)
1212: ||') exceeds the maximum number of supported dimensions ('
1216:
1217: x_return_status := G_RET_STS_SUCCESS;
1218:
1219: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1220: FEM_ENGINES_PKG.TECH_MESSAGE(
1221: p_severity => G_LOG_LEVEL_STATEMENT,
1222: p_module => C_MODULE,
1223: p_msg_text => 'Procedure returning with status of '||x_return_status);
1224: END IF;
1222: p_module => C_MODULE,
1223: p_msg_text => 'Procedure returning with status of '||x_return_status);
1224: END IF;
1225: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1226: FEM_ENGINES_PKG.TECH_MESSAGE(
1227: p_severity => G_LOG_LEVEL_PROCEDURE,
1228: p_module => C_MODULE,
1229: p_msg_text => 'End Procedure');
1230: END IF;
1275: 'fem.plsql.fem_source_data_loader_pkg.set_mp_condition';
1276:
1277: BEGIN
1278: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1279: FEM_ENGINES_PKG.TECH_MESSAGE(
1280: p_severity => G_LOG_LEVEL_PROCEDURE,
1281: p_module => C_MODULE,
1282: p_msg_text => 'Begin Procedure');
1283: END IF;
1310:
1311: x_return_status := G_RET_STS_SUCCESS;
1312:
1313: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1314: FEM_ENGINES_PKG.TECH_MESSAGE(
1315: p_severity => G_LOG_LEVEL_STATEMENT,
1316: p_module => C_MODULE,
1317: p_msg_text => 'Procedure returning with status of '||x_return_status);
1318: END IF;
1316: p_module => C_MODULE,
1317: p_msg_text => 'Procedure returning with status of '||x_return_status);
1318: END IF;
1319: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1320: FEM_ENGINES_PKG.TECH_MESSAGE(
1321: p_severity => G_LOG_LEVEL_PROCEDURE,
1322: p_module => C_MODULE,
1323: p_msg_text => 'End Procedure');
1324: END IF;
1416: l_tab_owner ALL_TABLES.owner%TYPE;
1417:
1418: BEGIN
1419: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
1420: FEM_ENGINES_PKG.TECH_MESSAGE(
1421: p_severity => G_LOG_LEVEL_PROCEDURE,
1422: p_module => C_MODULE,
1423: p_msg_text => 'Begin Procedure');
1424: END IF;
1474: x_update_interim_error_sql := x_update_interim_error_sql||' ) )';
1475:
1476:
1477: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1478: FEM_ENGINES_PKG.Tech_Message
1479: (p_severity => G_LOG_LEVEL_STATEMENT,
1480: p_module => C_MODULE,
1481: p_msg_text => 'SQL to copy data from interface to interim is:');
1482: FEM_ENGINES_PKG.Tech_Message
1478: FEM_ENGINES_PKG.Tech_Message
1479: (p_severity => G_LOG_LEVEL_STATEMENT,
1480: p_module => C_MODULE,
1481: p_msg_text => 'SQL to copy data from interface to interim is:');
1482: FEM_ENGINES_PKG.Tech_Message
1483: (p_severity => G_LOG_LEVEL_STATEMENT,
1484: p_module => C_MODULE,
1485: p_msg_text => l_dummy1_sql);
1486: FEM_ENGINES_PKG.Tech_Message
1482: FEM_ENGINES_PKG.Tech_Message
1483: (p_severity => G_LOG_LEVEL_STATEMENT,
1484: p_module => C_MODULE,
1485: p_msg_text => l_dummy1_sql);
1486: FEM_ENGINES_PKG.Tech_Message
1487: (p_severity => G_LOG_LEVEL_STATEMENT,
1488: p_module => C_MODULE,
1489: p_msg_text => l_dummy2_sql);
1490: FEM_ENGINES_PKG.Tech_Message
1486: FEM_ENGINES_PKG.Tech_Message
1487: (p_severity => G_LOG_LEVEL_STATEMENT,
1488: p_module => C_MODULE,
1489: p_msg_text => l_dummy2_sql);
1490: FEM_ENGINES_PKG.Tech_Message
1491: (p_severity => G_LOG_LEVEL_STATEMENT,
1492: p_module => C_MODULE,
1493: p_msg_text => 'SQL to set validation errors in the Interim Table is '
1494: ||x_update_interim_error_sql);
1519:
1520:
1521:
1522: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1523: FEM_ENGINES_PKG.Tech_Message
1524: (p_severity => G_LOG_LEVEL_STATEMENT,
1525: p_module => C_MODULE,
1526: p_msg_text => 'Number of non-dimenion columns is '
1527: ||to_char(l_num_nondims));
1532: --
1533: x_insert_target_sql := null;
1534:
1535: IF l_num_nondims = 0 AND g_num_dims = 0 THEN
1536: FEM_ENGINES_PKG.Tech_Message
1537: (p_severity => G_LOG_LEVEL_UNEXPECTED,
1538: p_module => C_MODULE,
1539: p_msg_text => 'This table has no columns registered in FEM_TAB_COLUMNS_V !');
1540: RAISE e_unexp_error;
1583:
1584: x_insert_target_sql := l_dummy1_sql || l_dummy2_sql;
1585:
1586: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1587: FEM_ENGINES_PKG.Tech_Message
1588: (p_severity => G_LOG_LEVEL_STATEMENT,
1589: p_module => C_MODULE,
1590: p_msg_text => 'SQL to insert to target is:');
1591: FEM_ENGINES_PKG.Tech_Message
1587: FEM_ENGINES_PKG.Tech_Message
1588: (p_severity => G_LOG_LEVEL_STATEMENT,
1589: p_module => C_MODULE,
1590: p_msg_text => 'SQL to insert to target is:');
1591: FEM_ENGINES_PKG.Tech_Message
1592: (p_severity => G_LOG_LEVEL_STATEMENT,
1593: p_module => C_MODULE,
1594: p_msg_text => l_dummy1_sql);
1595: FEM_ENGINES_PKG.Tech_Message
1591: FEM_ENGINES_PKG.Tech_Message
1592: (p_severity => G_LOG_LEVEL_STATEMENT,
1593: p_module => C_MODULE,
1594: p_msg_text => l_dummy1_sql);
1595: FEM_ENGINES_PKG.Tech_Message
1596: (p_severity => G_LOG_LEVEL_STATEMENT,
1597: p_module => C_MODULE,
1598: p_msg_text => l_dummy2_sql);
1599: END IF;
1616:
1617: IF p_exec_mode = 'R' OR p_exec_mode = 'E' THEN
1618:
1619: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1620: FEM_ENGINES_PKG.TECH_MESSAGE(
1621: p_severity => G_LOG_LEVEL_STATEMENT,
1622: p_module => C_MODULE,
1623: p_msg_text => 'Start of MERGE statement creation');
1624: END IF;
1675: p_msg_data => l_msg_data);
1676: END IF;
1677:
1678: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1679: FEM_ENGINES_PKG.TECH_MESSAGE(
1680: p_severity => FND_LOG.level_statement,
1681: p_module => C_MODULE,
1682: p_msg_text => 'Call to FEM_Database_Util_Pkg.Get_Table_Owner failed');
1683: END IF;
1683: END IF;
1684: RAISE e_unexp_error;
1685: ELSE
1686: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1687: FEM_ENGINES_PKG.TECH_MESSAGE(
1688: p_severity => FND_LOG.level_statement,
1689: p_module => C_MODULE,
1690: p_msg_text => 'l_db_tab_name = '||l_db_tab_name);
1691: END IF;
1689: p_module => C_MODULE,
1690: p_msg_text => 'l_db_tab_name = '||l_db_tab_name);
1691: END IF;
1692: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1693: FEM_ENGINES_PKG.TECH_MESSAGE(
1694: p_severity => FND_LOG.level_statement,
1695: p_module => C_MODULE,
1696: p_msg_text => 'l_tab_owner = '||l_tab_owner);
1697: END IF;
1710: AND tcp.column_property_code = 'PROCESSING_KEY';
1711: EXCEPTION
1712: WHEN NO_DATA_FOUND THEN
1713: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
1714: FEM_ENGINES_PKG.Tech_Message
1715: (p_severity => G_LOG_LEVEL_STATEMENT,
1716: p_module => C_MODULE,
1717: p_msg_text => 'Processing key columns not defined');
1718: END IF;
2025: x_insert_target_sql := l_merge_stmt;
2026:
2027:
2028: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2029: FEM_ENGINES_PKG.TECH_MESSAGE(
2030: p_severity => G_LOG_LEVEL_STATEMENT,
2031: p_module => C_MODULE,
2032: p_msg_text => 'Dynamic MERGE statement in parts');
2033:
2030: p_severity => G_LOG_LEVEL_STATEMENT,
2031: p_module => C_MODULE,
2032: p_msg_text => 'Dynamic MERGE statement in parts');
2033:
2034: FEM_ENGINES_PKG.TECH_MESSAGE(
2035: p_severity => G_LOG_LEVEL_STATEMENT,
2036: p_module => C_MODULE,
2037: p_msg_text => 'MERGE INTO clause - l_merge_stmt_part1 ');
2038:
2040:
2041: LOOP
2042: EXIT WHEN str_length > LENGTH(l_merge_stmt_part1);
2043:
2044: FEM_ENGINES_PKG.TECH_MESSAGE(
2045: p_severity => G_LOG_LEVEL_STATEMENT,
2046: p_module => C_MODULE,
2047: p_msg_text => SUBSTR(l_merge_stmt_part1,str_length+1,2000));
2048:
2048:
2049: str_length := str_length + 2000;
2050: END LOOP;
2051:
2052: FEM_ENGINES_PKG.TECH_MESSAGE(
2053: p_severity => G_LOG_LEVEL_STATEMENT,
2054: p_module => C_MODULE,
2055: p_msg_text => 'SELECT clause - l_merge_stmt_part2 ');
2056:
2058:
2059: LOOP
2060: EXIT WHEN str_length > LENGTH(l_merge_stmt_part2);
2061:
2062: FEM_ENGINES_PKG.TECH_MESSAGE(
2063: p_severity => G_LOG_LEVEL_STATEMENT,
2064: p_module => C_MODULE,
2065: p_msg_text => SUBSTR(l_merge_stmt_part2,str_length+1,2000));
2066:
2066:
2067: str_length := str_length + 2000;
2068: END LOOP;
2069:
2070: FEM_ENGINES_PKG.TECH_MESSAGE(
2071: p_severity => G_LOG_LEVEL_STATEMENT,
2072: p_module => C_MODULE,
2073: p_msg_text => 'ON clause - l_merge_stmt_part3 ');
2074:
2076:
2077: LOOP
2078: EXIT WHEN str_length > LENGTH(l_merge_stmt_part3);
2079:
2080: FEM_ENGINES_PKG.TECH_MESSAGE(
2081: p_severity => G_LOG_LEVEL_STATEMENT,
2082: p_module => C_MODULE,
2083: p_msg_text => SUBSTR(l_merge_stmt_part3,str_length+1,2000));
2084:
2084:
2085: str_length := str_length + 2000;
2086: END LOOP;
2087:
2088: FEM_ENGINES_PKG.TECH_MESSAGE(
2089: p_severity => G_LOG_LEVEL_STATEMENT,
2090: p_module => C_MODULE,
2091: p_msg_text => 'WHEN MATCHED THEN clause - l_merge_stmt_part4 ');
2092:
2094:
2095: LOOP
2096: EXIT WHEN str_length > LENGTH(l_merge_stmt_part4);
2097:
2098: FEM_ENGINES_PKG.TECH_MESSAGE(
2099: p_severity => G_LOG_LEVEL_STATEMENT,
2100: p_module => C_MODULE,
2101: p_msg_text => SUBSTR(l_merge_stmt_part4,str_length+1,2000));
2102:
2102:
2103: str_length := str_length + 2000;
2104: END LOOP;
2105:
2106: FEM_ENGINES_PKG.TECH_MESSAGE(
2107: p_severity => G_LOG_LEVEL_STATEMENT,
2108: p_module => C_MODULE,
2109: p_msg_text => 'WHEN NOT MATCHED THEN clause - l_merge_stmt_part5 ' );
2110:
2112:
2113: LOOP
2114: EXIT WHEN str_length > LENGTH(l_merge_stmt_part5);
2115:
2116: FEM_ENGINES_PKG.TECH_MESSAGE(
2117: p_severity => G_LOG_LEVEL_STATEMENT,
2118: p_module => C_MODULE,
2119: p_msg_text => SUBSTR(l_merge_stmt_part5,str_length+1,2000));
2120:
2120:
2121: str_length := str_length + 2000;
2122: END LOOP;
2123:
2124: FEM_ENGINES_PKG.TECH_MESSAGE(
2125: p_severity => G_LOG_LEVEL_STATEMENT,
2126: p_module => C_MODULE,
2127: p_msg_text => 'Complete MERGE statement - l_merge_stmt');
2128:
2130:
2131: LOOP
2132: EXIT WHEN str_length > LENGTH(l_merge_stmt);
2133:
2134: FEM_ENGINES_PKG.TECH_MESSAGE(
2135: p_severity => G_LOG_LEVEL_STATEMENT,
2136: p_module => C_MODULE,
2137: p_msg_text => SUBSTR(l_merge_stmt,str_length+1,2000));
2138:
2152:
2153: x_return_status := G_RET_STS_SUCCESS;
2154:
2155: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2156: FEM_ENGINES_PKG.TECH_MESSAGE(
2157: p_severity => G_LOG_LEVEL_STATEMENT,
2158: p_module => C_MODULE,
2159: p_msg_text => 'Procedure returning with status of '||x_return_status);
2160: END IF;
2158: p_module => C_MODULE,
2159: p_msg_text => 'Procedure returning with status of '||x_return_status);
2160: END IF;
2161: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
2162: FEM_ENGINES_PKG.TECH_MESSAGE(
2163: p_severity => G_LOG_LEVEL_PROCEDURE,
2164: p_module => C_MODULE,
2165: p_msg_text => 'End Procedure');
2166: END IF;
2259: -- set value of debug log current level
2260: g_log_current_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2261:
2262: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
2263: FEM_ENGINES_PKG.TECH_MESSAGE(
2264: p_severity => G_LOG_LEVEL_PROCEDURE,
2265: p_module => C_MODULE,
2266: p_msg_text => 'Begin Procedure');
2267: END IF;
2293: x_return_status => l_return_status);
2294:
2295: IF l_return_status <> G_RET_STS_SUCCESS THEN
2296: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2297: FEM_ENGINES_PKG.TECH_MESSAGE(
2298: p_severity => G_LOG_LEVEL_STATEMENT,
2299: p_module => C_MODULE,
2300: p_msg_text => 'Call to prepare_dynamic_sql failed.');
2301: END IF;
2306: l_insert_interim_sql := l_insert_interim_sql||' AND '||p_data_slice_predicate;
2307: END IF;
2308:
2309: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2310: FEM_ENGINES_PKG.TECH_MESSAGE(
2311: p_severity => G_LOG_LEVEL_STATEMENT,
2312: p_module => C_MODULE,
2313: p_msg_text => 'SQL to insert into interim is '||l_insert_interim_sql);
2314: END IF;
2337:
2338: EXIT WHEN (l_slc_id IS NULL);
2339:
2340: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2341: FEM_ENGINES_PKG.TECH_MESSAGE(
2342: p_severity => G_LOG_LEVEL_STATEMENT,
2343: p_module => C_MODULE,
2344: p_msg_text => 'Begin processing slice id '||to_char(l_slc_id));
2345: FEM_ENGINES_PKG.TECH_MESSAGE(
2341: FEM_ENGINES_PKG.TECH_MESSAGE(
2342: p_severity => G_LOG_LEVEL_STATEMENT,
2343: p_module => C_MODULE,
2344: p_msg_text => 'Begin processing slice id '||to_char(l_slc_id));
2345: FEM_ENGINES_PKG.TECH_MESSAGE(
2346: p_severity => G_LOG_LEVEL_STATEMENT,
2347: p_module => C_MODULE,
2348: p_msg_text => 'Number of binding values is '||to_char(l_num_vals));
2349: END IF;
2364: EXECUTE IMMEDIATE l_insert_interim_sql
2365: USING l_slc_val1;
2366: ELSE
2367: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2368: FEM_ENGINES_PKG.TECH_MESSAGE(
2369: p_severity => G_LOG_LEVEL_STATEMENT,
2370: p_module => C_MODULE,
2371: p_msg_text => 'Multiprocessing engine generated an unexpected number '
2372: ||'of binding values: '||to_char(l_num_vals));
2385: -- and all data is wiped out anyway.
2386: COMMIT;
2387:
2388: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2389: FEM_ENGINES_PKG.TECH_MESSAGE(
2390: p_severity => G_LOG_LEVEL_STATEMENT,
2391: p_module => C_MODULE,
2392: p_msg_text => 'Number of rows copied to the interim table is '
2393: ||to_char(l_slc_num_rows_copied));
2398: -- If there are no dimensions, skip these steps.
2399: --
2400: IF g_num_dims = 0 THEN
2401: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2402: FEM_ENGINES_PKG.TECH_MESSAGE(
2403: p_severity => G_LOG_LEVEL_STATEMENT,
2404: p_module => C_MODULE,
2405: p_msg_text => 'There are no dimensions. No dimension validation to perform.');
2406: END IF;
2414: l_dim_grp_size := g_num_dims;
2415: END IF;
2416:
2417: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2418: FEM_ENGINES_PKG.TECH_MESSAGE(
2419: p_severity => G_LOG_LEVEL_STATEMENT,
2420: p_module => C_MODULE,
2421: p_msg_text => 'Dimension grouping size is '||l_dim_grp_size);
2422: END IF;
2495: ||l_dummy3_sql||')';
2496: END IF;
2497:
2498: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2499: FEM_ENGINES_PKG.TECH_MESSAGE(
2500: p_severity => G_LOG_LEVEL_STATEMENT,
2501: p_module => C_MODULE,
2502: p_msg_text => 'SQL to update interim errors is '||l_dynamic_sql);
2503: END IF;
2528: -- Commit to release any reserved rollback space.
2529: COMMIT;
2530:
2531: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2532: FEM_ENGINES_PKG.TECH_MESSAGE(
2533: p_severity => G_LOG_LEVEL_STATEMENT,
2534: p_module => C_MODULE,
2535: p_msg_text => 'Number of rows that failed dimension validation in interim is '
2536: ||to_char(l_slc_num_rows_rejected));
2568: EXECUTE IMMEDIATE l_dynamic_sql;
2569: l_slc_num_rows_rejected := SQL%ROWCOUNT;
2570:
2571: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2572: FEM_ENGINES_PKG.TECH_MESSAGE(
2573: p_severity => G_LOG_LEVEL_STATEMENT,
2574: p_module => C_MODULE,
2575: p_msg_text => 'Number of rows in interface table set with dimension validation error is '
2576: ||to_char(l_slc_num_rows_rejected));
2590: EXECUTE IMMEDIATE l_dynamic_sql;
2591: l_dummy_num := SQL%ROWCOUNT;
2592:
2593: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2594: FEM_ENGINES_PKG.TECH_MESSAGE(
2595: p_severity => G_LOG_LEVEL_STATEMENT,
2596: p_module => C_MODULE,
2597: p_msg_text => 'Number of rows in interface table set with dimension validation error is '
2598: ||to_char(l_dummy_num));
2603: IF l_dummy_num <> l_slc_num_rows_rejected THEN
2604: l_slc_num_rows_rejected := l_dummy_num;
2605:
2606: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2607: FEM_ENGINES_PKG.TECH_MESSAGE(
2608: p_severity => G_LOG_LEVEL_STATEMENT,
2609: p_module => C_MODULE,
2610: p_msg_text => 'Number of error rows updated in interface table is '
2611: ||' not the same as the number of error rows updated in the interim table.');
2627: EXECUTE IMMEDIATE l_insert_target_sql;
2628: l_slc_num_rows_loaded := SQL%ROWCOUNT;
2629:
2630: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2631: FEM_ENGINES_PKG.TECH_MESSAGE(
2632: p_severity => G_LOG_LEVEL_STATEMENT,
2633: p_module => C_MODULE,
2634: p_msg_text => 'Number of rows inserted into the target table is '
2635: ||to_char(l_slc_num_rows_loaded));
2640: l_slc_num_rows_loaded := 0;
2641: l_dup_index_error := TRUE;
2642: WHEN others THEN
2643: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2644: FEM_ENGINES_PKG.TECH_MESSAGE(
2645: p_severity => G_LOG_LEVEL_STATEMENT,
2646: p_module => C_MODULE,
2647: p_msg_text => 'Unexpected error occured when inserting into'
2648: ||' the target table.');
2666: -- Add to the number of rows rejected counter
2667: l_slc_num_rows_rejected := l_slc_num_rows_rejected + SQL%ROWCOUNT;
2668:
2669: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2670: FEM_ENGINES_PKG.TECH_MESSAGE(
2671: p_severity => G_LOG_LEVEL_STATEMENT,
2672: p_module => C_MODULE,
2673: p_msg_text => 'Number of rows in interface set with duplicate error is '
2674: ||to_char(SQL%ROWCOUNT));
2684: EXECUTE IMMEDIATE l_dynamic_sql;
2685: l_dummy_num := SQL%ROWCOUNT;
2686:
2687: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2688: FEM_ENGINES_PKG.TECH_MESSAGE(
2689: p_severity => G_LOG_LEVEL_STATEMENT,
2690: p_module => C_MODULE,
2691: p_msg_text => 'Number of rows deleted from the interface table is '
2692: ||to_char(l_dummy_num));
2697: IF l_dummy_num <> l_slc_num_rows_loaded THEN
2698: l_slc_num_rows_loaded := l_dummy_num;
2699:
2700: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2701: FEM_ENGINES_PKG.TECH_MESSAGE(
2702: p_severity => G_LOG_LEVEL_STATEMENT,
2703: p_module => C_MODULE,
2704: p_msg_text => 'The number of rows deleted from the interface table'
2705: ||' is not the same as the number of rows inserted into the target table.');
2712: -- If the number of rows rejected + loaded <> copied, raise unexp error
2713: IF (l_slc_num_rows_rejected+l_slc_num_rows_loaded)
2714: <> l_slc_num_rows_copied THEN
2715: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2716: FEM_ENGINES_PKG.TECH_MESSAGE(
2717: p_severity => G_LOG_LEVEL_STATEMENT,
2718: p_module => C_MODULE,
2719: p_msg_text => 'Num rows copied ('
2720: ||to_char(l_slc_num_rows_copied)
2741: -- b. Delete valid rows from the interface table.
2742: COMMIT;
2743:
2744: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2745: FEM_ENGINES_PKG.TECH_MESSAGE(
2746: p_severity => G_LOG_LEVEL_STATEMENT,
2747: p_module => C_MODULE,
2748: p_msg_text => 'Slice process summary: '
2749: ||to_char(l_slc_num_errors_reprocessed)||' error rows reprocessed, '
2763: -- Truncate FEM_SOURCE_DATA_INTERIM_GT for the next data slice
2764: -- ------------------------------------------------------------
2765:
2766: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2767: FEM_ENGINES_PKG.TECH_MESSAGE(
2768: p_severity => G_LOG_LEVEL_STATEMENT,
2769: p_module => C_MODULE,
2770: p_msg_text =>
2771: 'Truncating '||p_schema_name||'.FEM_SOURCE_DATA_INTERIM_GT for the next data slice.');
2784: p_rows_loaded => l_slc_num_rows_loaded,
2785: p_rows_rejected => l_slc_num_rows_rejected);
2786:
2787: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2788: FEM_ENGINES_PKG.TECH_MESSAGE(
2789: p_severity => G_LOG_LEVEL_STATEMENT,
2790: p_module => C_MODULE,
2791: p_msg_text => 'Finished processing slice id '||to_char(l_slc_id)
2792: ||' with status of '||l_slc_status);
2797: l_dummy_boolean := FND_CONCURRENT.Set_Completion_Status
2798: (status => l_request_status, message => NULL);
2799:
2800: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
2801: FEM_ENGINES_PKG.TECH_MESSAGE(
2802: p_severity => G_LOG_LEVEL_PROCEDURE,
2803: p_module => C_MODULE,
2804: p_msg_text => 'End Procedure');
2805: END IF;
2824: -- set request status
2825: l_dummy_boolean := FND_CONCURRENT.Set_Completion_Status
2826: (status => 'ERROR', message => NULL);
2827:
2828: FEM_ENGINES_PKG.User_Message
2829: (p_app_name => 'FEM',
2830: p_msg_name => 'FEM_UNEXPECTED_ERROR',
2831: p_token1 => 'ERR_MSG',
2832: p_value1 => SQLERRM);
2829: (p_app_name => 'FEM',
2830: p_msg_name => 'FEM_UNEXPECTED_ERROR',
2831: p_token1 => 'ERR_MSG',
2832: p_value1 => SQLERRM);
2833: FEM_ENGINES_PKG.Tech_Message
2834: (p_severity => G_LOG_LEVEL_UNEXPECTED,
2835: p_module => C_MODULE,
2836: p_app_name => 'FEM',
2837: p_msg_name => 'FEM_UNEXPECTED_ERROR',
2896: l_return_status VARCHAR2(1);
2897: l_dummy_boolean BOOLEAN;
2898: BEGIN
2899: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
2900: FEM_ENGINES_PKG.TECH_MESSAGE(
2901: p_severity => G_LOG_LEVEL_PROCEDURE,
2902: p_module => C_MODULE,
2903: p_msg_text => 'Begin Procedure');
2904: END IF;
2903: p_msg_text => 'Begin Procedure');
2904: END IF;
2905: -- Log parameters
2906: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2907: FEM_ENGINES_PKG.TECH_MESSAGE(
2908: p_severity => G_LOG_LEVEL_STATEMENT,
2909: p_module => C_MODULE,
2910: p_msg_text => 'Parameter: Execution Status is '||p_exec_status);
2911: END IF;
2915: FROM fem_mp_process_ctl_t
2916: WHERE req_id = p_request_id;
2917:
2918: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2919: FEM_ENGINES_PKG.Tech_Message
2920: (p_severity => G_LOG_LEVEL_STATEMENT,
2921: p_module => C_MODULE,
2922: p_msg_text => to_char(l_num_rows_loaded)||' total rows loaded.');
2923: FEM_ENGINES_PKG.Tech_Message
2919: FEM_ENGINES_PKG.Tech_Message
2920: (p_severity => G_LOG_LEVEL_STATEMENT,
2921: p_module => C_MODULE,
2922: p_msg_text => to_char(l_num_rows_loaded)||' total rows loaded.');
2923: FEM_ENGINES_PKG.Tech_Message
2924: (p_severity => G_LOG_LEVEL_STATEMENT,
2925: p_module => C_MODULE,
2926: p_msg_text => to_char(l_num_errors_reprocessed)||' total error rows reprocessed.');
2927: FEM_ENGINES_PKG.Tech_Message
2923: FEM_ENGINES_PKG.Tech_Message
2924: (p_severity => G_LOG_LEVEL_STATEMENT,
2925: p_module => C_MODULE,
2926: p_msg_text => to_char(l_num_errors_reprocessed)||' total error rows reprocessed.');
2927: FEM_ENGINES_PKG.Tech_Message
2928: (p_severity => G_LOG_LEVEL_STATEMENT,
2929: p_module => C_MODULE,
2930: p_msg_text => to_char(l_num_rows_rejected)||' total rows rejected.');
2931: END IF;
2930: p_msg_text => to_char(l_num_rows_rejected)||' total rows rejected.');
2931: END IF;
2932:
2933: -- Print to concurrent log the number of rows loaded and rejected
2934: FEM_ENGINES_PKG.User_Message
2935: (p_app_name => 'FEM',
2936: p_msg_name => 'FEM_SD_LDR_PROCESS_SUMMARY',
2937: p_token1 => 'LOADNUM',
2938: p_value1 => l_num_rows_loaded,
2954: x_msg_data => l_msg_data,
2955: x_return_status => l_return_status);
2956:
2957: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2958: FEM_ENGINES_PKG.Tech_Message
2959: (p_severity => G_LOG_LEVEL_STATEMENT,
2960: p_module => C_MODULE,
2961: p_msg_text => 'Call to FEM_PL_PKG.Update_Num_of_Output_Rows returned with status '
2962: ||l_return_status);
2985: x_msg_data => l_msg_data,
2986: x_return_status => l_return_status);
2987:
2988: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
2989: FEM_ENGINES_PKG.Tech_Message
2990: (p_severity => G_LOG_LEVEL_STATEMENT,
2991: p_module => C_MODULE,
2992: p_msg_text => 'Call to FEM_PL_PKG.pdate_Obj_Exec_Status returned with status '
2993: ||l_return_status);
3017: x_msg_data => l_msg_data,
3018: x_return_status => l_return_status);
3019:
3020: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3021: FEM_ENGINES_PKG.Tech_Message
3022: (p_severity => G_LOG_LEVEL_STATEMENT,
3023: p_module => C_MODULE,
3024: p_msg_text => 'Call to FEM_PL_PKG.Update_Obj_Exec_Errors returned with status '
3025: ||l_return_status);
3047: x_msg_data => l_msg_data,
3048: x_return_status => l_return_status);
3049:
3050: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3051: FEM_ENGINES_PKG.Tech_Message
3052: (p_severity => G_LOG_LEVEL_STATEMENT,
3053: p_module => C_MODULE,
3054: p_msg_text => 'Call to FEM_PL_PKG.Update_Request_Status returned with status '
3055: ||l_return_status);
3087: COMMIT;
3088:
3089: EXCEPTION
3090: WHEN others THEN
3091: FEM_ENGINES_PKG.Tech_Message
3092: (p_severity => G_LOG_LEVEL_STATEMENT,
3093: p_module => C_MODULE,
3094: p_msg_text => 'Call to FEM_DIMENSION_UTIL_PKG.register_data_location '
3095: ||'failed unexpectedly.');
3095: ||'failed unexpectedly.');
3096: RAISE;
3097: END;
3098:
3099: FEM_ENGINES_PKG.Tech_Message
3100: (p_severity => G_LOG_LEVEL_STATEMENT,
3101: p_module => C_MODULE,
3102: p_msg_text => 'Updated Data Location status to COMPLETE');
3103: END IF;
3106: -- Log the final message to the concurrent log
3107: --
3108: IF p_exec_status = 'SUCCESS' THEN
3109: -- Post success message to concurrent log
3110: FEM_ENGINES_PKG.User_Message
3111: (p_app_name => 'FEM',
3112: p_msg_name => 'FEM_EXEC_SUCCESS');
3113: FEM_ENGINES_PKG.Tech_Message
3114: (p_severity => G_LOG_LEVEL_STATEMENT,
3109: -- Post success message to concurrent log
3110: FEM_ENGINES_PKG.User_Message
3111: (p_app_name => 'FEM',
3112: p_msg_name => 'FEM_EXEC_SUCCESS');
3113: FEM_ENGINES_PKG.Tech_Message
3114: (p_severity => G_LOG_LEVEL_STATEMENT,
3115: p_module => C_MODULE,
3116: p_app_name => 'FEM',
3117: p_msg_name => 'FEM_EXEC_SUCCESS');
3120: l_dummy_boolean := FND_CONCURRENT.Set_Completion_Status
3121: (status => 'NORMAL', message => NULL);
3122: ELSE
3123: -- Post error rerun message to concurrent log
3124: FEM_ENGINES_PKG.User_Message
3125: (p_app_name => 'FEM',
3126: p_msg_name => 'FEM_EXEC_RERUN');
3127: FEM_ENGINES_PKG.Tech_Message
3128: (p_severity => G_LOG_LEVEL_STATEMENT,
3123: -- Post error rerun message to concurrent log
3124: FEM_ENGINES_PKG.User_Message
3125: (p_app_name => 'FEM',
3126: p_msg_name => 'FEM_EXEC_RERUN');
3127: FEM_ENGINES_PKG.Tech_Message
3128: (p_severity => G_LOG_LEVEL_STATEMENT,
3129: p_module => C_MODULE,
3130: p_app_name => 'FEM',
3131: p_msg_name => 'FEM_EXEC_RERUN');
3147:
3148: x_return_status := G_RET_STS_SUCCESS;
3149:
3150: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3151: FEM_ENGINES_PKG.TECH_MESSAGE(
3152: p_severity => G_LOG_LEVEL_STATEMENT,
3153: p_module => C_MODULE,
3154: p_msg_text => 'Procedure returning with status of '||x_return_status);
3155: END IF;
3153: p_module => C_MODULE,
3154: p_msg_text => 'Procedure returning with status of '||x_return_status);
3155: END IF;
3156: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3157: FEM_ENGINES_PKG.TECH_MESSAGE(
3158: p_severity => G_LOG_LEVEL_PROCEDURE,
3159: p_module => C_MODULE,
3160: p_msg_text => 'End Procedure');
3161: END IF;
3163: EXCEPTION
3164: WHEN others THEN
3165: x_return_status := G_RET_STS_UNEXP_ERROR;
3166:
3167: FEM_ENGINES_PKG.User_Message
3168: (p_app_name => 'FEM',
3169: p_msg_name => 'FEM_UNEXPECTED_ERROR',
3170: p_token1 => 'ERR_MSG',
3171: p_value1 => SQLERRM);
3168: (p_app_name => 'FEM',
3169: p_msg_name => 'FEM_UNEXPECTED_ERROR',
3170: p_token1 => 'ERR_MSG',
3171: p_value1 => SQLERRM);
3172: FEM_ENGINES_PKG.Tech_Message
3173: (p_severity => G_LOG_LEVEL_UNEXPECTED,
3174: p_module => C_MODULE,
3175: p_app_name => 'FEM',
3176: p_msg_name => 'FEM_UNEXPECTED_ERROR',
3196: l_msg_out NUMBER;
3197: l_message VARCHAR2(4000);
3198: BEGIN
3199:
3200: FEM_ENGINES_PKG.TECH_MESSAGE
3201: (p_severity => G_LOG_LEVEL_STATEMENT,
3202: p_module => C_MODULE,
3203: p_msg_text => 'Message count is '||to_char(p_msg_count));
3204:
3207: IF (p_msg_count = 1) THEN
3208: FND_MESSAGE.Set_Encoded(l_msg_data);
3209: l_message := FND_MESSAGE.Get;
3210:
3211: FEM_ENGINES_PKG.User_Message(
3212: p_msg_text => l_message);
3213:
3214: FEM_ENGINES_PKG.TECH_MESSAGE
3215: (p_severity => G_LOG_LEVEL_STATEMENT,
3210:
3211: FEM_ENGINES_PKG.User_Message(
3212: p_msg_text => l_message);
3213:
3214: FEM_ENGINES_PKG.TECH_MESSAGE
3215: (p_severity => G_LOG_LEVEL_STATEMENT,
3216: p_module => C_MODULE,
3217: p_msg_text => 'Message is '||l_message);
3218:
3223: p_encoded => G_FALSE,
3224: p_data => l_message,
3225: p_msg_index_out => l_msg_out);
3226:
3227: FEM_ENGINES_PKG.User_Message(
3228: p_msg_text => l_message);
3229:
3230: FEM_ENGINES_PKG.TECH_MESSAGE
3231: (p_severity => G_LOG_LEVEL_STATEMENT,
3226:
3227: FEM_ENGINES_PKG.User_Message(
3228: p_msg_text => l_message);
3229:
3230: FEM_ENGINES_PKG.TECH_MESSAGE
3231: (p_severity => G_LOG_LEVEL_STATEMENT,
3232: p_module => C_MODULE,
3233: p_msg_text => 'Message is '||l_message);
3234: END LOOP;
3237: FND_MSG_PUB.Initialize;
3238:
3239: EXCEPTION
3240: WHEN others THEN
3241: FEM_ENGINES_PKG.Tech_Message
3242: (p_severity => G_LOG_LEVEL_UNEXPECTED,
3243: p_module => C_MODULE,
3244: p_app_name => 'FEM',
3245: p_msg_name => 'FEM_UNEXPECTED_ERROR',
3286: l_object_type_code FEM_OBJECT_TYPES.object_type_code%TYPE;
3287: e_inv_obj_def EXCEPTION;
3288: BEGIN
3289: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3290: FEM_ENGINES_PKG.TECH_MESSAGE(
3291: p_severity => G_LOG_LEVEL_PROCEDURE,
3292: p_module => C_MODULE,
3293: p_msg_text => 'Begin Procedure');
3294: END IF;
3292: p_module => C_MODULE,
3293: p_msg_text => 'Begin Procedure');
3294: END IF;
3295: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3296: FEM_ENGINES_PKG.TECH_MESSAGE(
3297: p_severity => G_LOG_LEVEL_STATEMENT,
3298: p_module => C_MODULE,
3299: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3300: FEM_ENGINES_PKG.TECH_MESSAGE(
3296: FEM_ENGINES_PKG.TECH_MESSAGE(
3297: p_severity => G_LOG_LEVEL_STATEMENT,
3298: p_module => C_MODULE,
3299: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3300: FEM_ENGINES_PKG.TECH_MESSAGE(
3301: p_severity => G_LOG_LEVEL_STATEMENT,
3302: p_module => C_MODULE,
3303: p_msg_text => 'Parameter: Object definition ID is '||p_obj_def_id);
3304: END IF;
3335: AND table_classification_code = 'SOURCE_DATA_TABLE'
3336: AND old_approved_copy_flag = 'N';
3337:
3338: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3339: FEM_ENGINES_PKG.TECH_MESSAGE(
3340: p_severity => G_LOG_LEVEL_STATEMENT,
3341: p_module => C_MODULE,
3342: p_msg_text => 'Object ID is '||to_char(x_object_id));
3343:
3340: p_severity => G_LOG_LEVEL_STATEMENT,
3341: p_module => C_MODULE,
3342: p_msg_text => 'Object ID is '||to_char(x_object_id));
3343:
3344: FEM_ENGINES_PKG.TECH_MESSAGE(
3345: p_severity => G_LOG_LEVEL_STATEMENT,
3346: p_module => C_MODULE,
3347: p_msg_text => 'Table name is '||x_table_name);
3348: END IF;
3347: p_msg_text => 'Table name is '||x_table_name);
3348: END IF;
3349: EXCEPTION
3350: WHEN no_data_found THEN
3351: FEM_ENGINES_PKG.TECH_MESSAGE(
3352: p_severity => G_LOG_LEVEL_STATEMENT,
3353: p_module => C_MODULE,
3354: p_msg_text => 'Object def ID '||to_char(p_obj_def_id)
3355: ||' either cannot be found or is an old approved copy'
3369: AND object_type_code = p_object_type;
3370:
3371: EXCEPTION
3372: WHEN NO_DATA_FOUND THEN
3373: FEM_ENGINES_PKG.TECH_MESSAGE(
3374: p_severity => G_LOG_LEVEL_STATEMENT,
3375: p_module => C_MODULE,
3376: p_msg_text => 'Object ID '||to_char(x_object_id)
3377: ||' cannot be found, or is not of type '||p_object_type);
3380:
3381: x_return_status := G_RET_STS_SUCCESS;
3382:
3383: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3384: FEM_ENGINES_PKG.TECH_MESSAGE(
3385: p_severity => G_LOG_LEVEL_STATEMENT,
3386: p_module => C_MODULE,
3387: p_msg_text => 'Returning with status of '||x_return_status);
3388: END IF;
3386: p_module => C_MODULE,
3387: p_msg_text => 'Returning with status of '||x_return_status);
3388: END IF;
3389: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3390: FEM_ENGINES_PKG.TECH_MESSAGE(
3391: p_severity => G_LOG_LEVEL_PROCEDURE,
3392: p_module => C_MODULE,
3393: p_msg_text => 'End Procedure');
3394: END IF;
3396: EXCEPTION
3397: WHEN e_inv_obj_def THEN
3398: x_return_status := G_RET_STS_ERROR;
3399:
3400: FEM_ENGINES_PKG.put_message(
3401: p_app_name =>'FEM',
3402: p_msg_name =>'FEM_SD_LDR_INV_OBJ_DEF',
3403: p_token1 => 'OBJ_DEF_ID',
3404: p_value1 => p_obj_def_id);
3402: p_msg_name =>'FEM_SD_LDR_INV_OBJ_DEF',
3403: p_token1 => 'OBJ_DEF_ID',
3404: p_value1 => p_obj_def_id);
3405:
3406: FEM_ENGINES_PKG.Tech_Message
3407: (p_severity => G_LOG_LEVEL_ERROR,
3408: p_module => C_MODULE,
3409: p_app_name => 'FEM',
3410: p_msg_name => 'FEM_SD_LDR_INV_OBJ_DEF',
3453: C_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Table';
3454: l_count NUMBER := 0;
3455: BEGIN
3456: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3457: FEM_ENGINES_PKG.TECH_MESSAGE(
3458: p_severity => G_LOG_LEVEL_PROCEDURE,
3459: p_module => C_MODULE,
3460: p_msg_text => 'Begin Procedure');
3461: END IF;
3459: p_module => C_MODULE,
3460: p_msg_text => 'Begin Procedure');
3461: END IF;
3462: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3463: FEM_ENGINES_PKG.TECH_MESSAGE(
3464: p_severity => G_LOG_LEVEL_STATEMENT,
3465: p_module => C_MODULE,
3466: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3467: FEM_ENGINES_PKG.TECH_MESSAGE(
3463: FEM_ENGINES_PKG.TECH_MESSAGE(
3464: p_severity => G_LOG_LEVEL_STATEMENT,
3465: p_module => C_MODULE,
3466: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3467: FEM_ENGINES_PKG.TECH_MESSAGE(
3468: p_severity => G_LOG_LEVEL_STATEMENT,
3469: p_module => C_MODULE,
3470: p_msg_text => 'Parameter: Table name is '||p_table_name);
3471: FEM_ENGINES_PKG.TECH_MESSAGE(
3467: FEM_ENGINES_PKG.TECH_MESSAGE(
3468: p_severity => G_LOG_LEVEL_STATEMENT,
3469: p_module => C_MODULE,
3470: p_msg_text => 'Parameter: Table name is '||p_table_name);
3471: FEM_ENGINES_PKG.TECH_MESSAGE(
3472: p_severity => G_LOG_LEVEL_STATEMENT,
3473: p_module => C_MODULE,
3474: p_msg_text => 'Parameter: Table classification is '||p_table_classification);
3475: END IF;
3489: WHERE table_name = p_table_name
3490: AND table_classification_code = p_table_classification;
3491:
3492: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3493: FEM_ENGINES_PKG.TECH_MESSAGE(
3494: p_severity => G_LOG_LEVEL_STATEMENT,
3495: p_module => C_MODULE,
3496: p_msg_text => 'Table classification '||p_table_classification||' has '
3497: ||to_char(l_count)||' instances of table '||p_table_name);
3501: x_return_status := G_RET_STS_SUCCESS;
3502: ELSE
3503: x_return_status := G_RET_STS_ERROR;
3504:
3505: FEM_ENGINES_PKG.put_message(
3506: p_app_name =>'FEM',
3507: p_msg_name =>'FEM_SD_LDR_INV_TABLE',
3508: p_token1 => 'TABLE',
3509: p_value1 => p_table_name);
3507: p_msg_name =>'FEM_SD_LDR_INV_TABLE',
3508: p_token1 => 'TABLE',
3509: p_value1 => p_table_name);
3510:
3511: FEM_ENGINES_PKG.Tech_Message
3512: (p_severity => G_LOG_LEVEL_ERROR,
3513: p_module => C_MODULE,
3514: p_app_name => 'FEM',
3515: p_msg_name => 'FEM_SD_LDR_INV_TABLE',
3521: (p_count => x_msg_count,
3522: p_data => x_msg_data);
3523:
3524: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3525: FEM_ENGINES_PKG.TECH_MESSAGE(
3526: p_severity => G_LOG_LEVEL_STATEMENT,
3527: p_module => C_MODULE,
3528: p_msg_text => 'Returning with status of '||x_return_status);
3529: END IF;
3527: p_module => C_MODULE,
3528: p_msg_text => 'Returning with status of '||x_return_status);
3529: END IF;
3530: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3531: FEM_ENGINES_PKG.TECH_MESSAGE(
3532: p_severity => G_LOG_LEVEL_PROCEDURE,
3533: p_module => C_MODULE,
3534: p_msg_text => 'End Procedure');
3535: END IF;
3576: e_invalid_object_type EXCEPTION;
3577: BEGIN
3578:
3579: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3580: FEM_ENGINES_PKG.TECH_MESSAGE(
3581: p_severity => G_LOG_LEVEL_PROCEDURE,
3582: p_module => C_MODULE,
3583: p_msg_text => 'Begin Procedure');
3584: END IF;
3582: p_module => C_MODULE,
3583: p_msg_text => 'Begin Procedure');
3584: END IF;
3585: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3586: FEM_ENGINES_PKG.TECH_MESSAGE(
3587: p_severity => G_LOG_LEVEL_STATEMENT,
3588: p_module => C_MODULE,
3589: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3590: FEM_ENGINES_PKG.TECH_MESSAGE(
3586: FEM_ENGINES_PKG.TECH_MESSAGE(
3587: p_severity => G_LOG_LEVEL_STATEMENT,
3588: p_module => C_MODULE,
3589: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3590: FEM_ENGINES_PKG.TECH_MESSAGE(
3591: p_severity => G_LOG_LEVEL_STATEMENT,
3592: p_module => C_MODULE,
3593: p_msg_text => 'Parameter: Exec Mode is '||p_exec_mode);
3594: END IF;
3618: AND lookup_code IN ('R','E','S');
3619:
3620: -- End of Replacement mode enhancement
3621: ELSE
3622: FEM_ENGINES_PKG.TECH_MESSAGE(
3623: p_severity => G_LOG_LEVEL_UNEXPECTED,
3624: p_module => C_MODULE,
3625: p_msg_text => 'Object type code '||p_object_type||' is not valid!');
3626: RAISE e_invalid_object_type;
3626: RAISE e_invalid_object_type;
3627: END IF;
3628:
3629: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3630: FEM_ENGINES_PKG.TECH_MESSAGE(
3631: p_severity => G_LOG_LEVEL_STATEMENT,
3632: p_module => C_MODULE,
3633: p_msg_text => 'Execution mode lookup type FEM_SRCDATA_LOADER_EXEC_MODE has '
3634: ||to_char(l_count)||' instances of lookup code '||p_exec_mode);
3638: x_return_status := G_RET_STS_SUCCESS;
3639: ELSE
3640: x_return_status := G_RET_STS_ERROR;
3641:
3642: FEM_ENGINES_PKG.put_message(
3643: p_app_name =>'FEM',
3644: p_msg_name =>'FEM_SD_LDR_INV_EXEC_MODE',
3645: p_token1 => 'EXEC_MODE',
3646: p_value1 => p_exec_mode);
3644: p_msg_name =>'FEM_SD_LDR_INV_EXEC_MODE',
3645: p_token1 => 'EXEC_MODE',
3646: p_value1 => p_exec_mode);
3647:
3648: FEM_ENGINES_PKG.Tech_Message
3649: (p_severity => G_LOG_LEVEL_ERROR,
3650: p_module => C_MODULE,
3651: p_app_name => 'FEM',
3652: p_msg_name => 'FEM_SD_LDR_INV_EXEC_MODE',
3658: (p_count => x_msg_count,
3659: p_data => x_msg_data);
3660:
3661: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3662: FEM_ENGINES_PKG.TECH_MESSAGE(
3663: p_severity => G_LOG_LEVEL_STATEMENT,
3664: p_module => C_MODULE,
3665: p_msg_text => 'Returning with status of '||x_return_status);
3666: END IF;
3664: p_module => C_MODULE,
3665: p_msg_text => 'Returning with status of '||x_return_status);
3666: END IF;
3667: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3668: FEM_ENGINES_PKG.TECH_MESSAGE(
3669: p_severity => G_LOG_LEVEL_PROCEDURE,
3670: p_module => C_MODULE,
3671: p_msg_text => 'End Procedure');
3672: END IF;
3728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3729: END IF;
3730:
3731: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3732: FEM_ENGINES_PKG.TECH_MESSAGE(
3733: p_severity => G_LOG_LEVEL_PROCEDURE,
3734: p_module => C_MODULE,
3735: p_msg_text => 'Begin Procedure');
3736: END IF;
3734: p_module => C_MODULE,
3735: p_msg_text => 'Begin Procedure');
3736: END IF;
3737: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3738: FEM_ENGINES_PKG.TECH_MESSAGE(
3739: p_severity => G_LOG_LEVEL_STATEMENT,
3740: p_module => C_MODULE,
3741: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3742: FEM_ENGINES_PKG.TECH_MESSAGE(
3738: FEM_ENGINES_PKG.TECH_MESSAGE(
3739: p_severity => G_LOG_LEVEL_STATEMENT,
3740: p_module => C_MODULE,
3741: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3742: FEM_ENGINES_PKG.TECH_MESSAGE(
3743: p_severity => G_LOG_LEVEL_STATEMENT,
3744: p_module => C_MODULE,
3745: p_msg_text => 'Parameter: Ledger ID is '||p_ledger_id);
3746: END IF;
3755: AND enabled_flag = 'Y'
3756: AND personal_flag = 'N';
3757:
3758: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3759: FEM_ENGINES_PKG.TECH_MESSAGE(
3760: p_severity => G_LOG_LEVEL_STATEMENT,
3761: p_module => C_MODULE,
3762: p_msg_text => 'Ledger display code is '||x_ledger_dc);
3763: END IF;
3762: p_msg_text => 'Ledger display code is '||x_ledger_dc);
3763: END IF;
3764: EXCEPTION
3765: WHEN no_data_found THEN
3766: FEM_ENGINES_PKG.TECH_MESSAGE(
3767: p_severity => G_LOG_LEVEL_STATEMENT,
3768: p_module => C_MODULE,
3769: p_msg_text => 'Ledger ID '||to_char(p_ledger_id)
3770: ||' either cannot be found or is not enabled or is personal.');
3784: FROM fem_dimensions_b
3785: WHERE dimension_varchar_label = 'LEDGER';
3786:
3787: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3788: FEM_ENGINES_PKG.TECH_MESSAGE(
3789: p_severity => G_LOG_LEVEL_STATEMENT,
3790: p_module => C_MODULE,
3791: p_msg_text => 'Dimension ID of Ledger dimenions is '
3792: ||to_char(l_ledger_dim_id));
3799: x_ver_id => l_dim_attr_ver_id,
3800: x_err_code => l_return_code);
3801:
3802: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3803: FEM_ENGINES_PKG.TECH_MESSAGE(
3804: p_severity => G_LOG_LEVEL_STATEMENT,
3805: p_module => C_MODULE,
3806: p_msg_text => 'FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
3807: ||'(CAL_PERIOD_HIER_OBJ_DEF_ID) returned with error code of '
3820: AND version_id = l_dim_attr_ver_id
3821: AND ledger_id = p_ledger_id;
3822:
3823: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3824: FEM_ENGINES_PKG.Tech_Message
3825: (p_severity => G_LOG_LEVEL_STATEMENT,
3826: p_module => C_MODULE,
3827: p_msg_text => 'The Ledger Calendar Period Hierarchy object definition ID is '
3828: ||to_char(x_ledger_per_hier_obj_def_id));
3828: ||to_char(x_ledger_per_hier_obj_def_id));
3829: END IF;
3830: EXCEPTION
3831: WHEN no_data_found THEN
3832: FEM_ENGINES_PKG.TECH_MESSAGE(
3833: p_severity => G_LOG_LEVEL_STATEMENT,
3834: p_module => C_MODULE,
3835: p_msg_text => 'Ledger is missing a Calendar Period Hierarchy attribute.');
3836:
3843: FROM fem_object_definition_b
3844: WHERE object_definition_id = x_ledger_per_hier_obj_def_id;
3845:
3846: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3847: FEM_ENGINES_PKG.Tech_Message
3848: (p_severity => G_LOG_LEVEL_STATEMENT,
3849: p_module => C_MODULE,
3850: p_msg_text => 'The Ledger Calendar Period Hierarchy object ID is '
3851: ||to_char(l_ledger_per_hier_obj_id));
3851: ||to_char(l_ledger_per_hier_obj_id));
3852: END IF;
3853: EXCEPTION
3854: WHEN no_data_found THEN
3855: FEM_ENGINES_PKG.TECH_MESSAGE(
3856: p_severity => G_LOG_LEVEL_STATEMENT,
3857: p_module => C_MODULE,
3858: p_msg_text => 'The Legder Calendar Period Hierarchy object definition '
3859: ||'does not have an associated object ID.');
3868: FROM fem_hierarchies
3869: WHERE hierarchy_obj_id = l_ledger_per_hier_obj_id;
3870:
3871: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3872: FEM_ENGINES_PKG.Tech_Message
3873: (p_severity => G_LOG_LEVEL_STATEMENT,
3874: p_module => C_MODULE,
3875: p_msg_text => 'The Calendar ID associated with the Ledger is '
3876: ||to_char(x_ledger_calendar_id));
3876: ||to_char(x_ledger_calendar_id));
3877: END IF;
3878: EXCEPTION
3879: WHEN no_data_found THEN
3880: FEM_ENGINES_PKG.TECH_MESSAGE(
3881: p_severity => G_LOG_LEVEL_STATEMENT,
3882: p_module => C_MODULE,
3883: p_msg_text => 'The Legder Calendar Period Hierarchy object '
3884: ||'is not a valid Hierarchy.');
3890: (p_count => x_msg_count,
3891: p_data => x_msg_data);
3892:
3893: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3894: FEM_ENGINES_PKG.TECH_MESSAGE(
3895: p_severity => G_LOG_LEVEL_STATEMENT,
3896: p_module => C_MODULE,
3897: p_msg_text => 'Returning with status of '||x_return_status);
3898: END IF;
3896: p_module => C_MODULE,
3897: p_msg_text => 'Returning with status of '||x_return_status);
3898: END IF;
3899: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3900: FEM_ENGINES_PKG.TECH_MESSAGE(
3901: p_severity => G_LOG_LEVEL_PROCEDURE,
3902: p_module => C_MODULE,
3903: p_msg_text => 'End Procedure');
3904: END IF;
3906: EXCEPTION
3907: WHEN e_inv_ledger THEN
3908: x_return_status := G_RET_STS_ERROR;
3909:
3910: FEM_ENGINES_PKG.put_message(
3911: p_app_name =>'FEM',
3912: p_msg_name =>'FEM_SD_LDR_INV_LEDGER',
3913: p_token1 => 'LEDGER',
3914: p_value1 => p_ledger_id);
3912: p_msg_name =>'FEM_SD_LDR_INV_LEDGER',
3913: p_token1 => 'LEDGER',
3914: p_value1 => p_ledger_id);
3915:
3916: FEM_ENGINES_PKG.Tech_Message
3917: (p_severity => G_LOG_LEVEL_ERROR,
3918: p_module => C_MODULE,
3919: p_app_name => 'FEM',
3920: p_msg_name => 'FEM_SD_LDR_INV_LEDGER',
3984: e_per_not_in_ledger EXCEPTION;
3985: BEGIN
3986:
3987: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
3988: FEM_ENGINES_PKG.TECH_MESSAGE(
3989: p_severity => G_LOG_LEVEL_PROCEDURE,
3990: p_module => C_MODULE,
3991: p_msg_text => 'Begin Procedure');
3992: END IF;
3990: p_module => C_MODULE,
3991: p_msg_text => 'Begin Procedure');
3992: END IF;
3993: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
3994: FEM_ENGINES_PKG.TECH_MESSAGE(
3995: p_severity => G_LOG_LEVEL_STATEMENT,
3996: p_module => C_MODULE,
3997: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3998: FEM_ENGINES_PKG.TECH_MESSAGE(
3994: FEM_ENGINES_PKG.TECH_MESSAGE(
3995: p_severity => G_LOG_LEVEL_STATEMENT,
3996: p_module => C_MODULE,
3997: p_msg_text => 'Parameter: Object type code is '||p_object_type);
3998: FEM_ENGINES_PKG.TECH_MESSAGE(
3999: p_severity => G_LOG_LEVEL_STATEMENT,
4000: p_module => C_MODULE,
4001: p_msg_text => 'Parameter: Calendar Period ID is '||p_cal_period_id);
4002: END IF;
4019: AND enabled_flag = 'Y'
4020: AND personal_flag = 'N';
4021:
4022: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4023: FEM_ENGINES_PKG.Tech_Message
4024: (p_severity => G_LOG_LEVEL_STATEMENT,
4025: p_module => C_MODULE,
4026: p_msg_text => 'The Calendar Period Calendar ID is '
4027: ||to_char(l_cal_per_calendar_id)
4029: ||to_char(l_cal_per_dim_grp_id));
4030: END IF;
4031: EXCEPTION
4032: WHEN no_data_found THEN
4033: FEM_ENGINES_PKG.TECH_MESSAGE(
4034: p_severity => G_LOG_LEVEL_STATEMENT,
4035: p_module => C_MODULE,
4036: p_msg_text => 'Calendar Period ID '||to_char(p_cal_period_id)
4037: ||' either cannot be found or is not enabled or is personal.');
4049: FROM fem_dimension_grps_b
4050: WHERE dimension_group_id = l_cal_per_dim_grp_id;
4051:
4052: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4053: FEM_ENGINES_PKG.Tech_Message
4054: (p_severity => G_LOG_LEVEL_STATEMENT,
4055: p_module => C_MODULE,
4056: p_msg_text => 'The Calendar Period Dimension Group Display Code is '
4057: ||x_calp_dim_grp_dc);
4058: END IF;
4059:
4060: EXCEPTION
4061: WHEN no_data_found THEN
4062: FEM_ENGINES_PKG.Tech_Message
4063: (p_severity => G_LOG_LEVEL_STATEMENT,
4064: p_module => C_MODULE,
4065: p_msg_text => 'The Calendar Period Dimension Group cannot be found.');
4066:
4078: FROM fem_dimensions_b
4079: WHERE dimension_varchar_label = 'CAL_PERIOD';
4080:
4081: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4082: FEM_ENGINES_PKG.TECH_MESSAGE(
4083: p_severity => G_LOG_LEVEL_STATEMENT,
4084: p_module => C_MODULE,
4085: p_msg_text => 'Dimension ID of Calendar Period dimenions is '
4086: ||to_char(l_cal_per_dim_id));
4095: x_ver_id => l_dim_attr_ver_id,
4096: x_err_code => l_return_code);
4097:
4098: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4099: FEM_ENGINES_PKG.TECH_MESSAGE(
4100: p_severity => G_LOG_LEVEL_STATEMENT,
4101: p_module => C_MODULE,
4102: p_msg_text => 'FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
4103: ||'(CAL_PERIOD_END_DATE) returned with error code of '
4116: AND version_id = l_dim_attr_ver_id
4117: AND cal_period_id = p_cal_period_id;
4118:
4119: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4120: FEM_ENGINES_PKG.Tech_Message
4121: (p_severity => G_LOG_LEVEL_STATEMENT,
4122: p_module => C_MODULE,
4123: p_msg_text => 'The Calendar Period End Date is '
4124: ||FND_DATE.date_to_displayDT(x_cal_per_end_date));
4124: ||FND_DATE.date_to_displayDT(x_cal_per_end_date));
4125: END IF;
4126: EXCEPTION
4127: WHEN no_data_found THEN
4128: FEM_ENGINES_PKG.TECH_MESSAGE(
4129: p_severity => G_LOG_LEVEL_STATEMENT,
4130: p_module => C_MODULE,
4131: p_msg_text => 'Calendar Period is missing Calendar Period End Date attribute.');
4132:
4142: x_ver_id => l_dim_attr_ver_id,
4143: x_err_code => l_return_code);
4144:
4145: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4146: FEM_ENGINES_PKG.TECH_MESSAGE(
4147: p_severity => G_LOG_LEVEL_STATEMENT,
4148: p_module => C_MODULE,
4149: p_msg_text => 'FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
4150: ||'(CGL_PERIOD_NUM) returned with error code of '
4163: AND version_id = l_dim_attr_ver_id
4164: AND cal_period_id = p_cal_period_id;
4165:
4166: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4167: FEM_ENGINES_PKG.Tech_Message
4168: (p_severity => G_LOG_LEVEL_STATEMENT,
4169: p_module => C_MODULE,
4170: p_msg_text => 'The Calendar Period Number is '
4171: ||to_char(x_cal_per_number));
4171: ||to_char(x_cal_per_number));
4172: END IF;
4173: EXCEPTION
4174: WHEN no_data_found THEN
4175: FEM_ENGINES_PKG.TECH_MESSAGE(
4176: p_severity => G_LOG_LEVEL_STATEMENT,
4177: p_module => C_MODULE,
4178: p_msg_text => 'Calendar Period is missing Calendar Period Number attribute.');
4179:
4186: (p_count => x_msg_count,
4187: p_data => x_msg_data);
4188:
4189: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4190: FEM_ENGINES_PKG.TECH_MESSAGE(
4191: p_severity => G_LOG_LEVEL_STATEMENT,
4192: p_module => C_MODULE,
4193: p_msg_text => 'Returning with status of '||x_return_status);
4194: END IF;
4192: p_module => C_MODULE,
4193: p_msg_text => 'Returning with status of '||x_return_status);
4194: END IF;
4195: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
4196: FEM_ENGINES_PKG.TECH_MESSAGE(
4197: p_severity => G_LOG_LEVEL_PROCEDURE,
4198: p_module => C_MODULE,
4199: p_msg_text => 'End Procedure');
4200: END IF;
4202: EXCEPTION
4203: WHEN e_inv_cal_period THEN
4204: x_return_status := G_RET_STS_ERROR;
4205:
4206: FEM_ENGINES_PKG.put_message(
4207: p_app_name =>'FEM',
4208: p_msg_name =>'FEM_SD_LDR_INV_CAL_PER',
4209: p_token1 => 'CAL_PER',
4210: p_value1 => p_cal_period_id);
4208: p_msg_name =>'FEM_SD_LDR_INV_CAL_PER',
4209: p_token1 => 'CAL_PER',
4210: p_value1 => p_cal_period_id);
4211:
4212: FEM_ENGINES_PKG.Tech_Message
4213: (p_severity => G_LOG_LEVEL_ERROR,
4214: p_module => C_MODULE,
4215: p_app_name => 'FEM',
4216: p_msg_name =>'FEM_SD_LDR_INV_CAL_PER',
4223:
4224: WHEN e_mismatch_calendar THEN
4225: x_return_status := G_RET_STS_ERROR;
4226:
4227: FEM_ENGINES_PKG.put_message(
4228: p_app_name =>'FEM',
4229: p_msg_name =>'FEM_SD_LDR_MISMATCH_CALENDAR',
4230: p_token1 => 'LEDGER',
4231: p_value1 => p_ledger_id,
4231: p_value1 => p_ledger_id,
4232: p_token2 => 'CAL_PER',
4233: p_value2 => p_cal_period_id);
4234:
4235: FEM_ENGINES_PKG.Tech_Message
4236: (p_severity => G_LOG_LEVEL_ERROR,
4237: p_module => C_MODULE,
4238: p_app_name => 'FEM',
4239: p_msg_name => 'FEM_SD_LDR_MISMATCH_CALENDAR',
4288: l_return_code NUMBER; -- 0 if success, 2 if error
4289: BEGIN
4290:
4291: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
4292: FEM_ENGINES_PKG.TECH_MESSAGE(
4293: p_severity => G_LOG_LEVEL_PROCEDURE,
4294: p_module => C_MODULE,
4295: p_msg_text => 'Begin Procedure');
4296: END IF;
4294: p_module => C_MODULE,
4295: p_msg_text => 'Begin Procedure');
4296: END IF;
4297: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4298: FEM_ENGINES_PKG.TECH_MESSAGE(
4299: p_severity => G_LOG_LEVEL_STATEMENT,
4300: p_module => C_MODULE,
4301: p_msg_text => 'Parameter: Object type code is '||p_object_type);
4302: FEM_ENGINES_PKG.TECH_MESSAGE(
4298: FEM_ENGINES_PKG.TECH_MESSAGE(
4299: p_severity => G_LOG_LEVEL_STATEMENT,
4300: p_module => C_MODULE,
4301: p_msg_text => 'Parameter: Object type code is '||p_object_type);
4302: FEM_ENGINES_PKG.TECH_MESSAGE(
4303: p_severity => G_LOG_LEVEL_STATEMENT,
4304: p_module => C_MODULE,
4305: p_msg_text => 'Parameter: Dataset code is '||p_dataset_code);
4306: END IF;
4330: EXCEPTION
4331: WHEN no_data_found THEN
4332: x_return_status := G_RET_STS_ERROR;
4333:
4334: FEM_ENGINES_PKG.put_message(
4335: p_app_name =>'FEM',
4336: p_msg_name =>'FEM_SD_LDR_INV_DATASET',
4337: p_token1 => 'DATASET',
4338: p_value1 => p_dataset_code);
4336: p_msg_name =>'FEM_SD_LDR_INV_DATASET',
4337: p_token1 => 'DATASET',
4338: p_value1 => p_dataset_code);
4339:
4340: FEM_ENGINES_PKG.Tech_Message
4341: (p_severity => G_LOG_LEVEL_ERROR,
4342: p_module => C_MODULE,
4343: p_app_name => 'FEM',
4344: p_msg_name => 'FEM_SD_LDR_INV_DATASET',
4358: FROM fem_dimensions_b
4359: WHERE dimension_varchar_label = 'DATASET';
4360:
4361: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4362: FEM_ENGINES_PKG.TECH_MESSAGE(
4363: p_severity => G_LOG_LEVEL_STATEMENT,
4364: p_module => C_MODULE,
4365: p_msg_text => 'Dimension ID of Dataset dimenions is '
4366: ||to_char(l_dataset_dim_id));
4373: x_ver_id => l_dim_attr_ver_id,
4374: x_err_code => l_return_code);
4375:
4376: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4377: FEM_ENGINES_PKG.TECH_MESSAGE(
4378: p_severity => G_LOG_LEVEL_STATEMENT,
4379: p_module => C_MODULE,
4380: p_msg_text => 'FEM_DIMENSION_UTIL_PKG.get_dim_attr_id_ver_id'
4381: ||'(DATASET_BALANCE_TYPE_CODE) returned with error code of '
4393: EXCEPTION
4394: WHEN no_data_found THEN
4395: l_return_code := 2; -- error
4396:
4397: FEM_ENGINES_PKG.TECH_MESSAGE(
4398: p_severity => G_LOG_LEVEL_STATEMENT,
4399: p_module => C_MODULE,
4400: p_msg_text => 'Dataset is missing a balance type attribute.');
4401: END;
4403:
4404: IF l_return_code <> 0 THEN
4405: x_return_status := G_RET_STS_ERROR;
4406:
4407: FEM_ENGINES_PKG.put_message(
4408: p_app_name =>'FEM',
4409: p_msg_name =>'FEM_SD_LDR_INV_BAL_TYPE',
4410: p_token1 => 'DATASET',
4411: p_value1 => p_dataset_code);
4409: p_msg_name =>'FEM_SD_LDR_INV_BAL_TYPE',
4410: p_token1 => 'DATASET',
4411: p_value1 => p_dataset_code);
4412:
4413: FEM_ENGINES_PKG.Tech_Message
4414: (p_severity => G_LOG_LEVEL_ERROR,
4415: p_module => C_MODULE,
4416: p_app_name => 'FEM',
4417: p_msg_name => 'FEM_SD_LDR_INV_BAL_TYPE',
4425: (p_count => x_msg_count,
4426: p_data => x_msg_data);
4427:
4428: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4429: FEM_ENGINES_PKG.TECH_MESSAGE(
4430: p_severity => G_LOG_LEVEL_STATEMENT,
4431: p_module => C_MODULE,
4432: p_msg_text => 'Returning with status of '||x_return_status);
4433: END IF;
4431: p_module => C_MODULE,
4432: p_msg_text => 'Returning with status of '||x_return_status);
4433: END IF;
4434: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
4435: FEM_ENGINES_PKG.TECH_MESSAGE(
4436: p_severity => G_LOG_LEVEL_PROCEDURE,
4437: p_module => C_MODULE,
4438: p_msg_text => 'End Procedure');
4439: END IF;
4477: C_API_NAME CONSTANT VARCHAR2(30) := 'Validate_Source_System';
4478: BEGIN
4479:
4480: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
4481: FEM_ENGINES_PKG.TECH_MESSAGE(
4482: p_severity => G_LOG_LEVEL_PROCEDURE,
4483: p_module => C_MODULE,
4484: p_msg_text => 'Begin Procedure');
4485: END IF;
4483: p_module => C_MODULE,
4484: p_msg_text => 'Begin Procedure');
4485: END IF;
4486: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4487: FEM_ENGINES_PKG.TECH_MESSAGE(
4488: p_severity => G_LOG_LEVEL_STATEMENT,
4489: p_module => C_MODULE,
4490: p_msg_text => 'Parameter: Object type code is '||p_object_type);
4491: FEM_ENGINES_PKG.TECH_MESSAGE(
4487: FEM_ENGINES_PKG.TECH_MESSAGE(
4488: p_severity => G_LOG_LEVEL_STATEMENT,
4489: p_module => C_MODULE,
4490: p_msg_text => 'Parameter: Object type code is '||p_object_type);
4491: FEM_ENGINES_PKG.TECH_MESSAGE(
4492: p_severity => G_LOG_LEVEL_STATEMENT,
4493: p_module => C_MODULE,
4494: p_msg_text => 'Parameter: Source system code is '||p_source_system_code);
4495: END IF;
4515: EXCEPTION
4516: WHEN no_data_found THEN
4517: x_return_status := G_RET_STS_ERROR;
4518:
4519: FEM_ENGINES_PKG.put_message(
4520: p_app_name =>'FEM',
4521: p_msg_name =>'FEM_SD_LDR_INV_SOURCE',
4522: p_token1 => 'SOURCE',
4523: p_value1 => p_source_system_code);
4521: p_msg_name =>'FEM_SD_LDR_INV_SOURCE',
4522: p_token1 => 'SOURCE',
4523: p_value1 => p_source_system_code);
4524:
4525: FEM_ENGINES_PKG.Tech_Message
4526: (p_severity => G_LOG_LEVEL_ERROR,
4527: p_module => C_MODULE,
4528: p_app_name => 'FEM',
4529: p_msg_name => 'FEM_SD_LDR_INV_SOURCE',
4535: (p_count => x_msg_count,
4536: p_data => x_msg_data);
4537:
4538: IF G_LOG_LEVEL_STATEMENT >= g_log_current_level THEN
4539: FEM_ENGINES_PKG.TECH_MESSAGE(
4540: p_severity => G_LOG_LEVEL_STATEMENT,
4541: p_module => C_MODULE,
4542: p_msg_text => 'Returning with status of '||x_return_status);
4543: END IF;
4541: p_module => C_MODULE,
4542: p_msg_text => 'Returning with status of '||x_return_status);
4543: END IF;
4544: IF G_LOG_LEVEL_PROCEDURE >= g_log_current_level THEN
4545: FEM_ENGINES_PKG.TECH_MESSAGE(
4546: p_severity => G_LOG_LEVEL_PROCEDURE,
4547: p_module => C_MODULE,
4548: p_msg_text => 'End Procedure');
4549: END IF;