62: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
66: Fnd_Msg_Pub.initialize;
67: END IF;
68:
69: -- Initialize API return status to success
70: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
74: -- Check for Duplicates
75: OPEN Check_Duplicate_CItem;
76: FETCH Check_Duplicate_CItem INTO l_assoc_id;
77: IF (Check_Duplicate_CItem%FOUND) THEN
78: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
79: Fnd_Message.Set_Name('IBC', 'DUPLICATE_ASSOCIATION');
80: Fnd_Msg_Pub.ADD;
81: END IF;
82: CLOSE Check_Duplicate_CItem;
76: FETCH Check_Duplicate_CItem INTO l_assoc_id;
77: IF (Check_Duplicate_CItem%FOUND) THEN
78: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
79: Fnd_Message.Set_Name('IBC', 'DUPLICATE_ASSOCIATION');
80: Fnd_Msg_Pub.ADD;
81: END IF;
82: CLOSE Check_Duplicate_CItem;
83: RAISE Fnd_Api.G_EXC_ERROR;
84: END IF;
85: CLOSE Check_Duplicate_CItem;
86:
87: -- Validate Association Type
88: IF (Ibc_Validate_Pvt.isValidAssocType(p_assoc_type_code) = Fnd_Api.g_false) THEN
89: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
90: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
91: Fnd_Message.Set_token('ASSOC_TYPE_CODE', p_assoc_type_code);
92: Fnd_Msg_Pub.ADD;
93: END IF;
88: IF (Ibc_Validate_Pvt.isValidAssocType(p_assoc_type_code) = Fnd_Api.g_false) THEN
89: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
90: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
91: Fnd_Message.Set_token('ASSOC_TYPE_CODE', p_assoc_type_code);
92: Fnd_Msg_Pub.ADD;
93: END IF;
94: RAISE Fnd_Api.G_EXC_ERROR;
95: END IF;
96:
95: END IF;
96:
97: -- Validate Citem Id
98: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
99: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
100: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
101: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
102: Fnd_Msg_Pub.ADD;
103: END IF;
98: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
99: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
100: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
101: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
102: Fnd_Msg_Pub.ADD;
103: END IF;
104: RAISE Fnd_Api.G_EXC_ERROR;
105: END IF;
106:
107: -- Validate Citem version id
108: IF (p_citem_version_id IS NOT NULL AND
109: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_content_item_id, p_citem_version_id) = FND_API.g_false)
110: THEN
111: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
112: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
113: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
114: Fnd_Msg_Pub.ADD;
115: END IF;
110: THEN
111: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
112: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
113: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
114: Fnd_Msg_Pub.ADD;
115: END IF;
116: RAISE Fnd_Api.G_EXC_ERROR;
117: END IF;
118:
154: IF (Fnd_Api.To_Boolean(p_commit)) THEN
155: COMMIT WORK;
156: END IF;
157: -- Standard call to get message count and if count=1, get the message
158: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
159: p_data => x_msg_data);
160: EXCEPTION
161: WHEN Fnd_Api.G_EXC_ERROR THEN
162: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
160: EXCEPTION
161: WHEN Fnd_Api.G_EXC_ERROR THEN
162: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
163: x_return_status := Fnd_Api.G_RET_STS_ERROR;
164: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
165: p_data => x_msg_data);
166: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
167: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
168: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
165: p_data => x_msg_data);
166: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
167: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
168: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
169: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
170: p_data => x_msg_data);
171: WHEN OTHERS THEN
172: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
173: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
170: p_data => x_msg_data);
171: WHEN OTHERS THEN
172: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
173: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
174: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
175: THEN
176: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
177: END IF;
178: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
172: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
173: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
174: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
175: THEN
176: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
177: END IF;
178: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
179: p_data => x_msg_data);
180: END Create_Association;
174: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
175: THEN
176: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
177: END IF;
178: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
179: p_data => x_msg_data);
180: END Create_Association;
181:
182:
237: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
238: END IF;
239: -- Initialize message list if p_init_msg_list is set to TRUE.
240: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
241: Fnd_Msg_Pub.initialize;
242: END IF;
243:
244: -- Initialize API return status to success
245: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
249: -- Check if association exists
250: OPEN Check_Assoc;
251: FETCH Check_Assoc INTO l_assoc_id;
252: IF (Check_Assoc%NOTFOUND) THEN
253: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
254: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
255: Fnd_Msg_Pub.ADD;
256: END IF;
257: CLOSE Check_Assoc;
251: FETCH Check_Assoc INTO l_assoc_id;
252: IF (Check_Assoc%NOTFOUND) THEN
253: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
254: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
255: Fnd_Msg_Pub.ADD;
256: END IF;
257: CLOSE Check_Assoc;
258: RAISE Fnd_Api.G_EXC_ERROR;
259: END IF;
282: IF (Fnd_Api.To_Boolean(p_commit)) THEN
283: COMMIT WORK;
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
286: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
287: p_data => x_msg_data);
288: EXCEPTION
289: WHEN Fnd_Api.G_EXC_ERROR THEN
290: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
288: EXCEPTION
289: WHEN Fnd_Api.G_EXC_ERROR THEN
290: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
291: x_return_status := Fnd_Api.G_RET_STS_ERROR;
292: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
293: p_data => x_msg_data);
294: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
296: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
293: p_data => x_msg_data);
294: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
295: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
296: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
297: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
298: p_data => x_msg_data);
299: WHEN OTHERS THEN
300: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
298: p_data => x_msg_data);
299: WHEN OTHERS THEN
300: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
302: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
305: END IF;
306: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
300: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
302: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
305: END IF;
306: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
307: p_data => x_msg_data);
308: END Delete_Association;
302: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
305: END IF;
306: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
307: p_data => x_msg_data);
308: END Delete_Association;
309:
310:
368: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
369: END IF;
370: -- Initialize message list if p_init_msg_list is set to TRUE.
371: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
372: Fnd_Msg_Pub.initialize;
373: END IF;
374:
375: -- Initialize API return status to success
376: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
381: l_content_item_id := p_old_citem_id;
382: OPEN Check_Assoc;
383: FETCH Check_Assoc INTO l_assoc_id;
384: IF (Check_Assoc%NOTFOUND) THEN
385: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
386: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
387: Fnd_Msg_Pub.ADD;
388: END IF;
389: CLOSE Check_Assoc;
383: FETCH Check_Assoc INTO l_assoc_id;
384: IF (Check_Assoc%NOTFOUND) THEN
385: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
386: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
387: Fnd_Msg_Pub.ADD;
388: END IF;
389: CLOSE Check_Assoc;
390: RAISE Fnd_Api.G_EXC_ERROR;
391: END IF;
396: l_content_item_id := p_new_citem_id;
397: OPEN Check_Assoc;
398: FETCH Check_Assoc INTO l_tmp_id;
399: IF (Check_Assoc%FOUND) THEN
400: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
401: Fnd_Message.Set_Name('IBC', 'DUPLICATE_ASSOCIATION');
402: Fnd_Msg_Pub.ADD;
403: END IF;
404: CLOSE Check_Assoc;
398: FETCH Check_Assoc INTO l_tmp_id;
399: IF (Check_Assoc%FOUND) THEN
400: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
401: Fnd_Message.Set_Name('IBC', 'DUPLICATE_ASSOCIATION');
402: Fnd_Msg_Pub.ADD;
403: END IF;
404: CLOSE Check_Assoc;
405: RAISE Fnd_Api.G_EXC_ERROR;
406: END IF;
407: CLOSE Check_Assoc;
408:
409: -- Validate Citem Id
410: IF (Ibc_Validate_Pvt.isValidCitem(p_new_citem_id) = Fnd_Api.g_false) THEN
411: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
412: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
413: Fnd_Message.Set_token('CITEM_ID', p_new_citem_id);
414: Fnd_Msg_Pub.ADD;
415: END IF;
410: IF (Ibc_Validate_Pvt.isValidCitem(p_new_citem_id) = Fnd_Api.g_false) THEN
411: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
412: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
413: Fnd_Message.Set_token('CITEM_ID', p_new_citem_id);
414: Fnd_Msg_Pub.ADD;
415: END IF;
416: RAISE Fnd_Api.G_EXC_ERROR;
417: END IF;
418: END IF;
420: -- Validate Citem version id
421: IF (p_new_citem_ver_id IS NOT NULL AND
422: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_new_citem_id, p_new_citem_ver_id) = FND_API.g_false)
423: THEN
424: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
425: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
426: Fnd_Message.Set_token('CITEM_VERSION_ID', p_new_citem_ver_id);
427: Fnd_Msg_Pub.ADD;
428: END IF;
423: THEN
424: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
425: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
426: Fnd_Message.Set_token('CITEM_VERSION_ID', p_new_citem_ver_id);
427: Fnd_Msg_Pub.ADD;
428: END IF;
429: RAISE Fnd_Api.G_EXC_ERROR;
430: END IF;
431:
457: IF (Fnd_Api.To_Boolean(p_commit)) THEN
458: COMMIT WORK;
459: END IF;
460: -- Standard call to get message count and if count=1, get the message
461: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
462: p_data => x_msg_data);
463: EXCEPTION
464: WHEN Fnd_Api.G_EXC_ERROR THEN
465: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
463: EXCEPTION
464: WHEN Fnd_Api.G_EXC_ERROR THEN
465: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
466: x_return_status := Fnd_Api.G_RET_STS_ERROR;
467: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
468: p_data => x_msg_data);
469: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
470: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
471: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
468: p_data => x_msg_data);
469: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
470: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
471: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
472: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
473: p_data => x_msg_data);
474: WHEN OTHERS THEN
475: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
476: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
473: p_data => x_msg_data);
474: WHEN OTHERS THEN
475: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
476: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
477: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
480: END IF;
481: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
475: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
476: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
477: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
480: END IF;
481: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
482: p_data => x_msg_data);
483: END Update_Association;
477: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
478: THEN
479: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
480: END IF;
481: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
482: p_data => x_msg_data);
483: END Update_Association;
484:
485:
620: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622: -- Initialize message list if p_init_msg_list is set to TRUE.
623: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
624: Fnd_Msg_Pub.initialize;
625: END IF;
626:
627: -- Initialize API return status to success
628: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
636: ( (p_assoc_objects2 IS NOT NULL) AND (p_assoc_objects2.COUNT <> l_temp_array_length) ) OR
637: ( (p_assoc_objects3 IS NOT NULL) AND (p_assoc_objects3.COUNT <> l_temp_array_length) ) OR
638: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
639: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
640: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
641: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
642: Fnd_Msg_Pub.ADD;
643: END IF;
644: RAISE Fnd_Api.G_EXC_ERROR;
638: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
639: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
640: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
641: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
642: Fnd_Msg_Pub.ADD;
643: END IF;
644: RAISE Fnd_Api.G_EXC_ERROR;
645: END IF;
646:
653: OPEN cur_old_citem;
654: FETCH cur_old_citem INTO l_content_item_id;
655: CLOSE cur_old_citem;
656: IF l_content_item_id IS NOT NULL THEN
657: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
658: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
659: Fnd_Message.Set_token('CITEM_ID',l_content_item_id);
660: Fnd_Msg_Pub.ADD;
661: END IF;
656: IF l_content_item_id IS NOT NULL THEN
657: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
658: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
659: Fnd_Message.Set_token('CITEM_ID',l_content_item_id);
660: Fnd_Msg_Pub.ADD;
661: END IF;
662: RAISE Fnd_Api.G_EXC_ERROR;
663: END IF;
664:
673: OPEN cur_new_citem;
674: FETCH cur_new_citem INTO l_content_item_id;
675: CLOSE cur_new_citem;
676: IF l_content_item_id IS NOT NULL THEN
677: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
678: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
679: Fnd_Message.Set_token('CITEM_ID',l_content_item_id);
680: Fnd_Msg_Pub.ADD;
681: END IF;
676: IF l_content_item_id IS NOT NULL THEN
677: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
678: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
679: Fnd_Message.Set_token('CITEM_ID',l_content_item_id);
680: Fnd_Msg_Pub.ADD;
681: END IF;
682: RAISE Fnd_Api.G_EXC_ERROR;
683: END IF;
684:
694: OPEN cur_old_citem_version;
695: FETCH cur_old_citem_version INTO l_citem_version_id;
696: CLOSE cur_old_citem_version;
697: IF l_citem_version_id IS NOT NULL THEN
698: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
699: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
700: Fnd_Message.Set_token('CITEM_VERSION_ID',l_citem_version_id);
701: Fnd_Msg_Pub.ADD;
702: END IF;
697: IF l_citem_version_id IS NOT NULL THEN
698: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
699: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
700: Fnd_Message.Set_token('CITEM_VERSION_ID',l_citem_version_id);
701: Fnd_Msg_Pub.ADD;
702: END IF;
703: RAISE Fnd_Api.G_EXC_ERROR;
704: END IF;
705:
714: OPEN cur_new_citem_version;
715: FETCH cur_new_citem_version INTO l_citem_version_id;
716: CLOSE cur_new_citem_version;
717: IF l_citem_version_id IS NOT NULL THEN
718: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
719: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
720: Fnd_Message.Set_token('CITEM_VERSION_ID',l_citem_version_id);
721: Fnd_Msg_Pub.ADD;
722: END IF;
717: IF l_citem_version_id IS NOT NULL THEN
718: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
719: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
720: Fnd_Message.Set_token('CITEM_VERSION_ID',l_citem_version_id);
721: Fnd_Msg_Pub.ADD;
722: END IF;
723: RAISE Fnd_Api.G_EXC_ERROR;
724: END IF;
725:
736: FETCH cur_assoc INTO l_association_type_code;
737: CLOSE cur_assoc;
738:
739: IF (l_association_type_code IS NOT NULL) THEN
740: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
741: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
742: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_association_type_code);
743: Fnd_Msg_Pub.ADD;
744: END IF;
739: IF (l_association_type_code IS NOT NULL) THEN
740: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
741: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
742: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_association_type_code);
743: Fnd_Msg_Pub.ADD;
744: END IF;
745: RAISE Fnd_Api.G_EXC_ERROR;
746: END IF;
747:
877: IF (Fnd_Api.To_Boolean(p_commit)) THEN
878: COMMIT WORK;
879: END IF;
880: -- Standard call to get message count and if count=1, get the message
881: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
882: p_data => x_msg_data);
883: EXCEPTION
884: WHEN Fnd_Api.G_EXC_ERROR THEN
885: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
883: EXCEPTION
884: WHEN Fnd_Api.G_EXC_ERROR THEN
885: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
886: x_return_status := Fnd_Api.G_RET_STS_ERROR;
887: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
888: p_data => x_msg_data);
889: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
890: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
891: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
888: p_data => x_msg_data);
889: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
890: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
891: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
892: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
893: p_data => x_msg_data);
894: WHEN OTHERS THEN
895: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
896: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
893: p_data => x_msg_data);
894: WHEN OTHERS THEN
895: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
896: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
897: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
898: THEN
899: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
900: END IF;
901: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
895: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
896: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
897: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
898: THEN
899: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
900: END IF;
901: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
902: p_data => x_msg_data);
903: END Move_Associations;
897: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
898: THEN
899: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
900: END IF;
901: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
902: p_data => x_msg_data);
903: END Move_Associations;
904:
905: PROCEDURE Create_Associations (
988: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990: -- Initialize message list if p_init_msg_list is set to TRUE.
991: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
992: Fnd_Msg_Pub.initialize;
993: END IF;
994:
995: -- Initialize API return status to success
996: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1003: ( (p_assoc_objects2 IS NOT NULL) AND (p_assoc_objects2.COUNT <> l_temp_array_length) ) OR
1004: ( (p_assoc_objects3 IS NOT NULL) AND (p_assoc_objects3.COUNT <> l_temp_array_length) ) OR
1005: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1006: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1007: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1008: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1009: Fnd_Msg_Pub.ADD;
1010: END IF;
1011: RAISE Fnd_Api.G_EXC_ERROR;
1005: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1006: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1007: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1008: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1009: Fnd_Msg_Pub.ADD;
1010: END IF;
1011: RAISE Fnd_Api.G_EXC_ERROR;
1012: END IF;
1013:
1038: END IF;
1039:
1040: -- Validate Citem Id
1041: IF (Ibc_Validate_Pvt.isValidCitem(l_content_item_id) = Fnd_Api.g_false) THEN
1042: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1043: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1044: Fnd_Message.Set_token('CITEM_ID', l_content_item_id);
1045: Fnd_Msg_Pub.ADD;
1046: END IF;
1041: IF (Ibc_Validate_Pvt.isValidCitem(l_content_item_id) = Fnd_Api.g_false) THEN
1042: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1043: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1044: Fnd_Message.Set_token('CITEM_ID', l_content_item_id);
1045: Fnd_Msg_Pub.ADD;
1046: END IF;
1047: RAISE Fnd_Api.G_EXC_ERROR;
1048: END IF;
1049:
1050: -- Validate citem version id
1051: IF l_citem_version_id IS NOT NULL AND
1052: IBC_VALIDATE_PVT.isValidCitemVerForCitem(l_content_item_id, l_citem_version_id) = FND_API.g_false
1053: THEN
1054: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1055: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1056: Fnd_Message.Set_token('CITEM_VERSION_ID', l_citem_version_id);
1057: Fnd_Msg_Pub.ADD;
1058: END IF;
1053: THEN
1054: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1055: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1056: Fnd_Message.Set_token('CITEM_VERSION_ID', l_citem_version_id);
1057: Fnd_Msg_Pub.ADD;
1058: END IF;
1059: RAISE Fnd_Api.G_EXC_ERROR;
1060: END IF;
1061:
1062:
1063:
1064: -- Validate Association Type
1065: IF (Ibc_Validate_Pvt.isValidAssocType(l_assoc_type_code) = Fnd_Api.g_false) THEN
1066: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1067: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1068: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1069: Fnd_Msg_Pub.ADD;
1070: END IF;
1065: IF (Ibc_Validate_Pvt.isValidAssocType(l_assoc_type_code) = Fnd_Api.g_false) THEN
1066: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1067: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1068: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1069: Fnd_Msg_Pub.ADD;
1070: END IF;
1071: RAISE Fnd_Api.G_EXC_ERROR;
1072: END IF;
1073:
1108: IF (Fnd_Api.To_Boolean(p_commit)) THEN
1109: COMMIT WORK;
1110: END IF;
1111: -- Standard call to get message count and if count=1, get the message
1112: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: EXCEPTION
1115: WHEN Fnd_Api.G_EXC_ERROR THEN
1116: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1114: EXCEPTION
1115: WHEN Fnd_Api.G_EXC_ERROR THEN
1116: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1117: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1118: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1119: p_data => x_msg_data);
1120: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1121: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1122: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1119: p_data => x_msg_data);
1120: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1121: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1122: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1123: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1124: p_data => x_msg_data);
1125: WHEN OTHERS THEN
1126: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1127: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1124: p_data => x_msg_data);
1125: WHEN OTHERS THEN
1126: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1127: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1128: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1129: THEN
1130: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1131: END IF;
1132: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1126: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1127: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1128: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1129: THEN
1130: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1131: END IF;
1132: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1133: p_data => x_msg_data);
1134: END Create_Associations;
1128: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1129: THEN
1130: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1131: END IF;
1132: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1133: p_data => x_msg_data);
1134: END Create_Associations;
1135:
1136:
1236: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1237: END IF;
1238: -- Initialize message list if p_init_msg_list is set to TRUE.
1239: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
1240: Fnd_Msg_Pub.initialize;
1241: END IF;
1242:
1243: -- Initialize API return status to success
1244: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1251: ( (p_assoc_objects2 IS NOT NULL) AND (p_assoc_objects2.COUNT <> l_temp_array_length) ) OR
1252: ( (p_assoc_objects3 IS NOT NULL) AND (p_assoc_objects3.COUNT <> l_temp_array_length) ) OR
1253: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1254: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1255: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1256: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1257: Fnd_Msg_Pub.ADD;
1258: END IF;
1259: RAISE Fnd_Api.G_EXC_ERROR;
1253: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1254: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1255: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1256: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1257: Fnd_Msg_Pub.ADD;
1258: END IF;
1259: RAISE Fnd_Api.G_EXC_ERROR;
1260: END IF;
1261:
1287:
1288: OPEN Get_Assoc_Id;
1289: FETCH Get_Assoc_Id INTO l_temp_assoc_id;
1290: IF (Get_Assoc_Id%NOTFOUND) THEN
1291: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1292: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
1293: Fnd_Msg_Pub.ADD;
1294: END IF;
1295: CLOSE Get_Assoc_Id;
1289: FETCH Get_Assoc_Id INTO l_temp_assoc_id;
1290: IF (Get_Assoc_Id%NOTFOUND) THEN
1291: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1292: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
1293: Fnd_Msg_Pub.ADD;
1294: END IF;
1295: CLOSE Get_Assoc_Id;
1296: RAISE Fnd_Api.G_EXC_ERROR;
1297: END IF;
1323: IF (Fnd_Api.To_Boolean(p_commit)) THEN
1324: COMMIT WORK;
1325: END IF;
1326: -- Standard call to get message count and if count=1, get the message
1327: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1328: p_data => x_msg_data);
1329: EXCEPTION
1330: WHEN Fnd_Api.G_EXC_ERROR THEN
1331: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1329: EXCEPTION
1330: WHEN Fnd_Api.G_EXC_ERROR THEN
1331: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1332: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1333: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1334: p_data => x_msg_data);
1335: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1336: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1337: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1334: p_data => x_msg_data);
1335: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1336: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1337: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1338: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1339: p_data => x_msg_data);
1340: WHEN OTHERS THEN
1341: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1342: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1339: p_data => x_msg_data);
1340: WHEN OTHERS THEN
1341: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1342: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1343: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1344: THEN
1345: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1346: END IF;
1347: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1341: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1342: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1343: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1344: THEN
1345: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1346: END IF;
1347: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1348: p_data => x_msg_data);
1349: END Delete_Associations;
1343: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1344: THEN
1345: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1346: END IF;
1347: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1348: p_data => x_msg_data);
1349: END Delete_Associations;
1350:
1351:
1468: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
1472: Fnd_Msg_Pub.initialize;
1473: END IF;
1474:
1475: -- Initialize API return status to success
1476: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1478:
1479: -- Validate Citem Id
1480: IF (p_content_item_id IS NOT NULL) THEN
1481: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
1482: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1483: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1484: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
1485: Fnd_Msg_Pub.ADD;
1486: END IF;
1481: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
1482: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1483: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1484: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
1485: Fnd_Msg_Pub.ADD;
1486: END IF;
1487: RAISE Fnd_Api.G_EXC_ERROR;
1488: END IF;
1489: END IF;
1489: END IF;
1490: IF p_citem_version_id IS NOT NULL AND
1491: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_content_item_id, p_citem_version_id) = FND_API.g_false
1492: THEN
1493: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1494: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1495: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
1496: Fnd_Msg_Pub.ADD;
1497: END IF;
1492: THEN
1493: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1494: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1495: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
1496: Fnd_Msg_Pub.ADD;
1497: END IF;
1498: RAISE Fnd_Api.G_EXC_ERROR;
1499: END IF;
1500:
1511:
1512: -- Retrieive Existing Associations
1513: FOR assoc_rec IN Get_Assoc LOOP
1514: IF (assoc_rec.CALL_BACK_PKG IS NULL) THEN
1515: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1516: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1517: Fnd_Message.Set_token('ASSOC_TYPE_CODE', assoc_rec.ASSOCIATION_TYPE_CODE);
1518: Fnd_Msg_Pub.ADD;
1519: END IF;
1514: IF (assoc_rec.CALL_BACK_PKG IS NULL) THEN
1515: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1516: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1517: Fnd_Message.Set_token('ASSOC_TYPE_CODE', assoc_rec.ASSOCIATION_TYPE_CODE);
1518: Fnd_Msg_Pub.ADD;
1519: END IF;
1520: RAISE Fnd_Api.G_EXC_ERROR;
1521: END IF;
1522:
1530: OUT x_return_status, OUT x_msg_count, OUT x_msg_data;
1531: EXCEPTION
1532: WHEN OTHERS THEN
1533: IF (SQLCODE = -6550) THEN
1534: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1535: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1536: Fnd_Message.Set_token('CALL_BACK_PKG', assoc_rec.CALL_BACK_PKG);
1537: Fnd_Msg_Pub.ADD;
1538: END IF;
1533: IF (SQLCODE = -6550) THEN
1534: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1535: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1536: Fnd_Message.Set_token('CALL_BACK_PKG', assoc_rec.CALL_BACK_PKG);
1537: Fnd_Msg_Pub.ADD;
1538: END IF;
1539: RAISE Fnd_Api.G_EXC_ERROR;
1540: ELSE
1541: RAISE;
1570: l_assoc_type_code := p_assoc_type_codes(i);
1571: OPEN Get_CallBack;
1572: FETCH Get_CallBack INTO l_callback_pkg;
1573: IF (Get_CallBack%NOTFOUND) THEN
1574: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1575: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1576: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1577: Fnd_Msg_Pub.ADD;
1578: END IF;
1573: IF (Get_CallBack%NOTFOUND) THEN
1574: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1575: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1576: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1577: Fnd_Msg_Pub.ADD;
1578: END IF;
1579: RAISE Fnd_Api.G_EXC_ERROR;
1580: END IF;
1581: IF (l_callback_pkg IS NULL) THEN
1578: END IF;
1579: RAISE Fnd_Api.G_EXC_ERROR;
1580: END IF;
1581: IF (l_callback_pkg IS NULL) THEN
1582: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1583: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1584: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1585: Fnd_Msg_Pub.ADD;
1586: END IF;
1581: IF (l_callback_pkg IS NULL) THEN
1582: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1583: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1584: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1585: Fnd_Msg_Pub.ADD;
1586: END IF;
1587: RAISE Fnd_Api.G_EXC_ERROR;
1588: END IF;
1589: CLOSE Get_CallBack;
1612: OUT x_return_status, OUT x_msg_count, OUT x_msg_data;
1613: EXCEPTION
1614: WHEN OTHERS THEN
1615: IF (SQLCODE = -6550) THEN
1616: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1617: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1618: Fnd_Message.Set_token('CALL_BACK_PKG', l_callback_pkg);
1619: Fnd_Msg_Pub.ADD;
1620: END IF;
1615: IF (SQLCODE = -6550) THEN
1616: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1617: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1618: Fnd_Message.Set_token('CALL_BACK_PKG', l_callback_pkg);
1619: Fnd_Msg_Pub.ADD;
1620: END IF;
1621: RAISE Fnd_Api.G_EXC_ERROR;
1622: ELSE
1623: RAISE;
1648:
1649: --******************* Real Logic End *********************
1650:
1651: -- Standard call to get message count and if count=1, get the message
1652: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1653: p_data => x_msg_data);
1654: EXCEPTION
1655: WHEN Fnd_Api.G_EXC_ERROR THEN
1656: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1653: p_data => x_msg_data);
1654: EXCEPTION
1655: WHEN Fnd_Api.G_EXC_ERROR THEN
1656: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1657: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1658: p_data => x_msg_data);
1659: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1660: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1661: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1657: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1658: p_data => x_msg_data);
1659: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1660: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1661: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1662: p_data => x_msg_data);
1663: WHEN OTHERS THEN
1664: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1665: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1661: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1662: p_data => x_msg_data);
1663: WHEN OTHERS THEN
1664: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1665: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1666: THEN
1667: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1668: END IF;
1669: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1663: WHEN OTHERS THEN
1664: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1665: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1666: THEN
1667: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1668: END IF;
1669: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1670: p_data => x_msg_data);
1671: END Get_Associations;
1665: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1666: THEN
1667: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1668: END IF;
1669: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1670: p_data => x_msg_data);
1671: END Get_Associations;
1672:
1673: FUNCTION Get_Association_NameAndCode(p_content_item_id IN NUMBER,
1712: OUT l_return_status, OUT l_msg_count, OUT l_msg_data;
1713: EXCEPTION
1714: WHEN OTHERS THEN
1715: IF (SQLCODE = -6550) THEN
1716: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1717: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1718: Fnd_Message.Set_token('CALL_BACK_PKG', r_callback.CALL_BACK_PKG);
1719: Fnd_Msg_Pub.ADD;
1720: END IF;
1715: IF (SQLCODE = -6550) THEN
1716: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1717: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1718: Fnd_Message.Set_token('CALL_BACK_PKG', r_callback.CALL_BACK_PKG);
1719: Fnd_Msg_Pub.ADD;
1720: END IF;
1721: RAISE Fnd_Api.G_EXC_ERROR;
1722: ELSE
1723: RAISE;
1729: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1730: /*
1731: DBMS_OUTPUT.put_line('Errors FOUND '|| l_msg_data);
1732: for i in 0..l_msg_count loop
1733: DBMS_OUTPUT.put_line(FND_MSG_PUB.get(i,FND_API.G_FALSE));
1734: end loop;
1735: */
1736: l_result := NULL;
1737: ELSE