[Home] [Help]
23: -- PROCEDURE : Delivery_Action Must be called only by the Form
24: -- and the Wrapper Group API.
25: --
26: -- PARAMETERS: p_api_version_number known api version error number
27: -- p_init_msg_list FND_API.G_TRUE to reset list
28: -- x_return_status return status
29: -- x_msg_count number of messages in the list
30: -- x_msg_data text of messages
31: -- p_action_prms Record of caller, phase, action_code and other
337: END IF;
338:
339:
340:
341: IF NOT FND_API.Compatible_API_Call
342: ( l_api_version_number,
343: p_api_version_number,
344: l_api_name,
345: G_PKG_NAME
344: l_api_name,
345: G_PKG_NAME
346: )
347: THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350: --
351: IF FND_API.to_Boolean(p_init_msg_list) THEN
352: FND_MSG_PUB.initialize;
347: THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350: --
351: IF FND_API.to_Boolean(p_init_msg_list) THEN
352: FND_MSG_PUB.initialize;
353: ELSE
354: IF nvl(l_check_dcp, '-99') IN (1,2) THEN
355: WSH_DCP_PVT.G_INIT_MSG_COUNT := fnd_msg_pub.count_msg;
385: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
386: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
387: x_return_status := wsh_util_core.g_ret_sts_error;
388: wsh_util_core.add_message(x_return_status,l_module_name);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
392: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
393:
564: IF l_debug_on THEN
565: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION');
566: END IF;
567: --
568: RAISE FND_API.G_EXC_ERROR;
569: --}
570: END IF;
571: --
572: -- bug 2651859. Refreshing the table of ids.
681: IF p_action_prms.caller IN ('WSH_FSTRX', 'WSH_TRCON') THEN
682: x_delivery_out_rec.selection_issue_flag := 'Y';
683: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
684: ELSE
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687: --
688: END IF;
689: --
739: --
740:
741: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
742: p_api_version_number => p_api_version_number,
743: p_init_msg_list => FND_API.G_FALSE,
744: p_entity_type => 'D',
745: p_target_id => p_action_prms.TRIP_ID,
746: p_action_code => l_action_code,
747: --p_del_attr_tab => p_rec_attr_tab,
930: --jckwok. Bug 3426434
931: IF p_action_prms.action_code IN ('UNASSIGN-TRIP',
932: 'ASSIGN-TRIP')
933: THEN
934: IF (nvl(p_action_prms.trip_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
935: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
936: THEN
937: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
938: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
931: IF p_action_prms.action_code IN ('UNASSIGN-TRIP',
932: 'ASSIGN-TRIP')
933: THEN
934: IF (nvl(p_action_prms.trip_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
935: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
936: THEN
937: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
938: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
939: l_return_status := wsh_util_core.g_ret_sts_error;
940: wsh_util_core.add_message(l_return_status,l_module_name);
941: IF l_debug_on THEN
942: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
943: END IF;
944: RAISE FND_API.G_EXC_ERROR;
945: END IF;
946: END IF;
947: --
948:
2176: wsh_util_core.add_message(x_return_status,l_module_name);
2177: IF l_debug_on THEN
2178: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2179: END IF;
2180: RAISE FND_API.G_EXC_ERROR;
2181: END IF;
2182: --
2183: WSH_TRANSACTIONS_UTIL.Send_Document(
2184: p_entity_id => l_delivery_id_tab(1),
2208: FND_MSG_PUB.ADD;
2209: IF l_debug_on THEN
2210: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2211: END IF;
2212: RAISE FND_API.G_EXC_ERROR;
2213: END IF;
2214:
2215: --Bug 2657875
2216: -- l_form_flag := 'Y';
2259: wsh_util_core.add_message(x_return_status,l_module_name);
2260: IF l_debug_on THEN
2261: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2262: END IF;
2263: RAISE FND_API.G_EXC_ERROR;
2264: END IF;
2265: --
2266: ELSIF p_action_prms.action_code = 'DELETE' THEN
2267:
2344: wsh_util_core.add_message(x_return_status,l_module_name);
2345: IF l_debug_on THEN
2346: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2347: END IF;
2348: RAISE FND_API.G_EXC_ERROR;
2349: END IF;
2350: --
2351: WSH_PACKING_SLIPS_PVT.Insert_Row(
2352: x_return_status => l_return_status,
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2383: IF l_debug_on THEN
2384: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2385: END IF;
2386: RAISE FND_API.G_EXC_ERROR;
2387: END IF;
2388: --
2389:
2390: ELSIF p_action_prms.action_code = 'GENERATE-PACK-SLIP' THEN
2413: wsh_util_core.add_message(x_return_status,l_module_name);
2414: IF l_debug_on THEN
2415: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2416: END IF;
2417: RAISE FND_API.G_EXC_ERROR;
2418: END IF;*/
2419:
2420: --
2421: IF ( l_dlvy_doc_seq_num IS NULL ) THEN
2461:
2462: --
2463: IF l_num_errors > 0 THEN
2464: IF l_num_errors = p_rec_attr_tab.count THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSE
2467: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2468: END IF;
2469: ELSIF l_num_warnings > 0 THEN
2480: wsh_util_core.add_message(x_return_status,l_module_name);
2481: IF l_debug_on THEN
2482: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2483: END IF;
2484: RAISE FND_API.G_EXC_ERROR;
2485: END IF;
2486: --
2487:
2488: ELSIF p_action_prms.action_code = 'GET-FREIGHT-COSTS' THEN
2497: FND_MSG_PUB.ADD;
2498: IF l_debug_on THEN
2499: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2500: END IF;
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2503:
2504: IF p_action_prms.ignore_ineligible_dels = 'Y' and
2505: l_num_warnings > 0 and l_valid_ids_tab.count > 0 THEN
2517: END IF;
2518:
2519: WSH_FTE_INTEGRATION.Rate_Delivery(
2520: p_api_version => 1.0,
2521: p_init_msg_list => FND_API.G_FALSE,
2522: p_commit => p_commit,
2523: p_in_param_rec => l_in_param_rec,
2524: x_out_param_rec => l_out_param_rec,
2525: x_return_status => l_return_status,
2544: OPEN c_get_delivery_org(l_out_param_rec.failed_delivery_id_list(i));
2545: FETCH c_get_delivery_org INTO l_initial_pickup_location_id;
2546: IF c_get_delivery_org%NOTFOUND THEN
2547: CLOSE c_get_delivery_org;
2548: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2549: END IF;
2550: CLOSE c_get_delivery_org;
2551: wsh_xc_util.log_exception(
2552: p_api_version => 1.0,
2581: wsh_util_core.add_message(x_return_status,l_module_name);
2582: IF l_debug_on THEN
2583: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2584: END IF;
2585: RAISE FND_API.G_EXC_ERROR;
2586: END IF;
2587:
2588:
2589:
2655: l_rec_attr_tab(1) := p_rec_attr_tab(i);
2656:
2657: wsh_deliveries_grp.delivery_action(
2658: p_api_version_number => p_api_version_number,
2659: p_init_msg_list => FND_API.G_FALSE,
2660: p_commit => FND_API.G_FALSE,
2661: p_action_prms => l_action_prms,
2662: p_rec_attr_tab => l_rec_attr_tab,
2663: x_delivery_out_rec => x_delivery_out_rec,
2656:
2657: wsh_deliveries_grp.delivery_action(
2658: p_api_version_number => p_api_version_number,
2659: p_init_msg_list => FND_API.G_FALSE,
2660: p_commit => FND_API.G_FALSE,
2661: p_action_prms => l_action_prms,
2662: p_rec_attr_tab => l_rec_attr_tab,
2663: x_delivery_out_rec => x_delivery_out_rec,
2664: x_defaults_rec => x_defaults_rec,
2730: END IF;
2731:
2732: IF l_num_errors > 0 THEN
2733: IF l_num_errors = p_rec_attr_tab.count THEN
2734: RAISE FND_API.G_EXC_ERROR;
2735: ELSE
2736: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2737: END IF;
2738: ELSIF l_num_warnings > 0 THEN
2830: l_dleg_action_out_rec.result_id_tab.delete;
2831:
2832: wsh_delivery_legs_grp.Delivery_Leg_Action(
2833: p_api_version_number => 1.0,
2834: p_init_msg_list => FND_API.G_FALSE,
2835: p_commit => FND_API.G_FALSE,
2836: p_rec_attr_tab => l_dleg_tab,
2837: p_action_prms => l_dleg_prms,
2838: x_action_out_rec => l_dleg_action_out_rec,
2831:
2832: wsh_delivery_legs_grp.Delivery_Leg_Action(
2833: p_api_version_number => 1.0,
2834: p_init_msg_list => FND_API.G_FALSE,
2835: p_commit => FND_API.G_FALSE,
2836: p_rec_attr_tab => l_dleg_tab,
2837: p_action_prms => l_dleg_prms,
2838: x_action_out_rec => l_dleg_action_out_rec,
2839: x_return_status => l_return_status,
2918: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
2919: END IF;
2920: -- End of 3311273
2921: IF l_num_errors = p_rec_attr_tab.count THEN
2922: RAISE FND_API.G_EXC_ERROR;
2923: ELSE
2924: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2925: END IF;
2926: ELSIF l_num_warnings > 0 THEN
2936: wsh_util_core.add_message(x_return_status,l_module_name);
2937: IF l_debug_on THEN
2938: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
2939: END IF;
2940: RAISE FND_API.G_EXC_ERROR;
2941: --
2942: END IF;
2943: --
2944: IF l_debug_on THEN
3046: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3047: END IF;
3048:
3049: -- Standard check of p_commit.
3050: IF FND_API.To_Boolean( p_commit ) THEN
3051:
3052: --bug 4070732
3053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3054: --{
3066: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3067: END IF;
3068:
3069: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3074: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3068:
3069: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3074: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3075: END IF;
3076:
3086: --{
3087: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3088: --{
3089:
3090: IF FND_API.To_Boolean( p_commit ) THEN
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3093: END IF;
3094:
3129: FND_MSG_PUB.Count_And_Get
3130: (
3131: p_count => x_msg_count,
3132: p_data => x_msg_data,
3133: p_encoded => FND_API.G_FALSE
3134: );
3135: --
3136: IF l_debug_on THEN
3137: WSH_DEBUG_SV.log(l_module_name, 'FND_MSG_PUB.Count_And_Get, count: ', x_msg_count);
3140: WSH_DEBUG_SV.pop(l_module_name);
3141: END IF;
3142: --
3143: EXCEPTION
3144: WHEN FND_API.G_EXC_ERROR THEN
3145: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3147:
3148: --OTM R12
3214: FND_MSG_PUB.Count_And_Get
3215: (
3216: p_count => x_msg_count,
3217: p_data => x_msg_data,
3218: p_encoded => FND_API.G_FALSE
3219: );
3220: IF l_debug_on THEN
3221: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3217: p_data => x_msg_data,
3218: p_encoded => FND_API.G_FALSE
3219: );
3220: IF l_debug_on THEN
3221: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3223: END IF;
3224: --
3225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3218: p_encoded => FND_API.G_FALSE
3219: );
3220: IF l_debug_on THEN
3221: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3223: END IF;
3224: --
3225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3226: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3221: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3223: END IF;
3224: --
3225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3226: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3227: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3228:
3229: --OTM R12
3290: FND_MSG_PUB.Count_And_Get
3291: (
3292: p_count => x_msg_count,
3293: p_data => x_msg_data,
3294: p_encoded => FND_API.G_FALSE
3295: );
3296:
3297: --
3298: IF l_debug_on THEN
3296:
3297: --
3298: IF l_debug_on THEN
3299: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3300: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3301: END IF;
3302: --
3303: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3304:
3380: FND_MSG_PUB.Count_And_Get
3381: (
3382: p_count => x_msg_count,
3383: p_data => x_msg_data,
3384: p_encoded => FND_API.G_FALSE
3385: );
3386: --
3387: IF l_debug_on THEN
3388: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3459: FND_MSG_PUB.Count_And_Get
3460: (
3461: p_count => x_msg_count,
3462: p_data => x_msg_data,
3463: p_encoded => FND_API.G_FALSE
3464: );
3465: --
3466: IF l_debug_on THEN
3467: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3464: );
3465: --
3466: IF l_debug_on THEN
3467: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3468: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3469: END IF;
3470: --
3471: END Delivery_Action;
3472:
3473: -- I Harmonization: rvishnuv ******* Actions ******
3474:
3475: -- I Harmonization: rvishnuv ******* Create/Update ******
3476: --Bug 5191354: For the action UPDATE, validating the delivery attributes only when the corresponding
3477: -- input parameter contains some value (other then fnd_api.g_miss_num/fnd_api.g_miss_char/fnd_api.g_miss_date).
3478: PROCEDURE Validate_Delivery
3479: (x_rec_attr_tab IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
3480: p_in_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type, --Bug 5191354
3481: p_action_code IN VARCHAR2,
3564: --Bug 5191354
3565: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DELIVERY_NAME_LVL) = 1
3566: AND (p_action_code = 'CREATE' OR
3567: (p_action_code = 'UPDATE' AND
3568: ((p_in_rec_attr_tab(l_index).delivery_id IS NULL ) OR (p_in_rec_attr_tab(l_index).delivery_id <> fnd_api.g_miss_num)
3569: OR (p_in_rec_attr_tab(l_index).name IS NULL ) OR (p_in_rec_attr_tab(l_index).name <> fnd_api.g_miss_char)
3570: ))) THEN
3571: --
3572: wsh_util_validate.validate_delivery_name(
3565: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DELIVERY_NAME_LVL) = 1
3566: AND (p_action_code = 'CREATE' OR
3567: (p_action_code = 'UPDATE' AND
3568: ((p_in_rec_attr_tab(l_index).delivery_id IS NULL ) OR (p_in_rec_attr_tab(l_index).delivery_id <> fnd_api.g_miss_num)
3569: OR (p_in_rec_attr_tab(l_index).name IS NULL ) OR (p_in_rec_attr_tab(l_index).name <> fnd_api.g_miss_char)
3570: ))) THEN
3571: --
3572: wsh_util_validate.validate_delivery_name(
3573: p_delivery_id => x_rec_attr_tab(l_index).delivery_id,
3587: --
3588: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ORGANIZATION_LVL) = 1 THEN
3589: --Bug 5191354
3590: IF p_action_code = 'CREATE'
3591: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3592: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3593: THEN
3594: x_return_status := wsh_util_core.g_ret_sts_error;
3595: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3588: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ORGANIZATION_LVL) = 1 THEN
3589: --Bug 5191354
3590: IF p_action_code = 'CREATE'
3591: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3592: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3593: THEN
3594: x_return_status := wsh_util_core.g_ret_sts_error;
3595: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3596: x_num_warnings =>l_num_warnings,
3599: p_msg_data => 'WSH_DEL_ORG_NULL');
3600:
3601: ELSIF (p_action_code = 'CREATE' OR
3602: (p_action_code = 'UPDATE' AND
3603: ((p_in_rec_attr_tab(l_index).organization_id IS NULL ) OR (p_in_rec_attr_tab(l_index).organization_id <> fnd_api.g_miss_num)
3604: OR (p_in_rec_attr_tab(l_index).organization_code IS NULL ) OR (p_in_rec_attr_tab(l_index).organization_code <> fnd_api.g_miss_char)
3605: ))) THEN
3606: --{
3607:
3600:
3601: ELSIF (p_action_code = 'CREATE' OR
3602: (p_action_code = 'UPDATE' AND
3603: ((p_in_rec_attr_tab(l_index).organization_id IS NULL ) OR (p_in_rec_attr_tab(l_index).organization_id <> fnd_api.g_miss_num)
3604: OR (p_in_rec_attr_tab(l_index).organization_code IS NULL ) OR (p_in_rec_attr_tab(l_index).organization_code <> fnd_api.g_miss_char)
3605: ))) THEN
3606: --{
3607:
3608: IF ( p_action_code = 'UPDATE'
3642: --Bug 5191354
3643: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_LOADING_ORDER_LVL) = 1
3644: AND (p_action_code = 'CREATE' OR
3645: (p_action_code = 'UPDATE' AND
3646: ((p_in_rec_attr_tab(l_index).loading_order_flag IS NULL ) OR (p_in_rec_attr_tab(l_index).loading_order_flag <> fnd_api.g_miss_char)
3647: OR (p_in_rec_attr_tab(l_index).loading_order_desc IS NULL ) OR (p_in_rec_attr_tab(l_index).loading_order_desc <> fnd_api.g_miss_char)
3648: ))) THEN
3649: --
3650: wsh_util_validate.validate_loading_order(
3643: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_LOADING_ORDER_LVL) = 1
3644: AND (p_action_code = 'CREATE' OR
3645: (p_action_code = 'UPDATE' AND
3646: ((p_in_rec_attr_tab(l_index).loading_order_flag IS NULL ) OR (p_in_rec_attr_tab(l_index).loading_order_flag <> fnd_api.g_miss_char)
3647: OR (p_in_rec_attr_tab(l_index).loading_order_desc IS NULL ) OR (p_in_rec_attr_tab(l_index).loading_order_desc <> fnd_api.g_miss_char)
3648: ))) THEN
3649: --
3650: wsh_util_validate.validate_loading_order(
3651: p_loading_order_flag => x_rec_attr_tab(l_index).loading_order_flag,
3666: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_FROM_LOC_LVL) = 1
3667: THEN
3668: --
3669: IF p_action_code = 'CREATE'
3670: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3671: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3672: THEN
3673: x_return_status := wsh_util_core.g_ret_sts_error;
3674: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3667: THEN
3668: --
3669: IF p_action_code = 'CREATE'
3670: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3671: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3672: THEN
3673: x_return_status := wsh_util_core.g_ret_sts_error;
3674: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3675: x_num_warnings =>l_num_warnings,
3678: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3679: --Bug 5191354
3680: ELSIF (p_action_code = 'CREATE' OR
3681: (p_action_code = 'UPDATE' AND
3682: ((p_in_rec_attr_tab(l_index).initial_pickup_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_location_id <> fnd_api.g_miss_num)
3683: OR (p_in_rec_attr_tab(l_index).initial_pickup_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_location_code <> fnd_api.g_miss_char)
3684: ))) THEN
3685: --{
3686:
3679: --Bug 5191354
3680: ELSIF (p_action_code = 'CREATE' OR
3681: (p_action_code = 'UPDATE' AND
3682: ((p_in_rec_attr_tab(l_index).initial_pickup_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_location_id <> fnd_api.g_miss_num)
3683: OR (p_in_rec_attr_tab(l_index).initial_pickup_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_location_code <> fnd_api.g_miss_char)
3684: ))) THEN
3685: --{
3686:
3687: IF (p_action_code = 'UPDATE'
3834: --
3835: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_TO_LOC_LVL) = 1 THEN
3836: --
3837: IF p_action_code = 'CREATE'
3838: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3839: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3840: THEN
3841: x_return_status := wsh_util_core.g_ret_sts_error;
3842: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3835: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_TO_LOC_LVL) = 1 THEN
3836: --
3837: IF p_action_code = 'CREATE'
3838: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3839: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3840: THEN
3841: x_return_status := wsh_util_core.g_ret_sts_error;
3842: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3843: x_num_warnings =>l_num_warnings,
3846: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3847: --Bug 5191354
3848: ELSIF (p_action_code = 'CREATE' OR
3849: (p_action_code = 'UPDATE' AND
3850: ((p_in_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_id <> fnd_api.g_miss_num)
3851: OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_code <> fnd_api.g_miss_char)
3852: ))) THEN
3853: --{
3854:
3847: --Bug 5191354
3848: ELSIF (p_action_code = 'CREATE' OR
3849: (p_action_code = 'UPDATE' AND
3850: ((p_in_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_id <> fnd_api.g_miss_num)
3851: OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_location_code <> fnd_api.g_miss_char)
3852: ))) THEN
3853: --{
3854:
3855: IF ( p_action_code = 'UPDATE'
3886: --Bug 5191354
3887: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_INTMD_SHIPTO_LOC_LVL) = 1
3888: AND (p_action_code = 'CREATE' OR
3889: (p_action_code = 'UPDATE' AND
3890: ((p_in_rec_attr_tab(l_index).intmed_ship_to_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_id <> fnd_api.g_miss_num)
3891: OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_code <> fnd_api.g_miss_char)
3892: ))) THEN
3893: IF l_debug_on THEN
3894: wsh_debug_sv.log(l_module_name,'loc id ',x_rec_attr_tab(l_index).intmed_ship_to_location_id);
3887: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_INTMD_SHIPTO_LOC_LVL) = 1
3888: AND (p_action_code = 'CREATE' OR
3889: (p_action_code = 'UPDATE' AND
3890: ((p_in_rec_attr_tab(l_index).intmed_ship_to_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_id <> fnd_api.g_miss_num)
3891: OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).intmed_ship_to_location_code <> fnd_api.g_miss_char)
3892: ))) THEN
3893: IF l_debug_on THEN
3894: wsh_debug_sv.log(l_module_name,'loc id ',x_rec_attr_tab(l_index).intmed_ship_to_location_id);
3895: wsh_debug_sv.log(l_module_name,'loc code ',x_rec_attr_tab(l_index).intmed_ship_to_location_code);
3914: --Bug 5191354
3915: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_POOLED_SHIPTO_LOC_LVL) = 1
3916: AND (p_action_code = 'CREATE' OR
3917: (p_action_code = 'UPDATE' AND
3918: ((p_in_rec_attr_tab(l_index).pooled_ship_to_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_id <> fnd_api.g_miss_num)
3919: OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_code <> fnd_api.g_miss_char)
3920: ))) THEN
3921: --
3922: wsh_util_validate.validate_location(
3915: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_POOLED_SHIPTO_LOC_LVL) = 1
3916: AND (p_action_code = 'CREATE' OR
3917: (p_action_code = 'UPDATE' AND
3918: ((p_in_rec_attr_tab(l_index).pooled_ship_to_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_id <> fnd_api.g_miss_num)
3919: OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).pooled_ship_to_location_code <> fnd_api.g_miss_char)
3920: ))) THEN
3921: --
3922: wsh_util_validate.validate_location(
3923: p_location_id => x_rec_attr_tab(l_index).pooled_ship_to_location_id,
3938: --Bug 5191354
3939: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LOC_LVL) = 1
3940: AND (p_action_code = 'CREATE' OR
3941: (p_action_code = 'UPDATE' AND
3942: ((p_in_rec_attr_tab(l_index).fob_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_location_id <> fnd_api.g_miss_num)
3943: OR (p_in_rec_attr_tab(l_index).fob_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_location_code <> fnd_api.g_miss_char)
3944: ))) THEN
3945: --
3946: wsh_util_validate.validate_location(
3939: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LOC_LVL) = 1
3940: AND (p_action_code = 'CREATE' OR
3941: (p_action_code = 'UPDATE' AND
3942: ((p_in_rec_attr_tab(l_index).fob_location_id IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_location_id <> fnd_api.g_miss_num)
3943: OR (p_in_rec_attr_tab(l_index).fob_location_code IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_location_code <> fnd_api.g_miss_char)
3944: ))) THEN
3945: --
3946: wsh_util_validate.validate_location(
3947: p_location_id => x_rec_attr_tab(l_index).fob_location_id,
3963: --Bug 5191354
3964: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CUSTOMER_LVL) = 1
3965: AND (p_action_code = 'CREATE' OR
3966: (p_action_code = 'UPDATE' AND
3967: ((p_in_rec_attr_tab(l_index).customer_id IS NULL ) OR (p_in_rec_attr_tab(l_index).customer_id <> fnd_api.g_miss_num)
3968: OR (p_in_rec_attr_tab(l_index).customer_number IS NULL ) OR (p_in_rec_attr_tab(l_index).customer_number <> fnd_api.g_miss_char)
3969: ))) THEN
3970: --
3971: wsh_util_validate.validate_customer(
3964: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CUSTOMER_LVL) = 1
3965: AND (p_action_code = 'CREATE' OR
3966: (p_action_code = 'UPDATE' AND
3967: ((p_in_rec_attr_tab(l_index).customer_id IS NULL ) OR (p_in_rec_attr_tab(l_index).customer_id <> fnd_api.g_miss_num)
3968: OR (p_in_rec_attr_tab(l_index).customer_number IS NULL ) OR (p_in_rec_attr_tab(l_index).customer_number <> fnd_api.g_miss_char)
3969: ))) THEN
3970: --
3971: wsh_util_validate.validate_customer(
3972: p_customer_id => x_rec_attr_tab(l_index).customer_id,
3986: --Bug 5191354
3987: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_TERMS_LVL) = 1
3988: AND (p_action_code = 'CREATE' OR
3989: (p_action_code = 'UPDATE' AND
3990: ((p_in_rec_attr_tab(l_index).freight_terms_code IS NULL ) OR (p_in_rec_attr_tab(l_index).freight_terms_code <> fnd_api.g_miss_char)
3991: OR (p_in_rec_attr_tab(l_index).freight_terms_name IS NULL ) OR (p_in_rec_attr_tab(l_index).freight_terms_name <> fnd_api.g_miss_char)
3992: ))) THEN
3993: --
3994: wsh_util_validate.validate_freight_terms(
3987: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_TERMS_LVL) = 1
3988: AND (p_action_code = 'CREATE' OR
3989: (p_action_code = 'UPDATE' AND
3990: ((p_in_rec_attr_tab(l_index).freight_terms_code IS NULL ) OR (p_in_rec_attr_tab(l_index).freight_terms_code <> fnd_api.g_miss_char)
3991: OR (p_in_rec_attr_tab(l_index).freight_terms_name IS NULL ) OR (p_in_rec_attr_tab(l_index).freight_terms_name <> fnd_api.g_miss_char)
3992: ))) THEN
3993: --
3994: wsh_util_validate.validate_freight_terms(
3995: p_freight_terms_code => x_rec_attr_tab(l_index).freight_terms_code,
4009: --Bug 5191354
4010: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LVL) = 1
4011: AND (p_action_code = 'CREATE' OR
4012: (p_action_code = 'UPDATE' AND
4013: ((p_in_rec_attr_tab(l_index).fob_code IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_code <> fnd_api.g_miss_char)
4014: OR (p_in_rec_attr_tab(l_index).fob_name IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_name <> fnd_api.g_miss_char)
4015: ))) THEN
4016: --
4017: wsh_util_validate.validate_fob(
4010: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LVL) = 1
4011: AND (p_action_code = 'CREATE' OR
4012: (p_action_code = 'UPDATE' AND
4013: ((p_in_rec_attr_tab(l_index).fob_code IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_code <> fnd_api.g_miss_char)
4014: OR (p_in_rec_attr_tab(l_index).fob_name IS NULL ) OR (p_in_rec_attr_tab(l_index).fob_name <> fnd_api.g_miss_char)
4015: ))) THEN
4016: --
4017: wsh_util_validate.validate_fob(
4018: p_fob_code => x_rec_attr_tab(l_index).fob_code,
4033: --Bug 5191354
4034: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_WEIGHT_UOM_LVL) = 1
4035: AND (p_action_code = 'CREATE' OR
4036: (p_action_code = 'UPDATE' AND
4037: ((p_in_rec_attr_tab(l_index).weight_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).weight_uom_code <> fnd_api.g_miss_char)
4038: ))) THEN
4039: --
4040: IF x_rec_attr_tab(l_index).weight_uom_code is not null or x_rec_attr_tab(l_index).weight_uom_desc is not null THEN
4041: wsh_util_validate.validate_uom(
4063: --Bug 5191354
4064: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VOLUME_UOM_LVL) = 1
4065: AND (p_action_code = 'CREATE' OR
4066: (p_action_code = 'UPDATE' AND
4067: ((p_in_rec_attr_tab(l_index).volume_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).volume_uom_code <> fnd_api.g_miss_char)
4068: ))) THEN
4069: --
4070: IF x_rec_attr_tab(l_index).volume_uom_code is not null or x_rec_attr_tab(l_index).volume_uom_desc is not null THEN
4071: wsh_util_validate.validate_uom(
4091: END IF;
4092: --Bug 5191354
4093: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CURRENCY_LVL) = 1
4094: AND ((p_action_code = 'CREATE' OR p_action_code = 'UPDATE') AND
4095: ((p_in_rec_attr_tab(l_index).currency_code <> fnd_api.g_miss_char)
4096: OR (p_in_rec_attr_tab(l_index).currency_name <> fnd_api.g_miss_char)
4097: )) THEN
4098: --
4099: --OTM R12, added parameter l_adjusted_amount
4092: --Bug 5191354
4093: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CURRENCY_LVL) = 1
4094: AND ((p_action_code = 'CREATE' OR p_action_code = 'UPDATE') AND
4095: ((p_in_rec_attr_tab(l_index).currency_code <> fnd_api.g_miss_char)
4096: OR (p_in_rec_attr_tab(l_index).currency_name <> fnd_api.g_miss_char)
4097: )) THEN
4098: --
4099: --OTM R12, added parameter l_adjusted_amount
4100: IF l_debug_on THEN
4121: --Bug 5191354
4122: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ARR_DEP_DATES_LVL) = 1
4123: AND (p_action_code = 'CREATE' OR
4124: (p_action_code = 'UPDATE' AND
4125: ((p_in_rec_attr_tab(l_index).initial_pickup_date IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_date <> fnd_api.g_miss_date)
4126: OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_date IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_date <> fnd_api.g_miss_date)
4127: ))) THEN
4128: --
4129: wsh_util_validate.validate_from_to_dates(
4122: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ARR_DEP_DATES_LVL) = 1
4123: AND (p_action_code = 'CREATE' OR
4124: (p_action_code = 'UPDATE' AND
4125: ((p_in_rec_attr_tab(l_index).initial_pickup_date IS NULL ) OR (p_in_rec_attr_tab(l_index).initial_pickup_date <> fnd_api.g_miss_date)
4126: OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_date IS NULL ) OR (p_in_rec_attr_tab(l_index).ultimate_dropoff_date <> fnd_api.g_miss_date)
4127: ))) THEN
4128: --
4129: wsh_util_validate.validate_from_to_dates(
4130: p_from_date => x_rec_attr_tab(l_index).initial_pickup_date,
4166: --Bug 5191354
4167: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ROUTE_EXPORT_TXN_LVL) = 1
4168: AND (p_action_code = 'CREATE' OR
4169: (p_action_code = 'UPDATE' AND
4170: ((p_in_rec_attr_tab(l_index).ROUTED_EXPORT_TXN IS NULL ) OR (p_in_rec_attr_tab(l_index).ROUTED_EXPORT_TXN <> fnd_api.g_miss_char)
4171: ))) THEN
4172: --
4173: WSH_DELIVERY_VALIDATIONS.Validate_Routed_Export_Txn(
4174: x_rtd_expt_txn_code => x_rec_attr_tab(l_index).ROUTED_EXPORT_TXN,
4188: --Bug 5191354
4189: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_CARRIER_LVL) = 1
4190: AND (p_action_code = 'CREATE' OR
4191: (p_action_code = 'UPDATE' AND
4192: ((p_in_rec_attr_tab(l_index).ship_method_name IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_name <> fnd_api.g_miss_char)
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4189: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_CARRIER_LVL) = 1
4190: AND (p_action_code = 'CREATE' OR
4191: (p_action_code = 'UPDATE' AND
4192: ((p_in_rec_attr_tab(l_index).ship_method_name IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_name <> fnd_api.g_miss_char)
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4197: OR (p_in_rec_attr_tab(l_index).mode_of_transport IS NULL ) OR (p_in_rec_attr_tab(l_index).mode_of_transport <> fnd_api.g_miss_char)
4190: AND (p_action_code = 'CREATE' OR
4191: (p_action_code = 'UPDATE' AND
4192: ((p_in_rec_attr_tab(l_index).ship_method_name IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_name <> fnd_api.g_miss_char)
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4197: OR (p_in_rec_attr_tab(l_index).mode_of_transport IS NULL ) OR (p_in_rec_attr_tab(l_index).mode_of_transport <> fnd_api.g_miss_char)
4198: ))) THEN
4191: (p_action_code = 'UPDATE' AND
4192: ((p_in_rec_attr_tab(l_index).ship_method_name IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_name <> fnd_api.g_miss_char)
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4197: OR (p_in_rec_attr_tab(l_index).mode_of_transport IS NULL ) OR (p_in_rec_attr_tab(l_index).mode_of_transport <> fnd_api.g_miss_char)
4198: ))) THEN
4199: --
4192: ((p_in_rec_attr_tab(l_index).ship_method_name IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_name <> fnd_api.g_miss_char)
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4197: OR (p_in_rec_attr_tab(l_index).mode_of_transport IS NULL ) OR (p_in_rec_attr_tab(l_index).mode_of_transport <> fnd_api.g_miss_char)
4198: ))) THEN
4199: --
4200: wsh_util_validate.validate_freight_carrier(
4193: OR (p_in_rec_attr_tab(l_index).ship_method_code IS NULL ) OR (p_in_rec_attr_tab(l_index).ship_method_code <> fnd_api.g_miss_char)
4194: OR (p_in_rec_attr_tab(l_index).carrier_code IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_code <> fnd_api.g_miss_char)
4195: OR (p_in_rec_attr_tab(l_index).carrier_id IS NULL ) OR (p_in_rec_attr_tab(l_index).carrier_id <> fnd_api.g_miss_num)
4196: OR (p_in_rec_attr_tab(l_index).service_level IS NULL ) OR (p_in_rec_attr_tab(l_index).service_level <> fnd_api.g_miss_char)
4197: OR (p_in_rec_attr_tab(l_index).mode_of_transport IS NULL ) OR (p_in_rec_attr_tab(l_index).mode_of_transport <> fnd_api.g_miss_char)
4198: ))) THEN
4199: --
4200: wsh_util_validate.validate_freight_carrier(
4201: p_ship_method_name => x_rec_attr_tab(l_index).ship_method_name,
4237: --Bug 5191354
4238: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DERIVE_DELIVERY_UOM_LVL) = 1
4239: AND (p_action_code = 'CREATE' OR
4240: (p_action_code = 'UPDATE' AND
4241: ( (p_in_rec_attr_tab(l_index).volume_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).volume_uom_code <> fnd_api.g_miss_char)
4242: OR (p_in_rec_attr_tab(l_index).weight_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).weight_uom_code <> fnd_api.g_miss_char)
4243: ))) THEN
4244: --
4245: wsh_delivery_validations.derive_delivery_uom(
4238: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DERIVE_DELIVERY_UOM_LVL) = 1
4239: AND (p_action_code = 'CREATE' OR
4240: (p_action_code = 'UPDATE' AND
4241: ( (p_in_rec_attr_tab(l_index).volume_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).volume_uom_code <> fnd_api.g_miss_char)
4242: OR (p_in_rec_attr_tab(l_index).weight_uom_code IS NULL ) OR (p_in_rec_attr_tab(l_index).weight_uom_code <> fnd_api.g_miss_char)
4243: ))) THEN
4244: --
4245: wsh_delivery_validations.derive_delivery_uom(
4246: p_delivery_id => x_rec_attr_tab(l_index).delivery_id,
4279: OR NVL(x_rec_attr_tab(l_index).NET_WEIGHT,0) > 0 THEN
4280: IF x_rec_attr_tab(l_index).WEIGHT_UOM_CODE IS NULL THEN
4281: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4282: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4283: RAISE FND_API.G_EXC_ERROR;
4284: END IF;
4285: END IF;
4286: --Bug 4140359
4287: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4287: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4288: AND x_rec_attr_tab(l_index).VOLUME_UOM_CODE IS NULL THEN
4289: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4290: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4291: RAISE FND_API.G_EXC_ERROR;
4292: END IF;
4293: END IF; --}
4294: x_valid_index_tab(l_index) := l_index;
4295: --
4294: x_valid_index_tab(l_index) := l_index;
4295: --
4296: EXCEPTION
4297: --
4298: WHEN FND_API.G_EXC_ERROR THEN
4299: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4301: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4302: WHEN OTHERS THEN
4296: EXCEPTION
4297: --
4298: WHEN FND_API.G_EXC_ERROR THEN
4299: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4301: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4302: WHEN OTHERS THEN
4303: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4301: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4302: WHEN OTHERS THEN
4303: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4305: --
4306: END;
4307: --
4308: l_index := x_rec_attr_tab.NEXT(l_index);
4309: --
4310: END LOOP;
4311: --
4312: IF l_num_errors = x_rec_attr_tab.COUNT THEN
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSIF l_num_errors > 0 THEN
4315: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4316: ELSIF l_num_warnings > 0 THEN
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4328: WSH_DEBUG_SV.pop(l_module_name);
4329: END IF;
4330: --
4331: EXCEPTION
4332: WHEN FND_API.G_EXC_ERROR THEN
4333: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: --
4336: IF l_debug_on THEN
4333: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: --
4336: IF l_debug_on THEN
4337: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4338: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4339: END IF;
4340: --
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: --
4336: IF l_debug_on THEN
4337: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4338: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4339: END IF;
4340: --
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4337: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4338: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4339: END IF;
4340: --
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4343: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4344: --
4345: IF l_debug_on THEN
4343: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4344: --
4345: IF l_debug_on THEN
4346: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4348: END IF;
4349: --
4350: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4351: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4371: -- PROCEDURE : Create_Update_Delivery Must be called only by the Form
4372: -- and the Wrapper Group API.
4373: --
4374: -- PARAMETERS: p_api_version_number known api version error buffer
4375: -- p_init_msg_list FND_API.G_TRUE to reset list
4376: -- x_return_status return status
4377: -- x_msg_count number of messages in the list
4378: -- x_msg_data text of messages
4379: -- p_in_rec Record for caller, phase
4387: --========================================================================
4388: PROCEDURE Create_Update_Delivery
4389: ( p_api_version_number IN NUMBER,
4390: p_init_msg_list IN VARCHAR2,
4391: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4392: p_in_rec IN del_In_Rec_Type,
4393: p_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
4394: x_del_out_rec_tab OUT NOCOPY Del_Out_Tbl_Type,
4395: x_return_status OUT NOCOPY VARCHAR2,
4504: END IF;
4505: --
4506: SAVEPOINT CREATE_UPDATE_DELIVERY_GRP;
4507: --
4508: IF NOT FND_API.Compatible_API_Call
4509: ( l_api_version_number,
4510: p_api_version_number,
4511: l_api_name,
4512: G_PKG_NAME
4511: l_api_name,
4512: G_PKG_NAME
4513: )
4514: THEN
4515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4516: END IF;
4517: --
4518: IF FND_API.to_Boolean(p_init_msg_list) THEN
4519: FND_MSG_PUB.initialize;
4514: THEN
4515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4516: END IF;
4517: --
4518: IF FND_API.to_Boolean(p_init_msg_list) THEN
4519: FND_MSG_PUB.initialize;
4520: END IF;
4521: --
4522:
4555: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4556: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4557: x_return_status := wsh_util_core.g_ret_sts_error;
4558: wsh_util_core.add_message(x_return_status,l_module_name);
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561: --
4562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4563: --
4602: x_num_errors => l_num_errors,
4603: p_msg_data => l_msg_data);
4604: --
4605: EXCEPTION
4606: WHEN FND_API.G_EXC_ERROR THEN
4607: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4609: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4604: --
4605: EXCEPTION
4606: WHEN FND_API.G_EXC_ERROR THEN
4607: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4609: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4611: WHEN OTHERS THEN
4612: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4606: WHEN FND_API.G_EXC_ERROR THEN
4607: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4609: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4611: WHEN OTHERS THEN
4612: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4614: END;
4609: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4611: WHEN OTHERS THEN
4612: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4614: END;
4615: --
4616: l_index := p_rec_attr_tab.NEXT(l_index);
4617: --
4629: IF wsh_util_core.fte_is_installed = 'Y' THEN
4630:
4631: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
4632: p_api_version_number => p_api_version_number,
4633: p_init_msg_list => FND_API.G_FALSE,
4634: p_entity_type => 'D',
4635: p_target_id => null,
4636: p_action_code => p_in_rec.action_code,
4637: p_del_attr_tab => l_rec_attr_tab,
4768: /*** J changes TP release ****/
4769: l_tmp_ignore := l_rec_attr_tab(l_index).ignore_for_planning;
4770: IF (wsh_util_core.TP_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) --OTM R12 Org-Specific . Added second OR condition
4771: AND (
4772: (l_tmp_ignore is null OR l_tmp_ignore=FND_API.G_MISS_CHAR)
4773: OR (l_tmp_ignore is not null AND l_tmp_ignore='N')-- need to check this as form always passes 'N'
4774: ) THEN
4775:
4776: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
4789: x_num_warnings => l_num_warnings,
4790: x_num_errors => l_num_errors);
4791:
4792:
4793: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
4794: l_ignore_for_planning:='Y';
4795: --OTM R12 Org-Specific Start
4796: ELSIF (l_gc3_is_installed = 'Y') THEN
4797: wsh_util_validate.calc_ignore_for_planning(
4810: l_ignore_for_planning );
4811: END IF;
4812: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4813: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4814: RAISE FND_API.G_EXC_ERROR;
4815: END IF;
4816: END IF;
4817: --OTM R12 End.
4818: ELSIF (l_tmp_ignore='Y' and
5056:
5057: --if org is a tpw/cms and current ignore plan is 'N', change ignore plan by
5058: --calling api.
5059:
5060: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
5061: l_tmp_del_ids.delete;
5062: l_tmp_del_ids(1):=l_rec_attr_tab(l_index).delivery_id;
5063: wsh_tp_release.change_ignoreplan_status
5064: (p_entity => 'DLVY',
5079: /***TP Release**/
5080: END IF; -- End if For p_in_rec.action_code Check for CREATE or UDPATE.
5081: --
5082: EXCEPTION
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5086: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5081: --
5082: EXCEPTION
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5086: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5088: WHEN OTHERS THEN
5089: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5086: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5088: WHEN OTHERS THEN
5089: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5091: END;
5086: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5088: WHEN OTHERS THEN
5089: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5091: END;
5092: --
5093: l_index := l_index_tab.NEXT(l_index);
5094: --
5095: END LOOP;
5096: --
5097:
5098: IF (l_num_errors = l_rec_attr_tab.count ) THEN
5099: RAISE FND_API.G_EXC_ERROR;
5100: ELSIF (l_num_errors > 0 ) THEN
5101: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5102: ELSIF (l_num_warnings > 0 ) THEN
5103: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5105: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5106: END IF;
5107:
5108: -- Standard check of p_commit.
5109: IF FND_API.To_Boolean( p_commit ) THEN
5110:
5111: --bug 4070732
5112: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5113: --{
5125: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5126: END IF;
5127:
5128: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5133: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5127:
5128: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5133: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5134: END IF;
5135:
5145: --{
5146: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5147: --{
5148:
5149: IF FND_API.To_Boolean( p_commit ) THEN
5150:
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5153: END IF;
5176: END IF;
5177:
5178: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5179: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5180: IF NOT FND_API.To_Boolean( p_commit ) THEN
5181: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5182: END IF;
5183: END IF;
5184:
5191: --
5192: FND_MSG_PUB.Count_And_Get (
5193: p_count => x_msg_count,
5194: p_data => x_msg_data,
5195: p_encoded => FND_API.G_FALSE);
5196: --
5197: IF l_debug_on THEN
5198: WSH_DEBUG_SV.pop(l_module_name);
5199: END IF;
5235: --
5236: FND_MSG_PUB.Count_And_Get (
5237: p_count => x_msg_count,
5238: p_data => x_msg_data,
5239: p_encoded => FND_API.G_FALSE);
5240:
5241: IF l_debug_on THEN
5242: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5242: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5244: END IF;
5245:
5246: WHEN FND_API.G_EXC_ERROR THEN
5247: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5248: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5249: --
5250: -- Start code for Bugfix 4070732
5278: FND_MSG_PUB.Count_And_Get
5279: (
5280: p_count => x_msg_count,
5281: p_data => x_msg_data,
5282: p_encoded => FND_API.G_FALSE
5283: );
5284:
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5282: p_encoded => FND_API.G_FALSE
5283: );
5284:
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5288: END IF;
5289: --
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5283: );
5284:
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5288: END IF;
5289: --
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5286: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5288: END IF;
5289: --
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5292: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5293:
5294: --
5323: FND_MSG_PUB.Count_And_Get
5324: (
5325: p_count => x_msg_count,
5326: p_data => x_msg_data,
5327: p_encoded => FND_API.G_FALSE
5328: );
5329:
5330: --
5331: IF l_debug_on THEN
5329:
5330: --
5331: IF l_debug_on THEN
5332: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5334: END IF;
5335: --
5336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5374: FND_MSG_PUB.Count_And_Get
5375: (
5376: p_count => x_msg_count,
5377: p_data => x_msg_data,
5378: p_encoded => FND_API.G_FALSE
5379: );
5380:
5381: --
5382: IF l_debug_on THEN
5420: FND_MSG_PUB.Count_And_Get
5421: (
5422: p_count => x_msg_count,
5423: p_data => x_msg_data,
5424: p_encoded => FND_API.G_FALSE
5425: );
5426:
5427: --
5428: IF l_debug_on THEN
5486: --
5487:
5488: IF (p_action_code <> 'CREATE') THEN
5489:
5490: IF (p_delivery_info.delivery_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5491:
5492: IF (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5493: p_delivery_info.delivery_id := NULL;
5494: END IF;
5488: IF (p_action_code <> 'CREATE') THEN
5489:
5490: IF (p_delivery_info.delivery_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5491:
5492: IF (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5493: p_delivery_info.delivery_id := NULL;
5494: END IF;
5495:
5496: wsh_util_validate.validate_delivery_name(
5512: END IF;
5513:
5514: END IF;
5515:
5516: IF (p_delivery_info.organization_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5517:
5518: IF (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5519: p_delivery_info.organization_id := NULL;
5520: END IF;
5514: END IF;
5515:
5516: IF (p_delivery_info.organization_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5517:
5518: IF (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5519: p_delivery_info.organization_id := NULL;
5520: END IF;
5521: wsh_util_validate.validate_org(
5522: p_delivery_info.organization_id,
5539: p_delivery_info.delivery_type := 'STANDARD';
5540:
5541: END IF;
5542:
5543: IF (p_delivery_info.loading_order_flag <> FND_API.G_MISS_CHAR) OR (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5544:
5545: IF (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5546: p_delivery_info.loading_order_flag := NULL;
5547: END IF;
5541: END IF;
5542:
5543: IF (p_delivery_info.loading_order_flag <> FND_API.G_MISS_CHAR) OR (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5544:
5545: IF (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5546: p_delivery_info.loading_order_flag := NULL;
5547: END IF;
5548: wsh_util_validate.validate_loading_order(
5549: p_delivery_info.loading_order_flag,
5561: RETURN;
5562: END IF;
5563: END IF;
5564:
5565: IF (p_delivery_info.initial_pickup_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5566:
5567: IF (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5568: p_delivery_info.initial_pickup_location_id := NULL;
5569: END IF;
5563: END IF;
5564:
5565: IF (p_delivery_info.initial_pickup_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5566:
5567: IF (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5568: p_delivery_info.initial_pickup_location_id := NULL;
5569: END IF;
5570: wsh_util_validate.validate_location(
5571: p_delivery_info.initial_pickup_location_id,
5582: RETURN;
5583: END IF;
5584: END IF;
5585:
5586: IF (p_delivery_info.ultimate_dropoff_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5587:
5588: IF (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5589: p_delivery_info.ultimate_dropoff_location_id := NULL;
5590: END IF;
5584: END IF;
5585:
5586: IF (p_delivery_info.ultimate_dropoff_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5587:
5588: IF (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5589: p_delivery_info.ultimate_dropoff_location_id := NULL;
5590: END IF;
5591: wsh_util_validate.validate_location(
5592: p_delivery_info.ultimate_dropoff_location_id,
5603: RETURN;
5604: END IF;
5605: END IF;
5606:
5607: IF (p_delivery_info.intmed_ship_to_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5608:
5609: IF (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5610: p_delivery_info.intmed_ship_to_location_id := NULL;
5611: END IF;
5605: END IF;
5606:
5607: IF (p_delivery_info.intmed_ship_to_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5608:
5609: IF (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5610: p_delivery_info.intmed_ship_to_location_id := NULL;
5611: END IF;
5612: wsh_util_validate.validate_location(
5613: p_delivery_info.intmed_ship_to_location_id,
5624: RETURN;
5625: END IF;
5626: END IF;
5627:
5628: IF (p_delivery_info.pooled_ship_to_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5629:
5630: IF (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5631: p_delivery_info.pooled_ship_to_location_id := NULL;
5632: END IF;
5626: END IF;
5627:
5628: IF (p_delivery_info.pooled_ship_to_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5629:
5630: IF (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5631: p_delivery_info.pooled_ship_to_location_id := NULL;
5632: END IF;
5633: wsh_util_validate.validate_location(
5634: p_delivery_info.pooled_ship_to_location_id,
5646: RETURN;
5647: END IF;
5648: END IF;
5649:
5650: IF (p_delivery_info.customer_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5651:
5652: IF (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5653: p_delivery_info.customer_id := NULL;
5654: END IF;
5648: END IF;
5649:
5650: IF (p_delivery_info.customer_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5651:
5652: IF (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5653: p_delivery_info.customer_id := NULL;
5654: END IF;
5655: wsh_util_validate.validate_customer(
5656: p_delivery_info.customer_id,
5670: END IF;
5671:
5672: -- Carrier ID is not validated as it is not used...Ship method is used instead.
5673:
5674: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_name <> FND_API.G_MISS_CHAR) THEN
5675:
5676: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) THEN
5677: p_delivery_info.ship_method_name := NULL;
5678: END IF;
5672: -- Carrier ID is not validated as it is not used...Ship method is used instead.
5673:
5674: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_name <> FND_API.G_MISS_CHAR) THEN
5675:
5676: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) THEN
5677: p_delivery_info.ship_method_name := NULL;
5678: END IF;
5679: wsh_util_validate.validate_ship_method(
5680: p_delivery_info.ship_method_code,
5692: RETURN;
5693: END IF;
5694: END IF;
5695:
5696: IF (p_delivery_info.freight_terms_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5697:
5698: IF (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5699: p_delivery_info.freight_terms_name := NULL;
5700: END IF;
5694: END IF;
5695:
5696: IF (p_delivery_info.freight_terms_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5697:
5698: IF (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5699: p_delivery_info.freight_terms_name := NULL;
5700: END IF;
5701: wsh_util_validate.validate_freight_terms(
5702: p_delivery_info.freight_terms_code,
5714: RETURN;
5715: END IF;
5716: END IF;
5717:
5718: IF (p_delivery_info.fob_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5719:
5720: IF (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5721: p_delivery_info.fob_code := NULL;
5722: END IF;
5716: END IF;
5717:
5718: IF (p_delivery_info.fob_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5719:
5720: IF (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5721: p_delivery_info.fob_code := NULL;
5722: END IF;
5723: wsh_util_validate.validate_fob(
5724: p_delivery_info.fob_code,
5736: RETURN;
5737: END IF;
5738: END IF;
5739:
5740: IF (p_delivery_info.fob_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5741:
5742: IF (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5743: p_delivery_info.fob_location_id := NULL;
5744: END IF;
5738: END IF;
5739:
5740: IF (p_delivery_info.fob_location_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5741:
5742: IF (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5743: p_delivery_info.fob_location_id := NULL;
5744: END IF;
5745: wsh_util_validate.validate_location(
5746: p_delivery_info.fob_location_id,
5758: RETURN;
5759: END IF;
5760: END IF;
5761:
5762: IF (p_delivery_info.weight_uom_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5763:
5764: IF (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5765: p_delivery_info.weight_uom_code := NULL;
5766: END IF;
5760: END IF;
5761:
5762: IF (p_delivery_info.weight_uom_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5763:
5764: IF (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5765: p_delivery_info.weight_uom_code := NULL;
5766: END IF;
5767:
5768: wsh_util_validate.validate_uom(
5782: RETURN;
5783: END IF;
5784: END IF;
5785:
5786: IF (p_delivery_info.volume_uom_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5787:
5788: IF (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5789: p_delivery_info.volume_uom_code := NULL;
5790: END IF;
5784: END IF;
5785:
5786: IF (p_delivery_info.volume_uom_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5787:
5788: IF (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5789: p_delivery_info.volume_uom_code := NULL;
5790: END IF;
5791: wsh_util_validate.validate_uom(
5792: 'VOLUME',
5806: RETURN;
5807: END IF;
5808: END IF;
5809:
5810: IF (p_delivery_info.currency_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5811:
5812: IF (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5813: p_delivery_info.currency_code := NULL;
5814: END IF;
5808: END IF;
5809:
5810: IF (p_delivery_info.currency_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5811:
5812: IF (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5813: p_delivery_info.currency_code := NULL;
5814: END IF;
5815: --OTM R12, added parameter l_adjusted_amount
5816: wsh_util_validate.validate_currency(
5835: -- manifesting code changes
5836: -- disallow update of ship method or its components if the delivery is assigned to trip.
5837: --
5838:
5839: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
5840: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
5841: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
5842: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
5843:
5836: -- disallow update of ship method or its components if the delivery is assigned to trip.
5837: --
5838:
5839: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
5840: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
5841: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
5842: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
5843:
5844: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
5837: --
5838:
5839: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
5840: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
5841: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
5842: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
5843:
5844: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
5845: (p_delivery_id => p_delivery_info.delivery_id,
5838:
5839: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
5840: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
5841: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
5842: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
5843:
5844: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
5845: (p_delivery_id => p_delivery_info.delivery_id,
5846: x_return_status => x_return_status);
6045: x_pvt_rec.SHIPPING_MARKS := p_pub_rec.SHIPPING_MARKS;
6046: x_pvt_rec.SERVICE_LEVEL := p_pub_rec.SERVICE_LEVEL;
6047: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6048: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6049: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6050: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6051: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6052: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6053: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6046: x_pvt_rec.SERVICE_LEVEL := p_pub_rec.SERVICE_LEVEL;
6047: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6048: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6049: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6050: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6051: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6052: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6053: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6054: --
6047: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6048: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6049: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6050: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6051: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6052: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6053: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6054: --
6055: IF l_debug_on THEN
6048: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6049: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6050: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6051: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6052: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6053: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6054: --
6055: IF l_debug_on THEN
6056: WSH_DEBUG_SV.pop(l_module_name);
6049: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6050: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6051: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6052: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6053: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6054: --
6055: IF l_debug_on THEN
6056: WSH_DEBUG_SV.pop(l_module_name);
6057: END IF;
6071: --========================================================================
6072: -- PROCEDURE : Create_Update_Delivery PUBLIC
6073: --
6074: -- PARAMETERS: p_api_version_number known api versionerror buffer
6075: -- p_init_msg_list FND_API.G_TRUE to reset list
6076: -- x_return_status return status
6077: -- x_msg_count number of messages in the list
6078: -- x_msg_data text of messages
6079: -- p_delivery_info Attributes for the delivery entity
6093: x_msg_count OUT NOCOPY NUMBER,
6094: x_msg_data OUT NOCOPY VARCHAR2,
6095: p_action_code IN VARCHAR2,
6096: p_delivery_info IN OUT NOCOPY Delivery_Pub_Rec_Type,
6097: p_delivery_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
6098: x_delivery_id OUT NOCOPY NUMBER,
6099: x_name OUT NOCOPY VARCHAR2)
6100:
6101: IS
6110: l_rec_attr_tab wsh_new_deliveries_pvt.delivery_attr_tbl_type;
6111: l_delivery_in_rec Del_In_Rec_Type;
6112: l_del_out_rec_tab Del_Out_Tbl_Type;
6113: l_return_status VARCHAR2(1);
6114: l_commit VARCHAR2(100) := FND_API.G_FALSE;
6115: --
6116: l_debug_on BOOLEAN;
6117: --
6118: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_UPDATE_DELIVERY';
6131: IF l_debug_on THEN
6132: wsh_debug_sv.push(l_module_name);
6133: END IF;
6134: -- Standard call to check for call compatibility
6135: IF NOT FND_API.Compatible_API_Call
6136: ( l_api_version_number
6137: , p_api_version_number
6138: , l_api_name
6139: , G_PKG_NAME
6138: , l_api_name
6139: , G_PKG_NAME
6140: )
6141: THEN
6142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6143: END IF;
6144:
6145: -- Initialize message stack if required
6146: IF FND_API.to_Boolean(p_init_msg_list) THEN
6142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6143: END IF;
6144:
6145: -- Initialize message stack if required
6146: IF FND_API.to_Boolean(p_init_msg_list) THEN
6147: FND_MSG_PUB.initialize;
6148: END IF;
6149:
6150:
6148: END IF;
6149:
6150:
6151: IF (p_action_code = 'UPDATE') THEN
6152: IF (p_delivery_name IS NOT NULL) OR (p_delivery_name <> FND_API.G_MISS_CHAR) THEN
6153: p_delivery_info.name := p_delivery_name;
6154: END IF;
6155: ELSIF ( p_action_code <> 'CREATE' ) THEN
6156: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6211: --
6212: FND_MSG_PUB.Count_And_Get
6213: ( p_count => x_msg_count
6214: , p_data => x_msg_data
6215: , p_encoded => FND_API.G_FALSE
6216: );
6217: --
6218: IF l_debug_on THEN
6219: WSH_DEBUG_SV.pop(l_module_name);
6219: WSH_DEBUG_SV.pop(l_module_name);
6220: END IF;
6221: --
6222: EXCEPTION
6223: WHEN FND_API.G_EXC_ERROR THEN
6224: x_return_status := FND_API.G_RET_STS_ERROR;
6225: -- Get message count and data
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_count => x_msg_count
6220: END IF;
6221: --
6222: EXCEPTION
6223: WHEN FND_API.G_EXC_ERROR THEN
6224: x_return_status := FND_API.G_RET_STS_ERROR;
6225: -- Get message count and data
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_count => x_msg_count
6228: , p_data => x_msg_data
6225: -- Get message count and data
6226: FND_MSG_PUB.Count_And_Get
6227: ( p_count => x_msg_count
6228: , p_data => x_msg_data
6229: , p_encoded => FND_API.G_FALSE
6230: );
6231: --
6232: IF l_debug_on THEN
6233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6230: );
6231: --
6232: IF l_debug_on THEN
6233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6235: END IF;
6236: --
6237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6235: END IF;
6236: --
6237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6239: -- Get message count and data
6240: FND_MSG_PUB.Count_And_Get
6241: ( p_count => x_msg_count
6234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6235: END IF;
6236: --
6237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6239: -- Get message count and data
6240: FND_MSG_PUB.Count_And_Get
6241: ( p_count => x_msg_count
6242: , p_data => x_msg_data
6239: -- Get message count and data
6240: FND_MSG_PUB.Count_And_Get
6241: ( p_count => x_msg_count
6242: , p_data => x_msg_data
6243: , p_encoded => FND_API.G_FALSE
6244: );
6245: --
6246: IF l_debug_on THEN
6247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6244: );
6245: --
6246: IF l_debug_on THEN
6247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6249: END IF;
6250: --
6251: WHEN OTHERS THEN
6252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6249: END IF;
6250: --
6251: WHEN OTHERS THEN
6252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6253: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6254: THEN
6255: FND_MSG_PUB.Add_Exc_Msg
6256: ( G_PKG_NAME
6260: -- Get message count and data
6261: FND_MSG_PUB.Count_And_Get
6262: ( p_count => x_msg_count
6263: , p_data => x_msg_data
6264: , p_encoded => FND_API.G_FALSE
6265: );
6266: --
6267: IF l_debug_on THEN
6268: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6275: --========================================================================
6276: -- PROCEDURE : Delivery_Action PUBLIC
6277: --
6278: -- PARAMETERS: p_api_version_number known api version error number
6279: -- p_init_msg_list FND_API.G_TRUE to reset list
6280: -- x_return_status return status
6281: -- x_msg_count number of messages in the list
6282: -- x_msg_data text of messages
6283: -- p_action_code Delivery action code. Valid action codes are
6372: l_delivery_id NUMBER := p_delivery_id;
6373: --
6374: l_num_errors NUMBER := 0;
6375: l_num_warnings NUMBER := 0;
6376: l_commit VARCHAR2(100) := FND_API.G_FALSE;
6377: --
6378: BEGIN
6379: --
6380: --
6389: wsh_debug_sv.push(l_module_name);
6390: END IF;
6391: --
6392: -- Standard call to check for call compatibility
6393: IF NOT FND_API.Compatible_API_Call
6394: ( l_api_version_number
6395: , p_api_version_number
6396: , l_api_name
6397: , G_PKG_NAME
6396: , l_api_name
6397: , G_PKG_NAME
6398: )
6399: THEN
6400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6401: END IF;
6402:
6403: -- Initialize message stack if required
6404: IF FND_API.to_Boolean(p_init_msg_list) THEN
6400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6401: END IF;
6402:
6403: -- Initialize message stack if required
6404: IF FND_API.to_Boolean(p_init_msg_list) THEN
6405: FND_MSG_PUB.initialize;
6406: END IF;
6407:
6408: wsh_util_validate.validate_delivery_name(
6489: --
6490: FND_MSG_PUB.Count_And_Get
6491: ( p_count => x_msg_count
6492: , p_data => x_msg_data
6493: , p_encoded => FND_API.G_FALSE
6494: );
6495: --
6496: IF l_debug_on THEN
6497: WSH_DEBUG_SV.pop(l_module_name);
6497: WSH_DEBUG_SV.pop(l_module_name);
6498: END IF;
6499: --
6500: EXCEPTION
6501: WHEN FND_API.G_EXC_ERROR THEN
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: -- Get message count and data
6504: FND_MSG_PUB.Count_And_Get
6505: ( p_count => x_msg_count
6498: END IF;
6499: --
6500: EXCEPTION
6501: WHEN FND_API.G_EXC_ERROR THEN
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: -- Get message count and data
6504: FND_MSG_PUB.Count_And_Get
6505: ( p_count => x_msg_count
6506: , p_data => x_msg_data
6503: -- Get message count and data
6504: FND_MSG_PUB.Count_And_Get
6505: ( p_count => x_msg_count
6506: , p_data => x_msg_data
6507: , p_encoded => FND_API.G_FALSE
6508: );
6509: --
6510: IF l_debug_on THEN
6511: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6508: );
6509: --
6510: IF l_debug_on THEN
6511: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6513: END IF;
6514: --
6515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6511: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6513: END IF;
6514: --
6515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6517: -- Get message count and data
6518: FND_MSG_PUB.Count_And_Get
6519: ( p_count => x_msg_count
6512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6513: END IF;
6514: --
6515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6517: -- Get message count and data
6518: FND_MSG_PUB.Count_And_Get
6519: ( p_count => x_msg_count
6520: , p_data => x_msg_data
6517: -- Get message count and data
6518: FND_MSG_PUB.Count_And_Get
6519: ( p_count => x_msg_count
6520: , p_data => x_msg_data
6521: , p_encoded => FND_API.G_FALSE
6522: );
6523: --
6524: IF l_debug_on THEN
6525: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6522: );
6523: --
6524: IF l_debug_on THEN
6525: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6527: END IF;
6528: --
6529: WHEN OTHERS THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6527: END IF;
6528: --
6529: WHEN OTHERS THEN
6530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6531: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6532: THEN
6533: FND_MSG_PUB.Add_Exc_Msg
6534: ( G_PKG_NAME
6538: -- Get message count and data
6539: FND_MSG_PUB.Count_And_Get
6540: ( p_count => x_msg_count
6541: , p_data => x_msg_data
6542: , p_encoded => FND_API.G_FALSE
6543: );
6544: --
6545: IF l_debug_on THEN
6546: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6711: IF l_debug_on THEN
6712: wsh_debug_sv.logmsg(l_module_name, 'When others in local block');
6713: END IF;
6714: ROLLBACK TO lock_rel_ent_loop;
6715: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6716:
6717: END;
6718: l_index := p_rec_attr_tab.next(l_index);
6719: -- }
6730: -- {
6731: IF x_valid_ids_tab.count = 0
6732: THEN
6733: -- {
6734: RAISE FND_API.G_EXC_ERROR;
6735: ELSIF x_valid_ids_tab.count >0
6736: AND x_valid_ids_tab.count < p_rec_attr_tab.count
6737: THEN
6738: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6746: END IF;
6747: --
6748:
6749: EXCEPTION
6750: WHEN FND_API.G_EXC_ERROR THEN
6751: x_return_status := FND_API.G_RET_STS_ERROR ;
6752: --
6753: IF l_debug_on THEN
6754: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6747: --
6748:
6749: EXCEPTION
6750: WHEN FND_API.G_EXC_ERROR THEN
6751: x_return_status := FND_API.G_RET_STS_ERROR ;
6752: --
6753: IF l_debug_on THEN
6754: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6750: WHEN FND_API.G_EXC_ERROR THEN
6751: x_return_status := FND_API.G_RET_STS_ERROR ;
6752: --
6753: IF l_debug_on THEN
6754: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6756: END IF;
6757: --
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6751: x_return_status := FND_API.G_RET_STS_ERROR ;
6752: --
6753: IF l_debug_on THEN
6754: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6756: END IF;
6757: --
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6754: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6756: END IF;
6757: --
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6760: --
6761: IF l_debug_on THEN
6762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6755: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6756: END IF;
6757: --
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6760: --
6761: IF l_debug_on THEN
6762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6760: --
6761: IF l_debug_on THEN
6762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6764: END IF;
6765: --
6766: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6760: --
6761: IF l_debug_on THEN
6762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6764: END IF;
6765: --
6766: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6772: END IF;
6773: --
6774: WHEN OTHERS THEN
6775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6776: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6779: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6776: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6779: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6780: END IF;
6781:
6782: --
6783:
6787: -- PROCEDURE : Get_Delivery_Status PUBLIC
6788: --
6789: -- PARAMETERS:
6790: -- p_api_version_number known api version error number
6791: -- p_init_msg_list FND_API.G_TRUE to reset list
6792: -- p_entity_type either DELIVERY/DELIVERY DETAIL/LPN
6793: -- p_entity_id either delivery_id/delivery_detail_id/lpn_id
6794: -- x_status_code Status of delivery for the entity_type and
6795: -- entity id passed
6836: wsh_debug_sv.log (l_module_name, 'Entity Id', p_entity_id );
6837: END IF;
6838: --
6839: -- Standard call to check for call compatibility
6840: IF NOT FND_API.Compatible_API_Call
6841: ( l_api_version_number
6842: , p_api_version_number
6843: , l_api_name
6844: , G_PKG_NAME
6843: , l_api_name
6844: , G_PKG_NAME
6845: )
6846: THEN
6847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6848: END IF;
6849: --
6850: IF FND_API.to_Boolean(p_init_msg_list) THEN
6851: FND_MSG_PUB.initialize;
6846: THEN
6847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6848: END IF;
6849: --
6850: IF FND_API.to_Boolean(p_init_msg_list) THEN
6851: FND_MSG_PUB.initialize;
6852: END IF;
6853: --
6854:
6860: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
6861: END IF;
6862: x_return_status := wsh_util_core.g_ret_sts_error;
6863: wsh_util_core.add_message(x_return_status, l_module_name);
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6866:
6867: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6868:
6893: wsh_debug_sv.pop (l_module_name);
6894: END IF;
6895: --
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6899: FND_MSG_PUB.Count_And_Get (
6900: p_count => x_msg_count,
6901: p_data => x_msg_data,
6898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6899: FND_MSG_PUB.Count_And_Get (
6900: p_count => x_msg_count,
6901: p_data => x_msg_data,
6902: p_encoded => FND_API.G_FALSE );
6903: --
6904: IF l_debug_on THEN
6905: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6906: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
6901: p_data => x_msg_data,
6902: p_encoded => FND_API.G_FALSE );
6903: --
6904: IF l_debug_on THEN
6905: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6906: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
6907: END IF;
6908: --
6909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6902: p_encoded => FND_API.G_FALSE );
6903: --
6904: IF l_debug_on THEN
6905: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6906: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
6907: END IF;
6908: --
6909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6910: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6905: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6906: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
6907: END IF;
6908: --
6909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6910: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6911: FND_MSG_PUB.Count_And_Get (
6912: p_count => x_msg_count,
6913: p_data => x_msg_data,
6910: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6911: FND_MSG_PUB.Count_And_Get (
6912: p_count => x_msg_count,
6913: p_data => x_msg_data,
6914: p_encoded => FND_API.G_FALSE );
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6918: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6913: p_data => x_msg_data,
6914: p_encoded => FND_API.G_FALSE );
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6918: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6919: END IF;
6920: --
6921: WHEN OTHERS THEN
6914: p_encoded => FND_API.G_FALSE );
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
6918: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6919: END IF;
6920: --
6921: WHEN OTHERS THEN
6922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;