[Home] [Help]
1528: -- Cursor to fetch the delivery,delivery leg and trip infrmation for the delivery being processed.
1529: CURSOR get_delivery_info(p_del_id_c1 NUMBER) IS
1530: SELECT t.trip_id
1531: FROM wsh_new_deliveries dl,
1532: wsh_delivery_legs dg,
1533: wsh_trip_stops st,
1534: wsh_trips t
1535: WHERE dl.delivery_id = p_del_id_c1 AND
1536: dl.delivery_id = dg.delivery_id AND
1542:
1543: CURSOR c_has_del_leg(p_del_id_c2 NUMBER) IS
1544: SELECT '1'
1545: FROM wsh_new_deliveries dl,
1546: wsh_delivery_legs dg
1547: WHERE dl.delivery_id = p_del_id_c2 AND
1548: dl.delivery_id = dg.delivery_id;
1549:
1550: CURSOR line_csr (p_delivery_detail_id NUMBER)
3236: --
3237: -- Debug Statements
3238: --
3239: IF l_debug_on THEN
3240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3241: END IF;
3242: --
3243: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3244: p_entity_type => 'DELIVERY',
3239: IF l_debug_on THEN
3240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3241: END IF;
3242: --
3243: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3244: p_entity_type => 'DELIVERY',
3245: p_entity_ids => l_del_ids_tab,
3246: p_consolidation_change => 'N',
3247: x_return_status => l_return_status);
4096: x_num_warnings => l_num_warnings,
4097: x_num_errors => l_num_errors);
4098:
4099: -- Calling reprice API
4100: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
4101: p_entity_type => 'DELIVERY',
4102: p_entity_ids => l_delivery_ids,
4103: x_return_status => l_return_status);
4104:
4673: is
4674: select wda.delivery_id,
4675: wt.trip_id
4676: FROM wsh_delivery_assignments_v wda,
4677: wsh_delivery_legs wdl,
4678: wsh_trip_stops wts,
4679: wsh_trips wt
4680: WHERE wda.delivery_detail_id = p_del_detail_id
4681: AND wda.delivery_id = wdl.delivery_id
4686: cursor c_get_trip_id (p_delivery_id NUMBER)
4687: is
4688: select wt.trip_id
4689: FROM wsh_delivery_assignments_v wda,
4690: wsh_delivery_legs wdl,
4691: wsh_trip_stops wts,
4692: wsh_trips wt
4693: WHERE wda.delivery_id = p_delivery_id
4694: AND wda.delivery_id = wdl.delivery_id
6156: select
6157: WDG.delivery_leg_id,
6158: wdi.sequence_number bol
6159: from
6160: wsh_delivery_legs wdg,
6161: wsh_document_instances wdi
6162: where
6163: wdg.delivery_leg_id = wdi.entity_id and
6164: wdi.entity_name = 'WSH_DELIVERY_LEGS' AND
6160: wsh_delivery_legs wdg,
6161: wsh_document_instances wdi
6162: where
6163: wdg.delivery_leg_id = wdi.entity_id and
6164: wdi.entity_name = 'WSH_DELIVERY_LEGS' AND
6165: wdg.delivery_id = p_del_id AND
6166: wdi.document_type= 'BOL';
6167:
6168: l_delivery_leg_id NUMBER;
6223: SET sequence_number = p_bol,
6224: last_update_date = SYSDATE,
6225: last_updated_by = FND_GLOBAL.USER_ID,
6226: last_update_login = FND_GLOBAL.LOGIN_ID
6227: WHERE entity_name = 'WSH_DELIVERY_LEGS'
6228: AND entity_id = l_delivery_leg_id
6229: AND document_type= 'BOL';
6230: END IF;
6231: ELSIF (c_BOL%NOTFOUND) AND (p_bol IS NOT NULL) THEN
6237:
6238:
6239: create_update_inbound_document (
6240: p_document_number => p_bol,
6241: p_entity_name => 'WSH_DELIVERY_LEGS',
6242: p_delivery_id => p_del_id,
6243: p_transaction_type => p_action_prms.action_code,
6244: x_return_status => l_return_status);
6245: --
7389: --Cursor to get the Delivery Leg ID for a given Delivery.
7390: CURSOR get_delivery_info(p_delivery_id NUMBER) IS
7391: SELECT dg.delivery_leg_id
7392: FROM wsh_new_deliveries dl,
7393: wsh_delivery_legs dg,
7394: wsh_trip_stops st,
7395: wsh_trips t
7396: WHERE dl.delivery_id = p_delivery_id AND
7397: dl.delivery_id = dg.delivery_id AND
7401: --Cursor to get the last Delivery Leg ID for a given Delivery.
7402: CURSOR c_get_last_leg(p_delivery_id NUMBER) IS
7403: SELECT wdl.delivery_leg_id
7404: FROM wsh_new_deliveries wnd,
7405: wsh_delivery_legs wdl,
7406: wsh_trip_stops wts,
7407: wsh_trips wt
7408: WHERE wnd.delivery_id = p_delivery_id AND
7409: wnd.delivery_id = wdl.delivery_id AND
7541:
7542: --Call to API create_update_inbound_document
7543: create_update_inbound_document (
7544: p_document_number => curr_bol,
7545: p_entity_name => 'WSH_DELIVERY_LEGS',
7546: p_delivery_id => l_new_del_id, --code changed to use the newly created Delivery ID
7547: p_transaction_type => p_action_prms.action_code,
7548: x_return_status => l_return_status);
7549:
7740: -- IN:
7741: -- p_document_number IN VARCHAR2
7742: -- This holds the PSNO/BOL depending upon the entity name.If the
7743: -- input p_entity_name is 'WSH_NEW_DELIVERIES', then this parameter holds PSNO.
7744: -- If the input p_entity_name is 'WSH_DELIVERY_LEGS', then this parameter
7745: -- holds BOL.
7746: -- p_entity_name IN VARCHAR2
7747: -- Specifies what kind of document is present in the input parameter
7748: -- p_document_number.
7773: t.ship_method_code,
7774: dl.organization_id,
7775: t.name
7776: FROM wsh_new_deliveries dl,
7777: wsh_delivery_legs dg,
7778: wsh_trip_stops st,
7779: wsh_trips t
7780: WHERE dl.delivery_id = p_delivery_id AND
7781: dl.delivery_id = dg.delivery_id AND
7897: END IF;
7898:
7899:
7900:
7901: IF p_entity_name = 'WSH_DELIVERY_LEGS' THEN
7902: l_document_type := 'BOL';
7903: l_document_sub_type := l_ship_method_code; -- l_document_sub_type used to retrive the prefix and suufix and docuemnt category type .which is not needed
7904: l_entity_id := l_delivery_leg_id;
7905:
7948: -- The decode statement that was in the values clause of the coming insert stmt
7949: -- have been modified to make use of local variable l_status for performance reasons.
7950: --
7951:
7952: IF p_entity_name = 'WSH_DELIVERY_LEGS' THEN
7953: l_status := 'PLANNED';
7954: ELSIF p_entity_name ='WSH_NEW_DELIVERIES' THEN
7955: l_status := 'OPEN';
7956: END IF;