The following lines contain the word 'select', 'insert', 'update' or 'delete':
P_PROGRAM_UPDATE_DATE IN DATE, -- new for 1159
P_FROM_INCIDENT_ID IN NUMBER, -- obsoleted for 1159
P_TO_INCIDENT_ID IN NUMBER, -- 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,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
X_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER, -- new for 1159
X_RECIPROCAL_LINK_ID OUT NOCOPY NUMBER, -- new for 1159
X_LINK_ID OUT NOCOPY NUMBER )
IS
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INCIDENTLINK';
l_link_rec.PROGRAM_UPDATE_DATE := p_program_update_date; -- new for 1159
l_select_id VARCHAR2(30);
l_select_name VARCHAR2(240);
select count(*)
into l_count
from cs_incident_links
where link_id = p_link_rec.link_id;
select cs_incident_links_s.nextval
into l_link_id
from dual;
select select_id, select_name , from_table, name
into l_select_id, l_select_name, l_from_table, lx_subject_type_name
from jtf_objects_vl
where object_code = p_link_rec.subject_type;
EXECUTE IMMEDIATE 'select max(' || l_select_name ||
') from ' || l_from_table||
' where ' || l_select_id || ' = :p1'
INTO lx_subject_number USING p_link_rec.subject_id;
select max(name)
into lx_object_type_name
from jtf_objects_vl
where object_code = p_link_rec.object_type;
select decode(p_link_rec.link_type_id,
6,'REF',
4,'DUP',
1, 'PARENT',
2, 'CHILD',
NULL)
into l_link_type
from dual;
INSERT INTO CS_INCIDENT_LINKS (
link_id, subject_id, subject_type,
object_id, object_type, object_number,
link_type_id, reciprocal_link_id, request_id,
program_application_id, program_id, program_update_date,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, attribute1,
attribute2, attribute3, attribute4,
attribute5, attribute6, attribute7,
attribute8, attribute9, attribute10,
attribute11, attribute12, attribute13,
attribute14, attribute15, context,
object_version_number, from_incident_id, from_incident_number,
link_type, to_incident_id, to_incident_number)
VALUES (
l_link_id, p_link_rec.subject_id, p_link_rec.subject_type,
p_link_rec.object_id, p_link_rec.object_type, lx_object_number,
p_link_rec.link_type_id, NULL, p_link_rec.request_id,
p_link_rec.program_application_id, p_link_rec.program_id, p_link_rec.program_update_date,
SYSDATE, p_user_id, p_login_id,
SYSDATE, p_user_id, l_link_int_rec.link_segment1,
l_link_int_rec.link_segment2, l_link_int_rec.link_segment3, l_link_int_rec.link_segment4,
l_link_int_rec.link_segment5, l_link_int_rec.link_segment6, l_link_int_rec.link_segment7,
l_link_int_rec.link_segment8, l_link_int_rec.link_segment9, l_link_int_rec.link_segment10,
l_link_int_rec.link_segment11, l_link_int_rec.link_segment12, l_link_int_rec.link_segment13,
l_link_int_rec.link_segment14, l_link_int_rec.link_segment15, l_link_int_rec.link_context,
1, l_from_incident_id, l_from_incident_number,
l_link_type, l_to_incident_id, l_to_incident_number)
RETURNING link_id,object_version_number into x_link_id,x_object_version_number ;
P_updated_entity_code => 'SR_LINK',
p_updated_entity_id => x_link_id,
p_entity_update_date => sysdate,
p_entity_activity_code => 'C' ,
x_audit_id => lx_audit_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count ,
x_msg_data => lx_msg_data );
select reciprocal_link_type_id
into l_reciprocal_link_type_id
from cs_sr_link_types_b
where link_type_id = p_link_rec.link_type_id;
select decode(l_reciprocal_link_type_id,
6,'REF',
4,'DUP',
1, 'PARENT',
2, 'CHILD',
NULL)
into l_link_type
from dual;
INSERT INTO CS_INCIDENT_LINKS (
link_id, subject_id, subject_type,
object_id, object_type, object_number,
link_type_id, reciprocal_link_id, request_id,
program_application_id, program_id, program_update_date,
last_update_date, last_updated_by, last_update_login,
creation_date, created_by, attribute1,
attribute2, attribute3, attribute4,
attribute5, attribute6, attribute7,
attribute8, attribute9, attribute10,
attribute11, attribute12, attribute13,
attribute14, attribute15, context,
object_version_number, from_incident_id, from_incident_number,
link_type, to_incident_id, to_incident_number )
VALUES (
cs_incident_links_s.nextval, p_link_rec.object_id, p_link_rec.object_type,
p_link_rec.subject_id, p_link_rec.subject_type, lx_subject_number,
l_reciprocal_link_type_id, X_LINK_ID, p_link_rec.request_id,
p_link_rec.program_application_id, p_link_rec.program_id, p_link_rec.program_update_date,
SYSDATE, p_user_id, p_login_id,
SYSDATE, p_user_id, l_link_int_rec.link_segment1,
l_link_int_rec.link_segment2, l_link_int_rec.link_segment3, l_link_int_rec.link_segment4,
l_link_int_rec.link_segment5, l_link_int_rec.link_segment6, l_link_int_rec.link_segment7,
l_link_int_rec.link_segment8, l_link_int_rec.link_segment9, l_link_int_rec.link_segment10,
l_link_int_rec.link_segment11, l_link_int_rec.link_segment12, l_link_int_rec.link_segment13,
l_link_int_rec.link_segment14, l_link_int_rec.link_segment15, l_link_int_rec.link_context,
1, l_from_incident_id, l_from_incident_number,
l_link_type, l_to_incident_id, l_to_incident_number)
RETURNING link_id into x_reciprocal_link_id ;
update cs_incident_links
set reciprocal_link_id = x_reciprocal_link_id
where link_id = l_link_id;
P_updated_entity_code => 'SR_LINK',
p_updated_entity_id => x_reciprocal_link_id,
p_entity_update_date => sysdate,
p_entity_activity_code => 'C' ,
x_audit_id => lx_audit_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count ,
x_msg_data => lx_msg_data );
l_links_ext_rec.last_update_date := SYSDATE;
l_links_ext_rec.last_updated_by := p_user_id;
l_links_ext_rec.last_update_login := p_login_id;
SELECT link_Id
INTO l_link_id
FROM cs_incident_links_ext
WHERE from_incident_id = l_links_ext_rec.from_incident_id
AND (to_object_id = l_links_ext_rec.to_object_id OR
to_object_number = l_links_ext_rec.to_object_number)
AND to_object_type = l_links_ext_rec.to_object_type;
INSERT INTO cs_incident_links_ext (
link_id,
from_incident_id,
to_object_id,
to_object_number,
to_object_type,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
context,
object_version_number)
VALUES (
cs_incident_links_ext_s.NEXTVAL,
l_links_ext_rec.from_incident_id,
l_links_ext_rec.to_object_id,
l_links_ext_rec.to_object_number,
l_links_ext_rec.to_object_type,
l_links_ext_rec.last_update_date,
l_links_ext_rec.last_updated_by,
l_links_ext_rec.last_update_login,
l_links_ext_rec.creation_date,
l_links_ext_rec.created_by,
l_links_ext_rec.attribute1,
l_links_ext_rec.attribute2,
l_links_ext_rec.attribute3,
l_links_ext_rec.attribute4,
l_links_ext_rec.attribute5,
l_links_ext_rec.attribute6,
l_links_ext_rec.attribute7,
l_links_ext_rec.attribute8,
l_links_ext_rec.attribute9,
l_links_ext_rec.attribute10,
l_links_ext_rec.context,
l_links_ext_rec.object_version_number);
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,
P_COMMIT IN VARCHAR2,
P_VALIDATION_LEVEL IN NUMBER,
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_OBJECT_ID IN NUMBER, -- new for 1159
P_OBJECT_NUMBER IN VARCHAR2, -- new for 1159
P_OBJECT_TYPE IN VARCHAR2, -- new for 1159
P_LINK_TYPE_ID IN NUMBER, -- new for 1159
P_LINK_TYPE IN VARCHAR2, -- no change
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, -- obsoleted for 1159
P_TO_INCIDENT_ID IN NUMBER, -- 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,
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';
l_link_rec.PROGRAM_UPDATE_DATE := p_program_update_date; -- new for 1159
UPDATE_INCIDENTLINK (
P_API_VERSION => p_api_version,
P_INIT_MSG_LIST => p_init_msg_list,
P_COMMIT => p_commit,
P_VALIDATION_LEVEL => p_validation_level,
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,
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_VALIDATION_LEVEL IN NUMBER,
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_1';
l_select_id VARCHAR2(30);
l_select_name VARCHAR2(240);
select *
from cs_incident_links
where link_id = p_link_id
--and object_version_number = p_object_version_number
for update nowait;
SAVEPOINT Update_IncidentLink_PVT;
G_OPERATION_MODE := 'UPDATE';
FND_MESSAGE.Set_Name('CS', 'CS_RECORD_HAS_BEEN_UPDATED');
UPDATE CS_INCIDENT_LINKS SET
end_date_active = SYSDATE,
last_update_date = SYSDATE,
last_updated_by = p_user_id,
last_update_login = p_login_id,
object_version_number = object_version_number + 1
WHERE link_id = p_link_id
AND object_version_number = p_object_version_number;
P_updated_entity_code => 'SR_LINK',
p_updated_entity_id => p_link_id,
p_entity_update_date => sysdate,
p_entity_activity_code => 'U' , /* 'D' (not 'U'), because the link is being end-dated (functional delete) -- Changed to 'U' spusegao 10-17-2003 */
x_audit_id => lx_audit_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count ,
x_msg_data => lx_msg_data );
UPDATE CS_INCIDENT_LINKS SET
end_date_active = SYSDATE,
last_update_date = SYSDATE,
last_updated_by = p_user_id,
last_update_login = p_login_id,
object_version_number = object_version_number + 1
where link_id = l_old_values_rec.reciprocal_link_id;
P_updated_entity_code => 'SR_LINK',
p_updated_entity_id => l_old_values_rec.reciprocal_link_id,
p_entity_update_date => sysdate,
p_entity_activity_code => 'U' , /* 'D' (not 'U'), because the link is being end-dated (functional delete) -- Changed to 'U' spusegao 10-17-2003 */
x_audit_id => lx_audit_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count ,
x_msg_data => lx_msg_data );
l_link_rec.program_update_date := nvl(p_link_rec.program_update_date,
l_old_values_rec.program_update_date );
Select link_id
Into l_Derived_External_Link_Id
From cs_incident_links_ext
Where from_incident_id = l_old_values_rec.subject_id
And (to_object_id = l_old_values_rec.object_id OR
to_object_number = l_old_values_rec.object_number)
And to_object_type = l_old_values_rec.object_type;
Select link_id
Into l_Derived_External_Link_Id
From cs_incident_links_ext
Where from_incident_id = l_old_values_rec.object_id
And to_object_id = l_old_values_rec.subject_id
And to_object_type = l_old_values_rec.subject_type;
SAVEPOINT Update_IncidentLink_Ext_PVT;
Update cs_incident_links_ext
Set from_incident_id = l_link_rec.from_incident_id,
to_object_id = l_link_rec.object_id,
to_object_number = l_link_rec.object_number,
to_object_type = l_link_rec.object_type,
last_update_date = sysdate,
last_updated_by = p_user_id,
last_update_login = p_login_id,
attribute1 = l_link_rec.link_segment1,
attribute2 = l_link_rec.link_segment2,
attribute3 = l_link_rec.link_segment3,
attribute4 = l_link_rec.link_segment4,
attribute5 = l_link_rec.link_segment5,
attribute6 = l_link_rec.link_segment6,
attribute7 = l_link_rec.link_segment7,
attribute8 = l_link_rec.link_segment8,
attribute9 = l_link_rec.link_segment9,
attribute10 = l_link_rec.link_segment10,
context = l_link_rec.link_context
where link_id = nvl(p_link_rec.link_id_ext,l_Derived_External_Link_Id);
Rollback to Update_IncidentLink_Ext_PVT;
SAVEPOINT Delete_IncidentLink_Ext_PVT;
Delete From cs_incident_links_ext
Where link_id = nvl(p_link_rec.link_id_ext, l_Derived_External_Link_Id);
Rollback to Delete_IncidentLink_Ext_PVT;
ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
ROLLBACK TO UPDATE_INCIDENTLINK_PVT;
END update_incidentlink;
PROCEDURE DELETE_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_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL, -- not used
P_RESP_APPL_ID IN NUMBER := NULL, -- not used
P_RESP_ID IN NUMBER := NULL, -- not used
P_USER_ID IN NUMBER := NULL,
P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
P_ORG_ID IN NUMBER := NULL, -- 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_1';
CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
P_API_VERSION => P_API_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,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data,
P_LINK_ID_EXT => NULL ); -- Added for bugs 2972584 and 2972611, to pass the external link ID
PROCEDURE DELETE_INCIDENTLINK (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_VALIDATION_LEVEL IN NUMBER, -- not used
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
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_LINK_ID_EXT IN NUMBER ) -- Added for bugs 2972584 and 2972611
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INCIDENTLINK';
select *
from cs_incident_links
where link_id = p_link_id;
-- the reci. link being deleted
l_subject_number VARCHAR2(90);
SAVEPOINT Delete_IncidentLink_PVT;
UPDATE CS_INCIDENT_LINKS SET
end_date_active = SYSDATE,
last_update_date = SYSDATE,
last_updated_by = p_user_id,
last_update_login = p_login_id,
object_version_number = object_version_number + 1
WHERE link_id IN ( p_link_id, c1rec.reciprocal_link_id );
Select link_id
Into l_Derived_External_Link_Id
From cs_incident_links_ext
Where from_incident_id = c1rec.subject_id
And (to_object_id = c1rec.object_id OR
to_object_number = c1rec.object_number)
And to_object_type = c1rec.object_type;
Select link_id
Into l_Derived_External_Link_Id
From cs_incident_links_ext
Where from_incident_id = c1rec.object_id
And to_object_id = c1rec.subject_id
And to_object_type = c1rec.subject_type;
SAVEPOINT Delete_IncidentLink_Ext_PVT;
Delete From cs_incident_links_ext
Where link_id = nvl(p_link_id_ext, l_Derived_External_Link_Id);
Rollback to Delete_IncidentLink_Ext_PVT;
select max(incident_number)
into l_subject_number
from cs_incidents_all_b
where incident_id = c1rec.subject_id;
l_link_rec.PROGRAM_UPDATE_DATE := c1rec.program_update_date;
p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
p_incident_number => l_subject_number,
p_user_id => p_user_id,
p_resp_id => p_resp_id,
p_resp_appl_id => p_resp_appl_id,
p_link_rec => l_link_rec,
p_wf_process_id => NULL, -- using default value
p_owner_id => NULL, -- using default value
p_wf_manual_launch => 'N' , -- using default value
x_wf_process_id => lx_wf_process_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data );
-- reciprocal link is deleted
-- fetch the reciprocal link_type_id to be passed to the BES API. This select has to be
-- a success, but to avoid no data found, using max
select max(reciprocal_link_type_id)
into l_reciprocal_link_type_id
from cs_sr_link_types_b
where link_type_id = c1rec.link_type_id;
l_link_rec.PROGRAM_UPDATE_DATE := c1rec.program_update_date;
p_event_code => 'RELATIONSHIP_DELETE_FOR_SR',
p_incident_number => c1rec.object_number,
p_user_id => p_user_id,
p_resp_id => p_resp_id,
p_resp_appl_id => p_resp_appl_id,
p_link_rec => l_link_rec,
p_wf_process_id => NULL, -- using default value
p_owner_id => NULL, -- using default value
p_wf_manual_launch => 'N' , -- using default value
x_wf_process_id => lx_wf_process_id,
x_return_status => lx_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data );
ROLLBACK TO SAVEPOINT Delete_IncidentLink_PVT;
ROLLBACK TO SAVEPOINT Delete_IncidentLink_PVT;
END DELETE_INCIDENTLINK;
PROCEDURE UPDATE_INCIDENTLINK_EXT (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_VALIDATION_LEVEL IN NUMBER,
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_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,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
BEGIN
NULL;
END update_incidentlink_ext;
PROCEDURE DELETE_INCIDENTLINK_EXT (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_VALIDATION_LEVEL IN NUMBER,
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,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2 )
IS
BEGIN
NULL;
END delete_incidentlink_ext;
* This procedure physically deletes all the links attached to a service
* reqeust including the reciprocal links. The subject_id and object_id are
* used to identify all the links in which an SR is participating.
* @param p_object_type Type of object for which this procedure is being
* called. (Here it will be 'SR')
* @param p_processing_set_id Id that helps the API in identifying the set
* of SRs for which the child objects have to be deleted.
* @rep:scope internal
* @rep:product CS
* @rep:displayname Delete Service Request Links
*/
PROCEDURE Delete_IncidentLink
(
p_api_version_number IN NUMBER := 1.0
, p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_object_type IN VARCHAR2
, p_processing_set_id IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
--------------------------------------------------------------------------------
L_API_VERSION CONSTANT NUMBER := 1.0;
L_API_NAME CONSTANT VARCHAR2(30) := 'DELETE_INCIDENTLINK';
DELETE /*+ index(l) */ cs_incident_links l
WHERE
link_id IN
(
SELECT /*+ unnest no_semijoin leading(t) use_concat cardinality(10) */
l.link_id
FROM
jtf_object_purge_param_tmp t
, cs_incident_links l
WHERE
NVL(t.purge_status, 'S') = 'S'
AND t.processing_set_id = p_processing_set_id
AND
(
l.subject_id = t.object_id
AND l.subject_type = 'SR'
OR l.object_id = t.object_id
AND l.object_type = 'SR'
)
);
END Delete_IncidentLink;