[Home] [Help]
68: END IF;
69:
70: -- Initialize message list if p_init_msg_list is set to TRUE
71: IF FND_API.To_Boolean(p_init_msg_list) THEN
72: FND_MSG_PUB.Initialize;
73: END IF;
74:
75: OPEN ahl_rule_stmt_csr(p_rule_id);
76: FETCH ahl_rule_stmt_csr INTO l_rule_stmt_id;
77:
78: IF (ahl_rule_stmt_csr%NOTFOUND) THEN
79: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
80: FND_MESSAGE.Set_Token('RULE_STMT_ID',l_rule_stmt_id);
81: FND_MSG_PUB.ADD;
82: CLOSE ahl_rule_stmt_csr;
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85: CLOSE ahl_rule_stmt_csr;
94: x_rule_stmt_tbl(i).sequence_num := i*10;
95: END LOOP;
96:
97: -- Standard call to get message count and if count is 1, get message info
98: FND_MSG_PUB.Count_And_Get
99: ( p_count => x_msg_count,
100: p_data => x_msg_data,
101: p_encoded => fnd_api.g_false
102: );
103: EXCEPTION
104: WHEN FND_API.G_EXC_ERROR THEN
105: Rollback to Load_Rule_pvt;
106: x_return_status := FND_API.G_RET_STS_ERROR;
107: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
108: p_data => x_msg_data,
109: p_encoded => fnd_api.g_false);
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: Rollback to Load_Rule_pvt;
109: p_encoded => fnd_api.g_false);
110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111: Rollback to Load_Rule_pvt;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
114: p_data => x_msg_data,
115: p_encoded => fnd_api.g_false);
116: WHEN OTHERS THEN
117: Rollback to Load_Rule_pvt;
115: p_encoded => fnd_api.g_false);
116: WHEN OTHERS THEN
117: Rollback to Load_Rule_pvt;
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
120: p_procedure_name => l_api_name,
121: p_error_text => SQLERRM);
122: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
123: p_data => x_msg_data,
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
120: p_procedure_name => l_api_name,
121: p_error_text => SQLERRM);
122: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
123: p_data => x_msg_data,
124: p_encoded => fnd_api.g_false);
125:
126: END Load_Rule;
227: --The rule statement has to exist
228: IF (check_rule_operator_csr%NOTFOUND) THEN
229: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
230: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_id);
231: FND_MSG_PUB.ADD;
232: CLOSE check_rule_operator_csr;
233: RAISE FND_API.G_EXC_ERROR;
234: ELSE
235:
379: --
380: BEGIN
381: IF (p_rule_stmt_tbl.COUNT<1) THEN
382: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_NULL');
383: FND_MSG_PUB.ADD;
384: RAISE FND_API.G_EXC_ERROR;
385: END IF;
386:
387: l_depth_count :=0;
393: --Check that the parens are only valid characters
394: IF (ltrim(l_ui_stmt_rec.left_paren, '(' ) IS NOT NULL OR
395: ltrim(l_ui_stmt_rec.right_paren, ')' ) IS NOT NULL) THEN
396: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_PAREN_INV');
397: FND_MSG_PUB.ADD;
398: END IF;
399:
400: --Check that the left parens>0 and right_paren>0 is an error
401: IF (length(l_ui_stmt_rec.left_paren) > 0 AND
400: --Check that the left parens>0 and right_paren>0 is an error
401: IF (length(l_ui_stmt_rec.left_paren) > 0 AND
402: length(l_ui_stmt_rec.right_paren) > 0 ) THEN
403: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_PAREN_DUP');
404: FND_MSG_PUB.ADD;
405: END IF;
406:
407: --Calculate the depth and assign to statement
408: l_depth_count:=l_depth_count+nvl(length(l_ui_stmt_rec.left_paren),0);
411: l_ui_stmt_rec.rule_oper_stmt_depth := l_depth_count;
412:
413: IF (l_depth_count < 0 ) THEN
414: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_PAREN_UNMATCH');
415: FND_MSG_PUB.ADD;
416: END IF;
417:
418: l_ui_stmt_tbl(i) := l_ui_stmt_rec;
419: END LOOP;
421:
422: --Check that the left parens>1 and right_paren>1
423: IF (l_depth_count <>0) THEN
424: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_PAREN_UNMATCH');
425: FND_MSG_PUB.ADD;
426: END IF;
427:
428: -- Check Error Message stack.
429: l_msg_count := FND_MSG_PUB.count_msg;
425: FND_MSG_PUB.ADD;
426: END IF;
427:
428: -- Check Error Message stack.
429: l_msg_count := FND_MSG_PUB.count_msg;
430: IF l_msg_count > 0 THEN
431: RAISE FND_API.G_EXC_ERROR;
432: END IF;
433:
560:
561: --If we did not find the min depth, then throw an error.
562: IF (l_min_depth_index = -1) THEN
563: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_MIN_INV');
564: FND_MSG_PUB.ADD;
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567:
568: --Determine the operator and the operations flag
582:
583: --If the operator is null, then throw error.
584: IF (l_operator IS NULL) THEN
585: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_OPER_NULL');
586: FND_MSG_PUB.ADD;
587: RAISE FND_API.G_EXC_ERROR;
588: END IF;
589:
590:
726: END IF;
727:
728: -- Initialize message list if p_init_msg_list is set to TRUE
729: IF FND_API.To_Boolean(p_init_msg_list) THEN
730: FND_MSG_PUB.Initialize;
731: END IF;
732:
733: --Check Status of MC allows for editing
734: OPEN check_mc_status_csr(p_x_rule_rec.mc_header_id);
736: IF (check_mc_status_csr%NOTFOUND) THEN
737: FND_MESSAGE.Set_Name('AHL','AHL_MC_HEADER_ID_INVALID');
738: FND_MESSAGE.Set_Token('NAME','');
739: FND_MESSAGE.Set_Token('MC_HEADER_ID',p_x_rule_rec.mc_header_id);
740: FND_MSG_PUB.ADD;
741: CLOSE check_mc_status_csr;
742: RAISE FND_API.G_EXC_ERROR;
743: ELSIF ( l_status_code <> 'DRAFT' AND
744: l_status_code <> 'APPROVAL_REJECTED') THEN
743: ELSIF ( l_status_code <> 'DRAFT' AND
744: l_status_code <> 'APPROVAL_REJECTED') THEN
745: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
746: FND_MESSAGE.Set_Token('STATUS', l_status);
747: FND_MSG_PUB.ADD;
748: CLOSE check_mc_status_csr;
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: CLOSE check_mc_status_csr;
822:
823: --Check Rule Name is not null
824: IF (p_x_rule_rec.rule_name IS NULL) THEN
825: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_NAME_NULL');
826: FND_MSG_PUB.ADD;
827: END IF;
828:
829: --Check Rule Type is valid
830: OPEN check_rule_type_csr(p_x_rule_rec.rule_type_code);
831: FETCH check_rule_type_csr INTO l_junk;
832: IF (check_rule_type_csr%NOTFOUND) THEN
833: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
834: FND_MESSAGE.Set_Token('RULE_TYPE',p_x_rule_rec.rule_type_code);
835: FND_MSG_PUB.ADD;
836: END IF;
837: CLOSE check_rule_type_csr;
838:
839: --Check start date is less than end date
842: p_x_rule_rec.active_start_date >= p_x_rule_rec.active_end_date) THEN
843: FND_MESSAGE.Set_Name('AHL','AHL_MC_DATE_INVALID');
844: FND_MESSAGE.Set_Token('SDATE',p_x_rule_rec.active_start_date);
845: FND_MESSAGE.Set_Token('EDATE',p_x_rule_rec.active_end_date);
846: FND_MSG_PUB.ADD;
847: END IF;
848:
849: --Check Rule name is unique
850: OPEN check_rule_name_csr(p_x_rule_rec.rule_name, p_x_rule_rec.mc_header_id);
851: FETCH check_rule_name_csr INTO l_junk;
852: IF (check_rule_name_csr%FOUND) THEN
853: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_NAME_INV');
854: FND_MESSAGE.Set_Token('RULE_NAME', p_x_rule_rec.rule_name);
855: FND_MSG_PUB.ADD;
856: END IF;
857: CLOSE check_rule_name_csr;
858:
859: -- Check Error Message stack.
856: END IF;
857: CLOSE check_rule_name_csr;
858:
859: -- Check Error Message stack.
860: x_msg_count := FND_MSG_PUB.count_msg;
861: IF x_msg_count > 0 THEN
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
915: x_msg_count => x_msg_count,
916: x_msg_data => x_msg_data);
917:
918: -- Check Error Message stack.
919: x_msg_count := FND_MSG_PUB.count_msg;
920: IF x_msg_count > 0 THEN
921: RAISE FND_API.G_EXC_ERROR;
922: END IF;
923: END LOOP;
935: COMMIT WORK;
936: END IF;
937:
938: -- Standard call to get message count and if count is 1, get message info
939: FND_MSG_PUB.Count_And_Get
940: ( p_count => x_msg_count,
941: p_data => x_msg_data,
942: p_encoded => fnd_api.g_false
943: );
944: EXCEPTION
945: WHEN FND_API.G_EXC_ERROR THEN
946: Rollback to Insert_Rule_pvt;
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
949: p_data => x_msg_data,
950: p_encoded => fnd_api.g_false);
951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
952: Rollback to Insert_Rule_pvt;
950: p_encoded => fnd_api.g_false);
951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
952: Rollback to Insert_Rule_pvt;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
955: p_data => x_msg_data,
956: p_encoded => fnd_api.g_false);
957: WHEN OTHERS THEN
958: Rollback to Insert_Rule_pvt;
956: p_encoded => fnd_api.g_false);
957: WHEN OTHERS THEN
958: Rollback to Insert_Rule_pvt;
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
960: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
961: p_procedure_name => l_api_name,
962: p_error_text => SQLERRM);
963: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
964: p_data => x_msg_data,
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
960: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
961: p_procedure_name => l_api_name,
962: p_error_text => SQLERRM);
963: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
964: p_data => x_msg_data,
965: p_encoded => fnd_api.g_false);
966:
967: END Insert_Rule;
1048: END IF;
1049:
1050: -- Initialize message list if p_init_msg_list is set to TRUE
1051: IF FND_API.To_Boolean(p_init_msg_list) THEN
1052: FND_MSG_PUB.Initialize;
1053: END IF;
1054:
1055: --Check Status of MC allows for editing
1056: OPEN check_mc_status_csr(p_rule_rec.rule_id);
1057: FETCH check_mc_status_csr INTO l_status_code, l_status;
1058: IF (check_mc_status_csr%NOTFOUND) THEN
1059: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ID_INV');
1060: FND_MESSAGE.Set_Token('RULE_ID',p_rule_rec.rule_id);
1061: FND_MSG_PUB.ADD;
1062: CLOSE check_mc_status_csr;
1063: RAISE FND_API.G_EXC_ERROR;
1064: ELSIF ( l_status_code <> 'DRAFT' AND
1065: l_status_code <> 'APPROVAL_REJECTED') THEN
1064: ELSIF ( l_status_code <> 'DRAFT' AND
1065: l_status_code <> 'APPROVAL_REJECTED') THEN
1066: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
1067: FND_MESSAGE.Set_Token('STATUS', l_status);
1068: FND_MSG_PUB.ADD;
1069: CLOSE check_mc_status_csr;
1070: RAISE FND_API.G_EXC_ERROR;
1071: END IF;
1072: CLOSE check_mc_status_csr;
1077: FETCH get_rule_rec_csr INTO l_old_rule_rec;
1078: IF (get_rule_rec_csr%NOTFOUND) THEN
1079: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ID_INV');
1080: FND_MESSAGE.Set_Token('RULE_ID', p_rule_rec.rule_id);
1081: FND_MSG_PUB.ADD;
1082: END IF;
1083: CLOSE get_rule_rec_csr;
1084:
1085: --Assign to local Var
1088: IF (l_rule_rec.object_version_number IS NOT NULL AND
1089: l_old_rule_rec.object_version_number<>l_rule_rec.object_version_number)
1090: THEN
1091: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1092: FND_MSG_PUB.ADD;
1093: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1094: END IF;
1095:
1096: --Convert NULL/G_MISS types
1206:
1207: --Check Rule Name is not null
1208: IF (l_rule_rec.rule_name IS NULL) THEN
1209: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_NAME_NULL');
1210: FND_MSG_PUB.ADD;
1211: END IF;
1212:
1213: --Check Rule Type is valid
1214: OPEN check_rule_type_csr(l_rule_rec.rule_type_code);
1215: FETCH check_rule_type_csr INTO l_junk;
1216: IF (check_rule_type_csr%NOTFOUND) THEN
1217: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
1218: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_rec.rule_type_code);
1219: FND_MSG_PUB.ADD;
1220: END IF;
1221: CLOSE check_rule_type_csr;
1222:
1223: --Check Rule name is unique
1227: FETCH check_rule_name_csr INTO l_junk;
1228: IF (check_rule_name_csr%FOUND) THEN
1229: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_NAME_INV');
1230: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1231: FND_MSG_PUB.ADD;
1232: END IF;
1233: CLOSE check_rule_name_csr;
1234:
1235: --Check start date is less than end date
1238: l_rule_rec.active_start_date >= l_rule_rec.active_end_date) THEN
1239: FND_MESSAGE.Set_Name('AHL','AHL_MC_DATE_INVALID');
1240: FND_MESSAGE.Set_Token('SDATE',l_rule_rec.active_start_date);
1241: FND_MESSAGE.Set_Token('EDATE',l_rule_rec.active_end_date);
1242: FND_MSG_PUB.ADD;
1243: END IF;
1244:
1245: -- Check Error Message stack.
1246: x_msg_count := FND_MSG_PUB.count_msg;
1242: FND_MSG_PUB.ADD;
1243: END IF;
1244:
1245: -- Check Error Message stack.
1246: x_msg_count := FND_MSG_PUB.count_msg;
1247: IF x_msg_count > 0 THEN
1248: RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250:
1328: x_msg_data => x_msg_data);
1329: END IF;
1330:
1331: -- Check Error Message stack.
1332: x_msg_count := FND_MSG_PUB.count_msg;
1333: IF x_msg_count > 0 THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: END LOOP;
1348: COMMIT WORK;
1349: END IF;
1350:
1351: -- Standard call to get message count and if count is 1, get message info
1352: FND_MSG_PUB.Count_And_Get
1353: ( p_count => x_msg_count,
1354: p_data => x_msg_data,
1355: p_encoded => fnd_api.g_false
1356: );
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: Rollback to Update_Rule_pvt;
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1362: p_data => x_msg_data,
1363: p_encoded => fnd_api.g_false);
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: Rollback to Update_Rule_pvt;
1363: p_encoded => fnd_api.g_false);
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: Rollback to Update_Rule_pvt;
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1368: p_data => x_msg_data,
1369: p_encoded => fnd_api.g_false);
1370: WHEN OTHERS THEN
1371: Rollback to Update_Rule_pvt;
1369: p_encoded => fnd_api.g_false);
1370: WHEN OTHERS THEN
1371: Rollback to Update_Rule_pvt;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1374: p_procedure_name => l_api_name,
1375: p_error_text => SQLERRM);
1376: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1377: p_data => x_msg_data,
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1374: p_procedure_name => l_api_name,
1375: p_error_text => SQLERRM);
1376: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1377: p_data => x_msg_data,
1378: p_encoded => fnd_api.g_false);
1379: END Update_Rule;
1380:
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435: -- Initialize message list if p_init_msg_list is set to TRUE
1436: IF FND_API.To_Boolean(p_init_msg_list) THEN
1437: FND_MSG_PUB.Initialize;
1438: END IF;
1439:
1440: -- Check Object version number.
1441: OPEN check_obj_ver_csr(p_rule_rec.rule_id, p_rule_rec.object_version_number);
1442: FETCH check_obj_ver_csr INTO l_junk;
1443: IF (check_obj_ver_csr%NOTFOUND) THEN
1444: CLOSE check_obj_ver_csr;
1445: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1446: FND_MSG_PUB.ADD;
1447: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1448: END IF;
1449: CLOSE check_obj_ver_csr;
1450:
1453: FETCH check_mc_status_csr INTO l_status_code, l_status, l_mc_header_id;
1454: IF (check_mc_status_csr%NOTFOUND) THEN
1455: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ID_INV');
1456: FND_MESSAGE.Set_Token('RULE_ID',p_rule_rec.rule_id);
1457: FND_MSG_PUB.ADD;
1458: CLOSE check_mc_status_csr;
1459: RAISE FND_API.G_EXC_ERROR;
1460: ELSIF ( l_status_code <> 'DRAFT' AND
1461: l_status_code <> 'APPROVAL_REJECTED') THEN
1460: ELSIF ( l_status_code <> 'DRAFT' AND
1461: l_status_code <> 'APPROVAL_REJECTED') THEN
1462: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
1463: FND_MESSAGE.Set_Token('STATUS', l_status);
1464: FND_MSG_PUB.ADD;
1465: CLOSE check_mc_status_csr;
1466: RAISE FND_API.G_EXC_ERROR;
1467: END IF;
1468: CLOSE check_mc_status_csr;
1476: x_msg_count => x_msg_count,
1477: x_msg_data => x_msg_data);
1478:
1479: -- Check Error Message stack.
1480: x_msg_count := FND_MSG_PUB.count_msg;
1481: IF x_msg_count > 0 THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: END IF;
1484:
1498: IF FND_API.TO_BOOLEAN(p_commit) THEN
1499: COMMIT WORK;
1500: END IF;
1501: -- Standard call to get message count and if count is 1, get message info
1502: FND_MSG_PUB.Count_And_Get
1503: ( p_count => x_msg_count,
1504: p_data => x_msg_data,
1505: p_encoded => fnd_api.g_false
1506: );
1507: EXCEPTION
1508: WHEN FND_API.G_EXC_ERROR THEN
1509: Rollback to Delete_Rule_pvt;
1510: x_return_status := FND_API.G_RET_STS_ERROR;
1511: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1512: p_data => x_msg_data,
1513: p_encoded => fnd_api.g_false);
1514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1515: Rollback to Delete_Rule_pvt;
1513: p_encoded => fnd_api.g_false);
1514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1515: Rollback to Delete_Rule_pvt;
1516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1517: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1518: p_data => x_msg_data,
1519: p_encoded => fnd_api.g_false);
1520: WHEN OTHERS THEN
1521: Rollback to Delete_Rule_pvt;
1519: p_encoded => fnd_api.g_false);
1520: WHEN OTHERS THEN
1521: Rollback to Delete_Rule_pvt;
1522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1524: p_procedure_name => l_api_name,
1525: p_error_text => SQLERRM);
1526: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1527: p_data => x_msg_data,
1522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1524: p_procedure_name => l_api_name,
1525: p_error_text => SQLERRM);
1526: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1527: p_data => x_msg_data,
1528: p_encoded => fnd_api.g_false);
1529: END Delete_Rule;
1530:
1586: END IF;
1587:
1588: -- Initialize message list if p_init_msg_list is set to TRUE
1589: IF FND_API.To_Boolean(p_init_msg_list) THEN
1590: FND_MSG_PUB.Initialize;
1591: END IF;
1592:
1593: --For each rule for given mc, copy the rule
1594: OPEN get_rule_rec_csr(p_from_mc_header_id);
1659: ROLLBACK TO copy_rule_pvt;
1660: ELSE
1661: --No errors in creating rule
1662: -- Check Error Message stack.
1663: x_msg_count := FND_MSG_PUB.count_msg;
1664: IF x_msg_count > 0 THEN
1665: CLOSE get_rule_rec_csr;
1666: RAISE FND_API.G_EXC_ERROR;
1667: END IF;
1680: IF FND_API.TO_BOOLEAN(p_commit) THEN
1681: COMMIT WORK;
1682: END IF;
1683: -- Standard call to get message count and if count is 1, get message info
1684: FND_MSG_PUB.Count_And_Get
1685: ( p_count => x_msg_count,
1686: p_data => x_msg_data,
1687: p_encoded => fnd_api.g_false
1688: );
1689: EXCEPTION
1690: WHEN FND_API.G_EXC_ERROR THEN
1691: Rollback to Copy_Rules_For_Mc_pvt;
1692: x_return_status := FND_API.G_RET_STS_ERROR;
1693: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1694: p_data => x_msg_data,
1695: p_encoded => fnd_api.g_false);
1696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1697: Rollback to Copy_Rules_For_Mc_pvt;
1695: p_encoded => fnd_api.g_false);
1696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1697: Rollback to Copy_Rules_For_Mc_pvt;
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1700: p_data => x_msg_data,
1701: p_encoded => fnd_api.g_false);
1702: WHEN OTHERS THEN
1703: Rollback to Copy_Rules_For_Mc_pvt;
1701: p_encoded => fnd_api.g_false);
1702: WHEN OTHERS THEN
1703: Rollback to Copy_Rules_For_Mc_pvt;
1704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1705: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1706: p_procedure_name => l_api_name,
1707: p_error_text => SQLERRM);
1708: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1709: p_data => x_msg_data,
1704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1705: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1706: p_procedure_name => l_api_name,
1707: p_error_text => SQLERRM);
1708: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1709: p_data => x_msg_data,
1710: p_encoded => fnd_api.g_false);
1711: END Copy_Rules_For_MC;
1712:
1756: END IF;
1757:
1758: -- Initialize message list if p_init_msg_list is set to TRUE
1759: IF FND_API.To_Boolean(p_init_msg_list) THEN
1760: FND_MSG_PUB.Initialize;
1761: END IF;
1762:
1763: --For each rule for given mc, delete the rule
1764: OPEN get_rule_ids_csr(p_mc_header_id);
1775: x_msg_count => x_msg_count,
1776: x_msg_data => x_msg_data);
1777:
1778: -- Check Error Message stack.
1779: x_msg_count := FND_MSG_PUB.count_msg;
1780: IF x_msg_count > 0 THEN
1781: CLOSE get_rule_ids_csr;
1782: RAISE FND_API.G_EXC_ERROR;
1783: END IF;
1788: IF FND_API.TO_BOOLEAN(p_commit) THEN
1789: COMMIT WORK;
1790: END IF;
1791: -- Standard call to get message count and if count is 1, get message info
1792: FND_MSG_PUB.Count_And_Get
1793: ( p_count => x_msg_count,
1794: p_data => x_msg_data,
1795: p_encoded => fnd_api.g_false
1796: );
1797: EXCEPTION
1798: WHEN FND_API.G_EXC_ERROR THEN
1799: Rollback to Delete_Rules_For_Mc_pvt;
1800: x_return_status := FND_API.G_RET_STS_ERROR;
1801: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1802: p_data => x_msg_data,
1803: p_encoded => fnd_api.g_false);
1804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1805: Rollback to Delete_Rules_For_Mc_pvt;
1803: p_encoded => fnd_api.g_false);
1804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1805: Rollback to Delete_Rules_For_Mc_pvt;
1806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1807: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1808: p_data => x_msg_data,
1809: p_encoded => fnd_api.g_false);
1810: WHEN OTHERS THEN
1811: Rollback to Delete_Rules_For_Mc_pvt;
1809: p_encoded => fnd_api.g_false);
1810: WHEN OTHERS THEN
1811: Rollback to Delete_Rules_For_Mc_pvt;
1812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1814: p_procedure_name => l_api_name,
1815: p_error_text => SQLERRM);
1816: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1817: p_data => x_msg_data,
1812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1814: p_procedure_name => l_api_name,
1815: p_error_text => SQLERRM);
1816: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1817: p_data => x_msg_data,
1818: p_encoded => fnd_api.g_false);
1819: END Delete_Rules_For_MC;
1820:
1914: END IF;
1915:
1916: -- Initialize message list if p_init_msg_list is set to TRUE
1917: IF FND_API.To_Boolean(p_init_msg_list) THEN
1918: FND_MSG_PUB.Initialize;
1919: END IF;
1920:
1921:
1922: l_index :=0;
1959: END LOOP;
1960: CLOSE get_rule_vo_csr;
1961:
1962: -- Standard call to get message count and if count is 1, get message info
1963: FND_MSG_PUB.Count_And_Get
1964: ( p_count => x_msg_count,
1965: p_data => x_msg_data,
1966: p_encoded => fnd_api.g_false
1967: );
1968: EXCEPTION
1969: WHEN FND_API.G_EXC_ERROR THEN
1970: Rollback to Get_Rules_For_Position_pvt;
1971: x_return_status := FND_API.G_RET_STS_ERROR;
1972: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1973: p_data => x_msg_data,
1974: p_encoded => fnd_api.g_false);
1975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1976: Rollback to Get_Rules_For_Position_pvt;
1974: p_encoded => fnd_api.g_false);
1975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1976: Rollback to Get_Rules_For_Position_pvt;
1977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1978: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1979: p_data => x_msg_data,
1980: p_encoded => fnd_api.g_false);
1981: WHEN OTHERS THEN
1982: Rollback to Get_Rules_For_Position_pvt;
1980: p_encoded => fnd_api.g_false);
1981: WHEN OTHERS THEN
1982: Rollback to Get_Rules_For_Position_pvt;
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => l_api_name,
1986: p_error_text => SQLERRM);
1987: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1988: p_data => x_msg_data,
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1985: p_procedure_name => l_api_name,
1986: p_error_text => SQLERRM);
1987: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1988: p_data => x_msg_data,
1989: p_encoded => fnd_api.g_false);
1990: --
1991: END Get_Rules_For_Position;