The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select decode(p_link_type, 'REF', 6,
'DUP', 4,
'PARENT', 1,
'CHILD', 2)
Into l_link_rec_pvt.link_type_id
From dual;
P_PROGRAM_UPDATE_DATE IN DATE, -- new for 1159
P_FROM_INCIDENT_ID IN NUMBER, -- obsoleted for 1159
P_FROM_INCIDENT_NUMBER IN VARCHAR2, -- obsoleted for 1159
P_TO_INCIDENT_ID IN NUMBER, -- obsoleted for 1159
P_TO_INCIDENT_NUMBER IN VARCHAR2, -- obsoleted for 1159
P_LINK_SEGMENT1 IN VARCHAR2,
P_LINK_SEGMENT2 IN VARCHAR2,
P_LINK_SEGMENT3 IN VARCHAR2,
P_LINK_SEGMENT4 IN VARCHAR2,
P_LINK_SEGMENT5 IN VARCHAR2,
P_LINK_SEGMENT6 IN VARCHAR2,
P_LINK_SEGMENT7 IN VARCHAR2,
P_LINK_SEGMENT8 IN VARCHAR2,
P_LINK_SEGMENT9 IN VARCHAR2,
P_LINK_SEGMENT10 IN VARCHAR2,
P_LINK_SEGMENT11 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT12 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT13 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT14 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT15 IN VARCHAR2, -- new for 1159
P_LINK_CONTEXT IN VARCHAR2, -- new for 1159
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
X_RECIPROCAL_LINK_ID OUT NOCOPY NUMBER, -- new for 1159
X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER, -- new for 1159
X_LINK_ID OUT NOCOPY NUMBER )
IS
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INCIDENTLINK_1';
l_link_rec_pub.program_update_date := p_program_update_date; -- new for 1159
l_link_rec.program_update_date := p_link_rec.PROGRAM_UPDATE_DATE;
PROCEDURE UPDATE_INCIDENTLINK (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
P_RESP_APPL_ID IN NUMBER := NULL,
P_RESP_ID IN NUMBER := NULL,
P_USER_ID IN NUMBER := NULL,
P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
P_ORG_ID IN NUMBER := NULL,
P_LINK_ID IN NUMBER,
P_FROM_INCIDENT_ID IN NUMBER := NULL,
P_FROM_INCIDENT_NUMBER IN VARCHAR2 := NULL,
P_TO_INCIDENT_ID IN NUMBER := NULL,
P_TO_INCIDENT_NUMBER IN VARCHAR2 := NULL,
P_LINK_TYPE IN VARCHAR2 := NULL,
P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INCIDENTLINK_3';
SAVEPOINT UPDATE_INCIDENTLINK_PUB;
Select decode(p_link_type, 'REF', 6,
'DUP', 4,
'PARENT', 1,
'CHILD', 2)
Into l_link_rec_pvt.link_type_id
From dual;
Select object_version_number
Into l_object_version_number
From cs_incident_links
Where link_id = p_link_id;
Rollback to UPDATE_INCIDENTLINK_PUB;
CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
P_API_VERSION => 1.2,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_RESP_APPL_ID => p_resp_appl_id,
P_RESP_ID => p_resp_id,
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id,
P_LINK_ID => p_link_id,
P_OBJECT_VERSION_NUMBER => l_object_version_number,
P_LINK_REC => l_link_rec_pvt,
X_RETURN_STATUS => x_return_status,
X_OBJECT_VERSION_NUMBER => lx_object_version_number,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data);
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
END UPDATE_INCIDENTLINK;
PROCEDURE UPDATE_INCIDENTLINK (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_RESP_APPL_ID IN NUMBER, -- not used
P_RESP_ID IN NUMBER, -- not used
P_USER_ID IN NUMBER,
P_LOGIN_ID IN NUMBER,
P_ORG_ID IN NUMBER, -- not used
P_LINK_ID IN NUMBER, -- no change
P_OBJECT_VERSION_NUMBER IN NUMBER, -- new for 1159
P_SUBJECT_ID IN NUMBER, -- new for 1159
P_SUBJECT_TYPE IN VARCHAR2, -- new for 1159
P_LINK_TYPE_ID IN NUMBER, -- new for 1159
P_LINK_TYPE IN VARCHAR2, -- no change
P_OBJECT_ID IN NUMBER, -- new for 1159
P_OBJECT_NUMBER IN VARCHAR2, -- new for 1159
P_OBJECT_TYPE IN VARCHAR2, -- new for 1159
P_REQUEST_ID IN NUMBER, -- new for 1159
P_PROGRAM_APPLICATION_ID IN NUMBER, -- new for 1159
P_PROGRAM_ID IN NUMBER, -- new for 1159
P_PROGRAM_UPDATE_DATE IN DATE, -- new for 1159
P_FROM_INCIDENT_ID IN NUMBER, -- not used
P_FROM_INCIDENT_NUMBER IN VARCHAR2, -- not used
P_TO_INCIDENT_ID IN NUMBER, -- not used
P_TO_INCIDENT_NUMBER IN VARCHAR2, -- not used
P_LINK_SEGMENT1 IN VARCHAR2,
P_LINK_SEGMENT2 IN VARCHAR2,
P_LINK_SEGMENT3 IN VARCHAR2,
P_LINK_SEGMENT4 IN VARCHAR2,
P_LINK_SEGMENT5 IN VARCHAR2,
P_LINK_SEGMENT6 IN VARCHAR2,
P_LINK_SEGMENT7 IN VARCHAR2,
P_LINK_SEGMENT8 IN VARCHAR2,
P_LINK_SEGMENT9 IN VARCHAR2,
P_LINK_SEGMENT10 IN VARCHAR2,
P_LINK_SEGMENT11 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT12 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT13 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT14 IN VARCHAR2, -- new for 1159
P_LINK_SEGMENT15 IN VARCHAR2, -- new for 1159
P_LINK_CONTEXT IN VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER, -- new for 1159
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INCIDENTLINK_1';
l_link_rec_pub.program_update_date := p_program_update_date;
UPDATE_INCIDENTLINK (
P_API_VERSION => p_api_version,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_RESP_APPL_ID => p_resp_appl_id, -- not used
P_RESP_ID => p_resp_id, -- not used
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id, -- not used
P_LINK_ID => p_link_id, -- no change
P_OBJECT_VERSION_NUMBER => p_object_version_number, -- new for 1159
P_LINK_REC => l_link_rec_pub,
X_RETURN_STATUS => x_return_status,
X_OBJECT_VERSION_NUMBER => x_object_version_number, -- new for 1159
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data ) ;
END UPDATE_INCIDENTLINK;
PROCEDURE UPDATE_INCIDENTLINK (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_RESP_APPL_ID IN NUMBER, -- not used
P_RESP_ID IN NUMBER, -- not used
P_USER_ID IN NUMBER,
P_LOGIN_ID IN NUMBER,
P_ORG_ID IN NUMBER, -- not used
P_LINK_ID IN NUMBER, -- no change
P_OBJECT_VERSION_NUMBER IN NUMBER, -- new for 1159
P_LINK_REC IN CS_INCIDENT_LINK_REC_TYPE,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER, -- new for 1159
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INCIDENTLINK_2';
SAVEPOINT UPDATE_INCIDENTLINK_PUB;
l_link_rec.program_update_date := p_link_rec.PROGRAM_UPDATE_DATE;
CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
P_API_VERSION => 2.0,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_RESP_APPL_ID => p_resp_appl_id,
P_RESP_ID => p_resp_id,
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id,
P_LINK_ID => p_link_id,
P_OBJECT_VERSION_NUMBER => p_object_version_number,
P_LINK_REC => l_link_rec,
X_RETURN_STATUS => x_return_status,
X_OBJECT_VERSION_NUMBER => x_object_version_number,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data );
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
END UPDATE_INCIDENTLINK;
PROCEDURE DELETE_INCIDENTLINK (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_RESP_APPL_ID IN NUMBER, -- not used
P_RESP_ID IN NUMBER, -- not used
P_USER_ID IN NUMBER, -- not used
P_LOGIN_ID IN NUMBER,
P_ORG_ID IN NUMBER, -- not used
P_LINK_ID IN NUMBER, -- no change
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INCIDENTLINK';
SAVEPOINT DELETE_INCIDENTLINK_PUB;
CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
P_API_VERSION => l_invoked_version,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL, -- not used
P_RESP_APPL_ID => p_resp_appl_id, -- not used
P_RESP_ID => p_resp_id, -- not used
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id, -- not used
P_LINK_ID => p_link_id, -- no change
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data );
ROLLBACK TO DELETE_INCIDENTLINK_PUB;
ROLLBACK TO DELETE_INCIDENTLINK_PUB;
ROLLBACK TO DELETE_INCIDENTLINK_PUB;
END DELETE_INCIDENTLINK;
Select subject_id, object_id, object_number
Into l_from_incident_id, l_to_object_id, l_to_object_number
From cs_incident_links
Where link_id = lx_link_id;
Select link_id
Into lx_link_id
From cs_incident_links_ext
Where from_incident_id = l_from_incident_id
And to_object_id = l_to_object_id
And to_object_number = l_to_object_number;
PROCEDURE UPDATE_INCIDENTLINK_EXT (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_RESP_APPL_ID IN NUMBER,
P_RESP_ID IN NUMBER,
P_USER_ID IN NUMBER,
P_LOGIN_ID IN NUMBER,
P_ORG_ID IN NUMBER,
P_LINK_ID IN NUMBER,
P_FROM_INCIDENT_ID IN NUMBER,
P_FROM_INCIDENT_NUMBER IN VARCHAR2,
P_TO_OBJECT_ID IN NUMBER,
P_TO_OBJECT_TYPE IN VARCHAR2,
P_LINK_SEGMENT1 IN VARCHAR2,
P_LINK_SEGMENT2 IN VARCHAR2,
P_LINK_SEGMENT3 IN VARCHAR2,
P_LINK_SEGMENT4 IN VARCHAR2,
P_LINK_SEGMENT5 IN VARCHAR2,
P_LINK_SEGMENT6 IN VARCHAR2,
P_LINK_SEGMENT7 IN VARCHAR2,
P_LINK_SEGMENT8 IN VARCHAR2,
P_LINK_SEGMENT9 IN VARCHAR2,
P_LINK_SEGMENT10 IN VARCHAR2,
P_LINK_CONTEXT IN VARCHAR2 )
IS
l_api_name CONSTANT VARCHAR2(30) := 'update_incidentlink_ext';
select *
from cs_incident_links_ext
where link_id = p_link_id;
Select link_id, object_version_number
Into l_derived_internal_link_id, l_object_version_number
From Cs_Incident_Links
Where subject_id = l_ext_link_rec.from_incident_id
And subject_type = 'SR'
And object_id = l_ext_link_rec.to_object_id
And object_type = l_ext_link_rec.to_object_type
And end_date_active is NULL
For update of object_version_number;
Select link_id, object_version_number
Into l_derived_internal_link_id, l_object_version_number
From Cs_Incident_Links
Where object_id = l_ext_link_rec.from_incident_id
And object_type = 'SR'
And subject_id = l_ext_link_rec.to_object_id
And subject_type = l_ext_link_rec.to_object_type
And end_date_active is NULL
For update of object_version_number;
Select incident_id
Into l_from_incident_id
From cs_incidents_all_b
Where incident_number = p_from_incident_number;
CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
P_API_VERSION => 1.2,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_RESP_APPL_ID => p_resp_appl_id,
P_RESP_ID => p_resp_id,
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id,
P_LINK_ID => l_derived_internal_link_id,
P_OBJECT_VERSION_NUMBER => l_object_version_number,
P_LINK_REC => l_link_rec_pvt,
X_RETURN_STATUS => x_return_status,
X_OBJECT_VERSION_NUMBER => lx_object_version_number,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data);
END UPDATE_INCIDENTLINK_EXT;
PROCEDURE DELETE_INCIDENTLINK_EXT (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_RESP_APPL_ID IN NUMBER,
P_RESP_ID IN NUMBER,
P_USER_ID IN NUMBER,
P_LOGIN_ID IN NUMBER,
P_ORG_ID IN NUMBER,
P_LINK_ID IN NUMBER )
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_incidentlink_ext';
-- Cursor to fetch the details of the external link to be deleted
cursor c_ext_link is
select * from cs_incident_links_ext
where link_id = p_link_id;
Select link_id
Into l_derived_internal_link_id
From Cs_Incident_Links
Where subject_id = l_ext_link_rec.from_incident_id
And subject_type = 'SR'
And object_id = l_ext_link_rec.to_object_id
And object_type = l_ext_link_rec.to_object_type
And end_date_active is NULL;
Select link_id
Into l_derived_internal_link_id
From Cs_Incident_Links
Where object_id = l_ext_link_rec.from_incident_id
And object_type = 'SR'
And subject_id = l_ext_link_rec.to_object_id
And subject_type = l_ext_link_rec.to_object_type
And end_date_active is NULL;
CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
P_API_VERSION => 1.2,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL, -- not used
P_RESP_APPL_ID => p_resp_appl_id, -- not used
P_RESP_ID => p_resp_id, -- not used
P_USER_ID => p_user_id,
P_LOGIN_ID => p_login_id,
P_ORG_ID => p_org_id, -- not used
P_LINK_ID => l_derived_internal_link_id,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data,
P_LINK_ID_EXT => p_link_id ); -- Added for bugs 2972584 and 2972611, to pass the external link ID
END DELETE_INCIDENTLINK_EXT;