[Home] [Help]
800: FETCH c_visit_status INTO l_visit_status;
801: IF c_visit_status%NOTFOUND THEN
802: CLOSE c_visit_status;
803: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
804: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
805: Fnd_Msg_Pub.ADD;
806: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
807: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
808: END IF;
1241: OPEN c_proj_template(visit_rec.project_template_id);
1242: FETCH c_proj_template INTO l_visit_rec.proj_template_name;
1243: IF c_proj_template%NOTFOUND THEN
1244: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1245: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1246: Fnd_Msg_Pub.ADD;
1247: RAISE Fnd_Api.G_EXC_ERROR;
1248: END IF;
1249: END IF;
1589: x_lookup_code => l_Visit_rec.visit_type_code,
1590: x_return_status => l_return_status);
1591:
1592: IF NVL(l_return_status, 'X') <> 'S' THEN
1593: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
1594: Fnd_Msg_Pub.ADD;
1595: RAISE Fnd_Api.G_EXC_ERROR;
1596: END IF;
1597: END IF;
1603: IF c_unit_det%NOTFOUND THEN
1604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1606: END IF;
1607: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1608: Fnd_Msg_Pub.ADD;
1609: CLOSE c_unit_det;
1610: RAISE Fnd_Api.G_EXC_ERROR;
1611: END IF;
1633: x_return_status => l_return_status,
1634: x_error_msg_code => l_msg_data);
1635:
1636: IF NVL(l_return_status,'x') <> 'S' THEN
1637: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
1638: Fnd_Msg_Pub.ADD;
1639: RAISE Fnd_Api.G_EXC_ERROR;
1640: END IF;
1641: END IF;
1667: x_return_status => l_return_status,
1668: x_error_msg_code => l_msg_data);
1669:
1670: IF NVL(l_return_status,'x') <> 'S' THEN
1671: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1672: Fnd_Msg_Pub.ADD;
1673: RAISE Fnd_Api.G_EXC_ERROR;
1674: END IF;
1675:
1677: (p_dept_id => l_department_id,
1678: x_return_status => l_return_status);
1679:
1680: IF NVL(l_return_status,'x') <> 'S' THEN
1681: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1682: Fnd_Msg_Pub.ADD;
1683: RAISE Fnd_Api.G_EXC_ERROR;
1684: END IF;
1685: END IF;
1705: x_return_status => l_return_status,
1706: x_error_msg_code => l_msg_data);
1707:
1708: IF NVL(l_return_status,'x') <> 'S' THEN
1709: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
1710: Fnd_Msg_Pub.ADD;
1711: RAISE Fnd_Api.g_exc_error;
1712: END IF;
1713:
1761:
1762: -- To validate visit start date should be less than plan end date
1763: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
1764: IF (l_Visit_rec.START_DATE > l_Visit_rec.plan_end_date) THEN
1765: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
1766: Fnd_Msg_Pub.ADD;
1767: RAISE Fnd_Api.G_EXC_ERROR;
1768: END IF;
1769: END IF;
1780:
1781: l_Visit_rec.SIMULATION_PLAN_ID := l_simulation_plan_id;
1782:
1783: IF l_simulation_plan_id IS NULL THEN
1784: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_PLN_NOT_EXIST');
1785: Fnd_Msg_Pub.ADD;
1786: RAISE Fnd_Api.G_EXC_ERROR;
1787: END IF;
1788: END IF;
1802: x_lookup_code => l_priority_code,
1803: x_return_status => l_return_status);
1804:
1805: IF NVL(l_return_status, 'X') <> 'S' THEN
1806: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
1807: Fnd_Msg_Pub.ADD;
1808: RAISE Fnd_Api.G_EXC_ERROR;
1809: END IF;
1810: l_visit_rec.priority_code := l_priority_code;
1819: x_return_status => l_return_status,
1820: x_error_msg_code => l_msg_data);
1821:
1822: IF NVL(l_return_status, 'X') <> 'S' THEN
1823: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1824: Fnd_Msg_Pub.ADD;
1825: RAISE Fnd_Api.G_EXC_ERROR;
1826: END IF;
1827: l_visit_rec.proj_template_id := l_proj_template_id;
1834: /*Added by sowsubra - starts - Issue#86 changes*/
1835: l_dummy := NULL;
1836:
1837: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
1838: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
1839: Fnd_Msg_Pub.ADD;
1840: RAISE Fnd_Api.G_EXC_ERROR;
1841: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
1842: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
1838: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
1839: Fnd_Msg_Pub.ADD;
1840: RAISE Fnd_Api.G_EXC_ERROR;
1841: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
1842: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
1843: Fnd_Msg_Pub.ADD;
1844: RAISE Fnd_Api.G_EXC_ERROR;
1845: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
1846:
1847: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
1848: FETCH c_subinv_validate INTO l_status_id;
1849: IF (c_subinv_validate%NOTFOUND) THEN
1850: CLOSE c_subinv_validate;
1851: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
1852: Fnd_Msg_Pub.ADD;
1853: RAISE Fnd_Api.G_EXC_ERROR;
1854: ELSE
1855: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
1853: RAISE Fnd_Api.G_EXC_ERROR;
1854: ELSE
1855: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
1856: CLOSE c_subinv_validate;
1857: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
1858: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
1859: FND_MSG_PUB.ADD;
1860: RAISE Fnd_Api.G_EXC_ERROR;
1861: END IF;
1854: ELSE
1855: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
1856: CLOSE c_subinv_validate;
1857: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
1858: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
1859: FND_MSG_PUB.ADD;
1860: RAISE Fnd_Api.G_EXC_ERROR;
1861: END IF;
1862: END IF;
1866:
1867: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.subinventory,l_visit_rec.locator_segment );
1868: FETCH c_loc_validate INTO l_inv_loc_id;
1869: IF c_loc_validate%NOTFOUND THEN
1870: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
1871: Fnd_Msg_Pub.ADD;
1872: CLOSE c_loc_validate;
1873: RAISE Fnd_Api.G_EXC_ERROR;
1874: END IF;
1915:
1916: -- If the value for the ID already exists, then
1917: -- l_dummy would be populated with '1', otherwise, it receives NULL.
1918: IF l_dummy IS NOT NULL THEN
1919: Fnd_Message.SET_NAME('AHL','AHL_VWP_SEQUENCE_NOT_EXISTS');
1920: Fnd_Msg_Pub.ADD;
1921: END IF;
1922:
1923: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
1989:
1990: -- Instance ID is madatory for transit visit
1991: IF l_Visit_rec.item_instance_id IS NULL
1992: OR l_Visit_rec.item_instance_id = FND_API.G_MISS_NUM THEN
1993: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_UNIT_REQ');
1994: Fnd_Msg_Pub.ADD;
1995: END IF;
1996:
1997: -- Planned Start Date is madatory for transit visit
1995: END IF;
1996:
1997: -- Planned Start Date is madatory for transit visit
1998: IF l_visit_rec.START_DATE IS NULL OR l_visit_rec.START_DATE = FND_API.g_miss_date THEN
1999: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
2000: Fnd_Msg_Pub.ADD;
2001: END IF;
2002:
2003: -- Planned End Date is madatory for transit visit
2400: FETCH c_visit INTO c_visit_rec;
2401: IF c_Visit%NOTFOUND THEN
2402: CLOSE c_Visit;
2403: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2404: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2405: Fnd_Msg_Pub.ADD;
2406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2407: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2408: END IF;
2413: END IF;
2414:
2415: -- Check if the visit status is deleted.display error message if so. Added in 11.5.10
2416: IF UPPER(c_visit_rec.status_code) = 'DELETED' THEN
2417: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS');
2418: Fnd_Msg_Pub.ADD;
2419: RAISE Fnd_Api.G_EXC_ERROR;
2420: END IF;
2421:
2925: FETCH c_Visit INTO c_Visit_rec;
2926: IF c_Visit%NOTFOUND THEN
2927: CLOSE c_Visit;
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2930: Fnd_Msg_Pub.ADD;
2931: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2932: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2933: END IF;
2938: END IF;
2939:
2940: -- To validate Object version number.
2941: IF (c_visit_rec.object_version_number <> l_visit_rec.object_version_number) THEN
2942: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2943: Fnd_Msg_Pub.ADD;
2944: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2945: END IF;
2946: --------------------Value OR ID conversion---------------------------
2994: END IF;
2995:
2996: -- not allowed to update if status code is not planning, released or partially released.
2997: IF c_visit_rec.status_code NOT IN ('PLANNING','RELEASED', 'PARTIALLY RELEASED') THEN
2998: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS_NO_EDIT');
2999: Fnd_Msg_Pub.ADD;
3000: RAISE Fnd_Api.G_EXC_ERROR;
3001: END IF;
3002:
3025: x_return_status => l_return_status
3026: );
3027:
3028: IF NVL(l_return_status, 'X') <> 'S' THEN
3029: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
3030: Fnd_Msg_Pub.ADD;
3031: RAISE Fnd_Api.G_EXC_ERROR;
3032: END IF;
3033: END IF;
3048: x_return_status => l_return_status,
3049: x_error_msg_code => l_msg_data);
3050:
3051: IF NVL(l_return_status,'x') <> 'S' THEN
3052: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
3053: Fnd_Msg_Pub.ADD;
3054: RAISE Fnd_Api.g_exc_error;
3055: END IF;
3056:
3073: x_lookup_code => l_priority_code,
3074: x_return_status => l_return_status);
3075:
3076: IF NVL(l_return_status, 'X') <> 'S' THEN
3077: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
3078: Fnd_Msg_Pub.ADD;
3079: RAISE Fnd_Api.G_EXC_ERROR;
3080: END IF;
3081: l_visit_rec.priority_code := l_priority_code;
3093: x_return_status => l_return_status,
3094: x_error_msg_code => l_msg_data);
3095:
3096: IF NVL(l_return_status,'x') <> 'S' THEN
3097: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
3098: Fnd_Msg_Pub.ADD;
3099: RAISE Fnd_Api.G_EXC_ERROR;
3100: END IF;
3101:
3126: x_return_status => l_return_status,
3127: x_error_msg_code => l_msg_data);
3128:
3129: IF NVL(l_return_status,'x') <> 'S' THEN
3130: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3131: Fnd_Msg_Pub.ADD;
3132: RAISE Fnd_Api.G_EXC_ERROR;
3133: END IF;
3134:
3137: (p_dept_id => l_visit_rec.department_id,
3138: x_return_status => l_return_status);
3139:
3140: IF NVL(l_return_status,'x') <> 'S' THEN
3141: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3142: Fnd_Msg_Pub.ADD;
3143: RAISE Fnd_Api.G_EXC_ERROR;
3144: END IF;
3145:
3160: x_return_status => l_return_status,
3161: x_error_msg_code => l_msg_data);
3162:
3163: IF NVL(l_return_status, 'X') <> 'S' THEN
3164: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEMP');
3165: Fnd_Msg_Pub.ADD;
3166: RAISE Fnd_Api.G_EXC_ERROR;
3167: END IF;
3168: ELSE
3172: END IF;
3173:
3174: IF (l_proj_template_id <> c_visit_rec.project_template_id) AND (c_visit_rec.project_id IS NOT NULL) THEN
3175: -- Project Template cannot be updated if Project has been created for Visit
3176: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_CRTD');
3177: Fnd_Msg_Pub.ADD;
3178: RAISE Fnd_Api.G_EXC_ERROR;
3179: ELSE
3180: l_visit_rec.proj_template_id := l_proj_template_id;
3183: /*BB5854712 - sowsubra - starts*/
3184: l_dummy := NULL;
3185:
3186: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
3187: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3188: Fnd_Msg_Pub.ADD;
3189: RAISE Fnd_Api.G_EXC_ERROR;
3190: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3191: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3187: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3188: Fnd_Msg_Pub.ADD;
3189: RAISE Fnd_Api.G_EXC_ERROR;
3190: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3191: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3192: Fnd_Msg_Pub.ADD;
3193: RAISE Fnd_Api.G_EXC_ERROR;
3194: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
3195:
3196: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
3197: FETCH c_subinv_validate INTO l_status_id;
3198: IF c_subinv_validate%NOTFOUND THEN
3199: CLOSE c_subinv_validate;
3200: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
3201: Fnd_Msg_Pub.ADD;
3202: RAISE Fnd_Api.G_EXC_ERROR;
3203: ELSE
3204: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3202: RAISE Fnd_Api.G_EXC_ERROR;
3203: ELSE
3204: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3205: CLOSE c_subinv_validate;
3206: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3207: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3208: FND_MSG_PUB.ADD;
3209: RAISE Fnd_Api.G_EXC_ERROR;
3210: END IF;
3203: ELSE
3204: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3205: CLOSE c_subinv_validate;
3206: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3207: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3208: FND_MSG_PUB.ADD;
3209: RAISE Fnd_Api.G_EXC_ERROR;
3210: END IF;
3211: END IF;
3215:
3216: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.subinventory,l_visit_rec.locator_segment );
3217: FETCH c_loc_validate INTO l_inv_loc_id;
3218: IF c_loc_validate%NOTFOUND THEN
3219: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
3220: Fnd_Msg_Pub.ADD;
3221: CLOSE c_loc_validate;
3222: RAISE Fnd_Api.G_EXC_ERROR;
3223: END IF;
3252: --- Planned Start/End Dates are mandatory for visits which are in status Released/Partially Released
3253: --- as per the updates by Jay and Yan in the CMRO Forum, issue number 169
3254: IF c_visit_rec.status_code IN ('RELEASED', 'PARTIALLY RELEASED') THEN
3255: IF l_date_time_start IS NULL THEN
3256: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_DT_REQ');
3257: Fnd_Msg_Pub.ADD;
3258: RAISE FND_Api.G_EXC_ERROR;
3259: END IF;
3260:
3258: RAISE FND_Api.G_EXC_ERROR;
3259: END IF;
3260:
3261: IF l_date_time_end IS NULL THEN
3262: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
3263: Fnd_Msg_Pub.ADD;
3264: RAISE FND_Api.G_EXC_ERROR;
3265: END IF;
3266: END IF;
3268: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
3269: THEN
3270: -- Planned Start Date is madatory for transit visit
3271: IF l_date_time_start IS NULL THEN
3272: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
3273: Fnd_Msg_Pub.ADD;
3274: RAISE FND_Api.G_EXC_ERROR;
3275: END IF;
3276:
3275: END IF;
3276:
3277: -- Planned End Date is madatory for transit visit
3278: IF l_date_time_end IS NULL THEN
3279: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
3280: Fnd_Msg_Pub.ADD;
3281: RAISE FND_Api.G_EXC_ERROR;
3282: END IF;
3283: END IF;
3284:
3285: -- To validate visit start date should be less than plan end date
3286: IF l_date_time_end IS NOT NULL AND l_date_time_start IS NOT NULL THEN
3287: IF (l_date_time_start > l_date_time_end) THEN
3288: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
3289: Fnd_Msg_Pub.ADD;
3290: RAISE Fnd_Api.G_EXC_ERROR;
3291: END IF;
3292: END IF;
3930:
3931: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS
3932: THEN
3933: -- Method call was not successful, raise error
3934: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
3935: Fnd_Msg_Pub.ADD;
3936: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3937: fnd_log.string
3938: (
4081: FETCH c_Visit INTO l_Visit_rec;
4082: IF c_Visit%NOTFOUND THEN
4083: CLOSE c_Visit;
4084: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4085: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
4086: Fnd_Msg_Pub.ADD;
4087: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4088: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
4089: END IF;
4093: CLOSE c_Visit;
4094:
4095: -- Check the status of visit, if 'planning' then only delete
4096: IF UPPER(l_visit_rec.status_code) <> 'PLANNING' THEN
4097: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
4098: Fnd_Msg_Pub.ADD;
4099: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4100: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
4101: END IF;
4194: END IF;
4195:
4196: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4197: CLOSE c_Tasks_csr;
4198: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
4199: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
4200: Fnd_Msg_Pub.ADD;
4201: RAISE Fnd_Api.G_EXC_ERROR;
4202: END IF;
4195:
4196: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4197: CLOSE c_Tasks_csr;
4198: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
4199: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
4200: Fnd_Msg_Pub.ADD;
4201: RAISE Fnd_Api.G_EXC_ERROR;
4202: END IF;
4203: END LOOP;
4284: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
4285: END IF;
4286:
4287: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4288: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
4289: Fnd_Msg_Pub.ADD;
4290: RAISE Fnd_Api.G_EXC_ERROR;
4291: END IF;
4292: ELSE
4312: END IF;
4313:
4314: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4315: -- Method call was not successful, raise error
4316: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
4317: Fnd_Msg_Pub.ADD;
4318: RAISE Fnd_Api.G_EXC_ERROR;
4319: END IF;
4320: END IF; -- soft delete flag
4559: -- Only visit name is mandatory on create/update visit pages
4560: -- VISIT NAME
4561: IF (p_Visit_rec.visit_name IS NULL OR p_Visit_rec.visit_name = Fnd_Api.G_MISS_CHAR) THEN
4562: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4563: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
4564: Fnd_Msg_Pub.ADD;
4565: END IF;
4566: x_return_status := Fnd_Api.g_ret_sts_error;
4567: RETURN;
4569:
4570: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
4571: IF (p_Visit_rec.visit_type_code IS NULL OR p_Visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR)THEN
4572: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4573: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
4574: Fnd_Msg_Pub.ADD;
4575: END IF;
4576: x_return_status := Fnd_Api.g_ret_sts_error;
4577: RETURN;
4580: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
4581: -- ITEM ==== INVENTORY_ITEM_ID
4582: IF (p_Visit_rec.ITEM_NAME IS NULL OR p_Visit_rec.ITEM_NAME = Fnd_Api.G_MISS_CHAR) THEN
4583: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4584: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
4585: Fnd_Msg_Pub.ADD;
4586: END IF;
4587: x_return_status := Fnd_Api.g_ret_sts_error;
4588: RETURN;
4591: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
4592: IF (p_Visit_rec.SERIAL_NUMBER IS NULL OR p_Visit_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
4593:
4594: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4595: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
4596: Fnd_Msg_Pub.ADD;
4597: END IF;
4598: x_return_status := Fnd_Api.g_ret_sts_error;
4599: RETURN;
4630: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
4631: ) = Fnd_Api.g_false THEN
4632:
4633: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4634: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
4635: Fnd_Msg_Pub.ADD;
4636: END IF;
4637: x_return_status := Fnd_Api.g_ret_sts_error;
4638: RETURN;
4660: END IF;
4661:
4662: IF l_valid_flag = Fnd_Api.g_false THEN
4663: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4664: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
4665: Fnd_Msg_Pub.ADD;
4666: END IF;
4667: x_return_status := Fnd_Api.g_ret_sts_error;
4668: RETURN;
4836: OPEN get_open_job_task_csr(p_visit_id);
4837: FETCH get_open_job_task_csr INTO l_task_id;
4838: IF get_open_job_task_csr%FOUND THEN
4839: l_chk_flag := 'N';
4840: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_JOB_STATUS');
4841: Fnd_Msg_Pub.ADD;
4842: CLOSE get_open_job_task_csr;
4843: RAISE Fnd_Api.g_exc_error;
4844: END IF;
4849: OPEN get_ue_tasks_csr(p_visit_id);
4850: FETCH get_ue_tasks_csr INTO l_ue_id;
4851: IF get_ue_tasks_csr%FOUND THEN
4852: l_chk_flag :='N';
4853: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_CLOSE_INV');
4854: Fnd_Msg_Pub.ADD;
4855: CLOSE get_ue_tasks_csr;
4856: RAISE Fnd_Api.g_exc_error;
4857: END IF;
5076: END IF;
5077: -- End Code on 17th Feb 2004 by shbhanda
5078: END IF;
5079: ELSE
5080: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_RELEASED');
5081: Fnd_Msg_Pub.ADD;
5082: RAISE Fnd_Api.g_exc_error;
5083: END IF;
5084:
5244: FETCH c_visit INTO c_visit_rec;
5245: CLOSE c_visit;
5246:
5247: IF c_visit_rec.OBJECT_VERSION_NUMBER <> p_obj_ver_num THEN
5248: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
5249: Fnd_Msg_Pub.ADD;
5250: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252:
5373: END IF;
5374:
5375: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5376: -- Method call was not successful, raise error
5377: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5378: Fnd_Msg_Pub.ADD;
5379: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5380: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5381: 'Cant update the project to Rejected status');
5579: FETCH c_Visit INTO c_Visit_rec;
5580: IF c_Visit%NOTFOUND THEN
5581: CLOSE c_Visit;
5582: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5583: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5584: Fnd_Msg_Pub.ADD;
5585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5586: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
5587: END IF;
5634: -------------- R12 changes For Serial Number Reservations Start-------------------
5635: ---------------AnRaj added on 19th June 2005-------------------
5636: -- R12: Department is made mandatory
5637: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
5638: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
5639: Fnd_Msg_Pub.ADD;
5640: RAISE Fnd_Api.G_EXC_ERROR;
5641: END IF;
5642:
5651: -- Planned Start Date is madatory for transit visit
5652: IF l_visit_rec.START_DATE IS NULL
5653: OR l_visit_rec.START_DATE = FND_API.g_miss_date
5654: THEN
5655: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
5656: Fnd_Msg_Pub.ADD;
5657: RAISE Fnd_Api.G_EXC_ERROR;
5658: END IF;
5659:
5660: -- Planned End Date is madatory for transit visit
5661: IF l_visit_rec.PLAN_END_DATE IS NULL
5662: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
5663: THEN
5664: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
5665: Fnd_Msg_Pub.ADD;
5666: RAISE Fnd_Api.G_EXC_ERROR;
5667: END IF;
5668:
5667: END IF;
5668:
5669: -- Planned End Date must be greater than or equal to Planned Start Date
5670: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
5671: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
5672: Fnd_Msg_Pub.ADD;
5673: RAISE Fnd_Api.G_EXC_ERROR;
5674: END IF;
5675:
5688:
5689: l_visit_rec.organization_id := l_org_id;
5690:
5691: IF NVL(l_return_status,'x') <> 'S' THEN
5692: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
5693: Fnd_Msg_Pub.ADD;
5694: RAISE Fnd_Api.G_EXC_ERROR;
5695: END IF;
5696:
5699: (p_dept_id => l_visit_rec.department_id,
5700: x_return_status => l_return_status);
5701:
5702: IF NVL(l_return_status,'x') <> 'S' THEN
5703: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
5704: Fnd_Msg_Pub.ADD;
5705: RAISE Fnd_Api.G_EXC_ERROR;
5706: END IF;
5707:
5955: -- If the Visit header has an instance id, check for the corresponding Unit
5956: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
5957: IF l_quarantined = FND_API.G_TRUE THEN
5958: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
5959: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
5960: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
5961: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
5962: Fnd_Msg_Pub.ADD;
5963: -- log message
5957: IF l_quarantined = FND_API.G_TRUE THEN
5958: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
5959: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
5960: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
5961: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
5962: Fnd_Msg_Pub.ADD;
5963: -- log message
5964: IF (l_log_statement >= l_log_current_level)THEN
5965: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_unit_name || 'Unit is quarantined, Error message added');
5972: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
5973: EXIT WHEN c_get_tasknumbers%NOTFOUND;
5974: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
5975: IF l_quarantined = FND_API.G_TRUE THEN
5976: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
5977: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
5978: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
5979: Fnd_Msg_Pub.ADD;
5980: -- log message
5974: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
5975: IF l_quarantined = FND_API.G_TRUE THEN
5976: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
5977: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
5978: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
5979: Fnd_Msg_Pub.ADD;
5980: -- log message
5981: IF (l_log_statement >= l_log_current_level)THEN
5982: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_task_number || 'Unit for this task is quarantined.');