55:
56: --#BUG 3630159
57: --Added to clear message cache in case of API call wrong version.
58: -- Initialize message list if p_init_msg_list is set to TRUE
59: IF FND_API.To_Boolean(p_init_msg_list) THEN
60: FND_MSG_PUB.Initialize;
61: END IF;
62:
63: -- Standard call to check for call compatibility
60: FND_MSG_PUB.Initialize;
61: END IF;
62:
63: -- Standard call to check for call compatibility
64: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
65: l_api_name, G_PKG_NAME) THEN
66: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
62:
63: -- Standard call to check for call compatibility
64: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
65: l_api_name, G_PKG_NAME) THEN
66: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70:
63: -- Standard call to check for call compatibility
64: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
65: l_api_name, G_PKG_NAME) THEN
66: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
67: RAISE FND_API.G_EXC_ERROR;
68: END IF;
69:
70:
71:
69:
70:
71:
72: -- Initialize API return status to success
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: -- If Link Type does not have equivalent 1158 link type, then return error.
76: IF p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD') THEN
77: x_return_status := FND_API.G_RET_STS_ERROR;
73: x_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: -- If Link Type does not have equivalent 1158 link type, then return error.
76: IF p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD') THEN
77: x_return_status := FND_API.G_RET_STS_ERROR;
78: CS_SERVICEREQUEST_UTIL.Add_Invalid_Argument_Msg(
79: p_token_an => l_api_name_full,
80: p_token_v => p_link_type,
81: p_token_p => 'p_link_type' );
79: p_token_an => l_api_name_full,
80: p_token_v => p_link_type,
81: p_token_p => 'p_link_type' );
82:
83: RAISE FND_API.G_EXC_ERROR;
84: END IF; -- p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD')
85:
86: -- Populate the link_type_id attribute of record l_link_rec_pvt
87: Select decode(p_link_type, 'REF', 6,
117: CS_INCIDENTLINKS_PVT.CREATE_INCIDENTLINK (
118: P_API_VERSION => 1.2,
119: P_INIT_MSG_LIST => p_init_msg_list,
120: P_COMMIT => p_commit,
121: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
122: P_RESP_APPL_ID => p_resp_appl_id, -- not used
123: P_RESP_ID => p_resp_id, -- not used
124: P_USER_ID => p_user_id, -- not used
125: P_LOGIN_ID => p_login_id,
131: X_OBJECT_VERSION_NUMBER => lx_object_version_number,
132: X_RECIPROCAL_LINK_ID => lx_reciprocal_link_id,
133: X_LINK_ID => x_link_id );
134:
135: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
132: X_RECIPROCAL_LINK_ID => lx_reciprocal_link_id,
133: X_LINK_ID => x_link_id );
134:
135: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
133: X_LINK_ID => x_link_id );
134:
135: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: -- Standard check of p_commit
134:
135: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: -- Standard check of p_commit
142: IF FND_API.To_Boolean(p_commit) THEN
138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139: END IF;
140:
141: -- Standard check of p_commit
142: IF FND_API.To_Boolean(p_commit) THEN
143: COMMIT WORK;
144: END IF;
145:
146: -- Standard call to get message count and if count is 1, get message info
146: -- Standard call to get message count and if count is 1, get message info
147: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
148:
149: EXCEPTION
150: WHEN FND_API.G_EXC_ERROR THEN
151: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: FND_MSG_PUB.Count_And_Get(
154: p_count => x_msg_count,
148:
149: EXCEPTION
150: WHEN FND_API.G_EXC_ERROR THEN
151: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: FND_MSG_PUB.Count_And_Get(
154: p_count => x_msg_count,
155: p_data => x_msg_data);
156:
153: FND_MSG_PUB.Count_And_Get(
154: p_count => x_msg_count,
155: p_data => x_msg_data);
156:
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160: FND_MSG_PUB.Count_And_Get(
161: p_count => x_msg_count,
155: p_data => x_msg_data);
156:
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
160: FND_MSG_PUB.Count_And_Get(
161: p_count => x_msg_count,
162: p_data => x_msg_data);
163:
162: p_data => x_msg_data);
163:
164: WHEN OTHERS THEN
165: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
167: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
168: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
169: FND_MSG_PUB.ADD;
170: FND_MSG_PUB.Count_And_Get(
285: X_LINK_ID => x_link_id );
286:
287: EXCEPTION
288: WHEN OTHERS THEN
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
291: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
292: FND_MSG_PUB.ADD;
293: FND_MSG_PUB.Count_And_Get(
330:
331: --#BUG 3630159
332: --Added to clear message cache in case of API call wrong version.
333: -- Initialize message list if p_init_msg_list is set to TRUE
334: IF FND_API.To_Boolean(p_init_msg_list) THEN
335: FND_MSG_PUB.Initialize;
336: END IF;
337:
338: -- Standard call to check for call compatibility
335: FND_MSG_PUB.Initialize;
336: END IF;
337:
338: -- Standard call to check for call compatibility
339: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
340: l_api_name, G_PKG_NAME) THEN
341: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
337:
338: -- Standard call to check for call compatibility
339: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
340: l_api_name, G_PKG_NAME) THEN
341: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: -- Initialize API return status to success
338: -- Standard call to check for call compatibility
339: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
340: l_api_name, G_PKG_NAME) THEN
341: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: -- Initialize API return status to success
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
342: RAISE FND_API.G_EXC_ERROR;
343: END IF;
344:
345: -- Initialize API return status to success
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347:
348: -- Populate the private procedure's record type
349: l_link_rec.link_id := p_link_rec.LINK_ID;
350: l_link_rec.subject_id := p_link_rec.SUBJECT_ID;
378: CS_INCIDENTLINKS_PVT.CREATE_INCIDENTLINK (
379: P_API_VERSION => 2.0,
380: P_INIT_MSG_LIST => p_init_msg_list,
381: P_COMMIT => p_commit,
382: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
383: P_RESP_APPL_ID => p_resp_appl_id, -- not used
384: P_RESP_ID => p_resp_id, -- not used
385: P_USER_ID => p_user_id, -- not used
386: P_LOGIN_ID => p_login_id,
392: X_OBJECT_VERSION_NUMBER => x_object_version_number,
393: X_RECIPROCAL_LINK_ID => x_reciprocal_link_id,
394: X_LINK_ID => x_link_id );
395:
396: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
393: X_RECIPROCAL_LINK_ID => x_reciprocal_link_id,
394: X_LINK_ID => x_link_id );
395:
396: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401:
394: X_LINK_ID => x_link_id );
395:
396: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401:
402: -- Standard check of p_commit
395:
396: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR;
398: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401:
402: -- Standard check of p_commit
403: IF FND_API.To_Boolean(p_commit) THEN
399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: END IF;
401:
402: -- Standard check of p_commit
403: IF FND_API.To_Boolean(p_commit) THEN
404: COMMIT WORK;
405: END IF;
406:
407: -- Standard call to get message count and if count is 1, get message info
407: -- Standard call to get message count and if count is 1, get message info
408: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
409:
410: EXCEPTION
411: WHEN FND_API.G_EXC_ERROR THEN
412: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MSG_PUB.Count_And_Get(
415: p_count => x_msg_count,
409:
410: EXCEPTION
411: WHEN FND_API.G_EXC_ERROR THEN
412: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MSG_PUB.Count_And_Get(
415: p_count => x_msg_count,
416: p_data => x_msg_data);
417:
414: FND_MSG_PUB.Count_And_Get(
415: p_count => x_msg_count,
416: p_data => x_msg_data);
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: FND_MSG_PUB.Count_And_Get(
422: p_count => x_msg_count,
416: p_data => x_msg_data);
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: FND_MSG_PUB.Count_And_Get(
422: p_count => x_msg_count,
423: p_data => x_msg_data);
424:
423: p_data => x_msg_data);
424:
425: WHEN OTHERS THEN
426: ROLLBACK TO CREATE_INCIDENTLINK_PUB;
427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
429: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
430: FND_MSG_PUB.ADD;
431: FND_MSG_PUB.Count_And_Get(
438: -- The signature is the same as the pre 11.5.9 version of this procedure.
439:
440: PROCEDURE UPDATE_INCIDENTLINK (
441: P_API_VERSION IN NUMBER,
442: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
443: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
444: P_RESP_APPL_ID IN NUMBER := NULL,
445: P_RESP_ID IN NUMBER := NULL,
446: P_USER_ID IN NUMBER := NULL,
439:
440: PROCEDURE UPDATE_INCIDENTLINK (
441: P_API_VERSION IN NUMBER,
442: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
443: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
444: P_RESP_APPL_ID IN NUMBER := NULL,
445: P_RESP_ID IN NUMBER := NULL,
446: P_USER_ID IN NUMBER := NULL,
447: P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
443: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
444: P_RESP_APPL_ID IN NUMBER := NULL,
445: P_RESP_ID IN NUMBER := NULL,
446: P_USER_ID IN NUMBER := NULL,
447: P_LOGIN_ID IN NUMBER := FND_API.G_MISS_NUM,
448: P_ORG_ID IN NUMBER := NULL,
449: P_LINK_ID IN NUMBER,
450: P_FROM_INCIDENT_ID IN NUMBER := NULL,
451: P_FROM_INCIDENT_NUMBER IN VARCHAR2 := NULL,
451: P_FROM_INCIDENT_NUMBER IN VARCHAR2 := NULL,
452: P_TO_INCIDENT_ID IN NUMBER := NULL,
453: P_TO_INCIDENT_NUMBER IN VARCHAR2 := NULL,
454: P_LINK_TYPE IN VARCHAR2 := NULL,
455: P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
452: P_TO_INCIDENT_ID IN NUMBER := NULL,
453: P_TO_INCIDENT_NUMBER IN VARCHAR2 := NULL,
454: P_LINK_TYPE IN VARCHAR2 := NULL,
455: P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
453: P_TO_INCIDENT_NUMBER IN VARCHAR2 := NULL,
454: P_LINK_TYPE IN VARCHAR2 := NULL,
455: P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
454: P_LINK_TYPE IN VARCHAR2 := NULL,
455: P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
455: P_LINK_SEGMENT1 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
456: P_LINK_SEGMENT2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
457: P_LINK_SEGMENT3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
465: P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
458: P_LINK_SEGMENT4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
465: P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
466: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
459: P_LINK_SEGMENT5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
465: P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
466: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
467: X_MSG_COUNT OUT NOCOPY NUMBER,
460: P_LINK_SEGMENT6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
465: P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
466: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
467: X_MSG_COUNT OUT NOCOPY NUMBER,
468: X_MSG_DATA OUT NOCOPY VARCHAR2)
461: P_LINK_SEGMENT7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
462: P_LINK_SEGMENT8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
463: P_LINK_SEGMENT9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
464: P_LINK_SEGMENT10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
465: P_LINK_CONTEXT IN VARCHAR2 := FND_API.G_MISS_CHAR,
466: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
467: X_MSG_COUNT OUT NOCOPY NUMBER,
468: X_MSG_DATA OUT NOCOPY VARCHAR2)
469:
485:
486: --#BUG 3630159
487: --Added to clear message cache in case of API call wrong version.
488: -- Initialize message list if p_init_msg_list is set to TRUE
489: IF FND_API.To_Boolean(p_init_msg_list) THEN
490: FND_MSG_PUB.Initialize;
491: END IF;
492:
493: -- Standard call to check for call compatibility
490: FND_MSG_PUB.Initialize;
491: END IF;
492:
493: -- Standard call to check for call compatibility
494: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
495: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498:
491: END IF;
492:
493: -- Standard call to check for call compatibility
494: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
495: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498:
499: -- Initialize API return status to success
492:
493: -- Standard call to check for call compatibility
494: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
495: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498:
499: -- Initialize API return status to success
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498:
499: -- Initialize API return status to success
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
501:
502: -- If Link Type does not have equivalent 1158 link type, then return error.
503: IF p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD') THEN
504: x_return_status := FND_API.G_RET_STS_ERROR;
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
501:
502: -- If Link Type does not have equivalent 1158 link type, then return error.
503: IF p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD') THEN
504: x_return_status := FND_API.G_RET_STS_ERROR;
505: CS_SERVICEREQUEST_UTIL.Add_Invalid_Argument_Msg(
506: p_token_an => l_api_name_full,
507: p_token_v => p_link_type,
508: p_token_p => 'p_link_type' );
506: p_token_an => l_api_name_full,
507: p_token_v => p_link_type,
508: p_token_p => 'p_link_type' );
509:
510: RAISE FND_API.G_EXC_ERROR;
511: END IF; -- p_link_type NOT IN ('REF', 'DUP', 'PARENT', 'CHILD')
512:
513: -- Populate the link_type_id attribute of record l_link_rec_pvt
514: Select decode(p_link_type, 'REF', 6,
555: p_token_an => l_api_name_full,
556: p_token_v => to_char(p_link_id),
557: p_token_p => 'p_link_id'
558: );
559: RAISE FND_API.G_EXC_ERROR;
560: End;
561:
562: -- Invoke the 11.5.9 private update procedure
563:
564: CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
565: P_API_VERSION => 1.2,
566: P_INIT_MSG_LIST => p_init_msg_list,
567: P_COMMIT => p_commit,
568: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
569: P_RESP_APPL_ID => p_resp_appl_id,
570: P_RESP_ID => p_resp_id,
571: P_USER_ID => p_user_id,
572: P_LOGIN_ID => p_login_id,
579: X_MSG_COUNT => x_msg_count,
580: X_MSG_DATA => x_msg_data);
581:
582: -- Check return status and raise error if needed
583: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
584: RAISE FND_API.G_EXC_ERROR;
585: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
580: X_MSG_DATA => x_msg_data);
581:
582: -- Check return status and raise error if needed
583: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
584: RAISE FND_API.G_EXC_ERROR;
585: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
581:
582: -- Check return status and raise error if needed
583: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
584: RAISE FND_API.G_EXC_ERROR;
585: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
589: -- Standard check of p_commit
582: -- Check return status and raise error if needed
583: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
584: RAISE FND_API.G_EXC_ERROR;
585: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
589: -- Standard check of p_commit
590: IF FND_API.To_Boolean(p_commit) THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588:
589: -- Standard check of p_commit
590: IF FND_API.To_Boolean(p_commit) THEN
591: COMMIT WORK;
592: END IF;
593:
594: -- Standard call to get message count and if count is 1, get message info
594: -- Standard call to get message count and if count is 1, get message info
595: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
596:
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: FND_MSG_PUB.Count_And_Get(
602: p_count => x_msg_count,
596:
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: FND_MSG_PUB.Count_And_Get(
602: p_count => x_msg_count,
603: p_data => x_msg_data );
604:
601: FND_MSG_PUB.Count_And_Get(
602: p_count => x_msg_count,
603: p_data => x_msg_data );
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MSG_PUB.Count_And_Get(
609: p_count => x_msg_count,
603: p_data => x_msg_data );
604:
605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
606: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: FND_MSG_PUB.Count_And_Get(
609: p_count => x_msg_count,
610: p_data => x_msg_data );
611:
610: p_data => x_msg_data );
611:
612: WHEN OTHERS THEN
613: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
616: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
617: FND_MSG_PUB.ADD;
618: FND_MSG_PUB.Count_And_Get(
730: X_MSG_DATA => x_msg_data ) ;
731:
732: EXCEPTION
733: WHEN OTHERS THEN
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
736: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
737: FND_MSG_PUB.ADD;
738: FND_MSG_PUB.Count_And_Get(
776:
777: --#BUG 3630159
778: --Added to clear message cache in case of API call wrong version.
779: -- Initialize message list if p_init_msg_list is set to TRUE
780: IF FND_API.To_Boolean(p_init_msg_list) THEN
781: FND_MSG_PUB.Initialize;
782: END IF;
783:
784: -- Standard call to check for call compatibility
781: FND_MSG_PUB.Initialize;
782: END IF;
783:
784: -- Standard call to check for call compatibility
785: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
786: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
782: END IF;
783:
784: -- Standard call to check for call compatibility
785: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
786: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790:
783:
784: -- Standard call to check for call compatibility
785: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
786: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790:
791: -- Initialize API return status to success
788: END IF;
789:
790:
791: -- Initialize API return status to success
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: -- Populate the private procedure's record type
795: l_link_rec.subject_id := p_link_rec.SUBJECT_ID;
796: l_link_rec.subject_type := p_link_rec.SUBJECT_TYPE;
823: CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
824: P_API_VERSION => 2.0,
825: P_INIT_MSG_LIST => p_init_msg_list,
826: P_COMMIT => p_commit,
827: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
828: P_RESP_APPL_ID => p_resp_appl_id,
829: P_RESP_ID => p_resp_id,
830: P_USER_ID => p_user_id,
831: P_LOGIN_ID => p_login_id,
837: X_OBJECT_VERSION_NUMBER => x_object_version_number,
838: X_MSG_COUNT => x_msg_count,
839: X_MSG_DATA => x_msg_data );
840:
841: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
842: RAISE FND_API.G_EXC_ERROR;
843: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: END IF;
838: X_MSG_COUNT => x_msg_count,
839: X_MSG_DATA => x_msg_data );
840:
841: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
842: RAISE FND_API.G_EXC_ERROR;
843: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: END IF;
846:
839: X_MSG_DATA => x_msg_data );
840:
841: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
842: RAISE FND_API.G_EXC_ERROR;
843: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: END IF;
846:
847: -- Standard check of p_commit
840:
841: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
842: RAISE FND_API.G_EXC_ERROR;
843: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: END IF;
846:
847: -- Standard check of p_commit
848: IF FND_API.To_Boolean(p_commit) THEN
844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: END IF;
846:
847: -- Standard check of p_commit
848: IF FND_API.To_Boolean(p_commit) THEN
849: COMMIT WORK;
850: END IF;
851:
852: EXCEPTION
849: COMMIT WORK;
850: END IF;
851:
852: EXCEPTION
853: WHEN FND_API.G_EXC_ERROR THEN
854: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
855: x_return_status := FND_API.G_RET_STS_ERROR;
856: FND_MSG_PUB.Count_And_Get(
857: p_count => x_msg_count,
851:
852: EXCEPTION
853: WHEN FND_API.G_EXC_ERROR THEN
854: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
855: x_return_status := FND_API.G_RET_STS_ERROR;
856: FND_MSG_PUB.Count_And_Get(
857: p_count => x_msg_count,
858: p_data => x_msg_data );
859:
856: FND_MSG_PUB.Count_And_Get(
857: p_count => x_msg_count,
858: p_data => x_msg_data );
859:
860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
861: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
863: FND_MSG_PUB.Count_And_Get(
864: p_count => x_msg_count,
858: p_data => x_msg_data );
859:
860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
861: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
863: FND_MSG_PUB.Count_And_Get(
864: p_count => x_msg_count,
865: p_data => x_msg_data );
866:
865: p_data => x_msg_data );
866:
867: WHEN OTHERS THEN
868: ROLLBACK TO UPDATE_INCIDENTLINK_PUB;
869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
870: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
871: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
872: FND_MSG_PUB.ADD;
873: FND_MSG_PUB.Count_And_Get(
904:
905: --#BUG 3630159
906: --Added to clear message cache in case of API call wrong version.
907: -- Initialize message list if p_init_msg_list is set to TRUE
908: IF FND_API.To_Boolean(p_init_msg_list) THEN
909: FND_MSG_PUB.Initialize;
910: END IF;
911:
912: -- Allow this API to be called with both version numbers, 1.2 and 2.0, added for bugs 2972584 and 2972611
916: l_invoked_version := 2.0;
917: END IF;
918:
919: -- Standard call to check for call compatibility, variable l_invoked_version used for bugs 2972584 and 2972611
920: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
921: l_api_name, G_PKG_NAME) THEN
922: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
918:
919: -- Standard call to check for call compatibility, variable l_invoked_version used for bugs 2972584 and 2972611
920: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
921: l_api_name, G_PKG_NAME) THEN
922: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925:
926:
919: -- Standard call to check for call compatibility, variable l_invoked_version used for bugs 2972584 and 2972611
920: IF NOT FND_API.Compatible_API_Call(l_invoked_version, p_api_version,
921: l_api_name, G_PKG_NAME) THEN
922: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925:
926:
927: -- Initialize API return status to success
924: END IF;
925:
926:
927: -- Initialize API return status to success
928: x_return_status := FND_API.G_RET_STS_SUCCESS;
929:
930: -- Variable l_invoked_version used in call to Create_IncidentLink, for bugs 2972584 and 2972611
931: CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
932: P_API_VERSION => l_invoked_version,
931: CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
932: P_API_VERSION => l_invoked_version,
933: P_INIT_MSG_LIST => p_init_msg_list,
934: P_COMMIT => p_commit,
935: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL, -- not used
936: P_RESP_APPL_ID => p_resp_appl_id, -- not used
937: P_RESP_ID => p_resp_id, -- not used
938: P_USER_ID => p_user_id,
939: P_LOGIN_ID => p_login_id,
942: X_RETURN_STATUS => x_return_status,
943: X_MSG_COUNT => x_msg_count,
944: X_MSG_DATA => x_msg_data );
945:
946: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
943: X_MSG_COUNT => x_msg_count,
944: X_MSG_DATA => x_msg_data );
945:
946: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
944: X_MSG_DATA => x_msg_data );
945:
946: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
952: -- Standard check of p_commit
945:
946: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
947: RAISE FND_API.G_EXC_ERROR;
948: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
952: -- Standard check of p_commit
953: IF FND_API.To_Boolean(p_commit) THEN
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: END IF;
951:
952: -- Standard check of p_commit
953: IF FND_API.To_Boolean(p_commit) THEN
954: COMMIT WORK;
955: END IF;
956:
957: -- Standard call to get message count and if count is 1, get message info
957: -- Standard call to get message count and if count is 1, get message info
958: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
959:
960: EXCEPTION
961: WHEN FND_API.G_EXC_ERROR THEN
962: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: FND_MSG_PUB.Count_And_Get(
965: p_count => x_msg_count,
959:
960: EXCEPTION
961: WHEN FND_API.G_EXC_ERROR THEN
962: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: FND_MSG_PUB.Count_And_Get(
965: p_count => x_msg_count,
966: p_data => x_msg_data);
967:
964: FND_MSG_PUB.Count_And_Get(
965: p_count => x_msg_count,
966: p_data => x_msg_data);
967:
968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
969: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
971: FND_MSG_PUB.Count_And_Get(
972: p_count => x_msg_count,
966: p_data => x_msg_data);
967:
968: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
969: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
971: FND_MSG_PUB.Count_And_Get(
972: p_count => x_msg_count,
973: p_data => x_msg_data);
974:
973: p_data => x_msg_data);
974:
975: WHEN OTHERS THEN
976: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
980: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
981: FND_MSG_PUB.ADD;
974:
975: WHEN OTHERS THEN
976: ROLLBACK TO DELETE_INCIDENTLINK_PUB;
977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
980: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
981: FND_MSG_PUB.ADD;
982: FND_MSG_PUB.Count_And_Get(
1045:
1046: --#BUG 3630159
1047: --Added to clear message cache in case of API call wrong version.
1048: -- Initialize message list if p_init_msg_list is set to TRUE
1049: IF FND_API.To_Boolean(p_init_msg_list) THEN
1050: FND_MSG_PUB.Initialize;
1051: END IF;
1052:
1053: -- Standard call to check for call compatibility
1050: FND_MSG_PUB.Initialize;
1051: END IF;
1052:
1053: -- Standard call to check for call compatibility
1054: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1055: l_api_name, G_PKG_NAME) THEN
1056: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1052:
1053: -- Standard call to check for call compatibility
1054: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1055: l_api_name, G_PKG_NAME) THEN
1056: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: -- Initialize API return status to success
1053: -- Standard call to check for call compatibility
1054: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1055: l_api_name, G_PKG_NAME) THEN
1056: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: -- Initialize API return status to success
1061: x_return_status := FND_API.G_RET_STS_SUCCESS;
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: -- Initialize API return status to success
1061: x_return_status := FND_API.G_RET_STS_SUCCESS;
1062:
1063: -- Populate the record type variable with the values that have been passed
1064:
1065: l_link_rec_pvt.from_incident_id := p_from_incident_id;
1087: CS_INCIDENTLINKS_PVT.CREATE_INCIDENTLINK (
1088: P_API_VERSION => 1.2,
1089: P_INIT_MSG_LIST => p_init_msg_list,
1090: P_COMMIT => p_commit,
1091: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
1092: P_RESP_APPL_ID => p_resp_appl_id, -- not used
1093: P_RESP_ID => p_resp_id, -- not used
1094: P_USER_ID => p_user_id, -- not used
1095: P_LOGIN_ID => p_login_id,
1103: X_LINK_ID => lx_link_id);
1104:
1105:
1106: -- Check return status and raise error if required
1107: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END IF;
1104:
1105:
1106: -- Check return status and raise error if required
1107: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END IF;
1112:
1105:
1106: -- Check return status and raise error if required
1107: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END IF;
1112:
1113: -- Standard check of p_commit
1106: -- Check return status and raise error if required
1107: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1108: RAISE FND_API.G_EXC_ERROR;
1109: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END IF;
1112:
1113: -- Standard check of p_commit
1114: IF FND_API.To_Boolean(p_commit) THEN
1110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1111: END IF;
1112:
1113: -- Standard check of p_commit
1114: IF FND_API.To_Boolean(p_commit) THEN
1115: COMMIT WORK;
1116: END IF;
1117:
1118: -- Retrieve the created external link ID based on the internal link ID returned by the private Create API
1147: -- Standard call to get message count and if count is 1, get message info
1148: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1149:
1150: EXCEPTION
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153: FND_MSG_PUB.Count_And_Get(
1154: p_count => x_msg_count,
1155: p_data => x_msg_data);
1148: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1149:
1150: EXCEPTION
1151: WHEN FND_API.G_EXC_ERROR THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR;
1153: FND_MSG_PUB.Count_And_Get(
1154: p_count => x_msg_count,
1155: p_data => x_msg_data);
1156:
1153: FND_MSG_PUB.Count_And_Get(
1154: p_count => x_msg_count,
1155: p_data => x_msg_data);
1156:
1157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1159: FND_MSG_PUB.Count_And_Get(
1160: p_count => x_msg_count,
1161: p_data => x_msg_data);
1154: p_count => x_msg_count,
1155: p_data => x_msg_data);
1156:
1157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1159: FND_MSG_PUB.Count_And_Get(
1160: p_count => x_msg_count,
1161: p_data => x_msg_data);
1162:
1160: p_count => x_msg_count,
1161: p_data => x_msg_data);
1162:
1163: WHEN OTHERS THEN
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1166: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1167: FND_MSG_PUB.ADD;
1168: FND_MSG_PUB.Count_And_Get(
1232:
1233: --#BUG 3630159
1234: --Added to clear message cache in case of API call wrong version.
1235: -- Initialize message list if p_init_msg_list is set to TRUE
1236: IF FND_API.To_Boolean(p_init_msg_list) THEN
1237: FND_MSG_PUB.Initialize;
1238: END IF;
1239:
1240: -- Standard call to check for call compatibility
1237: FND_MSG_PUB.Initialize;
1238: END IF;
1239:
1240: -- Standard call to check for call compatibility
1241: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1242: l_api_name, G_PKG_NAME) THEN
1243: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1239:
1240: -- Standard call to check for call compatibility
1241: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1242: l_api_name, G_PKG_NAME) THEN
1243: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246:
1247: -- Initialize API return status to success
1240: -- Standard call to check for call compatibility
1241: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1242: l_api_name, G_PKG_NAME) THEN
1243: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246:
1247: -- Initialize API return status to success
1248: x_return_status := FND_API.G_RET_STS_SUCCESS;
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246:
1247: -- Initialize API return status to success
1248: x_return_status := FND_API.G_RET_STS_SUCCESS;
1249:
1250: -- Added as part of fix for bugs 2972584 and 2972611
1251: -- Fetch the details of the existing external link
1252: open c_ext_link;
1259: p_token_an => l_api_name_full,
1260: p_token_v => p_link_id,
1261: p_token_p => 'p_link_id' );
1262:
1263: RAISE FND_API.G_EXC_ERROR;
1264: end if;
1265:
1266: close c_ext_link;
1267:
1299: p_token_an => l_api_name_full,
1300: p_token_v => to_char(p_link_id),
1301: p_token_p => 'p_link_id'
1302: );
1303: RAISE FND_API.G_EXC_ERROR;
1304: End;
1305:
1306: -- For Bugs 2972584 and 2972611
1307: -- Populate the record type variable with the values that have been passed in
1328: l_link_rec_pvt.subject_id := nvl(p_from_incident_id, l_ext_link_rec.from_incident_id);
1329: l_link_rec_pvt.subject_type := 'SR';
1330: l_link_rec_pvt.object_id := nvl(p_to_object_id, l_ext_link_rec.to_object_id);
1331: -- Assign G_MISS_CHAR to Object Number to avoid a validation failure in CS_INCIDENTLINKS_UTIL.VALIDATE_LINK_DETAILS
1332: l_link_rec_pvt.object_number := FND_API.G_MISS_CHAR;
1333: l_link_rec_pvt.object_type := nvl(p_to_object_type, l_ext_link_rec.to_object_type);
1334: l_link_rec_pvt.link_type_id := 6;
1335:
1336: If p_link_segment1 = FND_API.G_MISS_CHAR Then
1332: l_link_rec_pvt.object_number := FND_API.G_MISS_CHAR;
1333: l_link_rec_pvt.object_type := nvl(p_to_object_type, l_ext_link_rec.to_object_type);
1334: l_link_rec_pvt.link_type_id := 6;
1335:
1336: If p_link_segment1 = FND_API.G_MISS_CHAR Then
1337: l_link_rec_pvt.link_segment1 := l_ext_link_rec.attribute1;
1338: Else
1339: l_link_rec_pvt.link_segment1 := p_link_segment1;
1340: End If;
1338: Else
1339: l_link_rec_pvt.link_segment1 := p_link_segment1;
1340: End If;
1341:
1342: If p_link_segment2 = FND_API.G_MISS_CHAR Then
1343: l_link_rec_pvt.link_segment2 := l_ext_link_rec.attribute2;
1344: Else
1345: l_link_rec_pvt.link_segment2 := p_link_segment2;
1346: End If;
1344: Else
1345: l_link_rec_pvt.link_segment2 := p_link_segment2;
1346: End If;
1347:
1348: If p_link_segment3 = FND_API.G_MISS_CHAR Then
1349: l_link_rec_pvt.link_segment3 := l_ext_link_rec.attribute3;
1350: Else
1351: l_link_rec_pvt.link_segment3 := p_link_segment3;
1352: End If;
1350: Else
1351: l_link_rec_pvt.link_segment3 := p_link_segment3;
1352: End If;
1353:
1354: If p_link_segment4 = FND_API.G_MISS_CHAR Then
1355: l_link_rec_pvt.link_segment4 := l_ext_link_rec.attribute4;
1356: Else
1357: l_link_rec_pvt.link_segment4 := p_link_segment4;
1358: End If;
1356: Else
1357: l_link_rec_pvt.link_segment4 := p_link_segment4;
1358: End If;
1359:
1360: If p_link_segment5 = FND_API.G_MISS_CHAR Then
1361: l_link_rec_pvt.link_segment5 := l_ext_link_rec.attribute5;
1362: Else
1363: l_link_rec_pvt.link_segment5 := p_link_segment5;
1364: End If;
1362: Else
1363: l_link_rec_pvt.link_segment5 := p_link_segment5;
1364: End If;
1365:
1366: If p_link_segment6 = FND_API.G_MISS_CHAR Then
1367: l_link_rec_pvt.link_segment6 := l_ext_link_rec.attribute6;
1368: Else
1369: l_link_rec_pvt.link_segment6 := p_link_segment6;
1370: End If;
1368: Else
1369: l_link_rec_pvt.link_segment6 := p_link_segment6;
1370: End If;
1371:
1372: If p_link_segment7 = FND_API.G_MISS_CHAR Then
1373: l_link_rec_pvt.link_segment7 := l_ext_link_rec.attribute7;
1374: Else
1375: l_link_rec_pvt.link_segment7 := p_link_segment7;
1376: End If;
1374: Else
1375: l_link_rec_pvt.link_segment7 := p_link_segment7;
1376: End If;
1377:
1378: If p_link_segment8 = FND_API.G_MISS_CHAR Then
1379: l_link_rec_pvt.link_segment8 := l_ext_link_rec.attribute8;
1380: Else
1381: l_link_rec_pvt.link_segment8 := p_link_segment8;
1382: End If;
1380: Else
1381: l_link_rec_pvt.link_segment8 := p_link_segment8;
1382: End If;
1383:
1384: If p_link_segment9 = FND_API.G_MISS_CHAR Then
1385: l_link_rec_pvt.link_segment9 := l_ext_link_rec.attribute9;
1386: Else
1387: l_link_rec_pvt.link_segment9 := p_link_segment9;
1388: End If;
1386: Else
1387: l_link_rec_pvt.link_segment9 := p_link_segment9;
1388: End If;
1389:
1390: If p_link_segment10 = FND_API.G_MISS_CHAR Then
1391: l_link_rec_pvt.link_segment10 := l_ext_link_rec.attribute10;
1392: Else
1393: l_link_rec_pvt.link_segment10 := p_link_segment10;
1394: End If;
1392: Else
1393: l_link_rec_pvt.link_segment10 := p_link_segment10;
1394: End If;
1395:
1396: If p_link_context = FND_API.G_MISS_CHAR Then
1397: l_link_rec_pvt.link_context := l_ext_link_rec.context;
1398: Else
1399: l_link_rec_pvt.link_context := p_link_context;
1400: End If;
1406: CS_INCIDENTLINKS_PVT.UPDATE_INCIDENTLINK (
1407: P_API_VERSION => 1.2,
1408: P_INIT_MSG_LIST => p_init_msg_list,
1409: P_COMMIT => p_commit,
1410: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
1411: P_RESP_APPL_ID => p_resp_appl_id,
1412: P_RESP_ID => p_resp_id,
1413: P_USER_ID => p_user_id,
1414: P_LOGIN_ID => p_login_id,
1421: X_MSG_COUNT => x_msg_count,
1422: X_MSG_DATA => x_msg_data);
1423:
1424: -- Check return status and raise error if required
1425: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1422: X_MSG_DATA => x_msg_data);
1423:
1424: -- Check return status and raise error if required
1425: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1430:
1423:
1424: -- Check return status and raise error if required
1425: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1430:
1431: -- Standard check of p_commit
1424: -- Check return status and raise error if required
1425: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1430:
1431: -- Standard check of p_commit
1432: IF FND_API.To_Boolean(p_commit) THEN
1428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1429: END IF;
1430:
1431: -- Standard check of p_commit
1432: IF FND_API.To_Boolean(p_commit) THEN
1433: COMMIT WORK;
1434: END IF;
1435:
1436: -- Standard call to get message count and if count is 1, get message info
1436: -- Standard call to get message count and if count is 1, get message info
1437: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: x_return_status := FND_API.G_RET_STS_ERROR;
1442: FND_MSG_PUB.Count_And_Get(
1443: p_count => x_msg_count,
1444: p_data => x_msg_data);
1437: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1438:
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: x_return_status := FND_API.G_RET_STS_ERROR;
1442: FND_MSG_PUB.Count_And_Get(
1443: p_count => x_msg_count,
1444: p_data => x_msg_data);
1445:
1442: FND_MSG_PUB.Count_And_Get(
1443: p_count => x_msg_count,
1444: p_data => x_msg_data);
1445:
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: FND_MSG_PUB.Count_And_Get(
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1443: p_count => x_msg_count,
1444: p_data => x_msg_data);
1445:
1446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: FND_MSG_PUB.Count_And_Get(
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1452: WHEN OTHERS THEN
1453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1454: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1455: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1456: FND_MSG_PUB.ADD;
1457: FND_MSG_PUB.Count_And_Get(
1495:
1496: --#BUG 3630159
1497: --Added to clear message cache in case of API call wrong version.
1498: -- Initialize message list if p_init_msg_list is set to TRUE
1499: IF FND_API.To_Boolean(p_init_msg_list) THEN
1500: FND_MSG_PUB.Initialize;
1501: END IF;
1502:
1503: -- Standard call to check for call compatibility
1500: FND_MSG_PUB.Initialize;
1501: END IF;
1502:
1503: -- Standard call to check for call compatibility
1504: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1505: l_api_name, G_PKG_NAME) THEN
1506: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1507: RAISE FND_API.G_EXC_ERROR;
1508: END IF;
1502:
1503: -- Standard call to check for call compatibility
1504: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1505: l_api_name, G_PKG_NAME) THEN
1506: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1507: RAISE FND_API.G_EXC_ERROR;
1508: END IF;
1509:
1510: -- Initialize API return status to success
1503: -- Standard call to check for call compatibility
1504: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
1505: l_api_name, G_PKG_NAME) THEN
1506: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR; #BUG 3630127
1507: RAISE FND_API.G_EXC_ERROR;
1508: END IF;
1509:
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507: RAISE FND_API.G_EXC_ERROR;
1508: END IF;
1509:
1510: -- Initialize API return status to success
1511: x_return_status := FND_API.G_RET_STS_SUCCESS;
1512:
1513: -- Added as part of fix for bugs 2972584 and 2972611
1514: -- Fetch the details of the existing external link
1515: open c_ext_link;
1522: p_token_an => l_api_name_full,
1523: p_token_v => p_link_id,
1524: p_token_p => 'p_link_id' );
1525:
1526: RAISE FND_API.G_EXC_ERROR;
1527: end if;
1528:
1529: close c_ext_link;
1530:
1560: p_token_an => l_api_name_full,
1561: p_token_v => to_char(p_link_id),
1562: p_token_p => 'p_link_id'
1563: );
1564: RAISE FND_API.G_EXC_ERROR;
1565: End;
1566: End;
1567:
1568: -- Invoke the private delete API and pass the derived internal link ID
1569: CS_INCIDENTLINKS_PVT.DELETE_INCIDENTLINK (
1570: P_API_VERSION => 1.2,
1571: P_INIT_MSG_LIST => p_init_msg_list,
1572: P_COMMIT => p_commit,
1573: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL, -- not used
1574: P_RESP_APPL_ID => p_resp_appl_id, -- not used
1575: P_RESP_ID => p_resp_id, -- not used
1576: P_USER_ID => p_user_id,
1577: P_LOGIN_ID => p_login_id,
1582: X_MSG_DATA => x_msg_data,
1583: P_LINK_ID_EXT => p_link_id ); -- Added for bugs 2972584 and 2972611, to pass the external link ID
1584:
1585: -- Check return status and raise error if required
1586: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1587: RAISE FND_API.G_EXC_ERROR;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1583: P_LINK_ID_EXT => p_link_id ); -- Added for bugs 2972584 and 2972611, to pass the external link ID
1584:
1585: -- Check return status and raise error if required
1586: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1587: RAISE FND_API.G_EXC_ERROR;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591:
1584:
1585: -- Check return status and raise error if required
1586: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1587: RAISE FND_API.G_EXC_ERROR;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591:
1592: -- Standard check of p_commit
1585: -- Check return status and raise error if required
1586: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1587: RAISE FND_API.G_EXC_ERROR;
1588: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591:
1592: -- Standard check of p_commit
1593: IF FND_API.To_Boolean(p_commit) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591:
1592: -- Standard check of p_commit
1593: IF FND_API.To_Boolean(p_commit) THEN
1594: COMMIT WORK;
1595: END IF;
1596:
1597: -- Standard call to get message count and if count is 1, get message info
1597: -- Standard call to get message count and if count is 1, get message info
1598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1599:
1600: EXCEPTION
1601: WHEN FND_API.G_EXC_ERROR THEN
1602: x_return_status := FND_API.G_RET_STS_ERROR;
1603: FND_MSG_PUB.Count_And_Get(
1604: p_count => x_msg_count,
1605: p_data => x_msg_data);
1598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1599:
1600: EXCEPTION
1601: WHEN FND_API.G_EXC_ERROR THEN
1602: x_return_status := FND_API.G_RET_STS_ERROR;
1603: FND_MSG_PUB.Count_And_Get(
1604: p_count => x_msg_count,
1605: p_data => x_msg_data);
1606:
1603: FND_MSG_PUB.Count_And_Get(
1604: p_count => x_msg_count,
1605: p_data => x_msg_data);
1606:
1607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1609: FND_MSG_PUB.Count_And_Get(
1610: p_count => x_msg_count,
1611: p_data => x_msg_data);
1604: p_count => x_msg_count,
1605: p_data => x_msg_data);
1606:
1607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1609: FND_MSG_PUB.Count_And_Get(
1610: p_count => x_msg_count,
1611: p_data => x_msg_data);
1612:
1610: p_count => x_msg_count,
1611: p_data => x_msg_data);
1612:
1613: WHEN OTHERS THEN
1614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1615: FND_MESSAGE.SET_NAME ('CS', 'CS_API_SR_UNKNOWN_ERROR');
1616: FND_MESSAGE.SET_TOKEN ('P_TEXT',l_api_name_full||'-'||SQLERRM);
1617: FND_MSG_PUB.ADD;
1618: FND_MSG_PUB.Count_And_Get(