109: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
110: --
111: IF l_debug_on IS NULL
112: THEN
113: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
114: END IF;
115: --
116: IF l_debug_on THEN
117: WSH_DEBUG_SV.push(l_module_name);
113: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
114: END IF;
115: --
116: IF l_debug_on THEN
117: WSH_DEBUG_SV.push(l_module_name);
118: --
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
115: --
116: IF l_debug_on THEN
117: WSH_DEBUG_SV.push(l_module_name);
118: --
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
116: IF l_debug_on THEN
117: WSH_DEBUG_SV.push(l_module_name);
118: --
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
117: WSH_DEBUG_SV.push(l_module_name);
118: --
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
125: WSH_DEBUG_SV.log(l_module_name,'P_DESTINATIONNUMBER',P_DESTINATIONNUMBER);
118: --
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
125: WSH_DEBUG_SV.log(l_module_name,'P_DESTINATIONNUMBER',P_DESTINATIONNUMBER);
126: END IF;
119: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
125: WSH_DEBUG_SV.log(l_module_name,'P_DESTINATIONNUMBER',P_DESTINATIONNUMBER);
126: END IF;
127: --
120: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
125: WSH_DEBUG_SV.log(l_module_name,'P_DESTINATIONNUMBER',P_DESTINATIONNUMBER);
126: END IF;
127: --
128: IF NOT FND_API.compatible_api_call( l_api_version,
121: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
122: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
123: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
124: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINNUMBER',P_ORIGINNUMBER);
125: WSH_DEBUG_SV.log(l_module_name,'P_DESTINATIONNUMBER',P_DESTINATIONNUMBER);
126: END IF;
127: --
128: IF NOT FND_API.compatible_api_call( l_api_version,
129: p_api_version,
150: --
151: -- Debug Statements
152: --
153: IF l_debug_on THEN
154: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.GET_CARRIER_API_URL',WSH_DEBUG_SV.C_PROC_LEVEL);
155: END IF;
156: --
157: L_UPS_URL := WSH_U_UTIL.Get_Carrier_API_URL(
158: p_api_version => 1.0,
236: --
237: -- Debug Statements
238: --
239: IF l_debug_on THEN
240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.GET_PROXY',WSH_DEBUG_SV.C_PROC_LEVEL);
241: END IF;
242: --
243: L_INTERNET_PROXY := WSH_U_UTIL.Get_PROXY(
244: p_api_version => 1.0,
335: --
336: -- Debug Statements
337: --
338: IF l_debug_on THEN
339: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
340: END IF;
341: --
342: x_TimeInTransit_out.UPSOnLine :=
343: WSH_U_UTIL.Calculate_Token(L_GTT_Message,L_Token_Start,L_Token_End);
345: --
346: -- Debug Statements
347: --
348: IF l_debug_on THEN
349: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
350: END IF;
351: --
352: x_TimeInTransit_out.AppVersion :=
353: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
355: --
356: -- Debug Statements
357: --
358: IF l_debug_on THEN
359: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
360: END IF;
361: --
362: x_TimeInTransit_out.ReturnCode :=
363: TO_NUMBER(WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End));
366: --
367: -- Debug Statements
368: --
369: IF l_debug_on THEN
370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
371: END IF;
372: --
373: x_TimeInTransit_out.MessageText :=
374: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
386: --
387: -- Debug Statements
388: --
389: IF l_debug_on THEN
390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
391: END IF;
392: --
393: x_TimeInTransit_out.TransitTime :=
394: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
396: --
397: -- Debug Statements
398: --
399: IF l_debug_on THEN
400: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
401: END IF;
402: --
403: x_TimeInTransit_out.OriginCity :=
404: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
406: --
407: -- Debug Statements
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
411: END IF;
412: --
413: x_TimeInTransit_out.OriginStateProv :=
414: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
416: --
417: -- Debug Statements
418: --
419: IF l_debug_on THEN
420: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
421: END IF;
422: --
423: x_TimeInTransit_out.DestinationCity :=
424: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
426: --
427: -- Debug Statements
428: --
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
432: --
433: x_TimeInTransit_out.DestinationStateProv :=
434: WSH_U_UTIL.Calculate_Token(L_GTT_Message, L_Token_Start,L_Token_End);
458: --
459: -- Debug Statements
460: --
461: IF l_debug_on THEN
462: WSH_DEBUG_SV.pop(l_module_name);
463: END IF;
464: --
465: EXCEPTION
466:
478: --
479: -- Debug Statements
480: --
481: IF l_debug_on THEN
482: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CAR_URL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CAR_URL');
484: END IF;
485: --
486: WHEN WSH_U_PROXY THEN
479: -- Debug Statements
480: --
481: IF l_debug_on THEN
482: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CAR_URL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CAR_URL');
484: END IF;
485: --
486: WHEN WSH_U_PROXY THEN
487: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_PROXY');
501: --
502: -- Debug Statements
503: --
504: IF l_debug_on THEN
505: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_PROXY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_PROXY');
507: END IF;
508: --
509: WHEN REQUEST_FAILED THEN
502: -- Debug Statements
503: --
504: IF l_debug_on THEN
505: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_PROXY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_PROXY');
507: END IF;
508: --
509: WHEN REQUEST_FAILED THEN
510: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_REQ_FAILED');
523: --
524: -- Debug Statements
525: --
526: IF l_debug_on THEN
527: WSH_DEBUG_SV.logmsg(l_module_name,'REQUEST_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REQUEST_FAILED');
529: END IF;
530: --
531: WHEN INIT_FAILED THEN
524: -- Debug Statements
525: --
526: IF l_debug_on THEN
527: WSH_DEBUG_SV.logmsg(l_module_name,'REQUEST_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REQUEST_FAILED');
529: END IF;
530: --
531: WHEN INIT_FAILED THEN
532: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INIT_FAILED');
542: --
543: -- Debug Statements
544: --
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'INIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
547: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_FAILED');
548: END IF;
549: --
550: WHEN WSH_U_NO_HOST THEN
543: -- Debug Statements
544: --
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'INIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
547: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_FAILED');
548: END IF;
549: --
550: WHEN WSH_U_NO_HOST THEN
551: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_NO_HOST');
562: --
563: -- Debug Statements
564: --
565: IF l_debug_on THEN
566: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_NO_HOST exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_NO_HOST');
568: END IF;
569: --
570: WHEN WSH_U_APPVER THEN
563: -- Debug Statements
564: --
565: IF l_debug_on THEN
566: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_NO_HOST exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_NO_HOST');
568: END IF;
569: --
570: WHEN WSH_U_APPVER THEN
571: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_APPVER');
581: --
582: -- Debug Statements
583: --
584: IF l_debug_on THEN
585: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_APPVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_APPVER');
587: END IF;
588: --
589: WHEN WSH_U_LICAGRE THEN
582: -- Debug Statements
583: --
584: IF l_debug_on THEN
585: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_APPVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_APPVER');
587: END IF;
588: --
589: WHEN WSH_U_LICAGRE THEN
590: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_LICAGRE');
595: --
596: -- Debug Statements
597: --
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_LICAGRE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
600: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_LICAGRE');
601: END IF;
602: --
603: WHEN WSH_U_RESTYP THEN
596: -- Debug Statements
597: --
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_LICAGRE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
600: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_LICAGRE');
601: END IF;
602: --
603: WHEN WSH_U_RESTYP THEN
604: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_RESTYP');
614: --
615: -- Debug Statements
616: --
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_RESTYP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
619: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_RESTYP');
620: END IF;
621: --
622: WHEN WSH_U_ORIGINNUM THEN
615: -- Debug Statements
616: --
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_RESTYP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
619: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_RESTYP');
620: END IF;
621: --
622: WHEN WSH_U_ORIGINNUM THEN
623: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_ORIGINNUM');
633: --
634: -- Debug Statements
635: --
636: IF l_debug_on THEN
637: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_ORIGINNUM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_ORIGINNUM');
639: END IF;
640: --
641: WHEN WSH_U_DESTINATIONNUM THEN
634: -- Debug Statements
635: --
636: IF l_debug_on THEN
637: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_ORIGINNUM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_ORIGINNUM');
639: END IF;
640: --
641: WHEN WSH_U_DESTINATIONNUM THEN
642: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_DESTINATIONNUM');
653: --
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_DESTINATIONNUM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_DESTINATIONNUM');
659: END IF;
660: --
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
654: -- Debug Statements
655: --
656: IF l_debug_on THEN
657: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_DESTINATIONNUM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_DESTINATIONNUM');
659: END IF;
660: --
661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: --
671: -- Debug Statements
672: --
673: IF l_debug_on THEN
674: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
675: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
676: END IF;
677: --
678: WHEN OTHERS THEN
671: -- Debug Statements
672: --
673: IF l_debug_on THEN
674: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
675: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
676: END IF;
677: --
678: WHEN OTHERS THEN
679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
687: --
688: -- Debug Statements
689: --
690: IF l_debug_on THEN
691: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
693: END IF;
694: --
695: END Time_In_Transit;
688: -- Debug Statements
689: --
690: IF l_debug_on THEN
691: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
693: END IF;
694: --
695: END Time_In_Transit;
696: