41: l_api_version CONSTANT NUMBER := 1.0;
42: l_api_name CONSTANT VARCHAR2(30) := 'CSP_VALIDATE';
43:
44: -- standard variables
45: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
46: l_msg_count NUMBER := 0;
47: l_msg_data VARCHAR2(2000) := NULL;
48: l_msg_summary VARCHAR2(2000);
49: l_msg_details VARCHAR2(4000);
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
127: , p_api_version
128: , l_api_name
129: , G_PKG_NAME)
127: , p_api_version
128: , l_api_name
129: , G_PKG_NAME)
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: -- Check p_init_msg_list
135: IF FND_API.to_boolean(p_init_msg_list)
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: -- Check p_init_msg_list
135: IF FND_API.to_boolean(p_init_msg_list)
136: THEN
137: FND_MSG_PUB.initialize;
138: END IF;
139:
137: FND_MSG_PUB.initialize;
138: END IF;
139:
140: -- initialize API return status to success
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: x_msg_count := 0;
143: x_msg_data := NULL;
144:
145: -- program specific logic begins here
158: , x_msg_count => l_msg_count
159: , x_msg_data => l_msg_data
160: , x_return_status => l_return_status);
161:
162: IF l_return_status = FND_API.G_RET_STS_SUCCESS
163: THEN
164: x_return_status := l_return_status;
165: x_CSPValidate_out := l_cspvalidate_out;
166: ELSE
183: END IF;
184: --
185: L_UPS_URL := WSH_U_UTIL.Get_Carrier_API_URL(
186: p_api_version => 1.0,
187: p_init_msg_list => FND_API.G_TRUE,
188: x_return_status => l_return_status,
189: x_msg_count => l_msg_count,
190: x_msg_data => l_msg_data,
191: p_Carrier_Name => 'UPS',
189: x_msg_count => l_msg_count,
190: x_msg_data => l_msg_data,
191: p_Carrier_Name => 'UPS',
192: p_API_Name => 'CSP_VALIDATE');
193: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
194: raise WSH_U_CAR_URL;
195: end if;
196:
197: L_INPUT_STR := L_UPS_URL || '?';
277: -- DBMS_OUTPUT.PUT_LINE(SUBSTR(L_INPUT_STR,251,50));
278: -- DBMS_OUTPUT.PUT_LINE('========== request end =========');
279:
280: -- clear variables before calling subroutine
281: l_return_status := FND_API.G_RET_STS_SUCCESS;
282: l_msg_count := 0;
283: l_msg_data := NULL;
284:
285:
292: END IF;
293: --
294: L_INTERNET_PROXY := WSH_U_UTIL.Get_PROXY(
295: p_api_version => 1.0,
296: p_init_msg_list => FND_API.G_TRUE,
297: x_return_status => l_return_status,
298: x_msg_count => l_msg_count,
299: x_msg_data => l_msg_data);
300:
297: x_return_status => l_return_status,
298: x_msg_count => l_msg_count,
299: x_msg_data => l_msg_data);
300:
301: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
302: raise WSH_U_PROXY;
303: end if;
304: if L_INTERNET_PROXY is not NULL then
305: l_output_data := utl_http.request_pieces(L_INPUT_STR,100,L_INTERNET_PROXY);
539: /*Comment Commented for Carrier Services Integration with Shipping project Bug 16095594
540: WHEN WSH_U_CAR_URL THEN
541: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_CAR_URL');
542: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
545: if x_msg_count > 1 then
546: x_msg_data := l_msg_summary || l_msg_details;
547: else
558:
559: WHEN WSH_U_NO_HOST THEN
560: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_NO_HOST');
561: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
564: if x_msg_count > 1 then
565: x_msg_data := l_msg_summary || l_msg_details;
566: else
577: --
578: WHEN REQUEST_FAILED THEN
579: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_REQUEST_FAILED');
580: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
583: if x_msg_count > 1 then
584: x_msg_data := l_msg_summary || l_msg_details;
585: else
596: --
597: WHEN INIT_FAILED THEN
598: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INIT_FAILED');
599: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
602: if x_msg_count > 1 then
603: x_msg_data := l_msg_summary || l_msg_details;
604: else
615: --
616: WHEN WSH_U_PROXY THEN
617: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_PROXY');
618: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
619: x_return_status := FND_API.G_RET_STS_ERROR;
620: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
621: if x_msg_count > 1 then
622: x_msg_data := l_msg_summary || l_msg_details;
623: else
634: --
635: WHEN WSH_U_APPVER THEN
636: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_APPVER');
637: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
638: x_return_status := FND_API.G_RET_STS_ERROR;
639: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
640: if x_msg_count > 1 then
641: x_msg_data := l_msg_summary || l_msg_details;
642: else
653: --
654: WHEN WSH_U_LICAGRE THEN
655: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_LICAGRE');
656: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
659: if x_msg_count > 1 then
660: x_msg_data := l_msg_summary || l_msg_details;
661: else
672: --
673: WHEN WSH_U_RESTYP THEN
674: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_RESTYP');
675: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
678: if x_msg_count > 1 then
679: x_msg_data := l_msg_summary || l_msg_details;
680: else
691: --
692: WHEN WSH_U_CSP THEN
693: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_CSP');
694: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
695: x_return_status := FND_API.G_RET_STS_ERROR;
696: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
697: if x_msg_count > 1 then
698: x_msg_data := l_msg_summary || l_msg_details;
699: else
710: --
711: WHEN WSH_U_CITYORZIP THEN
712: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INQNO ');
713: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
716: if x_msg_count > 1 then
717: x_msg_data := l_msg_summary || l_msg_details;
718: else
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
732: THEN
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
735: THEN
729: --
730: End of Commented for Carrier Services Integration with Shipping project Bug 16095594*/
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
732: THEN
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
735: THEN
736: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
737: END IF;
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;
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;
750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
753: END IF;