78: END IF;
79: --
80:
81: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
82: FND_MSG_PUB.initialize ;
83: END IF;
84: --
85: p_return_status := FND_API.G_RET_STS_SUCCESS ;
86: --
98: P_LAST_UPDATE_LOGIN := -1;
99: end if;
100: else
101: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
102: FND_MSG_PUB.Add ;
103: raise FND_API.G_EXC_ERROR;
104: end if;
105: --
106:
171: IF FND_API.To_Boolean ( p_commit ) THEN
172: COMMIT WORK;
173: END iF;
174: --
175: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
176: p_data => p_msg_data );
177: --
178: EXCEPTION
179: --
180: WHEN FND_API.G_EXC_ERROR THEN
181: --
182: ROLLBACK TO Insert_Row_Pvt ;
183: p_return_status := FND_API.G_RET_STS_ERROR;
184: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
185: p_data => p_msg_data );
186: --
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: --
187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188: --
189: ROLLBACK TO Insert_Row_Pvt ;
190: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
192: p_data => p_msg_data );
193: --
194: WHEN OTHERS THEN
195: --
195: --
196: ROLLBACK TO Insert_Row_Pvt ;
197: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: --
199: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
200: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
201: l_api_name);
202: END if;
203: --
196: ROLLBACK TO Insert_Row_Pvt ;
197: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: --
199: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
200: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
201: l_api_name);
202: END if;
203: --
204: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
200: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
201: l_api_name);
202: END if;
203: --
204: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
205: p_data => p_msg_data );
206: --
207: END Insert_Row;
208: /*-------------------------------------------------------------------------*/
291: END IF;
292: --
293:
294: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
295: FND_MSG_PUB.initialize ;
296: END IF;
297: --
298: p_return_status := FND_API.G_RET_STS_SUCCESS ;
299: p_row_locked := FND_API.G_TRUE ;
303: FETCH C INTO Recinfo;
304: IF (C%NOTFOUND) then
305: CLOSE C;
306: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
307: FND_MSG_PUB.Add;
308: -- For bug # 2396565 : Following statement comented since Cursor is already closed
309: -- CLOSE c;
310: RAISE FND_API.G_EXC_ERROR ;
311: END IF;
364: THEN
365: NULL ;
366: ELSE
367: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED') ;
368: FND_MSG_PUB.Add ;
369: RAISE FND_API.G_EXC_ERROR ;
370: END IF;
371:
372: --
374: IF FND_API.To_Boolean ( p_commit ) THEN
375: COMMIT WORK;
376: END iF;
377: --
378: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
379: p_data => p_msg_data );
380: */
381: --
382: EXCEPTION
390: WHEN FND_API.G_EXC_ERROR THEN
391: --
392: ROLLBACK TO Lock_Row_Pvt ;
393: p_return_status := FND_API.G_RET_STS_ERROR;
394: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
395: p_data => p_msg_data );
396: --
397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
398: --
397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
398: --
399: ROLLBACK TO Lock_Row_Pvt ;
400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
402: p_data => p_msg_data );
403: --
404: WHEN OTHERS THEN
405: --
405: --
406: ROLLBACK TO Lock_Row_Pvt ;
407: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: --
409: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
410: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
411: l_api_name);
412: END if;
413: --
406: ROLLBACK TO Lock_Row_Pvt ;
407: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: --
409: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
410: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
411: l_api_name);
412: END if;
413: --
414: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
410: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
411: l_api_name);
412: END if;
413: --
414: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
415: p_data => p_msg_data );
416: --
417: END Lock_Row;
418: /* ----------------------------------------------------------------------- */
478: END IF;
479: --
480:
481: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
482: FND_MSG_PUB.initialize ;
483: END IF;
484: --
485: p_return_status := FND_API.G_RET_STS_SUCCESS ;
486: --
499: P_LAST_UPDATE_LOGIN := -1;
500: end if;
501: else
502: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
503: FND_MSG_PUB.Add ;
504: raise FND_API.G_EXC_ERROR ;
505: end if;
506: --
507: UPDATE psb_ws_distribution_rule_lines
541: COMMIT WORK;
542: END iF;
543: --
544: -- Standard call to get message count and if count is 1, get message info.
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547: --
548: EXCEPTION
549:
550: WHEN FND_API.G_EXC_ERROR THEN
551: --
552: ROLLBACK TO Update_Row_Pvt ;
553: p_return_status := FND_API.G_RET_STS_ERROR;
554: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
555: p_data => p_msg_data );
556: --
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: --
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: --
559: ROLLBACK TO Update_Row_Pvt ;
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
562: p_data => p_msg_data );
563: --
564: WHEN OTHERS THEN
565: --
565: --
566: ROLLBACK TO Update_Row_Pvt ;
567: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: --
569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
570: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
571: l_api_name);
572: END if;
573: --
566: ROLLBACK TO Update_Row_Pvt ;
567: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: --
569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
570: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
571: l_api_name);
572: END if;
573: --
574: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
570: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
571: l_api_name);
572: END if;
573: --
574: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
575: p_data => p_msg_data );
576: --
577: END Update_Row;
578: /* ----------------------------------------------------------------------- */
614: END IF;
615: --
616:
617: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
618: FND_MSG_PUB.initialize ;
619: END IF;
620: --
621: p_return_status := FND_API.G_RET_STS_SUCCESS ;
622: --
635: IF FND_API.To_Boolean ( p_commit ) THEN
636: COMMIT WORK;
637: END iF;
638: --
639: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
640: p_data => p_msg_data );
641:
642: EXCEPTION
643: --
644: WHEN FND_API.G_EXC_ERROR THEN
645: --
646: ROLLBACK TO Delete_Row_Pvt ;
647: p_return_status := FND_API.G_RET_STS_ERROR;
648: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
649: p_data => p_msg_data );
650: --
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: --
651: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
652: --
653: ROLLBACK TO Delete_Row_Pvt ;
654: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
655: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
656: p_data => p_msg_data );
657: --
658: WHEN OTHERS THEN
659: --
659: --
660: ROLLBACK TO Delete_Row_Pvt ;
661: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
662: --
663: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
664: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
665: l_api_name);
666: END if;
667: --
660: ROLLBACK TO Delete_Row_Pvt ;
661: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
662: --
663: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
664: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
665: l_api_name);
666: END if;
667: --
668: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
664: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
665: l_api_name);
666: END if;
667: --
668: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
669: p_data => p_msg_data );
670: --
671: END Delete_Row;
672: /* ----------------------------------------------------------------------- */
719: END IF;
720: --
721:
722: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
723: FND_MSG_PUB.initialize ;
724: END IF;
725: --
726: p_return_status := FND_API.G_RET_STS_SUCCESS ;
727: --
743: IF FND_API.To_Boolean ( p_commit ) THEN
744: COMMIT WORK;
745: END iF;
746: --
747: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
748: p_data => p_msg_data );
749: --
750: EXCEPTION
751: --
752: WHEN FND_API.G_EXC_ERROR THEN
753: --
754: ROLLBACK TO Check_Unique_Pvt ;
755: p_return_status := FND_API.G_RET_STS_ERROR;
756: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
757: p_data => p_msg_data );
758: --
759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
760: --
759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
760: --
761: ROLLBACK TO Check_Unique_Pvt ;
762: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
763: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
764: p_data => p_msg_data );
765: --
766: WHEN OTHERS THEN
767: --
767: --
768: ROLLBACK TO Check_Unique_Pvt ;
769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: --
771: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
772: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
773: l_api_name);
774: END if;
775: --
768: ROLLBACK TO Check_Unique_Pvt ;
769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: --
771: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
772: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
773: l_api_name);
774: END if;
775: --
776: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
772: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
773: l_api_name);
774: END if;
775: --
776: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
777: p_data => p_msg_data );
778: --
779: END Check_Unique;
780: /* ----------------------------------------------------------------------- */
831: END IF;
832: --
833:
834: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
835: FND_MSG_PUB.initialize ;
836: END IF;
837: --
838: p_return_status := FND_API.G_RET_STS_SUCCESS ;
839: --
851: P_LAST_UPDATE_LOGIN := -1;
852: end if;
853: else
854: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
855: FND_MSG_PUB.Add ;
856: raise FND_API.G_EXC_ERROR;
857: end if;
858: --
859:
901: IF FND_API.To_Boolean ( p_commit ) THEN
902: COMMIT WORK;
903: END iF;
904: --
905: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
906: p_data => p_msg_data );
907: --
908: EXCEPTION
909: --
910: WHEN FND_API.G_EXC_ERROR THEN
911: --
912: ROLLBACK TO Distribution_Insert_Row_Pvt ;
913: p_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
915: p_data => p_msg_data );
916: --
917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
918: --
917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
918: --
919: ROLLBACK TO Distribution_Insert_Row_Pvt ;
920: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
921: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
922: p_data => p_msg_data );
923: --
924: WHEN OTHERS THEN
925: --
925: --
926: ROLLBACK TO Distribution_Insert_Row_Pvt ;
927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928: --
929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
930: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
931: l_api_name);
932: END if;
933: --
926: ROLLBACK TO Distribution_Insert_Row_Pvt ;
927: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928: --
929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
930: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
931: l_api_name);
932: END if;
933: --
934: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
930: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
931: l_api_name);
932: END if;
933: --
934: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
935: p_data => p_msg_data );
936: --
937: END Distribution_Insert_Row;
938: /*-------------------------------------------------------------------------*/
983: END IF;
984: --
985:
986: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
987: FND_MSG_PUB.initialize ;
988: END IF;
989: --
990: p_return_status := FND_API.G_RET_STS_SUCCESS ;
991: --
1003: P_LAST_UPDATE_LOGIN := -1;
1004: end if;
1005: else
1006: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1007: FND_MSG_PUB.Add ;
1008: raise FND_API.G_EXC_ERROR;
1009: end if;
1010: --
1011:
1043: IF FND_API.To_Boolean ( p_commit ) THEN
1044: COMMIT WORK;
1045: END iF;
1046: --
1047: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1048: p_data => p_msg_data );
1049: --
1050: EXCEPTION
1051: --
1052: WHEN FND_API.G_EXC_ERROR THEN
1053: --
1054: ROLLBACK TO Rules_Insert_Row_Pvt ;
1055: p_return_status := FND_API.G_RET_STS_ERROR;
1056: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1057: p_data => p_msg_data );
1058: --
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: --
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: --
1061: ROLLBACK TO Rules_Insert_Row_Pvt ;
1062: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1063: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1064: p_data => p_msg_data );
1065: --
1066: WHEN OTHERS THEN
1067: --
1067: --
1068: ROLLBACK TO Rules_Insert_Row_Pvt ;
1069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1070: --
1071: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1072: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1073: l_api_name);
1074: END if;
1075: --
1068: ROLLBACK TO Rules_Insert_Row_Pvt ;
1069: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1070: --
1071: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1072: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1073: l_api_name);
1074: END if;
1075: --
1076: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1072: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1073: l_api_name);
1074: END if;
1075: --
1076: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1077: p_data => p_msg_data );
1078: --
1079: END Rules_Insert_Row;
1080: /*==========================================================================+
1112: END IF;
1113: --
1114:
1115: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1116: FND_MSG_PUB.initialize ;
1117: END IF;
1118: --
1119: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1120: --
1124: WHERE distribution_rule_id = p_distribution_rule_id;
1125:
1126: IF (l_ws_count <> 0) THEN
1127: FND_MESSAGE.SET_NAME('PSB', 'PSB_RULE_IS_DISTRIBUTED');
1128: FND_MSG_PUB.Add;
1129: RAISE FND_API.G_EXC_ERROR ;
1130: END IF;
1131: --
1132: -- Deleting the record in psb_ws_distribution_rule_lines and rules.
1145: IF FND_API.To_Boolean ( p_commit ) THEN
1146: COMMIT WORK;
1147: END iF;
1148: --
1149: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1150: p_data => p_msg_data );
1151:
1152: EXCEPTION
1153: --
1154: WHEN FND_API.G_EXC_ERROR THEN
1155: --
1156: ROLLBACK TO Rules_Delete_Row_Pvt ;
1157: p_return_status := FND_API.G_RET_STS_ERROR;
1158: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1159: p_data => p_msg_data );
1160: --
1161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1162: --
1161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1162: --
1163: ROLLBACK TO Rules_Delete_Row_Pvt ;
1164: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1166: p_data => p_msg_data );
1167: --
1168: WHEN OTHERS THEN
1169: --
1169: --
1170: ROLLBACK TO Rules_Delete_Row_Pvt ;
1171: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1172: --
1173: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1174: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1175: l_api_name);
1176: END if;
1177: --
1170: ROLLBACK TO Rules_Delete_Row_Pvt ;
1171: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1172: --
1173: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1174: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1175: l_api_name);
1176: END if;
1177: --
1178: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1174: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1175: l_api_name);
1176: END if;
1177: --
1178: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1179: p_data => p_msg_data );
1180: --
1181: END Rules_Delete_Row;
1182: /*-------------------------------------------------------------------------*/
1241:
1242: -- Initialize message list if p_init_msg_list is set to TRUE.
1243:
1244: if FND_API.to_Boolean (p_init_msg_list) then
1245: FND_MSG_PUB.initialize;
1246: end if;
1247:
1248: -- Initialize API return status to success
1249:
1322: when FND_API.G_EXC_ERROR then
1323: --
1324: rollback to Copy_Rule;
1325: p_return_status := FND_API.G_RET_STS_ERROR;
1326: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1327: p_data => p_msg_data);
1328: --
1329: when FND_API.G_EXC_UNEXPECTED_ERROR then
1330: --
1329: when FND_API.G_EXC_UNEXPECTED_ERROR then
1330: --
1331: rollback to Copy_Rule;
1332: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1333: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1334: p_data => p_msg_data);
1335: --
1336: when OTHERS then
1337: --
1336: when OTHERS then
1337: --
1338: rollback to Copy_Rule ;
1339: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1340: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1341: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1342: l_api_name);
1343: end if;
1344: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1337: --
1338: rollback to Copy_Rule ;
1339: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1340: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1341: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1342: l_api_name);
1343: end if;
1344: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1345: p_data => p_msg_data);
1340: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1341: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1342: l_api_name);
1343: end if;
1344: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1345: p_data => p_msg_data);
1346: --
1347: END Copy_Rule;
1348: