1507: END IF;
1508:
1509: -- Baisc Validation
1510: IF(p_operation_flag IS NULL) THEN
1511: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_DML_FLAG_NULL');
1512: FND_MSG_PUB.ADD;
1513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1514: END IF;
1515:
1522: 'Mandatory input, Status_Code is NULL.'
1523: );
1524: END IF;
1525:
1526: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_STATUS_CODE_NULL');
1527: FND_MSG_PUB.ADD;
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1530:
1531: IF (p_operation_flag = 'C') THEN
1532:
1533: IF (p_object_type IS NULL) THEN
1534: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_OBJECT_TYPE_NULL');
1535: FND_MSG_PUB.ADD;
1536: RAISE FND_API.G_EXC_ERROR;
1537: END IF;
1538: IF (p_object_id IS NULL) THEN
1535: FND_MSG_PUB.ADD;
1536: RAISE FND_API.G_EXC_ERROR;
1537: END IF;
1538: IF (p_object_id IS NULL) THEN
1539: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_OBJECT_ID_NULL');
1540: FND_MSG_PUB.ADD;
1541: RAISE FND_API.G_EXC_ERROR;
1542: END IF;
1543:
1543:
1544: ELSIF (p_operation_flag = 'U') THEN
1545:
1546: IF (p_x_jcg_id IS NULL) THEN
1547: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_ID_NULL');
1548: FND_MSG_PUB.ADD;
1549: RAISE FND_API.G_EXC_ERROR;
1550: END IF;
1551:
1549: RAISE FND_API.G_EXC_ERROR;
1550: END IF;
1551:
1552: IF (p_file_location IS NULL AND (p_status_code = 'S' OR p_status_code = 'Complete' )) THEN
1553: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_FILE_LOC_NULL');
1554: FND_MSG_PUB.ADD;
1555: RAISE FND_API.G_EXC_ERROR;
1556: END IF;
1557:
1647: IF (get_jcg_req_rec_csr%NOTFOUND) THEN
1648: CLOSE get_jcg_req_rec_csr;
1649: return;
1650: /*
1651: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JCG_ID_INVALID');
1652: FND_MSG_PUB.ADD;
1653: CLOSE get_jcg_req_rec_csr;
1654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: */
4819: END IF;
4820: l_error_msg := substr(p_error_msg,1,4000);
4821:
4822: IF p_error_msg = 'AHL_PRD_BPEL_JCGH_BFAULT' THEN
4823: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_BFAULT');
4824: l_error_msg := FND_MESSAGE.get;
4825: ELSIF p_error_msg = 'AHL_PRD_BPEL_JCGH_INVFAULT' THEN
4826: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_INVFAULT');
4827: l_error_msg := FND_MESSAGE.get;
4820: l_error_msg := substr(p_error_msg,1,4000);
4821:
4822: IF p_error_msg = 'AHL_PRD_BPEL_JCGH_BFAULT' THEN
4823: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_BFAULT');
4824: l_error_msg := FND_MESSAGE.get;
4825: ELSIF p_error_msg = 'AHL_PRD_BPEL_JCGH_INVFAULT' THEN
4826: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_INVFAULT');
4827: l_error_msg := FND_MESSAGE.get;
4828: END IF;
4822: IF p_error_msg = 'AHL_PRD_BPEL_JCGH_BFAULT' THEN
4823: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_BFAULT');
4824: l_error_msg := FND_MESSAGE.get;
4825: ELSIF p_error_msg = 'AHL_PRD_BPEL_JCGH_INVFAULT' THEN
4826: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_INVFAULT');
4827: l_error_msg := FND_MESSAGE.get;
4828: END IF;
4829: OPEN get_jcg_details(l_jcg_id);
4830: FETCH get_jcg_details INTO l_jcg_details_rec;
4823: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_BFAULT');
4824: l_error_msg := FND_MESSAGE.get;
4825: ELSIF p_error_msg = 'AHL_PRD_BPEL_JCGH_INVFAULT' THEN
4826: FND_MESSAGE.SET_NAME('AHL', 'AHL_PRD_BPEL_JCGH_INVFAULT');
4827: l_error_msg := FND_MESSAGE.get;
4828: END IF;
4829: OPEN get_jcg_details(l_jcg_id);
4830: FETCH get_jcg_details INTO l_jcg_details_rec;
4831: IF get_jcg_details%NOTFOUND THEN
7695: -- do not raise error.
7696: -- In this case populate KFF descriptions as null.
7697: x_return_status := FND_API.G_RET_STS_ERROR;
7698: /*
7699: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7700: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7701: FND_MSG_PUB.ADD;
7702: --dbms_output.put_line('ERROR:'|| fnd_flex_keyval.error_message);
7703: --dbms_output.put_line('ERROR:'|| fnd_flex_keyval.error_segment);
7696: -- In this case populate KFF descriptions as null.
7697: x_return_status := FND_API.G_RET_STS_ERROR;
7698: /*
7699: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7700: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7701: FND_MSG_PUB.ADD;
7702: --dbms_output.put_line('ERROR:'|| fnd_flex_keyval.error_message);
7703: --dbms_output.put_line('ERROR:'|| fnd_flex_keyval.error_segment);
7704: */