[Home] [Help]
1: PACKAGE BODY WSH_ITM_EXPORT_SCREENING AS
2: /* $Header: WSHITESB.pls 120.6 2011/08/24 04:31:44 skanduku ship $ */
3:
4:
5:
2: /* $Header: WSHITESB.pls 120.6 2011/08/24 04:31:44 skanduku ship $ */
3:
4:
5:
6: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ITM_EXPORT_SCREENING';
7: G_REQ_PICK_RELEASE_EXCEPTION CONSTANT VARCHAR2(30) := 'WSH_PR_REQ_EXPORT_COMPL';
8: G_REQ_SHIP_CONFIRM_EXCEPTION CONSTANT VARCHAR2(30) := 'WSH_SC_REQ_EXPORT_COMPL';
9: G_SUB_PICK_RELEASE_EXCEPTION CONSTANT VARCHAR2(30) := 'WSH_PR_SUB_EXPORT_COMPL';
10: G_SUB_SHIP_CONFIRM_EXCEPTION CONSTANT VARCHAR2(30) := 'WSH_SC_SUB_EXPORT_COMPL';
869: p_event_name,
870: l_num_organization_id_tab(k),
871: l_num_master_org_id_tab(k)
872: );
873: WSH_ITM_EXPORT_SCREENING.POPULATE_SERIAL_NUMBERS(l_request_control_id_s
874: ,l_num_delivery_id_tab(k)
875: , x_return_status);
876:
877: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1061: -- Performs Export Screening For Deliveries on Pick Release Event
1062: ------------------------------------------------------------------------------------------
1063: l_return_status := NULL;
1064:
1065: WSH_ITM_EXPORT_SCREENING.SCREEN_EVENT_DELIVERIES(l_return_status,p_organization_id,p_delivery_from_id,p_delivery_to_id,G_PICK_RELEASE_EVENT,p_ship_method_code,p_pickup_date_from,p_pickup_date_to);
1066:
1067:
1068: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1069: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Pick Release event ');
1065: WSH_ITM_EXPORT_SCREENING.SCREEN_EVENT_DELIVERIES(l_return_status,p_organization_id,p_delivery_from_id,p_delivery_to_id,G_PICK_RELEASE_EVENT,p_ship_method_code,p_pickup_date_from,p_pickup_date_to);
1066:
1067:
1068: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1069: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Pick Release event ');
1070: retcode := 2;
1071: IF l_debug_on THEN
1072: WSH_DEBUG_SV.pop(l_module_name);
1073: END IF;
1078: -- Performs Export Screening For Deliveries on Ship Confirm Event
1079: ------------------------------------------------------------------------------------------
1080: l_return_status := NULL;
1081:
1082: WSH_ITM_EXPORT_SCREENING.SCREEN_EVENT_DELIVERIES(l_return_status,p_organization_id,p_delivery_from_id,p_delivery_to_id,G_SHIP_CONFIRM_EVENT,p_ship_method_code,p_pickup_date_from,p_pickup_date_to);
1083:
1084: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1085: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Ship Confirm event ');
1086: retcode := 2;
1081:
1082: WSH_ITM_EXPORT_SCREENING.SCREEN_EVENT_DELIVERIES(l_return_status,p_organization_id,p_delivery_from_id,p_delivery_to_id,G_SHIP_CONFIRM_EVENT,p_ship_method_code,p_pickup_date_from,p_pickup_date_to);
1083:
1084: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1085: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','Error in procedure WSH_ITM_EXPORT_SCREENING.SCREEN_DELIVERIES for Ship Confirm event ');
1086: retcode := 2;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.pop(l_module_name);
1089: END IF;
1109:
1110: END SCREEN_DELIVERIES;
1111:
1112:
1113: END WSH_ITM_EXPORT_SCREENING;