[Home] [Help]
230: -- Record type variable to store the ext link details.
231: l_links_ext_rec CS_INCIDENTLINKS_PVT.CS_INCIDENT_LINK_EXT_REC_TYPE;
232:
233: -- For bugs 2972584 and 2972611
234: -- Record type variable to store the values that will be inserted into the cs_incident_links table
235: l_link_int_rec CS_INCIDENT_LINK_REC_TYPE;
236:
237: --Added for call to SR Child Audit API after creation of incident link --anmukher --09/12/03
238: lx_audit_id NUMBER;
276: p_link_rec.link_id IS NOT NULL ) then
277:
278: select count(*)
279: into l_count
280: from cs_incident_links
281: where link_id = p_link_rec.link_id;
282:
283: if ( l_count > 0 ) then
284: -- link_id is already used. return error.
292: else
293: l_link_id := p_link_rec.link_id;
294: end if;
295: else
296: select cs_incident_links_s.nextval
297: into l_link_id
298: from dual;
299: end if;
300:
704: End If;
705:
706:
707: -- Create the main link
708: INSERT INTO CS_INCIDENT_LINKS (
709: link_id, subject_id, subject_type,
710: object_id, object_type, object_number,
711: link_type_id, reciprocal_link_id, request_id,
712: program_application_id, program_id, program_update_date,
799: -- id of the first link created.(iii) the link_type_id is the reciprocal
800: -- link_type_id of the main link link_type_id
801: --
802:
803: INSERT INTO CS_INCIDENT_LINKS (
804: link_id, subject_id, subject_type,
805: object_id, object_type, object_number,
806: link_type_id, reciprocal_link_id, request_id,
807: program_application_id, program_id, program_update_date,
814: attribute14, attribute15, context,
815: object_version_number, from_incident_id, from_incident_number,
816: link_type, to_incident_id, to_incident_number )
817: VALUES (
818: cs_incident_links_s.nextval, p_link_rec.object_id, p_link_rec.object_type,
819: p_link_rec.subject_id, p_link_rec.subject_type, lx_subject_number,
820: l_reciprocal_link_type_id, X_LINK_ID, p_link_rec.request_id,
821: p_link_rec.program_application_id, p_link_rec.program_id, p_link_rec.program_update_date,
822: SYSDATE, p_user_id, p_login_id,
831: RETURNING link_id into x_reciprocal_link_id ;
832:
833: -- update the main link's reciprocal link id with the link id of the reciprocal rec. just
834: -- created.
835: update cs_incident_links
836: set reciprocal_link_id = x_reciprocal_link_id
837: where link_id = l_link_id;
838:
839: --Added call to SR Child Audit API for auditing creation of SR Link --anmukher --09/12/03
947:
948: BEGIN
949: SELECT link_Id
950: INTO l_link_id
951: FROM cs_incident_links_ext
952: WHERE from_incident_id = l_links_ext_rec.from_incident_id
953: AND (to_object_id = l_links_ext_rec.to_object_id OR
954: to_object_number = l_links_ext_rec.to_object_number)
955: AND to_object_type = l_links_ext_rec.to_object_type;
955: AND to_object_type = l_links_ext_rec.to_object_type;
956:
957: EXCEPTION
958: WHEN NO_DATA_FOUND THEN
959: INSERT INTO cs_incident_links_ext (
960: link_id,
961: from_incident_id,
962: to_object_id,
963: to_object_number,
979: attribute10,
980: context,
981: object_version_number)
982: VALUES (
983: cs_incident_links_ext_s.NEXTVAL,
984: l_links_ext_rec.from_incident_id,
985: l_links_ext_rec.to_object_id,
986: l_links_ext_rec.to_object_number,
987: l_links_ext_rec.to_object_type,
1332:
1333: -- cursor to fetch the existing link details
1334: cursor c_old_values is
1335: select *
1336: from cs_incident_links
1337: where link_id = p_link_id
1338: --and object_version_number = p_object_version_number
1339: for update nowait;
1340:
1493: -- validations for the new link data.
1494: -- If condition added for bugs 2972584 and 2972611
1495: -- End-date the internal link and its reciprocal only if an internal link ID has been passed
1496: If (p_link_id IS NOT NULL) Then -- Added for bugs 2972584 and 2972611
1497: UPDATE CS_INCIDENT_LINKS SET
1498: end_date_active = SYSDATE,
1499: last_update_date = SYSDATE,
1500: last_updated_by = p_user_id,
1501: last_update_login = p_login_id,
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
1525:
1526: -- end date the reciprocal link as well has to be a success
1527: UPDATE CS_INCIDENT_LINKS SET
1528: end_date_active = SYSDATE,
1529: last_update_date = SYSDATE,
1530: last_updated_by = p_user_id,
1531: last_update_login = p_login_id,
1704: IF (p_link_rec.link_id_ext IS NULL) THEN
1705: Begin
1706: Select link_id
1707: Into l_Derived_External_Link_Id
1708: From cs_incident_links_ext
1709: Where from_incident_id = l_old_values_rec.subject_id
1710: And (to_object_id = l_old_values_rec.object_id OR
1711: to_object_number = l_old_values_rec.object_number)
1712: And to_object_type = l_old_values_rec.object_type;
1716: -- Check if the external link was created from the reciprocal link
1717: Begin
1718: Select link_id
1719: Into l_Derived_External_Link_Id
1720: From cs_incident_links_ext
1721: Where from_incident_id = l_old_values_rec.object_id
1722: And to_object_id = l_old_values_rec.subject_id
1723: And to_object_type = l_old_values_rec.subject_type;
1724: Exception
1746: -- Standard start of API savepoint
1747: SAVEPOINT Update_IncidentLink_Ext_PVT;
1748:
1749: BEGIN
1750: Update cs_incident_links_ext
1751: Set from_incident_id = l_link_rec.from_incident_id,
1752: to_object_id = l_link_rec.object_id,
1753: to_object_number = l_link_rec.object_number,
1754: to_object_type = l_link_rec.object_type,
1783: -- Standard start of API savepoint
1784: SAVEPOINT Delete_IncidentLink_Ext_PVT;
1785:
1786: BEGIN
1787: Delete From cs_incident_links_ext
1788: Where link_id = nvl(p_link_rec.link_id_ext, l_Derived_External_Link_Id);
1789:
1790: EXCEPTION
1791: When OTHERS THEN
1919: p_count => x_msg_count,
1920: p_data => x_msg_data);
1921: END;
1922:
1923: -- When deleting a link, the link record is not removed from the the table cs_incident_links, it is end dated.
1924: -- In the case of an external link, it is deleted from the table cs_incident_links_ext.
1925:
1926: PROCEDURE DELETE_INCIDENTLINK (
1927: P_API_VERSION IN NUMBER,
1920: p_data => x_msg_data);
1921: END;
1922:
1923: -- When deleting a link, the link record is not removed from the the table cs_incident_links, it is end dated.
1924: -- In the case of an external link, it is deleted from the table cs_incident_links_ext.
1925:
1926: PROCEDURE DELETE_INCIDENTLINK (
1927: P_API_VERSION IN NUMBER,
1928: P_INIT_MSG_LIST IN VARCHAR2,
1959: -- get the details of the link records that is to be deleted; this will be used to pass
1960: -- to populate local rec. type l_link_rec
1961: cursor c1 is
1962: select *
1963: from cs_incident_links
1964: where link_id = p_link_id;
1965:
1966: c1rec C1%ROWTYPE;
1967: -- local rec. type that will be passed to the BES API.
2064:
2065:
2066: -- end date the link and its reciprocal, only if an internal link ID was passed (for bugs 2972584 and 2972611)
2067: if ( p_link_id IS NOT NULL) then
2068: UPDATE CS_INCIDENT_LINKS SET
2069: end_date_active = SYSDATE,
2070: last_update_date = SYSDATE,
2071: last_updated_by = p_user_id,
2072: last_update_login = p_login_id,
2075: end if; -- ( p_link_id IS NOT NULL)
2076:
2077: -- For bugs 2972584 and 2972611
2078: -- Check if the details are for an external link, and if no external link ID is passed, then derive the corresponding
2079: -- external link ID so that the same may be deleted from the CS_Incident_Links_Ext table
2080:
2081: IF ( c1rec.subject_type <> 'SR' OR c1rec.object_type <> 'SR' ) THEN
2082:
2083: IF ( p_link_id_ext IS NULL ) THEN
2085: Begin
2086:
2087: Select link_id
2088: Into l_Derived_External_Link_Id
2089: From cs_incident_links_ext
2090: Where from_incident_id = c1rec.subject_id
2091: And (to_object_id = c1rec.object_id OR
2092: to_object_number = c1rec.object_number)
2093: And to_object_type = c1rec.object_type;
2097: -- Check if the external link was created from the reciprocal link
2098: Begin
2099: Select link_id
2100: Into l_Derived_External_Link_Id
2101: From cs_incident_links_ext
2102: Where from_incident_id = c1rec.object_id
2103: And to_object_id = c1rec.subject_id
2104: And to_object_type = c1rec.subject_type;
2105: Exception
2123: -- Standard start of API savepoint
2124: SAVEPOINT Delete_IncidentLink_Ext_PVT;
2125:
2126: BEGIN
2127: Delete From cs_incident_links_ext
2128: Where link_id = nvl(p_link_id_ext, l_Derived_External_Link_Id);
2129:
2130: EXCEPTION
2131: when OTHERS THEN
2363:
2364: end get_doc_details;
2365:
2366: /* The _EXT procedures are obsoleted for 11.5.9. All external links in 11.5.9 will
2367: be stored in table cs_incident_links. Procedures are not dropped, rather their
2368: implementations will be stubbed out for backward compatability
2369: ********************/
2370:
2371: PROCEDURE CREATE_INCIDENTLINK_EXT (
2633: FND_LOG.String
2634: (
2635: fnd_log.level_statement
2636: , L_LOG_MODULE || 'del_sr_link_start'
2637: , 'deleting data in table cs_incident_links'
2638: );
2639: END IF ;
2640:
2641: -- The following statement deletes all the links that are related to
2641: -- The following statement deletes all the links that are related to
2642: -- an SR present in the global temp table jtf_object_purge_param_tmp with
2643: -- purge_status NULL, indicating that the SR is available for purge.
2644:
2645: DELETE /*+ index(l) */ cs_incident_links l
2646: WHERE
2647: link_id IN
2648: (
2649: SELECT /*+ unnest no_semijoin leading(t) use_concat cardinality(10) */
2649: SELECT /*+ unnest no_semijoin leading(t) use_concat cardinality(10) */
2650: l.link_id
2651: FROM
2652: jtf_object_purge_param_tmp t
2653: , cs_incident_links l
2654: WHERE
2655: NVL(t.purge_status, 'S') = 'S'
2656: AND t.processing_set_id = p_processing_set_id
2657: AND
2670: FND_LOG.String
2671: (
2672: fnd_log.level_statement
2673: , L_LOG_MODULE || 'del_sr_link_end'
2674: , 'after deleting data in table cs_incident_links ' || l_row_count
2675: );
2676: END IF ;
2677:
2678: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level