[Home] [Help]
203: lx_subject_type_name VARCHAR2(90);
204: lx_object_type_name VARCHAR2(90);
205:
206: -- local variables for the Business events OUT parameters; Using local variables for
207: -- the standard out params, return_status, msg_count and msg_data because, if the
208: -- BES API return back a failure status, it means only that the BES raise event has
209: -- failed, and has nothing to do with the creation of the link.
210:
211: -- Link Rec. to store the reciprocal link details to be passed to the BES wrapper to
237: --Added for call to SR Child Audit API after creation of incident link --anmukher --09/12/03
238: lx_audit_id NUMBER;
239:
240: BEGIN
241: -- Standard start of API savepoint
242: SAVEPOINT Create_IncidentLink_PVT;
243:
244: -- Initialize message list if p_init_msg_list is set to TRUE
245: IF FND_API.To_Boolean(p_init_msg_list) THEN
253: ELSIF p_api_version = 2.0 THEN
254: l_invoked_version := 2.0;
255: END IF;
256:
257: -- Standard call to check for call compatibility
258: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
259: l_api_name, G_PKG_NAME) THEN
260: FND_MSG_PUB.Count_And_Get(
261: p_count => x_msg_count,
1117:
1118: END IF; -- if (l_invoked_version >= 2.0)
1119: -- END IF; -- if FND_API.To_Boolean(p_commit)
1120:
1121: -- Standard check of p_commit
1122: IF FND_API.To_Boolean(p_commit) THEN
1123: COMMIT WORK;
1124: END IF ;
1125: -- Moved the IF - END IF of the p_commit here since the business events were not raised
1125: -- Moved the IF - END IF of the p_commit here since the business events were not raised
1126: -- if the p_commit parameter is FALSE. This issue is faced by HTML service since the
1127: -- API is called with p_commit= false -- spusegao 12/15/2003
1128:
1129: -- Standard call to get message count and if count is 1, get message info
1130: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1354: lx_msg_data VARCHAR2(4000);
1355: lx_audit_id NUMBER;
1356:
1357: BEGIN
1358: -- Standard start of API savepoint
1359: SAVEPOINT Update_IncidentLink_PVT;
1360:
1361: -- Initialize message list if p_init_msg_list is set to TRUE
1362: IF FND_API.To_Boolean(p_init_msg_list) THEN
1369: ELSIF p_api_version = 2.0 THEN
1370: l_invoked_version := 2.0;
1371: END IF;
1372:
1373: -- Standard call to check for call compatibility, changed so that both versions 1.2 and 2.0 may be allowed
1374: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
1375: l_api_name, G_PKG_NAME) THEN
1376: FND_MSG_PUB.Count_And_Get(
1377: p_count => x_msg_count,
1742: END IF; -- (p_link_rec.link_id_ext IS NULL)
1743:
1744: IF (l_link_rec.subject_type <> 'SR' OR l_link_rec.object_type <> 'SR') THEN
1745: -- If the external link is being updated to an external link, then update the old external link record with the new values
1746: -- Standard start of API savepoint
1747: SAVEPOINT Update_IncidentLink_Ext_PVT;
1748:
1749: BEGIN
1750: Update cs_incident_links_ext
1779: END;
1780:
1781: ELSE
1782: -- If the external link is being updated to an internal link, then delete the old external link record
1783: -- Standard start of API savepoint
1784: SAVEPOINT Delete_IncidentLink_Ext_PVT;
1785:
1786: BEGIN
1787: Delete From cs_incident_links_ext
1836: COMMIT WORK;
1837: END IF;
1838:
1839: --
1840: -- Standard call to get message count and if count is 1, get message info
1841: --
1842: FND_MSG_PUB.Count_And_Get(
1843: p_count => x_msg_count,
1844: p_data => x_msg_data);
1945: -- Commented out to allow this procedure to be called with both the versions 1.2 and 2.0 (bugs 2972584 and 2972611)
1946: --l_api_version CONSTANT NUMBER := 2.0;
1947:
1948: -- local variables for the Business events OUT parameters; Using local variables for
1949: -- the standard out params, return_status, msg_count and msg_data because, if the
1950: -- BES API return back a failure status, it means only that the BES raise event has
1951: -- failed, and has nothing to do with the creation of the link.
1952: lx_wf_process_id NUMBER; -- not used in links BES, but in calls to BES from
1953: -- the SR API, this is used to stamp the WF process
1979: -- Variable to store the value passed-in as API version
1980: l_invoked_version NUMBER;
1981:
1982: BEGIN
1983: -- Standard start of API savepoint
1984: SAVEPOINT Delete_IncidentLink_PVT;
1985:
1986: -- Initialize message list if p_init_msg_list is set to TRUE
1987: IF FND_API.To_Boolean(p_init_msg_list) THEN
1994: ELSIF p_api_version = 2.0 THEN
1995: l_invoked_version := 2.0;
1996: END IF;
1997:
1998: -- Standard call to check for call compatibility, changed so that both versions 1.2 and 2.0 may be allowed
1999: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
2000: l_api_name, G_PKG_NAME) THEN
2001: FND_MSG_PUB.Count_And_Get(
2002: p_count => x_msg_count,
2119: END IF; -- ( p_link_id_ext IS NULL )
2120:
2121: -- Delete the external link from the _EXT table
2122:
2123: -- Standard start of API savepoint
2124: SAVEPOINT Delete_IncidentLink_Ext_PVT;
2125:
2126: BEGIN
2127: Delete From cs_incident_links_ext
2456:
2457: --------------------------------------------------------------------------------
2458: -- Procedure Name : DELETE_INCIDENTLINK
2459: --
2460: -- Parameters (other than standard ones)
2461: -- IN
2462: -- p_object_type : Type of object for which this procedure is
2463: -- being called. (Here it will be 'SR')
2464: -- p_processing_set_id : Id that helps the API in identifying the