755:
756: IF (l_acc_unit_effectivity_id IS NOT NULL) THEN
757: l_unit_effectivity_id := l_acc_unit_effectivity_id;
758: ELSE
759: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PRECID_NOTFOUND');
760: FND_MESSAGE.Set_Token('UE_ID',dependent_rec.unit_effectivity_id);
761: FND_MESSAGE.Set_Token('PREC_MR',dependent_rec.preceding_mr_header_id);
762: FND_MESSAGE.Set_Token('CSI_II',dependent_rec.preceding_csi_item_instance_id);
763: FND_MSG_PUB.ADD;
756: IF (l_acc_unit_effectivity_id IS NOT NULL) THEN
757: l_unit_effectivity_id := l_acc_unit_effectivity_id;
758: ELSE
759: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PRECID_NOTFOUND');
760: FND_MESSAGE.Set_Token('UE_ID',dependent_rec.unit_effectivity_id);
761: FND_MESSAGE.Set_Token('PREC_MR',dependent_rec.preceding_mr_header_id);
762: FND_MESSAGE.Set_Token('CSI_II',dependent_rec.preceding_csi_item_instance_id);
763: FND_MSG_PUB.ADD;
764: -- dbms_output.put_line('preceding mr not found for dependent ue id in temporary table');
757: l_unit_effectivity_id := l_acc_unit_effectivity_id;
758: ELSE
759: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PRECID_NOTFOUND');
760: FND_MESSAGE.Set_Token('UE_ID',dependent_rec.unit_effectivity_id);
761: FND_MESSAGE.Set_Token('PREC_MR',dependent_rec.preceding_mr_header_id);
762: FND_MESSAGE.Set_Token('CSI_II',dependent_rec.preceding_csi_item_instance_id);
763: FND_MSG_PUB.ADD;
764: -- dbms_output.put_line('preceding mr not found for dependent ue id in temporary table');
765: CLOSE preceding_mr_csr;
758: ELSE
759: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PRECID_NOTFOUND');
760: FND_MESSAGE.Set_Token('UE_ID',dependent_rec.unit_effectivity_id);
761: FND_MESSAGE.Set_Token('PREC_MR',dependent_rec.preceding_mr_header_id);
762: FND_MESSAGE.Set_Token('CSI_II',dependent_rec.preceding_csi_item_instance_id);
763: FND_MSG_PUB.ADD;
764: -- dbms_output.put_line('preceding mr not found for dependent ue id in temporary table');
765: CLOSE preceding_mr_csr;
766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
833: X_LAST_UPDATED_BY => fnd_global.user_id,
834: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
835: ELSE
836:
837: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
838: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
839: FND_MSG_PUB.ADD;
840: -- dbms_output.put_line('preceding mr not found for dependent ue id');
841: ClOSE ahl_unit_effectivity_csr;
834: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
835: ELSE
836:
837: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
838: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
839: FND_MSG_PUB.ADD;
840: -- dbms_output.put_line('preceding mr not found for dependent ue id');
841: ClOSE ahl_unit_effectivity_csr;
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1249: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1250: Delete_Sch_Materials(l_ue_rec.unit_effectivity_id);
1251:
1252: ELSE
1253: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
1254: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
1255: FND_MSG_PUB.ADD;
1256: -- dbms_output.put_line('preceding mr not found for dependent ue id');
1257: ClOSE ahl_unit_effectivity_csr;
1250: Delete_Sch_Materials(l_ue_rec.unit_effectivity_id);
1251:
1252: ELSE
1253: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
1254: FND_MESSAGE.Set_Token('UE_ID',l_ue_rec.unit_effectivity_id);
1255: FND_MSG_PUB.ADD;
1256: -- dbms_output.put_line('preceding mr not found for dependent ue id');
1257: ClOSE ahl_unit_effectivity_csr;
1258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420:
1421: EXCEPTION
1422: -- If any error occurs, then, abort API.
1423: WHEN NO_DATA_FOUND THEN
1424: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1425: FND_MSG_PUB.ADD;
1426: RAISE FND_API.G_EXC_ERROR;
1427:
1428: END create_record;
1522:
1523: EXCEPTION
1524: -- If any error occurs, then, abort API.
1525: WHEN NO_DATA_FOUND THEN
1526: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1527: FND_MSG_PUB.ADD;
1528: RAISE FND_API.G_EXC_ERROR;
1529:
1530: END update_record;
1671: l_orig_mr_header_id,
1672: p_x_temp_grp_rec.forecast_sequence);
1673: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
1674: IF (ahl_temp_parent_csr%NOTFOUND) THEN
1675: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
1676: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
1677: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
1678: FND_MSG_PUB.ADD;
1679: CLOSE ahl_temp_parent_csr;
1672: p_x_temp_grp_rec.forecast_sequence);
1673: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
1674: IF (ahl_temp_parent_csr%NOTFOUND) THEN
1675: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
1676: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
1677: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
1678: FND_MSG_PUB.ADD;
1679: CLOSE ahl_temp_parent_csr;
1680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1673: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
1674: IF (ahl_temp_parent_csr%NOTFOUND) THEN
1675: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
1676: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
1677: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
1678: FND_MSG_PUB.ADD;
1679: CLOSE ahl_temp_parent_csr;
1680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1681: END IF;
1719:
1720: EXCEPTION
1721: -- If any error occurs, then, abort API.
1722: WHEN NO_DATA_FOUND THEN
1723: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1724: FND_MSG_PUB.ADD;
1725: RAISE FND_API.G_EXC_ERROR;
1726:
1727: END create_group;
1958: OPEN ahl_ue_grp_csr(reln_rec.ue_id,
1959: reln_rec.parent_ue_id);
1960: FETCH ahl_ue_grp_csr INTO l_ue_grp_rec;
1961: IF ahl_ue_grp_csr%NOTFOUND THEN
1962: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_RELN_NOTFOUND');
1963: FND_Message.set_token ('UE_ID',reln_rec.parent_ue_id);
1964: FND_Message.set_token ('RELATED_UE_ID',reln_rec.ue_id);
1965: FND_MSG_PUB.ADD;
1966: CLOSE ahl_ue_grp_csr;
1959: reln_rec.parent_ue_id);
1960: FETCH ahl_ue_grp_csr INTO l_ue_grp_rec;
1961: IF ahl_ue_grp_csr%NOTFOUND THEN
1962: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_RELN_NOTFOUND');
1963: FND_Message.set_token ('UE_ID',reln_rec.parent_ue_id);
1964: FND_Message.set_token ('RELATED_UE_ID',reln_rec.ue_id);
1965: FND_MSG_PUB.ADD;
1966: CLOSE ahl_ue_grp_csr;
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1960: FETCH ahl_ue_grp_csr INTO l_ue_grp_rec;
1961: IF ahl_ue_grp_csr%NOTFOUND THEN
1962: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_RELN_NOTFOUND');
1963: FND_Message.set_token ('UE_ID',reln_rec.parent_ue_id);
1964: FND_Message.set_token ('RELATED_UE_ID',reln_rec.ue_id);
1965: FND_MSG_PUB.ADD;
1966: CLOSE ahl_ue_grp_csr;
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
2061: l_unit_effectivity_rec.ATTRIBUTE15 ,
2062: l_unit_effectivity_rec.OBJECT_VERSION_NUMBER;
2063:
2064: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2065: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2066: FND_Message.set_token ('UE_ID',l_ue_grp_tbl(j).csi_item_instance_id);
2067: FND_MSG_PUB.ADD;
2068: CLOSE ahl_unit_effectivity_csr;
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2062: l_unit_effectivity_rec.OBJECT_VERSION_NUMBER;
2063:
2064: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2065: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2066: FND_Message.set_token ('UE_ID',l_ue_grp_tbl(j).csi_item_instance_id);
2067: FND_MSG_PUB.ADD;
2068: CLOSE ahl_unit_effectivity_csr;
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: ELSE
2130:
2131: EXCEPTION
2132: -- If any error occurs, then, abort API.
2133: WHEN NO_DATA_FOUND THEN
2134: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2135: FND_MSG_PUB.ADD;
2136: RAISE FND_API.G_EXC_ERROR;
2137:
2138: END update_group;
2335:
2336: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2337: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2338: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2339: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2340: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2341: FND_MSG_PUB.ADD;
2342: CLOSE ahl_unit_effectivity_csr;
2343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2336: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2337: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2338: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2339: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2340: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2341: FND_MSG_PUB.ADD;
2342: CLOSE ahl_unit_effectivity_csr;
2343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2344: ELSE
2427: -- Read Unit Effectivity record.
2428: OPEN ahl_unit_effectivity_csr(l_ue_rec.related_ue_id);
2429: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2430: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2431: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2432: FND_Message.set_token ('UE_ID',l_ue_rec.related_ue_id);
2433: FND_MSG_PUB.ADD;
2434: CLOSE ahl_unit_effectivity_csr;
2435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2428: OPEN ahl_unit_effectivity_csr(l_ue_rec.related_ue_id);
2429: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2430: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2431: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2432: FND_Message.set_token ('UE_ID',l_ue_rec.related_ue_id);
2433: FND_MSG_PUB.ADD;
2434: CLOSE ahl_unit_effectivity_csr;
2435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2436: ELSE
2523: -- Create new group.
2524: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2525: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2526: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2527: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2528: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2529: FND_MSG_PUB.ADD;
2530: CLOSE ahl_unit_effectivity_csr;
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2524: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2525: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2526: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2527: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2528: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2529: FND_MSG_PUB.ADD;
2530: CLOSE ahl_unit_effectivity_csr;
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: ELSE
2728: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
2729: IF (ahl_temp_parent_csr%NOTFOUND) THEN
2730: -- parent is root UE.
2731: l_parent_ue_id := l_new_top_ue_id;
2732: --FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
2733: --FND_MESSAGE.Set_Token ('INST_ID',ahl_temp_rec.csi_item_instance_id);
2734: --FND_MESSAGE.Set_Token ('MR_ID',ahl_temp_rec.mr_header_id);
2735: --FND_MSG_PUB.ADD;
2736: --CLOSE ahl_temp_parent_csr;
2729: IF (ahl_temp_parent_csr%NOTFOUND) THEN
2730: -- parent is root UE.
2731: l_parent_ue_id := l_new_top_ue_id;
2732: --FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
2733: --FND_MESSAGE.Set_Token ('INST_ID',ahl_temp_rec.csi_item_instance_id);
2734: --FND_MESSAGE.Set_Token ('MR_ID',ahl_temp_rec.mr_header_id);
2735: --FND_MSG_PUB.ADD;
2736: --CLOSE ahl_temp_parent_csr;
2737: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2730: -- parent is root UE.
2731: l_parent_ue_id := l_new_top_ue_id;
2732: --FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
2733: --FND_MESSAGE.Set_Token ('INST_ID',ahl_temp_rec.csi_item_instance_id);
2734: --FND_MESSAGE.Set_Token ('MR_ID',ahl_temp_rec.mr_header_id);
2735: --FND_MSG_PUB.ADD;
2736: --CLOSE ahl_temp_parent_csr;
2737: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2738: END IF;
2778: -- Get Unit effectivity details.
2779: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2780: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2781: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2782: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2783: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2784: FND_MSG_PUB.ADD;
2785: CLOSE ahl_unit_effectivity_csr;
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2779: OPEN ahl_unit_effectivity_csr(unit_sr_def_rec.unit_effectivity_id);
2780: FETCH ahl_unit_effectivity_csr INTO l_unit_effectivity_rec;
2781: IF (ahl_unit_effectivity_csr%NOTFOUND) THEN
2782: FND_Message.Set_Name ('AHL','AHL_UMP_PUE_UE_NOTFOUND');
2783: FND_Message.set_token ('UE_ID',unit_sr_def_rec.unit_effectivity_id);
2784: FND_MSG_PUB.ADD;
2785: CLOSE ahl_unit_effectivity_csr;
2786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2787: ELSE
4201:
4202: EXCEPTION
4203: -- If any error occurs, then, abort API.
4204: WHEN NO_DATA_FOUND THEN
4205: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
4206: FND_MSG_PUB.ADD;
4207: RAISE FND_API.G_EXC_ERROR;
4208:
4209: END create_sim_ue_record;
4343: l_orig_mr_header_id,
4344: p_x_temp_sim_ue_rec.forecast_sequence);
4345: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
4346: IF (ahl_temp_parent_csr%NOTFOUND) THEN
4347: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
4348: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
4349: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
4350: FND_MSG_PUB.ADD;
4351: CLOSE ahl_temp_parent_csr;
4344: p_x_temp_sim_ue_rec.forecast_sequence);
4345: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
4346: IF (ahl_temp_parent_csr%NOTFOUND) THEN
4347: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
4348: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
4349: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
4350: FND_MSG_PUB.ADD;
4351: CLOSE ahl_temp_parent_csr;
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4345: FETCH ahl_temp_parent_csr INTO l_parent_ue_id;
4346: IF (ahl_temp_parent_csr%NOTFOUND) THEN
4347: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_PARENT_NOTFOUND');
4348: FND_MESSAGE.Set_Token ('INST_ID',l_temp_grp_rec.csi_item_instance_id);
4349: FND_MESSAGE.Set_Token ('MR_ID',l_temp_grp_rec.mr_header_id);
4350: FND_MSG_PUB.ADD;
4351: CLOSE ahl_temp_parent_csr;
4352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4353: END IF;
4372:
4373: EXCEPTION
4374: -- If any error occurs, then, abort API.
4375: WHEN NO_DATA_FOUND THEN
4376: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
4377: FND_MSG_PUB.ADD;
4378: RAISE FND_API.G_EXC_ERROR;
4379:
4380: END Create_group_for_sim_ue;
4487:
4488: EXCEPTION
4489: -- If any error occurs, then, abort API.
4490: WHEN NO_DATA_FOUND THEN
4491: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
4492: FND_MSG_PUB.ADD;
4493: RAISE FND_API.G_EXC_ERROR;
4494:
4495: END create_simue_from_ue_record;