[Home] [Help]
18: BEGIN
19: IF wsurl IS NULL THEN
20: RETURN TRUE;
21: END IF;
22: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIScenarioExecute(scenario_name,scenario_version,scenario_param,wsurl)
23: INTO return_str
24: FROM dual;
25:
26: EXCEPTION
71: END IF;
72:
73: -- Changes for 11G
74: IF ( (session_num <> '-1') AND (LENGTH(err_message) IS NULL) ) THEN
75: err_msg1 := MSC_E1APS_UTIL.GetODIErrorMessage(session_num);
76: IF ( LENGTH(err_msg1) IS NOT NULL ) THEN
77: MSC_UTIL.LOG_MSG(MSC_UTIL.G_LVL_FATAL_ERR, 'ODI Scenario '
78: || scenario_name
79: || ' FAILED. Session # : ' || session_num);
140: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
141: scenario_param := scenario_param
142: ||l_instance_code
143: || ':'
144: || MSC_E1APS_UTIL.COL_PRC_UOM;
145: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
146:
147: IF pre_process_odi = FALSE THEN
148: /* Executing Mail Scenario */
275: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
276: scenario_param := scenario_param
277: ||l_instance_code
278: || ':'
279: || MSC_E1APS_UTIL.COL_PRC_UOM;
280: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
281:
282: /* Executing Mail Scenario */
283: scenario_name := 'MAIL';
361: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
362: scenario_param := scenario_param
363: ||l_instance_code
364: || ':'
365: || MSC_E1APS_UTIL.COL_SALES_HST;
366: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
367:
368: IF pre_process_odi = FALSE THEN
369: /* Executing Mail Scenario */
449: /*ODI Initialize*/
450: odi_url := fnd_profile.value('MSC_E1APS_ODIURL');
451: IF odi_url IS NOT NULL THEN
452: BEGIN
453: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
454: INTO ReturnStr
455: FROM dual;
456:
457: EXCEPTION
563: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
564: scenario_param := scenario_param
565: ||l_instance_code
566: || ':'
567: || MSC_E1APS_UTIL.COL_SALES_HST;
568: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
569:
570: IF post_process_odi = FALSE THEN
571: /* Executing Mail Scenario */
653: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
654: scenario_param := scenario_param
655: ||l_instance_code
656: || ':'
657: || MSC_E1APS_UTIL.COL_PTP_DATA;
658: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
659:
660: IF pre_process_odi = FALSE THEN
661: /* Executing Mail Scenario */
673: odi_url := fnd_profile.value('MSC_E1APS_ODIURL');
674: /* Invoke ODISenario*/
675: IF odi_url IS NOT NULL THEN
676: BEGIN
677: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
678: INTO ReturnStr
679: FROM dual;
680:
681: EXCEPTION
753:
754: IF fc_ret_value THEN
755: /* Calling LIST PRICE DEM WorkFlow*/
756: l_wf_lookup_code := 'WF_AIA_E1_PTP_PROMOPRICE_DWNLD';
757: MSC_E1APS_UTIL.DEM_WORKFLOW(errbuf, RETCODE,l_wf_lookup_code , process_id, l_user_id);
758: IF retcode= -1 OR process_id= -1 THEN
759: msd_dem_common_utilities.log_message('LIST PRICE DEM WORKFLOW NOT LAUNCHED. Process ID: ' || process_id);
760: RETCODE := MSC_UTIL.G_ERROR;
761: RETURN;
810:
811: IF fc_ret_value THEN
812: /* Calling DEM WorkFlow*/
813: l_wf_lookup_code := 'WF_AIA_E1_PTP_PROMOCOST_DWNLD';
814: MSC_E1APS_UTIL.DEM_WORKFLOW(errbuf, RETCODE,l_wf_lookup_code , process_id, l_user_id);
815: IF retcode= -1 OR process_id= -1 THEN
816: msd_dem_common_utilities.log_message('ITEM COST DEM WORKFLOW NOT LAUNCHED.' || process_id);
817: RETCODE := MSC_UTIL.G_ERROR;
818: RETURN;
864:
865: IF fc_ret_value THEN
866: /* Calling DEM WorkFlow*/
867: l_wf_lookup_code := 'WF_AIA_E1_PTP_PRICEHIST_DWNLD';
868: MSC_E1APS_UTIL.DEM_WORKFLOW(errbuf, RETCODE,l_wf_lookup_code , process_id, l_user_id);
869: IF retcode= -1 OR process_id= -1 THEN
870: msd_dem_common_utilities.log_message('PRICE HISTORY DEM WORKFLOW NOT LAUNCHED.Process ID: ' || process_id);
871: RETCODE := MSC_UTIL.G_ERROR;
872: RETURN;
882: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
883: scenario_param := scenario_param
884: ||l_instance_code
885: || ':'
886: || MSC_E1APS_UTIL.COL_PTP_DATA;
887:
888: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
889:
890: IF post_process_odi = FALSE THEN
961: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
962: scenario_param := scenario_param
963: ||l_instance_code
964: || ':'
965: || MSC_E1APS_UTIL.PUB_PLAN_RES ;
966: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
967:
968: IF pre_process_odi = FALSE THEN
969: /* Executing Mail Scenario */
986: odi_url := fnd_profile.value('MSC_E1APS_ODIURL');
987: /* Invoke ODISenario*/
988: IF odi_url IS NOT NULL THEN
989: BEGIN
990: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
991: INTO ReturnStr
992: FROM dual;
993:
994: EXCEPTION
1042: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1043: scenario_param := scenario_param
1044: ||l_instance_code
1045: || ':'
1046: || MSC_E1APS_UTIL.PUB_PLAN_RES ;
1047: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1048:
1049: IF post_process_odi = FALSE THEN
1050: /* Executing Mail Scenario */
1132: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
1133: scenario_param := scenario_param
1134: ||l_instance_code
1135: || ':'
1136: || MSC_E1APS_UTIL.PUB_FCST ;
1137: pre_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1138:
1139: IF pre_process_odi = FALSE THEN
1140: /* Executing Mail Scenario */
1187:
1188: /* Invoke ODISenario */
1189: IF odi_url IS NOT NULL THEN
1190: BEGIN
1191: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1192: INTO ReturnStr
1193: FROM dual;
1194:
1195: EXCEPTION
1211:
1212: END IF;
1213:
1214: /* Launching Demantra Workflow using function PUBLISH_DEM_WORKFLOW*/
1215: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF, RETCODE, p_instance_id, l_wf_lookup_code , scenario_name,l_user_id );
1216: IF ret_value = MSC_E1APS_UTIL.DEM_SUCCESS THEN
1217: /* Launching Post-Process Custom Hook ODI Scenario */
1218: scenario_name := 'POSTPROCESSHOOKPKG';
1219: scenario_version := '001';
1212: END IF;
1213:
1214: /* Launching Demantra Workflow using function PUBLISH_DEM_WORKFLOW*/
1215: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF, RETCODE, p_instance_id, l_wf_lookup_code , scenario_name,l_user_id );
1216: IF ret_value = MSC_E1APS_UTIL.DEM_SUCCESS THEN
1217: /* Launching Post-Process Custom Hook ODI Scenario */
1218: scenario_name := 'POSTPROCESSHOOKPKG';
1219: scenario_version := '001';
1220: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1220: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1221: scenario_param := scenario_param
1222: ||l_instance_code
1223: || ':'
1224: || MSC_E1APS_UTIL.PUB_PLAN_RES ;
1225: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1226:
1227: IF post_process_odi = FALSE THEN
1228: /* Executing Mail Scenario */
1238: scenario_version := '001';
1239: scenario_param := '';
1240: ret_value1 :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1241: END IF;
1242: ELSIF ret_value = MSC_E1APS_UTIL.DEM_FAILURE THEN
1243: scenario_name :='MAIL';
1244: scenario_param:='';
1245: ret_value1 :=CALL_ODIEXE(scenario_name ,scenario_version ,scenario_param ,odi_url);
1246: RETCODE := MSC_UTIL.G_ERROR;
1245: ret_value1 :=CALL_ODIEXE(scenario_name ,scenario_version ,scenario_param ,odi_url);
1246: RETCODE := MSC_UTIL.G_ERROR;
1247: RETURN;
1248:
1249: ELSIF ret_value = MSC_E1APS_UTIL.DEM_WARNING THEN
1250: scenario_name :='MAIL';
1251: scenario_param:='';
1252: ret_value1 :=CALL_ODIEXE(scenario_name ,scenario_version ,scenario_param ,odi_url);
1253: RETCODE := MSC_UTIL.G_WARNING;
1309: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
1310: scenario_param := scenario_param
1311: ||l_instance_code
1312: || ':'
1313: || MSC_E1APS_UTIL.PUB_PTP_RES;
1314:
1315: pre_process_odi :=CALL_ODIEXE('PREPROCESSHOOKPKG',
1316: scenario_version,
1317: scenario_param,
1338: odi_url := fnd_profile.value('MSC_E1APS_ODIURL');
1339: /* Invoke ODISenario*/
1340: IF odi_url IS NOT NULL THEN
1341: BEGIN
1342: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1343: INTO ReturnStr
1344: FROM dual;
1345:
1346: EXCEPTION
1361:
1362: END IF;
1363:
1364: /* Launching Demantra Workflow using function PUBLISH_DEM_WORKFLOW*/
1365: ret_value2:= MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id,l_wf_lookup_code ,scenario_name,l_user_id );
1366:
1367:
1368: IF ret_value2 = MSC_E1APS_UTIL.DEM_FAILURE THEN
1369: scenario_name := 'MAIL';
1364: /* Launching Demantra Workflow using function PUBLISH_DEM_WORKFLOW*/
1365: ret_value2:= MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id,l_wf_lookup_code ,scenario_name,l_user_id );
1366:
1367:
1368: IF ret_value2 = MSC_E1APS_UTIL.DEM_FAILURE THEN
1369: scenario_name := 'MAIL';
1370: scenario_version := '001';
1371: scenario_param := '';
1372: ret_value1 :=CALL_ODIEXE(scenario_name ,scenario_version ,scenario_param ,odi_url);
1373: RETCODE := MSC_UTIL.G_ERROR;
1374: RETURN;
1375: END IF;
1376:
1377: IF ret_value2 = MSC_E1APS_UTIL.DEM_WARNING THEN
1378: scenario_name := 'MAIL';
1379: scenario_version := '001';
1380: scenario_param := '';
1381: ret_value1 :=CALL_ODIEXE(scenario_name ,scenario_version ,scenario_param ,odi_url);
1403: END IF;
1404: END IF; */
1405: ret_value := FALSE;
1406: scenario_name := 'LOADDMDELETEPROMOPRICINGDATATOE1PKG';
1407: IF ret_value2 = MSC_E1APS_UTIL.DEM_SUCCESS THEN
1408: ret_value:=CALL_ODIEXE(scenario_name ,'001','',odi_url);
1409: END IF;
1410:
1411: IF ret_value THEN
1416: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1417: scenario_param := scenario_param
1418: ||l_instance_code
1419: || ':'
1420: || MSC_E1APS_UTIL.PUB_PTP_RES;
1421:
1422: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1423:
1424: IF post_process_odi = FALSE THEN
1499: scenario_param := 'E1TOAPSPROJECT.PVV_PRE_PROCESS_VAR=';
1500: scenario_param := scenario_param
1501: ||l_instance_code
1502: || ':'
1503: || MSC_E1APS_UTIL.PUB_DSM_RES;
1504: pre_process_odi :=CALL_ODIEXE('PREPROCESSHOOKPKG',
1505: scenario_version,
1506: scenario_param,
1507: odi_url);
1522: odi_url := fnd_profile.value('MSC_E1APS_ODIURL');
1523: /* Invoke ODISenario*/
1524: IF odi_url IS NOT NULL THEN
1525: BEGIN
1526: SELECT MSC_E1APS_UTIL.MSC_E1APS_ODIInitialize(odi_url,2)
1527: INTO ReturnStr
1528: FROM dual;
1529:
1530: EXCEPTION
1549: l_user_id := to_number(msd_dem_common_utilities.get_app_id_text ('MSD_DEM_DEMANTRA_OBJECT_ID', 'COMP_PTP', 1, 'user_id'));
1550: IF p_pb_claims = MSC_UTIL.SYS_YES THEN
1551: l_wf_lookup_code := 'WF_AIA_DSM_E1_CLAIM_EXP';
1552: scenario_name := 'LOADDMCLAIMDATATOE1PKG';
1553: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id ,l_wf_lookup_code ,scenario_name,l_user_id);
1554:
1555: IF ret_value = MSC_E1APS_UTIL.DEM_FAILURE THEN
1556: RETCODE := MSC_UTIL.G_ERROR;
1557: RETURN;
1551: l_wf_lookup_code := 'WF_AIA_DSM_E1_CLAIM_EXP';
1552: scenario_name := 'LOADDMCLAIMDATATOE1PKG';
1553: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id ,l_wf_lookup_code ,scenario_name,l_user_id);
1554:
1555: IF ret_value = MSC_E1APS_UTIL.DEM_FAILURE THEN
1556: RETCODE := MSC_UTIL.G_ERROR;
1557: RETURN;
1558: END IF;
1559:
1556: RETCODE := MSC_UTIL.G_ERROR;
1557: RETURN;
1558: END IF;
1559:
1560: IF ret_value = MSC_E1APS_UTIL.DEM_WARNING THEN
1561: RETCODE := MSC_UTIL.G_WARNING;
1562: RETURN;
1563: END IF;
1564: END IF;
1565:
1566: IF p_pb_dedu_dispos = MSC_UTIL.SYS_YES THEN
1567: l_wf_lookup_code := 'WF_AIA_DSM_E1_DEDUCT_EXP';
1568: scenario_name := 'LOADDMDEDDISPOSITIONSDATATOE1PKG';
1569: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id ,l_wf_lookup_code ,scenario_name ,l_user_id);
1570:
1571: IF ret_value = MSC_E1APS_UTIL.DEM_FAILURE THEN
1572: scenario_name := 'MAIL';
1573: scenario_version := '001';
1567: l_wf_lookup_code := 'WF_AIA_DSM_E1_DEDUCT_EXP';
1568: scenario_name := 'LOADDMDEDDISPOSITIONSDATATOE1PKG';
1569: ret_value:=MSC_E1APS_UTIL.PUBLISH_DEM_WORKFLOW(ERRBUF ,RETCODE ,p_instance_id ,l_wf_lookup_code ,scenario_name ,l_user_id);
1570:
1571: IF ret_value = MSC_E1APS_UTIL.DEM_FAILURE THEN
1572: scenario_name := 'MAIL';
1573: scenario_version := '001';
1574: scenario_param := '';
1575: ret_value1 :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1576: RETCODE := MSC_UTIL.G_ERROR;
1577: RETURN;
1578: END IF;
1579:
1580: IF ret_value = MSC_E1APS_UTIL.DEM_WARNING THEN
1581: scenario_name := 'MAIL';
1582: scenario_version := '001';
1583: scenario_param := '';
1584: ret_value1 :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1586: RETURN;
1587: END IF;
1588: END IF;
1589:
1590: IF ret_value = MSC_E1APS_UTIL.DEM_SUCCESS THEN
1591: /* Launching Post-Process Custom Hook ODI Scenario */
1592: scenario_name := 'POSTPROCESSHOOKPKG';
1593: scenario_version := '001';
1594: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1594: scenario_param := 'E1TOAPSPROJECT.PVV_POST_PROCESS_VAR=';
1595: scenario_param := scenario_param
1596: ||l_instance_code
1597: || ':'
1598: || MSC_E1APS_UTIL.PUB_PLAN_RES ;
1599: post_process_odi :=CALL_ODIEXE(scenario_name, scenario_version, scenario_param, odi_url);
1600:
1601: IF post_process_odi = FALSE THEN
1602: /* Executing Mail Scenario */