9: -- PROCEDURE : Create_Update_Carrier
10: --
11: --
12: -- PARAMETERS: p_api_version known api version error buffer
13: -- p_init_msg_list FND_API.G_TRUE to reset list
14: -- x_return_status return status
15: -- x_msg_count number of messages in the list
16: -- x_msg_data text of messages
17: -- p_action_code action_code ( CREATE,UPDATE and CREATE_UPDATE )
25: --========================================================================
26: PROCEDURE Create_Update_Carrier
27: ( p_api_version_number IN NUMBER,
28: p_init_msg_list IN VARCHAR2,
29: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
30: p_action_code IN VARCHAR2,
31: p_rec_attr_tab IN Carrier_Rec_Type,
32: p_carrier_name IN VARCHAR2,
33: p_status IN VARCHAR2,
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,
145: l_api_name,
146: G_PKG_NAME
145: l_api_name,
146: G_PKG_NAME
147: )
148: THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: IF FND_API.to_Boolean(p_init_msg_list) THEN
153: FND_MSG_PUB.initialize;
148: THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: IF FND_API.to_Boolean(p_init_msg_list) THEN
153: FND_MSG_PUB.initialize;
154: END IF;
155:
156: IF l_debug_on THEN
172: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
173: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
174: x_return_status := wsh_util_core.g_ret_sts_error;
175: wsh_util_core.add_message(x_return_status,l_module_name);
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178: --
179: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
180: --
280: IF Get_SCAC_Code_Create%FOUND THEN
281: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_SCAC_CODE_EXISTS');
282: x_return_status := wsh_util_core.g_ret_sts_error;
283: wsh_util_core.add_message(x_return_status,l_module_name);
284: RAISE FND_API.G_EXC_ERROR;
285: END IF;
286: CLOSE Get_SCAC_Code_Create;
287:
288: -- freight code
291: IF Get_Freight_Code_Create%FOUND THEN
292: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_FRG_CODE_EXISTS');
293: x_return_status := wsh_util_core.g_ret_sts_error;
294: wsh_util_core.add_message(x_return_status,l_module_name);
295: RAISE FND_API.G_EXC_ERROR;
296: END IF;
297: CLOSE Get_Freight_Code_Create;
298:
299: -- Carrier name
303: IF Get_Carrier_Name_Create%FOUND THEN
304: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NAME_EXISTS');
305: x_return_status := wsh_util_core.g_ret_sts_error;
306: wsh_util_core.add_message(x_return_status,l_module_name);
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309: CLOSE Get_Carrier_Name_Create;
310:
311:
320: FND_MESSAGE.SET_NAME('WSH','WSH_GENERIC_CARRIER_EXISTS');
321: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
322: x_return_status := wsh_util_core.g_ret_sts_error;
323: wsh_util_core.add_message(x_return_status,l_module_name);
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326:
327: END IF;
328: --- Bug 3392826 End
364: IF Get_SCAC_Code_Update%FOUND THEN
365: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_SCAC_CODE_EXISTS');
366: x_return_status := wsh_util_core.g_ret_sts_error;
367: wsh_util_core.add_message(x_return_status,l_module_name);
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370: CLOSE Get_SCAC_Code_Update;
371:
372: -- Carrier name
376: IF Get_Carrier_Name_Update%FOUND THEN
377: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NAME_EXISTS');
378: x_return_status := wsh_util_core.g_ret_sts_error;
379: wsh_util_core.add_message(x_return_status,l_module_name);
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382: CLOSE Get_Carrier_Name_Update;
383:
384:
435: );
436: x_car_out_rec_tab.rowid := l_rowid;
437: x_car_out_rec_tab.carrier_id := l_carrier_id;
438: x_return_status := l_return_status;
439: IF FND_API.To_Boolean(p_commit) THEN
440: COMMIT WORK;
441: END IF;
442: EXCEPTION
443: --
441: END IF;
442: EXCEPTION
443: --
444: --
445: WHEN FND_API.G_EXC_ERROR THEN
446: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
447: x_msg_data := l_sqlerr;
448: FND_MSG_PUB.Count_And_Get
449: (
448: FND_MSG_PUB.Count_And_Get
449: (
450: p_count => x_msg_count,
451: p_data => x_msg_data,
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);
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;
465: FND_MSG_PUB.Count_And_Get
466: (
465: FND_MSG_PUB.Count_And_Get
466: (
467: p_count => x_msg_count,
468: p_data => x_msg_data,
469: p_encoded => FND_API.G_FALSE
470: );
471:
472: IF x_msg_data IS NULL THEN
473: x_msg_count := 1;
489: FND_MSG_PUB.Count_And_Get
490: (
491: p_count => x_msg_count,
492: p_data => x_msg_data,
493: p_encoded => FND_API.G_FALSE
494: );
495:
496: IF x_msg_data IS NULL THEN
497: x_msg_count := 1;
512: -- PROCEDURE : Create_Update_Carrier_Service
513: --
514: --
515: -- PARAMETERS: p_api_version known api version error buffer
516: -- p_init_msg_list FND_API.G_TRUE to reset list
517: -- x_return_status return status
518: -- x_msg_count number of messages in the list
519: -- x_msg_data text of messages
520: -- p_action_code action_code ( CREATE,UPDATE and CREATE_UPDATE )
526: --========================================================================
527: PROCEDURE Create_Update_Carrier_Service
528: ( p_api_version_number IN NUMBER,
529: p_init_msg_list IN VARCHAR2,
530: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
531: p_action_code IN VARCHAR2,
532: p_rec_attr_tab IN Carrier_Service_Rec_Type,
533: x_car_ser_out_rec_tab OUT NOCOPY Carrier_Ser_Out_Rec_Type,
534: x_return_status OUT NOCOPY VARCHAR2,
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,
633: p_api_version_number,
634: l_api_name,
634: l_api_name,
635: G_PKG_NAME
636: )
637: THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640:
641: IF FND_API.to_Boolean(p_init_msg_list) THEN
642: FND_MSG_PUB.initialize;
637: THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640:
641: IF FND_API.to_Boolean(p_init_msg_list) THEN
642: FND_MSG_PUB.initialize;
643: END IF;
644:
645: IF l_debug_on THEN
664: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
665: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
666: x_return_status := wsh_util_core.g_ret_sts_error;
667: wsh_util_core.add_message(x_return_status,l_module_name);
668: RAISE FND_API.G_EXC_ERROR;
669: END IF;
670: --
671: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
672: --
784: IF l_count >0 THEN
785: fnd_message.set_name('WSH','WSH_DUPLICATE_RECORD');
786: x_return_status := wsh_util_core.g_ret_sts_error;
787: wsh_util_core.add_message(x_return_status,l_module_name);
788: RAISE FND_API.G_EXC_ERROR;
789: END IF;
790: END IF;
791:
792: --- This Ship Method Meaning is already existing.
795: IF Check_Duplicate_SMM_Create%FOUND THEN
796: fnd_message.set_name('WSH','WSH_SHIP_METHOD_EXISTS');
797: x_return_status := wsh_util_core.g_ret_sts_error;
798: wsh_util_core.add_message(x_return_status,l_module_name);
799: RAISE FND_API.G_EXC_ERROR;
800: END IF;
801: CLOSE Check_Duplicate_SMM_Create;
802: --- Bug 3392826 End: Validation for Services
803:
831: IF Check_Duplicate_SMM_Update%FOUND THEN
832: fnd_message.set_name('WSH','WSH_SHIP_METHOD_EXISTS');
833: x_return_status := wsh_util_core.g_ret_sts_error;
834: wsh_util_core.add_message(x_return_status,l_module_name);
835: RAISE FND_API.G_EXC_ERROR;
836: END IF;
837: CLOSE Check_Duplicate_SMM_Update;
838: --- Bug 3392826 End: Validation for Services
839:
867: x_car_ser_out_rec_tab.carrier_service_id := l_carrier_service_id;
868: x_car_ser_out_rec_tab.ship_method_code := l_ship_method_code;
869: x_return_status := l_return_status;
870:
871: IF FND_API.To_Boolean(p_commit) THEN
872: COMMIT WORK;
873: END IF;
874: EXCEPTION
875: --
873: END IF;
874: EXCEPTION
875: --
876: --
877: WHEN FND_API.G_EXC_ERROR THEN
878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
879: x_msg_data := l_sqlerr;
880: FND_MSG_PUB.Count_And_Get
881: (
880: FND_MSG_PUB.Count_And_Get
881: (
882: p_count => x_msg_count,
883: p_data => x_msg_data,
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);
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;
897: FND_MSG_PUB.Count_And_Get
898: (
897: FND_MSG_PUB.Count_And_Get
898: (
899: p_count => x_msg_count,
900: p_data => x_msg_data,
901: p_encoded => FND_API.G_FALSE
902: );
903:
904: IF x_msg_data IS NULL THEN
905: x_msg_count := 1;
921: FND_MSG_PUB.Count_And_Get
922: (
923: p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => FND_API.G_FALSE
926: );
927:
928: IF x_msg_data IS NULL THEN
929: x_msg_count := 1;
944: -- PROCEDURE : Assign_Org_Carrier_Service
945: --
946: --
947: -- PARAMETERS: p_api_version known api version error buffer
948: -- p_init_msg_list FND_API.G_TRUE to reset list
949: -- x_return_status return status
950: -- x_msg_count number of messages in the list
951: -- x_msg_data text of messages
952: -- p_action_code action_code (ASSIGN/UNASSIGN)
958: --========================================================================
959: PROCEDURE Assign_Org_Carrier_Service
960: ( p_api_version_number IN NUMBER,
961: p_init_msg_list IN VARCHAR2,
962: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
963: p_action_code IN VARCHAR2,
964: p_rec_org_car_ser_tab IN Org_Carrier_Service_Rec_Type,
965: p_rec_car_dff_tab IN Carrier_Info_Dff_Type,
966: p_shp_methods_dff IN Ship_Method_Dff_Type,
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,
1037: l_api_name,
1038: G_PKG_NAME
1037: l_api_name,
1038: G_PKG_NAME
1039: )
1040: THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: END IF;
1043:
1044: IF FND_API.to_Boolean(p_init_msg_list) THEN
1045: FND_MSG_PUB.initialize;
1040: THEN
1041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1042: END IF;
1043:
1044: IF FND_API.to_Boolean(p_init_msg_list) THEN
1045: FND_MSG_PUB.initialize;
1046: END IF;
1047:
1048: IF l_debug_on THEN
1064: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1065: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
1066: x_return_status := wsh_util_core.g_ret_sts_error;
1067: wsh_util_core.add_message(x_return_status,l_module_name);
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: --
1071: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1072: --
1194: x_orgcar_ser_out_rec_tab.rowid := l_rowid;
1195: x_orgcar_ser_out_rec_tab.org_carrier_service_id := l_org_carrier_service_id;
1196: x_orgcar_ser_out_rec_tab.carrier_service_id := p_rec_org_car_ser_tab.Carrier_Service_id;
1197: x_return_status := l_return_status;
1198: IF FND_API.To_Boolean(p_commit) THEN
1199: COMMIT WORK;
1200: END IF;
1201: END IF;
1202: close get_carrier_ser_info;
1203:
1204: EXCEPTION
1205: --
1206: --
1207: WHEN FND_API.G_EXC_ERROR THEN
1208: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1209: x_msg_data := l_sqlerr;
1210: FND_MSG_PUB.Count_And_Get
1211: (
1210: FND_MSG_PUB.Count_And_Get
1211: (
1212: p_count => x_msg_count,
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);
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;
1226: FND_MSG_PUB.Count_And_Get
1227: (
1226: FND_MSG_PUB.Count_And_Get
1227: (
1228: p_count => x_msg_count,
1229: p_data => x_msg_data,
1230: p_encoded => FND_API.G_FALSE
1231: );
1232:
1233: IF x_msg_data IS NULL THEN
1234: x_msg_count := 1;
1250: FND_MSG_PUB.Count_And_Get
1251: (
1252: p_count => x_msg_count,
1253: p_data => x_msg_data,
1254: p_encoded => FND_API.G_FALSE
1255: );
1256:
1257: IF x_msg_data IS NULL THEN
1258: x_msg_count := 1;
1273: -- PROCEDURE : Assign_Org_Carrier
1274: --
1275: --
1276: -- PARAMETERS: p_api_version known api version error buffer
1277: -- p_init_msg_list FND_API.G_TRUE to reset list
1278: -- x_return_status return status
1279: -- x_msg_count number of messages in the list
1280: -- x_msg_data text of messages
1281: -- p_action_code action_code (ASSIGN/UNASSIGN)
1288: --========================================================================
1289: PROCEDURE Assign_Org_Carrier
1290: ( p_api_version_number IN NUMBER,
1291: p_init_msg_list IN VARCHAR2,
1292: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1293: p_action_code IN VARCHAR2,
1294: p_carrier_id IN NUMBER,
1295: p_organization_id IN NUMBER,
1296: x_orgcar_ser_out_tab OUT NOCOPY Org_Carrier_Ser_Out_Tab_Type,
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,
1348: l_api_name,
1349: G_PKG_NAME
1348: l_api_name,
1349: G_PKG_NAME
1350: )
1351: THEN
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: END IF;
1354:
1355: IF FND_API.to_Boolean(p_init_msg_list) THEN
1356: FND_MSG_PUB.initialize;
1351: THEN
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1353: END IF;
1354:
1355: IF FND_API.to_Boolean(p_init_msg_list) THEN
1356: FND_MSG_PUB.initialize;
1357: END IF;
1358:
1359: IF l_debug_on THEN
1376: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
1377: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
1378: x_return_status := wsh_util_core.g_ret_sts_error;
1379: wsh_util_core.add_message(x_return_status,l_module_name);
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382: --
1383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1384: --
1427: x_orgcar_ser_out_tab(l_index) := p_car_ser_out_rec;
1428: l_index := l_index+1;
1429: END LOOP;
1430: CLOSE get_carrier_service_ids;
1431: IF FND_API.To_Boolean(p_commit) THEN
1432: COMMIT WORK;
1433: END IF;
1434: EXCEPTION
1435: --
1433: END IF;
1434: EXCEPTION
1435: --
1436: --
1437: WHEN FND_API.G_EXC_ERROR THEN
1438: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1439: x_msg_data := l_sqlerr;
1440: FND_MSG_PUB.Count_And_Get
1441: (
1440: FND_MSG_PUB.Count_And_Get
1441: (
1442: p_count => x_msg_count,
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);
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;
1456: FND_MSG_PUB.Count_And_Get
1457: (
1456: FND_MSG_PUB.Count_And_Get
1457: (
1458: p_count => x_msg_count,
1459: p_data => x_msg_data,
1460: p_encoded => FND_API.G_FALSE
1461: );
1462:
1463: IF x_msg_data IS NULL THEN
1464: x_msg_count := 1;
1480: FND_MSG_PUB.Count_And_Get
1481: (
1482: p_count => x_msg_count,
1483: p_data => x_msg_data,
1484: p_encoded => FND_API.G_FALSE
1485: );
1486:
1487: IF x_msg_data IS NULL THEN
1488: x_msg_count := 1;