[Home] [Help]
383:
384: -- Initialize Message Stack on FND_MSG_PUB
385: FND_MSG_PUB.Initialize;
386:
387: FEM_ENGINES_PKG.Tech_Message (
388: p_severity => G_LOG_LEVEL_2
389: ,p_module => G_BLOCK||'.'||L_API_NAME
390: ,p_msg_text => 'BEGIN'
391: );
397: IF (p_obj_id IS NULL OR p_dataset_grp_obj_def_id IS NULL OR
398: p_effective_date IS NULL OR p_output_cal_period_id IS NULL OR
399: p_ledger_id IS NULL) THEN
400:
401: FEM_ENGINES_PKG.User_Message (
402: p_app_name => G_FEM
403: ,p_msg_name => G_ENG_BAD_CONC_REQ_PARAM_ERR
404: );
405: raise g_act_rate_request_error;
407:
408: ------------------------------------------------------------------------------
409: -- STEP 1: Request Preparation
410: ------------------------------------------------------------------------------
411: FEM_ENGINES_PKG.tech_message (
412: p_severity => G_LOG_LEVEL_1
413: ,p_module => G_BLOCK||'.'||L_API_NAME
414: ,p_msg_text => 'Step 1: Request Preperation'
415: );
428:
429: ------------------------------------------------------------------------------
430: -- STEP 2: Register Request
431: ------------------------------------------------------------------------------
432: FEM_ENGINES_PKG.Tech_Message (
433: p_severity => G_LOG_LEVEL_1
434: ,p_module => G_BLOCK||'.'||L_API_NAME
435: ,p_msg_text => 'Step 2: Register Request'
436: );
441:
442: ------------------------------------------------------------------------------
443: -- STEP 3: Start Activity Rate Processing
444: ------------------------------------------------------------------------------
445: FEM_ENGINES_PKG.Tech_Message (
446: p_severity => G_LOG_LEVEL_1
447: ,p_module => G_BLOCK||'.'||L_API_NAME
448: ,p_msg_text => 'Step 3: Start Activity Rate Processing'
449: );
457:
458: ------------------------------------------------------------------------------
459: -- STEP 3.1: Single Rule Submit Processing
460: ------------------------------------------------------------------------------
461: FEM_ENGINES_PKG.Tech_Message (
462: p_severity => G_LOG_LEVEL_1
463: ,p_module => G_BLOCK||'.'||L_API_NAME
464: ,p_msg_text => 'Step 3.1: Single Rule Submit Processing'
465: );
469:
470: ----------------------------------------------------------------------------
471: -- STEP 3.1.a: Validate Single Rule Submit
472: ----------------------------------------------------------------------------
473: FEM_ENGINES_PKG.Tech_Message (
474: p_severity => G_LOG_LEVEL_1
475: ,p_module => G_BLOCK||'.'||L_API_NAME
476: ,p_msg_text => 'Step 3.1.a: Single Rule Submit Processing'
477: );
487: ,p_ledger_id => l_request_rec.ledger_id
488: );
489:
490: if (l_err_code <> 0) then
491: FEM_ENGINES_PKG.User_Message (
492: p_app_name => G_FEM
493: ,p_msg_name => l_err_msg
494: );
495: raise g_act_rate_request_error;
498:
499: ----------------------------------------------------------------------------
500: -- STEP 3.1.b: Calculate Activity Rate for Single Rule
501: ----------------------------------------------------------------------------
502: FEM_ENGINES_PKG.Tech_Message (
503: p_severity => G_LOG_LEVEL_1
504: ,p_module => G_BLOCK||'.'||L_API_NAME
505: ,p_msg_text => 'Step 3.1.b: Calculate Activity Rate for Single Rule'
506: );
522:
523: ----------------------------------------------------------------------------
524: -- STEP 3.2: Rule Set Processing
525: ----------------------------------------------------------------------------
526: FEM_ENGINES_PKG.Tech_Message (
527: p_severity => G_LOG_LEVEL_1
528: ,p_module => G_BLOCK||'.'||L_API_NAME
529: ,p_msg_text => 'Step 3.2: Rule Set Processing'
530: );
531:
532: ----------------------------------------------------------------------------
533: -- STEP 3.2.a: Rule Set Pre Processing
534: ----------------------------------------------------------------------------
535: FEM_ENGINES_PKG.Tech_Message (
536: p_severity => G_LOG_LEVEL_1
537: ,p_module => G_BLOCK||'.'||L_API_NAME
538: ,p_msg_text => 'Step 3.2.a: Rule Set Pre Processing'
539: );
565:
566: ----------------------------------------------------------------------------
567: -- STEP 3.2.b: Loop through all Rule Set Rules
568: ----------------------------------------------------------------------------
569: FEM_ENGINES_PKG.Tech_Message (
570: p_severity => G_LOG_LEVEL_1
571: ,p_module => G_BLOCK||'.'||L_API_NAME
572: ,p_msg_text => 'Step 3.2.b: Loop through all Rule Set Rules'
573: );
598:
599: --------------------------------------------------------------------------
600: -- STEP 3.2.c: Activity Rate Rule Set Rule
601: --------------------------------------------------------------------------
602: FEM_ENGINES_PKG.Tech_Message (
603: p_severity => G_LOG_LEVEL_1
604: ,p_module => G_BLOCK||'.'||L_API_NAME
605: ,p_msg_text => 'Step 3.2.c: Activity Rate Rule Set Rule #'||to_char(l_act_rate_sequence)
606: );
635:
636: ------------------------------------------------------------------------------
637: -- STEP 4: Request Post Processing.
638: ------------------------------------------------------------------------------
639: FEM_ENGINES_PKG.Tech_Message (
640: p_severity => G_LOG_LEVEL_1
641: ,p_module => G_BLOCK||'.'||L_API_NAME
642: ,p_msg_text => 'Step 4: Request Post Processing'
643: );
646: p_request_rec => l_request_rec
647: ,p_exec_status_code => G_EXEC_STATUS_SUCCESS
648: );
649:
650: FEM_ENGINES_PKG.Tech_Message (
651: p_severity => G_LOG_LEVEL_2
652: ,p_module => G_BLOCK||'.'||L_API_NAME
653: ,p_msg_text => 'END'
654: );
667: );
668:
669: l_completion_status := FND_CONCURRENT.Set_Completion_Status('ERROR',null);
670:
671: FEM_ENGINES_PKG.Tech_Message (
672: p_severity => g_log_level_6
673: ,p_module => G_BLOCK||'.'||L_API_NAME
674: ,p_msg_text => 'Activity Rate Request Exception'
675: );
689: );
690:
691: l_completion_status := FND_CONCURRENT.Set_Completion_Status('ERROR',null);
692:
693: FEM_ENGINES_PKG.Tech_Message (
694: p_severity => g_log_level_6
695: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
696: ,p_msg_text => g_prg_msg
697: );
695: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
696: ,p_msg_text => g_prg_msg
697: );
698:
699: FEM_ENGINES_PKG.Tech_Message (
700: p_severity => g_log_level_6
701: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
702: ,p_msg_text => g_callstack
703: );
701: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
702: ,p_msg_text => g_callstack
703: );
704:
705: FEM_ENGINES_PKG.User_Message (
706: p_app_name => G_FEM
707: ,p_msg_name => G_UNEXPECTED_ERROR
708: ,p_token1 => 'ERR_MSG'
709: ,p_value1 => g_prg_msg
755: l_request_prep_error exception;
756:
757: BEGIN
758:
759: FEM_ENGINES_PKG.Tech_Message (
760: p_severity => G_LOG_LEVEL_2
761: ,p_module => G_BLOCK||'.'||L_API_NAME
762: ,p_msg_text => 'BEGIN'
763: );
820: ,x_request_rec.pgm_app_id
821: );
822:
823: if (g_currency_conv_type is null) then
824: FEM_ENGINES_PKG.User_Message (
825: p_app_name => G_FEM
826: ,p_msg_name => G_ENG_NO_CURR_CONV_TYPE_ERR
827: ,p_token1 => 'PROFILE_OPTION_NAME'
828: ,p_value1 => 'FEM_CURRENCY_CONVERSION_TYPE'
843: from fem_object_catalog_b
844: where object_id = x_request_rec.submit_obj_id;
845: exception
846: when others then
847: FEM_ENGINES_PKG.User_Message (
848: p_app_name => G_FEM
849: ,p_msg_name => G_ENG_NO_SUBMIT_OBJ_ERR
850: ,p_token1 => 'OBJECT_ID'
851: ,p_value1 => x_request_rec.submit_obj_id
863: from fem_object_catalog_vl
864: where object_id = x_request_rec.ruleset_obj_id;
865: exception
866: when others then
867: FEM_ENGINES_PKG.User_Message (
868: p_app_name => G_FEM
869: ,p_msg_name => G_ENG_RS_NO_OBJ_ERR
870: ,p_token1 => 'OBJECT_TYPE_MEANING'
871: ,p_value1 => Get_Lookup_Meaning('FEM_OBJECT_TYPE_DSC','RULE_SET')
897: ,l_object_type_code
898: from fem_object_catalog_vl
899: where object_id = p_obj_id;
900:
901: FEM_ENGINES_PKG.User_Message (
902: p_app_name => G_FEM
903: ,p_msg_name => G_ENG_RS_NO_OBJ_DEF_ERR
904: ,p_token1 => 'OBJECT_TYPE_MEANING'
905: ,p_value1 => Get_Lookup_Meaning('FEM_OBJECT_TYPE_DSC',l_object_type_code)
967: from fem_source_systems_b
968: where source_system_display_code = G_PFT_SOURCE_SYSTEM_DC;
969: exception
970: when others then
971: FEM_ENGINES_PKG.User_Message (
972: p_app_name => G_FEM
973: ,p_msg_name => G_ENG_NO_DIM_MEMBER_ERR
974: ,p_token1 => 'TABLE_NAME'
975: ,p_value1 => 'FEM_SOURCE_SYSTEMS_B'
1000: ,fem_folders_vl f
1001: where obj.object_id = x_request_rec.dataset_grp_obj_id
1002: and f.folder_id = obj.folder_id;
1003:
1004: FEM_ENGINES_PKG.User_Message (
1005: p_app_name => G_FEM
1006: ,p_msg_name => G_ENG_NO_OUTPUT_DS_ERR
1007: ,p_token1 => 'FOLDER_NAME'
1008: ,p_value1 => l_folder_name
1021: from fem_object_definition_b
1022: where object_definition_id = x_request_rec.dataset_grp_obj_def_id;
1023: exception
1024: when others then
1025: FEM_ENGINES_PKG.User_Message (
1026: p_app_name => G_FEM
1027: ,p_msg_name => G_ENG_NO_DS_GRP_OBJ_ERR
1028: ,p_token1 => 'OBJECT_TYPE_MEANING'
1029: ,p_value1 => Get_Lookup_Meaning('FEM_OBJECT_TYPE_DSC','RULE_SET')
1059: raise l_request_prep_error;
1060: end if;
1061:
1062: if (x_input_ds_b_where_clause is null) then
1063: FEM_ENGINES_PKG.User_Message (
1064: p_app_name => G_FEM
1065: ,p_msg_name => G_ENG_BAD_DS_WCLAUSE_ERR
1066: ,p_token1 => 'DATASET_GRP_OBJ_DEF_ID'
1067: ,p_value1 => x_request_rec.dataset_grp_obj_def_id
1115:
1116: -- Log all Request Record Parameters if we have low level debugging
1117: if ( FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) ) then
1118:
1119: FEM_ENGINES_PKG.Tech_Message (
1120: p_severity => G_LOG_LEVEL_1
1121: ,p_module => G_BLOCK||'.'||L_API_NAME||'.x_request_rec'
1122: ,p_msg_text =>
1123: ' act_rate_obj_type_code='||x_request_rec.act_rate_obj_type_code||
1147: );
1148:
1149: end if;
1150:
1151: FEM_ENGINES_PKG.Tech_Message (
1152: p_severity => G_LOG_LEVEL_2
1153: ,p_module => G_BLOCK||'.'||L_API_NAME
1154: ,p_msg_text => 'END'
1155: );
1157: EXCEPTION
1158:
1159: when l_request_prep_error then
1160:
1161: FEM_ENGINES_PKG.Tech_Message (
1162: p_severity => G_LOG_LEVEL_6
1163: ,p_module => G_BLOCK||'.'||L_API_NAME
1164: ,p_msg_text => 'Request Preperation Exception'
1165: );
1194: l_object_name varchar2(150);
1195:
1196: BEGIN
1197:
1198: FEM_ENGINES_PKG.Tech_Message (
1199: p_severity => G_LOG_LEVEL_2
1200: ,p_module => G_BLOCK||'.'||L_API_NAME
1201: ,p_msg_text => 'BEGIN'
1202: );
1210: and d.object_id = o.object_id
1211: and p_effective_date between d.effective_start_date and d.effective_end_date
1212: and d.old_approved_copy_flag = 'N';
1213:
1214: FEM_ENGINES_PKG.Tech_Message (
1215: p_severity => G_LOG_LEVEL_2
1216: ,p_module => G_BLOCK||'.'||L_API_NAME
1217: ,p_msg_text => 'END'
1218: );
1225: into l_object_name
1226: from fem_object_catalog_vl
1227: where object_id = p_object_id;
1228:
1229: FEM_ENGINES_PKG.User_Message (
1230: p_app_name => G_FEM
1231: ,p_msg_name => G_ENG_NO_OBJ_DEF_ERR
1232: ,p_token1 => 'OBJECT_TYPE_CODE'
1233: ,p_value1 => p_object_type_code
1264: L_API_NAME constant varchar2(30) := 'Get_Dimension_Record';
1265:
1266: BEGIN
1267:
1268: FEM_ENGINES_PKG.Tech_Message (
1269: p_severity => G_LOG_LEVEL_2
1270: ,p_module => G_BLOCK||'.'||L_API_NAME
1271: ,p_msg_text => 'BEGIN'
1272: );
1282: into x_dimension_rec
1283: from fem_xdim_dimensions_vl
1284: where dimension_varchar_label = p_dimension_varchar_label;
1285:
1286: FEM_ENGINES_PKG.Tech_Message (
1287: p_severity => G_LOG_LEVEL_2
1288: ,p_module => G_BLOCK||'.'||L_API_NAME
1289: ,p_msg_text => 'END'
1290: );
1292: EXCEPTION
1293:
1294: when no_data_found then
1295:
1296: FEM_ENGINES_PKG.User_Message (
1297: p_app_name => G_FEM
1298: ,p_msg_name => G_ENG_NO_DIM_DTL_ERR
1299: ,p_token1 => 'DIMENSION_VARCHAR_LABEL'
1300: ,p_value1 => p_dimension_varchar_label
1336: l_get_dim_att_val_error exception;
1337:
1338: BEGIN
1339:
1340: FEM_ENGINES_PKG.Tech_Message (
1341: p_severity => G_LOG_LEVEL_2
1342: ,p_module => G_BLOCK||'.'||L_API_NAME
1343: ,p_msg_text => 'BEGIN'
1344: );
1360: and ver.attribute_id = att.attribute_id
1361: and ver.default_version_flag = 'Y';
1362: exception
1363: when others then
1364: FEM_ENGINES_PKG.User_Message (
1365: p_app_name => G_FEM
1366: ,p_msg_name => G_ENG_NO_DIM_ATTR_VER_ERR
1367: ,p_token1 => 'DIMENSION'
1368: ,p_value1 => p_dimension_varchar_label
1386: ,l_attr_version_id
1387: ,p_member_id;
1388: exception
1389: when others then
1390: FEM_ENGINES_PKG.User_Message (
1391: p_app_name => G_FEM
1392: ,p_msg_name => G_ENG_NO_DIM_ATTR_VAL_ERR
1393: ,p_token1 => 'DIMENSION'
1394: ,p_value1 => p_dimension_varchar_label
1397: );
1398: raise l_get_dim_att_val_error;
1399: end;
1400:
1401: FEM_ENGINES_PKG.Tech_Message (
1402: p_severity => G_LOG_LEVEL_2
1403: ,p_module => G_BLOCK||'.'||L_API_NAME
1404: ,p_msg_text => 'END'
1405: );
1407: EXCEPTION
1408:
1409: when l_get_dim_att_val_error then
1410:
1411: FEM_ENGINES_PKG.Tech_Message (
1412: p_severity => g_log_level_6
1413: ,p_module => G_BLOCK||'.'||L_API_NAME
1414: ,p_msg_text => 'Get Dimension Attribute Value Exception'
1415: );
1443: l_register_request_error exception;
1444:
1445: BEGIN
1446:
1447: FEM_ENGINES_PKG.Tech_Message (
1448: p_severity => G_LOG_LEVEL_2
1449: ,p_module => G_BLOCK||'.'||L_API_NAME
1450: ,p_msg_text => 'BEGIN'
1451: );
1490: end if;
1491:
1492: commit;
1493:
1494: FEM_ENGINES_PKG.Tech_Message (
1495: p_severity => G_LOG_LEVEL_2
1496: ,p_module => G_BLOCK||'.'||L_API_NAME
1497: ,p_msg_text => 'END'
1498: );
1502: when l_register_request_error then
1503:
1504: rollback to register_request_pub;
1505:
1506: FEM_ENGINES_PKG.Tech_Message (
1507: p_severity => G_LOG_LEVEL_6
1508: ,p_module => G_BLOCK||'.'||L_API_NAME
1509: ,p_msg_text => 'Register Request Exception'
1510: );
1573: l_act_rate_rule_error exception;
1574:
1575: BEGIN
1576:
1577: FEM_ENGINES_PKG.Tech_Message (
1578: p_severity => G_LOG_LEVEL_2
1579: ,p_module => G_BLOCK||'.'||L_API_NAME
1580: ,p_msg_text => 'BEGIN'
1581: );
1586:
1587: ------------------------------------------------------------------------------
1588: -- STEP 1: Rule Pre Processing
1589: ------------------------------------------------------------------------------
1590: FEM_ENGINES_PKG.tech_message (
1591: p_severity => G_LOG_LEVEL_1
1592: ,p_module => G_BLOCK||'.'||L_API_NAME
1593: ,p_msg_text => 'Step 1: Rule Pre Processing'
1594: );
1603:
1604: ------------------------------------------------------------------------------
1605: -- STEP 2: Register Rule under the same parent request
1606: ------------------------------------------------------------------------------
1607: FEM_ENGINES_PKG.tech_message (
1608: p_severity => G_LOG_LEVEL_1
1609: ,p_module => G_BLOCK||'.'||L_API_NAME
1610: ,p_msg_text => 'Step 2: Register Rule'
1611: );
1617:
1618: ------------------------------------------------------------------------------
1619: -- STEP 3: Create Temporary Objects
1620: ------------------------------------------------------------------------------
1621: FEM_ENGINES_PKG.tech_message (
1622: p_severity => G_LOG_LEVEL_1
1623: ,p_module => G_BLOCK||'.'||L_API_NAME
1624: ,p_msg_text => 'Step 3: Create Temporary Objects'
1625: );
1631:
1632: ----------------------------------------------------------------------------
1633: -- STEP 4: Call Process Drivers
1634: ----------------------------------------------------------------------------
1635: FEM_ENGINES_PKG.Tech_Message (
1636: p_severity => G_LOG_LEVEL_1
1637: ,p_module => G_BLOCK||'.'||L_API_NAME
1638: ,p_msg_text => 'Step 4: Call Process Drivers'
1639: );
1646:
1647: ------------------------------------------------------------------------------
1648: -- STEP 5: Calculate Activity Rate
1649: ------------------------------------------------------------------------------
1650: FEM_ENGINES_PKG.Tech_Message (
1651: p_severity => G_LOG_LEVEL_1
1652: ,p_module => G_BLOCK||'.'||L_API_NAME
1653: ,p_msg_text => 'Step 5: Calculate Activity Rate'
1654: );
1663:
1664: ----------------------------------------------------------------------------
1665: -- STEP 6: Register Source Chains
1666: ----------------------------------------------------------------------------
1667: FEM_ENGINES_PKG.Tech_Message (
1668: p_severity => G_LOG_LEVEL_1
1669: ,p_module => G_BLOCK||'.'||l_api_name
1670: ,p_msg_text => 'Step 6: Register Source Chains'
1671: );
1683:
1684: ------------------------------------------------------------------------------
1685: -- STEP 7: Rule Post Processing
1686: ------------------------------------------------------------------------------
1687: FEM_ENGINES_PKG.Tech_Message (
1688: p_severity => G_LOG_LEVEL_1
1689: ,p_module => G_BLOCK||'.'||L_API_NAME
1690: ,p_msg_text => 'Step 7: Rule Post Processing'
1691: );
1696: ,p_input_ds_b_where_clause => p_input_ds_b_where_clause
1697: ,p_exec_status_code => G_EXEC_STATUS_SUCCESS
1698: );
1699:
1700: FEM_ENGINES_PKG.Tech_Message (
1701: p_severity => G_LOG_LEVEL_2
1702: ,p_module => G_BLOCK||'.'||L_API_NAME
1703: ,p_msg_text => 'END'
1704: );
1706: EXCEPTION
1707:
1708: when l_act_rate_rule_error then
1709:
1710: FEM_ENGINES_PKG.Tech_Message (
1711: p_severity => g_log_level_6
1712: ,p_module => G_BLOCK||'.'||L_API_NAME
1713: ,p_msg_text => 'Activity Rate Rule Exception'
1714: );
1745:
1746: g_prg_msg := SQLERRM;
1747: g_callstack := DBMS_UTILITY.Format_Call_Stack;
1748:
1749: FEM_ENGINES_PKG.Tech_Message (
1750: p_severity => g_log_level_6
1751: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
1752: ,p_msg_text => g_prg_msg
1753: );
1751: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
1752: ,p_msg_text => g_prg_msg
1753: );
1754:
1755: FEM_ENGINES_PKG.User_Message (
1756: p_app_name => G_FEM
1757: ,p_msg_name => G_UNEXPECTED_ERROR
1758: ,p_token1 => 'ERR_MSG'
1759: ,p_value1 => g_prg_msg
1817: l_calc_act_rate_error exception;
1818:
1819: BEGIN
1820:
1821: FEM_ENGINES_PKG.Tech_Message (
1822: p_severity => G_LOG_LEVEL_2
1823: ,p_module => G_BLOCK||'.'||L_API_NAME
1824: ,p_msg_text => 'BEGIN'
1825: );
1830: ------------------------------------------------------------------------------
1831: -- STEP 1: Update Activity Id in Balances Table
1832: ------------------------------------------------------------------------------
1833:
1834: FEM_ENGINES_PKG.Tech_Message (
1835: p_severity => G_LOG_LEVEL_1
1836: ,p_module => G_BLOCK||'.'||L_API_NAME
1837: ,p_msg_text => 'Step 1: Update Activity Id in FEM_BALANCES Table'
1838: );
1883: ------------------------------------------------------------------------------
1884: -- STEP 2: Bulk Insert into Balances Table
1885: ------------------------------------------------------------------------------
1886:
1887: FEM_ENGINES_PKG.Tech_Message (
1888: p_severity => G_LOG_LEVEL_1
1889: ,p_module => G_BLOCK||'.'||L_API_NAME
1890: ,p_msg_text => 'Step 2: Bulk Insert into FEM_BALANCES Table'
1891: );
2229:
2230: if (l_mp_prog_status <> G_COMPLETE_NORMAL) then
2231:
2232: if (l_mp_exception_code is not null) then
2233: FEM_ENGINES_PKG.User_Message (
2234: p_app_name => G_FEM
2235: ,p_msg_name => l_mp_exception_code
2236: );
2237: end if;
2268: ------------------------------------------------------------------------------
2269: -- STEP 3: Bulk Insert into FEM_BALANCES_CALC_FCTRS Table
2270: ------------------------------------------------------------------------------
2271:
2272: FEM_ENGINES_PKG.Tech_Message (
2273: p_severity => G_LOG_LEVEL_1
2274: ,p_module => G_BLOCK||'.'||L_API_NAME
2275: ,p_msg_text => 'Step 3: Bulk Insert into FEM_BALANCES_CALC_FCTRS Table'
2276: );
2347:
2348: if (l_mp_prog_status <> G_COMPLETE_NORMAL) then
2349:
2350: if (l_mp_exception_code is not null) then
2351: FEM_ENGINES_PKG.User_Message (
2352: p_app_name => G_FEM
2353: ,p_msg_name => l_mp_exception_code
2354: );
2355: end if;
2382: p_req_id => p_request_rec.request_id
2383: );
2384: end if;
2385:
2386: FEM_ENGINES_PKG.Tech_Message (
2387: p_severity => G_LOG_LEVEL_2
2388: ,p_module => G_BLOCK||'.'||L_API_NAME
2389: ,p_msg_text => 'END'
2390: );
2392: EXCEPTION
2393:
2394: when l_calc_act_rate_error then
2395:
2396: FEM_ENGINES_PKG.Tech_Message (
2397: p_severity => g_log_level_6
2398: ,p_module => G_BLOCK||'.'||L_API_NAME
2399: ,p_msg_text => 'Calculate Activity Rate Exception'
2400: );
2432: l_rule_prep_error exception;
2433:
2434: BEGIN
2435:
2436: FEM_ENGINES_PKG.Tech_Message (
2437: p_severity => G_LOG_LEVEL_2
2438: ,p_module => G_BLOCK||'.'||L_API_NAME
2439: ,p_msg_text => 'BEGIN'
2440: );
2456: from fem_object_catalog_vl
2457: where object_id = x_rule_rec.act_rate_obj_id;
2458: exception
2459: when others then
2460: FEM_ENGINES_PKG.User_Message (
2461: p_app_name => G_FEM
2462: ,p_msg_name => G_ENG_NO_ACT_RATE_OBJ_ERR
2463: ,p_token1 => 'OBJECT_ID'
2464: ,p_value1 => x_rule_rec.act_rate_obj_id
2471: -- local_vs_combo_id of the activity rate rule matches the Rule Set's.
2472: ------------------------------------------------------------------------------
2473: if (p_request_rec.submit_obj_type_code = 'RULE_SET') then
2474:
2475: FEM_ENGINES_PKG.User_Message (
2476: p_app_name => G_FEM
2477: ,p_msg_name => G_ENG_RS_RULE_PROCESSING_TXT
2478: ,p_token1 => 'RULE_NAME'
2479: ,p_value1 => x_rule_rec.act_rate_obj_name
2480: );
2481:
2482: if (p_request_rec.act_rate_obj_type_code <> x_rule_rec.act_rate_obj_type_code) then
2483:
2484: FEM_ENGINES_PKG.User_Message (
2485: p_app_name => G_FEM
2486: ,p_msg_name => G_ENG_BAD_RS_OBJ_TYPE_ERR
2487: ,p_token1 => 'OBJECT_TYPE_CODE'
2488: ,p_value1 => p_request_rec.act_rate_obj_type_code
2492: end if;
2493:
2494: if (p_request_rec.local_vs_combo_id <> x_rule_rec.local_vs_combo_id) then
2495:
2496: FEM_ENGINES_PKG.User_Message (
2497: p_app_name => G_FEM
2498: ,p_msg_name => G_ENG_RS_BAD_LCL_VS_COMBO_ERR
2499: ,p_token1 => 'OBJECT_TYPE_MEANING'
2500: ,p_value1 => Get_Lookup_Meaning('FEM_OBJECT_TYPE_DSC',x_rule_rec.act_rate_obj_type_code)
2535: from PFT_ACTIVITY_RATES
2536: where activity_rate_obj_def_id = x_rule_rec.act_rate_obj_def_id;
2537: exception
2538: when others then
2539: FEM_ENGINES_PKG.User_Message (
2540: p_app_name => G_FEM
2541: ,p_msg_name => G_ENG_NO_ACT_RATE_OBJ_DTL_ERR
2542: ,p_token1 => 'TABLE_NAME'
2543: ,p_value1 => 'PFT_ACTIVITY_RATES'
2584: from fem_hierarchies h
2585: where h.hierarchy_obj_id = x_rule_rec.hier_obj_id;
2586: exception
2587: when others then
2588: FEM_ENGINES_PKG.User_Message (
2589: p_app_name => G_FEM
2590: ,p_msg_name => G_ENG_NO_OBJ_DTL_ERR
2591: ,p_token1 => 'TABLE_NAME'
2592: ,p_value1 => 'FEM_HIERARCHIES'
2600:
2601: -- Check that the dimension Id matches that of the Request
2602: if (p_request_rec.dimension_rec.dimension_id <> l_dimension_id) then
2603:
2604: FEM_ENGINES_PKG.User_Message (
2605: p_app_name => G_FEM
2606: ,p_msg_name => G_ENG_BAD_HIER_DIM_ERR
2607: ,p_token1 => 'OBJECT_TYPE_MEANING'
2608: ,p_value1 => Get_Lookup_Meaning('FEM_OBJECT_TYPE_DSC',x_rule_rec.act_rate_obj_type_code)
2682: ,x_rate => x_rule_rec.entered_exch_rate
2683: );
2684: exception
2685: when GL_CURRENCY_API.NO_RATE then
2686: FEM_ENGINES_PKG.User_Message (
2687: p_app_name => G_FEM
2688: ,p_msg_name => G_ENG_NO_EXCH_RATE_FOUND_ERR
2689: ,p_token1 => 'FROM_CURRENCY_CODE'
2690: ,p_value1 => p_request_rec.functional_currency_code
2697: );
2698: raise l_rule_prep_error;
2699:
2700: when GL_CURRENCY_API.INVALID_CURRENCY then
2701: FEM_ENGINES_PKG.User_Message (
2702: p_app_name => G_FEM
2703: ,p_msg_name => G_ENG_BAD_CURRENCY_ERR
2704: ,p_token1 => 'FROM_CURRENCY_CODE'
2705: ,p_value1 => p_request_rec.functional_currency_code
2723: -- Log all Rule Record Parameters if we have low level debugging
2724: if ( FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) ) then
2725:
2726:
2727: FEM_ENGINES_PKG.Tech_Message (
2728: p_severity => G_LOG_LEVEL_1
2729: ,p_module => G_BLOCK||'.'||L_API_NAME||'.x_rule_rec'
2730: ,p_msg_text =>
2731: ' act_rate_obj_id='||x_rule_rec.act_rate_obj_id||
2745: ' output_to_rate_stat_flag ='||x_rule_rec.output_to_rate_stat_flag ||
2746: ' top_node_flag ='||x_rule_rec.top_node_flag
2747: );
2748:
2749: FEM_ENGINES_PKG.Tech_Message (
2750: p_severity => G_LOG_LEVEL_1
2751: ,p_module => G_BLOCK||'.'||l_api_name||'.x_rule_rec'
2752: ,p_msg_text => null
2753: );
2753: );
2754:
2755: end if;
2756:
2757: FEM_ENGINES_PKG.Tech_Message (
2758: p_severity => G_LOG_LEVEL_2
2759: ,p_module => G_BLOCK||'.'||L_API_NAME
2760: ,p_msg_text => 'END'
2761: );
2763: EXCEPTION
2764:
2765: when l_rule_prep_error then
2766:
2767: FEM_ENGINES_PKG.Tech_Message (
2768: p_severity => g_log_level_6
2769: ,p_module => G_BLOCK||'.'||L_API_NAME
2770: ,p_msg_text => 'Rule Preparation Exception'
2771: );
2805: l_register_rule_error exception;
2806:
2807: BEGIN
2808:
2809: FEM_ENGINES_PKG.Tech_Message (
2810: p_severity => G_LOG_LEVEL_2
2811: ,p_module => G_BLOCK||'.'||L_API_NAME
2812: ,p_msg_text => 'BEGIN'
2813: );
2913: );
2914:
2915: commit;
2916:
2917: FEM_ENGINES_PKG.Tech_Message (
2918: p_severity => G_LOG_LEVEL_2
2919: ,p_module => G_BLOCK||'.'||L_API_NAME
2920: ,p_msg_text => 'END'
2921: );
2925: when l_register_rule_error then
2926:
2927: rollback to register_rule_pub;
2928:
2929: FEM_ENGINES_PKG.Tech_Message (
2930: p_severity => G_LOG_LEVEL_6
2931: ,p_module => G_BLOCK||'.'||L_API_NAME
2932: ,p_msg_text => 'Register Rule Exception'
2933: );
2975: l_register_obj_def_error exception;
2976:
2977: BEGIN
2978:
2979: FEM_ENGINES_PKG.Tech_Message (
2980: p_severity => G_LOG_LEVEL_2
2981: ,p_module => G_BLOCK||'.'||L_API_NAME
2982: ,p_msg_text => 'BEGIN'
2983: );
3006: );
3007: raise l_register_obj_def_error;
3008: end if;
3009:
3010: FEM_ENGINES_PKG.Tech_Message (
3011: p_severity => G_LOG_LEVEL_2
3012: ,p_module => G_BLOCK||'.'||L_API_NAME
3013: ,p_msg_text => 'END'
3014: );
3016: EXCEPTION
3017:
3018: when l_register_obj_def_error then
3019:
3020: FEM_ENGINES_PKG.Tech_Message (
3021: p_severity => g_log_level_6
3022: ,p_module => G_BLOCK||'.'||L_API_NAME
3023: ,p_msg_text => 'Register Object Definition Exception'
3024: );
3057: l_register_table_error exception;
3058:
3059: BEGIN
3060:
3061: FEM_ENGINES_PKG.Tech_Message (
3062: p_severity => G_LOG_LEVEL_2
3063: ,p_module => G_BLOCK||'.'||L_API_NAME
3064: ,p_msg_text => 'BEGIN'
3065: );
3088: );
3089: raise l_register_table_error;
3090: end if;
3091:
3092: FEM_ENGINES_PKG.Tech_Message (
3093: p_severity => G_LOG_LEVEL_2
3094: ,p_module => G_BLOCK||'.'||L_API_NAME
3095: ,p_msg_text => 'END'
3096: );
3098: EXCEPTION
3099:
3100: when l_register_table_error then
3101:
3102: FEM_ENGINES_PKG.Tech_Message (
3103: p_severity => g_log_level_6
3104: ,p_module => G_BLOCK||'.'||L_API_NAME
3105: ,p_msg_text => 'Register Table Exception'
3106: );
3139: l_register_obj_exec_step_error exception;
3140:
3141: BEGIN
3142:
3143: FEM_ENGINES_PKG.Tech_Message (
3144: p_severity => G_LOG_LEVEL_2
3145: ,p_module => G_BLOCK||'.'||L_API_NAME
3146: ,p_msg_text => 'BEGIN'
3147: );
3169: end if;
3170:
3171: commit;
3172:
3173: FEM_ENGINES_PKG.Tech_Message (
3174: p_severity => G_LOG_LEVEL_2
3175: ,p_module => G_BLOCK||'.'||L_API_NAME
3176: ,p_msg_text => 'END'
3177: );
3179: EXCEPTION
3180:
3181: when l_register_obj_exec_step_error then
3182:
3183: FEM_ENGINES_PKG.Tech_Message (
3184: p_severity => g_log_level_6
3185: ,p_module => G_BLOCK||'.'||L_API_NAME
3186: ,p_msg_text => 'Register Object Execution Step Exception'
3187: );
3220: l_upd_obj_exec_step_stat_error exception;
3221:
3222: BEGIN
3223:
3224: FEM_ENGINES_PKG.Tech_Message (
3225: p_severity => G_LOG_LEVEL_2
3226: ,p_module => G_BLOCK||'.'||L_API_NAME
3227: ,p_msg_text => 'BEGIN'
3228: );
3250: end if;
3251:
3252: commit;
3253:
3254: FEM_ENGINES_PKG.Tech_Message (
3255: p_severity => G_LOG_LEVEL_2
3256: ,p_module => G_BLOCK||'.'||L_API_NAME
3257: ,p_msg_text => 'END'
3258: );
3260: EXCEPTION
3261:
3262: when l_upd_obj_exec_step_stat_error then
3263:
3264: FEM_ENGINES_PKG.Tech_Message (
3265: p_severity => g_log_level_6
3266: ,p_module => G_BLOCK||'.'||L_API_NAME
3267: ,p_msg_text => 'Register Object Execution Step Exception'
3268: );
3299: l_create_temp_objects_error exception;
3300:
3301: BEGIN
3302:
3303: FEM_ENGINES_PKG.Tech_Message (
3304: p_severity => G_LOG_LEVEL_2
3305: ,p_module => G_BLOCK||'.'||L_API_NAME
3306: ,p_msg_text => 'BEGIN'
3307: );
3315: -- allow hardcoded schemas.
3316: execute immediate 'create sequence '||p_rule_rec.rate_sequence_name;
3317: exception
3318: when others then
3319: FEM_ENGINES_PKG.User_Message (
3320: p_app_name => G_FEM
3321: ,p_msg_name => G_ENG_CREATE_SEQUENCE_ERR
3322: ,p_token1 => 'SEQUENCE_NAME'
3323: ,p_value1 => p_rule_rec.rate_sequence_name
3360: -- allow hardcoded schemas.
3361: execute immediate 'create sequence '||p_rule_rec.drv_sequence_name;
3362: exception
3363: when others then
3364: FEM_ENGINES_PKG.User_Message (
3365: p_app_name => G_FEM
3366: ,p_msg_name => G_ENG_CREATE_SEQUENCE_ERR
3367: ,p_token1 => 'SEQUENCE_NAME'
3368: ,p_value1 => p_rule_rec.drv_sequence_name
3395: end if;
3396:
3397: commit;
3398:
3399: FEM_ENGINES_PKG.Tech_Message (
3400: p_severity => G_LOG_LEVEL_2
3401: ,p_module => G_BLOCK||'.'||L_API_NAME
3402: ,p_msg_text => 'END'
3403: );
3405: EXCEPTION
3406:
3407: when l_create_temp_objects_error then
3408:
3409: FEM_ENGINES_PKG.Tech_Message (
3410: p_severity => g_log_level_6
3411: ,p_module => G_BLOCK||'.'||L_API_NAME
3412: ,p_msg_text => 'Create Temporary Objects Exception'
3413: );
3447: l_drop_temp_objects_error exception;
3448:
3449: BEGIN
3450:
3451: FEM_ENGINES_PKG.Tech_Message (
3452: p_severity => G_LOG_LEVEL_2
3453: ,p_module => G_BLOCK||'.'||L_API_NAME
3454: ,p_msg_text => 'BEGIN'
3455: );
3486:
3487: exception
3488: when others then
3489: l_completion_status := FND_CONCURRENT.Set_Completion_Status('WARNING',null);
3490: FEM_ENGINES_PKG.User_Message (
3491: p_app_name => G_FEM
3492: ,p_msg_name => G_ENG_DROP_SEQUENCE_WRN
3493: ,p_token1 => 'SEQUENCE_NAME'
3494: ,p_value1 => p_rule_rec.rate_sequence_name
3531:
3532: exception
3533: when others then
3534: l_completion_status := FND_CONCURRENT.Set_Completion_Status('WARNING',null);
3535: FEM_ENGINES_PKG.User_Message (
3536: p_app_name => G_FEM
3537: ,p_msg_name => G_ENG_DROP_SEQUENCE_WRN
3538: ,p_token1 => 'SEQUENCE_NAME'
3539: ,p_value1 => p_rule_rec.drv_sequence_name
3543: commit;
3544:
3545: end if;
3546:
3547: FEM_ENGINES_PKG.Tech_Message (
3548: p_severity => G_LOG_LEVEL_2
3549: ,p_module => G_BLOCK||'.'||L_API_NAME
3550: ,p_msg_text => 'END'
3551: );
3553: EXCEPTION
3554:
3555: when l_drop_temp_objects_error then
3556:
3557: FEM_ENGINES_PKG.Tech_Message (
3558: p_severity => g_log_level_6
3559: ,p_module => G_BLOCK||'.'||L_API_NAME
3560: ,p_msg_text => 'Drop Temp Objects Exception'
3561: );
3610: l_all_driver_invalid_error exception;
3611:
3612: BEGIN
3613:
3614: FEM_ENGINES_PKG.Tech_Message (
3615: p_severity => G_LOG_LEVEL_2
3616: ,p_module => G_BLOCK||'.'||L_API_NAME
3617: ,p_msg_text => 'BEGIN'
3618: );
3623: ------------------------------------------------------------------------------
3624: -- STEP 1: Assign the driver where clause
3625: ------------------------------------------------------------------------------
3626:
3627: FEM_ENGINES_PKG.Tech_Message (
3628: p_severity => G_LOG_LEVEL_1
3629: ,p_module => G_BLOCK||'.'||L_API_NAME
3630: ,p_msg_text => 'Step 1: Assign Driver Where Clause'
3631: );
3662: ------------------------------------------------------------------------------
3663: -- STEP 2: Generate Conditions Predicate for Activity Rate Rule
3664: ------------------------------------------------------------------------------
3665:
3666: FEM_ENGINES_PKG.Tech_Message (
3667: p_severity => G_LOG_LEVEL_1
3668: ,p_module => G_BLOCK||'.'||L_API_NAME
3669: ,p_msg_text => 'Step 2: Generate Conditions Predicate for Activity Rate Rule'
3670: );
3699: raise l_process_drivers_proc_error;
3700: end if;
3701:
3702: if (l_act_cond_where_clause is null) then
3703: FEM_ENGINES_PKG.User_Message (
3704: p_app_name => G_FEM
3705: ,p_msg_name => G_ENG_COND_WHERE_CLAUSE_ERR
3706: ,p_token1 => 'CONDITION_OBJECT_ID'
3707: ,p_value1 => p_rule_rec.cond_obj_id
3720: ------------------------------------------------------------------------------
3721: -- STEP 3: Populate data into the RATE DRIVER table
3722: ------------------------------------------------------------------------------
3723:
3724: FEM_ENGINES_PKG.Tech_Message (
3725: p_severity => G_LOG_LEVEL_1
3726: ,p_module => G_BLOCK||'.'||L_API_NAME
3727: ,p_msg_text => 'Step 3: Populate data into the RATE DRIVER table'
3728: );
3846:
3847: if (l_mp_prog_status <> G_COMPLETE_NORMAL) then
3848:
3849: if (l_mp_exception_code is not null) then
3850: FEM_ENGINES_PKG.User_Message (
3851: p_app_name => G_FEM
3852: ,p_msg_name => l_mp_exception_code
3853: );
3854: end if;
3903: -- ammittal - commented to let the exception fall through
3904: -- EXCEPTION
3905:
3906: -- WHEN OTHERS THEN
3907: -- FEM_ENGINES_PKG.User_Message (
3908: -- p_app_name => G_FEM
3909: -- ,p_msg_name => G_AR_INSERT_ACT_DRIV_ERR
3910: -- );
3911: -- raise l_process_drivers_proc_error;
3911: -- raise l_process_drivers_proc_error;
3912:
3913: END;
3914:
3915: FEM_ENGINES_PKG.Tech_Message (
3916: p_severity => G_LOG_LEVEL_2
3917: ,p_module => G_BLOCK||'.'||L_API_NAME
3918: ,p_msg_text => 'END'
3919: );
3921: EXCEPTION
3922:
3923: when l_all_driver_invalid_error then
3924:
3925: FEM_ENGINES_PKG.Tech_Message (
3926: p_severity => G_LOG_LEVEL_6
3927: ,p_module => G_BLOCK||'.'||L_API_NAME
3928: ,p_msg_text => 'Process Driver All Invalid Driver Exception'
3929: );
3927: ,p_module => G_BLOCK||'.'||L_API_NAME
3928: ,p_msg_text => 'Process Driver All Invalid Driver Exception'
3929: );
3930:
3931: FEM_ENGINES_PKG.User_Message (
3932: p_app_name => G_PFT
3933: ,p_msg_name => G_AR_ALL_INV_DRIV_ERR
3934: ,p_token1 => 'TABLE_NAME'
3935: ,p_value1 => 'PFT_AR_DRIVERS_T'
3940: raise g_act_rate_request_error;
3941:
3942: when l_no_driver_error then
3943:
3944: FEM_ENGINES_PKG.Tech_Message (
3945: p_severity => G_LOG_LEVEL_6
3946: ,p_module => G_BLOCK||'.'||L_API_NAME
3947: ,p_msg_text => 'Process Driver No Driver Exception'
3948: );
3946: ,p_module => G_BLOCK||'.'||L_API_NAME
3947: ,p_msg_text => 'Process Driver No Driver Exception'
3948: );
3949:
3950: FEM_ENGINES_PKG.User_Message (
3951: p_app_name => G_PFT
3952: ,p_msg_name => G_AR_NO_DRIVER_ERR
3953: ,p_token1 => 'TABLE_NAME'
3954: ,p_value1 => 'PFT_ACTIVITY_DRIVER_ASGN'
3960:
3961:
3962: when l_process_drivers_proc_error then
3963:
3964: FEM_ENGINES_PKG.Tech_Message (
3965: p_severity => G_LOG_LEVEL_6
3966: ,p_module => G_BLOCK||'.'||L_API_NAME
3967: ,p_msg_text => 'Rule Post Process Exception'
3968: );
3966: ,p_module => G_BLOCK||'.'||L_API_NAME
3967: ,p_msg_text => 'Rule Post Process Exception'
3968: );
3969:
3970: FEM_ENGINES_PKG.User_Message (
3971: p_app_name => G_FEM
3972: ,p_msg_name => G_ENG_RULE_POST_PROC_ERR
3973: );
3974:
4062: l_invalid_reason_tbl g_invalid_reason_table;
4063:
4064: BEGIN
4065:
4066: FEM_ENGINES_PKG.Tech_Message (
4067: p_severity => G_LOG_LEVEL_2
4068: ,p_module => G_BLOCK||'.'||L_API_NAME
4069: ,p_msg_text => 'BEGIN'
4070: );
4088: ------------------------------------------------------------------------------
4089: -- STEP 1: Build MP SQL Statement for fetching rows in PFT_AR_DRIVERS_T
4090: ------------------------------------------------------------------------------
4091:
4092: FEM_ENGINES_PKG.Tech_Message (
4093: p_severity => G_LOG_LEVEL_1
4094: ,p_module => G_BLOCK||'.'||L_API_NAME
4095: ,p_msg_text => 'Step 1: Build MP SQL Statement for fetching rows in PFT_AR_DRIVERS_T'
4096: );
4143: l_ar_drivers_stmt := REPLACE(l_ar_drivers_stmt
4144: ,'{{table_partition}}',' PARTITION('||l_part_name||') ');
4145: end if;
4146:
4147: FEM_ENGINES_PKG.Tech_Message (
4148: p_severity => G_LOG_LEVEL_1
4149: ,p_module => G_BLOCK||'.'||L_API_NAME
4150: ,p_msg_text => 'l_ar_drivers_stmt = '||l_ar_drivers_stmt
4151: );
4153: ------------------------------------------------------------------------------
4154: -- STEP 2: Open MP Cursor for fetching rows in PFT_AR_DRIVERS_T
4155: ------------------------------------------------------------------------------
4156:
4157: FEM_ENGINES_PKG.Tech_Message (
4158: p_severity => G_LOG_LEVEL_1
4159: ,p_module => G_BLOCK||'.'||L_API_NAME
4160: ,p_msg_text => 'Step 2: Open MP Cursor for fetching rows in PFT_AR_DRIVERS_T'
4161: );
4201:
4202: <
4203: loop
4204:
4205: FEM_ENGINES_PKG.Tech_Message (
4206: p_severity => G_LOG_LEVEL_1
4207: ,p_module => G_BLOCK||'.'||L_API_NAME
4208: ,p_msg_text =>
4209: 'Step 3.'||to_char(i)||
4253: exit next_driver;
4254: end if;
4255:
4256: if (l_input_ds_d_where_clause is null) then
4257: FEM_ENGINES_PKG.User_Message (
4258: p_app_name => G_FEM
4259: ,p_msg_name => G_ENG_BAD_DS_WCLAUSE_ERR
4260: );
4261: l_valid_flag_tbl(i) := 'N';
4329: -- as the statistic value can be null in FEM_BALANCES
4330: if ((l_driver_value_tbl(i) = 0)
4331: OR (l_driver_value_tbl(i) IS NULL)) then
4332:
4333: FEM_ENGINES_PKG.User_Message (
4334: p_app_name => G_PFT
4335: ,p_msg_name => G_AR_ZERO_DRV_VAL_ERR
4336: ,p_token1 => 'SOURCE_TABLE_NAME'
4337: ,p_value1 => l_drv_table_name_tbl(i)
4351: end if;
4352:
4353: exception
4354: when others then
4355: FEM_ENGINES_PKG.User_Message (
4356: p_app_name => G_PFT
4357: ,p_msg_name => G_AR_INSERT_ACT_DRIV_ERR
4358: ,p_token1 => 'TABLE_NAME'
4359: ,p_value1 => l_statistic_basis_id_tbl(i)
4392: ----------------------------------------------------------------------------
4393: -- STEP 4: Bulk Update PFT_AR_DRIVERS_T Table
4394: ----------------------------------------------------------------------------
4395:
4396: FEM_ENGINES_PKG.Tech_Message (
4397: p_severity => G_LOG_LEVEL_1
4398: ,p_module => G_BLOCK||'.'||L_API_NAME
4399: ,p_msg_text => 'Step 4: Bulk Update PFT_AR_DRIVERS_T Table'
4400: );
4413: ----------------------------------------------------------------------------
4414: -- STEP 5: Build MP SQL Statement for bulk insert into PFT_AR_DRIVER_VALUES_T
4415: ----------------------------------------------------------------------------
4416:
4417: FEM_ENGINES_PKG.Tech_Message (
4418: p_severity => G_LOG_LEVEL_1
4419: ,p_module => G_BLOCK||'.'||L_API_NAME
4420: ,p_msg_text => 'Step 5: Build MP SQL Statement for bulk insert into PFT_AR_DRIVER_VALUES_T'
4421: );
4478: ------------------------------------------------------------------------------
4479: -- STEP 6: Execute MP SQL Statement for bulk insert into PFT_AR_DRIVER_VALUES_T
4480: ------------------------------------------------------------------------------
4481:
4482: FEM_ENGINES_PKG.Tech_Message (
4483: p_severity => G_LOG_LEVEL_1
4484: ,p_module => G_BLOCK||'.'||L_API_NAME
4485: ,p_msg_text => 'Step 6: Execute MP SQL Statement for bulk insert into PFT_AR_DRIVER_VALUES_T'
4486: );
4537: ,p_rows_rejected => l_rows_loaded - l_rows_processed
4538: );
4539: end if;
4540:
4541: FEM_ENGINES_PKG.Tech_Message (
4542: p_severity => G_LOG_LEVEL_2
4543: ,p_module => G_BLOCK||'.'||L_API_NAME
4544: ,p_msg_text => 'END'
4545: );
4569: ,p_rows_rejected => l_rows_loaded - l_rows_processed
4570: );
4571: end if;
4572:
4573: FEM_ENGINES_PKG.Tech_Message (
4574: p_severity => G_LOG_LEVEL_6
4575: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4576: ,p_msg_text => g_prg_msg
4577: );
4575: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4576: ,p_msg_text => g_prg_msg
4577: );
4578:
4579: FEM_ENGINES_PKG.Tech_Message (
4580: p_severity => G_LOG_LEVEL_6
4581: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4582: ,p_msg_text => g_callstack
4583: );
4581: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4582: ,p_msg_text => g_callstack
4583: );
4584:
4585: FEM_ENGINES_PKG.User_Message (
4586: p_app_name => G_FEM
4587: ,p_msg_name => G_UNEXPECTED_ERROR
4588: ,p_token1 => 'ERR_MSG'
4589: ,p_value1 => g_prg_msg
4636: l_register_driver_chains_error exception;
4637:
4638: BEGIN
4639:
4640: FEM_ENGINES_PKG.Tech_Message (
4641: p_severity => G_LOG_LEVEL_2
4642: ,p_module => G_BLOCK||'.'||L_API_NAME
4643: ,p_msg_text => 'BEGIN'
4644: );
4724: end loop;
4725:
4726: close l_drv_chain_csr;
4727:
4728: FEM_ENGINES_PKG.Tech_Message (
4729: p_severity => G_LOG_LEVEL_2
4730: ,p_module => G_BLOCK||'.'||L_API_NAME
4731: ,p_msg_text => 'END'
4732: );
4738: if (l_drv_chain_csr%ISOPEN) then
4739: close l_drv_chain_csr;
4740: end if;
4741:
4742: FEM_ENGINES_PKG.Tech_Message (
4743: p_severity => G_LOG_LEVEL_6
4744: ,p_module => G_BLOCK||'.'||L_API_NAME
4745: ,p_msg_text => 'Register Driver Chains Exception'
4746: );
4763: if (l_drv_chain_csr%ISOPEN) then
4764: close l_drv_chain_csr;
4765: end if;
4766:
4767: FEM_ENGINES_PKG.Tech_Message (
4768: p_severity => G_LOG_LEVEL_6
4769: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4770: ,p_msg_text => g_prg_msg
4771: );
4769: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4770: ,p_msg_text => g_prg_msg
4771: );
4772:
4773: FEM_ENGINES_PKG.Tech_Message (
4774: p_severity => G_LOG_LEVEL_6
4775: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4776: ,p_msg_text => g_callstack
4777: );
4775: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4776: ,p_msg_text => g_callstack
4777: );
4778:
4779: FEM_ENGINES_PKG.User_Message (
4780: p_app_name => G_FEM
4781: ,p_msg_name => G_UNEXPECTED_ERROR
4782: ,p_token1 => 'ERR_MSG'
4783: ,p_value1 => g_prg_msg
4826: l_register_source_chains_error exception;
4827:
4828: BEGIN
4829:
4830: FEM_ENGINES_PKG.Tech_Message (
4831: p_severity => G_LOG_LEVEL_2
4832: ,p_module => G_BLOCK||'.'||L_API_NAME
4833: ,p_msg_text => 'BEGIN'
4834: );
4922: end loop;
4923:
4924: close l_find_source_chains_csr;
4925:
4926: FEM_ENGINES_PKG.Tech_Message (
4927: p_severity => G_LOG_LEVEL_2
4928: ,p_module => G_BLOCK||'.'||L_API_NAME
4929: ,p_msg_text => 'END'
4930: );
4936: if (l_find_source_chains_csr%ISOPEN) then
4937: close l_find_source_chains_csr;
4938: end if;
4939:
4940: FEM_ENGINES_PKG.Tech_Message (
4941: p_severity => g_log_level_6
4942: ,p_module => G_BLOCK||'.'||L_API_NAME
4943: ,p_msg_text => 'Register Source Chains Exception'
4944: );
4961: if (l_find_source_chains_csr%ISOPEN) then
4962: close l_find_source_chains_csr;
4963: end if;
4964:
4965: FEM_ENGINES_PKG.Tech_Message (
4966: p_severity => g_log_level_6
4967: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4968: ,p_msg_text => g_prg_msg
4969: );
4967: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4968: ,p_msg_text => g_prg_msg
4969: );
4970:
4971: FEM_ENGINES_PKG.Tech_Message (
4972: p_severity => g_log_level_6
4973: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4974: ,p_msg_text => g_callstack
4975: );
4973: ,p_module => G_BLOCK||'.'||L_API_NAME||'.Unexpected_Exception'
4974: ,p_msg_text => g_callstack
4975: );
4976:
4977: FEM_ENGINES_PKG.User_Message (
4978: p_app_name => G_FEM
4979: ,p_msg_name => G_UNEXPECTED_ERROR
4980: ,p_token1 => 'ERR_MSG'
4981: ,p_value1 => g_prg_msg
5020: l_rule_post_proc_error exception;
5021:
5022: BEGIN
5023:
5024: FEM_ENGINES_PKG.Tech_Message (
5025: p_severity => G_LOG_LEVEL_2
5026: ,p_module => G_BLOCK||'.'||L_API_NAME
5027: ,p_msg_text => 'BEGIN'
5028: );
5029:
5030: ------------------------------------------------------------------------------
5031: -- STEP 1: Drop all Temp Objects created for the Rollup Rule
5032: ------------------------------------------------------------------------------
5033: FEM_ENGINES_PKG.Tech_Message (
5034: p_severity => G_LOG_LEVEL_1
5035: ,p_module => G_BLOCK||'.'||L_API_NAME
5036: ,p_msg_text => 'Step 1: Drop all Temp Objects'
5037: );
5046: -- FEM_BALANCES before purging PFT_AR_DRIVER_VALUES_T.
5047: ------------------------------------------------------------------------------
5048: if (p_exec_status_code = G_EXEC_STATUS_SUCCESS) then
5049:
5050: FEM_ENGINES_PKG.Tech_Message (
5051: p_severity => G_LOG_LEVEL_1
5052: ,p_module => G_BLOCK||'.'||L_API_NAME
5053: ,p_msg_text => 'Step 2: Update Number of Input Rows'
5054: );
5110: if (p_exec_status_code = G_EXEC_STATUS_SUCCESS) then
5111: ----------------------------------------------------------------------------
5112: -- STEP 2.1: Delete all records in the PFT_AR_DRIVER_VALUES_T table
5113: ----------------------------------------------------------------------------
5114: FEM_ENGINES_PKG.Tech_Message (
5115: p_severity => G_LOG_LEVEL_1
5116: ,p_module => G_BLOCK||'.'||L_API_NAME
5117: ,p_msg_text => 'Step 2.1: Purging Records in PFT_AR_DRIVER_VALUES_T'
5118: );
5126: ----------------------------------------------------------------------------
5127: -- STEP 2.2: Delete all records in the PFT_AR_DRIVERS_T table
5128: ----------------------------------------------------------------------------
5129:
5130: FEM_ENGINES_PKG.Tech_Message (
5131: p_severity => G_LOG_LEVEL_1
5132: ,p_module => G_BLOCK||'.'||L_API_NAME
5133: ,p_msg_text => 'Step 2.2: Purging Records in PFT_AR_DRIVERS_T'
5134: );
5143:
5144: ------------------------------------------------------------------------------
5145: -- STEP 3: Update Number of Output Rows.
5146: ------------------------------------------------------------------------------
5147: FEM_ENGINES_PKG.Tech_Message (
5148: p_severity => G_LOG_LEVEL_1
5149: ,p_module => G_BLOCK||'.'||L_API_NAME
5150: ,p_msg_text => 'Step 3: Update Number of Output Rows'
5151: );
5196:
5197: ------------------------------------------------------------------------------
5198: -- STEP 4: Update Object Execution Status.
5199: ------------------------------------------------------------------------------
5200: FEM_ENGINES_PKG.Tech_Message (
5201: p_severity => G_LOG_LEVEL_1
5202: ,p_module => G_BLOCK||'.'||L_API_NAME
5203: ,p_msg_text => 'Step 4: Update Object Execution Status'
5204: );
5228: -- STEP 5: Update Object Execution Errors.
5229: ------------------------------------------------------------------------------
5230: if (p_exec_status_code <> G_EXEC_STATUS_SUCCESS) then
5231:
5232: FEM_ENGINES_PKG.Tech_Message (
5233: p_severity => G_LOG_LEVEL_1
5234: ,p_module => G_BLOCK||'.'||L_API_NAME
5235: ,p_msg_text => 'Step 5: Update Object Execution Errors'
5236: );
5261: end if;
5262:
5263: commit;
5264:
5265: FEM_ENGINES_PKG.Tech_Message (
5266: p_severity => G_LOG_LEVEL_2
5267: ,p_module => G_BLOCK||'.'||L_API_NAME
5268: ,p_msg_text => 'END'
5269: );
5271: EXCEPTION
5272:
5273: when l_rule_post_proc_error then
5274:
5275: FEM_ENGINES_PKG.Tech_Message (
5276: p_severity => g_log_level_6
5277: ,p_module => G_BLOCK||'.'||L_API_NAME
5278: ,p_msg_text => 'Rule Post Process Exception'
5279: );
5277: ,p_module => G_BLOCK||'.'||L_API_NAME
5278: ,p_msg_text => 'Rule Post Process Exception'
5279: );
5280:
5281: FEM_ENGINES_PKG.User_Message (
5282: p_app_name => G_FEM
5283: ,p_msg_name => G_ENG_RULE_POST_PROC_ERR
5284: );
5285:
5315: l_request_post_proc_error exception;
5316:
5317: BEGIN
5318:
5319: FEM_ENGINES_PKG.Tech_Message (
5320: p_severity => G_LOG_LEVEL_2
5321: ,p_module => G_BLOCK||'.'||L_API_NAME
5322: ,p_msg_text => 'BEGIN'
5323: );
5326:
5327: ----------------------------------------------------------------------------
5328: -- STEP 1: Purge RULE_SET_PROCESS_DATA table
5329: ----------------------------------------------------------------------------
5330: FEM_ENGINES_PKG.Tech_Message (
5331: p_severity => G_LOG_LEVEL_1
5332: ,p_module => G_BLOCK||'.'||L_API_NAME
5333: ,p_msg_text => 'Step 1: Purge RULE_SET_PROCESS_DATA table'
5334: );
5356:
5357: ------------------------------------------------------------------------------
5358: -- STEP 2: Update Request Status.
5359: ------------------------------------------------------------------------------
5360: FEM_ENGINES_PKG.Tech_Message (
5361: p_severity => G_LOG_LEVEL_1
5362: ,p_module => G_BLOCK||'.'||L_API_NAME
5363: ,p_msg_text => 'Step 2: Update Request Status'
5364: );
5387:
5388: ------------------------------------------------------------------------------
5389: -- STEP 3: Set the final execution status message in the log file.
5390: ------------------------------------------------------------------------------
5391: FEM_ENGINES_PKG.Tech_Message (
5392: p_severity => G_LOG_LEVEL_1
5393: ,p_module => G_BLOCK||'.'||L_API_NAME
5394: ,p_msg_text => 'Step 3: Set the final execution message in the Log File'
5395: );
5394: ,p_msg_text => 'Step 3: Set the final execution message in the Log File'
5395: );
5396:
5397: if (p_exec_status_code = G_EXEC_STATUS_SUCCESS) then
5398: FEM_ENGINES_PKG.user_message (
5399: p_app_name => G_FEM
5400: ,p_msg_name => G_EXEC_SUCCESS
5401: );
5402: else
5399: p_app_name => G_FEM
5400: ,p_msg_name => G_EXEC_SUCCESS
5401: );
5402: else
5403: FEM_ENGINES_PKG.user_message (
5404: p_app_name => G_FEM
5405: ,p_msg_name => G_EXEC_RERUN
5406: );
5407: end if;
5405: ,p_msg_name => G_EXEC_RERUN
5406: );
5407: end if;
5408:
5409: FEM_ENGINES_PKG.Tech_Message (
5410: p_severity => G_LOG_LEVEL_2
5411: ,p_module => G_BLOCK||'.'||L_API_NAME
5412: ,p_msg_text => 'END'
5413: );
5415: EXCEPTION
5416:
5417: when l_request_post_proc_error then
5418:
5419: FEM_ENGINES_PKG.Tech_Message (
5420: p_severity => g_log_level_6
5421: ,p_module => G_BLOCK||'.'||L_API_NAME
5422: ,p_msg_text => 'Request Post Process Exception'
5423: );
5421: ,p_module => G_BLOCK||'.'||L_API_NAME
5422: ,p_msg_text => 'Request Post Process Exception'
5423: );
5424:
5425: FEM_ENGINES_PKG.User_Message (
5426: p_app_name => G_FEM
5427: ,p_msg_name => G_ENG_REQ_POST_PROC_ERR
5428: );
5429:
5500: l_message varchar2(4000);
5501:
5502: BEGIN
5503:
5504: FEM_ENGINES_PKG.Tech_Message (
5505: p_severity => G_LOG_LEVEL_2
5506: ,p_module => G_BLOCK||'.'||L_API_NAME
5507: ,p_msg_text => 'msg_count='||p_msg_count
5508: );
5513:
5514: FND_MESSAGE.Set_Encoded(l_msg_data);
5515: l_message := FND_MESSAGE.Get;
5516:
5517: FEM_ENGINES_PKG.User_Message (
5518: p_msg_text => l_message
5519: );
5520:
5521: FEM_ENGINES_PKG.Tech_Message (
5517: FEM_ENGINES_PKG.User_Message (
5518: p_msg_text => l_message
5519: );
5520:
5521: FEM_ENGINES_PKG.Tech_Message (
5522: p_severity => G_LOG_LEVEL_2
5523: ,p_module => G_BLOCK||'.'||L_API_NAME
5524: ,p_msg_text => 'msg_data='||l_message
5525: );
5534: ,p_data => l_message
5535: ,p_msg_index_out => l_msg_out
5536: );
5537:
5538: FEM_ENGINES_PKG.User_Message (
5539: p_msg_text => l_message
5540: );
5541:
5542: FEM_ENGINES_PKG.Tech_Message (
5538: FEM_ENGINES_PKG.User_Message (
5539: p_msg_text => l_message
5540: );
5541:
5542: FEM_ENGINES_PKG.Tech_Message (
5543: p_severity => G_LOG_LEVEL_2
5544: ,p_module => G_BLOCK||'.'||L_API_NAME
5545: ,p_msg_text => 'msg_data='||l_message
5546: );