[Home] [Help]
29: -- 08-Mar-2001 choang 1) Added wf_revert. 2) Added wf_itemkey.
30: -- 08-Mar-2001 choang 1) Added wf_revert. 2) Added wf_itemkey to rec type. 3) Added
31: -- process_build_success. 4) added unexpire_model
32: -- 11-Mar-2001 choang Added handle_preview_request
33: -- 30-Mar-2001 choang Added callouts to ams_wfmod_pvt.cancel_process and change_schedule
34: -- 10-Apr-2001 choang Change status back to DRAFT if cancel scheduled.
35: -- 11-Apr-2001 choang 1) changed spec of wf_revert 2) added wf_build
36: -- 12-Apr-2001 choang Fixed scheduled_date comparison to NULL in update_model
37: -- 17-Apr-2001 choang Replaced != with <> for adchkdrv compliance.
989:
990: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
991: -- to be displayed on a custom confirmation message.
992: l_build_started := 'Y';
993: l_monitor_url := wf_monitor.geturl(wf_core.TRANSLATE('WF_WEB_AGENT'), AMS_WFMOD_PVT.G_DEFAULT_ITEMTYPE, l_tar_model_rec.wf_itemkey, 'NO');
994: IF (AMS_DEBUG_HIGH_ON) THEN
995: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' l_monitor_url = ' || l_monitor_url );
996: END IF;
997:
1024: RETURN;
1025: END IF;
1026:
1027: /* choang - 13-dec-2002 - used l_wf_itemkey for nocopy */
1028: AMS_WFMod_PVT.change_schedule (
1029: p_itemkey => l_tar_model_rec.wf_itemkey,
1030: p_scheduled_date => l_tar_model_rec.scheduled_date,
1031: p_scheduled_timezone_id => l_tar_model_rec.scheduled_timezone_id,
1032: x_new_itemkey => l_wf_itemkey,
1073:
1074: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
1075: -- to be displayed on a custom confirmation message.
1076: l_build_started := 'Y';
1077: l_monitor_url := wf_monitor.geturl(wf_core.TRANSLATE('WF_WEB_AGENT'), AMS_WFMOD_PVT.G_DEFAULT_ITEMTYPE, l_tar_model_rec.wf_itemkey, 'NO');
1078: IF (AMS_DEBUG_HIGH_ON) THEN
1079: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' l_monitor_url = ' || l_monitor_url );
1080: END IF;
1081:
1127:
1128: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
1129: -- to be displayed on a custom confirmation message.
1130: l_build_started := 'Y';
1131: l_monitor_url := wf_monitor.geturl(wf_core.TRANSLATE('WF_WEB_AGENT'), AMS_WFMOD_PVT.G_DEFAULT_ITEMTYPE, l_tar_model_rec.wf_itemkey, 'NO');
1132: IF (AMS_DEBUG_HIGH_ON) THEN
1133: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' l_monitor_url = ' || l_monitor_url );
1134: END IF;
1135:
1168: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' Going to cancel Preview Process. Item Key ' || l_tar_model_rec.wf_itemkey);
1169: END IF;
1170:
1171:
1172: AMS_WFMod_PVT.cancel_process (
1173: p_itemkey => l_tar_model_rec.wf_itemkey,
1174: x_return_status => x_return_status
1175: );
1176:
1206:
1207: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
1208: -- to be displayed on a custom confirmation message.
1209: l_build_started := 'Y';
1210: l_monitor_url := wf_monitor.geturl(wf_core.TRANSLATE('WF_WEB_AGENT'), AMS_WFMOD_PVT.G_DEFAULT_ITEMTYPE, l_tar_model_rec.wf_itemkey, 'NO');
1211: IF (AMS_DEBUG_HIGH_ON) THEN
1212: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' l_monitor_url = ' || l_monitor_url );
1213: END IF;
1214: END IF;
2883: l_ref_model_rec.status_code = G_MODEL_STATUS_QUEUED OR
2884: l_ref_model_rec.status_code = G_MODEL_STATUS_BUILDING THEN
2885:
2886: -- Get the original status of the Model when then the WF process was scheduled
2887: AMS_WFMOD_PVT.get_original_status(
2888: p_itemkey => l_ref_model_rec.wf_itemkey,
2889: x_orig_status_id => l_original_status_id,
2890: x_return_status => x_return_status
2891: );
2889: x_orig_status_id => l_original_status_id,
2890: x_return_status => x_return_status
2891: );
2892:
2893: AMS_WFMod_PVT.cancel_process (
2894: p_itemkey => l_ref_model_rec.wf_itemkey,
2895: x_return_status => x_return_status
2896: );
2897:
3123: END IF;
3124:
3125: -- Construct the URL that could be used to monitor the WF process. This will be returned to the caller
3126: -- to be displayed on a custom confirmation message.
3127: x_monitor_url := wf_monitor.geturl(wf_core.TRANSLATE('WF_WEB_AGENT'), AMS_WFMOD_PVT.G_DEFAULT_ITEMTYPE, l_tar_model_rec.wf_itemkey, 'NO');
3128:
3129: -- Update the Model record with the new status code (PREVIEWING) and Id
3130: -- and also with the WF Item Key
3131: UPDATE ams_dm_models_all_b
3564: FETCH c_user_status_id INTO x_tar_model_rec.user_status_id;
3565: CLOSE c_user_status_id;
3566:
3567: -- Initiate Workflow process and grab the itemkey
3568: AMS_WFMOD_PVT.StartProcess(
3569: p_object_id => p_model_id,
3570: p_object_type => G_OBJECT_TYPE_MODEL,
3571: p_user_status_id => p_orig_status_id,
3572: p_scheduled_timezone_id => x_tar_model_rec.scheduled_timezone_id,
3624: FETCH c_user_status_id INTO x_tar_model_rec.user_status_id;
3625: CLOSE c_user_status_id;
3626:
3627: -- Initiate Workflow process and grab the itemkey
3628: AMS_WFMOD_PVT.StartProcess(
3629: p_object_id => p_model_id,
3630: p_object_type => G_OBJECT_TYPE_MODEL,
3631: p_user_status_id => p_orig_status_id,
3632: p_scheduled_timezone_id => x_tar_model_rec.scheduled_timezone_id,