The following lines contain the word 'select', 'insert', 'update' or 'delete':
, p_action IN VARCHAR2 DEFAULT 'UPDATE'
, x_del_leg_rec OUT NOCOPY WSH_DELIVERY_LEGS_PVT.Delivery_Leg_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
);
SELECT ship_method_code
FROM wsh_trips
WHERE trip_id=p_trip_id;
SELECT name,
organization_id,
status_code,
planned_flag,
NVL(shipment_direction, 'O'), -- J IB jckwok
NVL(ignore_for_planning, 'N'), -- OTM R12, glog proj
NVL(tms_interface_flag,WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) -- OTM R12, glog proj
FROM wsh_new_deliveries
WHERE delivery_id = p_delivery_id;
select parent.delivery_leg_id, parent.delivery_id
from wsh_Delivery_legs child, wsh_Delivery_legs parent
where child.delivery_leg_id = p_delivery_leg_id
and child.parent_delivery_leg_id = parent.delivery_leg_id;
SELECT delivery_leg_id, delivery_id from wsh_Delivery_legs
WHERE delivery_leg_id = p_delivery_leg_id;
SELECT delivery_id
FROM wsh_delivery_legs
WHERE delivery_leg_id = p_leg_id;
SELECT WRS.Report_Set_Id
FROM Wsh_Report_Sets Wrs,
Wsh_Report_Set_Lines Wrsl
WHERE Wrsl.Report_Set_Id = Wrs.Report_Set_Id
AND Wrs.Name = 'Bill of Lading Report';
SELECT count(*)
INTO l_bol_number
FROM WSH_DOCUMENT_INSTANCES wdi,
WSH_DELIVERY_LEGS wdl
WHERE wdi.entity_id = wdl.delivery_leg_id
AND wdi.entity_name = 'WSH_DELIVERY_LEGS'
AND wdi.status <> 'CANCELLED'
AND wdl.delivery_leg_id = l_delivery_leg_id;--p_rec_attr_tab(l_index).delivery_leg_id;
WSH_BOLS_PVT.Insert_Row(
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_entity_name => 'WSH_DELIVERY_LEGS',
x_entity_id => l_delivery_leg_id,
p_application_id => 665 ,
p_location_id => p_action_prms.p_Pick_Up_Location_Id,
p_document_type => 'BOL',
p_document_sub_type => p_action_prms.p_Ship_Method,
-- p_ledger_id => 1, --LE Uptake
x_document_number => x_action_out_rec.x_bol_number,
x_trip_id => x_action_out_rec.x_trip_Id,
x_trip_name => x_action_out_rec.x_trip_Name,
x_delivery_id => x_action_out_rec.x_delivery_Id,
p_pick_up_location_Id => p_action_prms.p_Pick_Up_Location_Id,
p_drop_off_location_Id => p_action_prms.p_Drop_Off_Location_Id,
p_carrier_id => p_action_prms.p_Carrier_Id);
WSH_DEBUG_SV.log(l_module_name,'WSH_BOLS_PVT.Insert_Row l_return_status',l_return_status);
SELECT count(*)
INTO l_bol_number
FROM WSH_DOCUMENT_INSTANCES wdi,
WSH_DELIVERY_LEGS wdl
WHERE wdi.entity_id = wdl.delivery_leg_id
AND wdi.entity_name = 'WSH_DELIVERY_LEGS'
AND wdi.status <> 'CANCELLED'
AND wdl.delivery_leg_id = l_delivery_leg_id;
PROCEDURE Update_Delivery_Leg(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_delivery_leg_tab IN WSH_DELIVERY_LEGS_GRP.dlvy_leg_tab_type,
p_in_rec IN WSH_DELIVERY_LEGS_GRP.action_parameters_rectype,
x_out_rec OUT NOCOPY WSH_DELIVERY_LEGS_GRP.action_out_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_api_version_number CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Delivery_Leg';
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_DELIVERY_LEGS';
select d.delivery_id from
wsh_new_deliveries d, wsh_delivery_legs l, wsh_trip_stops s
where l.delivery_id = d.delivery_id
and d.ultimate_dropoff_location_id = s.stop_location_id
and l.drop_off_stop_id = s.stop_id
and l.delivery_leg_id = p_dleg_id;
IF (p_in_rec.action_code= 'UPDATE') THEN
FOR l_index in p_delivery_leg_tab.FIRST .. p_delivery_leg_tab.LAST LOOP
IF p_in_rec.caller like 'FTE%' THEN
IF p_delivery_leg_tab(l_index).POD_DATE is NOT NULL
AND p_delivery_leg_tab(l_index).POD_DATE <> FND_API.G_MISS_DATE THEN
-- See if the delivery leg is the last on the delivery.
OPEN c_is_final_leg(p_delivery_leg_tab(l_index).delivery_leg_id);
UPDATE wsh_new_deliveries
SET DELIVERED_DATE = p_delivery_leg_tab(l_index).POD_DATE
WHERE delivery_id = l_delivery_id;
p_action => 'UPDATE',
x_del_leg_rec => l_delivery_leg_rec,
x_return_status => x_return_status);
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.Update_Delivery_Leg',WSH_DEBUG_SV.C_PROC_LEVEL);
WSH_DELIVERY_LEGS_PVT.Update_Delivery_Leg(
p_rowid => NULL,
p_delivery_leg_info => l_delivery_leg_rec,
x_return_status => l_return_status);
WSH_DEBUG_SV.log(l_module_name,'Update_Delivery_Leg x_return_status',l_return_status);
p_msg_data => 'WSH_PUB_UPDATE_FAILURE',
p_token1 => 'ENTITY',
p_value1 => 'Delivery_Leg');
wsh_util_core.default_handler('WSH_DELIVERY_LEGS_GRP.Update_Delivery_Leg',l_module_name);
END Update_Delivery_Leg;
, p_action IN VARCHAR2 DEFAULT 'UPDATE'
, x_del_leg_rec OUT NOCOPY WSH_DELIVERY_LEGS_PVT.Delivery_Leg_Rec_Type
, x_return_status OUT NOCOPY VARCHAR2
) IS
cursor c_get_leg_record(p_dleg_id in number) IS
select
DELIVERY_LEG_ID,
DELIVERY_ID ,
SEQUENCE_NUMBER ,
LOADING_ORDER_FLAG ,
PICK_UP_STOP_ID ,
DROP_OFF_STOP_ID ,
GROSS_WEIGHT ,
NET_WEIGHT ,
WEIGHT_UOM_CODE ,
VOLUME ,
VOLUME_UOM_CODE ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN ,
PROGRAM_APPLICATION_ID ,
PROGRAM_ID ,
PROGRAM_UPDATE_DATE ,
REQUEST_ID ,
LOAD_TENDER_STATUS ,
SHIPPER_TITLE ,
SHIPPER_PHONE ,
POD_FLAG ,
POD_BY ,
POD_DATE ,
EXPECTED_POD_DATE ,
BOOKING_OFFICE ,
SHIPPER_EXPORT_REF ,
CARRIER_EXPORT_REF ,
DOC_NOTIFY_PARTY ,
AETC_NUMBER ,
SHIPPER_SIGNED_BY ,
SHIPPER_DATE ,
CARRIER_SIGNED_BY ,
CARRIER_DATE ,
DOC_ISSUE_OFFICE ,
DOC_ISSUED_BY ,
DOC_DATE_ISSUED ,
SHIPPER_HM_BY ,
SHIPPER_HM_DATE ,
CARRIER_HM_BY ,
CARRIER_HM_DATE ,
BOOKING_NUMBER ,
PORT_OF_LOADING ,
PORT_OF_DISCHARGE ,
SERVICE_CONTRACT ,
BILL_FREIGHT_TO ,
FTE_TRIP_ID ,
REPRICE_REQUIRED ,
ACTUAL_ARRIVAL_DATE ,
ACTUAL_DEPARTURE_DATE ,
ACTUAL_RECEIPT_DATE ,
TRACKING_DRILLDOWN_FLAG ,
STATUS_CODE ,
TRACKING_REMARKS ,
CARRIER_EST_DEPARTURE_DATE ,
CARRIER_EST_ARRIVAL_DATE ,
LOADING_START_DATETIME ,
LOADING_END_DATETIME ,
UNLOADING_START_DATETIME ,
UNLOADING_END_DATETIME ,
DELIVERED_QUANTITY ,
LOADED_QUANTITY ,
RECEIVED_QUANTITY ,
ORIGIN_STOP_ID ,
DESTINATION_STOP_ID ,
ROWID ,
PARENT_DELIVERY_LEG_ID
FROM wsh_delivery_legs where
delivery_leg_id = p_dleg_id;
IF p_del_leg_rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE THEN
l_dleg_rec.LAST_UPDATE_DATE := NULL;
ELSIF p_del_leg_rec.LAST_UPDATE_DATE IS NOT NULL THEN
l_dleg_rec.LAST_UPDATE_DATE := p_del_leg_rec.LAST_UPDATE_DATE;
IF p_del_leg_rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM THEN
l_dleg_rec.LAST_UPDATED_BY := NULL;
ELSIF p_del_leg_rec.LAST_UPDATED_BY IS NOT NULL THEN
l_dleg_rec.LAST_UPDATED_BY := p_del_leg_rec.LAST_UPDATED_BY;
IF p_del_leg_rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM THEN
l_dleg_rec.LAST_UPDATE_LOGIN := NULL;
ELSIF p_del_leg_rec.LAST_UPDATE_LOGIN IS NOT NULL THEN
l_dleg_rec.LAST_UPDATE_LOGIN := p_del_leg_rec.LAST_UPDATE_LOGIN;
IF p_del_leg_rec.PROGRAM_UPDATE_DATE = FND_API.G_MISS_DATE THEN
l_dleg_rec.PROGRAM_UPDATE_DATE := NULL;
ELSIF p_del_leg_rec.PROGRAM_UPDATE_DATE IS NOT NULL THEN
l_dleg_rec.PROGRAM_UPDATE_DATE := p_del_leg_rec.PROGRAM_UPDATE_DATE;