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
, p_entity_id IN NUMBER
, p_document_type IN VARCHAR2
, p_reason_of_transport IN VARCHAR2
, p_description IN VARCHAR2
, p_document_number IN VARCHAR2
)
IS
l_ledger_id VARCHAR2(30); -- LE Uptake
wsh_update_document_error EXCEPTION;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_ROW';
SELECT hoi.org_information1
INTO l_ledger_id
FROM hr_organization_information hoi,
wsh_new_deliveries wnd
WHERE wnd.delivery_id = p_entity_id
AND hoi.organization_id = wnd.organization_id
AND hoi.org_information_context = 'Accounting Information';
SELECT delivery_id
INTO l_delivery_id
FROM wsh_new_deliveries
WHERE delivery_id = p_entity_id
FOR UPDATE NOWAIT;
Update WSH_NEW_DELIVERIES
SET
reason_of_transport = p_reason_of_transport,
description = p_description,
last_updated_by = fnd_global.user_id,
last_update_date = sysdate,
last_update_login = fnd_global.login_id
WHERE delivery_id = p_entity_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
, p_entity_id
, p_document_type
/* Commented for changes in the shipping datamodel bug#1918342
, NULL
, NULL
, NULL
, p_reason_of_transport
, p_description
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL
, NULL */
, l_ledger_id -- LE Uptake
, 'BOTH'
);
RAISE wsh_update_document_error;
WHEN wsh_update_document_error THEN
x_return_status := FND_API.G_RET_STS_ERROR;
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,
p_entity_id IN NUMBER,
p_application_id IN NUMBER,
p_location_id IN NUMBER,
p_document_type IN VARCHAR2,
p_document_sub_type IN VARCHAR2,
p_reason_of_transport IN VARCHAR2,
p_description IN VARCHAR2,
x_document_number IN OUT NOCOPY VARCHAR2
)
IS
x_rowid varchar2(30);
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERT_ROW';
SELECT hoi.org_information1
INTO l_ledger_id
FROM hr_organization_information hoi,
wsh_new_deliveries wnd
WHERE wnd.delivery_id = p_entity_id
AND hoi.organization_id = wnd.organization_id
AND hoi.org_information_context = 'Accounting Information';
SELECT delivery_id
INTO l_delivery_id
FROM wsh_new_deliveries
WHERE delivery_id = p_entity_id
FOR UPDATE NOWAIT;
Update WSH_NEW_DELIVERIES
SET
reason_of_transport = p_reason_of_transport,
description = p_description,
last_updated_by = fnd_global.user_id,
last_update_date = sysdate,
last_update_login = fnd_global.login_id
WHERE delivery_id = p_entity_id;
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);
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_ROW';
END delete_row;
SELECT status_code
FROM wsh_new_deliveries
WHERE delivery_id = p_delivery_id;
x_disabled_list.delete;