136:
137: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
138: IF l_debug_on IS NULL
139: THEN
140: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
141: END IF;
142: IF NOT FND_API.Compatible_API_Call
143: ( l_api_version_number,
144: p_api_version_number,
153: FND_MSG_PUB.initialize;
154: END IF;
155:
156: IF l_debug_on THEN
157: wsh_debug_sv.push (l_module_name);
158: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
159: END IF;
160: IF p_action_code IS NULL THEN
161: l_param_name := 'action_code';
154: END IF;
155:
156: IF l_debug_on THEN
157: wsh_debug_sv.push (l_module_name);
158: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
159: END IF;
160: IF p_action_code IS NULL THEN
161: l_param_name := 'action_code';
162: l_input_param_flag := FALSE;
347: x_num_warnings =>l_num_warnings,
348: x_num_errors =>l_num_errors
349: );
350: IF l_debug_on THEN
351: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.CREATE_CARRIERINFO',l_return_status);
352: END IF;
353:
354: ELSIF p_action_code = 'UPDATE' OR l_action_code = 'UPDATE' THEN
355:
424: X_SQL_CODE => l_sql_code
425: );
426:
427: IF l_debug_on THEN
428: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.UPDATE_CARRIERINFO',l_return_status);
429: END IF;
430:
431: END IF;
432: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
452: p_encoded => FND_API.G_FALSE
453: );
454:
455: IF l_debug_on THEN
456: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
457: wsh_debug_sv.log (l_module_name,'l_position',l_position);
458: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
459: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
460: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
453: );
454:
455: IF l_debug_on THEN
456: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
457: wsh_debug_sv.log (l_module_name,'l_position',l_position);
458: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
459: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
460: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
461: END IF;
454:
455: IF l_debug_on THEN
456: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
457: wsh_debug_sv.log (l_module_name,'l_position',l_position);
458: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
459: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
460: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
461: END IF;
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: IF l_debug_on THEN
456: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
457: wsh_debug_sv.log (l_module_name,'l_position',l_position);
458: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
459: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
460: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
461: END IF;
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
456: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
457: wsh_debug_sv.log (l_module_name,'l_position',l_position);
458: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
459: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
460: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
461: END IF;
462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
463: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
464: x_msg_data := l_sqlerr;
474: x_msg_data := l_sqlerr;
475: END IF;
476:
477: IF l_debug_on THEN
478: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
479: wsh_debug_sv.log (l_module_name,'l_position',l_position);
480: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
481: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
482: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
475: END IF;
476:
477: IF l_debug_on THEN
478: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
479: wsh_debug_sv.log (l_module_name,'l_position',l_position);
480: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
481: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
482: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
483: END IF;
476:
477: IF l_debug_on THEN
478: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
479: wsh_debug_sv.log (l_module_name,'l_position',l_position);
480: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
481: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
482: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
483: END IF;
484:
477: IF l_debug_on THEN
478: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
479: wsh_debug_sv.log (l_module_name,'l_position',l_position);
480: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
481: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
482: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
483: END IF;
484:
485: WHEN OTHERS THEN
478: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
479: wsh_debug_sv.log (l_module_name,'l_position',l_position);
480: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
481: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
482: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
483: END IF;
484:
485: WHEN OTHERS THEN
486:
498: x_msg_data := l_sqlerr;
499: END IF;
500:
501: IF l_debug_on THEN
502: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
503: wsh_debug_sv.log (l_module_name,'l_position',l_position);
504: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
505: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
506: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
499: END IF;
500:
501: IF l_debug_on THEN
502: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
503: wsh_debug_sv.log (l_module_name,'l_position',l_position);
504: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
505: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
506: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
507: END IF;
500:
501: IF l_debug_on THEN
502: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
503: wsh_debug_sv.log (l_module_name,'l_position',l_position);
504: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
505: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
506: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
507: END IF;
508:
501: IF l_debug_on THEN
502: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
503: wsh_debug_sv.log (l_module_name,'l_position',l_position);
504: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
505: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
506: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
507: END IF;
508:
509: END Create_Update_Carrier;
502: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
503: wsh_debug_sv.log (l_module_name,'l_position',l_position);
504: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
505: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
506: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
507: END IF;
508:
509: END Create_Update_Carrier;
510:
624:
625:
626: IF l_debug_on IS NULL
627: THEN
628: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
629: END IF;
630: IF NOT FND_API.Compatible_API_Call
631: (
632: l_api_version_number,
642: FND_MSG_PUB.initialize;
643: END IF;
644:
645: IF l_debug_on THEN
646: wsh_debug_sv.push (l_module_name);
647: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
648: END IF;
649: IF p_action_code IS NULL THEN
650: l_param_name := 'action_code';
643: END IF;
644:
645: IF l_debug_on THEN
646: wsh_debug_sv.push (l_module_name);
647: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
648: END IF;
649: IF p_action_code IS NULL THEN
650: l_param_name := 'action_code';
651: l_input_param_flag := FALSE;
814: X_SQLERR => l_sqlerr,
815: X_SQL_CODE => l_sql_code
816: );
817: IF l_debug_on THEN
818: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.Create_Carrier_Service',l_return_status);
819: END IF;
820:
821: ELSIF p_action_code = 'UPDATE' OR l_action_code = 'UPDATE' THEN
822:
854: );
855: END IF;
856:
857: IF l_debug_on THEN
858: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.Update_Carrier_Service',l_return_status);
859: END IF;
860:
861: END IF;
862: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
884: p_encoded => FND_API.G_FALSE
885: );
886:
887: IF l_debug_on THEN
888: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
889: wsh_debug_sv.log (l_module_name,'l_position',l_position);
890: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
891: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
892: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
885: );
886:
887: IF l_debug_on THEN
888: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
889: wsh_debug_sv.log (l_module_name,'l_position',l_position);
890: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
891: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
892: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
893: END IF;
886:
887: IF l_debug_on THEN
888: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
889: wsh_debug_sv.log (l_module_name,'l_position',l_position);
890: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
891: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
892: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
893: END IF;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
887: IF l_debug_on THEN
888: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
889: wsh_debug_sv.log (l_module_name,'l_position',l_position);
890: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
891: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
892: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
893: END IF;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
895: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
888: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
889: wsh_debug_sv.log (l_module_name,'l_position',l_position);
890: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
891: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
892: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
893: END IF;
894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
895: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
896: x_msg_data := l_sqlerr;
906: x_msg_data := l_sqlerr;
907: END IF;
908:
909: IF l_debug_on THEN
910: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
911: wsh_debug_sv.log (l_module_name,'l_position',l_position);
912: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
913: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
914: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
907: END IF;
908:
909: IF l_debug_on THEN
910: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
911: wsh_debug_sv.log (l_module_name,'l_position',l_position);
912: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
913: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
914: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
915: END IF;
908:
909: IF l_debug_on THEN
910: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
911: wsh_debug_sv.log (l_module_name,'l_position',l_position);
912: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
913: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
914: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
915: END IF;
916:
909: IF l_debug_on THEN
910: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
911: wsh_debug_sv.log (l_module_name,'l_position',l_position);
912: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
913: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
914: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
915: END IF;
916:
917: WHEN OTHERS THEN
910: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
911: wsh_debug_sv.log (l_module_name,'l_position',l_position);
912: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
913: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
914: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
915: END IF;
916:
917: WHEN OTHERS THEN
918:
930: x_msg_data := l_sqlerr;
931: END IF;
932:
933: IF l_debug_on THEN
934: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
935: wsh_debug_sv.log (l_module_name,'l_position',l_position);
936: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
937: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
938: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
931: END IF;
932:
933: IF l_debug_on THEN
934: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
935: wsh_debug_sv.log (l_module_name,'l_position',l_position);
936: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
937: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
938: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
939: END IF;
932:
933: IF l_debug_on THEN
934: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
935: wsh_debug_sv.log (l_module_name,'l_position',l_position);
936: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
937: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
938: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
939: END IF;
940:
933: IF l_debug_on THEN
934: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
935: wsh_debug_sv.log (l_module_name,'l_position',l_position);
936: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
937: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
938: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
939: END IF;
940:
941: END Create_Update_Carrier_Service;
934: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
935: wsh_debug_sv.log (l_module_name,'l_position',l_position);
936: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
937: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
938: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
939: END IF;
940:
941: END Create_Update_Carrier_Service;
942:
1028: BEGIN
1029: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1030: IF l_debug_on IS NULL
1031: THEN
1032: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1033: END IF;
1034: IF NOT FND_API.Compatible_API_Call
1035: ( l_api_version_number,
1036: p_api_version_number,
1045: FND_MSG_PUB.initialize;
1046: END IF;
1047:
1048: IF l_debug_on THEN
1049: wsh_debug_sv.push (l_module_name);
1050: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
1051: END IF;
1052: IF p_action_code IS NULL THEN
1053: l_param_name := 'action_code';
1046: END IF;
1047:
1048: IF l_debug_on THEN
1049: wsh_debug_sv.push (l_module_name);
1050: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
1051: END IF;
1052: IF p_action_code IS NULL THEN
1053: l_param_name := 'action_code';
1054: l_input_param_flag := FALSE;
1183: X_SQL_CODE => l_sql_code,
1184: x_exception_msg => l_exception_msg
1185: );
1186: IF l_debug_on THEN
1187: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.assign_org_carrier_service',l_return_status);
1188: END IF;
1189: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
1190: x_num_warnings =>l_num_warnings,
1191: x_num_errors =>l_num_errors
1213: p_data => x_msg_data,
1214: p_encoded => FND_API.G_FALSE
1215: );
1216: IF l_debug_on THEN
1217: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1218: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1219: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1220: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1221: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1214: p_encoded => FND_API.G_FALSE
1215: );
1216: IF l_debug_on THEN
1217: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1218: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1219: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1220: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1221: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1222: END IF;
1215: );
1216: IF l_debug_on THEN
1217: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1218: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1219: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1220: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1221: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1222: END IF;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1216: IF l_debug_on THEN
1217: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1218: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1219: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1220: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1221: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1222: END IF;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1217: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1218: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1219: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1220: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1221: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1222: END IF;
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1225: x_msg_data := l_sqlerr;
1235: x_msg_data := l_sqlerr;
1236: END IF;
1237:
1238: IF l_debug_on THEN
1239: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1240: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1241: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1242: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1243: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1236: END IF;
1237:
1238: IF l_debug_on THEN
1239: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1240: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1241: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1242: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1243: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1244: END IF;
1237:
1238: IF l_debug_on THEN
1239: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1240: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1241: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1242: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1243: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1244: END IF;
1245:
1238: IF l_debug_on THEN
1239: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1240: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1241: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1242: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1243: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1244: END IF;
1245:
1246: WHEN OTHERS THEN
1239: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1240: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1241: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1242: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1243: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1244: END IF;
1245:
1246: WHEN OTHERS THEN
1247:
1259: x_msg_data := l_sqlerr;
1260: END IF;
1261:
1262: IF l_debug_on THEN
1263: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1264: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1265: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1266: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1267: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1260: END IF;
1261:
1262: IF l_debug_on THEN
1263: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1264: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1265: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1266: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1267: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1268: END IF;
1261:
1262: IF l_debug_on THEN
1263: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1264: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1265: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1266: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1267: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1268: END IF;
1269:
1262: IF l_debug_on THEN
1263: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1264: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1265: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1266: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1267: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1268: END IF;
1269:
1270: END Assign_Org_Carrier_Service;
1263: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1264: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1265: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1266: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1267: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1268: END IF;
1269:
1270: END Assign_Org_Carrier_Service;
1271:
1339: BEGIN
1340: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1341: IF l_debug_on IS NULL
1342: THEN
1343: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1344: END IF;
1345: IF NOT FND_API.Compatible_API_Call
1346: ( l_api_version_number,
1347: p_api_version_number,
1356: FND_MSG_PUB.initialize;
1357: END IF;
1358:
1359: IF l_debug_on THEN
1360: wsh_debug_sv.push (l_module_name);
1361: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
1362: END IF;
1363: IF p_action_code IS NULL THEN
1364: l_param_name := 'action_code';
1357: END IF;
1358:
1359: IF l_debug_on THEN
1360: wsh_debug_sv.push (l_module_name);
1361: wsh_debug_sv.log (l_module_name,'action_code',p_action_code);
1362: END IF;
1363: IF p_action_code IS NULL THEN
1364: l_param_name := 'action_code';
1365: l_input_param_flag := FALSE;
1417: x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data
1419: );
1420: IF l_debug_on THEN
1421: wsh_debug_sv.log(l_module_name,'return status WSH_CREATE_CARRIERS_PKG.Assign_Org_Carrier_Service',l_return_status);
1422: END IF;
1423: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
1424: x_num_warnings =>l_num_warnings,
1425: x_num_errors =>l_num_errors
1443: p_data => x_msg_data,
1444: p_encoded => FND_API.G_FALSE
1445: );
1446: IF l_debug_on THEN
1447: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1448: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1449: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1450: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1451: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1444: p_encoded => FND_API.G_FALSE
1445: );
1446: IF l_debug_on THEN
1447: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1448: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1449: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1450: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1451: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1452: END IF;
1445: );
1446: IF l_debug_on THEN
1447: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1448: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1449: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1450: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1451: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1452: END IF;
1453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1446: IF l_debug_on THEN
1447: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1448: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1449: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1450: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1451: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1452: END IF;
1453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1454: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1447: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1448: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1449: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1450: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1451: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1452: END IF;
1453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1454: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1455: x_msg_data := l_sqlerr;
1465: x_msg_data := l_sqlerr;
1466: END IF;
1467:
1468: IF l_debug_on THEN
1469: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1470: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1471: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1472: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1473: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1466: END IF;
1467:
1468: IF l_debug_on THEN
1469: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1470: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1471: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1472: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1473: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1474: END IF;
1467:
1468: IF l_debug_on THEN
1469: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1470: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1471: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1472: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1473: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1474: END IF;
1475:
1468: IF l_debug_on THEN
1469: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1470: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1471: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1472: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1473: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1474: END IF;
1475:
1476: WHEN OTHERS THEN
1469: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1470: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1471: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1472: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1473: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1474: END IF;
1475:
1476: WHEN OTHERS THEN
1477:
1489: x_msg_data := l_sqlerr;
1490: END IF;
1491:
1492: IF l_debug_on THEN
1493: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1494: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1495: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1496: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1497: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1490: END IF;
1491:
1492: IF l_debug_on THEN
1493: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1494: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1495: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1496: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1497: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1498: END IF;
1491:
1492: IF l_debug_on THEN
1493: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1494: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1495: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1496: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1497: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1498: END IF;
1499:
1492: IF l_debug_on THEN
1493: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1494: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1495: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1496: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1497: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1498: END IF;
1499:
1500: END Assign_Org_Carrier;
1493: wsh_debug_sv.log (l_module_name,'l_exception_msg',l_exception_msg);
1494: wsh_debug_sv.log (l_module_name,'l_position',l_position);
1495: wsh_debug_sv.log (l_module_name,'l_procedure',l_call_procedure);
1496: wsh_debug_sv.log (l_module_name,'l_sqlerr',l_sqlerr);
1497: wsh_debug_sv.log (l_module_name,'l_sql_code',l_sql_code);
1498: END IF;
1499:
1500: END Assign_Org_Carrier;
1501:
1670:
1671: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1672: IF l_debug_on IS NULL
1673: THEN
1674: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1675: END IF;
1676:
1677: IF l_debug_on THEN
1678: WSH_DEBUG_SV.push(l_module_name);
1674: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1675: END IF;
1676:
1677: IF l_debug_on THEN
1678: WSH_DEBUG_SV.push(l_module_name);
1679: --
1680: WSH_DEBUG_SV.log(l_module_name,'P_CARRIER_ID',P_CARRIER_ID);
1681: END IF;
1682:
1676:
1677: IF l_debug_on THEN
1678: WSH_DEBUG_SV.push(l_module_name);
1679: --
1680: WSH_DEBUG_SV.log(l_module_name,'P_CARRIER_ID',P_CARRIER_ID);
1681: END IF;
1682:
1683: OPEN get_carrier_name;
1684: FETCH get_carrier_name INTO x_carrier_name, x_freight_code;
1684: FETCH get_carrier_name INTO x_carrier_name, x_freight_code;
1685: CLOSE get_carrier_name;
1686:
1687: IF l_debug_on THEN
1688: WSH_DEBUG_SV.pop(l_module_name);
1689: END IF;
1690:
1691: END Get_Carrier_Name;
1692:
1727: BEGIN
1728: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1729:
1730: IF l_debug_on IS NULL THEN
1731: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1732: END IF;
1733:
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.push(l_module_name);
1731: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1732: END IF;
1733:
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.push(l_module_name);
1736: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.ship_method_code',p_carrier_service_inout_rec.ship_method_code);
1737: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.carrier_service_id',p_carrier_service_inout_rec.carrier_service_id);
1738: END IF;
1739:
1732: END IF;
1733:
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.push(l_module_name);
1736: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.ship_method_code',p_carrier_service_inout_rec.ship_method_code);
1737: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.carrier_service_id',p_carrier_service_inout_rec.carrier_service_id);
1738: END IF;
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1733:
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.push(l_module_name);
1736: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.ship_method_code',p_carrier_service_inout_rec.ship_method_code);
1737: WSH_DEBUG_SV.log(l_module_name,'p_carrier_service_inout_rec.carrier_service_id',p_carrier_service_inout_rec.carrier_service_id);
1738: END IF;
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1741:
1746: END IF;
1747: CLOSE get_carrier_service_mode;
1748:
1749: IF l_debug_on THEN
1750: WSH_DEBUG_SV.pop(l_module_name);
1751: END IF;
1752:
1753: EXCEPTION
1754: WHEN Invalid_ship_method THEN
1758: --
1759: -- Debug Statements
1760: --
1761: IF l_debug_on THEN
1762: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Code or Carrier Service ID is not valid');
1763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_ship_method');
1764: END IF;
1765: --
1766: WHEN OTHERS THEN
1759: -- Debug Statements
1760: --
1761: IF l_debug_on THEN
1762: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Code or Carrier Service ID is not valid');
1763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_ship_method');
1764: END IF;
1765: --
1766: WHEN OTHERS THEN
1767: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1768: --
1769: -- Debug Statements
1770: --
1771: IF l_debug_on THEN
1772: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1774: END IF;
1775: --
1776: END get_carrier_service_mode;
1769: -- Debug Statements
1770: --
1771: IF l_debug_on THEN
1772: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1774: END IF;
1775: --
1776: END get_carrier_service_mode;
1777: