[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
367: END IF;
368:
369:
370:
371: IF NOT FND_API.Compatible_API_Call
372: ( l_api_version_number,
373: p_api_version_number,
374: l_api_name,
375: G_PKG_NAME
374: l_api_name,
375: G_PKG_NAME
376: )
377: THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: END IF;
380: --
381: IF FND_API.to_Boolean(p_init_msg_list) THEN
382: FND_MSG_PUB.initialize;
377: THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: END IF;
380: --
381: IF FND_API.to_Boolean(p_init_msg_list) THEN
382: FND_MSG_PUB.initialize;
383: ELSE
384: IF nvl(l_check_dcp, '-99') IN (1,2) THEN
385: WSH_DCP_PVT.G_INIT_MSG_COUNT := fnd_msg_pub.count_msg;
415: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
416: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
417: x_return_status := wsh_util_core.g_ret_sts_error;
418: wsh_util_core.add_message(x_return_status,l_module_name);
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
423:
600: IF l_debug_on THEN
601: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION');
602: END IF;
603: --
604: RAISE FND_API.G_EXC_ERROR;
605: --}
606: END IF;
607: --
608: -- bug 2651859. Refreshing the table of ids.
721: IF p_action_prms.caller IN ('WSH_FSTRX', 'WSH_TRCON') THEN
722: x_delivery_out_rec.selection_issue_flag := 'Y';
723: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
724: ELSE
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727: --
728: END IF;
729: --
779: --
780:
781: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
782: p_api_version_number => p_api_version_number,
783: p_init_msg_list => FND_API.G_FALSE,
784: p_entity_type => 'D',
785: p_target_id => p_action_prms.TRIP_ID,
786: p_action_code => l_action_code,
787: --p_del_attr_tab => p_rec_attr_tab,
970: --jckwok. Bug 3426434
971: IF p_action_prms.action_code IN ('UNASSIGN-TRIP',
972: 'ASSIGN-TRIP')
973: THEN
974: IF (nvl(p_action_prms.trip_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
975: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
976: THEN
977: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
978: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
971: IF p_action_prms.action_code IN ('UNASSIGN-TRIP',
972: 'ASSIGN-TRIP')
973: THEN
974: IF (nvl(p_action_prms.trip_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
975: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
976: THEN
977: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
978: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
979: l_return_status := wsh_util_core.g_ret_sts_error;
980: wsh_util_core.add_message(l_return_status,l_module_name);
981: IF l_debug_on THEN
982: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
983: END IF;
984: RAISE FND_API.G_EXC_ERROR;
985: END IF;
986: END IF;
987: --
988:
2231: wsh_util_core.add_message(x_return_status,l_module_name);
2232: IF l_debug_on THEN
2233: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2234: END IF;
2235: RAISE FND_API.G_EXC_ERROR;
2236: END IF;
2237: --
2238: --Standalone changes
2239: -- LSP PROJECT :Populate local table if client info is there on dd.
2296: FND_MSG_PUB.ADD;
2297: IF l_debug_on THEN
2298: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2299: END IF;
2300: RAISE FND_API.G_EXC_ERROR;
2301: END IF;
2302:
2303: --Bug 2657875
2304: -- l_form_flag := 'Y';
2347: wsh_util_core.add_message(x_return_status,l_module_name);
2348: IF l_debug_on THEN
2349: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2350: END IF;
2351: RAISE FND_API.G_EXC_ERROR;
2352: END IF;
2353: --
2354: ELSIF p_action_prms.action_code = 'DELETE' THEN
2355:
2432: wsh_util_core.add_message(x_return_status,l_module_name);
2433: IF l_debug_on THEN
2434: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2435: END IF;
2436: RAISE FND_API.G_EXC_ERROR;
2437: END IF;
2438: --
2439: WSH_PACKING_SLIPS_PVT.Insert_Row(
2440: x_return_status => l_return_status,
2470: wsh_util_core.add_message(x_return_status,l_module_name);
2471: IF l_debug_on THEN
2472: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2473: END IF;
2474: RAISE FND_API.G_EXC_ERROR;
2475: END IF;
2476: --
2477:
2478: ELSIF p_action_prms.action_code = 'GENERATE-PACK-SLIP' THEN
2501: wsh_util_core.add_message(x_return_status,l_module_name);
2502: IF l_debug_on THEN
2503: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2504: END IF;
2505: RAISE FND_API.G_EXC_ERROR;
2506: END IF;*/
2507:
2508: --
2509: IF ( l_dlvy_doc_seq_num IS NULL ) THEN
2549:
2550: --
2551: IF l_num_errors > 0 THEN
2552: IF l_num_errors = p_rec_attr_tab.count THEN
2553: RAISE FND_API.G_EXC_ERROR;
2554: ELSE
2555: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2556: END IF;
2557: ELSIF l_num_warnings > 0 THEN
2568: wsh_util_core.add_message(x_return_status,l_module_name);
2569: IF l_debug_on THEN
2570: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2571: END IF;
2572: RAISE FND_API.G_EXC_ERROR;
2573: END IF;
2574: --
2575:
2576: ELSIF p_action_prms.action_code = 'GET-FREIGHT-COSTS' THEN
2585: FND_MSG_PUB.ADD;
2586: IF l_debug_on THEN
2587: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2588: END IF;
2589: RAISE FND_API.G_EXC_ERROR;
2590: END IF;
2591:
2592: IF p_action_prms.ignore_ineligible_dels = 'Y' and
2593: l_num_warnings > 0 and l_valid_ids_tab.count > 0 THEN
2605: END IF;
2606:
2607: WSH_FTE_INTEGRATION.Rate_Delivery(
2608: p_api_version => 1.0,
2609: p_init_msg_list => FND_API.G_FALSE,
2610: p_commit => p_commit,
2611: p_in_param_rec => l_in_param_rec,
2612: x_out_param_rec => l_out_param_rec,
2613: x_return_status => l_return_status,
2632: OPEN c_get_delivery_org(l_out_param_rec.failed_delivery_id_list(i));
2633: FETCH c_get_delivery_org INTO l_initial_pickup_location_id;
2634: IF c_get_delivery_org%NOTFOUND THEN
2635: CLOSE c_get_delivery_org;
2636: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2637: END IF;
2638: CLOSE c_get_delivery_org;
2639: wsh_xc_util.log_exception(
2640: p_api_version => 1.0,
2669: wsh_util_core.add_message(x_return_status,l_module_name);
2670: IF l_debug_on THEN
2671: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2672: END IF;
2673: RAISE FND_API.G_EXC_ERROR;
2674: END IF;
2675:
2676:
2677:
2743: l_rec_attr_tab(1) := p_rec_attr_tab(i);
2744:
2745: wsh_deliveries_grp.delivery_action(
2746: p_api_version_number => p_api_version_number,
2747: p_init_msg_list => FND_API.G_FALSE,
2748: p_commit => FND_API.G_FALSE,
2749: p_action_prms => l_action_prms,
2750: p_rec_attr_tab => l_rec_attr_tab,
2751: x_delivery_out_rec => x_delivery_out_rec,
2744:
2745: wsh_deliveries_grp.delivery_action(
2746: p_api_version_number => p_api_version_number,
2747: p_init_msg_list => FND_API.G_FALSE,
2748: p_commit => FND_API.G_FALSE,
2749: p_action_prms => l_action_prms,
2750: p_rec_attr_tab => l_rec_attr_tab,
2751: x_delivery_out_rec => x_delivery_out_rec,
2752: x_defaults_rec => x_defaults_rec,
2818: END IF;
2819:
2820: IF l_num_errors > 0 THEN
2821: IF l_num_errors = p_rec_attr_tab.count THEN
2822: RAISE FND_API.G_EXC_ERROR;
2823: ELSE
2824: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2825: END IF;
2826: ELSIF l_num_warnings > 0 THEN
2918: l_dleg_action_out_rec.result_id_tab.delete;
2919:
2920: wsh_delivery_legs_grp.Delivery_Leg_Action(
2921: p_api_version_number => 1.0,
2922: p_init_msg_list => FND_API.G_FALSE,
2923: p_commit => FND_API.G_FALSE,
2924: p_rec_attr_tab => l_dleg_tab,
2925: p_action_prms => l_dleg_prms,
2926: x_action_out_rec => l_dleg_action_out_rec,
2919:
2920: wsh_delivery_legs_grp.Delivery_Leg_Action(
2921: p_api_version_number => 1.0,
2922: p_init_msg_list => FND_API.G_FALSE,
2923: p_commit => FND_API.G_FALSE,
2924: p_rec_attr_tab => l_dleg_tab,
2925: p_action_prms => l_dleg_prms,
2926: x_action_out_rec => l_dleg_action_out_rec,
2927: x_return_status => l_return_status,
3006: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
3007: END IF;
3008: -- End of 3311273
3009: IF l_num_errors = p_rec_attr_tab.count THEN
3010: RAISE FND_API.G_EXC_ERROR;
3011: ELSE
3012: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3013: END IF;
3014: ELSIF l_num_warnings > 0 THEN
3024: wsh_util_core.add_message(x_return_status,l_module_name);
3025: IF l_debug_on THEN
3026: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
3027: END IF;
3028: RAISE FND_API.G_EXC_ERROR;
3029: --
3030: END IF;
3031: --
3032: IF l_debug_on THEN
3134: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3135: END IF;
3136:
3137: -- Standard check of p_commit.
3138: IF FND_API.To_Boolean( p_commit ) THEN
3139:
3140: --bug 4070732
3141: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3142: --{
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3156:
3157: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3162: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3156:
3157: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3162: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3163: END IF;
3164:
3174: --{
3175: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3176: --{
3177:
3178: IF FND_API.To_Boolean( p_commit ) THEN
3179: IF l_debug_on THEN
3180: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3181: END IF;
3182:
3217: FND_MSG_PUB.Count_And_Get
3218: (
3219: p_count => x_msg_count,
3220: p_data => x_msg_data,
3221: p_encoded => FND_API.G_FALSE
3222: );
3223: --
3224: IF l_debug_on THEN
3225: WSH_DEBUG_SV.log(l_module_name, 'FND_MSG_PUB.Count_And_Get, count: ', x_msg_count);
3228: WSH_DEBUG_SV.pop(l_module_name);
3229: END IF;
3230: --
3231: EXCEPTION
3232: WHEN FND_API.G_EXC_ERROR THEN
3233: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3235:
3236: --OTM R12
3302: FND_MSG_PUB.Count_And_Get
3303: (
3304: p_count => x_msg_count,
3305: p_data => x_msg_data,
3306: p_encoded => FND_API.G_FALSE
3307: );
3308: IF l_debug_on THEN
3309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3310: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3305: p_data => x_msg_data,
3306: p_encoded => FND_API.G_FALSE
3307: );
3308: IF l_debug_on THEN
3309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3310: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3311: END IF;
3312: --
3313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3306: p_encoded => FND_API.G_FALSE
3307: );
3308: IF l_debug_on THEN
3309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3310: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3311: END IF;
3312: --
3313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3314: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3310: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3311: END IF;
3312: --
3313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3314: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3316:
3317: --OTM R12
3378: FND_MSG_PUB.Count_And_Get
3379: (
3380: p_count => x_msg_count,
3381: p_data => x_msg_data,
3382: p_encoded => FND_API.G_FALSE
3383: );
3384:
3385: --
3386: IF l_debug_on THEN
3384:
3385: --
3386: IF l_debug_on THEN
3387: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3388: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3389: END IF;
3390: --
3391: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3392:
3468: FND_MSG_PUB.Count_And_Get
3469: (
3470: p_count => x_msg_count,
3471: p_data => x_msg_data,
3472: p_encoded => FND_API.G_FALSE
3473: );
3474: --
3475: IF l_debug_on THEN
3476: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3547: FND_MSG_PUB.Count_And_Get
3548: (
3549: p_count => x_msg_count,
3550: p_data => x_msg_data,
3551: p_encoded => FND_API.G_FALSE
3552: );
3553: --
3554: IF l_debug_on THEN
3555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3552: );
3553: --
3554: IF l_debug_on THEN
3555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3557: END IF;
3558: --
3559: END Delivery_Action;
3560:
3561: -- I Harmonization: rvishnuv ******* Actions ******
3562:
3563: -- I Harmonization: rvishnuv ******* Create/Update ******
3564: --Bug 5191354: For the action UPDATE, validating the delivery attributes only when the corresponding
3565: -- input parameter contains some value (other then fnd_api.g_miss_num/fnd_api.g_miss_char/fnd_api.g_miss_date).
3566: PROCEDURE Validate_Delivery
3567: (x_rec_attr_tab IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
3568: p_in_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type, --Bug 5191354
3569: p_action_code IN VARCHAR2,
3660: --Bug 5191354
3661: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DELIVERY_NAME_LVL) = 1
3662: AND (p_action_code = 'CREATE' OR
3663: (p_action_code = 'UPDATE' AND
3664: ((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)
3665: 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)
3666: ))) THEN
3667: --
3668: wsh_util_validate.validate_delivery_name(
3661: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DELIVERY_NAME_LVL) = 1
3662: AND (p_action_code = 'CREATE' OR
3663: (p_action_code = 'UPDATE' AND
3664: ((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)
3665: 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)
3666: ))) THEN
3667: --
3668: wsh_util_validate.validate_delivery_name(
3669: p_delivery_id => x_rec_attr_tab(l_index).delivery_id,
3683: --
3684: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ORGANIZATION_LVL) = 1 THEN
3685: --Bug 5191354
3686: IF p_action_code = 'CREATE'
3687: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3688: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3689: THEN
3690: x_return_status := wsh_util_core.g_ret_sts_error;
3691: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3684: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ORGANIZATION_LVL) = 1 THEN
3685: --Bug 5191354
3686: IF p_action_code = 'CREATE'
3687: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3688: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3689: THEN
3690: x_return_status := wsh_util_core.g_ret_sts_error;
3691: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3692: x_num_warnings =>l_num_warnings,
3695: p_msg_data => 'WSH_DEL_ORG_NULL');
3696:
3697: ELSIF (p_action_code = 'CREATE' OR
3698: (p_action_code = 'UPDATE' AND
3699: ((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)
3700: 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)
3701: ))) THEN
3702: --{
3703:
3696:
3697: ELSIF (p_action_code = 'CREATE' OR
3698: (p_action_code = 'UPDATE' AND
3699: ((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)
3700: 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)
3701: ))) THEN
3702: --{
3703:
3704: IF ( p_action_code = 'UPDATE'
3738: --Bug 5191354
3739: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_LOADING_ORDER_LVL) = 1
3740: AND (p_action_code = 'CREATE' OR
3741: (p_action_code = 'UPDATE' AND
3742: ((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)
3743: 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)
3744: ))) THEN
3745: --
3746: wsh_util_validate.validate_loading_order(
3739: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_LOADING_ORDER_LVL) = 1
3740: AND (p_action_code = 'CREATE' OR
3741: (p_action_code = 'UPDATE' AND
3742: ((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)
3743: 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)
3744: ))) THEN
3745: --
3746: wsh_util_validate.validate_loading_order(
3747: p_loading_order_flag => x_rec_attr_tab(l_index).loading_order_flag,
3762: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_FROM_LOC_LVL) = 1
3763: THEN
3764: --
3765: IF p_action_code = 'CREATE'
3766: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3767: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3768: THEN
3769: x_return_status := wsh_util_core.g_ret_sts_error;
3770: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3763: THEN
3764: --
3765: IF p_action_code = 'CREATE'
3766: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3767: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3768: THEN
3769: x_return_status := wsh_util_core.g_ret_sts_error;
3770: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3771: x_num_warnings =>l_num_warnings,
3774: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3775: --Bug 5191354
3776: ELSIF (p_action_code = 'CREATE' OR
3777: (p_action_code = 'UPDATE' AND
3778: ((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)
3779: 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)
3780: ))) THEN
3781: --{
3782:
3775: --Bug 5191354
3776: ELSIF (p_action_code = 'CREATE' OR
3777: (p_action_code = 'UPDATE' AND
3778: ((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)
3779: 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)
3780: ))) THEN
3781: --{
3782:
3783: IF (p_action_code = 'UPDATE'
3930: --
3931: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_TO_LOC_LVL) = 1 THEN
3932: --
3933: IF p_action_code = 'CREATE'
3934: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3935: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3936: THEN
3937: x_return_status := wsh_util_core.g_ret_sts_error;
3938: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3931: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_SHIP_TO_LOC_LVL) = 1 THEN
3932: --
3933: IF p_action_code = 'CREATE'
3934: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3935: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3936: THEN
3937: x_return_status := wsh_util_core.g_ret_sts_error;
3938: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3939: x_num_warnings =>l_num_warnings,
3942: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3943: --Bug 5191354
3944: ELSIF (p_action_code = 'CREATE' OR
3945: (p_action_code = 'UPDATE' AND
3946: ((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)
3947: 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)
3948: ))) THEN
3949: --{
3950:
3943: --Bug 5191354
3944: ELSIF (p_action_code = 'CREATE' OR
3945: (p_action_code = 'UPDATE' AND
3946: ((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)
3947: 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)
3948: ))) THEN
3949: --{
3950:
3951: IF ( p_action_code = 'UPDATE'
3982: --Bug 5191354
3983: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_INTMD_SHIPTO_LOC_LVL) = 1
3984: AND (p_action_code = 'CREATE' OR
3985: (p_action_code = 'UPDATE' AND
3986: ((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)
3987: 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)
3988: ))) THEN
3989: IF l_debug_on THEN
3990: wsh_debug_sv.log(l_module_name,'loc id ',x_rec_attr_tab(l_index).intmed_ship_to_location_id);
3983: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_INTMD_SHIPTO_LOC_LVL) = 1
3984: AND (p_action_code = 'CREATE' OR
3985: (p_action_code = 'UPDATE' AND
3986: ((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)
3987: 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)
3988: ))) THEN
3989: IF l_debug_on THEN
3990: wsh_debug_sv.log(l_module_name,'loc id ',x_rec_attr_tab(l_index).intmed_ship_to_location_id);
3991: wsh_debug_sv.log(l_module_name,'loc code ',x_rec_attr_tab(l_index).intmed_ship_to_location_code);
4010: --Bug 5191354
4011: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_POOLED_SHIPTO_LOC_LVL) = 1
4012: AND (p_action_code = 'CREATE' OR
4013: (p_action_code = 'UPDATE' AND
4014: ((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)
4015: 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)
4016: ))) THEN
4017: --
4018: wsh_util_validate.validate_location(
4011: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_POOLED_SHIPTO_LOC_LVL) = 1
4012: AND (p_action_code = 'CREATE' OR
4013: (p_action_code = 'UPDATE' AND
4014: ((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)
4015: 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)
4016: ))) THEN
4017: --
4018: wsh_util_validate.validate_location(
4019: p_location_id => x_rec_attr_tab(l_index).pooled_ship_to_location_id,
4034: --Bug 5191354
4035: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LOC_LVL) = 1
4036: AND (p_action_code = 'CREATE' OR
4037: (p_action_code = 'UPDATE' AND
4038: ((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)
4039: 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)
4040: ))) THEN
4041: --
4042: wsh_util_validate.validate_location(
4035: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LOC_LVL) = 1
4036: AND (p_action_code = 'CREATE' OR
4037: (p_action_code = 'UPDATE' AND
4038: ((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)
4039: 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)
4040: ))) THEN
4041: --
4042: wsh_util_validate.validate_location(
4043: p_location_id => x_rec_attr_tab(l_index).fob_location_id,
4059: --Bug 5191354
4060: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CUSTOMER_LVL) = 1
4061: AND (p_action_code = 'CREATE' OR
4062: (p_action_code = 'UPDATE' AND
4063: ((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)
4064: 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)
4065: ))) THEN
4066: --RTV Changes
4067: if ( nvl(p_in_rec_attr_tab(l_index).consignee_flag, 'C') = 'C' OR p_in_rec_attr_tab(l_index).consignee_flag = fnd_api.g_miss_char)
4060: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CUSTOMER_LVL) = 1
4061: AND (p_action_code = 'CREATE' OR
4062: (p_action_code = 'UPDATE' AND
4063: ((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)
4064: 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)
4065: ))) THEN
4066: --RTV Changes
4067: if ( nvl(p_in_rec_attr_tab(l_index).consignee_flag, 'C') = 'C' OR p_in_rec_attr_tab(l_index).consignee_flag = fnd_api.g_miss_char)
4068: then
4063: ((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)
4064: 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)
4065: ))) THEN
4066: --RTV Changes
4067: if ( nvl(p_in_rec_attr_tab(l_index).consignee_flag, 'C') = 'C' OR p_in_rec_attr_tab(l_index).consignee_flag = fnd_api.g_miss_char)
4068: then
4069: wsh_util_validate.validate_customer(
4070: p_customer_id => x_rec_attr_tab(l_index).customer_id,
4071: p_customer_number => x_rec_attr_tab(l_index).customer_number,
4071: p_customer_number => x_rec_attr_tab(l_index).customer_number,
4072: x_return_status => l_return_status);
4073: end if;
4074: if ( nvl(p_in_rec_attr_tab(l_index).consignee_flag, 'C') = 'V' and (x_rec_attr_tab(l_index).customer_id is NOT NULL OR
4075: x_rec_attr_tab(l_index).customer_id <> fnd_api.g_miss_num) ) then
4076: --{
4077: OPEN c_check_vendor( x_rec_attr_tab(l_index).customer_id);
4078: FETCH c_check_vendor INTO l_vendor_name;
4079: IF c_check_vendor%NOTFOUND THEN
4078: FETCH c_check_vendor INTO l_vendor_name;
4079: IF c_check_vendor%NOTFOUND THEN
4080: CLOSE c_check_vendor;
4081: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4082: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4083: END IF;
4084: CLOSE c_check_vendor;
4085: --}
4086: end if;
4100: -- LSP PROJECT : Validate client info
4101: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CLIENT_LVL) = 1
4102: AND (p_action_code = 'CREATE' OR
4103: (p_action_code = 'UPDATE' AND
4104: ((p_in_rec_attr_tab(l_index).client_id IS NULL ) OR (p_in_rec_attr_tab(l_index).client_id <> fnd_api.g_miss_num)
4105: OR (p_in_rec_attr_tab(l_index).client_code IS NULL ) OR (p_in_rec_attr_tab(l_index).client_code <> fnd_api.g_miss_char)
4106: ))) THEN
4107: --
4108: IF ( Nvl(x_rec_attr_tab(l_index).client_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
4101: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CLIENT_LVL) = 1
4102: AND (p_action_code = 'CREATE' OR
4103: (p_action_code = 'UPDATE' AND
4104: ((p_in_rec_attr_tab(l_index).client_id IS NULL ) OR (p_in_rec_attr_tab(l_index).client_id <> fnd_api.g_miss_num)
4105: OR (p_in_rec_attr_tab(l_index).client_code IS NULL ) OR (p_in_rec_attr_tab(l_index).client_code <> fnd_api.g_miss_char)
4106: ))) THEN
4107: --
4108: IF ( Nvl(x_rec_attr_tab(l_index).client_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
4109: OR Nvl(x_rec_attr_tab(l_index).client_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char ) THEN
4104: ((p_in_rec_attr_tab(l_index).client_id IS NULL ) OR (p_in_rec_attr_tab(l_index).client_id <> fnd_api.g_miss_num)
4105: OR (p_in_rec_attr_tab(l_index).client_code IS NULL ) OR (p_in_rec_attr_tab(l_index).client_code <> fnd_api.g_miss_char)
4106: ))) THEN
4107: --
4108: IF ( Nvl(x_rec_attr_tab(l_index).client_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
4109: OR Nvl(x_rec_attr_tab(l_index).client_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char ) THEN
4110: --{
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_DEPLOY.GET_CLIENT_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
4105: OR (p_in_rec_attr_tab(l_index).client_code IS NULL ) OR (p_in_rec_attr_tab(l_index).client_code <> fnd_api.g_miss_char)
4106: ))) THEN
4107: --
4108: IF ( Nvl(x_rec_attr_tab(l_index).client_id,fnd_api.g_miss_num) <> fnd_api.g_miss_num
4109: OR Nvl(x_rec_attr_tab(l_index).client_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char ) THEN
4110: --{
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_DEPLOY.GET_CLIENT_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
4113: END IF;
4139:
4140: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_TERMS_LVL) = 1
4141: AND (p_action_code = 'CREATE' OR
4142: (p_action_code = 'UPDATE' AND
4143: ((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)
4144: 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)
4145: ))) THEN
4146: --
4147: wsh_util_validate.validate_freight_terms(
4140: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_TERMS_LVL) = 1
4141: AND (p_action_code = 'CREATE' OR
4142: (p_action_code = 'UPDATE' AND
4143: ((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)
4144: 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)
4145: ))) THEN
4146: --
4147: wsh_util_validate.validate_freight_terms(
4148: p_freight_terms_code => x_rec_attr_tab(l_index).freight_terms_code,
4162: --Bug 5191354
4163: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LVL) = 1
4164: AND (p_action_code = 'CREATE' OR
4165: (p_action_code = 'UPDATE' AND
4166: ((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)
4167: 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)
4168: ))) THEN
4169: --
4170: wsh_util_validate.validate_fob(
4163: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FOB_LVL) = 1
4164: AND (p_action_code = 'CREATE' OR
4165: (p_action_code = 'UPDATE' AND
4166: ((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)
4167: 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)
4168: ))) THEN
4169: --
4170: wsh_util_validate.validate_fob(
4171: p_fob_code => x_rec_attr_tab(l_index).fob_code,
4186: --Bug 5191354
4187: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_WEIGHT_UOM_LVL) = 1
4188: AND (p_action_code = 'CREATE' OR
4189: (p_action_code = 'UPDATE' AND
4190: ((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)
4191: ))) THEN
4192: --
4193: 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
4194: wsh_util_validate.validate_uom(
4216: --Bug 5191354
4217: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VOLUME_UOM_LVL) = 1
4218: AND (p_action_code = 'CREATE' OR
4219: (p_action_code = 'UPDATE' AND
4220: ((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)
4221: ))) THEN
4222: --
4223: 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
4224: wsh_util_validate.validate_uom(
4244: END IF;
4245: --Bug 5191354
4246: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CURRENCY_LVL) = 1
4247: AND ((p_action_code = 'CREATE' OR p_action_code = 'UPDATE') AND
4248: ((p_in_rec_attr_tab(l_index).currency_code <> fnd_api.g_miss_char)
4249: OR (p_in_rec_attr_tab(l_index).currency_name <> fnd_api.g_miss_char)
4250: )) THEN
4251: --
4252: --OTM R12, added parameter l_adjusted_amount
4245: --Bug 5191354
4246: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_CURRENCY_LVL) = 1
4247: AND ((p_action_code = 'CREATE' OR p_action_code = 'UPDATE') AND
4248: ((p_in_rec_attr_tab(l_index).currency_code <> fnd_api.g_miss_char)
4249: OR (p_in_rec_attr_tab(l_index).currency_name <> fnd_api.g_miss_char)
4250: )) THEN
4251: --
4252: --OTM R12, added parameter l_adjusted_amount
4253: IF l_debug_on THEN
4274: --Bug 5191354
4275: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ARR_DEP_DATES_LVL) = 1
4276: AND (p_action_code = 'CREATE' OR
4277: (p_action_code = 'UPDATE' AND
4278: ((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)
4279: 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)
4280: ))) THEN
4281: --
4282: wsh_util_validate.validate_from_to_dates(
4275: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ARR_DEP_DATES_LVL) = 1
4276: AND (p_action_code = 'CREATE' OR
4277: (p_action_code = 'UPDATE' AND
4278: ((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)
4279: 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)
4280: ))) THEN
4281: --
4282: wsh_util_validate.validate_from_to_dates(
4283: p_from_date => x_rec_attr_tab(l_index).initial_pickup_date,
4319: --Bug 5191354
4320: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_ROUTE_EXPORT_TXN_LVL) = 1
4321: AND (p_action_code = 'CREATE' OR
4322: (p_action_code = 'UPDATE' AND
4323: ((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)
4324: ))) THEN
4325: --
4326: WSH_DELIVERY_VALIDATIONS.Validate_Routed_Export_Txn(
4327: x_rtd_expt_txn_code => x_rec_attr_tab(l_index).ROUTED_EXPORT_TXN,
4341: --Bug 5191354
4342: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_CARRIER_LVL) = 1
4343: AND (p_action_code = 'CREATE' OR
4344: (p_action_code = 'UPDATE' AND
4345: ((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)
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4342: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_FREIGHT_CARRIER_LVL) = 1
4343: AND (p_action_code = 'CREATE' OR
4344: (p_action_code = 'UPDATE' AND
4345: ((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)
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4350: 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)
4343: AND (p_action_code = 'CREATE' OR
4344: (p_action_code = 'UPDATE' AND
4345: ((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)
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4350: 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)
4351: ))) THEN
4344: (p_action_code = 'UPDATE' AND
4345: ((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)
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4350: 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)
4351: ))) THEN
4352: --
4345: ((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)
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4350: 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)
4351: ))) THEN
4352: --
4353: wsh_util_validate.validate_freight_carrier(
4346: 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)
4347: 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)
4348: 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)
4349: 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)
4350: 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)
4351: ))) THEN
4352: --
4353: wsh_util_validate.validate_freight_carrier(
4354: p_ship_method_name => x_rec_attr_tab(l_index).ship_method_name,
4390: --Bug 5191354
4391: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DERIVE_DELIVERY_UOM_LVL) = 1
4392: AND (p_action_code = 'CREATE' OR
4393: (p_action_code = 'UPDATE' AND
4394: ( (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)
4395: 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)
4396: ))) THEN
4397: --
4398: wsh_delivery_validations.derive_delivery_uom(
4391: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DERIVE_DELIVERY_UOM_LVL) = 1
4392: AND (p_action_code = 'CREATE' OR
4393: (p_action_code = 'UPDATE' AND
4394: ( (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)
4395: 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)
4396: ))) THEN
4397: --
4398: wsh_delivery_validations.derive_delivery_uom(
4399: p_delivery_id => x_rec_attr_tab(l_index).delivery_id,
4432: OR NVL(x_rec_attr_tab(l_index).NET_WEIGHT,0) > 0 THEN
4433: IF x_rec_attr_tab(l_index).WEIGHT_UOM_CODE IS NULL THEN
4434: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4435: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438: END IF;
4439: --Bug 4140359
4440: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4440: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4441: AND x_rec_attr_tab(l_index).VOLUME_UOM_CODE IS NULL THEN
4442: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4443: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4444: RAISE FND_API.G_EXC_ERROR;
4445: END IF;
4446: END IF; --}
4447: x_valid_index_tab(l_index) := l_index;
4448: --
4447: x_valid_index_tab(l_index) := l_index;
4448: --
4449: EXCEPTION
4450: --
4451: WHEN FND_API.G_EXC_ERROR THEN
4452: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4454: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4455: WHEN OTHERS THEN
4449: EXCEPTION
4450: --
4451: WHEN FND_API.G_EXC_ERROR THEN
4452: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4454: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4455: WHEN OTHERS THEN
4456: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4454: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4455: WHEN OTHERS THEN
4456: ROLLBACK TO VALIDATE_DLVY_GRP_LOOP;
4457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4458: --
4459: END;
4460: --
4461: l_index := x_rec_attr_tab.NEXT(l_index);
4462: --
4463: END LOOP;
4464: --
4465: IF l_num_errors = x_rec_attr_tab.COUNT THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF l_num_errors > 0 THEN
4468: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4469: ELSIF l_num_warnings > 0 THEN
4470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4481: WSH_DEBUG_SV.pop(l_module_name);
4482: END IF;
4483: --
4484: EXCEPTION
4485: WHEN FND_API.G_EXC_ERROR THEN
4486: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: --
4489: IF l_debug_on THEN
4486: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: --
4489: IF l_debug_on THEN
4490: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4492: END IF;
4493: --
4494: --RTV changes
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: --
4489: IF l_debug_on THEN
4490: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4492: END IF;
4493: --
4494: --RTV changes
4495: IF c_check_vendor%ISOPEN THEN
4495: IF c_check_vendor%ISOPEN THEN
4496: CLOSE c_check_vendor;
4497: END IF;
4498: --RTV changes
4499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4500: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4501: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4502: --
4503: IF l_debug_on THEN
4501: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4502: --
4503: IF l_debug_on THEN
4504: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4505: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4506: END IF;
4507: --
4508: --RTV changes
4509: IF c_check_vendor%ISOPEN THEN
4544: -- PROCEDURE : Create_Update_Delivery Must be called only by the Form
4545: -- and the Wrapper Group API.
4546: --
4547: -- PARAMETERS: p_api_version_number known api version error buffer
4548: -- p_init_msg_list FND_API.G_TRUE to reset list
4549: -- x_return_status return status
4550: -- x_msg_count number of messages in the list
4551: -- x_msg_data text of messages
4552: -- p_in_rec Record for caller, phase
4560: --========================================================================
4561: PROCEDURE Create_Update_Delivery
4562: ( p_api_version_number IN NUMBER,
4563: p_init_msg_list IN VARCHAR2,
4564: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4565: p_in_rec IN del_In_Rec_Type,
4566: p_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
4567: x_del_out_rec_tab OUT NOCOPY Del_Out_Tbl_Type,
4568: x_return_status OUT NOCOPY VARCHAR2,
4677: END IF;
4678: --
4679: SAVEPOINT CREATE_UPDATE_DELIVERY_GRP;
4680: --
4681: IF NOT FND_API.Compatible_API_Call
4682: ( l_api_version_number,
4683: p_api_version_number,
4684: l_api_name,
4685: G_PKG_NAME
4684: l_api_name,
4685: G_PKG_NAME
4686: )
4687: THEN
4688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4689: END IF;
4690: --
4691: IF FND_API.to_Boolean(p_init_msg_list) THEN
4692: FND_MSG_PUB.initialize;
4687: THEN
4688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4689: END IF;
4690: --
4691: IF FND_API.to_Boolean(p_init_msg_list) THEN
4692: FND_MSG_PUB.initialize;
4693: END IF;
4694: --
4695:
4728: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4729: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4730: x_return_status := wsh_util_core.g_ret_sts_error;
4731: wsh_util_core.add_message(x_return_status,l_module_name);
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: --
4735: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4736: --
4775: x_num_errors => l_num_errors,
4776: p_msg_data => l_msg_data);
4777: --
4778: EXCEPTION
4779: WHEN FND_API.G_EXC_ERROR THEN
4780: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4777: --
4778: EXCEPTION
4779: WHEN FND_API.G_EXC_ERROR THEN
4780: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: WHEN OTHERS THEN
4785: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4779: WHEN FND_API.G_EXC_ERROR THEN
4780: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: WHEN OTHERS THEN
4785: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4787: END;
4782: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: WHEN OTHERS THEN
4785: ROLLBACK TO DLVY_GRP_GET_DISAB_LIST_LOOP;
4786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4787: END;
4788: --
4789: l_index := p_rec_attr_tab.NEXT(l_index);
4790: --
4802: IF wsh_util_core.fte_is_installed = 'Y' THEN
4803:
4804: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
4805: p_api_version_number => p_api_version_number,
4806: p_init_msg_list => FND_API.G_FALSE,
4807: p_entity_type => 'D',
4808: p_target_id => null,
4809: p_action_code => p_in_rec.action_code,
4810: p_del_attr_tab => l_rec_attr_tab,
4941: /*** J changes TP release ****/
4942: l_tmp_ignore := l_rec_attr_tab(l_index).ignore_for_planning;
4943: IF (wsh_util_core.TP_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) --OTM R12 Org-Specific . Added second OR condition
4944: AND (
4945: (l_tmp_ignore is null OR l_tmp_ignore=FND_API.G_MISS_CHAR)
4946: OR (l_tmp_ignore is not null AND l_tmp_ignore='N')-- need to check this as form always passes 'N'
4947: ) THEN
4948:
4949: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
4963: x_num_errors => l_num_errors);
4964:
4965:
4966: -- TPW - Distributed changes
4967: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS','TW2')) THEN
4968: l_ignore_for_planning:='Y';
4969: --OTM R12 Org-Specific Start
4970: ELSIF (l_gc3_is_installed = 'Y') THEN
4971: wsh_util_validate.calc_ignore_for_planning(
4985: l_ignore_for_planning );
4986: END IF;
4987: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4988: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4989: RAISE FND_API.G_EXC_ERROR;
4990: END IF;
4991: END IF;
4992: --OTM R12 End.
4993: ELSIF (l_tmp_ignore='Y' and
5231:
5232: --if org is a tpw/cms and current ignore plan is 'N', change ignore plan by
5233: --calling api.
5234:
5235: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN
5236: l_tmp_del_ids.delete;
5237: l_tmp_del_ids(1):=l_rec_attr_tab(l_index).delivery_id;
5238: wsh_tp_release.change_ignoreplan_status
5239: (p_entity => 'DLVY',
5254: /***TP Release**/
5255: END IF; -- End if For p_in_rec.action_code Check for CREATE or UDPATE.
5256: --
5257: EXCEPTION
5258: WHEN FND_API.G_EXC_ERROR THEN
5259: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5261: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5256: --
5257: EXCEPTION
5258: WHEN FND_API.G_EXC_ERROR THEN
5259: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5261: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5263: WHEN OTHERS THEN
5264: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5258: WHEN FND_API.G_EXC_ERROR THEN
5259: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5261: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5263: WHEN OTHERS THEN
5264: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5266: END;
5261: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5263: WHEN OTHERS THEN
5264: ROLLBACK TO CREATE_UPDATE_DLVY_GRP_LOOP;
5265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5266: END;
5267: --
5268: l_index := l_index_tab.NEXT(l_index);
5269: --
5270: END LOOP;
5271: --
5272:
5273: IF (l_num_errors = l_rec_attr_tab.count ) THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: ELSIF (l_num_errors > 0 ) THEN
5276: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5277: ELSIF (l_num_warnings > 0 ) THEN
5278: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5281: END IF;
5282:
5283: -- Standard check of p_commit.
5284: IF FND_API.To_Boolean( p_commit ) THEN
5285:
5286: --bug 4070732
5287: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5288: --{
5300: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5301: END IF;
5302:
5303: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5308: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5302:
5303: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5308: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5309: END IF;
5310:
5320: --{
5321: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5322: --{
5323:
5324: IF FND_API.To_Boolean( p_commit ) THEN
5325:
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5328: END IF;
5351: END IF;
5352:
5353: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5354: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5355: IF NOT FND_API.To_Boolean( p_commit ) THEN
5356: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5357: END IF;
5358: END IF;
5359:
5366: --
5367: FND_MSG_PUB.Count_And_Get (
5368: p_count => x_msg_count,
5369: p_data => x_msg_data,
5370: p_encoded => FND_API.G_FALSE);
5371: --
5372: IF l_debug_on THEN
5373: WSH_DEBUG_SV.pop(l_module_name);
5374: END IF;
5410: --
5411: FND_MSG_PUB.Count_And_Get (
5412: p_count => x_msg_count,
5413: p_data => x_msg_data,
5414: p_encoded => FND_API.G_FALSE);
5415:
5416: IF l_debug_on THEN
5417: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5418: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5417: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5418: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5419: END IF;
5420:
5421: WHEN FND_API.G_EXC_ERROR THEN
5422: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5423: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5424: --
5425: -- Start code for Bugfix 4070732
5453: FND_MSG_PUB.Count_And_Get
5454: (
5455: p_count => x_msg_count,
5456: p_data => x_msg_data,
5457: p_encoded => FND_API.G_FALSE
5458: );
5459:
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5457: p_encoded => FND_API.G_FALSE
5458: );
5459:
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5462: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5463: END IF;
5464: --
5465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5458: );
5459:
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5462: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5463: END IF;
5464: --
5465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5466: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5461: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5462: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
5463: END IF;
5464: --
5465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5466: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5467: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5468:
5469: --
5498: FND_MSG_PUB.Count_And_Get
5499: (
5500: p_count => x_msg_count,
5501: p_data => x_msg_data,
5502: p_encoded => FND_API.G_FALSE
5503: );
5504:
5505: --
5506: IF l_debug_on THEN
5504:
5505: --
5506: IF l_debug_on THEN
5507: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5508: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5509: END IF;
5510: --
5511: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5512: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5549: FND_MSG_PUB.Count_And_Get
5550: (
5551: p_count => x_msg_count,
5552: p_data => x_msg_data,
5553: p_encoded => FND_API.G_FALSE
5554: );
5555:
5556: --
5557: IF l_debug_on THEN
5595: FND_MSG_PUB.Count_And_Get
5596: (
5597: p_count => x_msg_count,
5598: p_data => x_msg_data,
5599: p_encoded => FND_API.G_FALSE
5600: );
5601:
5602: --
5603: IF l_debug_on THEN
5661: --
5662:
5663: IF (p_action_code <> 'CREATE') THEN
5664:
5665: IF (p_delivery_info.delivery_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5666:
5667: IF (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5668: p_delivery_info.delivery_id := NULL;
5669: END IF;
5663: IF (p_action_code <> 'CREATE') THEN
5664:
5665: IF (p_delivery_info.delivery_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5666:
5667: IF (p_delivery_info.name <> FND_API.G_MISS_CHAR) THEN
5668: p_delivery_info.delivery_id := NULL;
5669: END IF;
5670:
5671: wsh_util_validate.validate_delivery_name(
5687: END IF;
5688:
5689: END IF;
5690:
5691: IF (p_delivery_info.organization_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5692:
5693: IF (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5694: p_delivery_info.organization_id := NULL;
5695: END IF;
5689: END IF;
5690:
5691: IF (p_delivery_info.organization_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5692:
5693: IF (p_delivery_info.organization_code <> FND_API.G_MISS_CHAR) THEN
5694: p_delivery_info.organization_id := NULL;
5695: END IF;
5696: wsh_util_validate.validate_org(
5697: p_delivery_info.organization_id,
5714: p_delivery_info.delivery_type := 'STANDARD';
5715:
5716: END IF;
5717:
5718: 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
5719:
5720: IF (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5721: p_delivery_info.loading_order_flag := NULL;
5722: END IF;
5716: END IF;
5717:
5718: 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
5719:
5720: IF (p_delivery_info.loading_order_desc <> FND_API.G_MISS_CHAR) THEN
5721: p_delivery_info.loading_order_flag := NULL;
5722: END IF;
5723: wsh_util_validate.validate_loading_order(
5724: p_delivery_info.loading_order_flag,
5736: RETURN;
5737: END IF;
5738: END IF;
5739:
5740: 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
5741:
5742: IF (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5743: p_delivery_info.initial_pickup_location_id := NULL;
5744: END IF;
5738: END IF;
5739:
5740: 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
5741:
5742: IF (p_delivery_info.initial_pickup_location_code <> FND_API.G_MISS_CHAR) THEN
5743: p_delivery_info.initial_pickup_location_id := NULL;
5744: END IF;
5745: wsh_util_validate.validate_location(
5746: p_delivery_info.initial_pickup_location_id,
5757: RETURN;
5758: END IF;
5759: END IF;
5760:
5761: 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
5762:
5763: IF (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5764: p_delivery_info.ultimate_dropoff_location_id := NULL;
5765: END IF;
5759: END IF;
5760:
5761: 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
5762:
5763: IF (p_delivery_info.ultimate_dropoff_location_code <> FND_API.G_MISS_CHAR) THEN
5764: p_delivery_info.ultimate_dropoff_location_id := NULL;
5765: END IF;
5766: wsh_util_validate.validate_location(
5767: p_delivery_info.ultimate_dropoff_location_id,
5778: RETURN;
5779: END IF;
5780: END IF;
5781:
5782: 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
5783:
5784: IF (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5785: p_delivery_info.intmed_ship_to_location_id := NULL;
5786: END IF;
5780: END IF;
5781:
5782: 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
5783:
5784: IF (p_delivery_info.intmed_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5785: p_delivery_info.intmed_ship_to_location_id := NULL;
5786: END IF;
5787: wsh_util_validate.validate_location(
5788: p_delivery_info.intmed_ship_to_location_id,
5799: RETURN;
5800: END IF;
5801: END IF;
5802:
5803: 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
5804:
5805: IF (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5806: p_delivery_info.pooled_ship_to_location_id := NULL;
5807: END IF;
5801: END IF;
5802:
5803: 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
5804:
5805: IF (p_delivery_info.pooled_ship_to_location_code <> FND_API.G_MISS_CHAR) THEN
5806: p_delivery_info.pooled_ship_to_location_id := NULL;
5807: END IF;
5808: wsh_util_validate.validate_location(
5809: p_delivery_info.pooled_ship_to_location_id,
5821: RETURN;
5822: END IF;
5823: END IF;
5824:
5825: IF (p_delivery_info.customer_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5826:
5827: IF (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5828: p_delivery_info.customer_id := NULL;
5829: END IF;
5823: END IF;
5824:
5825: IF (p_delivery_info.customer_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5826:
5827: IF (p_delivery_info.customer_number <> FND_API.G_MISS_CHAR) THEN
5828: p_delivery_info.customer_id := NULL;
5829: END IF;
5830: wsh_util_validate.validate_customer(
5831: p_delivery_info.customer_id,
5850: END IF;
5851:
5852: -- Carrier ID is not validated as it is not used...Ship method is used instead.
5853:
5854: 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
5855:
5856: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) THEN
5857: p_delivery_info.ship_method_name := NULL;
5858: END IF;
5852: -- Carrier ID is not validated as it is not used...Ship method is used instead.
5853:
5854: 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
5855:
5856: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) THEN
5857: p_delivery_info.ship_method_name := NULL;
5858: END IF;
5859: wsh_util_validate.validate_ship_method(
5860: p_delivery_info.ship_method_code,
5872: RETURN;
5873: END IF;
5874: END IF;
5875:
5876: 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
5877:
5878: IF (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5879: p_delivery_info.freight_terms_name := NULL;
5880: END IF;
5874: END IF;
5875:
5876: 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
5877:
5878: IF (p_delivery_info.freight_terms_name <> FND_API.G_MISS_CHAR) THEN
5879: p_delivery_info.freight_terms_name := NULL;
5880: END IF;
5881: wsh_util_validate.validate_freight_terms(
5882: p_delivery_info.freight_terms_code,
5894: RETURN;
5895: END IF;
5896: END IF;
5897:
5898: IF (p_delivery_info.fob_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5899:
5900: IF (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5901: p_delivery_info.fob_code := NULL;
5902: END IF;
5896: END IF;
5897:
5898: IF (p_delivery_info.fob_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5899:
5900: IF (p_delivery_info.fob_name <> FND_API.G_MISS_CHAR) THEN
5901: p_delivery_info.fob_code := NULL;
5902: END IF;
5903: wsh_util_validate.validate_fob(
5904: p_delivery_info.fob_code,
5916: RETURN;
5917: END IF;
5918: END IF;
5919:
5920: 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
5921:
5922: IF (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5923: p_delivery_info.fob_location_id := NULL;
5924: END IF;
5918: END IF;
5919:
5920: 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
5921:
5922: IF (p_delivery_info.fob_location_code <> FND_API.G_MISS_CHAR) THEN
5923: p_delivery_info.fob_location_id := NULL;
5924: END IF;
5925: wsh_util_validate.validate_location(
5926: p_delivery_info.fob_location_id,
5938: RETURN;
5939: END IF;
5940: END IF;
5941:
5942: 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
5943:
5944: IF (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5945: p_delivery_info.weight_uom_code := NULL;
5946: END IF;
5940: END IF;
5941:
5942: 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
5943:
5944: IF (p_delivery_info.weight_uom_desc <> FND_API.G_MISS_CHAR) THEN
5945: p_delivery_info.weight_uom_code := NULL;
5946: END IF;
5947:
5948: wsh_util_validate.validate_uom(
5962: RETURN;
5963: END IF;
5964: END IF;
5965:
5966: 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
5967:
5968: IF (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5969: p_delivery_info.volume_uom_code := NULL;
5970: END IF;
5964: END IF;
5965:
5966: 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
5967:
5968: IF (p_delivery_info.volume_uom_desc <> FND_API.G_MISS_CHAR) THEN
5969: p_delivery_info.volume_uom_code := NULL;
5970: END IF;
5971: wsh_util_validate.validate_uom(
5972: 'VOLUME',
5986: RETURN;
5987: END IF;
5988: END IF;
5989:
5990: IF (p_delivery_info.currency_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5991:
5992: IF (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5993: p_delivery_info.currency_code := NULL;
5994: END IF;
5988: END IF;
5989:
5990: IF (p_delivery_info.currency_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5991:
5992: IF (p_delivery_info.currency_name <> FND_API.G_MISS_CHAR) THEN
5993: p_delivery_info.currency_code := NULL;
5994: END IF;
5995: --OTM R12, added parameter l_adjusted_amount
5996: wsh_util_validate.validate_currency(
6015: -- manifesting code changes
6016: -- disallow update of ship method or its components if the delivery is assigned to trip.
6017: --
6018:
6019: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
6020: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
6021: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
6022: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
6023:
6016: -- disallow update of ship method or its components if the delivery is assigned to trip.
6017: --
6018:
6019: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
6020: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
6021: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
6022: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
6023:
6024: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
6017: --
6018:
6019: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
6020: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
6021: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
6022: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
6023:
6024: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
6025: (p_delivery_id => p_delivery_info.delivery_id,
6018:
6019: IF (p_delivery_info.ship_method_code <> FND_API.G_MISS_CHAR) OR (p_delivery_info.ship_method_code IS NULL) OR
6020: (p_delivery_info.carrier_id <> FND_API.G_MISS_NUM) OR (p_delivery_info.carrier_id IS NULL) OR
6021: (p_delivery_info.service_level <> FND_API.G_MISS_CHAR) OR (p_delivery_info.service_level IS NULL) OR
6022: (p_delivery_info.mode_of_transport <> FND_API.G_MISS_CHAR) OR (p_delivery_info.mode_of_transport IS NULL) THEN
6023:
6024: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
6025: (p_delivery_id => p_delivery_info.delivery_id,
6026: x_return_status => x_return_status);
6225: x_pvt_rec.SHIPPING_MARKS := p_pub_rec.SHIPPING_MARKS;
6226: x_pvt_rec.SERVICE_LEVEL := p_pub_rec.SERVICE_LEVEL;
6227: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6228: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6229: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6230: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6231: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6232: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6233: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6226: x_pvt_rec.SERVICE_LEVEL := p_pub_rec.SERVICE_LEVEL;
6227: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6228: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6229: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6230: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6231: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6232: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6233: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6234: --
6227: x_pvt_rec.MODE_OF_TRANSPORT := p_pub_rec.MODE_OF_TRANSPORT;
6228: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6229: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6230: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6231: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6232: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6233: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6234: --
6235: IF l_debug_on THEN
6228: x_pvt_rec.ASSIGNED_TO_FTE_TRIPS := p_pub_rec.ASSIGNED_TO_FTE_TRIPS;
6229: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6230: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6231: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6232: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6233: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6234: --
6235: IF l_debug_on THEN
6236: WSH_DEBUG_SV.pop(l_module_name);
6229: x_pvt_rec.PLANNED_FLAG := FND_API.G_MISS_CHAR;
6230: x_pvt_rec.STATUS_CODE := FND_API.G_MISS_CHAR;
6231: x_pvt_rec.BATCH_ID := FND_API.G_MISS_NUM;
6232: x_pvt_rec.HASH_VALUE := FND_API.G_MISS_NUM;
6233: x_pvt_rec.SOURCE_HEADER_ID := FND_API.G_MISS_NUM;
6234: --
6235: IF l_debug_on THEN
6236: WSH_DEBUG_SV.pop(l_module_name);
6237: END IF;
6251: --========================================================================
6252: -- PROCEDURE : Create_Update_Delivery PUBLIC
6253: --
6254: -- PARAMETERS: p_api_version_number known api versionerror buffer
6255: -- p_init_msg_list FND_API.G_TRUE to reset list
6256: -- x_return_status return status
6257: -- x_msg_count number of messages in the list
6258: -- x_msg_data text of messages
6259: -- p_delivery_info Attributes for the delivery entity
6273: x_msg_count OUT NOCOPY NUMBER,
6274: x_msg_data OUT NOCOPY VARCHAR2,
6275: p_action_code IN VARCHAR2,
6276: p_delivery_info IN OUT NOCOPY Delivery_Pub_Rec_Type,
6277: p_delivery_name IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
6278: x_delivery_id OUT NOCOPY NUMBER,
6279: x_name OUT NOCOPY VARCHAR2)
6280:
6281: IS
6290: l_rec_attr_tab wsh_new_deliveries_pvt.delivery_attr_tbl_type;
6291: l_delivery_in_rec Del_In_Rec_Type;
6292: l_del_out_rec_tab Del_Out_Tbl_Type;
6293: l_return_status VARCHAR2(1);
6294: l_commit VARCHAR2(100) := FND_API.G_FALSE;
6295: --
6296: l_debug_on BOOLEAN;
6297: --
6298: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_UPDATE_DELIVERY';
6311: IF l_debug_on THEN
6312: wsh_debug_sv.push(l_module_name);
6313: END IF;
6314: -- Standard call to check for call compatibility
6315: IF NOT FND_API.Compatible_API_Call
6316: ( l_api_version_number
6317: , p_api_version_number
6318: , l_api_name
6319: , G_PKG_NAME
6318: , l_api_name
6319: , G_PKG_NAME
6320: )
6321: THEN
6322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6323: END IF;
6324:
6325: -- Initialize message stack if required
6326: IF FND_API.to_Boolean(p_init_msg_list) THEN
6322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6323: END IF;
6324:
6325: -- Initialize message stack if required
6326: IF FND_API.to_Boolean(p_init_msg_list) THEN
6327: FND_MSG_PUB.initialize;
6328: END IF;
6329:
6330:
6328: END IF;
6329:
6330:
6331: IF (p_action_code = 'UPDATE') THEN
6332: IF (p_delivery_name IS NOT NULL) OR (p_delivery_name <> FND_API.G_MISS_CHAR) THEN
6333: p_delivery_info.name := p_delivery_name;
6334: END IF;
6335: ELSIF ( p_action_code <> 'CREATE' ) THEN
6336: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6391: --
6392: FND_MSG_PUB.Count_And_Get
6393: ( p_count => x_msg_count
6394: , p_data => x_msg_data
6395: , p_encoded => FND_API.G_FALSE
6396: );
6397: --
6398: IF l_debug_on THEN
6399: WSH_DEBUG_SV.pop(l_module_name);
6399: WSH_DEBUG_SV.pop(l_module_name);
6400: END IF;
6401: --
6402: EXCEPTION
6403: WHEN FND_API.G_EXC_ERROR THEN
6404: x_return_status := FND_API.G_RET_STS_ERROR;
6405: -- Get message count and data
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count
6400: END IF;
6401: --
6402: EXCEPTION
6403: WHEN FND_API.G_EXC_ERROR THEN
6404: x_return_status := FND_API.G_RET_STS_ERROR;
6405: -- Get message count and data
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count
6408: , p_data => x_msg_data
6405: -- Get message count and data
6406: FND_MSG_PUB.Count_And_Get
6407: ( p_count => x_msg_count
6408: , p_data => x_msg_data
6409: , p_encoded => FND_API.G_FALSE
6410: );
6411: --
6412: IF l_debug_on THEN
6413: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6410: );
6411: --
6412: IF l_debug_on THEN
6413: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6414: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6415: END IF;
6416: --
6417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6413: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6414: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6415: END IF;
6416: --
6417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6419: -- Get message count and data
6420: FND_MSG_PUB.Count_And_Get
6421: ( p_count => x_msg_count
6414: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6415: END IF;
6416: --
6417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6419: -- Get message count and data
6420: FND_MSG_PUB.Count_And_Get
6421: ( p_count => x_msg_count
6422: , p_data => x_msg_data
6419: -- Get message count and data
6420: FND_MSG_PUB.Count_And_Get
6421: ( p_count => x_msg_count
6422: , p_data => x_msg_data
6423: , p_encoded => FND_API.G_FALSE
6424: );
6425: --
6426: IF l_debug_on THEN
6427: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6424: );
6425: --
6426: IF l_debug_on THEN
6427: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6428: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6429: END IF;
6430: --
6431: WHEN OTHERS THEN
6432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6428: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6429: END IF;
6430: --
6431: WHEN OTHERS THEN
6432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6434: THEN
6435: FND_MSG_PUB.Add_Exc_Msg
6436: ( G_PKG_NAME
6440: -- Get message count and data
6441: FND_MSG_PUB.Count_And_Get
6442: ( p_count => x_msg_count
6443: , p_data => x_msg_data
6444: , p_encoded => FND_API.G_FALSE
6445: );
6446: --
6447: IF l_debug_on THEN
6448: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6455: --========================================================================
6456: -- PROCEDURE : Delivery_Action PUBLIC
6457: --
6458: -- PARAMETERS: p_api_version_number known api version error number
6459: -- p_init_msg_list FND_API.G_TRUE to reset list
6460: -- x_return_status return status
6461: -- x_msg_count number of messages in the list
6462: -- x_msg_data text of messages
6463: -- p_action_code Delivery action code. Valid action codes are
6552: l_delivery_id NUMBER := p_delivery_id;
6553: --
6554: l_num_errors NUMBER := 0;
6555: l_num_warnings NUMBER := 0;
6556: l_commit VARCHAR2(100) := FND_API.G_FALSE;
6557: --
6558: BEGIN
6559: --
6560: --
6569: wsh_debug_sv.push(l_module_name);
6570: END IF;
6571: --
6572: -- Standard call to check for call compatibility
6573: IF NOT FND_API.Compatible_API_Call
6574: ( l_api_version_number
6575: , p_api_version_number
6576: , l_api_name
6577: , G_PKG_NAME
6576: , l_api_name
6577: , G_PKG_NAME
6578: )
6579: THEN
6580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6581: END IF;
6582:
6583: -- Initialize message stack if required
6584: IF FND_API.to_Boolean(p_init_msg_list) THEN
6580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6581: END IF;
6582:
6583: -- Initialize message stack if required
6584: IF FND_API.to_Boolean(p_init_msg_list) THEN
6585: FND_MSG_PUB.initialize;
6586: END IF;
6587:
6588: wsh_util_validate.validate_delivery_name(
6669: --
6670: FND_MSG_PUB.Count_And_Get
6671: ( p_count => x_msg_count
6672: , p_data => x_msg_data
6673: , p_encoded => FND_API.G_FALSE
6674: );
6675: --
6676: IF l_debug_on THEN
6677: WSH_DEBUG_SV.pop(l_module_name);
6677: WSH_DEBUG_SV.pop(l_module_name);
6678: END IF;
6679: --
6680: EXCEPTION
6681: WHEN FND_API.G_EXC_ERROR THEN
6682: x_return_status := FND_API.G_RET_STS_ERROR;
6683: -- Get message count and data
6684: FND_MSG_PUB.Count_And_Get
6685: ( p_count => x_msg_count
6678: END IF;
6679: --
6680: EXCEPTION
6681: WHEN FND_API.G_EXC_ERROR THEN
6682: x_return_status := FND_API.G_RET_STS_ERROR;
6683: -- Get message count and data
6684: FND_MSG_PUB.Count_And_Get
6685: ( p_count => x_msg_count
6686: , p_data => x_msg_data
6683: -- Get message count and data
6684: FND_MSG_PUB.Count_And_Get
6685: ( p_count => x_msg_count
6686: , p_data => x_msg_data
6687: , p_encoded => FND_API.G_FALSE
6688: );
6689: --
6690: IF l_debug_on THEN
6691: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6688: );
6689: --
6690: IF l_debug_on THEN
6691: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6693: END IF;
6694: --
6695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6691: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_EXCEP_LEVEL);
6692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6693: END IF;
6694: --
6695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6697: -- Get message count and data
6698: FND_MSG_PUB.Count_And_Get
6699: ( p_count => x_msg_count
6692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6693: END IF;
6694: --
6695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6697: -- Get message count and data
6698: FND_MSG_PUB.Count_And_Get
6699: ( p_count => x_msg_count
6700: , p_data => x_msg_data
6697: -- Get message count and data
6698: FND_MSG_PUB.Count_And_Get
6699: ( p_count => x_msg_count
6700: , p_data => x_msg_data
6701: , p_encoded => FND_API.G_FALSE
6702: );
6703: --
6704: IF l_debug_on THEN
6705: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6702: );
6703: --
6704: IF l_debug_on THEN
6705: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6706: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6707: END IF;
6708: --
6709: WHEN OTHERS THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6706: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6707: END IF;
6708: --
6709: WHEN OTHERS THEN
6710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6711: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6712: THEN
6713: FND_MSG_PUB.Add_Exc_Msg
6714: ( G_PKG_NAME
6718: -- Get message count and data
6719: FND_MSG_PUB.Count_And_Get
6720: ( p_count => x_msg_count
6721: , p_data => x_msg_data
6722: , p_encoded => FND_API.G_FALSE
6723: );
6724: --
6725: IF l_debug_on THEN
6726: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6891: IF l_debug_on THEN
6892: wsh_debug_sv.logmsg(l_module_name, 'When others in local block');
6893: END IF;
6894: ROLLBACK TO lock_rel_ent_loop;
6895: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6896:
6897: END;
6898: l_index := p_rec_attr_tab.next(l_index);
6899: -- }
6910: -- {
6911: IF x_valid_ids_tab.count = 0
6912: THEN
6913: -- {
6914: RAISE FND_API.G_EXC_ERROR;
6915: ELSIF x_valid_ids_tab.count >0
6916: AND x_valid_ids_tab.count < p_rec_attr_tab.count
6917: THEN
6918: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6926: END IF;
6927: --
6928:
6929: EXCEPTION
6930: WHEN FND_API.G_EXC_ERROR THEN
6931: x_return_status := FND_API.G_RET_STS_ERROR ;
6932: --
6933: IF l_debug_on THEN
6934: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6927: --
6928:
6929: EXCEPTION
6930: WHEN FND_API.G_EXC_ERROR THEN
6931: x_return_status := FND_API.G_RET_STS_ERROR ;
6932: --
6933: IF l_debug_on THEN
6934: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6935: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6930: WHEN FND_API.G_EXC_ERROR THEN
6931: x_return_status := FND_API.G_RET_STS_ERROR ;
6932: --
6933: IF l_debug_on THEN
6934: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6935: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6936: END IF;
6937: --
6938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6931: x_return_status := FND_API.G_RET_STS_ERROR ;
6932: --
6933: IF l_debug_on THEN
6934: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6935: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6936: END IF;
6937: --
6938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6934: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6935: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6936: END IF;
6937: --
6938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6940: --
6941: IF l_debug_on THEN
6942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6935: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6936: END IF;
6937: --
6938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6940: --
6941: IF l_debug_on THEN
6942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6940: --
6941: IF l_debug_on THEN
6942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6944: END IF;
6945: --
6946: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6940: --
6941: IF l_debug_on THEN
6942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6944: END IF;
6945: --
6946: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6951: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6952: END IF;
6953: --
6954: WHEN OTHERS THEN
6955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6956: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6957: IF l_debug_on THEN
6958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6956: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6957: IF l_debug_on THEN
6958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6960: END IF;
6961:
6962: --
6963:
6967: -- PROCEDURE : Get_Delivery_Status PUBLIC
6968: --
6969: -- PARAMETERS:
6970: -- p_api_version_number known api version error number
6971: -- p_init_msg_list FND_API.G_TRUE to reset list
6972: -- p_entity_type either DELIVERY/DELIVERY DETAIL/LPN
6973: -- p_entity_id either delivery_id/delivery_detail_id/lpn_id
6974: -- x_status_code Status of delivery for the entity_type and
6975: -- entity id passed
7016: wsh_debug_sv.log (l_module_name, 'Entity Id', p_entity_id );
7017: END IF;
7018: --
7019: -- Standard call to check for call compatibility
7020: IF NOT FND_API.Compatible_API_Call
7021: ( l_api_version_number
7022: , p_api_version_number
7023: , l_api_name
7024: , G_PKG_NAME
7023: , l_api_name
7024: , G_PKG_NAME
7025: )
7026: THEN
7027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7028: END IF;
7029: --
7030: IF FND_API.to_Boolean(p_init_msg_list) THEN
7031: FND_MSG_PUB.initialize;
7026: THEN
7027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7028: END IF;
7029: --
7030: IF FND_API.to_Boolean(p_init_msg_list) THEN
7031: FND_MSG_PUB.initialize;
7032: END IF;
7033: --
7034:
7040: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
7041: END IF;
7042: x_return_status := wsh_util_core.g_ret_sts_error;
7043: wsh_util_core.add_message(x_return_status, l_module_name);
7044: RAISE FND_API.G_EXC_ERROR;
7045: END IF;
7046:
7047: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7048:
7073: wsh_debug_sv.pop (l_module_name);
7074: END IF;
7075: --
7076: EXCEPTION
7077: WHEN FND_API.G_EXC_ERROR THEN
7078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7079: FND_MSG_PUB.Count_And_Get (
7080: p_count => x_msg_count,
7081: p_data => x_msg_data,
7078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7079: FND_MSG_PUB.Count_And_Get (
7080: p_count => x_msg_count,
7081: p_data => x_msg_data,
7082: p_encoded => FND_API.G_FALSE );
7083: --
7084: IF l_debug_on THEN
7085: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7086: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
7081: p_data => x_msg_data,
7082: p_encoded => FND_API.G_FALSE );
7083: --
7084: IF l_debug_on THEN
7085: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7086: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
7087: END IF;
7088: --
7089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7082: p_encoded => FND_API.G_FALSE );
7083: --
7084: IF l_debug_on THEN
7085: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7086: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
7087: END IF;
7088: --
7089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7085: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7086: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
7087: END IF;
7088: --
7089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7091: FND_MSG_PUB.Count_And_Get (
7092: p_count => x_msg_count,
7093: p_data => x_msg_data,
7090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7091: FND_MSG_PUB.Count_And_Get (
7092: p_count => x_msg_count,
7093: p_data => x_msg_data,
7094: p_encoded => FND_API.G_FALSE );
7095: --
7096: IF l_debug_on THEN
7097: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7098: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7093: p_data => x_msg_data,
7094: p_encoded => FND_API.G_FALSE );
7095: --
7096: IF l_debug_on THEN
7097: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7098: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7099: END IF;
7100: --
7101: WHEN OTHERS THEN
7094: p_encoded => FND_API.G_FALSE );
7095: --
7096: IF l_debug_on THEN
7097: WSH_DEBUG_SV.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured', WSH_DEBUG_SV.C_EXCEP_LEVEL);
7098: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7099: END IF;
7100: --
7101: WHEN OTHERS THEN
7102: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;