100:
101: -- check for UI rule stmt table
102: IF (p_rule_stmt_tbl.COUNT < 1) THEN
103: -- input is NULL
104: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_NULL');
105: FND_MSG_PUB.ADD;
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
254: END IF;
255:
256: -- check input parameters
257: IF (p_rule_rec.object_version_number IS NULL) THEN
258: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_VER_NULL');
259: FND_MSG_PUB.ADD;
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
276:
277: -- check for UI rule stmt table
278: IF (p_rule_stmt_tbl.COUNT < 1) THEN
279: -- input is NULL
280: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_NULL');
281: FND_MSG_PUB.ADD;
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
433: END IF;
434:
435: -- check input parameters
436: IF (p_rule_rec.object_version_number IS NULL) THEN
437: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_VER_NULL');
438: FND_MSG_PUB.ADD;
439: RAISE FND_API.G_EXC_ERROR;
440: END IF;
441:
619: IF (p_from_mc_header_id IS NULL) THEN
620: -- check with mc_name and revision
621: IF (p_from_mc_name IS NULL) OR (p_from_revision IS NULL) THEN
622: -- input is NULL
623: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
624: FND_MSG_PUB.ADD;
625: RAISE FND_API.G_EXC_ERROR;
626: ELSE
627: OPEN chk_mc_name_csr(p_from_mc_name, p_from_revision);
629:
630: IF (chk_mc_name_csr%NOTFOUND) THEN
631: CLOSE chk_mc_name_csr;
632: -- input is invalid
633: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
634: FND_MESSAGE.Set_Token('MC_NAME',p_from_mc_name);
635: FND_MESSAGE.Set_Token('MC_REV',p_from_revision);
636: FND_MSG_PUB.ADD;
637: RAISE FND_API.G_EXC_ERROR;
630: IF (chk_mc_name_csr%NOTFOUND) THEN
631: CLOSE chk_mc_name_csr;
632: -- input is invalid
633: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
634: FND_MESSAGE.Set_Token('MC_NAME',p_from_mc_name);
635: FND_MESSAGE.Set_Token('MC_REV',p_from_revision);
636: FND_MSG_PUB.ADD;
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
631: CLOSE chk_mc_name_csr;
632: -- input is invalid
633: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
634: FND_MESSAGE.Set_Token('MC_NAME',p_from_mc_name);
635: FND_MESSAGE.Set_Token('MC_REV',p_from_revision);
636: FND_MSG_PUB.ADD;
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
639:
646:
647: IF (chk_mc_header_id_csr%NOTFOUND) THEN
648: CLOSE chk_mc_header_id_csr;
649: -- input is invalid
650: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
651: FND_MESSAGE.Set_Token('MC_ID',p_from_mc_header_id);
652: FND_MSG_PUB.ADD;
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
647: IF (chk_mc_header_id_csr%NOTFOUND) THEN
648: CLOSE chk_mc_header_id_csr;
649: -- input is invalid
650: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
651: FND_MESSAGE.Set_Token('MC_ID',p_from_mc_header_id);
652: FND_MSG_PUB.ADD;
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655:
661: IF (p_to_mc_header_id IS NULL) THEN
662: -- check with mc_name and revision
663: IF (p_to_mc_name IS NULL) OR (p_to_revision IS NULL) THEN
664: -- input is NULL
665: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
666: FND_MSG_PUB.ADD;
667: RAISE FND_API.G_EXC_ERROR;
668: ELSE
669: OPEN chk_mc_name_csr(p_to_mc_name, p_to_revision);
671:
672: IF (chk_mc_name_csr%NOTFOUND) THEN
673: CLOSE chk_mc_name_csr;
674: -- input is invalid
675: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
676: FND_MESSAGE.Set_Token('MC_NAME',p_to_mc_name);
677: FND_MESSAGE.Set_Token('MC_REV',p_to_revision);
678: FND_MSG_PUB.ADD;
679: RAISE FND_API.G_EXC_ERROR;
672: IF (chk_mc_name_csr%NOTFOUND) THEN
673: CLOSE chk_mc_name_csr;
674: -- input is invalid
675: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
676: FND_MESSAGE.Set_Token('MC_NAME',p_to_mc_name);
677: FND_MESSAGE.Set_Token('MC_REV',p_to_revision);
678: FND_MSG_PUB.ADD;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
673: CLOSE chk_mc_name_csr;
674: -- input is invalid
675: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
676: FND_MESSAGE.Set_Token('MC_NAME',p_to_mc_name);
677: FND_MESSAGE.Set_Token('MC_REV',p_to_revision);
678: FND_MSG_PUB.ADD;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681:
688:
689: IF (chk_mc_header_id_csr%NOTFOUND) THEN
690: CLOSE chk_mc_header_id_csr;
691: -- input is invalid
692: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
693: FND_MESSAGE.Set_Token('MC_ID',p_to_mc_header_id);
694: FND_MSG_PUB.ADD;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
689: IF (chk_mc_header_id_csr%NOTFOUND) THEN
690: CLOSE chk_mc_header_id_csr;
691: -- input is invalid
692: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
693: FND_MESSAGE.Set_Token('MC_ID',p_to_mc_header_id);
694: FND_MSG_PUB.ADD;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
864: IF (p_mc_header_id IS NULL) THEN
865: -- check with mc_name and revision
866: IF (p_mc_name IS NULL) OR (p_revision IS NULL) THEN
867: -- input is NULL
868: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
869: FND_MSG_PUB.ADD;
870: RAISE FND_API.G_EXC_ERROR;
871: ELSE
872: OPEN chk_mc_name_csr(p_mc_name, p_revision);
874:
875: IF (chk_mc_name_csr%NOTFOUND) THEN
876: CLOSE chk_mc_name_csr;
877: -- input is invalid
878: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
879: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
880: FND_MESSAGE.Set_Token('MC_REV',p_revision);
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
875: IF (chk_mc_name_csr%NOTFOUND) THEN
876: CLOSE chk_mc_name_csr;
877: -- input is invalid
878: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
879: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
880: FND_MESSAGE.Set_Token('MC_REV',p_revision);
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
883: END IF;
876: CLOSE chk_mc_name_csr;
877: -- input is invalid
878: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
879: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
880: FND_MESSAGE.Set_Token('MC_REV',p_revision);
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
883: END IF;
884:
891:
892: IF (chk_mc_header_id_csr%NOTFOUND) THEN
893: CLOSE chk_mc_header_id_csr;
894: -- input is invalid
895: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
896: FND_MESSAGE.Set_Token('MC_ID',p_mc_header_id);
897: FND_MSG_PUB.ADD;
898: RAISE FND_API.G_EXC_ERROR;
899: END IF;
892: IF (chk_mc_header_id_csr%NOTFOUND) THEN
893: CLOSE chk_mc_header_id_csr;
894: -- input is invalid
895: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
896: FND_MESSAGE.Set_Token('MC_ID',p_mc_header_id);
897: FND_MSG_PUB.ADD;
898: RAISE FND_API.G_EXC_ERROR;
899: END IF;
900:
1068:
1069: -- check input parameters
1070: IF (p_encoded_path IS NULL) THEN
1071: -- encoded path cant be NULL
1072: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_PATH_NULL');
1073: FND_MSG_PUB.ADD;
1074: RAISE FND_API.G_EXC_ERROR;
1075: ELSIF (p_mc_header_id IS NULL) THEN
1076: -- check with mc_name and revision
1075: ELSIF (p_mc_header_id IS NULL) THEN
1076: -- check with mc_name and revision
1077: IF (p_mc_name IS NULL) OR (p_revision IS NULL) THEN
1078: -- input is NULL
1079: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
1080: FND_MSG_PUB.ADD;
1081: RAISE FND_API.G_EXC_ERROR;
1082: ELSE
1083: OPEN chk_mc_name_csr(p_mc_name, p_revision);
1085:
1086: IF (chk_mc_name_csr%NOTFOUND) THEN
1087: CLOSE chk_mc_name_csr;
1088: -- input is invalid
1089: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1090: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
1091: FND_MESSAGE.Set_Token('MC_REV',p_revision);
1092: FND_MSG_PUB.ADD;
1093: RAISE FND_API.G_EXC_ERROR;
1086: IF (chk_mc_name_csr%NOTFOUND) THEN
1087: CLOSE chk_mc_name_csr;
1088: -- input is invalid
1089: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1090: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
1091: FND_MESSAGE.Set_Token('MC_REV',p_revision);
1092: FND_MSG_PUB.ADD;
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1087: CLOSE chk_mc_name_csr;
1088: -- input is invalid
1089: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1090: FND_MESSAGE.Set_Token('MC_NAME',p_mc_name);
1091: FND_MESSAGE.Set_Token('MC_REV',p_revision);
1092: FND_MSG_PUB.ADD;
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095:
1102:
1103: IF (chk_mc_header_id_csr%NOTFOUND) THEN
1104: CLOSE chk_mc_header_id_csr;
1105: -- input is invalid
1106: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
1107: FND_MESSAGE.Set_Token('MC_ID',p_mc_header_id);
1108: FND_MSG_PUB.ADD;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1103: IF (chk_mc_header_id_csr%NOTFOUND) THEN
1104: CLOSE chk_mc_header_id_csr;
1105: -- input is invalid
1106: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
1107: FND_MESSAGE.Set_Token('MC_ID',p_mc_header_id);
1108: FND_MSG_PUB.ADD;
1109: RAISE FND_API.G_EXC_ERROR;
1110: END IF;
1111:
1274: IF (l_rule_rec.mc_header_id IS NULL) THEN
1275: -- check with mc_name and revision
1276: IF (l_rule_rec.mc_name IS NULL) OR (l_rule_rec.mc_revision IS NULL) THEN
1277: -- input is NULL
1278: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
1279: FND_MSG_PUB.ADD;
1280: RAISE FND_API.G_EXC_ERROR;
1281: ELSE
1282: OPEN chk_mc_name_csr(l_rule_rec.mc_name, l_rule_rec.mc_revision);
1284:
1285: IF (chk_mc_name_csr%NOTFOUND) THEN
1286: CLOSE chk_mc_name_csr;
1287: -- input is invalid
1288: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1289: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1290: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1291: FND_MSG_PUB.ADD;
1292: RAISE FND_API.G_EXC_ERROR;
1285: IF (chk_mc_name_csr%NOTFOUND) THEN
1286: CLOSE chk_mc_name_csr;
1287: -- input is invalid
1288: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1289: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1290: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1291: FND_MSG_PUB.ADD;
1292: RAISE FND_API.G_EXC_ERROR;
1293: END IF;
1286: CLOSE chk_mc_name_csr;
1287: -- input is invalid
1288: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1289: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1290: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1291: FND_MSG_PUB.ADD;
1292: RAISE FND_API.G_EXC_ERROR;
1293: END IF;
1294:
1303:
1304: IF (chk_mc_header_id_csr%NOTFOUND) THEN
1305: CLOSE chk_mc_header_id_csr;
1306: -- input is invalid
1307: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
1308: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1309: FND_MSG_PUB.ADD;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1304: IF (chk_mc_header_id_csr%NOTFOUND) THEN
1305: CLOSE chk_mc_header_id_csr;
1306: -- input is invalid
1307: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_HDR_ID_INV');
1308: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1309: FND_MSG_PUB.ADD;
1310: RAISE FND_API.G_EXC_ERROR;
1311: END IF;
1312:
1317: IF (l_rule_rec.rule_type_code IS NULL) THEN
1318: -- check for rule_type_meaning
1319: IF (l_rule_rec.rule_type_meaning IS NULL) THEN
1320: -- input is NULL
1321: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_TYPE_NULL');
1322: FND_MSG_PUB.ADD;
1323: RAISE FND_API.G_EXC_ERROR;
1324: ELSE
1325: -- convert the meaning into code
1334: -- set the rule_type_code
1335: l_rule_rec.rule_type_code := l_rule_type_code;
1336: ELSE
1337: -- input is invalid
1338: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
1339: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_rec.rule_type_meaning);
1340: FND_MSG_PUB.ADD;
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1335: l_rule_rec.rule_type_code := l_rule_type_code;
1336: ELSE
1337: -- input is invalid
1338: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
1339: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_rec.rule_type_meaning);
1340: FND_MSG_PUB.ADD;
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1343: END IF;
1348:
1349: IF (chk_lookup_code_csr%NOTFOUND) THEN
1350: CLOSE chk_lookup_code_csr;
1351: -- input is invalid
1352: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
1353: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_rec.rule_type_code);
1354: FND_MSG_PUB.ADD;
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1349: IF (chk_lookup_code_csr%NOTFOUND) THEN
1350: CLOSE chk_lookup_code_csr;
1351: -- input is invalid
1352: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_TYPE_INV');
1353: FND_MESSAGE.Set_Token('RULE_TYPE',l_rule_rec.rule_type_code);
1354: FND_MSG_PUB.ADD;
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1372:
1373: IF (chk_rule_name_csr%NOTFOUND) THEN
1374: CLOSE chk_rule_name_csr;
1375: -- input is invalid
1376: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1377: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1378: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1379: FND_MSG_PUB.ADD;
1380: RAISE FND_API.G_EXC_ERROR;
1373: IF (chk_rule_name_csr%NOTFOUND) THEN
1374: CLOSE chk_rule_name_csr;
1375: -- input is invalid
1376: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1377: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1378: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1379: FND_MSG_PUB.ADD;
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1374: CLOSE chk_rule_name_csr;
1375: -- input is invalid
1376: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1377: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1378: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1379: FND_MSG_PUB.ADD;
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382:
1386: ELSE
1387: -- check with mc_name and revision
1388: IF (l_rule_rec.mc_name IS NULL) OR (l_rule_rec.mc_revision IS NULL) THEN
1389: -- input is NULL
1390: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NULL');
1391: FND_MSG_PUB.ADD;
1392: RAISE FND_API.G_EXC_ERROR;
1393: ELSE
1394: OPEN chk_mc_name_csr(l_rule_rec.mc_name, l_rule_rec.mc_revision);
1396:
1397: IF (chk_mc_name_csr%NOTFOUND) THEN
1398: CLOSE chk_mc_name_csr;
1399: -- input is invalid
1400: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1401: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1402: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1403: FND_MSG_PUB.ADD;
1404: RAISE FND_API.G_EXC_ERROR;
1397: IF (chk_mc_name_csr%NOTFOUND) THEN
1398: CLOSE chk_mc_name_csr;
1399: -- input is invalid
1400: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1401: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1402: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1403: FND_MSG_PUB.ADD;
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1398: CLOSE chk_mc_name_csr;
1399: -- input is invalid
1400: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_NAME_INV');
1401: FND_MESSAGE.Set_Token('MC_NAME',l_rule_rec.mc_name);
1402: FND_MESSAGE.Set_Token('MC_REV',l_rule_rec.mc_revision);
1403: FND_MSG_PUB.ADD;
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1406:
1414:
1415: IF (chk_rule_name_csr%NOTFOUND) THEN
1416: CLOSE chk_rule_name_csr;
1417: -- input is invalid
1418: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1419: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1420: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1421: FND_MSG_PUB.ADD;
1422: RAISE FND_API.G_EXC_ERROR;
1415: IF (chk_rule_name_csr%NOTFOUND) THEN
1416: CLOSE chk_rule_name_csr;
1417: -- input is invalid
1418: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1419: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1420: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1421: FND_MSG_PUB.ADD;
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1416: CLOSE chk_rule_name_csr;
1417: -- input is invalid
1418: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NAME_INV');
1419: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_rec.rule_name);
1420: FND_MESSAGE.Set_Token('MC_ID',l_rule_rec.mc_header_id);
1421: FND_MSG_PUB.ADD;
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1424:
1428: END IF;
1429: END IF;
1430: ELSE
1431: -- input is NULL
1432: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_NULL');
1433: FND_MSG_PUB.ADD;
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: ELSE
1440:
1441: IF (chk_rule_id_csr%NOTFOUND) THEN
1442: CLOSE chk_rule_id_csr;
1443: -- input is invalid
1444: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_ID_INV');
1445: FND_MESSAGE.Set_Token('RULE_ID',l_rule_rec.rule_id);
1446: FND_MSG_PUB.ADD;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1441: IF (chk_rule_id_csr%NOTFOUND) THEN
1442: CLOSE chk_rule_id_csr;
1443: -- input is invalid
1444: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_ID_INV');
1445: FND_MESSAGE.Set_Token('RULE_ID',l_rule_rec.rule_id);
1446: FND_MSG_PUB.ADD;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449:
1557: -- for updation, check for rule stmt id and object version number
1558: IF (p_operation_flag = 'U')THEN
1559: IF (l_ui_rule_stmt_tbl(i).rule_statement_id IS NULL) THEN
1560: -- input is NULL
1561: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_NULL');
1562: FND_MSG_PUB.ADD;
1563: l_flag := 'Y';
1564: ELSE
1565: -- check with the rule stmt id
1567: FETCH chk_rule_stmt_id_csr INTO l_dummy;
1568:
1569: IF (chk_rule_stmt_id_csr%NOTFOUND) THEN
1570: -- input is invalid
1571: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
1572: FND_MESSAGE.Set_Token('RULE_STMT_ID',l_ui_rule_stmt_tbl(i).rule_statement_id);
1573: FND_MSG_PUB.ADD;
1574: l_flag := 'Y';
1575: END IF;
1568:
1569: IF (chk_rule_stmt_id_csr%NOTFOUND) THEN
1570: -- input is invalid
1571: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
1572: FND_MESSAGE.Set_Token('RULE_STMT_ID',l_ui_rule_stmt_tbl(i).rule_statement_id);
1573: FND_MSG_PUB.ADD;
1574: l_flag := 'Y';
1575: END IF;
1576:
1577: CLOSE chk_rule_stmt_id_csr;
1578: END IF;
1579:
1580: IF (l_ui_rule_stmt_tbl(i).rule_stmt_obj_ver_num IS NULL) THEN
1581: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_VER_NULL');
1582: FND_MSG_PUB.ADD;
1583: l_flag := 'Y';
1584: END IF;
1585: END IF;
1588: IF (l_ui_rule_stmt_tbl(i).operator IS NULL) THEN
1589: -- check for operator_meaning
1590: IF (l_ui_rule_stmt_tbl(i).operator_meaning IS NULL) THEN
1591: -- input is NULL
1592: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_OPER_NULL');
1593: FND_MSG_PUB.ADD;
1594: l_flag := 'Y';
1595: ELSE
1596: -- convert the meaning into code
1605: -- set the operator
1606: l_ui_rule_stmt_tbl(i).operator := l_rule_operator;
1607: ELSE
1608: -- input is invalid
1609: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OPR_INV');
1610: FND_MESSAGE.Set_Token('OPR',l_ui_rule_stmt_tbl(i).operator_meaning);
1611: FND_MSG_PUB.ADD;
1612: l_flag := 'Y';
1613: END IF;
1606: l_ui_rule_stmt_tbl(i).operator := l_rule_operator;
1607: ELSE
1608: -- input is invalid
1609: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OPR_INV');
1610: FND_MESSAGE.Set_Token('OPR',l_ui_rule_stmt_tbl(i).operator_meaning);
1611: FND_MSG_PUB.ADD;
1612: l_flag := 'Y';
1613: END IF;
1614: END IF;
1618: FETCH chk_lookup_code_csr INTO l_dummy;
1619:
1620: IF (chk_lookup_code_csr%NOTFOUND) THEN
1621: -- input is invalid
1622: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OPR_INV');
1623: FND_MESSAGE.Set_Token('OPR',l_ui_rule_stmt_tbl(i).operator);
1624: FND_MSG_PUB.ADD;
1625: l_flag := 'Y';
1626: END IF;
1619:
1620: IF (chk_lookup_code_csr%NOTFOUND) THEN
1621: -- input is invalid
1622: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OPR_INV');
1623: FND_MESSAGE.Set_Token('OPR',l_ui_rule_stmt_tbl(i).operator);
1624: FND_MSG_PUB.ADD;
1625: l_flag := 'Y';
1626: END IF;
1627:
1644: -- set the rule_operator
1645: l_ui_rule_stmt_tbl(i).rule_operator := l_rule_rule_operator;
1646: ELSE
1647: -- input is invalid
1648: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_OPR_INV');
1649: FND_MESSAGE.Set_Token('RL_OPR',l_ui_rule_stmt_tbl(i).rule_operator_meaning);
1650: FND_MSG_PUB.ADD;
1651: l_flag := 'Y';
1652: END IF;
1645: l_ui_rule_stmt_tbl(i).rule_operator := l_rule_rule_operator;
1646: ELSE
1647: -- input is invalid
1648: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_OPR_INV');
1649: FND_MESSAGE.Set_Token('RL_OPR',l_ui_rule_stmt_tbl(i).rule_operator_meaning);
1650: FND_MSG_PUB.ADD;
1651: l_flag := 'Y';
1652: END IF;
1653: END IF;
1657: FETCH chk_lookup_code_csr INTO l_dummy;
1658:
1659: IF (chk_lookup_code_csr%NOTFOUND) THEN
1660: -- input is invalid
1661: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_OPR_INV');
1662: FND_MESSAGE.Set_Token('RL_OPR',l_ui_rule_stmt_tbl(i).rule_operator);
1663: FND_MSG_PUB.ADD;
1664: l_flag := 'Y';
1665: END IF;
1658:
1659: IF (chk_lookup_code_csr%NOTFOUND) THEN
1660: -- input is invalid
1661: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_RL_OPR_INV');
1662: FND_MESSAGE.Set_Token('RL_OPR',l_ui_rule_stmt_tbl(i).rule_operator);
1663: FND_MSG_PUB.ADD;
1664: l_flag := 'Y';
1665: END IF;
1666:
1683: -- set the object_type
1684: l_ui_rule_stmt_tbl(i).object_type := l_rule_object_type;
1685: ELSE
1686: -- input is invalid
1687: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_TYPE_INV');
1688: FND_MESSAGE.Set_Token('OBJ_TYPE',l_ui_rule_stmt_tbl(i).object_type_meaning);
1689: FND_MSG_PUB.ADD;
1690: l_flag := 'Y';
1691: END IF;
1684: l_ui_rule_stmt_tbl(i).object_type := l_rule_object_type;
1685: ELSE
1686: -- input is invalid
1687: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_TYPE_INV');
1688: FND_MESSAGE.Set_Token('OBJ_TYPE',l_ui_rule_stmt_tbl(i).object_type_meaning);
1689: FND_MSG_PUB.ADD;
1690: l_flag := 'Y';
1691: END IF;
1692: END IF;
1696: FETCH chk_lookup_code_csr INTO l_dummy;
1697:
1698: IF (chk_lookup_code_csr%NOTFOUND) THEN
1699: -- input is invalid
1700: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_TYPE_INV');
1701: FND_MESSAGE.Set_Token('OBJ_TYPE',l_ui_rule_stmt_tbl(i).object_type);
1702: FND_MSG_PUB.ADD;
1703: l_flag := 'Y';
1704: END IF;
1697:
1698: IF (chk_lookup_code_csr%NOTFOUND) THEN
1699: -- input is invalid
1700: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_OBJ_TYPE_INV');
1701: FND_MESSAGE.Set_Token('OBJ_TYPE',l_ui_rule_stmt_tbl(i).object_type);
1702: FND_MSG_PUB.ADD;
1703: l_flag := 'Y';
1704: END IF;
1705:
1712: IF (l_ui_rule_stmt_tbl(i).object_id IS NULL) THEN
1713: -- check for object_meaning
1714: IF (l_ui_rule_stmt_tbl(i).object_meaning IS NULL) THEN
1715: -- input is NULL
1716: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ITM_NULL');
1717: FND_MSG_PUB.ADD;
1718: l_flag := 'Y';
1719: ELSE
1720: OPEN chk_item_name_csr(l_ui_rule_stmt_tbl(i).object_meaning);
1721: FETCH chk_item_name_csr INTO l_item_id;
1722:
1723: IF (chk_item_name_csr%NOTFOUND) THEN
1724: -- input is invalid
1725: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ITM_NAME_INV');
1726: FND_MESSAGE.Set_Token('ITM_NAME',l_ui_rule_stmt_tbl(i).object_meaning);
1727: FND_MSG_PUB.ADD;
1728: l_flag := 'Y';
1729: END IF;
1722:
1723: IF (chk_item_name_csr%NOTFOUND) THEN
1724: -- input is invalid
1725: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ITM_NAME_INV');
1726: FND_MESSAGE.Set_Token('ITM_NAME',l_ui_rule_stmt_tbl(i).object_meaning);
1727: FND_MSG_PUB.ADD;
1728: l_flag := 'Y';
1729: END IF;
1730:
1738: FETCH chk_item_id_csr INTO l_dummy;
1739:
1740: IF (chk_item_id_csr%NOTFOUND) THEN
1741: -- input is invalid
1742: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ITM_ID_INV');
1743: FND_MESSAGE.Set_Token('ITM_ID',l_ui_rule_stmt_tbl(i).object_id);
1744: FND_MSG_PUB.ADD;
1745: l_flag := 'Y';
1746: END IF;
1739:
1740: IF (chk_item_id_csr%NOTFOUND) THEN
1741: -- input is invalid
1742: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ITM_ID_INV');
1743: FND_MESSAGE.Set_Token('ITM_ID',l_ui_rule_stmt_tbl(i).object_id);
1744: FND_MSG_PUB.ADD;
1745: l_flag := 'Y';
1746: END IF;
1747:
1755: IF (l_ui_rule_stmt_tbl(i).object_id IS NULL) THEN
1756: -- check for object_meaning
1757: IF (l_ui_rule_stmt_tbl(i).object_meaning IS NULL) THEN
1758: -- input is NULL
1759: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_ID_NULL');
1760: FND_MSG_PUB.ADD;
1761: l_flag := 'Y';
1762: ELSE
1763: OPEN chk_mc_name_csr(l_ui_rule_stmt_tbl(i).object_meaning);
1764: FETCH chk_mc_name_csr INTO l_mc_id;
1765:
1766: IF (chk_mc_name_csr%NOTFOUND) THEN
1767: -- input is invalid
1768: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_ID_NAME_INV');
1769: FND_MESSAGE.Set_Token('MC_NAME',l_ui_rule_stmt_tbl(i).object_meaning);
1770: FND_MSG_PUB.ADD;
1771: l_flag := 'Y';
1772: END IF;
1765:
1766: IF (chk_mc_name_csr%NOTFOUND) THEN
1767: -- input is invalid
1768: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_ID_NAME_INV');
1769: FND_MESSAGE.Set_Token('MC_NAME',l_ui_rule_stmt_tbl(i).object_meaning);
1770: FND_MSG_PUB.ADD;
1771: l_flag := 'Y';
1772: END IF;
1773:
1781: FETCH chk_mc_id_csr INTO l_dummy;
1782:
1783: IF (chk_mc_id_csr%NOTFOUND) THEN
1784: -- input is invalid
1785: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_ID_INV');
1786: FND_MESSAGE.Set_Token('MC_ID',l_ui_rule_stmt_tbl(i).object_id);
1787: FND_MSG_PUB.ADD;
1788: l_flag := 'Y';
1789: END IF;
1782:
1783: IF (chk_mc_id_csr%NOTFOUND) THEN
1784: -- input is invalid
1785: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_MC_ID_INV');
1786: FND_MESSAGE.Set_Token('MC_ID',l_ui_rule_stmt_tbl(i).object_id);
1787: FND_MSG_PUB.ADD;
1788: l_flag := 'Y';
1789: END IF;
1790: