108: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
109: --
110: IF l_debug_on IS NULL
111: THEN
112: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
113: END IF;
114: --
115: IF l_debug_on THEN
116: WSH_DEBUG_SV.push(l_module_name);
112: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
113: END IF;
114: --
115: IF l_debug_on THEN
116: WSH_DEBUG_SV.push(l_module_name);
117: --
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
114: --
115: IF l_debug_on THEN
116: WSH_DEBUG_SV.push(l_module_name);
117: --
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
121: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
122: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
115: IF l_debug_on THEN
116: WSH_DEBUG_SV.push(l_module_name);
117: --
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
121: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
122: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
123: END IF;
116: WSH_DEBUG_SV.push(l_module_name);
117: --
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
121: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
122: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
123: END IF;
124: --
117: --
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
121: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
122: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
123: END IF;
124: --
125: IF NOT FND_API.compatible_api_call
118: WSH_DEBUG_SV.log(l_module_name,'P_API_VERSION',P_API_VERSION);
119: WSH_DEBUG_SV.log(l_module_name,'P_INIT_MSG_LIST',P_INIT_MSG_LIST);
120: WSH_DEBUG_SV.log(l_module_name,'P_APPVERSION',P_APPVERSION);
121: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
122: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
123: END IF;
124: --
125: IF NOT FND_API.compatible_api_call
126: ( l_api_version
147: l_csp_validate_req_in := p_request_in;
148:
149: --Added for Carrier Services Integration with Shipping project Bug 16095594
150: IF l_debug_on THEN
151: WSH_DEBUG_SV.log(l_module_name,'Entity Called is '||l_csp_validate_req_in.Entity);
152: WSH_DEBUG_SV.log(l_module_name,'EntityId is '||l_csp_validate_req_in.Entity_Id);
153: END IF;
154:
155: wsh_custom_pub.csp_shipment_services
148:
149: --Added for Carrier Services Integration with Shipping project Bug 16095594
150: IF l_debug_on THEN
151: WSH_DEBUG_SV.log(l_module_name,'Entity Called is '||l_csp_validate_req_in.Entity);
152: WSH_DEBUG_SV.log(l_module_name,'EntityId is '||l_csp_validate_req_in.Entity_Id);
153: END IF;
154:
155: wsh_custom_pub.csp_shipment_services
156: ( p_request_in => l_csp_validate_req_in
178: --
179: -- Debug Statements
180: --
181: IF l_debug_on THEN
182: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.GET_CARRIER_API_URL',WSH_DEBUG_SV.C_PROC_LEVEL);
183: END IF;
184: --
185: L_UPS_URL := WSH_U_UTIL.Get_Carrier_API_URL(
186: p_api_version => 1.0,
287: --
288: -- Debug Statements
289: --
290: IF l_debug_on THEN
291: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.GET_PROXY',WSH_DEBUG_SV.C_PROC_LEVEL);
292: END IF;
293: --
294: L_INTERNET_PROXY := WSH_U_UTIL.Get_PROXY(
295: p_api_version => 1.0,
390: --
391: -- Debug Statements
392: --
393: IF l_debug_on THEN
394: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
395: END IF;
396: --
397: x_CSPValidate_out(l_outrec_index).UPSOnLine :=
398: WSH_U_UTIL.Calculate_Token(L_CSPV_Message,L_Token_Start,L_Token_End);
400: --
401: -- Debug Statements
402: --
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
405: END IF;
406: --
407: x_CSPValidate_out(l_outrec_index).AppVersion :=
408: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
410: --
411: -- Debug Statements
412: --
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
415: END IF;
416: --
417: x_CSPValidate_out(l_outrec_index).ReturnCode :=
418: TO_NUMBER(WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End));
421: --
422: -- Debug Statements
423: --
424: IF l_debug_on THEN
425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
426: END IF;
427: --
428: x_CSPValidate_out(l_outrec_index).MessageText :=
429: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
440: --
441: -- Debug Statements
442: --
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
445: END IF;
446: --
447: x_CSPValidate_out(l_outrec_index).Rank :=
448: TO_NUMBER(WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End));
450: --
451: -- Debug Statements
452: --
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
455: END IF;
456: --
457: x_CSPValidate_out(l_outrec_index).Quality :=
458: TO_NUMBER(WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End));
460: --
461: -- Debug Statements
462: --
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
465: END IF;
466: --
467: x_CSPValidate_out(l_outrec_index).City :=
468: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
470: --
471: -- Debug Statements
472: --
473: IF l_debug_on THEN
474: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
475: END IF;
476: --
477: x_CSPValidate_out(l_outrec_index).StateProv :=
478: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
480: --
481: -- Debug Statements
482: --
483: IF l_debug_on THEN
484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
485: END IF;
486: --
487: x_CSPValidate_out(l_outrec_index).PostalCodeLow :=
488: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
490: --
491: -- Debug Statements
492: --
493: IF l_debug_on THEN
494: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_U_UTIL.CALCULATE_TOKEN',WSH_DEBUG_SV.C_PROC_LEVEL);
495: END IF;
496: --
497: x_CSPValidate_out(l_outrec_index).PostalCodeHigh :=
498: WSH_U_UTIL.Calculate_Token(L_CSPV_Message, L_Token_Start,L_Token_End);
530: --
531: -- Debug Statements
532: --
533: IF l_debug_on THEN
534: WSH_DEBUG_SV.pop(l_module_name);
535: END IF;
536: --
537: EXCEPTION
538:
551: --
552: -- Debug Statements
553: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CAR_URL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CAR_URL');
557: END IF;
558:
559: WHEN WSH_U_NO_HOST THEN
552: -- Debug Statements
553: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CAR_URL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CAR_URL');
557: END IF;
558:
559: WHEN WSH_U_NO_HOST THEN
560: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_NO_HOST');
570: --
571: -- Debug Statements
572: --
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_NO_HOST exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_NO_HOST');
576: END IF;
577: --
578: WHEN REQUEST_FAILED THEN
571: -- Debug Statements
572: --
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_NO_HOST exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_NO_HOST');
576: END IF;
577: --
578: WHEN REQUEST_FAILED THEN
579: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_REQUEST_FAILED');
589: --
590: -- Debug Statements
591: --
592: IF l_debug_on THEN
593: WSH_DEBUG_SV.logmsg(l_module_name,'REQUEST_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REQUEST_FAILED');
595: END IF;
596: --
597: WHEN INIT_FAILED THEN
590: -- Debug Statements
591: --
592: IF l_debug_on THEN
593: WSH_DEBUG_SV.logmsg(l_module_name,'REQUEST_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REQUEST_FAILED');
595: END IF;
596: --
597: WHEN INIT_FAILED THEN
598: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INIT_FAILED');
608: --
609: -- Debug Statements
610: --
611: IF l_debug_on THEN
612: WSH_DEBUG_SV.logmsg(l_module_name,'INIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_FAILED');
614: END IF;
615: --
616: WHEN WSH_U_PROXY THEN
609: -- Debug Statements
610: --
611: IF l_debug_on THEN
612: WSH_DEBUG_SV.logmsg(l_module_name,'INIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_FAILED');
614: END IF;
615: --
616: WHEN WSH_U_PROXY THEN
617: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_PROXY');
627: --
628: -- Debug Statements
629: --
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_PROXY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_PROXY');
633: END IF;
634: --
635: WHEN WSH_U_APPVER THEN
628: -- Debug Statements
629: --
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_PROXY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_PROXY');
633: END IF;
634: --
635: WHEN WSH_U_APPVER THEN
636: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_APPVER');
646: --
647: -- Debug Statements
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_APPVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_APPVER');
652: END IF;
653: --
654: WHEN WSH_U_LICAGRE THEN
647: -- Debug Statements
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_APPVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_APPVER');
652: END IF;
653: --
654: WHEN WSH_U_LICAGRE THEN
655: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_LICAGRE');
665: --
666: -- Debug Statements
667: --
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_LICAGRE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
670: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_LICAGRE');
671: END IF;
672: --
673: WHEN WSH_U_RESTYP THEN
666: -- Debug Statements
667: --
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_LICAGRE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
670: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_LICAGRE');
671: END IF;
672: --
673: WHEN WSH_U_RESTYP THEN
674: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_RESTYP');
684: --
685: -- Debug Statements
686: --
687: IF l_debug_on THEN
688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_RESTYP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_RESTYP');
690: END IF;
691: --
692: WHEN WSH_U_CSP THEN
685: -- Debug Statements
686: --
687: IF l_debug_on THEN
688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_RESTYP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_RESTYP');
690: END IF;
691: --
692: WHEN WSH_U_CSP THEN
693: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_CSP');
703: --
704: -- Debug Statements
705: --
706: IF l_debug_on THEN
707: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CSP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CSP');
709: END IF;
710: --
711: WHEN WSH_U_CITYORZIP THEN
704: -- Debug Statements
705: --
706: IF l_debug_on THEN
707: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CSP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
708: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CSP');
709: END IF;
710: --
711: WHEN WSH_U_CITYORZIP THEN
712: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INQNO ');
722: --
723: -- Debug Statements
724: --
725: IF l_debug_on THEN
726: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CITYORZIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
727: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CITYORZIP');
728: END IF;
729: --
730: End of Commented for Carrier Services Integration with Shipping project Bug 16095594*/
723: -- Debug Statements
724: --
725: IF l_debug_on THEN
726: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CITYORZIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
727: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CITYORZIP');
728: END IF;
729: --
730: End of Commented for Carrier Services Integration with Shipping project Bug 16095594*/
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
740: -- Debug Statements
741: --
742: IF l_debug_on
743: THEN
744: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
746: END IF;
747: --
748: WHEN OTHERS THEN
741: --
742: IF l_debug_on
743: THEN
744: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
746: END IF;
747: --
748: WHEN OTHERS THEN
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
757: -- Debug Statements
758: --
759: IF l_debug_on
760: THEN
761: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
762: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
763: END IF;
764: --
765: END CSP_Validate;
758: --
759: IF l_debug_on
760: THEN
761: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
762: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
763: END IF;
764: --
765: END CSP_Validate;
766: