[Home] [Help]
400: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
401: IF G_DEBUG='Y' THEN
402: Ahl_Debug_Pub.debug ( 'OPERATION_SEQUENCE NUMBER PROB');
403: END IF;
404: Fnd_Message.set_name ('AHL', 'AHL_PP_OPER_SEQ_MISSING');
405: Fnd_Msg_Pub.ADD;
406: END IF;
407: x_return_status := Fnd_Api.g_ret_sts_error;
408: RETURN;
414: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
415: IF G_DEBUG='Y' THEN
416: Ahl_Debug_Pub.debug ( 'ONLY POSITIVE');
417: END IF;
418: Fnd_Message.set_name ('AHL', 'AHL_PP_ONLY_POSITIVE_VALUE');
419: Fnd_Msg_Pub.ADD;
420: END IF;
421: x_return_status := Fnd_Api.g_ret_sts_error;
422: RETURN;
425:
426: -- RESOURCE_SEQ_NUMBER
427: IF (p_resrc_Require_rec.RESOURCE_SEQ_NUMBER IS NULL OR p_resrc_Require_rec.RESOURCE_SEQ_NUMBER = Fnd_Api.G_MISS_NUM) THEN
428: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
429: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_SEQ_MISSING');
430: Fnd_Msg_Pub.ADD;
431: END IF;
432: x_return_status := Fnd_Api.g_ret_sts_error;
433: RETURN;
436: -- RESOURCE_SEQ_NUMBER -- Positive / Multiples of 10
437: IF (p_resrc_Require_rec.RESOURCE_SEQ_NUMBER IS NOT NULL AND p_resrc_Require_rec.RESOURCE_SEQ_NUMBER <> Fnd_Api.G_MISS_NUM) THEN
438: IF p_resrc_Require_rec.RESOURCE_SEQ_NUMBER < 0 THEN
439: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
440: Fnd_Message.set_name ('AHL', 'AHL_PP_ONLY_POSITIVE_VALUE');
441: Fnd_Msg_Pub.ADD;
442: END IF;
443: x_return_status := Fnd_Api.g_ret_sts_error;
444: RETURN;
445: END IF;
446:
447: IF (p_resrc_Require_rec.RESOURCE_SEQ_NUMBER mod 10) <> 0 THEN
448: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
449: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_SEQ_MULTI_OF_TEN');
450: Fnd_Msg_Pub.ADD;
451: END IF;
452: x_return_status := Fnd_Api.g_ret_sts_error;
453: RETURN;
472: )
473: THEN
474:
475: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
476: Fnd_Message.set_name ('AHL', 'AHL_COM_SCHED_SEQ_INV');
477: Fnd_Msg_Pub.ADD;
478: END IF;
479: x_return_status := Fnd_Api.g_ret_sts_error;
480: RETURN;
491: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- RESOURCE_NAME ='|| p_resrc_Require_rec.RESOURCE_NAME);
492: END IF;
493:
494: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
495: Fnd_Message.set_name ('AHL', 'AHL_PP_RESOURCE_MISSING');
496: Fnd_Msg_Pub.ADD;
497: END IF;
498: x_return_status := Fnd_Api.g_ret_sts_error;
499: RETURN;
508: IF G_DEBUG='Y' THEN
509: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Duration =' || p_resrc_Require_rec.Duration);
510: END IF;
511: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
512: Fnd_Message.set_name ('AHL', 'AHL_PP_DURATION_MISSING');
513: Fnd_Msg_Pub.ADD;
514: END IF;
515: x_return_status := Fnd_Api.g_ret_sts_error;
516: RETURN;
518: -- DURATION - Positive
519: IF (p_resrc_Require_rec.Duration IS NOT NULL AND p_resrc_Require_rec.Duration <> Fnd_Api.G_MISS_NUM) THEN
520: IF p_resrc_Require_rec.Duration < 0 THEN
521: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
522: Fnd_Message.set_name ('AHL', 'AHL_PP_ONLY_POSITIVE_VALUE');
523: Fnd_Msg_Pub.ADD;
524: END IF;
525: x_return_status := Fnd_Api.g_ret_sts_error;
526: RETURN;
534:
535: IF (p_resrc_Require_rec.QUANTITY IS NULL OR p_resrc_Require_rec.QUANTITY = Fnd_Api.G_MISS_NUM) THEN
536: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
538: Fnd_Message.set_name ('AHL', 'AHL_PP_QUANTITY_MISSING');
539: Fnd_Msg_Pub.ADD;
540: END IF;
541: x_return_status := Fnd_Api.g_ret_sts_error;
542: RETURN;
545: -- QUANTITY - Positive
546: IF (p_resrc_Require_rec.QUANTITY IS NOT NULL AND p_resrc_Require_rec.QUANTITY <> Fnd_Api.G_MISS_NUM) THEN
547: IF p_resrc_Require_rec.QUANTITY < 0 THEN
548: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
549: Fnd_Message.set_name ('AHL', 'AHL_PP_ONLY_POSITIVE_VALUE');
550: Fnd_Msg_Pub.ADD;
551: END IF;
552: x_return_status := Fnd_Api.g_ret_sts_error;
553: RETURN;
560: END IF;
561:
562: IF (p_resrc_Require_rec.REQ_START_DATE IS NULL OR p_resrc_Require_rec.REQ_START_DATE = Fnd_Api.G_MISS_DATE) THEN
563: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
564: Fnd_Message.set_name ('AHL', 'AHL_PP_REQUIRE_ST_DT_MISSING');
565: Fnd_Msg_Pub.ADD;
566: END IF;
567: x_return_status := Fnd_Api.g_ret_sts_error;
568: RETURN;
574: END IF;
575:
576: IF (p_resrc_Require_rec.REQ_END_DATE IS NULL OR p_resrc_Require_rec.REQ_END_DATE = Fnd_Api.G_MISS_DATE) THEN
577: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
578: Fnd_Message.set_name ('AHL', 'AHL_PP_REQUIRE_END_DT_MISSING');
579: Fnd_Msg_Pub.ADD;
580: END IF;
581: x_return_status := Fnd_Api.g_ret_sts_error;
582: RETURN;
600: -- Validate the active dates.
601: IF l_Require_start_date IS NOT NULL AND l_Require_end_date IS NOT NULL THEN
602: IF l_Require_start_date > l_Require_end_date THEN
603: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
604: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_FROMDT_GTR_TODT');
605: Fnd_Msg_Pub.ADD;
606: END IF;
607: x_return_status := Fnd_Api.g_ret_sts_error;
608: RETURN;
616: FETCH c_wo_oper INTO l_eff_st_date, l_eff_end_date, l_sch_st_date, l_sch_end_date;
617: IF c_wo_oper%NOTFOUND THEN
618: CLOSE c_wo_oper;
619: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--If condition--');
620: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
621: Fnd_Msg_Pub.ADD;
622: ELSE
623: CLOSE c_wo_oper;
624: END IF;
626: OPEN c_oper_req(p_resrc_Require_rec.OPERATION_RESOURCE_ID);
627: FETCH c_oper_req INTO c_oper_req_rec;
628: IF c_oper_req%NOTFOUND THEN
629: CLOSE c_oper_req;
630: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_OPER_NOT_EXISTS');
631: Fnd_Msg_Pub.ADD;
632: ELSE
633: CLOSE c_oper_req;
634: OPEN c_wo_oper(c_oper_req_rec.WORKORDER_OPERATION_ID);
635: FETCH c_wo_oper INTO l_eff_st_date, l_eff_end_date, l_sch_st_date, l_sch_end_date;
636: IF c_wo_oper%NOTFOUND THEN
637: CLOSE c_wo_oper;
638: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Else If condition--');
639: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
640: Fnd_Msg_Pub.ADD;
641: ELSE
642: CLOSE c_wo_oper;
643: END IF;
666: IF l_eff_st_date IS NOT NULL THEN
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Actual Start Date =' || l_eff_st_date);
668: IF l_Require_start_date < l_eff_st_date THEN
669: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
670: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_LESS_ACT_STDT');
671: Fnd_Msg_Pub.ADD;
672: END IF;
673: x_return_status := Fnd_Api.g_ret_sts_error;
674: RETURN;
676: ELSIF l_sch_st_date IS NOT NULL THEN
677: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Scheduled Start Date =' || l_sch_st_date);
678: IF l_Require_start_date < l_sch_st_date THEN
679: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
680: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_LESS_SCH_STDT');
681: Fnd_Msg_Pub.ADD;
682: END IF;
683: x_return_status := Fnd_Api.g_ret_sts_error;
684: RETURN;
688: IF l_eff_end_date IS NOT NULL THEN
689: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Actual Start Date =' || l_eff_st_date);
690: IF l_Require_start_date > l_eff_end_date THEN
691: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
692: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_MORE_ACT_EDDT');
693: Fnd_Msg_Pub.ADD;
694: END IF;
695: x_return_status := Fnd_Api.g_ret_sts_error;
696: RETURN;
698: ELSIF l_sch_end_date IS NOT NULL THEN
699: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Scheduled End Date =' || l_sch_end_date);
700: IF l_Require_start_date > l_sch_end_date THEN
701: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
702: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_MORE_SCH_EDDT');
703: Fnd_Msg_Pub.ADD;
704: END IF;
705: x_return_status := Fnd_Api.g_ret_sts_error;
706: RETURN;
713: IF l_eff_end_date IS NOT NULL THEN
714: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Actual End Date =' || l_eff_end_date);
715: IF l_Require_end_date > l_eff_end_date THEN
716: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
717: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_MORE_ACT_EDDT');
718: Fnd_Msg_Pub.ADD;
719: END IF;
720: x_return_status := Fnd_Api.g_ret_sts_error;
721: RETURN;
723: ELSIF l_sch_end_date IS NOT NULL THEN
724: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Scheduled End Date =' || l_sch_end_date);
725: IF l_Require_end_date > l_sch_end_date THEN
726: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
727: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_MORE_SCH_EDDT');
728: Fnd_Msg_Pub.ADD;
729: END IF;
730: x_return_status := Fnd_Api.g_ret_sts_error;
731: RETURN;
735: IF l_eff_st_date IS NOT NULL THEN
736: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Actual Start Date =' || l_eff_st_date);
737: IF l_Require_end_date < l_eff_st_date THEN
738: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
739: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_LESS_ACT_STDT');
740: Fnd_Msg_Pub.ADD;
741: END IF;
742: x_return_status := Fnd_Api.g_ret_sts_error;
743: RETURN;
745: ELSIF l_sch_st_date IS NOT NULL THEN
746: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Scheduled Start Date =' || l_sch_st_date);
747: IF l_Require_end_date < l_sch_st_date THEN
748: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
749: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_LESS_SCH_STDT');
750: Fnd_Msg_Pub.ADD;
751: END IF;
752: x_return_status := Fnd_Api.g_ret_sts_error;
753: RETURN;
814: IF l_valid_flag = Fnd_Api.g_false
815: THEN
816:
817: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
818: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_NOT_UNIQUE');
819: Fnd_Msg_Pub.ADD;
820: END IF;
821: x_return_status := Fnd_Api.g_ret_sts_error;
822: RETURN;
949: ELSE
950: l_resource_type_code := p_resrc_Require_rec.resource_type_code;
951: END IF;
952: IF (l_resource_type_code NOT IN (1,2)) AND p_resrc_Require_rec.scheduled_type_code = 1 THEN
953: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_INVALID_SCHEDULE_TYPE' );
954: Fnd_Msg_Pub.ADD;
955: RAISE Fnd_Api.g_exc_error;
956: END IF;
957: END IF;
1255: FETCH c_wo_oper INTO l_wo_operation_id;
1256: IF c_wo_oper%NOTFOUND THEN
1257: CLOSE c_wo_oper;
1258: Ahl_Debug_Pub.debug('NO SEQ');
1259: Fnd_Message.SET_NAME('AHL','AHL_PP_OPER_SEQ_NOT_EXISTS');
1260: Fnd_Msg_Pub.ADD;
1261: ELSE
1262: CLOSE c_wo_oper;
1263: l_Resrc_Require_Rec.workorder_operation_id := l_wo_operation_id;
1271: IF l_count > 0 THEN
1272: IF G_DEBUG='Y' THEN
1273: Ahl_Debug_Pub.debug('UNIQ 1');
1274: END IF;
1275: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_SEQ_NOT_UNIQUE');
1276: Fnd_Msg_Pub.ADD;
1277: END IF;
1278: END IF; -- Check resrc sequence number
1279: END IF; -- Check c_wo_oper%NOTFOUND
1279: END IF; -- Check c_wo_oper%NOTFOUND
1280:
1281: END IF; -- Check of Oper sequence number
1282: ELSE
1283: Fnd_Message.SET_NAME('AHL','AHL_PP_JOB_NOT_EXISTS');
1284: Fnd_Msg_Pub.ADD;
1285: END IF; -- Check of work order id
1286:
1287: --rroy
1290:
1291: OPEN c_workorder(l_Resrc_Require_Rec.workorder_id);
1292: FETCH c_workorder INTO c_workorder_rec;
1293: IF c_workorder%NOTFOUND THEN
1294: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
1295: Fnd_Msg_Pub.ADD;
1296: END IF;
1297: CLOSE c_workorder;
1298: END IF;
1302: p_ue_id => NULL,
1303: p_visit_id => NULL,
1304: p_item_instance_id => NULL);
1305: IF l_return_status = FND_API.G_TRUE THEN
1306: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_CRT_RESREQ_UNTLCKD');
1307: FND_MSG_PUB.ADD;
1308: RAISE FND_API.G_EXC_ERROR;
1309: END IF;
1310: --rroy
1378: x_return_status => l_return_status);
1379:
1380: IF NVL(l_return_status, 'X') <> 'S'
1381: THEN
1382: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_TYPE_NOT_EXISTS');
1383: Fnd_Msg_Pub.ADD;
1384: RAISE Fnd_Api.G_EXC_ERROR;
1385: END IF;
1386: END IF;
1406: );
1407:
1408: IF NVL(l_return_status, 'X') <> 'S'
1409: THEN
1410: Fnd_Message.SET_NAME('AHL','AHL_PP_RESOURCE_NOT_EXISTS');
1411: Fnd_Msg_Pub.ADD;
1412: RAISE Fnd_Api.G_EXC_ERROR;
1413: END IF;
1414: END IF;
1428: --
1429: OPEN c_resources(l_Resrc_Require_Rec.Resource_Id);
1430: FETCH c_resources INTO l_resrc_dept_id;
1431: IF c_resources%NOTFOUND THEN
1432: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_DEPT_NOT_EXISTS');
1433: Fnd_Msg_Pub.ADD;
1434: END IF;
1435: CLOSE c_resources;
1436:
1435: CLOSE c_resources;
1436:
1437: -- check resource id dept matches the operation dept.
1438: IF (l_resrc_dept_id <> l_department_id) THEN
1439: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_DEPT_NOT_EXISTS');
1440: Fnd_Msg_Pub.ADD;
1441: END IF;
1442:
1443: --Convert Uom code
1453: OPEN c_UOM(l_Resrc_Require_Rec.UOM_NAME);
1454: FETCH c_UOM INTO l_Resrc_Require_Rec.UOM_CODE;
1455: IF c_UOM%NOTFOUND THEN
1456: CLOSE c_UOM;
1457: Fnd_Message.SET_NAME('AHL','AHL_PP_UOM_NOT_EXISTS');
1458: Fnd_Msg_Pub.ADD;
1459: ELSE
1460: CLOSE c_UOM;
1461: END IF;
1474: x_return_status => l_return_status);
1475:
1476: IF NVL(l_return_status, 'X') <> 'S'
1477: THEN
1478: Fnd_Message.SET_NAME('AHL','AHL_PP_CHARGE_TYPE_NOT_EXISTS');
1479: Fnd_Msg_Pub.ADD;
1480: RAISE Fnd_Api.G_EXC_ERROR;
1481: END IF;
1482: END IF;
1498: x_return_status => l_return_status);
1499:
1500: IF NVL(l_return_status, 'X') <> 'S'
1501: THEN
1502: Fnd_Message.SET_NAME('AHL','AHL_PP_COST_BASIS_NOT_EXISTS');
1503: Fnd_Msg_Pub.ADD;
1504: RAISE Fnd_Api.G_EXC_ERROR;
1505: END IF;
1506: END IF;
1522: x_return_status => l_return_status);
1523:
1524: IF NVL(l_return_status, 'X') <> 'S'
1525: THEN
1526: Fnd_Message.SET_NAME('AHL','AHL_PP_SCHED_TYPE_NOT_EXISTS');
1527: Fnd_Msg_Pub.ADD;
1528: RAISE Fnd_Api.G_EXC_ERROR;
1529: END IF;
1530: END IF;
1912: FETCH Sch_id_exists INTO l_dummy;
1913: CLOSE Sch_id_exists;
1914: --
1915: IF l_dummy IS NOT NULL THEN
1916: Fnd_Message.SET_NAME('AHL','AHL_PP_SEQUENCE_NO_EXISTS');
1917: Fnd_Msg_Pub.ADD;
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920: IF G_DEBUG='Y' THEN
2306: p_ue_id => NULL,
2307: p_visit_id => NULL,
2308: p_item_instance_id => NULL);
2309: IF l_return_status = FND_API.G_TRUE THEN
2310: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_UPD_RESREQ_UNTLCKD');
2311: FND_MSG_PUB.ADD;
2312: RAISE FND_API.G_EXC_ERROR;
2313: END IF;
2314:
2397: x_return_status => l_return_status);
2398:
2399: IF NVL(l_return_status, 'X') <> 'S'
2400: THEN
2401: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_TYPE_NOT_EXISTS');
2402: Fnd_Msg_Pub.ADD;
2403: RAISE Fnd_Api.G_EXC_ERROR;
2404: END IF;
2405: END IF;
2421: );
2422:
2423: IF NVL(l_return_status, 'X') <> 'S'
2424: THEN
2425: Fnd_Message.SET_NAME('AHL','AHL_PP_RESOURCE_NOT_EXISTS');
2426: Fnd_Msg_Pub.ADD;
2427: RAISE Fnd_Api.G_EXC_ERROR;
2428: END IF;
2429: END IF;
2436: -- RESOURCE_TYPE_NAME
2437: IF (l_Resrc_Require_Rec.RESOURCE_TYPE_NAME IS NULL OR l_Resrc_Require_Rec.RESOURCE_TYPE_NAME = Fnd_Api.G_MISS_CHAR) THEN
2438: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Type Name =' || l_Resrc_Require_Rec.RESOURCE_TYPE_NAME);
2439: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2440: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_TYPE_MISSING');
2441: Fnd_Msg_Pub.ADD;
2442: END IF;
2443: END IF;
2444:
2446: -- RESOURCE_NAME
2447: IF (l_Resrc_Require_Rec.RESOURCE_NAME IS NULL OR l_Resrc_Require_Rec.RESOURCE_NAME = Fnd_Api.G_MISS_CHAR) THEN
2448: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
2449: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2450: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_NAME_MISSING');
2451: Fnd_Msg_Pub.ADD;
2452: END IF;
2453: END IF;
2454:
2456: /*OPEN c_workorder(l_Resrc_Require_Rec.workorder_id);
2457: FETCH c_workorder INTO c_workorder_rec;
2458: IF c_workorder%NOTFOUND THEN
2459: CLOSE c_workorder;
2460: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
2461: Fnd_Msg_Pub.ADD;
2462: ELSE
2463: CLOSE c_workorder;*/
2464:
2465: OPEN c_resources(l_Resrc_Require_Rec.Resource_Id);
2466: FETCH c_resources INTO l_resrc_dept_id;
2467: IF c_resources%NOTFOUND THEN
2468: CLOSE c_resources;
2469: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_DEPT_NOT_EXISTS');
2470: Fnd_Msg_Pub.ADD;
2471: ELSE
2472: CLOSE c_resources;
2473: --IF l_resrc_dept_id = c_workorder_rec.department_id THEN
2471: ELSE
2472: CLOSE c_resources;
2473: --IF l_resrc_dept_id = c_workorder_rec.department_id THEN
2474: IF l_resrc_dept_id <> l_department_id THEN
2475: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_DEPT_NOT_EXISTS');
2476: Fnd_Msg_Pub.ADD;
2477: END IF;
2478: END IF;
2479:
2490: OPEN c_UOM(l_Resrc_Require_Rec.UOM_NAME);
2491: FETCH c_UOM INTO l_Resrc_Require_Rec.UOM_CODE;
2492: IF c_UOM%NOTFOUND THEN
2493: CLOSE c_UOM;
2494: Fnd_Message.SET_NAME('AHL','AHL_PP_UOM_NOT_EXISTS');
2495: Fnd_Msg_Pub.ADD;
2496: ELSE
2497: CLOSE c_UOM;
2498: END IF;
2522: x_return_status => l_return_status);
2523:
2524: IF NVL(l_return_status, 'X') <> 'S'
2525: THEN
2526: Fnd_Message.SET_NAME('AHL','AHL_PP_CHARGE_TYPE_NOT_EXISTS');
2527: Fnd_Msg_Pub.ADD;
2528: RAISE Fnd_Api.G_EXC_ERROR;
2529: END IF;
2530: END IF;
2546: x_return_status => l_return_status);
2547:
2548: IF NVL(l_return_status, 'X') <> 'S'
2549: THEN
2550: Fnd_Message.SET_NAME('AHL','AHL_PP_COST_BASIS_NOT_EXISTS');
2551: Fnd_Msg_Pub.ADD;
2552: RAISE Fnd_Api.G_EXC_ERROR;
2553: END IF;
2554: END IF;
2570: x_return_status => l_return_status);
2571:
2572: IF NVL(l_return_status, 'X') <> 'S'
2573: THEN
2574: Fnd_Message.SET_NAME('AHL','AHL_PP_SCHED_TYPE_NOT_EXISTS');
2575: Fnd_Msg_Pub.ADD;
2576: RAISE Fnd_Api.G_EXC_ERROR;
2577: END IF;
2578: END IF;
2744: Ahl_Debug_Pub.debug ( l_full_name || ' Cursor Object Version Nubmer = ' || c_oper_req_rec.object_version_number);
2745: END IF;
2746: IF (c_oper_req_rec.object_version_number <> l_Resrc_Require_Rec.object_version_number)
2747: THEN
2748: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
2749: Fnd_Msg_Pub.ADD;
2750: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2751: --
2752: END IF;
3457: --
3458: OPEN Get_resource_cur (p_x_resrc_Require_tbl(i).operation_resource_id);
3459: FETCH Get_resource_cur INTO l_resource_rec;
3460: IF Get_resource_cur%NOTFOUND THEN
3461: Fnd_Message.Set_Name('AHL','AHL_PP_RECORD_INVALID');
3462: Fnd_Msg_Pub.ADD;
3463: CLOSE Get_resource_cur;
3464: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3465: END IF;
3476: THEN
3477: IF(p_x_resrc_Require_tbl(i).object_version_number <> l_resource_rec.object_version_number )
3478: THEN
3479: --
3480: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3481: Fnd_Msg_Pub.ADD;
3482: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3483: END IF;
3484: END IF;
3511: p_ue_id => NULL,
3512: p_visit_id => NULL,
3513: p_item_instance_id => NULL);
3514: IF l_return_status = FND_API.G_TRUE THEN
3515: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_DEL_RESREQ_UNTLCKD');
3516: FND_MSG_PUB.ADD;
3517: RAISE FND_API.G_EXC_ERROR;
3518: END IF;
3519:
3525: l_wo_oper_rec.operation_sequence_num,
3526: l_resource_rec.resource_sequence_num);
3527: FETCH check_resrc_txn INTO l_junk;
3528: IF (check_resrc_txn%FOUND) THEN
3529: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_DEL_RESREQ_RESTXN');
3530: FND_MESSAGE.Set_Token('OPER_RES', l_wo_oper_rec.operation_sequence_num || '-' || l_resource_rec.resource_sequence_num);
3531: FND_MSG_PUB.ADD;
3532: CLOSE check_resrc_txn;
3533: RAISE FND_API.G_EXC_ERROR;
3526: l_resource_rec.resource_sequence_num);
3527: FETCH check_resrc_txn INTO l_junk;
3528: IF (check_resrc_txn%FOUND) THEN
3529: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_DEL_RESREQ_RESTXN');
3530: FND_MESSAGE.Set_Token('OPER_RES', l_wo_oper_rec.operation_sequence_num || '-' || l_resource_rec.resource_sequence_num);
3531: FND_MSG_PUB.ADD;
3532: CLOSE check_resrc_txn;
3533: RAISE FND_API.G_EXC_ERROR;
3534: END IF;
3650: CLOSE c_chk_assgn;
3651:
3652: IF l_count > 0 THEN
3653: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3654: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_ASSIGN_EXITS');
3655: FND_MESSAGE.SET_TOKEN('RECORD',p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER,FALSE);
3656: Fnd_Msg_Pub.ADD;
3657: ELSE
3658: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3651:
3652: IF l_count > 0 THEN
3653: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3654: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_ASSIGN_EXITS');
3655: FND_MESSAGE.SET_TOKEN('RECORD',p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER,FALSE);
3656: Fnd_Msg_Pub.ADD;
3657: ELSE
3658: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3659: Ahl_Debug_Pub.debug ('BEFORE DELETE RESOURCES' || p_x_resrc_Require_tbl(i).Operation_Resource_Id);