The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_Row
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_entity_name IN VARCHAR2
, x_entity_id IN OUT NOCOPY NUMBER
, p_document_type IN VARCHAR2
/* Commented for shipping datamodel changes bug#1918342
, p_pod_flag IN VARCHAR2
, p_pod_by IN VARCHAR2
, p_pod_date IN DATE
, p_reason_of_transport IN VARCHAR2
, p_description IN VARCHAR2
, p_cod_amount IN NUMBER
, p_cod_currency_code IN VARCHAR2
, p_cod_remit_to IN VARCHAR2
, p_cod_charge_paid_by IN VARCHAR2
, p_problem_contact_reference IN VARCHAR2
, p_bill_freight_to IN VARCHAR2
, p_carried_by IN VARCHAR2
, p_port_of_loading IN VARCHAR2
, p_port_of_discharge IN VARCHAR2
, p_booking_office IN VARCHAR2
, p_booking_number IN VARCHAR2
, p_service_contract IN VARCHAR2
, p_shipper_export_ref IN VARCHAR2
, p_carrier_export_ref IN VARCHAR2
, p_bol_notify_party IN VARCHAR2
, p_supplier_code IN VARCHAR2
, p_aetc_number IN VARCHAR2
, p_shipper_signed_by IN VARCHAR2
, p_shipper_date IN DATE
, p_carrier_signed_by IN VARCHAR2
, p_carrier_date IN DATE
, p_bol_issue_office IN VARCHAR2
, p_bol_issued_by IN VARCHAR2
, p_bol_date_issued IN DATE
, p_shipper_hm_by IN VARCHAR2
, p_shipper_hm_date IN DATE
, p_carrier_hm_by IN VARCHAR2
, p_carrier_hm_date IN DATE
, p_ledger_id IN NUMBER */ -- LE Uptake
, p_consolidate_option IN VARCHAR2
, x_trip_id IN OUT NOCOPY NUMBER
, x_trip_name IN OUT NOCOPY VARCHAR2
, p_pick_up_location_id IN NUMBER
, p_drop_off_location_id IN NUMBER
, p_carrier_id IN NUMBER
, p_ship_method IN VARCHAR2
, p_delivery_id IN NUMBER
, x_document_number IN OUT NOCOPY VARCHAR2
)
IS
x_rowid varchar2(30);
wsh_update_trip_error EXCEPTION;
wsh_delete_leg_error EXCEPTION;
wsh_update_leg_error EXCEPTION;
wsh_update_document_error EXCEPTION;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ROW';
SELECT to_number(HOI.ORG_INFORMATION1) INTO l_ledger_id -- LE Uptake
FROM hr_organization_information hoi,
wsh_new_deliveries wnd
WHERE HOI.ORGANIZATION_ID = wnd.organization_id
AND HOI.ORG_INFORMATION_CONTEXT = 'Accounting Information'
AND wnd.delivery_id = p_delivery_id;
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_Document_PVT.UPDATE_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
WSH_Document_PVT.update_document
( p_api_version
, p_init_msg_list
, p_commit
, p_validation_level
, x_return_status
, x_msg_count
, x_msg_data
, p_entity_name
, x_entity_id
, p_document_type
, l_ledger_id -- LE Uptake
, p_consolidate_option
);
RAISE wsh_update_document_error;
WHEN wsh_update_trip_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UPDATE_TRIP_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UPDATE_TRIP_ERROR');
WHEN wsh_delete_leg_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_LEG_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_LEG_ERROR');
WHEN wsh_update_leg_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UPDATE_LEG_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UPDATE_LEG_ERROR');
WHEN wsh_update_document_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UPDATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UPDATE_DOCUMENT_ERROR');
END Update_Row;
PROCEDURE insert_row
(x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_count IN OUT NOCOPY VARCHAR2,
x_msg_data IN OUT NOCOPY VARCHAR2,
p_entity_name IN VARCHAR2,
x_entity_id IN OUT NOCOPY NUMBER,
p_application_id IN NUMBER,
p_location_id IN NUMBER,
p_document_type IN VARCHAR2,
p_document_sub_type IN VARCHAR2,
-- p_ledger_id IN NUMBER, -- LE Uptake
x_document_number IN OUT NOCOPY VARCHAR2,
x_trip_id IN OUT NOCOPY NUMBER,
x_trip_name IN OUT NOCOPY VARCHAR2,
x_delivery_id IN OUT NOCOPY NUMBER,
p_pick_up_location_id IN NUMBER,
p_drop_off_location_id IN NUMBER,
p_carrier_id IN NUMBER
)
IS
x_rowid varchar2(30);
wsh_update_trip_error EXCEPTION;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW';
SELECT to_number(HOI.ORG_INFORMATION1) INTO l_ledger_id -- LE Uptake
FROM hr_organization_information hoi,
wsh_new_deliveries wnd
WHERE HOI.ORGANIZATION_ID = wnd.organization_id
AND HOI.ORG_INFORMATION_CONTEXT = 'Accounting Information'
AND wnd.delivery_id = x_delivery_id;
WHEN wsh_update_trip_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UPDATE_TRIP_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UPDATE_TRIP_ERROR');
END Insert_Row;
PROCEDURE delete_row
( p_api_version IN NUMBER
, p_init_msg_list IN VARCHAR2
, p_commit IN VARCHAR2
, p_validation_level IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_entity_id IN NUMBER
, p_document_type IN VARCHAR2
, p_document_number IN VARCHAR2
)
IS
l_rowid VARCHAR2(30);
wsh_delete_leg_error EXCEPTION;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_ROW';
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
wsh_delivery_legs_pvt.delete_delivery_leg
(l_rowid,
p_entity_id,
x_return_status
);
RAISE wsh_delete_leg_error;
WHEN wsh_delete_leg_error THEN
ROLLBACK TO sp1;
WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_LEG_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_LEG_ERROR');
END delete_row;
select wdl.delivery_leg_id,
wdi.sequence_number,
wts1.stop_location_id,
wdi.document_instance_id,
wdl.delivery_id , --bugfix 3990683
wt.name
from wsh_delivery_legs wdl,
wsh_trip_stops wts1,
wsh_trips wt,
wsh_document_instances wdi,
wsh_doc_sequence_categories wdsc
where wdsc.doc_sequence_category_id = wdi.doc_sequence_category_id
AND NVL(wdsc.document_code, '-99') <> '-99'
AND wdi.entity_id = wdl.delivery_leg_id
AND wdi.entity_name = 'WSH_DELIVERY_LEGS'
AND wdi.document_type = 'BOL'
AND wdi.status <> 'CANCELLED'
AND wts1.trip_id = wt.trip_id
and wts1.stop_id =wdl.PICK_UP_STOP_ID
and wt.trip_id = p_trip_id;
select wdl.delivery_leg_id,
wdi.sequence_number,
wts1.stop_location_id,
wdi.document_instance_id,
wdl.delivery_id , --bugfix 3990683
wt.name
from wsh_delivery_legs wdl,
wsh_trip_stops wts1,
wsh_trip_stops wts2,
wsh_trips wt,
wsh_document_instances wdi
where wdi.entity_id = wdl.delivery_leg_id
AND wdi.entity_name = 'WSH_DELIVERY_LEGS'
AND wdi.document_type = 'BOL'
AND wdi.status <> 'CANCELLED'
AND wts1.trip_id = wt.trip_id
and wts2.trip_id = wt.trip_id
and wts1.stop_id =wdl.PICK_UP_STOP_ID
and wts2.stop_id = wdl.DROP_OFF_STOP_ID
and wt.trip_id = p_trip_id;
select 1 into l_tmp
from wsh_document_instances
where document_instance_id = l_bol_num_tab(i).document_instance_id
FOR UPDATE NOWAIT;