[Home] [Help]
158: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
159: --
160: IF l_debug_on IS NULL
161: THEN
162: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
163: END IF;
164: --
165: IF l_debug_on THEN
166: WSH_DEBUG_SV.push(l_module_name);
162: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
163: END IF;
164: --
165: IF l_debug_on THEN
166: WSH_DEBUG_SV.push(l_module_name);
167: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
168: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
169: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
170: END IF;
163: END IF;
164: --
165: IF l_debug_on THEN
166: WSH_DEBUG_SV.push(l_module_name);
167: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
168: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
169: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
170: END IF;
171:
164: --
165: IF l_debug_on THEN
166: WSH_DEBUG_SV.push(l_module_name);
167: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
168: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
169: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
170: END IF;
171:
172: x_process_started := 'N';
165: IF l_debug_on THEN
166: WSH_DEBUG_SV.push(l_module_name);
167: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
168: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
169: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
170: END IF;
171:
172: x_process_started := 'N';
173: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
173: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
174: SAVEPOINT START_WF_PROCESS_UPDATE;
175:
176: IF l_debug_on THEN
177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
178: WSH_DEBUG_SV.C_PROC_LEVEL);
179: END IF;
180:
181: Check_Wf_Exists(p_entity_type => p_entity_type,
174: SAVEPOINT START_WF_PROCESS_UPDATE;
175:
176: IF l_debug_on THEN
177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
178: WSH_DEBUG_SV.C_PROC_LEVEL);
179: END IF;
180:
181: Check_Wf_Exists(p_entity_type => p_entity_type,
182: p_entity_id => p_entity_id,
183: x_wf_process_exists => l_wf_process_exists,
184: x_return_status => l_return_status);
185:
186: IF l_debug_on THEN
187: WSH_DEBUG_SV.log(l_module_name,'l_wf_process_exists',l_wf_process_exists);
188: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
189: END IF;
190:
191: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
184: x_return_status => l_return_status);
185:
186: IF l_debug_on THEN
187: WSH_DEBUG_SV.log(l_module_name,'l_wf_process_exists',l_wf_process_exists);
188: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
189: END IF;
190:
191: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
192: x_return_status := l_return_status;
190:
191: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
192: x_return_status := l_return_status;
193: IF l_debug_on THEN
194: WSH_DEBUG_SV.pop(l_module_name);
195: END IF;
196: RETURN;
197: END IF;
198: IF (l_wf_process_exists = 'Y') THEN
197: END IF;
198: IF (l_wf_process_exists = 'Y') THEN
199: x_process_started := 'E';
200: IF l_debug_on THEN
201: WSH_DEBUG_SV.pop(l_module_name);
202: END IF;
203: RETURN;
204: END IF;
205:
203: RETURN;
204: END IF;
205:
206: IF l_debug_on THEN
207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CONFIRM_START_WF_PROCESS',
208: WSH_DEBUG_SV.C_PROC_LEVEL);
209: END IF;
210:
211: Confirm_Start_Wf_Process(p_entity_type => p_entity_type,
204: END IF;
205:
206: IF l_debug_on THEN
207: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CONFIRM_START_WF_PROCESS',
208: WSH_DEBUG_SV.C_PROC_LEVEL);
209: END IF;
210:
211: Confirm_Start_Wf_Process(p_entity_type => p_entity_type,
212: p_organization_id => p_organization_id,
213: x_start_wf_process => l_start_wf_process,
214: x_return_status => l_return_status);
215:
216: IF l_debug_on THEN
217: WSH_DEBUG_SV.log(l_module_name,'l_start_wf_process',l_start_wf_process);
218: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
219: END IF;
220:
221: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
214: x_return_status => l_return_status);
215:
216: IF l_debug_on THEN
217: WSH_DEBUG_SV.log(l_module_name,'l_start_wf_process',l_start_wf_process);
218: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
219: END IF;
220:
221: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
222: x_return_status := l_return_status;
220:
221: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
222: x_return_status := l_return_status;
223: IF l_debug_on THEN
224: WSH_DEBUG_SV.pop(l_module_name);
225: END IF;
226: RETURN;
227: END IF;
228: IF (l_start_wf_process = 'N') THEN
226: RETURN;
227: END IF;
228: IF (l_start_wf_process = 'N') THEN
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.pop(l_module_name);
231: END IF;
232: RETURN;
233: end if;
234:
235: -- invoke the workflow
236: l_itemkey:=p_entity_id;
237:
238: IF l_debug_on THEN
239: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PROCESS_SELECTOR',
240: WSH_DEBUG_SV.C_PROC_LEVEL);
241: END IF;
242:
243: Process_Selector(p_entity_type => p_entity_type,
236: l_itemkey:=p_entity_id;
237:
238: IF l_debug_on THEN
239: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PROCESS_SELECTOR',
240: WSH_DEBUG_SV.C_PROC_LEVEL);
241: END IF;
242:
243: Process_Selector(p_entity_type => p_entity_type,
244: p_entity_id => p_entity_id,
246: x_wf_process => l_process_name,
247: x_return_status => l_return_status);
248:
249: IF l_debug_on THEN
250: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
251: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
252: END IF;
253:
254: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
247: x_return_status => l_return_status);
248:
249: IF l_debug_on THEN
250: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
251: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
252: END IF;
253:
254: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
255: x_return_status := l_return_status;
253:
254: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
255: x_return_status := l_return_status;
256: IF l_debug_on THEN
257: WSH_DEBUG_SV.pop(l_module_name);
258: END IF;
259: RETURN;
260: END IF;
261:
260: END IF;
261:
262: IF (l_process_name = G_NO_WORKFLOW) THEN
263: IF l_debug_on THEN
264: WSH_DEBUG_SV.pop(l_module_name);
265: END IF;
266: RETURN;
267: END IF;
268:
339: WHERE trip_id=p_entity_id;
340: END IF;
341: x_process_started:= 'Y';
342: IF l_debug_on THEN
343: WSH_DEBUG_SV.pop(l_module_name);
344: END IF;
345:
346:
347:
348: EXCEPTION
349: WHEN no_data_found THEN
350: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
351: IF l_debug_on THEN
352: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
353: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
355: END IF;
356: WHEN others THEN
349: WHEN no_data_found THEN
350: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
351: IF l_debug_on THEN
352: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
353: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
355: END IF;
356: WHEN others THEN
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
350: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
351: IF l_debug_on THEN
352: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
353: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
355: END IF;
356: WHEN others THEN
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
358: IF l_debug_on THEN
355: END IF;
356: WHEN others THEN
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
358: IF l_debug_on THEN
359: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
360: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
361: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
362: END IF;
363: END Start_Wf_Process;
356: WHEN others THEN
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
358: IF l_debug_on THEN
359: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
360: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
361: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
362: END IF;
363: END Start_Wf_Process;
364:
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
358: IF l_debug_on THEN
359: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
360: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
361: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
362: END IF;
363: END Start_Wf_Process;
364:
365: ---------------------------------------------------------------------------------------
435: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
436: --
437: IF l_debug_on IS NULL
438: THEN
439: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
440: END IF;
441: --
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.push(l_module_name);
439: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
440: END IF;
441: --
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.push(l_module_name);
444: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
445: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
446: END IF;
447: SAVEPOINT START_SCPOD_C_PROCESS_UPDATE;
440: END IF;
441: --
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.push(l_module_name);
444: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
445: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
446: END IF;
447: SAVEPOINT START_SCPOD_C_PROCESS_UPDATE;
448:
441: --
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.push(l_module_name);
444: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
445: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
446: END IF;
447: SAVEPOINT START_SCPOD_C_PROCESS_UPDATE;
448:
449: l_itemtype := 'WSHDEL';
452: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
453:
454: l_override_wf:= fnd_profile.value('WSH_OVERRIDE_SCPOD_WF');
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.log(l_module_name,'L_OVERRIDE_WF',l_override_wf);
457: END IF;
458: IF (nvl(l_override_wf,'N') = 'Y') THEN
459: IF l_debug_on THEN
460: WSH_DEBUG_SV.pop(l_module_name);
456: WSH_DEBUG_SV.log(l_module_name,'L_OVERRIDE_WF',l_override_wf);
457: END IF;
458: IF (nvl(l_override_wf,'N') = 'Y') THEN
459: IF l_debug_on THEN
460: WSH_DEBUG_SV.pop(l_module_name);
461: END IF;
462: RETURN;
463: END IF;
464:
462: RETURN;
463: END IF;
464:
465: IF l_debug_on THEN
466: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
467: WSH_DEBUG_SV.C_PROC_LEVEL);
468: END IF;
469:
470: check_wf_exists(p_entity_type => 'DELIVERY_C',
463: END IF;
464:
465: IF l_debug_on THEN
466: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
467: WSH_DEBUG_SV.C_PROC_LEVEL);
468: END IF;
469:
470: check_wf_exists(p_entity_type => 'DELIVERY_C',
471: p_entity_id => p_entity_id,
472: x_wf_process_exists => l_scpod_wf_process_exists,
473: x_return_status => l_return_status);
474:
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.log(l_module_name,'L_SCPOD_WF_PROCESS_EXISTS',l_scpod_wf_process_exists);
477: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
478: END IF;
479:
480: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
473: x_return_status => l_return_status);
474:
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.log(l_module_name,'L_SCPOD_WF_PROCESS_EXISTS',l_scpod_wf_process_exists);
477: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
478: END IF;
479:
480: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
481: x_return_status := l_return_status;
479:
480: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
481: x_return_status := l_return_status;
482: IF l_debug_on THEN
483: WSH_DEBUG_SV.pop(l_module_name);
484: END IF;
485: RETURN;
486: END IF;
487:
487:
488: IF (l_scpod_wf_process_exists = 'Y') THEN
489: x_process_started := 'E';
490: IF l_debug_on THEN
491: WSH_DEBUG_SV.pop(l_module_name);
492: END IF;
493: RETURN;
494: ELSE
495:
493: RETURN;
494: ELSE
495:
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
498: WSH_DEBUG_SV.C_PROC_LEVEL);
499: END IF;
500:
501: WSH_SHIPPING_PARAMS_PVT.Get(
494: ELSE
495:
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
498: WSH_DEBUG_SV.C_PROC_LEVEL);
499: END IF;
500:
501: WSH_SHIPPING_PARAMS_PVT.Get(
502: p_organization_id => p_organization_id,
502: p_organization_id => p_organization_id,
503: x_param_info => l_param_info,
504: x_return_status => l_return_status);
505: IF l_debug_on THEN
506: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
507: END IF;
508:
509: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
510: x_return_status := l_return_status;
508:
509: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
510: x_return_status := l_return_status;
511: IF l_debug_on THEN
512: WSH_DEBUG_SV.pop(l_module_name);
513: END IF;
514: RETURN;
515: END IF;
516:
514: RETURN;
515: END IF;
516:
517: IF l_debug_on THEN
518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
519: WSH_DEBUG_SV.C_PROC_LEVEL);
520: END IF;
521:
522: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
515: END IF;
516:
517: IF l_debug_on THEN
518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
519: WSH_DEBUG_SV.C_PROC_LEVEL);
520: END IF;
521:
522: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
523: x_return_status => l_return_status);
522: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
523: x_return_status => l_return_status);
524:
525: IF l_debug_on THEN
526: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
527: END IF;
528:
529: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
530: x_return_status := l_return_status;
528:
529: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
530: x_return_status := l_return_status;
531: IF l_debug_on THEN
532: WSH_DEBUG_SV.pop(l_module_name);
533: END IF;
534: RETURN;
535: END IF;
536:
540: FETCH get_org_code into l_organization_code;
541: CLOSE get_org_code ;
542:
543: IF l_debug_on THEN
544: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_CUSTOM_WF_PROCESS',
545: WSH_DEBUG_SV.C_PROC_LEVEL);
546: END IF;
547:
548: Get_Custom_Wf_Process(p_wf_process => 'R_SCPOD_C',
541: CLOSE get_org_code ;
542:
543: IF l_debug_on THEN
544: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_CUSTOM_WF_PROCESS',
545: WSH_DEBUG_SV.C_PROC_LEVEL);
546: END IF;
547:
548: Get_Custom_Wf_Process(p_wf_process => 'R_SCPOD_C',
549: p_org_code => l_organization_code,
549: p_org_code => l_organization_code,
550: x_wf_process => l_custom_process_name,
551: x_return_status => l_return_status);
552: IF l_debug_on THEN
553: WSH_DEBUG_SV.log(l_module_name,'l_custom_process_name',l_custom_process_name);
554: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
555: END IF;
556:
557: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
550: x_wf_process => l_custom_process_name,
551: x_return_status => l_return_status);
552: IF l_debug_on THEN
553: WSH_DEBUG_SV.log(l_module_name,'l_custom_process_name',l_custom_process_name);
554: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
555: END IF;
556:
557: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
558: x_return_status := l_return_status;
556:
557: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
558: x_return_status := l_return_status;
559: IF l_debug_on THEN
560: WSH_DEBUG_SV.pop(l_module_name);
561: END IF;
562: RETURN;
563: END IF;
564:
614: END IF;
615: END IF;
616:
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.pop(l_module_name);
619: END IF;
620:
621: EXCEPTION
622: WHEN others THEN
627: x_return_status => l_return_status);
628:
629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
632: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
634: END IF;
635:
628:
629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
632: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
634: END IF;
635:
636: END Start_Scpod_C_Process;
629: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
632: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
634: END IF;
635:
636: END Start_Scpod_C_Process;
637: ---------------------------------------------------------------------------------------
717: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
718: --
719: IF l_debug_on IS NULL
720: THEN
721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
722: END IF;
723: --
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
722: END IF;
723: --
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
726: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
727: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
728: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
729: END IF;
722: END IF;
723: --
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
726: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
727: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
728: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
729: END IF;
730:
723: --
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
726: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
727: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
728: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
729: END IF;
730:
731: l_fte_installed := 'N';
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
726: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
727: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
728: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
729: END IF;
730:
731: l_fte_installed := 'N';
732: -- l_screening_req := 'N';
760: x_wf_process := 'R_DEL_FTE_BUYER';
761: END IF; SR*/
762: x_wf_process := G_NO_WORKFLOW;
763: IF l_debug_on THEN
764: WSH_DEBUG_SV.pop(l_module_name);
765: END IF;
766: RETURN;
767: END IF;
768:
768:
769: -- CHECK IF EXPORT SCREENING REQUIRED
770: /*SR
771: IF l_debug_on THEN
772: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET', WSH_DEBUG_SV.C_PROC_LEVEL);
773: END IF;
774:
775: WSH_SHIPPING_PARAMS_PVT.Get(
776: p_organization_id => p_organization_id,
776: p_organization_id => p_organization_id,
777: x_param_info => l_param_info,
778: x_return_status => l_return_status);
779: IF l_debug_on THEN
780: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
781: END IF;
782:
783: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
784: x_return_status := l_return_status;
782:
783: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
784: x_return_status := l_return_status;
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.pop(l_module_name);
787: END IF;
788: RETURN; --Double check it
789: ELSE
790: l_screening_flag := NVL(l_param_info.EXPORT_SCREENING_FLAG,'N');
797:
798:
799: -- CHECK IF ORGANIZATION IS TPW ENABLED
800: IF l_debug_on THEN
801: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE_SV.GET_WAREHOUSE_TYPE',
802: WSH_DEBUG_SV.C_PROC_LEVEL);
803: END IF;
804:
805: l_wh_type:=WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(p_organization_id => p_organization_id,
798:
799: -- CHECK IF ORGANIZATION IS TPW ENABLED
800: IF l_debug_on THEN
801: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE_SV.GET_WAREHOUSE_TYPE',
802: WSH_DEBUG_SV.C_PROC_LEVEL);
803: END IF;
804:
805: l_wh_type:=WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(p_organization_id => p_organization_id,
806: p_delivery_id => p_entity_id,
805: l_wh_type:=WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(p_organization_id => p_organization_id,
806: p_delivery_id => p_entity_id,
807: x_return_status => l_return_status);
808: IF l_debug_on THEN
809: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
810: END IF;
811:
812: IF ( l_return_status <> WSH_UTIL_CORE.g_ret_sts_success) THEN
813: raise e_invalid_org; -- the api returns error when no org id is sent; unexp error
821: IF ( nvl(l_wh_type,'@') IN ('TPW', 'TW2')) THEN
822: -- l_tpw_org := 'Y';
823: x_wf_process := G_NO_WORKFLOW;
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.pop(l_module_name);
826: END IF;
827: RETURN;
828: END IF;
829:
884: FETCH get_org_code into l_organization_code;
885: CLOSE get_org_code ;
886:
887: IF l_debug_on THEN
888: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_CUSTOM_WF_PROCESS',
889: WSH_DEBUG_SV.C_PROC_LEVEL);
890: END IF;
891:
892: Get_Custom_Wf_Process(p_wf_process => x_wf_process,
885: CLOSE get_org_code ;
886:
887: IF l_debug_on THEN
888: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_CUSTOM_WF_PROCESS',
889: WSH_DEBUG_SV.C_PROC_LEVEL);
890: END IF;
891:
892: Get_Custom_Wf_Process(p_wf_process => x_wf_process,
893: p_org_code => l_organization_code,
893: p_org_code => l_organization_code,
894: x_wf_process => l_custom_process_name,
895: x_return_status => l_return_status);
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,'l_custom_process_name',l_custom_process_name);
898: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
899: END IF;
900:
901: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
894: x_wf_process => l_custom_process_name,
895: x_return_status => l_return_status);
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,'l_custom_process_name',l_custom_process_name);
898: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
899: END IF;
900:
901: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
902: x_return_status := l_return_status;
900:
901: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
902: x_return_status := l_return_status;
903: IF l_debug_on THEN
904: WSH_DEBUG_SV.pop(l_module_name);
905: END IF;
906: RETURN;
907: ELSE
908: x_wf_process:=l_custom_process_name;
907: ELSE
908: x_wf_process:=l_custom_process_name;
909: END IF;
910: IF l_debug_on THEN
911: WSH_DEBUG_SV.pop(l_module_name);
912: END IF;
913:
914:
915: EXCEPTION
915: EXCEPTION
916: WHEN e_invalid_org THEN
917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
918: IF l_debug_on THEN
919: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid Organization Id passed',WSH_DEBUG_SV.C_EXCEP_LEVEL);
920: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_ORG');
921: END IF;
922: WHEN e_process_not_found THEN
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
916: WHEN e_invalid_org THEN
917: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
918: IF l_debug_on THEN
919: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid Organization Id passed',WSH_DEBUG_SV.C_EXCEP_LEVEL);
920: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_ORG');
921: END IF;
922: WHEN e_process_not_found THEN
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
924: IF l_debug_on THEN
921: END IF;
922: WHEN e_process_not_found THEN
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
924: IF l_debug_on THEN
925: WSH_DEBUG_SV.logmsg(l_module_name,'Process not found for the current Setup parameters',
926: WSH_DEBUG_SV.C_EXCEP_LEVEL);
927: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_PROCESS_NOT_FOUND');
928: END IF;
929: WHEN others THEN
922: WHEN e_process_not_found THEN
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
924: IF l_debug_on THEN
925: WSH_DEBUG_SV.logmsg(l_module_name,'Process not found for the current Setup parameters',
926: WSH_DEBUG_SV.C_EXCEP_LEVEL);
927: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_PROCESS_NOT_FOUND');
928: END IF;
929: WHEN others THEN
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
924: IF l_debug_on THEN
925: WSH_DEBUG_SV.logmsg(l_module_name,'Process not found for the current Setup parameters',
926: WSH_DEBUG_SV.C_EXCEP_LEVEL);
927: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_PROCESS_NOT_FOUND');
928: END IF;
929: WHEN others THEN
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
931: IF l_debug_on THEN
928: END IF;
929: WHEN others THEN
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
933: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
934: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
935: END IF;
936:
929: WHEN others THEN
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
933: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
934: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
935: END IF;
936:
937: END process_selector;
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
933: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
934: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
935: END IF;
936:
937: END process_selector;
938:
987: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
988: --
989: IF l_debug_on IS NULL
990: THEN
991: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
992: END IF;
993: --
994: IF l_debug_on THEN
995: WSH_DEBUG_SV.push(l_module_name);
991: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
992: END IF;
993: --
994: IF l_debug_on THEN
995: WSH_DEBUG_SV.push(l_module_name);
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
992: END IF;
993: --
994: IF l_debug_on THEN
995: WSH_DEBUG_SV.push(l_module_name);
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
1000: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
993: --
994: IF l_debug_on THEN
995: WSH_DEBUG_SV.push(l_module_name);
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
1000: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1001: END IF;
994: IF l_debug_on THEN
995: WSH_DEBUG_SV.push(l_module_name);
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
1000: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1001: END IF;
1002:
995: WSH_DEBUG_SV.push(l_module_name);
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
1000: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1001: END IF;
1002:
1003: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
996: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
997: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
998: WSH_DEBUG_SV.log(l_module_name,'P_EVENT',p_event);
999: WSH_DEBUG_SV.log(l_module_name,'P_SEND_DATE',p_send_date);
1000: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1001: END IF;
1002:
1003: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1004: l_raise_event := FALSE;
1010: -- Raise event if a workflow process exists
1011: IF (p_entity_type = 'TRIP' or p_entity_type = 'DELIVERY') THEN
1012:
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
1015: WSH_DEBUG_SV.C_PROC_LEVEL);
1016: END IF;
1017:
1018: check_wf_exists(p_entity_type => p_entity_type,
1011: IF (p_entity_type = 'TRIP' or p_entity_type = 'DELIVERY') THEN
1012:
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',
1015: WSH_DEBUG_SV.C_PROC_LEVEL);
1016: END IF;
1017:
1018: check_wf_exists(p_entity_type => p_entity_type,
1019: p_entity_id => p_entity_id,
1020: x_wf_process_exists => l_wf_process_exists,
1021: x_return_status => l_return_status);
1022:
1023: IF l_debug_on THEN
1024: WSH_DEBUG_SV.log(l_module_name,'l_wf_process_exists',l_wf_process_exists);
1025: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1026: END IF;
1027:
1028: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1021: x_return_status => l_return_status);
1022:
1023: IF l_debug_on THEN
1024: WSH_DEBUG_SV.log(l_module_name,'l_wf_process_exists',l_wf_process_exists);
1025: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1026: END IF;
1027:
1028: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1029: x_return_status := l_return_status;
1027:
1028: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1029: x_return_status := l_return_status;
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.pop(l_module_name);
1032: END IF;
1033: RETURN;
1034: END IF;
1035:
1040:
1041: -- Get Global event parameters and raise event accordingly
1042: IF ( NOT l_raise_event) THEN
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
1045: WSH_DEBUG_SV.C_PROC_LEVEL);
1046: END IF;
1047:
1048: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1041: -- Get Global event parameters and raise event accordingly
1042: IF ( NOT l_raise_event) THEN
1043: IF l_debug_on THEN
1044: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
1045: WSH_DEBUG_SV.C_PROC_LEVEL);
1046: END IF;
1047:
1048: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1049: x_return_status => l_return_status);
1048: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1049: x_return_status => l_return_status);
1050:
1051: IF l_debug_on THEN
1052: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1053: END IF;
1054:
1055: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1056: x_return_status := l_return_status;
1054:
1055: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1056: x_return_status := l_return_status;
1057: IF l_debug_on THEN
1058: WSH_DEBUG_SV.pop(l_module_name);
1059: END IF;
1060: RETURN;
1061: END IF;
1062:
1068:
1069: -- Get Shipping event parameters and raise event accordingly
1070: IF ( NOT l_raise_event AND p_organization_id is not null) THEN
1071: IF l_debug_on THEN
1072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
1073: WSH_DEBUG_SV.C_PROC_LEVEL);
1074: END IF;
1075:
1076: WSH_SHIPPING_PARAMS_PVT.Get(
1069: -- Get Shipping event parameters and raise event accordingly
1070: IF ( NOT l_raise_event AND p_organization_id is not null) THEN
1071: IF l_debug_on THEN
1072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
1073: WSH_DEBUG_SV.C_PROC_LEVEL);
1074: END IF;
1075:
1076: WSH_SHIPPING_PARAMS_PVT.Get(
1077: p_organization_id => p_organization_id,
1078: x_param_info => l_param_info,
1079: x_return_status => l_return_status);
1080:
1081: IF l_debug_on THEN
1082: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1083: END IF;
1084:
1085: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1086: x_return_status := l_return_status;
1084:
1085: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1086: x_return_status := l_return_status;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.pop(l_module_name);
1089: END IF;
1090: RETURN;
1091: END IF;
1092:
1125: */
1126: END IF;
1127:
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.pop(l_module_name);
1130: END IF;
1131:
1132: EXCEPTION
1133: WHEN e_org_required THEN
1132: EXCEPTION
1133: WHEN e_org_required THEN
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Organization Id Required.Oracle error message is '||
1137: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_ORG_REQUIRED');
1139: END IF;
1140:
1133: WHEN e_org_required THEN
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Organization Id Required.Oracle error message is '||
1137: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_ORG_REQUIRED');
1139: END IF;
1140:
1141: WHEN others THEN
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Organization Id Required.Oracle error message is '||
1137: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_ORG_REQUIRED');
1139: END IF;
1140:
1141: WHEN others THEN
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1140:
1141: WHEN others THEN
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1143: IF l_debug_on THEN
1144: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1145: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1147: END IF;
1148:
1141: WHEN others THEN
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1143: IF l_debug_on THEN
1144: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1145: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1147: END IF;
1148:
1149: END Raise_Event;
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1143: IF l_debug_on THEN
1144: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1145: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1147: END IF;
1148:
1149: END Raise_Event;
1150:
1196: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1197: --
1198: IF l_debug_on IS NULL
1199: THEN
1200: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1201: END IF;
1202: --
1203: IF l_debug_on THEN
1204: WSH_DEBUG_SV.push(l_module_name);
1200: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1201: END IF;
1202: --
1203: IF l_debug_on THEN
1204: WSH_DEBUG_SV.push(l_module_name);
1205: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1206: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1207: END IF;
1208:
1201: END IF;
1202: --
1203: IF l_debug_on THEN
1204: WSH_DEBUG_SV.push(l_module_name);
1205: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1206: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1207: END IF;
1208:
1209: x_start_wf_process := 'N';
1202: --
1203: IF l_debug_on THEN
1204: WSH_DEBUG_SV.push(l_module_name);
1205: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1206: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1207: END IF;
1208:
1209: x_start_wf_process := 'N';
1210: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1213:
1214: IF (p_entity_type <> 'TRIP') THEN
1215:
1216: IF l_debug_on THEN
1217: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
1218: WSH_DEBUG_SV.C_PROC_LEVEL);
1219: END IF;
1220:
1221: WSH_SHIPPING_PARAMS_PVT.Get(
1214: IF (p_entity_type <> 'TRIP') THEN
1215:
1216: IF l_debug_on THEN
1217: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
1218: WSH_DEBUG_SV.C_PROC_LEVEL);
1219: END IF;
1220:
1221: WSH_SHIPPING_PARAMS_PVT.Get(
1222: p_organization_id => p_organization_id,
1222: p_organization_id => p_organization_id,
1223: x_param_info => l_param_info,
1224: x_return_status => l_return_status);
1225: IF l_debug_on THEN
1226: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1227: END IF;
1228:
1229: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1230: x_return_status := l_return_status;
1228:
1229: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1230: x_return_status := l_return_status;
1231: IF l_debug_on THEN
1232: WSH_DEBUG_SV.pop(l_module_name);
1233: END IF;
1234: RETURN;
1235: ELSE
1236: l_shipping_enable_tracking_wfs:=NVL(l_param_info.ENABLE_TRACKING_WFS,'NONE');
1237: END IF;
1238: END IF;
1239:
1240: IF l_debug_on THEN
1241: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
1242: WSH_DEBUG_SV.C_PROC_LEVEL);
1243: END IF;
1244:
1245: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1238: END IF;
1239:
1240: IF l_debug_on THEN
1241: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS',
1242: WSH_DEBUG_SV.C_PROC_LEVEL);
1243: END IF;
1244:
1245: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1246: x_return_status => l_return_status);
1245: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(x_Param_Info => l_global_parameters,
1246: x_return_status => l_return_status);
1247:
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1250: END IF;
1251:
1252:
1253: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1252:
1253: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1254: x_return_status := l_return_status;
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.pop(l_module_name);
1257: END IF;
1258: RETURN;
1259: ELSE
1260: l_global_enable_tracking_wfs:= NVL(l_global_parameters.ENABLE_TRACKING_WFS,'NONE');
1262:
1263:
1264: IF (l_global_enable_tracking_wfs = 'NONE') THEN
1265: IF l_debug_on THEN
1266: WSH_DEBUG_SV.pop(l_module_name);
1267: END IF;
1268: RETURN;
1269: ELSIF ( (l_global_enable_tracking_wfs = 'TRIP' or l_global_enable_tracking_wfs = 'BOTH') and p_entity_type =
1270: 'TRIP') THEN
1269: ELSIF ( (l_global_enable_tracking_wfs = 'TRIP' or l_global_enable_tracking_wfs = 'BOTH') and p_entity_type =
1270: 'TRIP') THEN
1271: x_start_wf_process := 'Y';
1272: IF l_debug_on THEN
1273: WSH_DEBUG_SV.pop(l_module_name);
1274: END IF;
1275: RETURN;
1276: ELSIF ( (l_global_enable_tracking_wfs = 'DELIVERY' or l_global_enable_tracking_wfs = 'BOTH') and
1277: l_shipping_enable_tracking_wfs = 'DELIVERY' and p_entity_type = 'DELIVERY' ) THEN
1276: ELSIF ( (l_global_enable_tracking_wfs = 'DELIVERY' or l_global_enable_tracking_wfs = 'BOTH') and
1277: l_shipping_enable_tracking_wfs = 'DELIVERY' and p_entity_type = 'DELIVERY' ) THEN
1278: x_start_wf_process := 'Y';
1279: IF l_debug_on THEN
1280: WSH_DEBUG_SV.pop(l_module_name);
1281: END IF;
1282: RETURN;
1283: END IF;
1284: IF l_debug_on THEN
1281: END IF;
1282: RETURN;
1283: END IF;
1284: IF l_debug_on THEN
1285: WSH_DEBUG_SV.pop(l_module_name);
1286: END IF;
1287:
1288: EXCEPTION
1289: WHEN others THEN
1288: EXCEPTION
1289: WHEN others THEN
1290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1293: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1294: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1295: END IF;
1296: END confirm_start_wf_process;
1289: WHEN others THEN
1290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1293: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1294: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1295: END IF;
1296: END confirm_start_wf_process;
1297:
1290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1293: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1294: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1295: END IF;
1296: END confirm_start_wf_process;
1297:
1298: ---------------------------------------------------------------------------------------
1337: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1338: --
1339: IF l_debug_on IS NULL
1340: THEN
1341: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.push(l_module_name);
1341: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.push(l_module_name);
1346: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1347: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1348: END IF;
1349:
1342: END IF;
1343: --
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.push(l_module_name);
1346: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1347: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1348: END IF;
1349:
1350: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1343: --
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.push(l_module_name);
1346: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1347: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1348: END IF;
1349:
1350: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1351:
1368: ELSE
1369: x_wf_process_exists:='Y';
1370: END IF;
1371: IF l_debug_on THEN
1372: WSH_DEBUG_SV.pop(l_module_name);
1373: END IF;
1374: RETURN;
1375: END IF;
1376:
1380: x_wf_process_exists:='Y';
1381: END IF;
1382:
1383: IF l_debug_on THEN
1384: WSH_DEBUG_SV.pop(l_module_name);
1385: END IF;
1386:
1387: EXCEPTION
1388: WHEN e_invalid_type THEN
1387: EXCEPTION
1388: WHEN e_invalid_type THEN
1389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid Entity type passed.Oracle error message is '||
1392: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_TYPE');
1394: END IF;
1395: WHEN no_data_found THEN
1388: WHEN e_invalid_type THEN
1389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid Entity type passed.Oracle error message is '||
1392: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_TYPE');
1394: END IF;
1395: WHEN no_data_found THEN
1396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid Entity type passed.Oracle error message is '||
1392: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_INVALID_TYPE');
1394: END IF;
1395: WHEN no_data_found THEN
1396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1397: IF l_debug_on THEN
1394: END IF;
1395: WHEN no_data_found THEN
1396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
1399: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
1401: END IF;
1402: WHEN others THEN
1395: WHEN no_data_found THEN
1396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
1399: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
1401: END IF;
1402: WHEN others THEN
1403: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.logmsg(l_module_name,'No record found for the entity.Oracle error message is '||
1399: SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
1401: END IF;
1402: WHEN others THEN
1403: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1404: IF l_debug_on THEN
1401: END IF;
1402: WHEN others THEN
1403: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1404: IF l_debug_on THEN
1405: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1406: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1407: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1408: END IF;
1409:
1402: WHEN others THEN
1403: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1404: IF l_debug_on THEN
1405: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1406: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1407: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1408: END IF;
1409:
1410: END check_wf_exists;
1403: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1404: IF l_debug_on THEN
1405: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1406: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1407: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1408: END IF;
1409:
1410: END check_wf_exists;
1411: ---------------------------------------------------------------------------------------
1471: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1472: --
1473: IF l_debug_on IS NULL
1474: THEN
1475: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1476: END IF;
1477: --
1478: IF l_debug_on THEN
1479: WSH_DEBUG_SV.push(l_module_name);
1475: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1476: END IF;
1477: --
1478: IF l_debug_on THEN
1479: WSH_DEBUG_SV.push(l_module_name);
1480: WSH_DEBUG_SV.log(l_module_name,'P_WF_PROCESS',p_wf_process);
1481: WSH_DEBUG_SV.log(l_module_name,'P_ORG_CODE',p_org_code);
1482: END IF;
1483:
1476: END IF;
1477: --
1478: IF l_debug_on THEN
1479: WSH_DEBUG_SV.push(l_module_name);
1480: WSH_DEBUG_SV.log(l_module_name,'P_WF_PROCESS',p_wf_process);
1481: WSH_DEBUG_SV.log(l_module_name,'P_ORG_CODE',p_org_code);
1482: END IF;
1483:
1484: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1477: --
1478: IF l_debug_on THEN
1479: WSH_DEBUG_SV.push(l_module_name);
1480: WSH_DEBUG_SV.log(l_module_name,'P_WF_PROCESS',p_wf_process);
1481: WSH_DEBUG_SV.log(l_module_name,'P_ORG_CODE',p_org_code);
1482: END IF;
1483:
1484: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1485:
1501: x_wf_process := l_custom_process;
1502: END IF;
1503:
1504: IF l_debug_on THEN
1505: WSH_DEBUG_SV.pop(l_module_name);
1506: END IF;
1507:
1508: EXCEPTION
1509: WHEN others THEN
1508: EXCEPTION
1509: WHEN others THEN
1510: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
1513: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1515: END IF;
1516: END Get_Custom_Wf_Process;
1509: WHEN others THEN
1510: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
1513: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1515: END IF;
1516: END Get_Custom_Wf_Process;
1517: ---------------------------------------------------------------------------------------
1510: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
1513: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1515: END IF;
1516: END Get_Custom_Wf_Process;
1517: ---------------------------------------------------------------------------------------
1518: -- Procedure: Purge_Entity
1554: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1555: --
1556: IF l_debug_on IS NULL
1557: THEN
1558: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1559: END IF;
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.push(l_module_name);
1558: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1559: END IF;
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.push(l_module_name);
1563: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1564: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',p_action);
1565: WSH_DEBUG_SV.log(l_module_name,'P_DOCOMMIT',p_docommit);
1566: END IF;
1559: END IF;
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.push(l_module_name);
1563: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1564: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',p_action);
1565: WSH_DEBUG_SV.log(l_module_name,'P_DOCOMMIT',p_docommit);
1566: END IF;
1567:
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.push(l_module_name);
1563: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1564: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',p_action);
1565: WSH_DEBUG_SV.log(l_module_name,'P_DOCOMMIT',p_docommit);
1566: END IF;
1567:
1568: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.push(l_module_name);
1563: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1564: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',p_action);
1565: WSH_DEBUG_SV.log(l_module_name,'P_DOCOMMIT',p_docommit);
1566: END IF;
1567:
1568: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1569: SAVEPOINT PURGE_ENTITY_UPDATE;
1578: IF ( Wf_Exists(p_entity_type, p_entity_ids(i))) THEN
1579: BEGIN
1580: --
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_IDS(I)',p_entity_ids(i));
1583: END IF;
1584: --
1585: WF_ENGINE.ItemStatus(itemtype => l_itemtype,
1586: itemkey => p_entity_ids(I),
1610: l_suc_entity_ids(l_suc_entity_ids.count + 1) := p_entity_ids(i);
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: IF l_debug_on THEN
1614: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1616: END IF;
1617: END;
1618: END IF;
1611: EXCEPTION
1612: WHEN OTHERS THEN
1613: IF l_debug_on THEN
1614: WSH_DEBUG_SV.logmsg(l_module_name,'Error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1616: END IF;
1617: END;
1618: END IF;
1619: END LOOP;
1644: x_return_status:=WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1645: END IF;
1646: */
1647: IF l_debug_on THEN
1648: WSH_DEBUG_SV.pop(l_module_name);
1649: END IF;
1650:
1651:
1652: EXCEPTION
1652: EXCEPTION
1653: WHEN others THEN
1654: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1657: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1658: END IF;
1659:
1660: END Purge_Entity;
1653: WHEN others THEN
1654: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1657: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1658: END IF;
1659:
1660: END Purge_Entity;
1661:
1700: --
1701: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1702: --
1703: IF l_debug_on IS NULL THEN
1704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1705: END IF;
1706: --
1707: IF l_debug_on THEN
1708: wsh_debug_sv.push(l_module_name);
1704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1705: END IF;
1706: --
1707: IF l_debug_on THEN
1708: wsh_debug_sv.push(l_module_name);
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1705: END IF;
1706: --
1707: IF l_debug_on THEN
1708: wsh_debug_sv.push(l_module_name);
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1713: wsh_debug_sv.log(l_module_name, 'P_EXCEPTION_NAME',p_exception_name);
1706: --
1707: IF l_debug_on THEN
1708: wsh_debug_sv.push(l_module_name);
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1713: wsh_debug_sv.log(l_module_name, 'P_EXCEPTION_NAME',p_exception_name);
1714: END IF;
1707: IF l_debug_on THEN
1708: wsh_debug_sv.push(l_module_name);
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1713: wsh_debug_sv.log(l_module_name, 'P_EXCEPTION_NAME',p_exception_name);
1714: END IF;
1715:
1708: wsh_debug_sv.push(l_module_name);
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1713: wsh_debug_sv.log(l_module_name, 'P_EXCEPTION_NAME',p_exception_name);
1714: END IF;
1715:
1716: IF (p_ship_from_location_id IS NULL AND p_entity_type = 'DELIVERY') THEN
1709: wsh_debug_sv.log(l_module_name, 'P_ENTITY_TYPE',p_entity_type);
1710: wsh_debug_sv.log(l_module_name, 'P_ENTITY_ID',p_entity_id);
1711: wsh_debug_sv.log(l_module_name, 'P_SHIP_FROM_LOCATION_ID',p_ship_from_location_id);
1712: wsh_debug_sv.log(l_module_name, 'P_LOGGING_ENTITY',p_logging_entity);
1713: wsh_debug_sv.log(l_module_name, 'P_EXCEPTION_NAME',p_exception_name);
1714: END IF;
1715:
1716: IF (p_ship_from_location_id IS NULL AND p_entity_type = 'DELIVERY') THEN
1717: SELECT INITIAL_PICKUP_LOCATION_ID INTO l_ship_from_location_id
1727: l_msg := FND_MESSAGE.Get_String('WSH','WSH_LAUNCH_WF_FAILED');
1728: END IF;
1729:
1730: IF l_debug_on THEN
1731: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Log_Exception',
1732: WSH_DEBUG_SV.C_PROC_LEVEL);
1733: END IF;
1734:
1735: IF (p_entity_type = 'DELIVERY') THEN
1728: END IF;
1729:
1730: IF l_debug_on THEN
1731: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Log_Exception',
1732: WSH_DEBUG_SV.C_PROC_LEVEL);
1733: END IF;
1734:
1735: IF (p_entity_type = 'DELIVERY') THEN
1736: wsh_xc_util.log_exception(
1748: p_delivery_id => p_entity_id
1749: );
1750: END IF;
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_XC_UTIL.Log_Exception',x_return_status);
1753: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_COUNT',l_exception_msg_count);
1754: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_DATA',l_exception_msg_data);
1755: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',l_exception_id);
1756: END IF;
1749: );
1750: END IF;
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_XC_UTIL.Log_Exception',x_return_status);
1753: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_COUNT',l_exception_msg_count);
1754: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_DATA',l_exception_msg_data);
1755: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',l_exception_id);
1756: END IF;
1757:
1750: END IF;
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_XC_UTIL.Log_Exception',x_return_status);
1753: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_COUNT',l_exception_msg_count);
1754: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_DATA',l_exception_msg_data);
1755: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',l_exception_id);
1756: END IF;
1757:
1758: IF l_debug_on THEN
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_XC_UTIL.Log_Exception',x_return_status);
1753: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_COUNT',l_exception_msg_count);
1754: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_MSG_DATA',l_exception_msg_data);
1755: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',l_exception_id);
1756: END IF;
1757:
1758: IF l_debug_on THEN
1759: WSH_DEBUG_SV.pop(l_module_name);
1755: WSH_DEBUG_SV.log(l_module_name,'L_EXCEPTION_ID',l_exception_id);
1756: END IF;
1757:
1758: IF l_debug_on THEN
1759: WSH_DEBUG_SV.pop(l_module_name);
1760: END IF;
1761:
1762:
1763: EXCEPTION
1763: EXCEPTION
1764: WHEN others THEN
1765: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1768: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1769: END IF;
1770: END Log_Wf_Exception;
1771:
1764: WHEN others THEN
1765: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1768: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1769: END IF;
1770: END Log_Wf_Exception;
1771:
1772: --========================================================================================
1815: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1816: --
1817: IF l_debug_on IS NULL
1818: THEN
1819: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1820: END IF;
1821: --
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.push(l_module_name);
1819: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1820: END IF;
1821: --
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.push(l_module_name);
1824: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1825: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1826: END IF;
1827:
1820: END IF;
1821: --
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.push(l_module_name);
1824: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1825: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1826: END IF;
1827:
1828: -- Get the Process name from Entity Tables
1821: --
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.push(l_module_name);
1824: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',p_entity_type);
1825: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',p_entity_id);
1826: END IF;
1827:
1828: -- Get the Process name from Entity Tables
1829: IF (p_entity_type = 'TRIP') THEN
1837:
1838: CLOSE get_trip_wf_name ;
1839:
1840: IF l_debug_on THEN
1841: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
1842: WSH_DEBUG_SV.pop(l_module_name);
1843: END IF;
1844: RETURN l_process_name;
1845: ELSIF (p_entity_type = 'DELIVERY') THEN
1838: CLOSE get_trip_wf_name ;
1839:
1840: IF l_debug_on THEN
1841: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
1842: WSH_DEBUG_SV.pop(l_module_name);
1843: END IF;
1844: RETURN l_process_name;
1845: ELSIF (p_entity_type = 'DELIVERY') THEN
1846: OPEN get_delivery_wf_name(p_entity_id);
1853:
1854: CLOSE get_delivery_wf_name ;
1855:
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
1858: WSH_DEBUG_SV.pop(l_module_name);
1859: END IF;
1860: RETURN l_process_name;
1861: ELSIF (p_entity_type = 'DELIVERY_C') THEN
1854: CLOSE get_delivery_wf_name ;
1855:
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_process_name);
1858: WSH_DEBUG_SV.pop(l_module_name);
1859: END IF;
1860: RETURN l_process_name;
1861: ELSIF (p_entity_type = 'DELIVERY_C') THEN
1862: OPEN get_delivery_wf_name(p_entity_id);
1869:
1870: CLOSE get_delivery_wf_name ;
1871:
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_scpod_process_name);
1874: WSH_DEBUG_SV.pop(l_module_name);
1875: END IF;
1876: RETURN l_scpod_process_name;
1877: ELSE
1870: CLOSE get_delivery_wf_name ;
1871:
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'l_process_name',l_scpod_process_name);
1874: WSH_DEBUG_SV.pop(l_module_name);
1875: END IF;
1876: RETURN l_scpod_process_name;
1877: ELSE
1878: RAISE INVALID_ENTITY_TYPE;
1878: RAISE INVALID_ENTITY_TYPE;
1879: END IF;
1880:
1881: IF l_debug_on THEN
1882: WSH_DEBUG_SV.pop(l_module_name);
1883: END IF;
1884:
1885: EXCEPTION
1886: WHEN ENTITY_NOT_FOUND THEN
1892: close get_delivery_wf_name;
1893: END IF;
1894:
1895: IF l_debug_on THEN
1896: WSH_DEBUG_SV.logmsg(l_module_name,'Expected error has occured. Oracle error message is '||p_entity_type||' entity '||p_entity_id||' does not exists',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1897: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ENTITY_NOT_FOUND');
1898: END IF;
1899:
1900: RETURN NULL;
1893: END IF;
1894:
1895: IF l_debug_on THEN
1896: WSH_DEBUG_SV.logmsg(l_module_name,'Expected error has occured. Oracle error message is '||p_entity_type||' entity '||p_entity_id||' does not exists',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1897: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ENTITY_NOT_FOUND');
1898: END IF;
1899:
1900: RETURN NULL;
1901:
1908: close get_delivery_wf_name;
1909: END IF;
1910:
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Expected error has occured. Oracle error message is INVALID_ENTITY_TYPE passed: '||p_entity_type,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1913: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_TYPE');
1914: END IF;
1915:
1916: RETURN NULL;
1909: END IF;
1910:
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Expected error has occured. Oracle error message is INVALID_ENTITY_TYPE passed: '||p_entity_type,WSH_DEBUG_SV.C_EXCEP_LEVEL);
1913: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_TYPE');
1914: END IF;
1915:
1916: RETURN NULL;
1917:
1924: close get_delivery_wf_name;
1925: END IF;
1926:
1927: IF l_debug_on THEN
1928: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1929: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1930: END IF;
1931:
1932: RETURN NULL;
1925: END IF;
1926:
1927: IF l_debug_on THEN
1928: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1929: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1930: END IF;
1931:
1932: RETURN NULL;
1933:
1983: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1984: --
1985: IF l_debug_on IS NULL
1986: THEN
1987: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1988: END IF;
1989: --
1990: IF l_debug_on THEN
1991: WSH_DEBUG_SV.push(l_module_name);
1987: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1988: END IF;
1989: --
1990: IF l_debug_on THEN
1991: WSH_DEBUG_SV.push(l_module_name);
1992: WSH_DEBUG_SV.log(l_module_name,'l_eventname',l_eventname);
1993: WSH_DEBUG_SV.log(l_module_name,'l_eventkey',l_eventkey);
1994: END IF;
1995:
1988: END IF;
1989: --
1990: IF l_debug_on THEN
1991: WSH_DEBUG_SV.push(l_module_name);
1992: WSH_DEBUG_SV.log(l_module_name,'l_eventname',l_eventname);
1993: WSH_DEBUG_SV.log(l_module_name,'l_eventkey',l_eventkey);
1994: END IF;
1995:
1996: l_entityid := l_eventkey;
1989: --
1990: IF l_debug_on THEN
1991: WSH_DEBUG_SV.push(l_module_name);
1992: WSH_DEBUG_SV.log(l_module_name,'l_eventname',l_eventname);
1993: WSH_DEBUG_SV.log(l_module_name,'l_eventkey',l_eventkey);
1994: END IF;
1995:
1996: l_entityid := l_eventkey;
1997:
2012: l_eventname = 'oracle.apps.wsh.delivery.gen.closed' OR
2013: l_eventname = 'oracle.apps.wsh.delivery.gen.interfaced') THEN -- Events specific to delivery workflow.
2014: --{
2015: IF l_debug_on THEN
2016: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_WF_NAME', WSH_DEBUG_SV.C_PROC_LEVEL);
2017: END IF;
2018:
2019: l_wf_pr_name := GET_WF_NAME('DELIVERY',l_entityid);
2020:
2018:
2019: l_wf_pr_name := GET_WF_NAME('DELIVERY',l_entityid);
2020:
2021: IF l_debug_on THEN
2022: WSH_DEBUG_SV.log(l_module_name,'DELIVERY: l_wf_pr_name',l_wf_pr_name);
2023: END IF;
2024:
2025: --Call wf_engine.event only if any process is associated to the entity
2026: IF l_wf_pr_name IS NOT NULL THEN
2025: --Call wf_engine.event only if any process is associated to the entity
2026: IF l_wf_pr_name IS NOT NULL THEN
2027: --{
2028: IF l_debug_on THEN
2029: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WF_ENGINE.EVENT', WSH_DEBUG_SV.C_PROC_LEVEL);
2030: END IF;
2031:
2032: WF_ENGINE.EVENT(itemtype => 'WSHDEL',
2033: itemkey => l_entityid,
2034: process_name => l_wf_pr_name,
2035: event_message => p_event);
2036: ELSE
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_WF_NAME', WSH_DEBUG_SV.C_PROC_LEVEL);
2039: END IF;
2040:
2041: l_wf_pr_name := GET_WF_NAME('DELIVERY_C',l_entityid);
2042:
2040:
2041: l_wf_pr_name := GET_WF_NAME('DELIVERY_C',l_entityid);
2042:
2043: IF l_debug_on THEN
2044: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_C: l_wf_pr_name',l_wf_pr_name);
2045: END IF;
2046:
2047: IF l_wf_pr_name IS NOT NULL THEN
2048: IF l_debug_on THEN
2045: END IF;
2046:
2047: IF l_wf_pr_name IS NOT NULL THEN
2048: IF l_debug_on THEN
2049: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WF_ENGINE.EVENT', WSH_DEBUG_SV.C_PROC_LEVEL);
2050: END IF;
2051:
2052: WF_ENGINE.EVENT(itemtype => 'WSHDEL',
2053: itemkey => l_entityid,
2059: ELSIF (l_eventname = 'oracle.apps.wsh.trip.gen.initialpickupstopclosed' OR
2060: l_eventname = 'oracle.apps.wsh.trip.gen.ultimatedropoffstopclosed') THEN -- Events specific to Trip workflow
2061:
2062: IF l_debug_on THEN
2063: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.GET_WF_NAME', WSH_DEBUG_SV.C_PROC_LEVEL);
2064: END IF;
2065:
2066: l_wf_pr_name := GET_WF_NAME('TRIP',l_entityid);
2067:
2065:
2066: l_wf_pr_name := GET_WF_NAME('TRIP',l_entityid);
2067:
2068: IF l_debug_on THEN
2069: WSH_DEBUG_SV.log(l_module_name,'TRIP: l_wf_pr_name',l_wf_pr_name);
2070: END IF;
2071:
2072: IF l_wf_pr_name IS NOT NULL THEN
2073: IF l_debug_on THEN
2070: END IF;
2071:
2072: IF l_wf_pr_name IS NOT NULL THEN
2073: IF l_debug_on THEN
2074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WF_ENGINE.EVENT', WSH_DEBUG_SV.C_PROC_LEVEL);
2075: END IF;
2076:
2077: wf_engine.Event(itemtype => 'WSHTRIP',
2078: itemkey => l_entityid,
2085:
2086: EXCEPTION
2087: WHEN others THEN
2088: IF l_debug_on THEN
2089: WSH_DEBUG_SV.logmsg(l_module_name,'Exception :'||Wf_Core.Error_Name||' Occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
2090: END IF;
2091:
2092: IF (Wf_Core.Error_Name = 'WFENG_EVENT_NOTFOUND') THEN
2093: Wf_Core.Clear;
2104: raise e_event_error;
2105: END IF;
2106:
2107: IF l_debug_on THEN
2108: WSH_DEBUG_SV.pop(l_module_name);
2109: END IF;
2110:
2111: RETURN 'SUCCESS';
2112:
2115: WF_CORE.CONTEXT('WSH_WF_STD', 'WF_ENGINE_EVENT',p_event.getEventName( ), p_subscription_guid);
2116: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2117:
2118: IF l_debug_on THEN
2119: WSH_DEBUG_SV.logmsg(l_module_name,'Associated Entity Id not found. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_ENTITYID_NOTFOUND');
2121: END IF;
2122:
2123: RETURN 'ERROR';
2116: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2117:
2118: IF l_debug_on THEN
2119: WSH_DEBUG_SV.logmsg(l_module_name,'Associated Entity Id not found. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_ENTITYID_NOTFOUND');
2121: END IF;
2122:
2123: RETURN 'ERROR';
2124:
2126: WF_CORE.CONTEXT('WSH_WF_STD', 'WF_ENGINE_EVENT',p_event.getEventName( ), p_subscription_guid);
2127: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.logmsg(l_module_name,'Some Entities had errors while raising events. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2131: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_EVENT_ERROR');
2132: END IF;
2133:
2134: RETURN 'ERROR';
2127: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.logmsg(l_module_name,'Some Entities had errors while raising events. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2131: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_EVENT_ERROR');
2132: END IF;
2133:
2134: RETURN 'ERROR';
2135:
2137: WF_CORE.CONTEXT('WSH_WF_STD', 'WF_ENGINE_EVENT',p_event.getEventName( ), p_subscription_guid);
2138: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2139:
2140: IF l_debug_on THEN
2141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2143: END IF;
2144:
2145: RETURN 'ERROR';
2138: WF_EVENT.setErrorInfo(p_event, 'ERROR');
2139:
2140: IF l_debug_on THEN
2141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2143: END IF;
2144:
2145: RETURN 'ERROR';
2146: END WF_ENGINE_EVENT;
2210: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2211: --
2212: IF l_debug_on IS NULL
2213: THEN
2214: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2215: END IF;
2216: --
2217: IF l_debug_on THEN
2218: WSH_DEBUG_SV.push(l_module_name);
2214: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2215: END IF;
2216: --
2217: IF l_debug_on THEN
2218: WSH_DEBUG_SV.push(l_module_name);
2219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.WF_ENGINE_EVENT', WSH_DEBUG_SV.C_PROC_LEVEL);
2220: END IF;
2221:
2222: l_return_status := WF_ENGINE_EVENT( p_subscription_guid => p_subscription_guid,
2215: END IF;
2216: --
2217: IF l_debug_on THEN
2218: WSH_DEBUG_SV.push(l_module_name);
2219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.WF_ENGINE_EVENT', WSH_DEBUG_SV.C_PROC_LEVEL);
2220: END IF;
2221:
2222: l_return_status := WF_ENGINE_EVENT( p_subscription_guid => p_subscription_guid,
2223: p_event => p_event);
2221:
2222: l_return_status := WF_ENGINE_EVENT( p_subscription_guid => p_subscription_guid,
2223: p_event => p_event);
2224: IF l_debug_on THEN
2225: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2226: WSH_DEBUG_SV.pop(l_module_name);
2227: END IF;
2228:
2229: RETURN l_return_status;
2222: l_return_status := WF_ENGINE_EVENT( p_subscription_guid => p_subscription_guid,
2223: p_event => p_event);
2224: IF l_debug_on THEN
2225: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2226: WSH_DEBUG_SV.pop(l_module_name);
2227: END IF;
2228:
2229: RETURN l_return_status;
2230:
2230:
2231: EXCEPTION
2232: WHEN OTHERS THEN
2233: IF l_debug_on THEN
2234: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2236: END IF;
2237: RETURN 'ERROR';
2238: END;
2231: EXCEPTION
2232: WHEN OTHERS THEN
2233: IF l_debug_on THEN
2234: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2236: END IF;
2237: RETURN 'ERROR';
2238: END;
2239: ---------------------------------------------------------------------------------------
2247: BEGIN
2248:
2249: WSH_WF_STD.G_RESET_APPS_CONTEXT := TRUE;
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.push(l_module_name);
2252: WSH_DEBUG_SV.pop(l_module_name);
2253: END IF;
2254:
2255: END RESET_APPS_CONTEXT_ON;
2248:
2249: WSH_WF_STD.G_RESET_APPS_CONTEXT := TRUE;
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.push(l_module_name);
2252: WSH_DEBUG_SV.pop(l_module_name);
2253: END IF;
2254:
2255: END RESET_APPS_CONTEXT_ON;
2256:
2265: BEGIN
2266:
2267: WSH_WF_STD.G_RESET_APPS_CONTEXT := FALSE;
2268: IF l_debug_on THEN
2269: WSH_DEBUG_SV.push(l_module_name);
2270: WSH_DEBUG_SV.pop(l_module_name);
2271: END IF;
2272:
2273: END RESET_APPS_CONTEXT_OFF;
2266:
2267: WSH_WF_STD.G_RESET_APPS_CONTEXT := FALSE;
2268: IF l_debug_on THEN
2269: WSH_DEBUG_SV.push(l_module_name);
2270: WSH_DEBUG_SV.pop(l_module_name);
2271: END IF;
2272:
2273: END RESET_APPS_CONTEXT_OFF;
2274:
2309: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2310: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2311:
2312: IF l_debug_on IS NULL THEN
2313: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2314: END IF;
2315:
2316: FOR i IN p_del_ids.FIRST..p_del_ids.LAST
2317: LOOP
2319: OPEN c_tripordel_carrier(p_delivery_id => p_del_ids(i));
2320: FETCH c_tripordel_carrier INTO l_carrier_id;
2321: IF c_tripordel_carrier%NOTFOUND THEN
2322: IF l_debug_on THEN
2323: WSH_DEBUG_SV.logmsg(l_module_name,'No Rows returned from Cursor c_tripordel_carrier', WSH_DEBUG_SV.C_STMT_LEVEL);
2324: END IF;
2325: OPEN c_del_carrier(p_delivery_id => p_del_ids(i));
2326: FETCH c_del_carrier INTO l_carrier_id;
2327: CLOSE c_del_carrier;
2328: END IF;
2329: CLOSE c_tripordel_carrier;
2330: x_del_old_carrier_ids(i) := l_carrier_id;
2331: IF l_debug_on THEN
2332: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery ID '||p_del_ids(i)||'has Trip/Delivery carrier '||l_carrier_id, WSH_DEBUG_SV.C_STMT_LEVEL);
2333: END IF;
2334: END LOOP;
2335:
2336: EXCEPTION
2338: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2339: wsh_util_core.default_handler('WSH_WF_STD.GET_CARRIER');
2340: IF l_debug_on THEN
2341: --{
2342: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2344: --}
2345: END IF;
2346: END Get_Carrier;
2339: wsh_util_core.default_handler('WSH_WF_STD.GET_CARRIER');
2340: IF l_debug_on THEN
2341: --{
2342: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2344: --}
2345: END IF;
2346: END Get_Carrier;
2347:
2404:
2405: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2406:
2407: IF l_debug_on IS NULL THEN
2408: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2409: END IF;
2410:
2411: OPEN c_get_del_info(p_delivery_id => p_delivery_id);
2412: FETCH c_get_del_info INTO l_org_id, l_del_wf;
2469: WHEN OTHERS THEN
2470: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2471: wsh_util_core.default_handler('WSH_WF_STD.Assign_Unassign_Carrier');
2472: IF l_debug_on THEN
2473: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2474: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2475: END IF;
2476: END Assign_Unassign_Carrier;
2477:
2470: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2471: wsh_util_core.default_handler('WSH_WF_STD.Assign_Unassign_Carrier');
2472: IF l_debug_on THEN
2473: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2474: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2475: END IF;
2476: END Assign_Unassign_Carrier;
2477:
2478: