[Home] [Help]
34: -- End of Comments.
35:
36: PROCEDURE Load_Rule (
37: p_api_version IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: x_return_status OUT NOCOPY VARCHAR2,
42: x_msg_count OUT NOCOPY NUMBER,
35:
36: PROCEDURE Load_Rule (
37: p_api_version IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: x_return_status OUT NOCOPY VARCHAR2,
42: x_msg_count OUT NOCOPY NUMBER,
43: x_msg_data OUT NOCOPY VARCHAR2,
36: PROCEDURE Load_Rule (
37: p_api_version IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41: x_return_status OUT NOCOPY VARCHAR2,
42: x_msg_count OUT NOCOPY NUMBER,
43: x_msg_data OUT NOCOPY VARCHAR2,
44: p_rule_id IN NUMBER,
59: -- Standard start of API savepoint
60: SAVEPOINT Load_Rule_pvt;
61:
62: -- Initialize Procedure return status to success
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
64: -- Standard call to check for call compatibility
65: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
66: G_PKG_NAME) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61:
62: -- Initialize Procedure return status to success
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
64: -- Standard call to check for call compatibility
65: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
66: G_PKG_NAME) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
64: -- Standard call to check for call compatibility
65: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
66: G_PKG_NAME) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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);
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;
86:
87: --Call the API to build the rule table
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;
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,
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
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;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
114: p_data => x_msg_data,
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,
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;
127:
128: ---
152: --
153: CURSOR Rule_stmt_csr (p_rulestmt_id IN NUMBER) IS
154: SELECT rs.RULE_STATEMENT_ID,
155: rs.subject_ID POSITION_ID,
156: AHL_MC_PATH_POSITION_PVT.get_posref_by_id(rs.subject_id, FND_API.G_FALSE) POSITION_MEANING,
157: rs.negation_flag,
158: rs.operator,
159: rs.object_version_number,
160: fnd.meaning operator_meaning,
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:
236: CLOSE check_rule_operator_csr;
237: --Evaluate the subject and object ids
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;
388:
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:
434: Build_Rule_Stmt_Tbl(
435: p_start_index => l_ui_stmt_tbl.FIRST,
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
569: l_operator := p_ui_stmt_tbl(l_min_depth_index).rule_operator;
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:
591: --1) Build the subject table
676: -- End of Comments.
677:
678: PROCEDURE Insert_Rule (
679: p_api_version IN NUMBER,
680: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
683: x_return_status OUT NOCOPY VARCHAR2,
684: x_msg_count OUT NOCOPY NUMBER,
677:
678: PROCEDURE Insert_Rule (
679: p_api_version IN NUMBER,
680: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
683: x_return_status OUT NOCOPY VARCHAR2,
684: x_msg_count OUT NOCOPY NUMBER,
685: x_msg_data OUT NOCOPY VARCHAR2,
678: PROCEDURE Insert_Rule (
679: p_api_version IN NUMBER,
680: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
681: p_commit IN VARCHAR2 := FND_API.G_FALSE,
682: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
683: x_return_status OUT NOCOPY VARCHAR2,
684: x_msg_count OUT NOCOPY NUMBER,
685: x_msg_data OUT NOCOPY VARCHAR2,
686: p_module IN VARCHAR2 := 'JSP',
717:
718: -- Standard start of API savepoint
719: SAVEPOINT Insert_Rule_pvt;
720: -- Initialize Procedure return status to success
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722: -- Standard call to check for call compatibility
723: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
724: G_PKG_NAME) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
719: SAVEPOINT Insert_Rule_pvt;
720: -- Initialize Procedure return status to success
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722: -- Standard call to check for call compatibility
723: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
724: G_PKG_NAME) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722: -- Standard call to check for call compatibility
723: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
724: G_PKG_NAME) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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
745: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
746: FND_MESSAGE.Set_Token('STATUS', l_status);
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;
752:
753: IF (p_module = 'JSP') THEN
751: CLOSE check_mc_status_csr;
752:
753: IF (p_module = 'JSP') THEN
754:
755: IF (p_x_rule_rec.DESCRIPTION = FND_API.G_MISS_CHAR) THEN
756: p_x_rule_rec.DESCRIPTION := null;
757: END IF;
758:
759: IF (p_x_rule_rec.RULE_NAME = FND_API.G_MISS_CHAR) THEN
755: IF (p_x_rule_rec.DESCRIPTION = FND_API.G_MISS_CHAR) THEN
756: p_x_rule_rec.DESCRIPTION := null;
757: END IF;
758:
759: IF (p_x_rule_rec.RULE_NAME = FND_API.G_MISS_CHAR) THEN
760: p_x_rule_rec.RULE_NAME := null;
761: END IF;
762: IF (p_x_rule_rec.RULE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
763: p_x_rule_rec.RULE_TYPE_CODE := null;
758:
759: IF (p_x_rule_rec.RULE_NAME = FND_API.G_MISS_CHAR) THEN
760: p_x_rule_rec.RULE_NAME := null;
761: END IF;
762: IF (p_x_rule_rec.RULE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
763: p_x_rule_rec.RULE_TYPE_CODE := null;
764: END IF;
765: IF (p_x_rule_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
766: p_x_rule_rec.ACTIVE_START_DATE := null;
761: END IF;
762: IF (p_x_rule_rec.RULE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
763: p_x_rule_rec.RULE_TYPE_CODE := null;
764: END IF;
765: IF (p_x_rule_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
766: p_x_rule_rec.ACTIVE_START_DATE := null;
767: END IF;
768: IF (p_x_rule_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
769: p_x_rule_rec.ACTIVE_END_DATE := null;
764: END IF;
765: IF (p_x_rule_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
766: p_x_rule_rec.ACTIVE_START_DATE := null;
767: END IF;
768: IF (p_x_rule_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
769: p_x_rule_rec.ACTIVE_END_DATE := null;
770: END IF;
771: IF (p_x_rule_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
772: p_x_rule_rec.ATTRIBUTE_CATEGORY := null;
767: END IF;
768: IF (p_x_rule_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
769: p_x_rule_rec.ACTIVE_END_DATE := null;
770: END IF;
771: IF (p_x_rule_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
772: p_x_rule_rec.ATTRIBUTE_CATEGORY := null;
773: END IF;
774: IF (p_x_rule_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
775: p_x_rule_rec.ATTRIBUTE1 := null;
770: END IF;
771: IF (p_x_rule_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
772: p_x_rule_rec.ATTRIBUTE_CATEGORY := null;
773: END IF;
774: IF (p_x_rule_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
775: p_x_rule_rec.ATTRIBUTE1 := null;
776: END IF;
777: IF (p_x_rule_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
778: p_x_rule_rec.ATTRIBUTE2 := null;
773: END IF;
774: IF (p_x_rule_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
775: p_x_rule_rec.ATTRIBUTE1 := null;
776: END IF;
777: IF (p_x_rule_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
778: p_x_rule_rec.ATTRIBUTE2 := null;
779: END IF;
780:
781: IF (p_x_rule_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
777: IF (p_x_rule_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
778: p_x_rule_rec.ATTRIBUTE2 := null;
779: END IF;
780:
781: IF (p_x_rule_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
782: p_x_rule_rec.ATTRIBUTE3 := null;
783: END IF;
784: IF (p_x_rule_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
785: p_x_rule_rec.ATTRIBUTE4 := null;
780:
781: IF (p_x_rule_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
782: p_x_rule_rec.ATTRIBUTE3 := null;
783: END IF;
784: IF (p_x_rule_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
785: p_x_rule_rec.ATTRIBUTE4 := null;
786: END IF;
787: IF (p_x_rule_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
788: p_x_rule_rec.ATTRIBUTE5 := null;
783: END IF;
784: IF (p_x_rule_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
785: p_x_rule_rec.ATTRIBUTE4 := null;
786: END IF;
787: IF (p_x_rule_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
788: p_x_rule_rec.ATTRIBUTE5 := null;
789: END IF;
790: IF (p_x_rule_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
791: p_x_rule_rec.ATTRIBUTE6 := null;
786: END IF;
787: IF (p_x_rule_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
788: p_x_rule_rec.ATTRIBUTE5 := null;
789: END IF;
790: IF (p_x_rule_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
791: p_x_rule_rec.ATTRIBUTE6 := null;
792: END IF;
793:
794: IF (p_x_rule_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
790: IF (p_x_rule_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
791: p_x_rule_rec.ATTRIBUTE6 := null;
792: END IF;
793:
794: IF (p_x_rule_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
795: p_x_rule_rec.ATTRIBUTE7 := null;
796: END IF;
797: IF (p_x_rule_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
798: p_x_rule_rec.ATTRIBUTE8 := null;
793:
794: IF (p_x_rule_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
795: p_x_rule_rec.ATTRIBUTE7 := null;
796: END IF;
797: IF (p_x_rule_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
798: p_x_rule_rec.ATTRIBUTE8 := null;
799: END IF;
800: IF (p_x_rule_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
801: p_x_rule_rec.ATTRIBUTE9 := null;
796: END IF;
797: IF (p_x_rule_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
798: p_x_rule_rec.ATTRIBUTE8 := null;
799: END IF;
800: IF (p_x_rule_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
801: p_x_rule_rec.ATTRIBUTE9 := null;
802: END IF;
803: IF (p_x_rule_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
804: p_x_rule_rec.ATTRIBUTE10 := null;
799: END IF;
800: IF (p_x_rule_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
801: p_x_rule_rec.ATTRIBUTE9 := null;
802: END IF;
803: IF (p_x_rule_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
804: p_x_rule_rec.ATTRIBUTE10 := null;
805: END IF;
806: IF (p_x_rule_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
807: p_x_rule_rec.ATTRIBUTE11 := null;
802: END IF;
803: IF (p_x_rule_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
804: p_x_rule_rec.ATTRIBUTE10 := null;
805: END IF;
806: IF (p_x_rule_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
807: p_x_rule_rec.ATTRIBUTE11 := null;
808: END IF;
809: IF (p_x_rule_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
810: p_x_rule_rec.ATTRIBUTE12 := null;
805: END IF;
806: IF (p_x_rule_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
807: p_x_rule_rec.ATTRIBUTE11 := null;
808: END IF;
809: IF (p_x_rule_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
810: p_x_rule_rec.ATTRIBUTE12 := null;
811: END IF;
812: IF (p_x_rule_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
813: p_x_rule_rec.ATTRIBUTE13 := null;
808: END IF;
809: IF (p_x_rule_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
810: p_x_rule_rec.ATTRIBUTE12 := null;
811: END IF;
812: IF (p_x_rule_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
813: p_x_rule_rec.ATTRIBUTE13 := null;
814: END IF;
815: IF (p_x_rule_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
816: p_x_rule_rec.ATTRIBUTE14 := null;
811: END IF;
812: IF (p_x_rule_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
813: p_x_rule_rec.ATTRIBUTE13 := null;
814: END IF;
815: IF (p_x_rule_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
816: p_x_rule_rec.ATTRIBUTE14 := null;
817: END IF;
818: IF (p_x_rule_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
819: p_x_rule_rec.ATTRIBUTE15 := null;
814: END IF;
815: IF (p_x_rule_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
816: p_x_rule_rec.ATTRIBUTE14 := null;
817: END IF;
818: IF (p_x_rule_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
819: p_x_rule_rec.ATTRIBUTE15 := null;
820: END IF;
821: END IF;
822:
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:
865: SELECT AHL_MC_RULES_B_S.nextval
866: INTO p_x_rule_rec.rule_id
907: --Insert the Rule statement Records
908: FOR i IN l_rule_stmt_tbl.FIRST..l_rule_stmt_tbl.LAST LOOP
909: AHL_MC_RULE_STMT_PVT.Insert_Rule_Stmt (
910: p_api_version => 1.0,
911: p_commit => FND_API.G_FALSE,
912: p_module => p_module,
913: p_x_rule_stmt_rec => l_rule_stmt_tbl(i),
914: x_return_status => x_return_status,
915: x_msg_count => x_msg_count,
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;
924:
925: --Update the status to Draft if approval rejected
930: WHERE mc_header_id = p_x_rule_rec.mc_header_id;
931: END IF;
932:
933: -- Standard check of p_commit
934: IF FND_API.TO_BOOLEAN(p_commit) THEN
935: COMMIT WORK;
936: END IF;
937:
938: -- Standard call to get message count and if count is 1, get message info
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;
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,
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
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;
953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
954: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
960: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
955: p_data => x_msg_data,
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,
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;
968:
969: --------------------------------
981: -- End of Comments.
982:
983: PROCEDURE Update_Rule (
984: p_api_version IN NUMBER,
985: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
982:
983: PROCEDURE Update_Rule (
984: p_api_version IN NUMBER,
985: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
990: x_msg_data OUT NOCOPY VARCHAR2,
983: PROCEDURE Update_Rule (
984: p_api_version IN NUMBER,
985: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
986: p_commit IN VARCHAR2 := FND_API.G_FALSE,
987: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
988: x_return_status OUT NOCOPY VARCHAR2,
989: x_msg_count OUT NOCOPY NUMBER,
990: x_msg_data OUT NOCOPY VARCHAR2,
991: p_module IN VARCHAR2 := 'JSP',
1039: BEGIN
1040: -- Standard start of API savepoint
1041: SAVEPOINT Update_Rule_pvt;
1042: -- Initialize Procedure return status to success
1043: x_return_status := FND_API.G_RET_STS_SUCCESS;
1044: -- Standard call to check for call compatibility
1045: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1046: G_PKG_NAME) THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1041: SAVEPOINT Update_Rule_pvt;
1042: -- Initialize Procedure return status to success
1043: x_return_status := FND_API.G_RET_STS_SUCCESS;
1044: -- Standard call to check for call compatibility
1045: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1046: G_PKG_NAME) THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1048: END IF;
1049:
1043: x_return_status := FND_API.G_RET_STS_SUCCESS;
1044: -- Standard call to check for call compatibility
1045: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1046: G_PKG_NAME) THEN
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
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
1066: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
1067: FND_MESSAGE.Set_Token('STATUS', l_status);
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;
1073:
1074:
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
1097: IF (p_module = 'JSP') THEN
1096: --Convert NULL/G_MISS types
1097: IF (p_module = 'JSP') THEN
1098: IF (l_rule_rec.DESCRIPTION IS NULL) THEN
1099: l_rule_rec.DESCRIPTION := l_old_rule_rec.DESCRIPTION;
1100: ELSIF (l_rule_rec.DESCRIPTION = FND_API.G_MISS_CHAR) THEN
1101: l_rule_rec.DESCRIPTION := NULL;
1102: END IF;
1103: IF (l_rule_rec.RULE_NAME IS NULL) THEN
1104: l_rule_rec.RULE_NAME := l_old_rule_rec.RULE_NAME;
1101: l_rule_rec.DESCRIPTION := NULL;
1102: END IF;
1103: IF (l_rule_rec.RULE_NAME IS NULL) THEN
1104: l_rule_rec.RULE_NAME := l_old_rule_rec.RULE_NAME;
1105: ELSIF (l_rule_rec.RULE_NAME = FND_API.G_MISS_CHAR) THEN
1106: l_rule_rec.RULE_NAME := NULL;
1107: END IF;
1108: IF (l_rule_rec.RULE_TYPE_CODE IS NULL) THEN
1109: l_rule_rec.RULE_TYPE_CODE := l_old_rule_rec.RULE_TYPE_CODE;
1106: l_rule_rec.RULE_NAME := NULL;
1107: END IF;
1108: IF (l_rule_rec.RULE_TYPE_CODE IS NULL) THEN
1109: l_rule_rec.RULE_TYPE_CODE := l_old_rule_rec.RULE_TYPE_CODE;
1110: ELSIF (l_rule_rec.RULE_TYPE_CODE = FND_API.G_MISS_CHAR) THEN
1111: l_rule_rec.RULE_TYPE_CODE := NULL;
1112: END IF;
1113: IF (l_rule_rec.ACTIVE_START_DATE IS NULL) THEN
1114: l_rule_rec.ACTIVE_START_DATE := l_old_rule_rec.ACTIVE_START_DATE;
1111: l_rule_rec.RULE_TYPE_CODE := NULL;
1112: END IF;
1113: IF (l_rule_rec.ACTIVE_START_DATE IS NULL) THEN
1114: l_rule_rec.ACTIVE_START_DATE := l_old_rule_rec.ACTIVE_START_DATE;
1115: ELSIF (l_rule_rec.ACTIVE_START_DATE = FND_API.G_MISS_DATE) THEN
1116: l_rule_rec.ACTIVE_START_DATE := NULL;
1117: END IF;
1118: IF (l_rule_rec.ACTIVE_END_DATE IS NULL) THEN
1119: l_rule_rec.ACTIVE_END_DATE := l_old_rule_rec.ACTIVE_END_DATE;
1116: l_rule_rec.ACTIVE_START_DATE := NULL;
1117: END IF;
1118: IF (l_rule_rec.ACTIVE_END_DATE IS NULL) THEN
1119: l_rule_rec.ACTIVE_END_DATE := l_old_rule_rec.ACTIVE_END_DATE;
1120: ELSIF (l_rule_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
1121: l_rule_rec.ACTIVE_END_DATE := NULL;
1122: END IF;
1123: IF (l_rule_rec.ATTRIBUTE_CATEGORY IS NULL) THEN
1124: l_rule_rec.ATTRIBUTE_CATEGORY := l_old_rule_rec.ATTRIBUTE_CATEGORY;
1121: l_rule_rec.ACTIVE_END_DATE := NULL;
1122: END IF;
1123: IF (l_rule_rec.ATTRIBUTE_CATEGORY IS NULL) THEN
1124: l_rule_rec.ATTRIBUTE_CATEGORY := l_old_rule_rec.ATTRIBUTE_CATEGORY;
1125: ELSIF (l_rule_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
1126: l_rule_rec.ATTRIBUTE_CATEGORY := NULL;
1127: END IF;
1128: IF (l_rule_rec.ATTRIBUTE1 IS NULL) THEN
1129: l_rule_rec.ATTRIBUTE1 := l_old_rule_rec.ATTRIBUTE1;
1126: l_rule_rec.ATTRIBUTE_CATEGORY := NULL;
1127: END IF;
1128: IF (l_rule_rec.ATTRIBUTE1 IS NULL) THEN
1129: l_rule_rec.ATTRIBUTE1 := l_old_rule_rec.ATTRIBUTE1;
1130: ELSIF (l_rule_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
1131: l_rule_rec.ATTRIBUTE1 := NULL;
1132: END IF;
1133: IF (l_rule_rec.ATTRIBUTE2 IS NULL) THEN
1134: l_rule_rec.ATTRIBUTE2 := l_old_rule_rec.ATTRIBUTE2;
1131: l_rule_rec.ATTRIBUTE1 := NULL;
1132: END IF;
1133: IF (l_rule_rec.ATTRIBUTE2 IS NULL) THEN
1134: l_rule_rec.ATTRIBUTE2 := l_old_rule_rec.ATTRIBUTE2;
1135: ELSIF (l_rule_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
1136: l_rule_rec.ATTRIBUTE2 := NULL;
1137: END IF;
1138: IF (l_rule_rec.ATTRIBUTE3 IS NULL) THEN
1139: l_rule_rec.ATTRIBUTE3 := l_old_rule_rec.ATTRIBUTE3;
1136: l_rule_rec.ATTRIBUTE2 := NULL;
1137: END IF;
1138: IF (l_rule_rec.ATTRIBUTE3 IS NULL) THEN
1139: l_rule_rec.ATTRIBUTE3 := l_old_rule_rec.ATTRIBUTE3;
1140: ELSIF (l_rule_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
1141: l_rule_rec.ATTRIBUTE3 := NULL;
1142: END IF;
1143: IF (l_rule_rec.ATTRIBUTE4 IS NULL) THEN
1144: l_rule_rec.ATTRIBUTE4 := l_old_rule_rec.ATTRIBUTE4;
1141: l_rule_rec.ATTRIBUTE3 := NULL;
1142: END IF;
1143: IF (l_rule_rec.ATTRIBUTE4 IS NULL) THEN
1144: l_rule_rec.ATTRIBUTE4 := l_old_rule_rec.ATTRIBUTE4;
1145: ELSIF (l_rule_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
1146: l_rule_rec.ATTRIBUTE4 := NULL;
1147: END IF;
1148: IF (l_rule_rec.ATTRIBUTE5 IS NULL) THEN
1149: l_rule_rec.ATTRIBUTE5 := l_old_rule_rec.ATTRIBUTE5;
1146: l_rule_rec.ATTRIBUTE4 := NULL;
1147: END IF;
1148: IF (l_rule_rec.ATTRIBUTE5 IS NULL) THEN
1149: l_rule_rec.ATTRIBUTE5 := l_old_rule_rec.ATTRIBUTE5;
1150: ELSIF (l_rule_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
1151: l_rule_rec.ATTRIBUTE5 := NULL;
1152: END IF;
1153: IF (l_rule_rec.ATTRIBUTE6 IS NULL) THEN
1154: l_rule_rec.ATTRIBUTE6 := l_old_rule_rec.ATTRIBUTE6;
1151: l_rule_rec.ATTRIBUTE5 := NULL;
1152: END IF;
1153: IF (l_rule_rec.ATTRIBUTE6 IS NULL) THEN
1154: l_rule_rec.ATTRIBUTE6 := l_old_rule_rec.ATTRIBUTE6;
1155: ELSIF (l_rule_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
1156: l_rule_rec.ATTRIBUTE6 := NULL;
1157: END IF;
1158: IF (l_rule_rec.ATTRIBUTE7 IS NULL) THEN
1159: l_rule_rec.ATTRIBUTE7 := l_old_rule_rec.ATTRIBUTE7;
1156: l_rule_rec.ATTRIBUTE6 := NULL;
1157: END IF;
1158: IF (l_rule_rec.ATTRIBUTE7 IS NULL) THEN
1159: l_rule_rec.ATTRIBUTE7 := l_old_rule_rec.ATTRIBUTE7;
1160: ELSIF (l_rule_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
1161: l_rule_rec.ATTRIBUTE7 := NULL;
1162: END IF;
1163: IF (l_rule_rec.ATTRIBUTE8 IS NULL) THEN
1164: l_rule_rec.ATTRIBUTE8 := l_old_rule_rec.ATTRIBUTE8;
1161: l_rule_rec.ATTRIBUTE7 := NULL;
1162: END IF;
1163: IF (l_rule_rec.ATTRIBUTE8 IS NULL) THEN
1164: l_rule_rec.ATTRIBUTE8 := l_old_rule_rec.ATTRIBUTE8;
1165: ELSIF (l_rule_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
1166: l_rule_rec.ATTRIBUTE8 := NULL;
1167: END IF;
1168: IF (l_rule_rec.ATTRIBUTE9 IS NULL) THEN
1169: l_rule_rec.ATTRIBUTE9 := l_old_rule_rec.ATTRIBUTE9;
1166: l_rule_rec.ATTRIBUTE8 := NULL;
1167: END IF;
1168: IF (l_rule_rec.ATTRIBUTE9 IS NULL) THEN
1169: l_rule_rec.ATTRIBUTE9 := l_old_rule_rec.ATTRIBUTE9;
1170: ELSIF (l_rule_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
1171: l_rule_rec.ATTRIBUTE9 := NULL;
1172: END IF;
1173: IF (l_rule_rec.ATTRIBUTE10 IS NULL) THEN
1174: l_rule_rec.ATTRIBUTE10 := l_old_rule_rec.ATTRIBUTE10;
1171: l_rule_rec.ATTRIBUTE9 := NULL;
1172: END IF;
1173: IF (l_rule_rec.ATTRIBUTE10 IS NULL) THEN
1174: l_rule_rec.ATTRIBUTE10 := l_old_rule_rec.ATTRIBUTE10;
1175: ELSIF (l_rule_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
1176: l_rule_rec.ATTRIBUTE10 := NULL;
1177: END IF;
1178: IF (l_rule_rec.ATTRIBUTE11 IS NULL) THEN
1179: l_rule_rec.ATTRIBUTE11 := l_old_rule_rec.ATTRIBUTE11;
1176: l_rule_rec.ATTRIBUTE10 := NULL;
1177: END IF;
1178: IF (l_rule_rec.ATTRIBUTE11 IS NULL) THEN
1179: l_rule_rec.ATTRIBUTE11 := l_old_rule_rec.ATTRIBUTE11;
1180: ELSIF (l_rule_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
1181: l_rule_rec.ATTRIBUTE11 := NULL;
1182: END IF;
1183: IF (l_rule_rec.ATTRIBUTE12 IS NULL) THEN
1184: l_rule_rec.ATTRIBUTE12 := l_old_rule_rec.ATTRIBUTE12;
1181: l_rule_rec.ATTRIBUTE11 := NULL;
1182: END IF;
1183: IF (l_rule_rec.ATTRIBUTE12 IS NULL) THEN
1184: l_rule_rec.ATTRIBUTE12 := l_old_rule_rec.ATTRIBUTE12;
1185: ELSIF (l_rule_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
1186: l_rule_rec.ATTRIBUTE12 := NULL;
1187: END IF;
1188: IF (l_rule_rec.ATTRIBUTE13 IS NULL) THEN
1189: l_rule_rec.ATTRIBUTE13 := l_old_rule_rec.ATTRIBUTE13;
1186: l_rule_rec.ATTRIBUTE12 := NULL;
1187: END IF;
1188: IF (l_rule_rec.ATTRIBUTE13 IS NULL) THEN
1189: l_rule_rec.ATTRIBUTE13 := l_old_rule_rec.ATTRIBUTE13;
1190: ELSIF (l_rule_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
1191: l_rule_rec.ATTRIBUTE13 := NULL;
1192: END IF;
1193: IF (l_rule_rec.ATTRIBUTE14 IS NULL) THEN
1194: l_rule_rec.ATTRIBUTE14 := l_old_rule_rec.ATTRIBUTE14;
1191: l_rule_rec.ATTRIBUTE13 := NULL;
1192: END IF;
1193: IF (l_rule_rec.ATTRIBUTE14 IS NULL) THEN
1194: l_rule_rec.ATTRIBUTE14 := l_old_rule_rec.ATTRIBUTE14;
1195: ELSIF (l_rule_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
1196: l_rule_rec.ATTRIBUTE14 := NULL;
1197: END IF;
1198: IF (l_rule_rec.ATTRIBUTE15 IS NULL) THEN
1199: l_rule_rec.ATTRIBUTE15 := l_old_rule_rec.ATTRIBUTE15;
1196: l_rule_rec.ATTRIBUTE14 := NULL;
1197: END IF;
1198: IF (l_rule_rec.ATTRIBUTE15 IS NULL) THEN
1199: l_rule_rec.ATTRIBUTE15 := l_old_rule_rec.ATTRIBUTE15;
1200: ELSIF (l_rule_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
1201: l_rule_rec.ATTRIBUTE15 := NULL;
1202: END IF;
1203:
1204: 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:
1251: --Convert the flat structure into a rule tree.
1252: Build_rule_tree( p_rule_id => l_rule_rec.rule_id,
1311: FOR i IN l_rule_stmt_tbl.FIRST..l_rule_stmt_tbl.LAST LOOP
1312: IF (l_rule_stmt_tbl(i).operation_flag = 'I') THEN
1313: AHL_MC_RULE_STMT_PVT.Insert_Rule_Stmt (
1314: p_api_version => 1.0,
1315: p_commit => FND_API.G_FALSE,
1316: p_x_rule_stmt_rec => l_rule_stmt_tbl(i),
1317: x_return_status => x_return_status,
1318: x_msg_count => x_msg_count,
1319: x_msg_data => x_msg_data);
1320:
1321: ELSIF (l_rule_stmt_tbl(i).operation_flag = 'U') THEN
1322: AHL_MC_RULE_STMT_PVT.Update_Rule_Stmt (
1323: p_api_version => 1.0,
1324: p_commit => FND_API.G_FALSE,
1325: p_rule_stmt_rec => l_rule_stmt_tbl(i),
1326: x_return_status => x_return_status,
1327: x_msg_count => x_msg_count,
1328: x_msg_data => x_msg_data);
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;
1337:
1338: --Update the status to Draft if approval rejected
1343: WHERE mc_header_id = l_rule_rec.mc_header_id;
1344: END IF;
1345:
1346: -- Standard check of p_commit
1347: IF FND_API.TO_BOOLEAN(p_commit) THEN
1348: COMMIT WORK;
1349: END IF;
1350:
1351: -- Standard call to get message count and if count is 1, get message info
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;
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,
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
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;
1366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1367: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
1372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1368: p_data => x_msg_data,
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,
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:
1381: -----------------------------
1382: -- Start of Comments --
1393: -- End of Comments.
1394:
1395: PROCEDURE Delete_Rule (
1396: p_api_version IN NUMBER,
1397: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1398: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1399: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1400: x_return_status OUT NOCOPY VARCHAR2,
1401: x_msg_count OUT NOCOPY NUMBER,
1394:
1395: PROCEDURE Delete_Rule (
1396: p_api_version IN NUMBER,
1397: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1398: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1399: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1400: x_return_status OUT NOCOPY VARCHAR2,
1401: x_msg_count OUT NOCOPY NUMBER,
1402: x_msg_data OUT NOCOPY VARCHAR2,
1395: PROCEDURE Delete_Rule (
1396: p_api_version IN NUMBER,
1397: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1398: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1399: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1400: x_return_status OUT NOCOPY VARCHAR2,
1401: x_msg_count OUT NOCOPY NUMBER,
1402: x_msg_data OUT NOCOPY VARCHAR2,
1403: p_rule_rec IN RULE_REC_TYPE)
1425: BEGIN
1426: -- Standard start of API savepoint
1427: SAVEPOINT Delete_Rule_pvt;
1428: -- Initialize Procedure return status to success
1429: x_return_status := FND_API.G_RET_STS_SUCCESS;
1430: -- Standard call to check for call compatibility
1431: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1432: G_PKG_NAME) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: SAVEPOINT Delete_Rule_pvt;
1428: -- Initialize Procedure return status to success
1429: x_return_status := FND_API.G_RET_STS_SUCCESS;
1430: -- Standard call to check for call compatibility
1431: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1432: G_PKG_NAME) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435: -- Initialize message list if p_init_msg_list is set to TRUE
1429: x_return_status := FND_API.G_RET_STS_SUCCESS;
1430: -- Standard call to check for call compatibility
1431: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1432: G_PKG_NAME) THEN
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;
1432: G_PKG_NAME) THEN
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.
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:
1451: --Check Status of MC allows for editing
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
1462: FND_MESSAGE.Set_Name('AHL','AHL_MC_EDIT_INV_MC');
1463: FND_MESSAGE.Set_Token('STATUS', l_status);
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;
1469:
1470: --Delete the rule statements first.
1469:
1470: --Delete the rule statements first.
1471: AHL_MC_RULE_STMT_PVT.Delete_Rule_Stmts (
1472: p_api_version => 1.0,
1473: p_commit => FND_API.G_FALSE,
1474: p_rule_id => p_rule_rec.rule_id,
1475: x_return_status => x_return_status,
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:
1485: --Delete the row record
1486: AHL_MC_RULES_PKG.DELETE_ROW ( X_RULE_ID => p_rule_rec.rule_id);
1494: WHERE mc_header_id = l_mc_header_id;
1495: END IF;
1496:
1497: -- Standard check of p_commit
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
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;
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,
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
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;
1516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1517: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
1522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1523: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1518: p_data => x_msg_data,
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,
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:
1531: -----------------------------
1532: -- Start of Comments --
1543: -- End of Comments.
1544:
1545: PROCEDURE Copy_Rules_For_MC (
1546: p_api_version IN NUMBER,
1547: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1548: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1549: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1550: x_return_status OUT NOCOPY VARCHAR2,
1551: x_msg_count OUT NOCOPY NUMBER,
1544:
1545: PROCEDURE Copy_Rules_For_MC (
1546: p_api_version IN NUMBER,
1547: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1548: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1549: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1550: x_return_status OUT NOCOPY VARCHAR2,
1551: x_msg_count OUT NOCOPY NUMBER,
1552: x_msg_data OUT NOCOPY VARCHAR2,
1545: PROCEDURE Copy_Rules_For_MC (
1546: p_api_version IN NUMBER,
1547: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1548: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1549: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1550: x_return_status OUT NOCOPY VARCHAR2,
1551: x_msg_count OUT NOCOPY NUMBER,
1552: x_msg_data OUT NOCOPY VARCHAR2,
1553: p_from_mc_header_id IN NUMBER,
1577: -- Standard start of API savepoint
1578: SAVEPOINT Copy_Rules_For_Mc_pvt;
1579:
1580: -- Initialize Procedure return status to success
1581: x_return_status := FND_API.G_RET_STS_SUCCESS;
1582: -- Standard call to check for call compatibility
1583: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1584: G_PKG_NAME) THEN
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1579:
1580: -- Initialize Procedure return status to success
1581: x_return_status := FND_API.G_RET_STS_SUCCESS;
1582: -- Standard call to check for call compatibility
1583: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1584: G_PKG_NAME) THEN
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1586: END IF;
1587:
1581: x_return_status := FND_API.G_RET_STS_SUCCESS;
1582: -- Standard call to check for call compatibility
1583: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1584: G_PKG_NAME) THEN
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1642: --Calls copy rule statement with top stmt, which will recursively
1643: -- copy the rule statements.
1644: AHL_MC_RULE_STMT_PVT.Copy_Rule_Stmt (
1645: p_api_version => 1.0,
1646: p_commit => FND_API.G_FALSE,
1647: p_rule_stmt_id => l_stmt_id,
1648: p_to_rule_id => l_new_rule_id,
1649: p_to_mc_header_id => p_to_mc_header_id,
1650: x_rule_stmt_id => l_new_stmt_id,
1654:
1655:
1656: --Verify that the rule stmt if null, means can not be copied
1657: IF (l_new_stmt_id is NULL AND
1658: x_return_Status = fnd_api.g_ret_sts_success) THEN
1659: ROLLBACK TO copy_rule_pvt;
1660: ELSE
1661: --No errors in creating rule
1662: -- Check Error Message stack.
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;
1668:
1669: --Set the rule id for the new top statement. Special case
1670: -- can not be included in recursive code.
1676: END LOOP;
1677: CLOSE get_rule_rec_csr;
1678:
1679: -- Standard check of p_commit
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
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;
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,
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
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;
1698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
1704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1705: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
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;
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,
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:
1713: -----------------------------
1714: -- Start of Comments --
1724: -- End of Comments.
1725:
1726: PROCEDURE Delete_Rules_For_MC (
1727: p_api_version IN NUMBER,
1728: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1729: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1730: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1731: x_return_status OUT NOCOPY VARCHAR2,
1732: x_msg_count OUT NOCOPY NUMBER,
1725:
1726: PROCEDURE Delete_Rules_For_MC (
1727: p_api_version IN NUMBER,
1728: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1729: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1730: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1731: x_return_status OUT NOCOPY VARCHAR2,
1732: x_msg_count OUT NOCOPY NUMBER,
1733: x_msg_data OUT NOCOPY VARCHAR2,
1726: PROCEDURE Delete_Rules_For_MC (
1727: p_api_version IN NUMBER,
1728: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1729: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1730: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1731: x_return_status OUT NOCOPY VARCHAR2,
1732: x_msg_count OUT NOCOPY NUMBER,
1733: x_msg_data OUT NOCOPY VARCHAR2,
1734: p_mc_header_id IN NUMBER)
1747: -- Standard start of API savepoint
1748: SAVEPOINT Delete_Rules_For_Mc_pvt;
1749:
1750: -- Initialize Procedure return status to success
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752: -- Standard call to check for call compatibility
1753: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1754: G_PKG_NAME) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1749:
1750: -- Initialize Procedure return status to success
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752: -- Standard call to check for call compatibility
1753: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1754: G_PKG_NAME) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757:
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752: -- Standard call to check for call compatibility
1753: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1754: G_PKG_NAME) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1768: EXIT WHEN get_rule_ids_csr%NOTFOUND;
1769:
1770: AHL_MC_RULE_PVT.Delete_Rule (
1771: p_api_version => 1.0,
1772: p_commit => FND_API.G_FALSE,
1773: p_rule_rec => l_rule_rec,
1774: x_return_status => x_return_status,
1775: x_msg_count => x_msg_count,
1776: x_msg_data => x_msg_data);
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;
1784: END LOOP;
1785: CLOSE get_rule_ids_csr;
1786:
1784: END LOOP;
1785: CLOSE get_rule_ids_csr;
1786:
1787: -- Standard check of p_commit
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
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;
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,
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
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;
1806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1807: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
1812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
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;
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,
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:
1821:
1822: -----------------------------
1832: -- End of Comments.
1833:
1834: PROCEDURE Get_Rules_For_Position (
1835: p_api_version IN NUMBER,
1836: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1837: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1838: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1839: x_return_status OUT NOCOPY VARCHAR2,
1840: x_msg_count OUT NOCOPY NUMBER,
1833:
1834: PROCEDURE Get_Rules_For_Position (
1835: p_api_version IN NUMBER,
1836: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1837: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1838: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1839: x_return_status OUT NOCOPY VARCHAR2,
1840: x_msg_count OUT NOCOPY NUMBER,
1841: x_msg_data OUT NOCOPY VARCHAR2,
1834: PROCEDURE Get_Rules_For_Position (
1835: p_api_version IN NUMBER,
1836: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1837: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1838: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1839: x_return_status OUT NOCOPY VARCHAR2,
1840: x_msg_count OUT NOCOPY NUMBER,
1841: x_msg_data OUT NOCOPY VARCHAR2,
1842: p_mc_header_id IN NUMBER,
1905: -- Standard start of API savepoint
1906: SAVEPOINT Get_Rules_For_Position_pvt;
1907:
1908: -- Initialize Procedure return status to success
1909: x_return_status := FND_API.G_RET_STS_SUCCESS;
1910: -- Standard call to check for call compatibility
1911: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1912: G_PKG_NAME) THEN
1913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1907:
1908: -- Initialize Procedure return status to success
1909: x_return_status := FND_API.G_RET_STS_SUCCESS;
1910: -- Standard call to check for call compatibility
1911: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1912: G_PKG_NAME) THEN
1913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1914: END IF;
1915:
1909: x_return_status := FND_API.G_RET_STS_SUCCESS;
1910: -- Standard call to check for call compatibility
1911: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1912: G_PKG_NAME) THEN
1913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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:
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;
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,
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
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;
1977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1978: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
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;
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,
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;
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
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;
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1984: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
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;
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,
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;
1992:
1993: End AHL_MC_RULE_PVT;