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:
868: IF (Fnd_Api.To_Boolean(p_commit)) THEN
869: COMMIT WORK;
870: END IF;
871: -- Standard call to get message count and if count=1, get the message
872: Fnd_Msg_Pub.Count_And_Get (p_count => x_msg_count,
873: p_data => x_msg_data);
874: EXCEPTION
875: WHEN Fnd_Api.G_EXC_ERROR THEN
876: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
874: EXCEPTION
875: WHEN Fnd_Api.G_EXC_ERROR THEN
876: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
877: x_return_status := Fnd_Api.G_RET_STS_ERROR;
878: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
879: p_data => x_msg_data);
880: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
881: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
882: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
879: p_data => x_msg_data);
880: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
881: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
882: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
883: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
884: p_data => x_msg_data);
885: WHEN OTHERS THEN
886: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
887: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
884: p_data => x_msg_data);
885: WHEN OTHERS THEN
886: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
887: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
888: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
889: THEN
890: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
891: END IF;
892: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
886: ROLLBACK TO MOVE_ASSOCIATIONS_PT;
887: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
888: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
889: THEN
890: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
891: END IF;
892: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
893: p_data => x_msg_data);
894: END Move_Associations;
888: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
889: THEN
890: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
891: END IF;
892: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
893: p_data => x_msg_data);
894: END Move_Associations;
895:
896: PROCEDURE Create_Associations (
990: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992: -- Initialize message list if p_init_msg_list is set to TRUE.
993: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
994: Fnd_Msg_Pub.initialize;
995: END IF;
996:
997: -- Initialize API return status to success
998: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1005: ( (p_assoc_objects2 IS NOT NULL) AND (p_assoc_objects2.COUNT <> l_temp_array_length) ) OR
1006: ( (p_assoc_objects3 IS NOT NULL) AND (p_assoc_objects3.COUNT <> l_temp_array_length) ) OR
1007: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1008: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1009: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1010: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1011: Fnd_Msg_Pub.ADD;
1012: END IF;
1013: RAISE Fnd_Api.G_EXC_ERROR;
1007: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1008: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1009: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1010: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1011: Fnd_Msg_Pub.ADD;
1012: END IF;
1013: RAISE Fnd_Api.G_EXC_ERROR;
1014: END IF;
1015:
1060: END IF;
1061:
1062: -- Validate Citem Id
1063: IF (Ibc_Validate_Pvt.isValidCitem(l_content_item_id) = Fnd_Api.g_false) THEN
1064: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1065: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1066: Fnd_Message.Set_token('CITEM_ID', l_content_item_id);
1067: Fnd_Msg_Pub.ADD;
1068: END IF;
1063: IF (Ibc_Validate_Pvt.isValidCitem(l_content_item_id) = Fnd_Api.g_false) THEN
1064: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1065: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1066: Fnd_Message.Set_token('CITEM_ID', l_content_item_id);
1067: Fnd_Msg_Pub.ADD;
1068: END IF;
1069: RAISE Fnd_Api.G_EXC_ERROR;
1070: END IF;
1071:
1072: -- Validate citem version id
1073: IF l_citem_version_id IS NOT NULL AND
1074: IBC_VALIDATE_PVT.isValidCitemVerForCitem(l_content_item_id, l_citem_version_id) = FND_API.g_false
1075: THEN
1076: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1077: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1078: Fnd_Message.Set_token('CITEM_VERSION_ID', l_citem_version_id);
1079: Fnd_Msg_Pub.ADD;
1080: END IF;
1075: THEN
1076: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1077: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1078: Fnd_Message.Set_token('CITEM_VERSION_ID', l_citem_version_id);
1079: Fnd_Msg_Pub.ADD;
1080: END IF;
1081: RAISE Fnd_Api.G_EXC_ERROR;
1082: END IF;
1083:
1084:
1085:
1086: -- Validate Association Type
1087: IF (Ibc_Validate_Pvt.isValidAssocType(l_assoc_type_code) = Fnd_Api.g_false) THEN
1088: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1089: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1090: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1091: Fnd_Msg_Pub.ADD;
1092: END IF;
1087: IF (Ibc_Validate_Pvt.isValidAssocType(l_assoc_type_code) = Fnd_Api.g_false) THEN
1088: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1089: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1090: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1091: Fnd_Msg_Pub.ADD;
1092: END IF;
1093: RAISE Fnd_Api.G_EXC_ERROR;
1094: END IF;
1095:
1130: IF (Fnd_Api.To_Boolean(p_commit)) THEN
1131: COMMIT WORK;
1132: END IF;
1133: -- Standard call to get message count and if count=1, get the message
1134: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1135: p_data => x_msg_data);
1136: EXCEPTION
1137: WHEN Fnd_Api.G_EXC_ERROR THEN
1138: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1136: EXCEPTION
1137: WHEN Fnd_Api.G_EXC_ERROR THEN
1138: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1139: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1140: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1141: p_data => x_msg_data);
1142: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1143: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1144: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1141: p_data => x_msg_data);
1142: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1143: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1144: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1145: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1146: p_data => x_msg_data);
1147: WHEN OTHERS THEN
1148: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1149: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1146: p_data => x_msg_data);
1147: WHEN OTHERS THEN
1148: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1149: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1150: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1151: THEN
1152: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1153: END IF;
1154: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1148: ROLLBACK TO CREATE_ASSOCIATIONS_PT;
1149: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1150: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1151: THEN
1152: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1153: END IF;
1154: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1155: p_data => x_msg_data);
1156: END Create_Associations;
1150: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1151: THEN
1152: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1153: END IF;
1154: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1155: p_data => x_msg_data);
1156: END Create_Associations;
1157:
1158:
1256: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1257: END IF;
1258: -- Initialize message list if p_init_msg_list is set to TRUE.
1259: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
1260: Fnd_Msg_Pub.initialize;
1261: END IF;
1262:
1263: -- Initialize API return status to success
1264: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1271: ( (p_assoc_objects2 IS NOT NULL) AND (p_assoc_objects2.COUNT <> l_temp_array_length) ) OR
1272: ( (p_assoc_objects3 IS NOT NULL) AND (p_assoc_objects3.COUNT <> l_temp_array_length) ) OR
1273: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1274: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1275: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1276: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1277: Fnd_Msg_Pub.ADD;
1278: END IF;
1279: RAISE Fnd_Api.G_EXC_ERROR;
1273: ( (p_assoc_objects4 IS NOT NULL) AND (p_assoc_objects4.COUNT <> l_temp_array_length) ) OR
1274: ( (p_assoc_objects5 IS NOT NULL) AND (p_assoc_objects5.COUNT <> l_temp_array_length) ) ) THEN
1275: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1276: Fnd_Message.Set_Name('IBC', 'IMPROPER_ARRAY');
1277: Fnd_Msg_Pub.ADD;
1278: END IF;
1279: RAISE Fnd_Api.G_EXC_ERROR;
1280: END IF;
1281:
1307:
1308: OPEN Get_Assoc_Id;
1309: FETCH Get_Assoc_Id INTO l_temp_assoc_id;
1310: IF (Get_Assoc_Id%NOTFOUND) THEN
1311: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1312: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
1313: Fnd_Msg_Pub.ADD;
1314: END IF;
1315: CLOSE Get_Assoc_Id;
1309: FETCH Get_Assoc_Id INTO l_temp_assoc_id;
1310: IF (Get_Assoc_Id%NOTFOUND) THEN
1311: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1312: Fnd_Message.Set_Name('IBC', 'NO_ASSOCIATION_FOUND');
1313: Fnd_Msg_Pub.ADD;
1314: END IF;
1315: CLOSE Get_Assoc_Id;
1316: RAISE Fnd_Api.G_EXC_ERROR;
1317: END IF;
1343: IF (Fnd_Api.To_Boolean(p_commit)) THEN
1344: COMMIT WORK;
1345: END IF;
1346: -- Standard call to get message count and if count=1, get the message
1347: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1348: p_data => x_msg_data);
1349: EXCEPTION
1350: WHEN Fnd_Api.G_EXC_ERROR THEN
1351: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1349: EXCEPTION
1350: WHEN Fnd_Api.G_EXC_ERROR THEN
1351: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1352: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1353: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1354: p_data => x_msg_data);
1355: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1357: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1354: p_data => x_msg_data);
1355: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1356: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1357: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1358: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1359: p_data => x_msg_data);
1360: WHEN OTHERS THEN
1361: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1362: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1359: p_data => x_msg_data);
1360: WHEN OTHERS THEN
1361: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1362: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1363: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1366: END IF;
1367: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1361: ROLLBACK TO DELETE_ASSOCIATIONS_PT;
1362: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1363: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1366: END IF;
1367: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1368: p_data => x_msg_data);
1369: END Delete_Associations;
1363: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1364: THEN
1365: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1366: END IF;
1367: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1368: p_data => x_msg_data);
1369: END Delete_Associations;
1370:
1371:
1486: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1487: END IF;
1488: -- Initialize message list if p_init_msg_list is set to TRUE.
1489: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
1490: Fnd_Msg_Pub.initialize;
1491: END IF;
1492:
1493: -- Initialize API return status to success
1494: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1496:
1497: -- Validate Citem Id
1498: IF (p_content_item_id IS NOT NULL) THEN
1499: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
1500: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1501: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1502: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
1503: Fnd_Msg_Pub.ADD;
1504: END IF;
1499: IF (Ibc_Validate_Pvt.isValidCitem(p_content_item_id) = Fnd_Api.g_false) THEN
1500: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1501: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
1502: Fnd_Message.Set_token('CITEM_ID', p_content_item_id);
1503: Fnd_Msg_Pub.ADD;
1504: END IF;
1505: RAISE Fnd_Api.G_EXC_ERROR;
1506: END IF;
1507: END IF;
1507: END IF;
1508: IF p_citem_version_id IS NOT NULL AND
1509: IBC_VALIDATE_PVT.isValidCitemVerForCitem(p_content_item_id, p_citem_version_id) = FND_API.g_false
1510: THEN
1511: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1512: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1513: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
1514: Fnd_Msg_Pub.ADD;
1515: END IF;
1510: THEN
1511: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1512: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
1513: Fnd_Message.Set_token('CITEM_VERSION_ID', p_citem_version_id);
1514: Fnd_Msg_Pub.ADD;
1515: END IF;
1516: RAISE Fnd_Api.G_EXC_ERROR;
1517: END IF;
1518:
1529:
1530: -- Retrieive Existing Associations
1531: FOR assoc_rec IN Get_Assoc LOOP
1532: IF (assoc_rec.CALL_BACK_PKG IS NULL) THEN
1533: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1534: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1535: Fnd_Message.Set_token('ASSOC_TYPE_CODE', assoc_rec.ASSOCIATION_TYPE_CODE);
1536: Fnd_Msg_Pub.ADD;
1537: END IF;
1532: IF (assoc_rec.CALL_BACK_PKG IS NULL) THEN
1533: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1534: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1535: Fnd_Message.Set_token('ASSOC_TYPE_CODE', assoc_rec.ASSOCIATION_TYPE_CODE);
1536: Fnd_Msg_Pub.ADD;
1537: END IF;
1538: RAISE Fnd_Api.G_EXC_ERROR;
1539: END IF;
1540:
1548: OUT x_return_status, OUT x_msg_count, OUT x_msg_data;
1549: EXCEPTION
1550: WHEN OTHERS THEN
1551: IF (SQLCODE = -6550) THEN
1552: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1553: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1554: Fnd_Message.Set_token('CALL_BACK_PKG', assoc_rec.CALL_BACK_PKG);
1555: Fnd_Msg_Pub.ADD;
1556: END IF;
1551: IF (SQLCODE = -6550) THEN
1552: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1553: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1554: Fnd_Message.Set_token('CALL_BACK_PKG', assoc_rec.CALL_BACK_PKG);
1555: Fnd_Msg_Pub.ADD;
1556: END IF;
1557: RAISE Fnd_Api.G_EXC_ERROR;
1558: ELSE
1559: RAISE;
1588: l_assoc_type_code := p_assoc_type_codes(i);
1589: OPEN Get_CallBack;
1590: FETCH Get_CallBack INTO l_callback_pkg;
1591: IF (Get_CallBack%NOTFOUND) THEN
1592: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1593: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1594: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1595: Fnd_Msg_Pub.ADD;
1596: END IF;
1591: IF (Get_CallBack%NOTFOUND) THEN
1592: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1593: Fnd_Message.Set_Name('IBC', 'INVALID_ASSOC_TYPE_CODE');
1594: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1595: Fnd_Msg_Pub.ADD;
1596: END IF;
1597: RAISE Fnd_Api.G_EXC_ERROR;
1598: END IF;
1599: IF (l_callback_pkg IS NULL) THEN
1596: END IF;
1597: RAISE Fnd_Api.G_EXC_ERROR;
1598: END IF;
1599: IF (l_callback_pkg IS NULL) THEN
1600: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1601: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1602: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1603: Fnd_Msg_Pub.ADD;
1604: END IF;
1599: IF (l_callback_pkg IS NULL) THEN
1600: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1601: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_IS_NULL');
1602: Fnd_Message.Set_token('ASSOC_TYPE_CODE', l_assoc_type_code);
1603: Fnd_Msg_Pub.ADD;
1604: END IF;
1605: RAISE Fnd_Api.G_EXC_ERROR;
1606: END IF;
1607: CLOSE Get_CallBack;
1630: OUT x_return_status, OUT x_msg_count, OUT x_msg_data;
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: IF (SQLCODE = -6550) THEN
1634: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1635: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1636: Fnd_Message.Set_token('CALL_BACK_PKG', l_callback_pkg);
1637: Fnd_Msg_Pub.ADD;
1638: END IF;
1633: IF (SQLCODE = -6550) THEN
1634: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1635: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1636: Fnd_Message.Set_token('CALL_BACK_PKG', l_callback_pkg);
1637: Fnd_Msg_Pub.ADD;
1638: END IF;
1639: RAISE Fnd_Api.G_EXC_ERROR;
1640: ELSE
1641: RAISE;
1666:
1667: --******************* Real Logic End *********************
1668:
1669: -- Standard call to get message count and if count=1, get the message
1670: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1671: p_data => x_msg_data);
1672: EXCEPTION
1673: WHEN Fnd_Api.G_EXC_ERROR THEN
1674: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1671: p_data => x_msg_data);
1672: EXCEPTION
1673: WHEN Fnd_Api.G_EXC_ERROR THEN
1674: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1675: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1676: p_data => x_msg_data);
1677: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1678: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1679: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1675: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1676: p_data => x_msg_data);
1677: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1678: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1679: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1680: p_data => x_msg_data);
1681: WHEN OTHERS THEN
1682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1683: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1679: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1680: p_data => x_msg_data);
1681: WHEN OTHERS THEN
1682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1683: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1684: THEN
1685: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1686: END IF;
1687: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1681: WHEN OTHERS THEN
1682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1683: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1684: THEN
1685: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1686: END IF;
1687: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1688: p_data => x_msg_data);
1689: END Get_Associations;
1683: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1684: THEN
1685: Fnd_Msg_Pub.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1686: END IF;
1687: Fnd_Msg_Pub.Count_And_Get ( p_count => x_msg_count,
1688: p_data => x_msg_data);
1689: END Get_Associations;
1690:
1691: FUNCTION Get_Association_NameAndCode(p_content_item_id IN NUMBER,
1730: OUT l_return_status, OUT l_msg_count, OUT l_msg_data;
1731: EXCEPTION
1732: WHEN OTHERS THEN
1733: IF (SQLCODE = -6550) THEN
1734: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1735: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1736: Fnd_Message.Set_token('CALL_BACK_PKG', r_callback.CALL_BACK_PKG);
1737: Fnd_Msg_Pub.ADD;
1738: END IF;
1733: IF (SQLCODE = -6550) THEN
1734: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
1735: Fnd_Message.Set_Name('IBC', 'IBC_CALL_BACK_PKG_INVALID');
1736: Fnd_Message.Set_token('CALL_BACK_PKG', r_callback.CALL_BACK_PKG);
1737: Fnd_Msg_Pub.ADD;
1738: END IF;
1739: RAISE Fnd_Api.G_EXC_ERROR;
1740: ELSE
1741: RAISE;
1747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1748: /*
1749: DBMS_OUTPUT.put_line('Errors FOUND '|| l_msg_data);
1750: for i in 0..l_msg_count loop
1751: DBMS_OUTPUT.put_line(FND_MSG_PUB.get(i,FND_API.G_FALSE));
1752: end loop;
1753: */
1754: l_result := NULL;
1755: ELSE