[Home] [Help]
47:
48: -----------------------------------------------------
49: -- Standard call to check for call compatibility.
50: -----------------------------------------------------
51: IF NOT FND_API.Compatible_API_Call (l_api_version,
52: p_api_version,
53: l_api_name ,
54: G_PKG_NAME)
55: THEN
52: p_api_version,
53: l_api_name ,
54: G_PKG_NAME)
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58: ---------------------------------------------------------------
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: ---------------------------------------------------------------
57: END IF;
58: ---------------------------------------------------------------
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: ---------------------------------------------------------------
61: IF FND_API.to_Boolean(p_init_msg_list)
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
65:
66: --------------------------------------------
67: -- Initialize API return status to success
68: --------------------------------------------
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70:
71: --------------------
72: -- Api body starts
73: --------------------
142:
143:
144: IF NOT( CSD_PROCESS_UTIL.Validate_incident_id
145: ( p_incident_id => x_repair_order_group_rec.incident_id )) THEN
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149: ---------------------------------
150: -- Validate the repair type ID
155:
156:
157: IF NOT( CSD_PROCESS_UTIL.Validate_repair_type_id
158: ( p_repair_type_id => x_repair_order_group_rec.repair_type_id )) THEN
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162: -----------------------------------
163: -- Validate the Inventory Item ID
168:
169:
170: IF NOT( CSD_PROCESS_UTIL.Validate_inventory_item_id
171: ( p_inventory_item_id => x_repair_order_group_rec.inventory_item_id )) THEN
172: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:
175:
176: ---------------------------------
182:
183:
184: IF NOT( CSD_PROCESS_UTIL.Validate_unit_of_measure
185: ( p_unit_of_measure => x_repair_order_group_rec.unit_of_measure )) THEN
186: RAISE FND_API.G_EXC_ERROR;
187: END IF;
188:
189: ---------------------------------
190: -- Validate Wip Entity Id
189: ---------------------------------
190: -- Validate Wip Entity Id
191: ---------------------------------
192: IF(x_repair_order_group_rec.wip_entity_id is not null and
193: x_repair_order_group_rec.wip_entity_id <> FND_API.G_MISS_NUM) then
194:
195: IF (g_debug > 0 ) THEN
196: csd_gen_utility_pvt.ADD('Wip Entity Id');
197: END IF;
198:
199:
200: IF NOT( CSD_PROCESS_UTIL.Validate_wip_entity_id
201: ( p_wip_entity_id => x_repair_order_group_rec.wip_entity_id )) THEN
202: RAISE FND_API.G_EXC_ERROR;
203: END IF;
204: END IF;
205: --------------------------------------------
206: -- Assigning the group id and group number
222: if(l_repair_group_id is null) then
223: FND_MESSAGE.Set_Name('CSD', 'CSD_API_REPAIR_GROUP_ID');
224: FND_MESSAGE.Set_Token('REPAIR_GROUP_ID',l_repair_group_id);
225: FND_MSG_PUB.ADD;
226: RAISE FND_API.G_EXC_ERROR;
227: end if;
228: -----------------------
229: -- insert into table
230: -----------------------
290: --------------------------------
291: -- Standard check for p_commit
292: --------------------------------
293:
294: IF FND_API.to_Boolean(p_commit)
295: THEN
296: COMMIT;
297: END IF;
298:
304: p_data => x_msg_data
305: );
306:
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR ;
310: ROLLBACK TO create_repair_order_group;
311: FND_MSG_PUB.Count_And_Get
312: (p_count => x_msg_count,
305: );
306:
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR ;
310: ROLLBACK TO create_repair_order_group;
311: FND_MSG_PUB.Count_And_Get
312: (p_count => x_msg_count,
313: p_data => x_msg_data );
310: ROLLBACK TO create_repair_order_group;
311: FND_MSG_PUB.Count_And_Get
312: (p_count => x_msg_count,
313: p_data => x_msg_data );
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
316: ROLLBACK TO create_repair_order_group;
317: FND_MSG_PUB.Count_And_Get
318: ( p_count => x_msg_count,
311: FND_MSG_PUB.Count_And_Get
312: (p_count => x_msg_count,
313: p_data => x_msg_data );
314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
316: ROLLBACK TO create_repair_order_group;
317: FND_MSG_PUB.Count_And_Get
318: ( p_count => x_msg_count,
319: p_data => x_msg_data );
317: FND_MSG_PUB.Count_And_Get
318: ( p_count => x_msg_count,
319: p_data => x_msg_data );
320: WHEN OTHERS THEN
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322: ROLLBACK TO create_repair_order_group;
323: IF FND_MSG_PUB.Check_Msg_Level
324: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
325: THEN
382:
383: --------------------------------------------------
384: -- Standard call to check for call compatibility.
385: --------------------------------------------------
386: IF NOT FND_API.Compatible_API_Call (l_api_version,
387: p_api_version,
388: l_api_name ,
389: G_PKG_NAME)
390: THEN
387: p_api_version,
388: l_api_name ,
389: G_PKG_NAME)
390: THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393:
394: --------------------------------------------------------------
395: -- Initialize message list if p_init_msg_list is set to TRUE.
393:
394: --------------------------------------------------------------
395: -- Initialize message list if p_init_msg_list is set to TRUE.
396: --------------------------------------------------------------
397: IF FND_API.to_Boolean(p_init_msg_list)
398: THEN
399: FND_MSG_PUB.initialize;
400: END IF;
401:
401:
402: --------------------------------------------
403: -- Initialize API return status to success
404: --------------------------------------------
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406:
407: --------------------
408: -- Api body starts
409: --------------------
445:
446:
447: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
448: ( p_repair_group_id => x_repair_order_group_rec.repair_group_id )) THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452: ---------------------------------------
453: -- Fetch the Group info
456: csd_gen_utility_pvt.ADD('Fetch the Group Id for Update');
457: END IF;
458:
459:
460: IF NVL(x_repair_order_group_rec.repair_group_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
461:
462: OPEN repair_order_group(x_repair_order_group_rec.repair_group_id);
463: FETCH repair_order_group
464: INTO l_repair_group_id,
467: IF repair_order_group%NOTFOUND THEN
468: FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_GROUP_MISSING');
469: FND_MESSAGE.SET_TOKEN('REPAIR_GROUP_ID',l_repair_group_id);
470: FND_MSG_PUB.ADD;
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473:
474: IF repair_order_group%ISOPEN THEN
475: CLOSE repair_order_group;
484: csd_gen_utility_pvt.ADD('Validate the Object Version Number');
485: END IF;
486:
487:
488: IF NVL(x_repair_order_group_rec.object_version_number,FND_API.G_MISS_NUM) <>l_obj_ver_num THEN
489:
490: IF (g_debug > 0 ) THEN
491: csd_gen_utility_pvt.ADD('object version number does not match');
492: END IF;
494:
495: FND_MESSAGE.SET_NAME('CSD','CSD_GRP_OBJ_VER_MISMATCH');
496: FND_MESSAGE.SET_TOKEN('REPAIR_GROUP_ID',l_repair_group_id);
497: FND_MSG_PUB.ADD;
498: RAISE FND_API.G_EXC_ERROR;
499:
500: END IF;
501:
502: -----------------------------
557: FND_MESSAGE.SET_NAME('CSD','CSD_API_UPDATE_NOT_ALLOWED');
558: FND_MESSAGE.SET_TOKEN('REPAIR_GROUP_ID',x_repair_order_group_rec.repair_group_id);
559: FND_MSG_PUB.ADD;
560:
561: RAISE FND_API.G_EXC_ERROR;
562:
563: END IF;
564: END IF;
565: END IF;
620:
621: --------------------------------
622: -- Standard check for p_commit
623: --------------------------------
624: IF FND_API.to_Boolean(p_commit)
625: THEN
626: COMMIT;
627: END IF;
628:
634: p_data => x_msg_data
635: );
636:
637: EXCEPTION
638: WHEN FND_API.G_EXC_ERROR THEN
639: x_return_status := FND_API.G_RET_STS_ERROR ;
640: ROLLBACK TO update_group_repair_order;
641: FND_MSG_PUB.Count_And_Get
642: (p_count => x_msg_count,
635: );
636:
637: EXCEPTION
638: WHEN FND_API.G_EXC_ERROR THEN
639: x_return_status := FND_API.G_RET_STS_ERROR ;
640: ROLLBACK TO update_group_repair_order;
641: FND_MSG_PUB.Count_And_Get
642: (p_count => x_msg_count,
643: p_data => x_msg_data );
640: ROLLBACK TO update_group_repair_order;
641: FND_MSG_PUB.Count_And_Get
642: (p_count => x_msg_count,
643: p_data => x_msg_data );
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
646: ROLLBACK TO update_group_repair_order;
647: FND_MSG_PUB.Count_And_Get
648: ( p_count => x_msg_count,
641: FND_MSG_PUB.Count_And_Get
642: (p_count => x_msg_count,
643: p_data => x_msg_data );
644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
646: ROLLBACK TO update_group_repair_order;
647: FND_MSG_PUB.Count_And_Get
648: ( p_count => x_msg_count,
649: p_data => x_msg_data );
647: FND_MSG_PUB.Count_And_Get
648: ( p_count => x_msg_count,
649: p_data => x_msg_data );
650: WHEN OTHERS THEN
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: ROLLBACK TO update_group_repair_order;
653: IF FND_MSG_PUB.Check_Msg_Level
654: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
655: THEN
700:
701: -------------------------------------------------
702: -- Standard call to check for call compatibility.
703: -------------------------------------------------
704: IF NOT FND_API.Compatible_API_Call (l_api_version,
705: p_api_version,
706: l_api_name ,
707: G_PKG_NAME)
708: THEN
705: p_api_version,
706: l_api_name ,
707: G_PKG_NAME)
708: THEN
709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
710: END IF;
711:
712: --------------------------------------------------------------
713: -- Initialize message list if p_init_msg_list is set to TRUE.
711:
712: --------------------------------------------------------------
713: -- Initialize message list if p_init_msg_list is set to TRUE.
714: --------------------------------------------------------------
715: IF FND_API.to_Boolean(p_init_msg_list)
716: THEN
717: FND_MSG_PUB.initialize;
718: END IF;
719:
719:
720: --------------------------------------------
721: -- Initialize API return status to success
722: --------------------------------------------
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
725: ---------------------------------
726: -- Check the required parameter
727: ---------------------------------
744:
745:
746: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
747: ( p_repair_group_id => p_repair_group_id )) THEN
748: RAISE FND_API.G_EXC_ERROR;
749: END IF;
750:
751:
752: --------------------------------
778: FND_MESSAGE.SET_NAME('CSD','CSD_API_REPAIR_ORDER_EXISTS');
779: FND_MESSAGE.SET_TOKEN('REPAIR_GROUP_ID',p_repair_group_id);
780: FND_MSG_PUB.ADD;
781:
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784: -----------------------------
785: -- Calling the Delete api
786: -----------------------------
794:
795: -------------------------------
796: -- Standard check for p_commit
797: -------------------------------
798: IF FND_API.to_Boolean(p_commit)
799: THEN
800: COMMIT;
801: END IF;
802:
808: p_data => x_msg_data
809: );
810:
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: ROLLBACK TO delete_repair_order_group;
815: FND_MSG_PUB.Count_And_Get
816: (p_count => x_msg_count,
809: );
810:
811: EXCEPTION
812: WHEN FND_API.G_EXC_ERROR THEN
813: x_return_status := FND_API.G_RET_STS_ERROR ;
814: ROLLBACK TO delete_repair_order_group;
815: FND_MSG_PUB.Count_And_Get
816: (p_count => x_msg_count,
817: p_data => x_msg_data );
814: ROLLBACK TO delete_repair_order_group;
815: FND_MSG_PUB.Count_And_Get
816: (p_count => x_msg_count,
817: p_data => x_msg_data );
818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
820: ROLLBACK TO delete_repair_order_group;
821: FND_MSG_PUB.Count_And_Get
822: ( p_count => x_msg_count,
815: FND_MSG_PUB.Count_And_Get
816: (p_count => x_msg_count,
817: p_data => x_msg_data );
818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
820: ROLLBACK TO delete_repair_order_group;
821: FND_MSG_PUB.Count_And_Get
822: ( p_count => x_msg_count,
823: p_data => x_msg_data );
821: FND_MSG_PUB.Count_And_Get
822: ( p_count => x_msg_count,
823: p_data => x_msg_data );
824: WHEN OTHERS THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
826: ROLLBACK TO delete_repair_order_group;
827: IF FND_MSG_PUB.Check_Msg_Level
828: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
829: THEN
872:
873: -------------------------------------------------
874: -- Standard call to check for call compatibility.
875: -------------------------------------------------
876: IF NOT FND_API.Compatible_API_Call (l_api_version,
877: p_api_version,
878: l_api_name ,
879: G_PKG_NAME)
880: THEN
877: p_api_version,
878: l_api_name ,
879: G_PKG_NAME)
880: THEN
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END IF;
883:
884: --------------------------------------------------------------
885: -- Initialize message list if p_init_msg_list is set to TRUE.
883:
884: --------------------------------------------------------------
885: -- Initialize message list if p_init_msg_list is set to TRUE.
886: --------------------------------------------------------------
887: IF FND_API.to_Boolean(p_init_msg_list)
888: THEN
889: FND_MSG_PUB.initialize;
890: END IF;
891:
891:
892: -------------------------------------------
893: -- Initialize API return status to success
894: -------------------------------------------
895: x_return_status := FND_API.G_RET_STS_SUCCESS;
896:
897: ----------------------------
898: -- Calling Lock Row
899: ----------------------------
908:
909: --------------------------------
910: -- Standard check for p_commit
911: --------------------------------
912: IF FND_API.to_Boolean(p_commit)
913: THEN
914: COMMIT;
915: END IF;
916:
922: p_data => x_msg_data
923: );
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR ;
928: ROLLBACK TO lock_repair_order_group;
929: FND_MSG_PUB.Count_And_Get
930: (p_count => x_msg_count,
923: );
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR ;
928: ROLLBACK TO lock_repair_order_group;
929: FND_MSG_PUB.Count_And_Get
930: (p_count => x_msg_count,
931: p_data => x_msg_data );
928: ROLLBACK TO lock_repair_order_group;
929: FND_MSG_PUB.Count_And_Get
930: (p_count => x_msg_count,
931: p_data => x_msg_data );
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: ROLLBACK TO lock_repair_order_group;
935: FND_MSG_PUB.Count_And_Get
936: ( p_count => x_msg_count,
929: FND_MSG_PUB.Count_And_Get
930: (p_count => x_msg_count,
931: p_data => x_msg_data );
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: ROLLBACK TO lock_repair_order_group;
935: FND_MSG_PUB.Count_And_Get
936: ( p_count => x_msg_count,
937: p_data => x_msg_data );
935: FND_MSG_PUB.Count_And_Get
936: ( p_count => x_msg_count,
937: p_data => x_msg_data );
938: WHEN OTHERS THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: ROLLBACK TO lock_repair_order_group;
941: IF FND_MSG_PUB.Check_Msg_Level
942: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
943: THEN
1008:
1009: -------------------------------------------------
1010: -- Standard call to check for call compatibility.
1011: -------------------------------------------------
1012: IF NOT FND_API.Compatible_API_Call (l_api_version,
1013: p_api_version,
1014: l_api_name ,
1015: G_PKG_NAME)
1016: THEN
1013: p_api_version,
1014: l_api_name ,
1015: G_PKG_NAME)
1016: THEN
1017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1018: END IF;
1019:
1020: --------------------------------------------------------------
1021: -- Initialize message list if p_init_msg_list is set to TRUE.
1019:
1020: --------------------------------------------------------------
1021: -- Initialize message list if p_init_msg_list is set to TRUE.
1022: --------------------------------------------------------------
1023: IF FND_API.to_Boolean(p_init_msg_list)
1024: THEN
1025: FND_MSG_PUB.initialize;
1026: END IF;
1027:
1027:
1028: -------------------------------------------
1029: -- Initialize API return status to success
1030: -------------------------------------------
1031: x_return_status := FND_API.G_RET_STS_SUCCESS;
1032:
1033: -----------------
1034: -- API Starts
1035: -----------------
1075:
1076:
1077: IF NOT( CSD_PROCESS_UTIL.Validate_repair_group_id
1078: ( p_repair_group_id => p_repair_group_id )) THEN
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081:
1082: -----------------------------
1083: -- Validate the Resource Id
1086: csd_gen_utility_pvt.ADD('Validate Resource Id');
1087: END IF;
1088:
1089:
1090: IF(nvl(p_resource_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM)THEN
1091:
1092: BEGIN
1093: SELECT
1094: 'x'
1101: FND_MESSAGE.SET_NAME('CSD','CSD_API_INVALID_RESOURCE');
1102: FND_MESSAGE.SET_TOKEN('RESOURCE_ID',p_resource_id);
1103: FND_MSG_PUB.ADD;
1104:
1105: RAISE FND_API.G_EXC_ERROR;
1106: WHEN OTHERS THEN
1107: null;
1108: END;
1109: END IF;
1114: csd_gen_utility_pvt.ADD('Update the Repair Orders');
1115: END IF;
1116:
1117:
1118: l_ro_rec.promise_date := nvl(p_promise_date,FND_API.G_MISS_DATE);
1119: l_ro_rec.resource_id := nvl(p_resource_id,FND_API.G_MISS_NUM);
1120: l_ro_rec.approval_required_flag := nvl(p_approval_required_flag,FND_API.G_MISS_CHAR);
1121:
1122: FOR RO_record IN Repair_Orders(p_repair_group_id)
1115: END IF;
1116:
1117:
1118: l_ro_rec.promise_date := nvl(p_promise_date,FND_API.G_MISS_DATE);
1119: l_ro_rec.resource_id := nvl(p_resource_id,FND_API.G_MISS_NUM);
1120: l_ro_rec.approval_required_flag := nvl(p_approval_required_flag,FND_API.G_MISS_CHAR);
1121:
1122: FOR RO_record IN Repair_Orders(p_repair_group_id)
1123: LOOP
1116:
1117:
1118: l_ro_rec.promise_date := nvl(p_promise_date,FND_API.G_MISS_DATE);
1119: l_ro_rec.resource_id := nvl(p_resource_id,FND_API.G_MISS_NUM);
1120: l_ro_rec.approval_required_flag := nvl(p_approval_required_flag,FND_API.G_MISS_CHAR);
1121:
1122: FOR RO_record IN Repair_Orders(p_repair_group_id)
1123: LOOP
1124:
1153: If ( l_return_status <> 'S') then
1154: FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_ORDER_UPD_FAIL');
1155: FND_MSG_PUB.ADD;
1156:
1157: RAISE FND_API.G_EXC_ERROR;
1158:
1159: End if;
1160: END LOOP;
1161:
1297: CSD_REPAIR_GROUPS_PVT.UPDATE_REPAIR_GROUPS
1298: ( p_api_version => 1.0,
1299: p_commit => 'F',
1300: p_init_msg_list => 'T',
1301: p_validation_level => fnd_api.g_valid_level_full,
1302: x_repair_order_group_rec => l_group_ro_rec,
1303: x_return_status => l_return_status,
1304: x_msg_count => l_msg_count,
1305: x_msg_data => l_msg_data );
1309: END IF;
1310:
1311:
1312: IF l_return_status <> 'S' THEN
1313: x_return_status := FND_API.G_RET_STS_ERROR ;
1314: FND_MESSAGE.SET_NAME('CSD','CSD_API_RO_GROUP_EST_FAIL');
1315: FND_MSG_PUB.ADD;
1316: ELSIF l_return_status = 'S' THEN
1317: x_object_version_number := l_group_ro_rec.object_version_number;
1321:
1322: --------------------------------
1323: -- Standard check for p_commit
1324: --------------------------------
1325: IF FND_API.to_Boolean(p_commit)
1326: THEN
1327: COMMIT;
1328: END IF;
1329:
1335: p_data => x_msg_data
1336: );
1337:
1338: EXCEPTION
1339: WHEN FND_API.G_EXC_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_ERROR ;
1341: ROLLBACK TO apply_to_group;
1342: FND_MSG_PUB.Count_And_Get
1343: (p_count => x_msg_count,
1336: );
1337:
1338: EXCEPTION
1339: WHEN FND_API.G_EXC_ERROR THEN
1340: x_return_status := FND_API.G_RET_STS_ERROR ;
1341: ROLLBACK TO apply_to_group;
1342: FND_MSG_PUB.Count_And_Get
1343: (p_count => x_msg_count,
1344: p_data => x_msg_data );
1341: ROLLBACK TO apply_to_group;
1342: FND_MSG_PUB.Count_And_Get
1343: (p_count => x_msg_count,
1344: p_data => x_msg_data );
1345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1347: ROLLBACK TO apply_to_group;
1348: FND_MSG_PUB.Count_And_Get
1349: ( p_count => x_msg_count,
1342: FND_MSG_PUB.Count_And_Get
1343: (p_count => x_msg_count,
1344: p_data => x_msg_data );
1345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1347: ROLLBACK TO apply_to_group;
1348: FND_MSG_PUB.Count_And_Get
1349: ( p_count => x_msg_count,
1350: p_data => x_msg_data );
1348: FND_MSG_PUB.Count_And_Get
1349: ( p_count => x_msg_count,
1350: p_data => x_msg_data );
1351: WHEN OTHERS THEN
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1353: ROLLBACK TO apply_to_group;
1354: IF FND_MSG_PUB.Check_Msg_Level
1355: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1356: THEN