50: -- Validate Environment
51: -- ******************************************************************
52: IF Fnd_Global.User_Id IS NULL
53: THEN
54: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
55: THEN
56: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
57: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
58: Fnd_Msg_Pub.ADD;
54: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
55: THEN
56: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
57: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
58: Fnd_Msg_Pub.ADD;
59: END IF;
60: RAISE Fnd_Api.G_EXC_ERROR;
61: END IF;
62:
62:
63: -- Check for all the NOT NULL Columns
64: -- CV_Label_Code Cannot be NULL and must exist in IBC_LABELS
65: IF (Ibc_Validate_Pvt.isValidLabel(l_CV_Label_rec.Label_code) = Fnd_Api.g_false) THEN
66: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
67: Fnd_Message.Set_Name('IBC', 'INVALID_LABEL_CODE');
68: Fnd_Message.Set_token('LABEL_CODE', l_CV_Label_rec.Label_code);
69: Fnd_Msg_Pub.ADD;
70: END IF;
65: IF (Ibc_Validate_Pvt.isValidLabel(l_CV_Label_rec.Label_code) = Fnd_Api.g_false) THEN
66: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
67: Fnd_Message.Set_Name('IBC', 'INVALID_LABEL_CODE');
68: Fnd_Message.Set_token('LABEL_CODE', l_CV_Label_rec.Label_code);
69: Fnd_Msg_Pub.ADD;
70: END IF;
71: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
72: -- and show Exceptions all at once.
73: x_return_status := Fnd_Api.G_RET_STS_ERROR;
74: END IF;
75:
76: -- Check if Content_item_id is Valid
77: IF (Ibc_Validate_Pvt.isValidCitem(l_CV_Label_rec.content_item_id) = Fnd_Api.g_false) THEN
78: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
79: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
80: Fnd_Message.Set_token('CITEM_ID', l_CV_Label_rec.content_item_id);
81: Fnd_Msg_Pub.ADD;
82: END IF;
77: IF (Ibc_Validate_Pvt.isValidCitem(l_CV_Label_rec.content_item_id) = Fnd_Api.g_false) THEN
78: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
79: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
80: Fnd_Message.Set_token('CITEM_ID', l_CV_Label_rec.content_item_id);
81: Fnd_Msg_Pub.ADD;
82: END IF;
83: x_return_status := Fnd_Api.G_RET_STS_ERROR;
84: END IF;
85:
84: END IF;
85:
86: -- Check if Citem_Version_ID exists
87: IF (Ibc_Validate_Pvt.isValidCitemVer(l_CV_Label_rec.citem_version_id) = Fnd_Api.g_false) THEN
88: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
89: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
90: Fnd_Message.Set_token('CITEM_VERSION_ID', l_CV_Label_rec.CITEM_VERSION_id);
91: Fnd_Msg_Pub.ADD;
92: END IF;
87: IF (Ibc_Validate_Pvt.isValidCitemVer(l_CV_Label_rec.citem_version_id) = Fnd_Api.g_false) THEN
88: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
89: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
90: Fnd_Message.Set_token('CITEM_VERSION_ID', l_CV_Label_rec.CITEM_VERSION_id);
91: Fnd_Msg_Pub.ADD;
92: END IF;
93: x_return_status := Fnd_Api.G_RET_STS_ERROR;
94: END IF;
95:
99: -- Check for Uniqueness
100: OPEN C_CV_Label;
101: FETCH C_CV_Label INTO l_CV_Label_Code;
102: IF C_CV_Label%FOUND THEN
103: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
104: Fnd_Message.Set_Name('IBC', 'Label Code Already EXISTS');
105: Fnd_Message.Set_Token('COLUMN', 'Label_Code', FALSE);
106: Fnd_Msg_Pub.ADD;
107: END IF;
102: IF C_CV_Label%FOUND THEN
103: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
104: Fnd_Message.Set_Name('IBC', 'Label Code Already EXISTS');
105: Fnd_Message.Set_Token('COLUMN', 'Label_Code', FALSE);
106: Fnd_Msg_Pub.ADD;
107: END IF;
108: x_return_status := Fnd_Api.G_RET_STS_ERROR;
109: END IF;
110:
138: ,p_OBJECT_VERSION_NUMBER => l_CV_Label_rec.OBJECT_VERSION_NUMBER);
139:
140:
141: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
142: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
143: Fnd_Message.Set_Name('IBC', 'IBC_INSERT_ERROR');
144: Fnd_Msg_Pub.ADD;
145: END IF;
146:
140:
141: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
142: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
143: Fnd_Message.Set_Name('IBC', 'IBC_INSERT_ERROR');
144: Fnd_Msg_Pub.ADD;
145: END IF;
146:
147: IF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
161: COMMIT WORK;
162: END IF;
163:
164: -- Standard call to get message count and if count is 1, get message info.
165: Fnd_Msg_Pub.Count_And_Get
166: ( p_count => x_msg_count,
167: p_data => x_msg_data
168: );
169:
173: ROLLBACK;
174: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
175: P_API_NAME => L_API_NAME
176: ,P_PKG_NAME => G_PKG_NAME
177: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
178: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
179: ,P_SQLCODE => SQLCODE
180: ,P_SQLERRM => SQLERRM
181: ,X_MSG_COUNT => X_MSG_COUNT
186: ROLLBACK;
187: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
188: P_API_NAME => L_API_NAME
189: ,P_PKG_NAME => G_PKG_NAME
190: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
191: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
192: ,P_SQLCODE => SQLCODE
193: ,P_SQLERRM => SQLERRM
194: ,X_MSG_COUNT => X_MSG_COUNT
256: -- Validate Environment
257: -- ******************************************************************
258: IF Fnd_Global.User_Id IS NULL
259: THEN
260: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
261: THEN
262: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
263: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
264: Fnd_Msg_Pub.ADD;
260: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
261: THEN
262: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
263: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
264: Fnd_Msg_Pub.ADD;
265: END IF;
266: RAISE Fnd_Api.G_EXC_ERROR;
267: END IF;
268:
268:
269: -- Check for all the NOT NULL Columns
270: -- CV_Label_Code Cannot be NULL and must exist in IBC_LABELS
271: IF (Ibc_Validate_Pvt.isValidLabel(l_CV_Label_rec.Label_code) = Fnd_Api.g_false) THEN
272: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
273: Fnd_Message.Set_Name('IBC', 'INVALID_LABEL_CODE');
274: Fnd_Message.Set_token('LABEL_CODE', l_CV_Label_rec.Label_code);
275: Fnd_Msg_Pub.ADD;
276: END IF;
271: IF (Ibc_Validate_Pvt.isValidLabel(l_CV_Label_rec.Label_code) = Fnd_Api.g_false) THEN
272: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
273: Fnd_Message.Set_Name('IBC', 'INVALID_LABEL_CODE');
274: Fnd_Message.Set_token('LABEL_CODE', l_CV_Label_rec.Label_code);
275: Fnd_Msg_Pub.ADD;
276: END IF;
277: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
278: -- and show Exceptions all at once.
279: x_return_status := Fnd_Api.G_RET_STS_ERROR;
280: END IF;
281:
282: -- Check if Content_item_id is Valid
283: IF (Ibc_Validate_Pvt.isValidCitem(l_CV_Label_rec.content_item_id) = Fnd_Api.g_false) THEN
284: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
285: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
286: Fnd_Message.Set_token('CITEM_ID', l_CV_Label_rec.content_item_id);
287: Fnd_Msg_Pub.ADD;
288: END IF;
283: IF (Ibc_Validate_Pvt.isValidCitem(l_CV_Label_rec.content_item_id) = Fnd_Api.g_false) THEN
284: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
285: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_ID');
286: Fnd_Message.Set_token('CITEM_ID', l_CV_Label_rec.content_item_id);
287: Fnd_Msg_Pub.ADD;
288: END IF;
289: x_return_status := Fnd_Api.G_RET_STS_ERROR;
290: END IF;
291:
290: END IF;
291:
292: -- Check if Citem_Version_ID exists
293: IF (Ibc_Validate_Pvt.isValidCitemVer(l_CV_Label_rec.citem_version_id) = Fnd_Api.g_false) THEN
294: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
295: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
296: Fnd_Message.Set_token('CITEM_VERSION_ID', l_CV_Label_rec.CITEM_VERSION_id);
297: Fnd_Msg_Pub.ADD;
298: END IF;
293: IF (Ibc_Validate_Pvt.isValidCitemVer(l_CV_Label_rec.citem_version_id) = Fnd_Api.g_false) THEN
294: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
295: Fnd_Message.Set_Name('IBC', 'INVALID_CITEM_VERSION_ID');
296: Fnd_Message.Set_token('CITEM_VERSION_ID', l_CV_Label_rec.CITEM_VERSION_id);
297: Fnd_Msg_Pub.ADD;
298: END IF;
299: x_return_status := Fnd_Api.G_RET_STS_ERROR;
300: END IF;
301:
305: -- Check if the label code exists
306: OPEN C_CV_Label;
307: FETCH C_CV_Label INTO l_CV_Label_Code;
308: IF C_CV_Label%NOTFOUND THEN
309: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
310: Fnd_Message.Set_Name('IBC', 'Label Code doesnot EXIST');
311: Fnd_Message.Set_Token('COLUMN', 'Label_Code', FALSE);
312: Fnd_Msg_Pub.ADD;
313: END IF;
308: IF C_CV_Label%NOTFOUND THEN
309: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
310: Fnd_Message.Set_Name('IBC', 'Label Code doesnot EXIST');
311: Fnd_Message.Set_Token('COLUMN', 'Label_Code', FALSE);
312: Fnd_Msg_Pub.ADD;
313: END IF;
314: x_return_status := Fnd_Api.G_RET_STS_ERROR;
315: END IF;
316: CLOSE C_CV_Label;
338:
339:
340:
341: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
342: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
343: Fnd_Message.Set_Name('IBC', 'IBC_UPDATE_ERROR');
344: Fnd_Msg_Pub.ADD;
345: END IF;
346:
340:
341: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
342: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
343: Fnd_Message.Set_Name('IBC', 'IBC_UPDATE_ERROR');
344: Fnd_Msg_Pub.ADD;
345: END IF;
346:
347: IF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
348: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
361: COMMIT WORK;
362: END IF;
363:
364: -- Standard call to get message count and if count is 1, get message info.
365: Fnd_Msg_Pub.Count_And_Get
366: ( p_count => x_msg_count,
367: p_data => x_msg_data
368: );
369:
373: ROLLBACK;
374: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
375: P_API_NAME => L_API_NAME
376: ,P_PKG_NAME => G_PKG_NAME
377: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
378: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
379: ,P_SQLCODE => SQLCODE
380: ,P_SQLERRM => SQLERRM
381: ,X_MSG_COUNT => X_MSG_COUNT
386: ROLLBACK;
387: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
388: P_API_NAME => L_API_NAME
389: ,P_PKG_NAME => G_PKG_NAME
390: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
391: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
392: ,P_SQLCODE => SQLCODE
393: ,P_SQLERRM => SQLERRM
394: ,X_MSG_COUNT => X_MSG_COUNT
455: -- Validate Environment
456: -- ******************************************************************
457: IF Fnd_Global.User_Id IS NULL
458: THEN
459: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
460: THEN
461: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
462: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
463: Fnd_Msg_Pub.ADD;
459: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
460: THEN
461: Fnd_Message.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
462: Fnd_Message.Set_Token('PROFILE', 'USER_ID', FALSE);
463: Fnd_Msg_Pub.ADD;
464: END IF;
465: RAISE Fnd_Api.G_EXC_ERROR;
466: END IF;
467:
475:
476:
477:
478: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
479: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
480: Fnd_Message.Set_Name('IBC', 'IBC_DELETE_ERROR');
481: Fnd_Msg_Pub.ADD;
482: END IF;
483:
477:
478: IF x_return_status<>Fnd_Api.G_RET_STS_SUCCESS THEN
479: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
480: Fnd_Message.Set_Name('IBC', 'IBC_DELETE_ERROR');
481: Fnd_Msg_Pub.ADD;
482: END IF;
483:
484: IF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR) THEN
485: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
498: COMMIT WORK;
499: END IF;
500:
501: -- Standard call to get message count and if count is 1, get message info.
502: Fnd_Msg_Pub.Count_And_Get
503: ( p_count => x_msg_count,
504: p_data => x_msg_data
505: );
506:
510: ROLLBACK;
511: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
512: P_API_NAME => L_API_NAME
513: ,P_PKG_NAME => G_PKG_NAME
514: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_ERROR
515: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
516: ,P_SQLCODE => SQLCODE
517: ,P_SQLERRM => SQLERRM
518: ,X_MSG_COUNT => X_MSG_COUNT
523: ROLLBACK;
524: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
525: P_API_NAME => L_API_NAME
526: ,P_PKG_NAME => G_PKG_NAME
527: ,P_EXCEPTION_LEVEL => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
528: ,P_PACKAGE_TYPE => Ibc_Utilities_Pvt.G_PVT
529: ,P_SQLCODE => SQLCODE
530: ,P_SQLERRM => SQLERRM
531: ,X_MSG_COUNT => X_MSG_COUNT
584: EXCEPTION
585: WHEN NO_DATA_FOUND THEN
586: RAISE NO_DATA_FOUND;
587: WHEN OTHERS THEN
588: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
589: Fnd_Message.Set_Name('IBC', 'CItem Version Label RECORD Error');
590: Fnd_Msg_Pub.ADD;
591: END IF;
592: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
586: RAISE NO_DATA_FOUND;
587: WHEN OTHERS THEN
588: IF Fnd_Msg_Pub.Check_Msg_Level (Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
589: Fnd_Message.Set_Name('IBC', 'CItem Version Label RECORD Error');
590: Fnd_Msg_Pub.ADD;
591: END IF;
592: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
593: END Query_CV_Label_Row;
594:
634:
635: SAVEPOINT SVPT_UPSERT_CV_LABELS;
636:
637: IF (p_init_msg_list = Fnd_Api.g_true) THEN --|**|
638: Fnd_Msg_Pub.initialize; --|**|
639: END IF; --|**|
640: --|**|
641: -- Standard call to check for call compatibility. --|**|
642: IF NOT Fnd_Api.Compatible_API_Call ( --|**|
669: x_return_status := Fnd_Api.G_RET_STS_ERROR;
670: Fnd_Message.Set_Name('IBC', 'API_INVALID_ID');
671: Fnd_Message.Set_Token('COLUMN','p_citem_version_ids', FALSE);
672: Fnd_Message.Set_Token('VALUE','p_citem_version_ids(i)', FALSE);
673: Fnd_Msg_Pub.ADD;
674: RAISE Fnd_Api.G_EXC_ERROR;
675: END;
676: ELSIF p_version_number.COUNT <> 0 THEN
677: BEGIN
691: x_return_status := Fnd_Api.G_RET_STS_ERROR;
692: Fnd_Message.Set_Name('IBC', 'API_INVALID_ID');
693: Fnd_Message.Set_Token('COLUMN','p_version_number', FALSE);
694: Fnd_Message.Set_Token('VALUE','p_version_number(i)',FALSE);
695: Fnd_Msg_Pub.ADD;
696: RAISE Fnd_Api.G_EXC_ERROR;
697: END;
698: END IF;
699:
708: x_return_status := Fnd_Api.G_RET_STS_ERROR;
709: Fnd_Message.Set_Name('IBC', 'API_INVALID_ID');
710: Fnd_Message.Set_Token('COLUMN','p_label_code', FALSE);
711: Fnd_Message.Set_Token('VALUE',p_label_code, FALSE);
712: Fnd_Msg_Pub.ADD;
713: RAISE Fnd_Api.G_EXC_ERROR;
714: END;
715:
716: --
778: COMMIT;
779: END IF;
780:
781: -- Standard call to get message count and if count is 1, get message info.
782: Fnd_Msg_Pub.Count_And_Get(
783: p_count => x_msg_count,
784: p_data => x_msg_data
785: );
786:
790: --DBMS_OUTPUT.put_line('Expected Error');
791: Ibc_Utilities_Pvt.handle_exceptions(
792: p_api_name => L_API_NAME
793: ,p_pkg_name => G_PKG_NAME
794: ,p_exception_level => Fnd_Msg_Pub.G_MSG_LVL_ERROR
795: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
796: ,p_sqlcode => SQLCODE
797: ,p_sqlerrm => SQLERRM
798: ,x_msg_count => x_msg_count
805: --DBMS_OUTPUT.put_line('Unexpected error');
806: Ibc_Utilities_Pvt.handle_exceptions(
807: p_api_name => L_API_NAME
808: ,p_pkg_name => G_PKG_NAME
809: ,p_exception_level => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
810: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
811: ,p_sqlcode => SQLCODE
812: ,p_sqlerrm => SQLERRM
813: ,x_msg_count => x_msg_count
938:
939: SAVEPOINT SVPT_DELETE_CV_LABELS;
940:
941: IF (p_init_msg_list = Fnd_Api.g_true) THEN --|**|
942: Fnd_Msg_Pub.initialize; --|**|
943: END IF; --|**|
944: --|**|
945: -- Standard call to check for call compatibility. --|**|
946: IF NOT Fnd_Api.Compatible_API_Call ( --|**|
970: COMMIT;
971: END IF;
972:
973: -- Standard call to get message count and if count is 1, get message info.
974: Fnd_Msg_Pub.Count_And_Get(
975: p_count => x_msg_count,
976: p_data => x_msg_data
977: );
978:
982: --DBMS_OUTPUT.put_line('Expected Error');
983: Ibc_Utilities_Pvt.handle_exceptions(
984: p_api_name => L_API_NAME
985: ,p_pkg_name => G_PKG_NAME
986: ,p_exception_level => Fnd_Msg_Pub.G_MSG_LVL_ERROR
987: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
988: ,p_sqlcode => SQLCODE
989: ,p_sqlerrm => SQLERRM
990: ,x_msg_count => x_msg_count
997: --DBMS_OUTPUT.put_line('Unexpected error');
998: Ibc_Utilities_Pvt.handle_exceptions(
999: p_api_name => L_API_NAME
1000: ,p_pkg_name => G_PKG_NAME
1001: ,p_exception_level => Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR
1002: ,p_package_type => Ibc_Utilities_Pvt.G_PVT
1003: ,p_sqlcode => SQLCODE
1004: ,p_sqlerrm => SQLERRM
1005: ,x_msg_count => x_msg_count