67: END IF;
68:
69: -- Initialize message list if p_init_msg_list is set to TRUE
70: IF FND_API.To_Boolean(p_init_msg_list) THEN
71: FND_MSG_PUB.initialize;
72: END IF;
73:
74: -- Initialize API return status to success
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
175: COMMIT WORK;
176: END IF;
177:
178: -- Standard call to get message count and if count is 1, get message info
179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
180:
181: EXCEPTION
182: WHEN FND_API.G_EXC_ERROR THEN
183: ROLLBACK TO INSERT_OUTCOME_PVT;
181: EXCEPTION
182: WHEN FND_API.G_EXC_ERROR THEN
183: ROLLBACK TO INSERT_OUTCOME_PVT;
184: x_return_status := FND_API.G_RET_STS_ERROR;
185: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO INSERT_OUTCOME_PVT;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186:
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: ROLLBACK TO INSERT_OUTCOME_PVT;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
191:
192: WHEN OTHERS THEN
193: ROLLBACK TO INSERT_OUTCOME_PVT;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191:
192: WHEN OTHERS THEN
193: ROLLBACK TO INSERT_OUTCOME_PVT;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
196: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
197: END IF;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
199:
192: WHEN OTHERS THEN
193: ROLLBACK TO INSERT_OUTCOME_PVT;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
196: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
197: END IF;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
199:
200: END INSERT_OUTCOME;
194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
196: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
197: END IF;
198: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
199:
200: END INSERT_OUTCOME;
201:
202: PROCEDURE UPDATE_OUTCOME(
237: END IF;
238:
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;
284: COMMIT WORK;
285: END IF;
286:
287: -- Standard call to get message count and if count is 1, get message info
288: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
289:
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: ROLLBACK TO UPDATE_OUTCOME_PVT;
290: EXCEPTION
291: WHEN FND_API.G_EXC_ERROR THEN
292: ROLLBACK TO UPDATE_OUTCOME_PVT;
293: x_return_status := FND_API.G_RET_STS_ERROR;
294: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
295:
296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297: ROLLBACK TO UPDATE_OUTCOME_PVT;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295:
296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297: ROLLBACK TO UPDATE_OUTCOME_PVT;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
300:
301: WHEN OTHERS THEN
302: ROLLBACK TO UPDATE_OUTCOME_PVT;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
300:
301: WHEN OTHERS THEN
302: ROLLBACK TO UPDATE_OUTCOME_PVT;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
305: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
306: END IF;
307: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
308:
301: WHEN OTHERS THEN
302: ROLLBACK TO UPDATE_OUTCOME_PVT;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
305: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
306: END IF;
307: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
308:
309: END UPDATE_OUTCOME;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
305: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
306: END IF;
307: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
308:
309: END UPDATE_OUTCOME;
310:
311: PROCEDURE INSERT_RESULT(
365: END IF;
366:
367: -- Initialize message list if p_init_msg_list is set to TRUE
368: IF FND_API.To_Boolean(p_init_msg_list) THEN
369: FND_MSG_PUB.initialize;
370: END IF;
371:
372: -- Initialize API return status to success
373: x_return_status := FND_API.G_RET_STS_SUCCESS;
471: COMMIT WORK;
472: END IF;
473:
474: -- Standard call to get message count and if count is 1, get message info
475: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
476:
477: EXCEPTION
478: WHEN FND_API.G_EXC_ERROR THEN
479: ROLLBACK TO INSERT_RESULT_PVT;
477: EXCEPTION
478: WHEN FND_API.G_EXC_ERROR THEN
479: ROLLBACK TO INSERT_RESULT_PVT;
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484: ROLLBACK TO INSERT_RESULT_PVT;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482:
483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
484: ROLLBACK TO INSERT_RESULT_PVT;
485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
486: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
487:
488: WHEN OTHERS THEN
489: ROLLBACK TO INSERT_RESULT_PVT;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487:
488: WHEN OTHERS THEN
489: ROLLBACK TO INSERT_RESULT_PVT;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
492: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
493: END IF;
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
495:
488: WHEN OTHERS THEN
489: ROLLBACK TO INSERT_RESULT_PVT;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
492: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
493: END IF;
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
495:
496: END INSERT_RESULT;
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
492: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
493: END IF;
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
495:
496: END INSERT_RESULT;
497:
498: PROCEDURE UPDATE_RESULT(
532: END IF;
533:
534: -- Initialize message list if p_init_msg_list is set to TRUE
535: IF FND_API.To_Boolean(p_init_msg_list) THEN
536: FND_MSG_PUB.initialize;
537: END IF;
538:
539: -- Initialize API return status to success
540: x_return_status := FND_API.G_RET_STS_SUCCESS;
578: COMMIT WORK;
579: END IF;
580:
581: -- Standard call to get message count and if count is 1, get message info
582: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
583:
584: EXCEPTION
585: WHEN FND_API.G_EXC_ERROR THEN
586: ROLLBACK TO UPDATE_RESULT_PVT;
584: EXCEPTION
585: WHEN FND_API.G_EXC_ERROR THEN
586: ROLLBACK TO UPDATE_RESULT_PVT;
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
589:
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO UPDATE_RESULT_PVT;
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589:
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO UPDATE_RESULT_PVT;
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
594:
595: WHEN OTHERS THEN
596: ROLLBACK TO UPDATE_RESULT_PVT;
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
594:
595: WHEN OTHERS THEN
596: ROLLBACK TO UPDATE_RESULT_PVT;
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
600: END IF;
601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
602:
595: WHEN OTHERS THEN
596: ROLLBACK TO UPDATE_RESULT_PVT;
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
600: END IF;
601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
602:
603: END UPDATE_RESULT;
597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
600: END IF;
601: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
602:
603: END UPDATE_RESULT;
604:
605: PROCEDURE INSERT_REASON(
657: END IF;
658:
659: -- Initialize message list if p_init_msg_list is set to TRUE
660: IF FND_API.To_Boolean(p_init_msg_list) THEN
661: FND_MSG_PUB.initialize;
662: END IF;
663:
664: -- Initialize API return status to success
665: x_return_status := FND_API.G_RET_STS_SUCCESS;
759: COMMIT WORK;
760: END IF;
761:
762: -- Standard call to get message count and if count is 1, get message info
763: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
764:
765: EXCEPTION
766: WHEN FND_API.G_EXC_ERROR THEN
767: ROLLBACK TO INSERT_REASON_PVT;
765: EXCEPTION
766: WHEN FND_API.G_EXC_ERROR THEN
767: ROLLBACK TO INSERT_REASON_PVT;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
770:
771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
772: ROLLBACK TO INSERT_REASON_PVT;
773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770:
771: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
772: ROLLBACK TO INSERT_REASON_PVT;
773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
775:
776: WHEN OTHERS THEN
777: ROLLBACK TO INSERT_REASON_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
775:
776: WHEN OTHERS THEN
777: ROLLBACK TO INSERT_REASON_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
780: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
781: END IF;
782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
783:
776: WHEN OTHERS THEN
777: ROLLBACK TO INSERT_REASON_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
780: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
781: END IF;
782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
783:
784: END INSERT_REASON;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
780: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
781: END IF;
782: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
783:
784: END INSERT_REASON;
785:
786: PROCEDURE UPDATE_REASON(
818: END IF;
819:
820: -- Initialize message list if p_init_msg_list is set to TRUE
821: IF FND_API.To_Boolean(p_init_msg_list) THEN
822: FND_MSG_PUB.initialize;
823: END IF;
824:
825: -- Initialize API return status to success
826: x_return_status := FND_API.G_RET_STS_SUCCESS;
862: COMMIT WORK;
863: END IF;
864:
865: -- Standard call to get message count and if count is 1, get message info
866: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
867:
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: ROLLBACK TO UPDATE_REASON_PVT;
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: ROLLBACK TO UPDATE_REASON_PVT;
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
873:
874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875: ROLLBACK TO UPDATE_REASON_PVT;
876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873:
874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875: ROLLBACK TO UPDATE_REASON_PVT;
876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
877: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
878:
879: WHEN OTHERS THEN
880: ROLLBACK TO UPDATE_REASON_PVT;
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878:
879: WHEN OTHERS THEN
880: ROLLBACK TO UPDATE_REASON_PVT;
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
883: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
884: END IF;
885: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
886:
879: WHEN OTHERS THEN
880: ROLLBACK TO UPDATE_REASON_PVT;
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
883: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
884: END IF;
885: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
886:
887: END UPDATE_REASON;
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
882: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
883: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
884: END IF;
885: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
886:
887: END UPDATE_REASON;
888:
889: PROCEDURE ALTER_OUTCOME_RESULT_LINK(
915: END IF;
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE
918: IF FND_API.To_Boolean(p_init_msg_list) THEN
919: FND_MSG_PUB.initialize;
920: END IF;
921:
922: -- Initialize API return status to success
923: x_return_status := FND_API.G_RET_STS_SUCCESS;
961: COMMIT WORK;
962: END IF;
963:
964: -- Standard call to get message count and if count is 1, get message info
965: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
966:
967: EXCEPTION
968: WHEN FND_API.G_EXC_ERROR THEN
969: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
967: EXCEPTION
968: WHEN FND_API.G_EXC_ERROR THEN
969: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
970: x_return_status := FND_API.G_RET_STS_ERROR;
971: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
972:
973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
974: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972:
973: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
974: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
977:
978: WHEN OTHERS THEN
979: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977:
978: WHEN OTHERS THEN
979: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
982: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
983: END IF;
984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
985:
978: WHEN OTHERS THEN
979: ROLLBACK TO ALTER_OUTCOME_RESULT_LINK_PVT;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
982: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
983: END IF;
984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
985:
986: END ALTER_OUTCOME_RESULT_LINK;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
982: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
983: END IF;
984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
985:
986: END ALTER_OUTCOME_RESULT_LINK;
987:
988: PROCEDURE ALTER_RESULT_REASON_LINK(
1014: END IF;
1015:
1016: -- Initialize message list if p_init_msg_list is set to TRUE
1017: IF FND_API.To_Boolean(p_init_msg_list) THEN
1018: FND_MSG_PUB.initialize;
1019: END IF;
1020:
1021: -- Initialize API return status to success
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1060: COMMIT WORK;
1061: END IF;
1062:
1063: -- Standard call to get message count and if count is 1, get message info
1064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1065:
1066: EXCEPTION
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1066: EXCEPTION
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1070: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1076:
1077: WHEN OTHERS THEN
1078: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1076:
1077: WHEN OTHERS THEN
1078: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1081: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1084:
1077: WHEN OTHERS THEN
1078: ROLLBACK TO ALTER_RESULT_REASON_LINK_PVT;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1081: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1084:
1085: END ALTER_RESULT_REASON_LINK;
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1081: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1084:
1085: END ALTER_RESULT_REASON_LINK;
1086:
1087: END AST_WRAPUP_ADM_PVT;