[Home] [Help]
609: AHL_DEBUG_PUB.debug('Begin private API:' || G_PKG_NAME || '.' || l_api_name);
610: END IF;
611:
612: IF(p_simulation_plan_id IS NULL) THEN
613: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BUE_SIMID_NOTFOUND');
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
946: WHEN OTHERS THEN
947: Rollback to Capture_MR_Updates_pvt;
948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
949: IF (SQLCODE = -54) THEN
950: FND_MESSAGE.Set_Name('AHL','AHL_UMP_RECORD_LOCKED');
951: FND_MSG_PUB.ADD;
952: ELSE
953: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
954: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1052: -- This functionality is not available now. So allow always
1053: l_MR_Initialization_flag := 'Y';
1054: IF (l_MR_Initialization_flag <> 'Y') THEN
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
1057: FND_MSG_PUB.ADD;
1058: --IF G_DEBUG='Y' THEN
1059: --AHL_DEBUG_PUB.debug('Unauthorized User', 'UMP:Validate_For_Initialize');
1060: --END IF;
1062: END IF;
1063:
1064: IF (p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1067: FND_MSG_PUB.ADD;
1068: --IF G_DEBUG='Y' THEN
1069: --AHL_DEBUG_PUB.debug('Null Effectivity', 'UMP:Validate_For_Initialize');
1070: --END IF;
1075: OPEN l_ue_details_csr(p_unit_effectivity_id);
1076: FETCH l_ue_details_csr INTO l_mr_id, l_item_instance_id, l_repetitive_mr_flag, l_status_code;
1077: IF (l_ue_details_csr%NOTFOUND) THEN
1078: x_return_status := FND_API.G_RET_STS_ERROR;
1079: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1080: FND_MESSAGE.Set_Token('UEID', p_unit_effectivity_id);
1081: FND_MSG_PUB.ADD;
1082: CLOSE l_ue_details_csr;
1083: --IF G_DEBUG='Y' THEN
1076: FETCH l_ue_details_csr INTO l_mr_id, l_item_instance_id, l_repetitive_mr_flag, l_status_code;
1077: IF (l_ue_details_csr%NOTFOUND) THEN
1078: x_return_status := FND_API.G_RET_STS_ERROR;
1079: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1080: FND_MESSAGE.Set_Token('UEID', p_unit_effectivity_id);
1081: FND_MSG_PUB.ADD;
1082: CLOSE l_ue_details_csr;
1083: --IF G_DEBUG='Y' THEN
1084: --AHL_DEBUG_PUB.debug('Invalid Effectivity Id', 'UMP:Validate_For_Initialize');
1087: ELSE
1088: --Ensure that unit is not locked
1089: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1090: x_return_status := FND_API.G_RET_STS_ERROR;
1091: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1092: FND_MSG_PUB.ADD;
1093: CLOSE l_ue_details_csr;
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1094: RAISE FND_API.G_EXC_ERROR;
1095: END IF;
1096: IF (l_repetitive_mr_flag = 'Y') THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_MR_TYPE');
1099: FND_MSG_PUB.ADD;
1100: --IF G_DEBUG='Y' THEN
1101: --AHL_DEBUG_PUB.debug('Repetitive Effectivity', 'UMP:Validate_For_Initialize');
1102: --END IF;
1110: -- Ensure that this is not a child MR
1111: OPEN l_child_mr_csr(p_unit_effectivity_id);
1112: FETCH l_child_mr_csr INTO l_junk;
1113: IF (l_child_mr_csr%FOUND) THEN
1114: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_MR');
1115: FND_MSG_PUB.ADD;
1116: CLOSE l_child_mr_csr;
1117: --IF G_DEBUG='Y' THEN
1118: --AHL_DEBUG_PUB.debug('Child MR', 'UMP:Validate_For_Initialize');
1124:
1125: -- Ensure that the Current status is null, init-due or init-accomplished only
1126: IF ((l_status_code IS NOT NULL) AND (l_status_code <> 'INIT-DUE') AND (l_status_code <> 'INIT-ACCOMPLISHED')) THEN
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STATUS');
1129: FND_MESSAGE.Set_Token('STATUS', l_status_code);
1130: FND_MSG_PUB.ADD;
1131: --IF G_DEBUG='Y' THEN
1132: --AHL_DEBUG_PUB.debug('Invalid Status: ' || 'l_status_code', 'UMP:Validate_For_Initialize');
1125: -- Ensure that the Current status is null, init-due or init-accomplished only
1126: IF ((l_status_code IS NOT NULL) AND (l_status_code <> 'INIT-DUE') AND (l_status_code <> 'INIT-ACCOMPLISHED')) THEN
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STATUS');
1129: FND_MESSAGE.Set_Token('STATUS', l_status_code);
1130: FND_MSG_PUB.ADD;
1131: --IF G_DEBUG='Y' THEN
1132: --AHL_DEBUG_PUB.debug('Invalid Status: ' || 'l_status_code', 'UMP:Validate_For_Initialize');
1133: --END IF;
1143: IF (l_temp_status = FALSE) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplish_date IS NOT null) THEN
1147: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1148: FND_MSG_PUB.ADD;
1149: --IF G_DEBUG='Y' THEN
1150: --AHL_DEBUG_PUB.debug('Already Accomplished', 'UMP:Validate_For_Initialize');
1151: --END IF;
1160: FETCH l_prior_initializations_csr INTO l_prior_ue_status;
1161: IF (l_prior_initializations_csr%FOUND) THEN
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: IF (l_prior_ue_status = 'DEFERRED') THEN
1164: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
1165: FND_MSG_PUB.ADD;
1166: ELSE
1167: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1168: FND_MSG_PUB.ADD;
1163: IF (l_prior_ue_status = 'DEFERRED') THEN
1164: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
1165: FND_MSG_PUB.ADD;
1166: ELSE
1167: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1168: FND_MSG_PUB.ADD;
1169: END IF;
1170: CLOSE l_prior_initializations_csr;
1171: --IF G_DEBUG='Y' THEN
1623: END IF;
1624:
1625: -- Check if the unit effectivity id is not null
1626: IF (p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID IS NULL OR p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID = FND_API.G_MISS_NUM) THEN
1627: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_NULL');
1628: FND_MSG_PUB.ADD;
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: END IF;
1631:
1633: --IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL AND p_unit_Effectivity_rec.STATUS_CODE <> FND_API.G_MISS_CHAR) THEN
1634: OPEN l_validate_status_csr(p_unit_Effectivity_rec.STATUS_CODE);
1635: FETCH l_validate_status_csr into l_junk;
1636: IF (l_validate_status_csr%NOTFOUND) THEN
1637: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1638: FND_MESSAGE.Set_Token('STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1639: FND_MSG_PUB.ADD;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: END IF;
1634: OPEN l_validate_status_csr(p_unit_Effectivity_rec.STATUS_CODE);
1635: FETCH l_validate_status_csr into l_junk;
1636: IF (l_validate_status_csr%NOTFOUND) THEN
1637: FND_MESSAGE.Set_Name('AHL','AHL_UMP_STATUS_INVALID');
1638: FND_MESSAGE.Set_Token('STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1639: FND_MSG_PUB.ADD;
1640: x_return_status := FND_API.G_RET_STS_ERROR;
1641: END IF;
1642: CLOSE l_validate_status_csr;
1644:
1645: -- If the status is INIT-ACCOMPLISHED or INIT-DUE, ensure that the user has permission
1646: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1647: IF (p_authorized_user_flag = 'N') THEN
1648: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNAUTHORIZED_USER');
1649: FND_MSG_PUB.ADD;
1650: x_return_status := FND_API.G_RET_STS_ERROR;
1651: --RAISE USER_NOT_AUTHORIZED;
1652: END IF;
1654: -- validate that UE is not assigned to any visit.
1655: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') THEN
1656: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1657: IF (l_visit_status IS NOT NULL) THEN
1658: FND_MESSAGE.Set_Name('AHL','AHL_UMP_VISIT_ASSIGNED');
1659: FND_MSG_PUB.ADD;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: END IF;
1662: END IF;
1664: -- validate that UE is not a child UE.
1665: OPEN l_child_mr_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1666: FETCH l_child_mr_csr INTO l_junk;
1667: IF (l_child_mr_csr%FOUND) THEN
1668: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_MR');
1669: FND_MSG_PUB.ADD;
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671: END IF;
1672: CLOSE l_child_mr_csr;
1684: FETCH l_ue_details_csr into
1685: l_prev_status, l_prev_object_version_no, l_mr_id, l_item_instance_id, l_preceding_ue_id,
1686: l_service_line_id, l_manually_plan_flag;
1687: IF (l_ue_details_csr%NOTFOUND) THEN
1688: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1689: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1690: FND_MSG_PUB.ADD;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: -- Cannot proceed further
1685: l_prev_status, l_prev_object_version_no, l_mr_id, l_item_instance_id, l_preceding_ue_id,
1686: l_service_line_id, l_manually_plan_flag;
1687: IF (l_ue_details_csr%NOTFOUND) THEN
1688: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
1689: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1690: FND_MSG_PUB.ADD;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: -- Cannot proceed further
1693: RETURN;
1696:
1697: --Ensure that unit is not locked
1698: IF(AHL_UTIL_UC_PKG.IS_UNIT_QUARANTINED(p_unit_header_id => null, p_instance_id => l_item_instance_id) = FND_API.G_TRUE) THEN
1699: x_return_status := FND_API.G_RET_STS_ERROR;
1700: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INIT_UNIT_LOCKED');
1701: FND_MSG_PUB.ADD;
1702: RETURN; -- cannot proceed further
1703: END IF;
1704:
1717: IF (l_manually_plan_flag = 'Y') THEN
1718: OPEN get_title_csr(l_mr_id);
1719: FETCH get_title_csr INTO l_err_title;
1720: CLOSE get_title_csr;
1721: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CANNOT_DEFINE_FIRSTDUE');
1722: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1723: FND_MSG_PUB.ADD;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: END IF;
1718: OPEN get_title_csr(l_mr_id);
1719: FETCH get_title_csr INTO l_err_title;
1720: CLOSE get_title_csr;
1721: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CANNOT_DEFINE_FIRSTDUE');
1722: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1723: FND_MSG_PUB.ADD;
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: END IF;
1726:
1730: IF (chk_mr_unplan%FOUND) THEN
1731: OPEN get_title_csr(l_mr_id);
1732: FETCH get_title_csr INTO l_err_title;
1733: CLOSE get_title_csr;
1734: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNPLAN_EXISTS');
1735: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1736: FND_MSG_PUB.ADD;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: END IF;
1731: OPEN get_title_csr(l_mr_id);
1732: FETCH get_title_csr INTO l_err_title;
1733: CLOSE get_title_csr;
1734: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UNPLAN_EXISTS');
1735: FND_MESSAGE.Set_Token('MR_TITLE',l_err_title);
1736: FND_MSG_PUB.ADD;
1737: x_return_status := FND_API.G_RET_STS_ERROR;
1738: END IF;
1739: CLOSE chk_mr_unplan;
1742: -- Returning only after doing all of the following checks
1743:
1744: -- If object version no is different, write error message and skip to next unit effectivity
1745: IF(l_prev_object_version_no <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
1746: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
1747: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1748: FND_MSG_PUB.ADD;
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1750: END IF;
1743:
1744: -- If object version no is different, write error message and skip to next unit effectivity
1745: IF(l_prev_object_version_no <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
1746: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
1747: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1748: FND_MSG_PUB.ADD;
1749: x_return_status := FND_API.G_RET_STS_ERROR;
1750: END IF;
1751:
1754: -- IF(p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') THEN
1755: -- -- Call VWP API to ensure that this is not assigned to a visit
1756: -- -- and if the visit is not in progress
1757: -- IF(AHL_UMP_UTIL_PKG.Is_UE_In_Execution(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID) = TRUE) THEN
1758: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_IN_EXEC');
1759: -- FND_MSG_PUB.ADD;
1760: -- x_return_status := FND_API.G_RET_STS_ERROR;
1761: -- END IF;
1762: -- END IF;
1770: -- Both the dates (due and accomplished) should not be set. Only one should be set.
1771: IF (p_unit_Effectivity_rec.STATUS_CODE IS NOT NULL) THEN
1772: IF ((p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) AND
1773: (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE)) THEN
1774: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BOTH_DATES_SET');
1775: FND_MSG_PUB.ADD;
1776: x_return_status := FND_API.G_RET_STS_ERROR;
1777: END IF;
1778: END IF;
1781: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR
1782: (p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1783: -- validate ACCOMPLISHED_DATE = G_MISS_DATE for INIT-ACCOMPLISHED later in update_unit_effectivity proc.
1784: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NULL OR (p_unit_Effectivity_rec.ACCOMPLISHED_DATE = FND_API.G_MISS_DATE AND p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED')) THEN
1785: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
1786: FND_MSG_PUB.ADD;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1786: FND_MSG_PUB.ADD;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1790: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1791: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1792: FND_MSG_PUB.ADD;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: END IF;
1787: x_return_status := FND_API.G_RET_STS_ERROR;
1788: ELSIF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE
1789: AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE > sysdate) THEN
1790: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1791: FND_MESSAGE.Set_Token('ACCDATE',p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1792: FND_MSG_PUB.ADD;
1793: x_return_status := FND_API.G_RET_STS_ERROR;
1794: END IF;
1795: -- If this is a group MR, ensure that all descendents are accomplished
1796: /*
1797: OPEN l_invalid_descendents_csr(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1798: FETCH l_invalid_descendents_csr INTO l_junk;
1799: IF (l_invalid_descendents_csr%FOUND) THEN
1800: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CHILD_UNACCMPLSHD');
1801: FND_MSG_PUB.ADD;
1802: x_return_status := FND_API.G_RET_STS_ERROR;
1803: END IF;
1804: CLOSE l_invalid_descendents_csr;
1808: -- Ensure that the previous status of the current effectivity is not MR-TERMINATE, DEFERRED or SR-CLOSED or CANCELLED.
1809: -- Allow updates to UE in status ACCOMPLISHED and TERMINATED. Only Counter values can be updated for this case.
1810: IF ((l_prev_status = 'MR-TERMINATE') OR (l_prev_status = 'DEFERRED') OR
1811: (l_prev_status = 'SR-CLOSED') OR (l_prev_status = 'CANCELLED') ) THEN
1812: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1813: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1814: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1815: FND_MSG_PUB.ADD;
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1809: -- Allow updates to UE in status ACCOMPLISHED and TERMINATED. Only Counter values can be updated for this case.
1810: IF ((l_prev_status = 'MR-TERMINATE') OR (l_prev_status = 'DEFERRED') OR
1811: (l_prev_status = 'SR-CLOSED') OR (l_prev_status = 'CANCELLED') ) THEN
1812: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1813: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1814: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1815: FND_MSG_PUB.ADD;
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: END IF;
1810: IF ((l_prev_status = 'MR-TERMINATE') OR (l_prev_status = 'DEFERRED') OR
1811: (l_prev_status = 'SR-CLOSED') OR (l_prev_status = 'CANCELLED') ) THEN
1812: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1813: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1814: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1815: FND_MSG_PUB.ADD;
1816: x_return_status := FND_API.G_RET_STS_ERROR;
1817: END IF;
1818:
1826: IF (l_temp_status = FALSE) THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1829: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_ACCMPLSHD');
1831: FND_MSG_PUB.ADD;
1832: x_return_status := FND_API.G_RET_STS_ERROR;
1833: END IF;
1834: END IF;
1838: OPEN l_prior_initializations_csr(l_mr_id, l_item_instance_id, p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1839: FETCH l_prior_initializations_csr INTO l_prior_ue_status;
1840: IF (l_prior_initializations_csr%FOUND) THEN
1841: IF (l_prior_ue_status = 'DEFERRED') THEN
1842: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
1843: FND_MSG_PUB.ADD;
1844: ELSE
1845: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1846: FND_MSG_PUB.ADD;
1841: IF (l_prior_ue_status = 'DEFERRED') THEN
1842: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_DEFERRED');
1843: FND_MSG_PUB.ADD;
1844: ELSE
1845: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ALRDY_INITLZD');
1846: FND_MSG_PUB.ADD;
1847: END IF;
1848: x_return_status := FND_API.G_RET_STS_ERROR;
1849: END IF;
1868: 'AHL_UMP_EFF','SR',6);
1869: FETCH l_servq_num_csr INTO l_err_serreq_num;
1870: CLOSE l_servq_num_csr;
1871:
1872: FND_MESSAGE.Set_Name('AHL','AHL_UMP_LTR_ACCMPLSH_EXSTS');
1873: FND_MESSAGE.Set_Token('UEID', p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1869: FETCH l_servq_num_csr INTO l_err_serreq_num;
1870: CLOSE l_servq_num_csr;
1871:
1872: FND_MESSAGE.Set_Name('AHL','AHL_UMP_LTR_ACCMPLSH_EXSTS');
1873: FND_MESSAGE.Set_Token('UEID', p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1877: FND_MSG_PUB.ADD;
1870: CLOSE l_servq_num_csr;
1871:
1872: FND_MESSAGE.Set_Name('AHL','AHL_UMP_LTR_ACCMPLSH_EXSTS');
1873: FND_MESSAGE.Set_Token('UEID', p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1877: FND_MSG_PUB.ADD;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1871:
1872: FND_MESSAGE.Set_Name('AHL','AHL_UMP_LTR_ACCMPLSH_EXSTS');
1873: FND_MESSAGE.Set_Token('UEID', p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1877: FND_MSG_PUB.ADD;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: END IF;
1872: FND_MESSAGE.Set_Name('AHL','AHL_UMP_LTR_ACCMPLSH_EXSTS');
1873: FND_MESSAGE.Set_Token('UEID', p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1874: FND_MESSAGE.Set_Token('NEW_ACC_DATE',to_char(p_unit_Effectivity_rec.ACCOMPLISHED_DATE,fnd_date.outputDT_mask));
1875: FND_MESSAGE.Set_Token('ACC_DATE',to_char(l_last_accomplished_date,fnd_date.outputDT_mask));
1876: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1877: FND_MSG_PUB.ADD;
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: END IF;
1880: END IF;
1906: 'AHL_UMP_EFF','SR',6);
1907: FETCH l_servq_num_csr INTO l_err_serreq_num;
1908: CLOSE l_servq_num_csr;
1909:
1910: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ERLR_EFF_EXISTS');
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1907: FETCH l_servq_num_csr INTO l_err_serreq_num;
1908: CLOSE l_servq_num_csr;
1909:
1910: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ERLR_EFF_EXISTS');
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1908: CLOSE l_servq_num_csr;
1909:
1910: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ERLR_EFF_EXISTS');
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1909:
1910: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ERLR_EFF_EXISTS');
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1917: FND_MSG_PUB.ADD;
1910: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ERLR_EFF_EXISTS');
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1917: FND_MSG_PUB.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1911: FND_MESSAGE.Set_Token('INST', l_err_instance_number);
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1917: FND_MSG_PUB.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1912: FND_MESSAGE.Set_Token('BEF_UEID', l_temp_ue_id);
1913: FND_MESSAGE.Set_Token('UEID',p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1914: FND_MESSAGE.Set_Token('DUEDATE',l_err_due_date);
1915: FND_MESSAGE.Set_Token('TITLE',l_err_title);
1916: FND_MESSAGE.Set_Token('SERVQ_NUM',l_err_serreq_num);
1917: FND_MSG_PUB.ADD;
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: END IF;
1920: END IF;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1938: END IF;
1939: IF (l_last_accomplished_date IS NULL) THEN
1940: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PRED_NOT_ACCMPLSHD');
1941: FND_MSG_PUB.ADD;
1942: x_return_status := FND_API.G_RET_STS_ERROR;
1943: END IF;
1944: END IF;
1948: -- If terminating, ensure that the Accomplished Date if given, is in the past
1949: IF (p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED' OR p_unit_Effectivity_rec.STATUS_CODE = 'MR-TERMINATE') THEN
1950: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE) THEN
1951: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1952: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1953: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1954: FND_MSG_PUB.ADD;
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: END IF;
1949: IF (p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED' OR p_unit_Effectivity_rec.STATUS_CODE = 'MR-TERMINATE') THEN
1950: IF (p_unit_Effectivity_rec.ACCOMPLISHED_DATE IS NOT NULL AND p_unit_Effectivity_rec.ACCOMPLISHED_DATE <> FND_API.G_MISS_DATE) THEN
1951: IF (TRUNC(p_unit_Effectivity_rec.ACCOMPLISHED_DATE) > TRUNC(sysdate)) THEN
1952: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_DATE_IN_FUTR');
1953: FND_MESSAGE.Set_Token('ACCDATE', p_unit_Effectivity_rec.ACCOMPLISHED_DATE);
1954: FND_MSG_PUB.ADD;
1955: x_return_status := FND_API.G_RET_STS_ERROR;
1956: END IF;
1957: END IF;
1960: -- If INIT-DUE, ensure that the Set Due Date if given, is in the future
1961: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE') THEN
1962: IF (p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) THEN
1963: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1964: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1965: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1966: FND_MSG_PUB.ADD;
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: END IF;
1961: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE') THEN
1962: IF (p_unit_Effectivity_rec.SET_DUE_DATE IS NOT NULL AND p_unit_Effectivity_rec.SET_DUE_DATE <> FND_API.G_MISS_DATE) THEN
1963: IF (TRUNC(p_unit_Effectivity_rec.SET_DUE_DATE) < TRUNC(sysdate)) THEN
1964: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUE_DATE_IN_PAST');
1965: FND_MESSAGE.Set_Token('DUEDATE', p_unit_Effectivity_rec.SET_DUE_DATE);
1966: FND_MSG_PUB.ADD;
1967: x_return_status := FND_API.G_RET_STS_ERROR;
1968: END IF;
1969: END IF;
1973: IF (p_unit_Effectivity_rec.qa_collection_id IS NOT NULL) AND
1974: (p_unit_Effectivity_rec.qa_collection_id <> FND_API.G_MISS_NUM) THEN
1975: OPEN l_qa_collection_csr (p_unit_Effectivity_rec.qa_collection_id);
1976: IF l_qa_collection_csr%NOTFOUND THEN
1977: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1978: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1979: FND_MSG_PUB.ADD;
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END IF;
1974: (p_unit_Effectivity_rec.qa_collection_id <> FND_API.G_MISS_NUM) THEN
1975: OPEN l_qa_collection_csr (p_unit_Effectivity_rec.qa_collection_id);
1976: IF l_qa_collection_csr%NOTFOUND THEN
1977: FND_MESSAGE.Set_Name('AHL','AHL_UMP_QA_COLLECTION_INVALID');
1978: FND_MESSAGE.Set_Token('COLLECT_ID', p_unit_Effectivity_rec.qa_collection_id);
1979: FND_MSG_PUB.ADD;
1980: x_return_status := FND_API.G_RET_STS_ERROR;
1981: END IF;
1982: CLOSE l_qa_collection_csr;
1985: -- Validate the current UE status is not ACCOMPLISHED.
1986: IF (l_prev_status = 'ACCOMPLISHED' OR l_prev_status = 'TERMINATED' OR
1987: l_prev_status = 'DEFERRED' OR l_prev_status = 'INIT-ACCOMPLISHED' OR
1988: l_prev_status = 'SR-CLOSED' OR l_prev_status = 'CANCELLED') THEN
1989: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1990: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1991: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1992: FND_MSG_PUB.ADD;
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1986: IF (l_prev_status = 'ACCOMPLISHED' OR l_prev_status = 'TERMINATED' OR
1987: l_prev_status = 'DEFERRED' OR l_prev_status = 'INIT-ACCOMPLISHED' OR
1988: l_prev_status = 'SR-CLOSED' OR l_prev_status = 'CANCELLED') THEN
1989: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1990: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1991: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1992: FND_MSG_PUB.ADD;
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: END IF;
1987: l_prev_status = 'DEFERRED' OR l_prev_status = 'INIT-ACCOMPLISHED' OR
1988: l_prev_status = 'SR-CLOSED' OR l_prev_status = 'CANCELLED') THEN
1989: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_STTS_CHNG');
1990: FND_MESSAGE.Set_Token('FROM_STATUS', l_prev_status);
1991: FND_MESSAGE.Set_Token('TO_STATUS', p_unit_Effectivity_rec.STATUS_CODE);
1992: FND_MSG_PUB.ADD;
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994: END IF;
1995:
2000: (p_unit_Effectivity_rec.unit_deferral_ID <> FND_API.G_MISS_NUM) THEN
2001: OPEN l_unit_deferral_csr (p_unit_Effectivity_rec.unit_deferral_id);
2002: FETCH l_unit_deferral_csr INTO l_junk;
2003: IF (l_unit_deferral_csr%NOTFOUND) THEN
2004: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
2005: FND_MESSAGE.Set_Token('DEFERRAL_ID', p_unit_Effectivity_rec.unit_deferral_id);
2006: FND_MSG_PUB.ADD;
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2008: END IF;
2001: OPEN l_unit_deferral_csr (p_unit_Effectivity_rec.unit_deferral_id);
2002: FETCH l_unit_deferral_csr INTO l_junk;
2003: IF (l_unit_deferral_csr%NOTFOUND) THEN
2004: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DEFERRAL_INVALID');
2005: FND_MESSAGE.Set_Token('DEFERRAL_ID', p_unit_Effectivity_rec.unit_deferral_id);
2006: FND_MSG_PUB.ADD;
2007: x_return_status := FND_API.G_RET_STS_ERROR;
2008: END IF;
2009:
2094:
2095: -- Ensure that for Modify or delete operation, the threshold id is present
2096: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'D') THEN
2097: IF (p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID IS NULL OR p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID = FND_API.G_MISS_NUM) THEN
2098: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_ID_NULL');
2099: FND_MSG_PUB.ADD;
2100: x_return_status := FND_API.G_RET_STS_ERROR;
2101: END IF;
2102: END IF;
2106: OPEN l_ue_id_check_csr(p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID,
2107: p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
2108: FETCH l_ue_id_check_csr INTO l_junk;
2109: IF (l_ue_id_check_csr%NOTFOUND) THEN
2110: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2111: FND_MESSAGE.Set_Token('UEID', p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
2112: FND_MSG_PUB.ADD;
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114: END IF;
2107: p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
2108: FETCH l_ue_id_check_csr INTO l_junk;
2109: IF (l_ue_id_check_csr%NOTFOUND) THEN
2110: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2111: FND_MESSAGE.Set_Token('UEID', p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID);
2112: FND_MSG_PUB.ADD;
2113: x_return_status := FND_API.G_RET_STS_ERROR;
2114: END IF;
2115: CLOSE l_ue_id_check_csr;
2117:
2118: -- Ensure that the Counter ID is valid for a Create or Modify operation
2119: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NULL OR p_unit_threshold_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2120: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2121: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2122: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2123: FND_MSG_PUB.ADD;
2124: x_return_status := FND_API.G_RET_STS_ERROR;
2125: END IF;
2118: -- Ensure that the Counter ID is valid for a Create or Modify operation
2119: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NULL OR p_unit_threshold_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2120: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2121: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2122: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2123: FND_MSG_PUB.ADD;
2124: x_return_status := FND_API.G_RET_STS_ERROR;
2125: END IF;
2126: END IF;
2129: IF (p_unit_threshold_tbl(i).COUNTER_ID IS NOT NULL AND p_unit_threshold_tbl(i).COUNTER_ID <> FND_API.G_MISS_NUM) THEN
2130: OPEN l_validate_counter_csr(p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID, p_unit_threshold_tbl(i).COUNTER_ID);
2131: FETCH l_validate_counter_csr INTO l_junk;
2132: IF (l_validate_counter_csr%NOTFOUND) THEN
2133: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2134: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2135: FND_MSG_PUB.ADD;
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: ELSE
2130: OPEN l_validate_counter_csr(p_unit_threshold_tbl(i).UNIT_EFFECTIVITY_ID, p_unit_threshold_tbl(i).COUNTER_ID);
2131: FETCH l_validate_counter_csr INTO l_junk;
2132: IF (l_validate_counter_csr%NOTFOUND) THEN
2133: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2134: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2135: FND_MSG_PUB.ADD;
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: ELSE
2138: -- get counter reading.
2151: -- Retrieve object version no. for this threshold
2152: OPEN l_get_prev_ctr_csr(p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2153: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2154: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2155: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
2156: FND_MESSAGE.Set_Token('THRESHOLDID', p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2157: FND_MSG_PUB.ADD;
2158: CLOSE l_get_prev_ctr_csr;
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2152: OPEN l_get_prev_ctr_csr(p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2153: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2154: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2155: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
2156: FND_MESSAGE.Set_Token('THRESHOLDID', p_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
2157: FND_MSG_PUB.ADD;
2158: CLOSE l_get_prev_ctr_csr;
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: RETURN;
2161: END IF;
2162: CLOSE l_get_prev_ctr_csr;
2163: -- Check if object version no is different
2164: IF(l_prev_object_version_no <> p_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
2165: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
2166: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2167: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2162: CLOSE l_get_prev_ctr_csr;
2163: -- Check if object version no is different
2164: IF(l_prev_object_version_no <> p_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
2165: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
2166: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2167: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: RETURN;
2163: -- Check if object version no is different
2164: IF(l_prev_object_version_no <> p_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
2165: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
2166: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2167: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2168: FND_MSG_PUB.ADD;
2169: x_return_status := FND_API.G_RET_STS_ERROR;
2170: RETURN;
2171: END IF;
2171: END IF;
2172: -- For modify operation, ensure that the counter (id) has not changed
2173: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2174: IF (p_unit_threshold_tbl(i).COUNTER_ID <> l_prev_counter) THEN
2175: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THR_COUNTER_CHANGED');
2176: FND_MSG_PUB.ADD;
2177: x_return_status := FND_API.G_RET_STS_ERROR;
2178: END IF;
2179: END IF;
2181:
2182: -- Ensure that the counter value is valid
2183: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2184: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2185: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2186: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2187: FND_MSG_PUB.ADD;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: ELSE
2182: -- Ensure that the counter value is valid
2183: IF (p_unit_threshold_tbl(i).OPERATION_FLAG = 'C' OR p_unit_threshold_tbl(i).OPERATION_FLAG = 'M') THEN
2184: IF (p_unit_threshold_tbl(i).COUNTER_VALUE IS NULL OR p_unit_threshold_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2185: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2186: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2187: FND_MSG_PUB.ADD;
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: ELSE
2190: -- Ensure that the entered value is not lesser than the Net Reading
2188: x_return_status := FND_API.G_RET_STS_ERROR;
2189: ELSE
2190: -- Ensure that the entered value is not lesser than the Net Reading
2191: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
2192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
2193: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2194: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
2195: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2196: FND_MSG_PUB.ADD;
2189: ELSE
2190: -- Ensure that the entered value is not lesser than the Net Reading
2191: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
2192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
2193: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2194: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
2195: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2196: FND_MSG_PUB.ADD;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2190: -- Ensure that the entered value is not lesser than the Net Reading
2191: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
2192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
2193: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2194: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
2195: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2196: FND_MSG_PUB.ADD;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: END IF;
2191: IF (p_unit_threshold_tbl(i).COUNTER_VALUE < l_net_reading) THEN
2192: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESSER');
2193: FND_MESSAGE.Set_Token('COUNTER', p_unit_threshold_tbl(i).COUNTER_NAME);
2194: FND_MESSAGE.Set_Token('ENTVAL', p_unit_threshold_tbl(i).COUNTER_VALUE);
2195: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2196: FND_MSG_PUB.ADD;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: END IF;
2199: END IF;
2323:
2324: -- Ensure that for Modify or delete operation, the accomplishment id is present
2325: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'D') THEN
2326: IF (p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID IS NULL OR p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID = FND_API.G_MISS_NUM) THEN
2327: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCOMPLISH_ID_NULL');
2328: FND_MSG_PUB.ADD;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: END IF;
2331: END IF;
2335: OPEN l_ue_id_check_csr(p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID,
2336: p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2337: FETCH l_ue_id_check_csr INTO l_junk;
2338: IF (l_ue_id_check_csr%NOTFOUND) THEN
2339: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2340: FND_MESSAGE.Set_Token('UEID', p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2341: FND_MSG_PUB.ADD;
2342: x_return_status := FND_API.G_RET_STS_ERROR;
2343: END IF;
2336: p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2337: FETCH l_ue_id_check_csr INTO l_junk;
2338: IF (l_ue_id_check_csr%NOTFOUND) THEN
2339: FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_ID_INVALID');
2340: FND_MESSAGE.Set_Token('UEID', p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID);
2341: FND_MSG_PUB.ADD;
2342: x_return_status := FND_API.G_RET_STS_ERROR;
2343: END IF;
2344: CLOSE l_ue_id_check_csr;
2346:
2347: -- Ensure that the Counter ID is valid for a Create or Modify operation
2348: IF (p_unit_accomplish_tbl(i).COUNTER_ID IS NULL OR p_unit_accomplish_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2349: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2350: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2351: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2352: FND_MSG_PUB.ADD;
2353: x_return_status := FND_API.G_RET_STS_ERROR;
2354: END IF;
2347: -- Ensure that the Counter ID is valid for a Create or Modify operation
2348: IF (p_unit_accomplish_tbl(i).COUNTER_ID IS NULL OR p_unit_accomplish_tbl(i).COUNTER_ID = FND_API.G_MISS_NUM) THEN
2349: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2350: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2351: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2352: FND_MSG_PUB.ADD;
2353: x_return_status := FND_API.G_RET_STS_ERROR;
2354: END IF;
2355: END IF;
2361: -- to allow for init-accomplishment deletion along with counter values; so there is a
2362: -- possibility for accomplishment date to be null or g-miss date.
2363: IF (p_accomplishment_date IS NULL OR p_accomplishment_date = FND_API.G_MISS_DATE)
2364: THEN
2365: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2366: FND_MSG_PUB.ADD;
2367: x_return_status := FND_API.G_RET_STS_ERROR;
2368: RETURN;
2369: END IF;
2371: OPEN l_validate_counter_csr(p_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID,
2372: p_unit_accomplish_tbl(i).COUNTER_ID);
2373: FETCH l_validate_counter_csr INTO l_junk;
2374: IF (l_validate_counter_csr%NOTFOUND) THEN
2375: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2376: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2377: FND_MSG_PUB.ADD;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: ELSE
2372: p_unit_accomplish_tbl(i).COUNTER_ID);
2373: FETCH l_validate_counter_csr INTO l_junk;
2374: IF (l_validate_counter_csr%NOTFOUND) THEN
2375: FND_MESSAGE.Set_Name('AHL','AHL_UMP_COUNTER_INVALID');
2376: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2377: FND_MSG_PUB.ADD;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: ELSE
2380: IF (p_ue_status_code = 'INIT-ACCOMPLISHED') THEN
2395: l_net_reading := 0;
2396: ELSIF ((get_nxt_max_ctr_reading_csr%NOTFOUND) AND (get_max_ctr_reading_csr%FOUND)) THEN
2397: l_net_reading := l_net_reading_less;
2398: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2399: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2400: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2401: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2402: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2403: FND_MSG_PUB.ADD;
2396: ELSIF ((get_nxt_max_ctr_reading_csr%NOTFOUND) AND (get_max_ctr_reading_csr%FOUND)) THEN
2397: l_net_reading := l_net_reading_less;
2398: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2399: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2400: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2401: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2402: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2403: FND_MSG_PUB.ADD;
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2397: l_net_reading := l_net_reading_less;
2398: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2399: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2400: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2401: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2402: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2403: FND_MSG_PUB.ADD;
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2405: END IF;
2398: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2399: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2400: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2401: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2402: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2403: FND_MSG_PUB.ADD;
2404: x_return_status := FND_API.G_RET_STS_ERROR;
2405: END IF;
2406: ELSIF ((get_nxt_max_ctr_reading_csr%FOUND) AND (get_max_ctr_reading_csr%NOTFOUND)) THEN
2410: l_net_reading := l_net_reading_more; -- used later for validation with counter value.
2411: -- counter reading before and after accomplishment date available.
2412: -- but no reading on accomplishment date itself.
2413: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2414: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2415: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2416: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2417: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2418: FND_MSG_PUB.ADD;
2411: -- counter reading before and after accomplishment date available.
2412: -- but no reading on accomplishment date itself.
2413: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2414: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2415: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2416: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2417: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2418: FND_MSG_PUB.ADD;
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2412: -- but no reading on accomplishment date itself.
2413: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2414: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2415: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2416: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2417: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2418: FND_MSG_PUB.ADD;
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2420: END IF;
2413: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE < l_net_reading_less) THEN
2414: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_LESS');
2415: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2416: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2417: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading_less);
2418: FND_MSG_PUB.ADD;
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2420: END IF;
2421: END IF;
2441: -- Retrieve object version no. for this accomplishment
2442: OPEN l_get_prev_ctr_csr(p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2443: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2444: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2445: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
2446: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2447: FND_MSG_PUB.ADD;
2448: CLOSE l_get_prev_ctr_csr;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2442: OPEN l_get_prev_ctr_csr(p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2443: FETCH l_get_prev_ctr_csr into l_prev_object_version_no, l_prev_counter;
2444: IF (l_get_prev_ctr_csr%NOTFOUND) THEN
2445: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
2446: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
2447: FND_MSG_PUB.ADD;
2448: CLOSE l_get_prev_ctr_csr;
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: RETURN;
2451: END IF;
2452: CLOSE l_get_prev_ctr_csr;
2453: -- Check if object version no is different
2454: IF(l_prev_object_version_no <> p_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
2455: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
2456: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2457: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2458: FND_MSG_PUB.ADD;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2452: CLOSE l_get_prev_ctr_csr;
2453: -- Check if object version no is different
2454: IF(l_prev_object_version_no <> p_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
2455: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
2456: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2457: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2458: FND_MSG_PUB.ADD;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: RETURN;
2453: -- Check if object version no is different
2454: IF(l_prev_object_version_no <> p_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
2455: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
2456: -- FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2457: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2458: FND_MSG_PUB.ADD;
2459: x_return_status := FND_API.G_RET_STS_ERROR;
2460: RETURN;
2461: END IF;
2461: END IF;
2462: -- For modify operation, ensure that the counter (id) has not changed
2463: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2464: IF (p_unit_accomplish_tbl(i).COUNTER_ID <> l_prev_counter) THEN
2465: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACC_COUNTER_CHANGED');
2466: FND_MSG_PUB.ADD;
2467: x_return_status := FND_API.G_RET_STS_ERROR;
2468: END IF;
2469: END IF;
2471:
2472: -- Ensure that the counter value is valid
2473: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2474: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2475: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2476: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: ELSE
2472: -- Ensure that the counter value is valid
2473: IF (p_unit_accomplish_tbl(i).OPERATION_FLAG = 'C' OR p_unit_accomplish_tbl(i).OPERATION_FLAG = 'M') THEN
2474: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE IS NULL OR p_unit_accomplish_tbl(i).COUNTER_VALUE = FND_API.G_MISS_NUM) THEN
2475: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CNTR_VALUE_MISSING');
2476: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: ELSE
2480: -- Ensure that the entered value is not greater than the Net Reading
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: ELSE
2480: -- Ensure that the entered value is not greater than the Net Reading
2481: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2483: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2484: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2485: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2486: FND_MSG_PUB.ADD;
2479: ELSE
2480: -- Ensure that the entered value is not greater than the Net Reading
2481: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2483: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2484: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2485: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2486: FND_MSG_PUB.ADD;
2487: x_return_status := FND_API.G_RET_STS_ERROR;
2480: -- Ensure that the entered value is not greater than the Net Reading
2481: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2483: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2484: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2485: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2486: FND_MSG_PUB.ADD;
2487: x_return_status := FND_API.G_RET_STS_ERROR;
2488: END IF;
2481: IF (p_unit_accomplish_tbl(i).COUNTER_VALUE > l_net_reading) THEN
2482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CTR_VAL_GREATER');
2483: FND_MESSAGE.Set_Token('COUNTER', p_unit_accomplish_tbl(i).COUNTER_NAME);
2484: FND_MESSAGE.Set_Token('ENTVAL', p_unit_accomplish_tbl(i).COUNTER_VALUE);
2485: FND_MESSAGE.Set_Token('CURRVAL', l_net_reading);
2486: FND_MSG_PUB.ADD;
2487: x_return_status := FND_API.G_RET_STS_ERROR;
2488: END IF;
2489: END IF;
2676: l_status_code := null;
2677: END IF;
2678: -- raise error if date is null or g_miss.
2679: ELSIF (l_accomplished_date IS NULL OR l_accomplished_date = FND_API.G_MISS_DATE) THEN
2680: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHD_DATE_NULL');
2681: FND_MSG_PUB.ADD;
2682: RETURN;
2683: END IF;
2684: CLOSE l_accomplish_exists_csr;
2695: END IF;
2696:
2697: -- If object version no is different, write error message and skip to next unit effectivity
2698: IF(l_ue_rec.OBJECT_VERSION_NUMBER <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
2699: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
2700: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2701: FND_MSG_PUB.ADD;
2702: RETURN;
2703: END IF;
2696:
2697: -- If object version no is different, write error message and skip to next unit effectivity
2698: IF(l_ue_rec.OBJECT_VERSION_NUMBER <> p_unit_Effectivity_rec.OBJECT_VERSION_NUMBER) THEN
2699: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_CHANGED');
2700: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2701: FND_MSG_PUB.ADD;
2702: RETURN;
2703: END IF;
2704:
2715: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
2716: x_counters => l_counters_msg,
2717: x_return_status => l_return_status);
2718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2719: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
2720: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
2721: FND_MSG_PUB.ADD;
2722: RETURN;
2723: END IF;
2716: x_counters => l_counters_msg,
2717: x_return_status => l_return_status);
2718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2719: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
2720: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
2721: FND_MSG_PUB.ADD;
2722: RETURN;
2723: END IF;
2724: END IF;
2893: IF (l_unit_deferral_operation = 'D') THEN
2894: -- Check Object version.
2895: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2896: THEN
2897: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2898: FND_MSG_PUB.ADD;
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: END IF;
2901:
2905:
2906: -- Check Object version.
2907: IF (l_unit_def_rec.object_version_number <> p_unit_Effectivity_rec.unit_deferral_object_version)
2908: THEN
2909: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2910: FND_MSG_PUB.ADD;
2911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2912: END IF;
2913:
3059: p_mr_header_id => l_ue_rec.MR_HEADER_ID,
3060: x_counters => l_counters_msg,
3061: x_return_status => l_return_status);
3062: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3063: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
3064: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
3065: FND_MSG_PUB.ADD;
3066: --RETURN;
3067: END IF;
3060: x_counters => l_counters_msg,
3061: x_return_status => l_return_status);
3062: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3063: FND_MESSAGE.Set_Name('AHL','AHL_UMP_MISSING_COUNTERS');
3064: FND_MESSAGE.Set_Token('COUNTERS', l_counters_msg);
3065: FND_MSG_PUB.ADD;
3066: --RETURN;
3067: END IF;
3068: END IF;
3276: FETCH l_get_unit_threshold_csr INTO l_threshold_details;
3277: IF (l_get_unit_threshold_csr%FOUND) THEN
3278: -- If object version no is different, write error message and skip to next unit effectivity
3279: IF(l_threshold_details.OBJECT_VERSION_NUMBER <> p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
3280: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
3281: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_threshold_tbl(i).COUNTER_NAME);
3282: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3283: FND_MSG_PUB.ADD;
3284: RETURN;
3277: IF (l_get_unit_threshold_csr%FOUND) THEN
3278: -- If object version no is different, write error message and skip to next unit effectivity
3279: IF(l_threshold_details.OBJECT_VERSION_NUMBER <> p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
3280: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
3281: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_threshold_tbl(i).COUNTER_NAME);
3282: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3283: FND_MSG_PUB.ADD;
3284: RETURN;
3285: END IF;
3278: -- If object version no is different, write error message and skip to next unit effectivity
3279: IF(l_threshold_details.OBJECT_VERSION_NUMBER <> p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER) THEN
3280: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRESHOLD_CHANGED');
3281: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_threshold_tbl(i).COUNTER_NAME);
3282: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3283: FND_MSG_PUB.ADD;
3284: RETURN;
3285: END IF;
3286: p_x_unit_threshold_tbl(i).OBJECT_VERSION_NUMBER := l_threshold_details.OBJECT_VERSION_NUMBER + 1;
3394: P_LAST_UPDATE_DATE => TRUNC(sysdate),
3395: P_LAST_UPDATED_BY => fnd_global.user_id,
3396: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3397: ELSE
3398: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
3399: FND_MESSAGE.Set_Token('THRESHOLDID', p_x_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
3400: FND_MSG_PUB.ADD;
3401: END IF;
3402: CLOSE l_get_unit_threshold_csr;
3395: P_LAST_UPDATED_BY => fnd_global.user_id,
3396: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3397: ELSE
3398: FND_MESSAGE.Set_Name('AHL','AHL_UMP_THRSHLD_ID_INVALID');
3399: FND_MESSAGE.Set_Token('THRESHOLDID', p_x_unit_threshold_tbl(i).UNIT_THRESHOLD_ID);
3400: FND_MSG_PUB.ADD;
3401: END IF;
3402: CLOSE l_get_unit_threshold_csr;
3403: ELSIF (p_x_unit_threshold_tbl(i).OPERATION_FLAG = 'C') THEN
3408: IF (l_get_def_csr%FOUND) THEN
3409: OPEN l_get_dup_counter_csr(l_unit_deferral_id, p_x_unit_threshold_tbl(i).COUNTER_ID);
3410: FETCH l_get_dup_counter_csr INTO l_junk;
3411: IF (l_get_dup_counter_csr%FOUND) THEN
3412: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUPLICATE_COUNTER');
3413: FND_MESSAGE.Set_Token('COUNTERID', p_x_unit_threshold_tbl(i).COUNTER_ID);
3414: FND_MSG_PUB.ADD;
3415: CLOSE l_get_dup_counter_csr;
3416: RETURN;
3409: OPEN l_get_dup_counter_csr(l_unit_deferral_id, p_x_unit_threshold_tbl(i).COUNTER_ID);
3410: FETCH l_get_dup_counter_csr INTO l_junk;
3411: IF (l_get_dup_counter_csr%FOUND) THEN
3412: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUPLICATE_COUNTER');
3413: FND_MESSAGE.Set_Token('COUNTERID', p_x_unit_threshold_tbl(i).COUNTER_ID);
3414: FND_MSG_PUB.ADD;
3415: CLOSE l_get_dup_counter_csr;
3416: RETURN;
3417: END IF;
3542: P_CREATED_BY => fnd_global.user_id,
3543: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3544: ELSE
3545: -- unrecognized operation flag
3546: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPERATION_INVALID');
3547: FND_MESSAGE.Set_Token('OPERATION', p_x_unit_threshold_tbl(i).OPERATION_FLAG);
3548: FND_MSG_PUB.ADD;
3549: END IF;
3550: END LOOP;
3543: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3544: ELSE
3545: -- unrecognized operation flag
3546: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPERATION_INVALID');
3547: FND_MESSAGE.Set_Token('OPERATION', p_x_unit_threshold_tbl(i).OPERATION_FLAG);
3548: FND_MSG_PUB.ADD;
3549: END IF;
3550: END LOOP;
3551: END IF;
3612: FETCH l_get_unit_accomplish_csr INTO l_accomplish_details;
3613: IF (l_get_unit_accomplish_csr%FOUND) THEN
3614: -- If object version no is different, write error message and skip to next unit effectivity
3615: IF(l_accomplish_details.OBJECT_VERSION_NUMBER <> p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
3616: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
3617: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_accomplish_tbl(i).COUNTER_NAME);
3618: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3619: FND_MSG_PUB.ADD;
3620: RETURN;
3613: IF (l_get_unit_accomplish_csr%FOUND) THEN
3614: -- If object version no is different, write error message and skip to next unit effectivity
3615: IF(l_accomplish_details.OBJECT_VERSION_NUMBER <> p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
3616: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
3617: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_accomplish_tbl(i).COUNTER_NAME);
3618: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3619: FND_MSG_PUB.ADD;
3620: RETURN;
3621: END IF;
3614: -- If object version no is different, write error message and skip to next unit effectivity
3615: IF(l_accomplish_details.OBJECT_VERSION_NUMBER <> p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER) THEN
3616: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSHMNT_CHANGED');
3617: -- FND_MESSAGE.Set_Token('COUNTER', p_x_unit_accomplish_tbl(i).COUNTER_NAME);
3618: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3619: FND_MSG_PUB.ADD;
3620: RETURN;
3621: END IF;
3622: p_x_unit_accomplish_tbl(i).OBJECT_VERSION_NUMBER := l_accomplish_details.OBJECT_VERSION_NUMBER + 1;
3728: P_LAST_UPDATE_DATE => TRUNC(sysdate),
3729: P_LAST_UPDATED_BY => fnd_global.user_id,
3730: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3731: ELSE
3732: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
3733: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_x_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
3734: FND_MSG_PUB.ADD;
3735: END IF;
3736: CLOSE l_get_unit_accomplish_csr;
3729: P_LAST_UPDATED_BY => fnd_global.user_id,
3730: P_LAST_UPDATE_LOGIN => fnd_global.login_id);
3731: ELSE
3732: FND_MESSAGE.Set_Name('AHL','AHL_UMP_ACCMPLSH_ID_INVALID');
3733: FND_MESSAGE.Set_Token('ACCOMPLISHMENTID', p_x_unit_accomplish_tbl(i).UNIT_ACCOMPLISH_ID);
3734: FND_MSG_PUB.ADD;
3735: END IF;
3736: CLOSE l_get_unit_accomplish_csr;
3737: ELSIF (p_x_unit_accomplish_tbl(i).OPERATION_FLAG = 'C') THEN
3738: -- insert row
3739: OPEN l_get_dup_counter_csr(p_x_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID, p_x_unit_accomplish_tbl(i).COUNTER_ID);
3740: FETCH l_get_dup_counter_csr INTO l_junk;
3741: IF (l_get_dup_counter_csr%FOUND) THEN
3742: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUPLICATE_COUNTER');
3743: FND_MESSAGE.Set_Token('COUNTERID', p_x_unit_accomplish_tbl(i).COUNTER_ID);
3744: FND_MSG_PUB.ADD;
3745: CLOSE l_get_dup_counter_csr;
3746: RETURN;
3739: OPEN l_get_dup_counter_csr(p_x_unit_accomplish_tbl(i).UNIT_EFFECTIVITY_ID, p_x_unit_accomplish_tbl(i).COUNTER_ID);
3740: FETCH l_get_dup_counter_csr INTO l_junk;
3741: IF (l_get_dup_counter_csr%FOUND) THEN
3742: FND_MESSAGE.Set_Name('AHL','AHL_UMP_DUPLICATE_COUNTER');
3743: FND_MESSAGE.Set_Token('COUNTERID', p_x_unit_accomplish_tbl(i).COUNTER_ID);
3744: FND_MSG_PUB.ADD;
3745: CLOSE l_get_dup_counter_csr;
3746: RETURN;
3747: END IF;
3859: END IF;
3860: */
3861: ELSE
3862: -- unrecognized operation flag
3863: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPERATION_INVALID');
3864: FND_MESSAGE.Set_Token('OPERATION', p_x_unit_accomplish_tbl(i).OPERATION_FLAG);
3865: FND_MSG_PUB.ADD;
3866: END IF;
3867: END LOOP;
3860: */
3861: ELSE
3862: -- unrecognized operation flag
3863: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPERATION_INVALID');
3864: FND_MESSAGE.Set_Token('OPERATION', p_x_unit_accomplish_tbl(i).OPERATION_FLAG);
3865: FND_MSG_PUB.ADD;
3866: END IF;
3867: END LOOP;
3868: END IF;
4482: END IF;
4483:
4484: IF (l_old_mr_header_id IS NULL) THEN
4485: x_return_status := FND_API.G_RET_STS_ERROR;
4486: FND_MESSAGE.Set_Name('AHL','AHL_UMP_TERMNT_MR_DET_MAND');
4487: FND_MSG_PUB.ADD;
4488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4489: -- RETURN;
4490: END IF;
4491:
4492: /*
4493: IF (l_new_mr_header_id IS NULL) THEN
4494: x_return_status := FND_API.G_RET_STS_ERROR;
4495: FND_MESSAGE.Set_Name('AHL','AHL_UMP_CUR_MR_DET_MAND');
4496: FND_MSG_PUB.ADD;
4497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4498: -- RETURN;
4499: END IF;
4504: IF (l_get_effective_to_date%FOUND) THEN
4505: --check if effective to date has passed
4506: /* IF( TRUNC(l_effective_to_date) > TRUNC(SYSDATE)) THEN
4507: x_return_status := FND_API.G_RET_STS_ERROR;
4508: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4509: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4510: FND_MSG_PUB.ADD;
4511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4512: END IF; */
4505: --check if effective to date has passed
4506: /* IF( TRUNC(l_effective_to_date) > TRUNC(SYSDATE)) THEN
4507: x_return_status := FND_API.G_RET_STS_ERROR;
4508: FND_MESSAGE.Set_Name('AHL','AHL_UMP_EFF_TO_DATE');
4509: FND_MESSAGE.Set_Token('EFF_TO', l_effective_to_date);
4510: FND_MSG_PUB.ADD;
4511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4512: END IF; */
4513:
4527: OPEN l_get_effective_from_date(l_new_mr_header_id);
4528: FETCH l_get_effective_from_date INTO l_effective_from_date;
4529: IF (l_get_effective_from_date%NOTFOUND) THEN
4530: x_return_status := FND_API.G_RET_STS_ERROR;
4531: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4532: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4533: FND_MSG_PUB.ADD;
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4528: FETCH l_get_effective_from_date INTO l_effective_from_date;
4529: IF (l_get_effective_from_date%NOTFOUND) THEN
4530: x_return_status := FND_API.G_RET_STS_ERROR;
4531: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
4532: FND_MESSAGE.Set_Token('MR_ID',l_new_mr_header_id);
4533: FND_MSG_PUB.ADD;
4534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4535: END IF;
4536: CLOSE l_get_effective_from_date;
5140: WHEN OTHERS THEN
5141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5142: Rollback to Terminate_MR_Instances_pvt;
5143: IF (SQLCODE = -54) THEN
5144: FND_MESSAGE.Set_Name('AHL','AHL_UMP_RECORD_LOCKED');
5145: FND_MSG_PUB.ADD;
5146: ELSE
5147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5148: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5194: (p_version_number IS NOT NULL AND p_version_number <> FND_API.G_MISS_NUM) THEN
5195: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5197: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5198: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_TITLE_INVALID');
5199: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5200: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5195: OPEN ahl_mr_headers_csr(p_mr_title, p_version_number);
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5197: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5198: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_TITLE_INVALID');
5199: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5200: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5203: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_MR_EXPIRED');
5196: FETCH ahl_mr_headers_csr INTO l_mr_id, l_effective_to;
5197: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5198: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_TITLE_INVALID');
5199: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5200: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5203: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_MR_EXPIRED');
5204: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5199: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5200: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5203: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_MR_EXPIRED');
5204: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5205: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5206: FND_MSG_PUB.ADD;
5207: ELSE
5200: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5203: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_MR_EXPIRED');
5204: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5205: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5206: FND_MSG_PUB.ADD;
5207: ELSE
5208: p_x_mr_id := l_mr_id;
5201: FND_MSG_PUB.ADD;
5202: ELSIF (trunc(l_effective_to) < trunc(sysdate)) THEN
5203: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_MR_EXPIRED');
5204: FND_MESSAGE.Set_Token('TITLE',p_mr_title);
5205: FND_MESSAGE.Set_Token('VERSION',p_version_number);
5206: FND_MSG_PUB.ADD;
5207: ELSE
5208: p_x_mr_id := l_mr_id;
5209: END IF;
5231: IF (p_unit_name IS NOT NULL AND p_unit_name <> FND_API.G_MISS_CHAR) THEN
5232: OPEN ahl_uc_headers_csr(p_unit_name);
5233: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
5234: IF (ahl_uc_headers_csr%NOTFOUND) THEN
5235: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_UNIT_INVALID');
5236: FND_MESSAGE.Set_Token('NAME',p_unit_name);
5237: FND_MSG_PUB.ADD;
5238: ELSE
5239: p_x_uc_header_id := l_uc_header_id;
5232: OPEN ahl_uc_headers_csr(p_unit_name);
5233: FETCH ahl_uc_headers_csr INTO l_uc_header_id;
5234: IF (ahl_uc_headers_csr%NOTFOUND) THEN
5235: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_UNIT_INVALID');
5236: FND_MESSAGE.Set_Token('NAME',p_unit_name);
5237: FND_MSG_PUB.ADD;
5238: ELSE
5239: p_x_uc_header_id := l_uc_header_id;
5240: END IF;
5265: -- get instance_id.
5266: OPEN csi_item_instances_csr (p_csi_instance_number);
5267: FETCH csi_item_instances_csr INTO l_csi_item_instance_id;
5268: IF (csi_item_instances_csr%NOTFOUND) THEN
5269: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_INST_NOTFOUND');
5270: FND_MESSAGE.Set_Token('NUMBER',p_csi_instance_number);
5271: FND_MSG_PUB.ADD;
5272: ELSE
5273: p_x_csi_item_instance_id := l_csi_item_instance_id;
5266: OPEN csi_item_instances_csr (p_csi_instance_number);
5267: FETCH csi_item_instances_csr INTO l_csi_item_instance_id;
5268: IF (csi_item_instances_csr%NOTFOUND) THEN
5269: FND_MESSAGE.Set_Name ('AHL','AHL_UMP_PUE_INST_NOTFOUND');
5270: FND_MESSAGE.Set_Token('NUMBER',p_csi_instance_number);
5271: FND_MSG_PUB.ADD;
5272: ELSE
5273: p_x_csi_item_instance_id := l_csi_item_instance_id;
5274: END IF;
5334: OPEN ahl_mr_headers_csr (p_mr_header_id);
5335: FETCH ahl_mr_headers_csr INTO l_mr_title, l_version_number,
5336: l_effective_to, l_effective_from;
5337: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5338: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5339: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5340: FND_MSG_PUB.ADD;
5341: CLOSE ahl_mr_headers_csr;
5342: --dbms_output.put_line('MR not found.');
5335: FETCH ahl_mr_headers_csr INTO l_mr_title, l_version_number,
5336: l_effective_to, l_effective_from;
5337: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5338: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5339: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5340: FND_MSG_PUB.ADD;
5341: CLOSE ahl_mr_headers_csr;
5342: --dbms_output.put_line('MR not found.');
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5342: --dbms_output.put_line('MR not found.');
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5344: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5345: trunc(sysdate) > trunc(l_effective_to)) THEN
5346: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5347: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5348: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5349: FND_MSG_PUB.ADD;
5350: --dbms_output.put_line('MR is not valid for today.');
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5344: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5345: trunc(sysdate) > trunc(l_effective_to)) THEN
5346: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5347: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5348: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5349: FND_MSG_PUB.ADD;
5350: --dbms_output.put_line('MR is not valid for today.');
5351: END IF;
5344: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5345: trunc(sysdate) > trunc(l_effective_to)) THEN
5346: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5347: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5348: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5349: FND_MSG_PUB.ADD;
5350: --dbms_output.put_line('MR is not valid for today.');
5351: END IF;
5352:
5357: IF (p_x_csi_item_instance_id IS NOT NULL) THEN
5358: OPEN csi_item_instances_csr (p_x_csi_item_instance_id);
5359: FETCH csi_item_instances_csr INTO l_instance_number; --, l_active_end_date;
5360: IF (csi_item_instances_csr%NOTFOUND) THEN
5361: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5362: FND_MESSAGE.Set_Token('INST_ID', p_x_csi_item_instance_id);
5363: FND_MSG_PUB.ADD;
5364: CLOSE csi_item_instances_csr;
5365: --dbms_output.put_line('Instance not found');
5358: OPEN csi_item_instances_csr (p_x_csi_item_instance_id);
5359: FETCH csi_item_instances_csr INTO l_instance_number; --, l_active_end_date;
5360: IF (csi_item_instances_csr%NOTFOUND) THEN
5361: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5362: FND_MESSAGE.Set_Token('INST_ID', p_x_csi_item_instance_id);
5363: FND_MSG_PUB.ADD;
5364: CLOSE csi_item_instances_csr;
5365: --dbms_output.put_line('Instance not found');
5366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5367: /* Bypass validation to fix bug# 8567880. If instance is expired, delete UMP.
5368: Done in procedure process_unit.
5369: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
5370: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5371: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5372: FND_MSG_PUB.ADD;
5373: --dbms_output.put_line('Instance has expired');
5374: */
5367: /* Bypass validation to fix bug# 8567880. If instance is expired, delete UMP.
5368: Done in procedure process_unit.
5369: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
5370: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5371: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5372: FND_MSG_PUB.ADD;
5373: --dbms_output.put_line('Instance has expired');
5374: */
5375: END IF;
5381: OPEN ahl_unit_config_headers_csr (p_unit_config_header_id);
5382: FETCH ahl_unit_config_headers_csr INTO l_name, l_active_start_date,
5383: l_active_end_date, l_csi_item_instance_id;
5384: IF (ahl_unit_config_headers_csr%NOTFOUND) THEN
5385: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UNIT_NOTFOUND');
5386: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_header_id);
5387: FND_MSG_PUB.ADD;
5388: --dbms_output.put_line('Unit not found');
5389: CLOSE ahl_unit_config_headers_csr;
5382: FETCH ahl_unit_config_headers_csr INTO l_name, l_active_start_date,
5383: l_active_end_date, l_csi_item_instance_id;
5384: IF (ahl_unit_config_headers_csr%NOTFOUND) THEN
5385: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UNIT_NOTFOUND');
5386: FND_MESSAGE.Set_Token('UNIT_ID',p_unit_config_header_id);
5387: FND_MSG_PUB.ADD;
5388: --dbms_output.put_line('Unit not found');
5389: CLOSE ahl_unit_config_headers_csr;
5390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5391:
5392: -- Dates obsoleted 11.5.10.
5393: -- ELSIF (trunc(l_active_start_date) > trunc(sysdate) OR
5394: -- trunc(sysdate) > trunc(l_active_end_date)) THEN
5395: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UC_EXPIRED');
5396: -- FND_MESSAGE.Set_Token('NAME',l_name);
5397: -- FND_MSG_PUB.ADD;
5398: --dbms_output.put_line('Unit has expired');
5399: ELSIF (p_x_csi_item_instance_id IS NULL) THEN
5392: -- Dates obsoleted 11.5.10.
5393: -- ELSIF (trunc(l_active_start_date) > trunc(sysdate) OR
5394: -- trunc(sysdate) > trunc(l_active_end_date)) THEN
5395: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UC_EXPIRED');
5396: -- FND_MESSAGE.Set_Token('NAME',l_name);
5397: -- FND_MSG_PUB.ADD;
5398: --dbms_output.put_line('Unit has expired');
5399: ELSIF (p_x_csi_item_instance_id IS NULL) THEN
5400: p_x_csi_item_instance_id := l_csi_item_instance_id;
5403:
5404: -- Validate for too many parameters.
5405: -- If both item instance and mr_id present then raise error.
5406: IF (p_mr_header_id IS NOT NULL AND p_x_csi_item_instance_id IS NOT NULL) THEN
5407: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5408: -- Fix for bug# 3962903.
5409: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5410: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5411: FND_MSG_PUB.ADD;
5405: -- If both item instance and mr_id present then raise error.
5406: IF (p_mr_header_id IS NOT NULL AND p_x_csi_item_instance_id IS NOT NULL) THEN
5407: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5408: -- Fix for bug# 3962903.
5409: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5410: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5411: FND_MSG_PUB.ADD;
5412: END IF;
5413:
5406: IF (p_mr_header_id IS NOT NULL AND p_x_csi_item_instance_id IS NOT NULL) THEN
5407: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5408: -- Fix for bug# 3962903.
5409: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5410: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5411: FND_MSG_PUB.ADD;
5412: END IF;
5413:
5414: -- If both p_unit_config_header_id and p_x_csi_item_instance_id are not
5415: -- null, then p_x_csi_item_instance_id should match l_csi_item_instance_id.
5416: IF ((p_x_csi_item_instance_id IS NOT NULL) AND
5417: (p_unit_config_header_id IS NOT NULL)) THEN
5418: IF (l_csi_item_instance_id <> p_x_csi_item_instance_id) THEN
5419: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5420: -- Fix for bug# 3962903.
5421: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5422: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5423: FND_MSG_PUB.ADD;
5417: (p_unit_config_header_id IS NOT NULL)) THEN
5418: IF (l_csi_item_instance_id <> p_x_csi_item_instance_id) THEN
5419: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5420: -- Fix for bug# 3962903.
5421: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5422: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5423: FND_MSG_PUB.ADD;
5424: END IF;
5425: END IF;
5418: IF (l_csi_item_instance_id <> p_x_csi_item_instance_id) THEN
5419: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INPUT_INVALID');
5420: -- Fix for bug# 3962903.
5421: --FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5422: --FND_MESSAGE.Set_Token('INST_ID',p_x_csi_item_instance_id);
5423: FND_MSG_PUB.ADD;
5424: END IF;
5425: END IF;
5426:
5428: IF (p_simulation_plan_id IS NOT NULL) THEN
5429: OPEN ahl_simulation_plan_csr (p_simulation_plan_id,p_unit_config_header_id);
5430: FETCH ahl_simulation_plan_csr INTO l_dummy_var;
5431: IF (ahl_simulation_plan_csr%NOTFOUND) THEN
5432: FND_MESSAGE.Set_Name('AHL','AHL_UMP_BUE_SIMID_NOTFOUND');
5433: FND_MSG_PUB.ADD;
5434: CLOSE ahl_simulation_plan_csr;
5435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5436: END IF;
5486: OPEN ahl_mr_headers_csr (p_mr_header_id);
5487: FETCH ahl_mr_headers_csr INTO l_mr_title, l_version_number,
5488: l_effective_to, l_effective_from;
5489: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5490: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5491: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5492: FND_MSG_PUB.ADD;
5493: CLOSE ahl_mr_headers_csr;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5487: FETCH ahl_mr_headers_csr INTO l_mr_title, l_version_number,
5488: l_effective_to, l_effective_from;
5489: IF (ahl_mr_headers_csr%NOTFOUND) THEN
5490: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_NOTFOUND');
5491: FND_MESSAGE.Set_Token('MR_ID',p_mr_header_id);
5492: FND_MSG_PUB.ADD;
5493: CLOSE ahl_mr_headers_csr;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5495: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5493: CLOSE ahl_mr_headers_csr;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5495: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5496: trunc(sysdate) > trunc(l_effective_to)) THEN
5497: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5498: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5499: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5500: FND_MSG_PUB.ADD;
5501: END IF;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5495: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5496: trunc(sysdate) > trunc(l_effective_to)) THEN
5497: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5498: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5499: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5500: FND_MSG_PUB.ADD;
5501: END IF;
5502:
5495: ELSIF ( trunc(l_effective_from) > trunc(sysdate) OR
5496: trunc(sysdate) > trunc(l_effective_to)) THEN
5497: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_MR_EXPIRED');
5498: FND_MESSAGE.Set_Token('TITLE',l_mr_title);
5499: FND_MESSAGE.Set_Token('VERSION',l_version_number);
5500: FND_MSG_PUB.ADD;
5501: END IF;
5502:
5503: CLOSE ahl_mr_headers_csr;
5507: IF (p_csi_item_instance_id IS NOT NULL) THEN
5508: OPEN csi_item_instances_csr (p_csi_item_instance_id);
5509: FETCH csi_item_instances_csr INTO l_instance_number; --, l_active_end_date;
5510: IF (csi_item_instances_csr%NOTFOUND) THEN
5511: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5512: FND_MESSAGE.Set_Token('INST_ID', p_csi_item_instance_id);
5513: FND_MSG_PUB.ADD;
5514: CLOSE csi_item_instances_csr;
5515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5508: OPEN csi_item_instances_csr (p_csi_item_instance_id);
5509: FETCH csi_item_instances_csr INTO l_instance_number; --, l_active_end_date;
5510: IF (csi_item_instances_csr%NOTFOUND) THEN
5511: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
5512: FND_MESSAGE.Set_Token('INST_ID', p_csi_item_instance_id);
5513: FND_MSG_PUB.ADD;
5514: CLOSE csi_item_instances_csr;
5515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5516: /* Bypass validation to fix bug# 8567880. If instance is expired, validate and delete UMP.
5515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5516: /* Bypass validation to fix bug# 8567880. If instance is expired, validate and delete UMP.
5517: Done in procedure process_unit.
5518: ELSIF (l_active_end_date < sysdate) THEN
5519: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5520: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5521: FND_MSG_PUB.ADD;
5522: */
5523: END IF;
5516: /* Bypass validation to fix bug# 8567880. If instance is expired, validate and delete UMP.
5517: Done in procedure process_unit.
5518: ELSIF (l_active_end_date < sysdate) THEN
5519: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INST_EXPIRED');
5520: FND_MESSAGE.Set_Token('NUMBER', l_instance_number);
5521: FND_MSG_PUB.ADD;
5522: */
5523: END IF;
5524: CLOSE csi_item_instances_csr;
5531: OPEN contract_number_csr;
5532: FETCH contract_number_csr INTO l_dummy;
5533: IF (contract_number_csr%NOTFOUND)
5534: THEN
5535: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_NOTFOUND');
5536: FND_MESSAGE.Set_Token('CONTRACT',p_contract_number);
5537: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5538: FND_MSG_PUB.ADD;
5539: END IF;
5532: FETCH contract_number_csr INTO l_dummy;
5533: IF (contract_number_csr%NOTFOUND)
5534: THEN
5535: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_NOTFOUND');
5536: FND_MESSAGE.Set_Token('CONTRACT',p_contract_number);
5537: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5538: FND_MSG_PUB.ADD;
5539: END IF;
5540: CLOSE contract_number_csr;
5533: IF (contract_number_csr%NOTFOUND)
5534: THEN
5535: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_NOTFOUND');
5536: FND_MESSAGE.Set_Token('CONTRACT',p_contract_number);
5537: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5538: FND_MSG_PUB.ADD;
5539: END IF;
5540: CLOSE contract_number_csr;
5541: ELSIF (p_contract_modifier IS NOT NULL and p_contract_modifier <> FND_API.G_MISS_CHAR)
5539: END IF;
5540: CLOSE contract_number_csr;
5541: ELSIF (p_contract_modifier IS NOT NULL and p_contract_modifier <> FND_API.G_MISS_CHAR)
5542: THEN
5543: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_MOD_INV');
5544: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5545: FND_MSG_PUB.ADD;
5546: END IF;
5547:
5540: CLOSE contract_number_csr;
5541: ELSIF (p_contract_modifier IS NOT NULL and p_contract_modifier <> FND_API.G_MISS_CHAR)
5542: THEN
5543: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_CONT_MOD_INV');
5544: FND_MESSAGE.Set_Token('MODIFIER',p_contract_modifier);
5545: FND_MSG_PUB.ADD;
5546: END IF;
5547:
5548: -- Validate for too many params(any combination of 2 is an issue)
5555: p_contract_number IS NOT NULL
5556: )
5557: )
5558: THEN
5559: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_PM_INPUT_INVALID');
5560: FND_MSG_PUB.ADD;
5561: END IF;
5562: END Validate_PM_Input_Parameters;
5563: -- Tamal: Bug #4207212, #4114368 End
5892: END IF;
5893:
5894: CLOSE check_for_pc_csr;
5895: -- invalid pc_header_id
5896: FND_MESSAGE.Set_Name('AHL','AHL_PC_NOT_FOUND');
5897: FND_MSG_PUB.ADD;
5898:
5899: retcode := 2;
5900: errbuf := FND_MSG_PUB.Get;