40: l_api_version CONSTANT NUMBER := 1.0;
41: l_api_name CONSTANT VARCHAR2(30) := 'CSP_VALIDATE';
42:
43: -- standard variables
44: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
45: l_msg_count NUMBER := 0;
46: l_msg_data VARCHAR2(2000) := NULL;
47: l_msg_summary VARCHAR2(2000);
48: l_msg_details VARCHAR2(4000);
120: WSH_DEBUG_SV.log(l_module_name,'P_ACCEPTLICENSEAGREEMENT',P_ACCEPTLICENSEAGREEMENT);
121: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSETYPE',P_RESPONSETYPE);
122: END IF;
123: --
124: IF NOT FND_API.compatible_api_call( l_api_version,
125: p_api_version,
126: l_api_name,
127: G_PKG_NAME) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: IF NOT FND_API.compatible_api_call( l_api_version,
125: p_api_version,
126: l_api_name,
127: G_PKG_NAME) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: -- Check p_init_msg_list
132: IF FND_API.to_boolean(p_init_msg_list) THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: -- Check p_init_msg_list
132: IF FND_API.to_boolean(p_init_msg_list) THEN
133: FND_MSG_PUB.initialize;
134: END IF;
135:
136: -- initialize API return status to success
133: FND_MSG_PUB.initialize;
134: END IF;
135:
136: -- initialize API return status to success
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139: x_msg_count := 0;
140: x_msg_data := NULL;
141:
157: END IF;
158: --
159: L_UPS_URL := WSH_U_UTIL.Get_Carrier_API_URL(
160: p_api_version => 1.0,
161: p_init_msg_list => FND_API.G_TRUE,
162: x_return_status => l_return_status,
163: x_msg_count => l_msg_count,
164: x_msg_data => l_msg_data,
165: p_Carrier_Name => 'UPS',
163: x_msg_count => l_msg_count,
164: x_msg_data => l_msg_data,
165: p_Carrier_Name => 'UPS',
166: p_API_Name => 'CSP_VALIDATE');
167: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
168: raise WSH_U_CAR_URL;
169: end if;
170:
171: L_INPUT_STR := L_UPS_URL || '?';
251: -- DBMS_OUTPUT.PUT_LINE(SUBSTR(L_INPUT_STR,251,50));
252: -- DBMS_OUTPUT.PUT_LINE('========== request end =========');
253:
254: -- clear variables before calling subroutine
255: l_return_status := FND_API.G_RET_STS_SUCCESS;
256: l_msg_count := 0;
257: l_msg_data := NULL;
258:
259:
266: END IF;
267: --
268: L_INTERNET_PROXY := WSH_U_UTIL.Get_PROXY(
269: p_api_version => 1.0,
270: p_init_msg_list => FND_API.G_TRUE,
271: x_return_status => l_return_status,
272: x_msg_count => l_msg_count,
273: x_msg_data => l_msg_data);
274:
271: x_return_status => l_return_status,
272: x_msg_count => l_msg_count,
273: x_msg_data => l_msg_data);
274:
275: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
276: raise WSH_U_PROXY;
277: end if;
278: if L_INTERNET_PROXY is not NULL then
279: l_output_data := utl_http.request_pieces(L_INPUT_STR,100,L_INTERNET_PROXY);
512:
513: WHEN WSH_U_CAR_URL THEN
514: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_CAR_URL');
515: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
516: x_return_status := FND_API.G_RET_STS_ERROR;
517: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
518: if x_msg_count > 1 then
519: x_msg_data := l_msg_summary || l_msg_details;
520: else
531: --
532: WHEN WSH_U_NO_HOST THEN
533: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_NO_HOST');
534: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
537: if x_msg_count > 1 then
538: x_msg_data := l_msg_summary || l_msg_details;
539: else
550: --
551: WHEN REQUEST_FAILED THEN
552: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_REQUEST_FAILED');
553: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
554: x_return_status := FND_API.G_RET_STS_ERROR;
555: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
556: if x_msg_count > 1 then
557: x_msg_data := l_msg_summary || l_msg_details;
558: else
569: --
570: WHEN INIT_FAILED THEN
571: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INIT_FAILED');
572: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
573: x_return_status := FND_API.G_RET_STS_ERROR;
574: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
575: if x_msg_count > 1 then
576: x_msg_data := l_msg_summary || l_msg_details;
577: else
588: --
589: WHEN WSH_U_PROXY THEN
590: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_PROXY');
591: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
592: x_return_status := FND_API.G_RET_STS_ERROR;
593: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
594: if x_msg_count > 1 then
595: x_msg_data := l_msg_summary || l_msg_details;
596: else
607: --
608: WHEN WSH_U_APPVER THEN
609: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_APPVER');
610: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
611: x_return_status := FND_API.G_RET_STS_ERROR;
612: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
613: if x_msg_count > 1 then
614: x_msg_data := l_msg_summary || l_msg_details;
615: else
626: --
627: WHEN WSH_U_LICAGRE THEN
628: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_LICAGRE');
629: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
630: x_return_status := FND_API.G_RET_STS_ERROR;
631: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
632: if x_msg_count > 1 then
633: x_msg_data := l_msg_summary || l_msg_details;
634: else
645: --
646: WHEN WSH_U_RESTYP THEN
647: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_RESTYP');
648: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
649: x_return_status := FND_API.G_RET_STS_ERROR;
650: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
651: if x_msg_count > 1 then
652: x_msg_data := l_msg_summary || l_msg_details;
653: else
664: --
665: WHEN WSH_U_CSP THEN
666: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_CSP');
667: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
668: x_return_status := FND_API.G_RET_STS_ERROR;
669: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
670: if x_msg_count > 1 then
671: x_msg_data := l_msg_summary || l_msg_details;
672: else
683: --
684: WHEN WSH_U_CITYORZIP THEN
685: FND_MESSAGE.SET_NAME('WSH', 'WSH_U_INQNO ');
686: WSH_UTIL_CORE.ADD_MESSAGE(p_message_type);
687: x_return_status := FND_API.G_RET_STS_ERROR;
688: WSH_UTIL_CORE.get_messages( 'Y', l_msg_summary, l_msg_details, x_msg_count);
689: if x_msg_count > 1 then
690: x_msg_data := l_msg_summary || l_msg_details;
691: else
699: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_U_CITYORZIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
700: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CITYORZIP');
701: END IF;
702: --
703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF FND_MSG_PUB.check_msg_level
706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
707: THEN
700: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_U_CITYORZIP');
701: END IF;
702: --
703: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: IF FND_MSG_PUB.check_msg_level
706: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
707: THEN
708: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
712: --
713: -- Debug Statements
714: --
715: IF l_debug_on THEN
716: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
717: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
718: END IF;
719: --
720: WHEN OTHERS THEN
713: -- Debug Statements
714: --
715: IF l_debug_on THEN
716: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
717: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
718: END IF;
719: --
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
718: END IF;
719: --
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: IF FND_MSG_PUB.check_msg_level
723: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
724: THEN
725: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);