283: x_msg_data => x_msg_data);
284:
285: --Rule failed, add error message
286: IF (l_eval_result ='F') THEN
287: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
288: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
289: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
290: IF (p_x_error_tbl.COUNT >0) THEN
291: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
284:
285: --Rule failed, add error message
286: IF (l_eval_result ='F') THEN
287: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
288: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
289: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
290: IF (p_x_error_tbl.COUNT >0) THEN
291: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
292: ELSE
285: --Rule failed, add error message
286: IF (l_eval_result ='F') THEN
287: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
288: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
289: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
290: IF (p_x_error_tbl.COUNT >0) THEN
291: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
292: ELSE
293: p_x_error_tbl(0) := FND_MESSAGE.get;
287: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
288: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
289: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
290: IF (p_x_error_tbl.COUNT >0) THEN
291: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
292: ELSE
293: p_x_error_tbl(0) := FND_MESSAGE.get;
294: END IF;
295: x_evaluation_status := 'F';
289: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
290: IF (p_x_error_tbl.COUNT >0) THEN
291: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
292: ELSE
293: p_x_error_tbl(0) := FND_MESSAGE.get;
294: END IF;
295: x_evaluation_status := 'F';
296: END IF;
297: IF (l_eval_result <> 'T') THEN
322: x_msg_count => x_msg_count,
323: x_msg_data => x_msg_data);
324:
325: IF (l_eval_result ='F') THEN
326: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
327: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
328: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
329: IF (p_x_error_tbl.COUNT >0) THEN
330: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
323: x_msg_data => x_msg_data);
324:
325: IF (l_eval_result ='F') THEN
326: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
327: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
328: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
329: IF (p_x_error_tbl.COUNT >0) THEN
330: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
331: ELSE
324:
325: IF (l_eval_result ='F') THEN
326: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
327: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
328: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
329: IF (p_x_error_tbl.COUNT >0) THEN
330: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
331: ELSE
332: p_x_error_tbl(0) := FND_MESSAGE.get;
326: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
327: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
328: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
329: IF (p_x_error_tbl.COUNT >0) THEN
330: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
331: ELSE
332: p_x_error_tbl(0) := FND_MESSAGE.get;
333: END IF;
334: x_evaluation_status := 'F';
328: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
329: IF (p_x_error_tbl.COUNT >0) THEN
330: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
331: ELSE
332: p_x_error_tbl(0) := FND_MESSAGE.get;
333: END IF;
334: x_evaluation_status := 'F';
335: END IF;
336: IF (l_eval_result <> 'T') THEN
636:
637: OPEN get_uc_header_det_csr (l_csi_ii_id);
638: FETCH get_uc_header_det_csr INTO l_uc_name;
639: CLOSE get_uc_header_det_csr;
640: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
641: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
642: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
643: IF (p_x_error_tbl.COUNT >0) THEN
644: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
637: OPEN get_uc_header_det_csr (l_csi_ii_id);
638: FETCH get_uc_header_det_csr INTO l_uc_name;
639: CLOSE get_uc_header_det_csr;
640: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
641: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
642: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
643: IF (p_x_error_tbl.COUNT >0) THEN
644: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
645: ELSE
638: FETCH get_uc_header_det_csr INTO l_uc_name;
639: CLOSE get_uc_header_det_csr;
640: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
641: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
642: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
643: IF (p_x_error_tbl.COUNT >0) THEN
644: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
645: ELSE
646: p_x_error_tbl(0) := FND_MESSAGE.get;
640: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_FAILED');
641: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name);
642: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
643: IF (p_x_error_tbl.COUNT >0) THEN
644: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
645: ELSE
646: p_x_error_tbl(0) := FND_MESSAGE.get;
647: END IF;
648: x_evaluation_status := 'F';
642: FND_MESSAGE.Set_Token('UNIT_NAME',l_uc_name);
643: IF (p_x_error_tbl.COUNT >0) THEN
644: p_x_error_tbl(p_x_error_tbl.LAST+1) := FND_MESSAGE.get;
645: ELSE
646: p_x_error_tbl(0) := FND_MESSAGE.get;
647: END IF;
648: x_evaluation_status := 'F';
649: END IF;
650: IF (l_eval_result <> 'T') THEN
764:
765: OPEN get_rule_stmt_id_csr(p_rule_id);
766: FETCH get_rule_stmt_id_csr into l_rule_stmt_id;
767: IF (get_rule_stmt_id_csr%NOTFOUND) THEN
768: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ID_INV');
769: FND_MESSAGE.Set_Token('RULE_ID',p_rule_id);
770: FND_MSG_PUB.ADD;
771: CLOSE get_rule_stmt_id_csr;
772: Raise FND_API.G_EXC_ERROR;
765: OPEN get_rule_stmt_id_csr(p_rule_id);
766: FETCH get_rule_stmt_id_csr into l_rule_stmt_id;
767: IF (get_rule_stmt_id_csr%NOTFOUND) THEN
768: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_ID_INV');
769: FND_MESSAGE.Set_Token('RULE_ID',p_rule_id);
770: FND_MSG_PUB.ADD;
771: CLOSE get_rule_stmt_id_csr;
772: Raise FND_API.G_EXC_ERROR;
773: END IF;
915: --Fetch rule statement information
916: OPEN get_rule_stmt_csr(p_rule_stmt_id);
917: FETCH get_rule_stmt_csr into l_rstmt_rec;
918: IF (get_rule_stmt_csr%NOTFOUND) THEN
919: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
920: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_id);
921: FND_MSG_PUB.ADD;
922: CLOSE get_rule_stmt_csr;
923: RAISE FND_API.G_EXC_ERROR;
916: OPEN get_rule_stmt_csr(p_rule_stmt_id);
917: FETCH get_rule_stmt_csr into l_rstmt_rec;
918: IF (get_rule_stmt_csr%NOTFOUND) THEN
919: FND_MESSAGE.Set_Name('AHL','AHL_MC_RULE_STMT_ID_INV');
920: FND_MESSAGE.Set_Token('RULE_STMT_ID',p_rule_stmt_id);
921: FND_MSG_PUB.ADD;
922: CLOSE get_rule_stmt_csr;
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
1104: OPEN get_instance_number_csr(l_subj_instance_id);
1105: FETCH get_instance_number_csr into l_instance_number;
1106: CLOSE get_instance_number_csr;
1107:
1108: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_QRUL_INST_UOM_DIF');
1109: FND_MESSAGE.Set_Token('INST_NUM',l_instance_number);
1110: FND_MSG_PUB.ADD;
1111: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1105: FETCH get_instance_number_csr into l_instance_number;
1106: CLOSE get_instance_number_csr;
1107:
1108: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_QRUL_INST_UOM_DIF');
1109: FND_MESSAGE.Set_Token('INST_NUM',l_instance_number);
1110: FND_MSG_PUB.ADD;
1111: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1112: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1113: 'ahl.plsql.'||G_PKG_NAME||'.Evaluate_Rule_Stmt',