[Home] [Help]
5: -- Declare Constants --
6: -----------------------
7: G_PKG_NAME VARCHAR2(30):= 'AHL_PP_RESRC_REQUIRE_PVT';
8: G_MODULE_TYPE VARCHAR2(30);
9: G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
10:
11: -------------------------------------------------
12: -- Declare Locally used Record and Table Types --
13: -------------------------------------------------
85: )
86: IS
87: BEGIN
88: IF G_DEBUG='Y' THEN
89: Ahl_Debug_Pub.debug( ': Inside Check Serial Number= ' || p_serial_number);
90: END IF;
91:
92: IF (p_serial_number IS NOT NULL) THEN
93: SELECT instance_id
95: FROM BOM_DEPT_RES_INSTANCES
96: WHERE SERIAL_NUMBER = p_serial_number;
97: END IF;
98: IF G_DEBUG='Y' THEN
99: Ahl_Debug_Pub.debug(': Inside Check Serial Id= ' || x_serial_id);
100: END IF;
101:
102: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
103: EXCEPTION
138: AND AWV.WORKORDER_ID = p_workorder_id AND BR.RESOURCE_CODE = p_resource_code;
139: END IF;
140:
141: IF G_DEBUG='Y' THEN
142: Ahl_Debug_Pub.debug(': Inside Check Resource Id= ' || x_Resource_id);
143: END IF;
144:
145: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
146: EXCEPTION
385: FROM AHL_WORKORDER_OPERATIONS_V WHERE WORKORDER_OPERATION_ID = x_id;
386:
387: BEGIN
388: IF G_DEBUG='Y' THEN
389: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
390: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
391: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
392: END IF;
393:
386:
387: BEGIN
388: IF G_DEBUG='Y' THEN
389: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
390: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
391: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
392: END IF;
393:
394: IF p_resrc_Require_rec.OPERATION_RESOURCE_ID = Fnd_Api.G_MISS_NUM OR p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL THEN
387: BEGIN
388: IF G_DEBUG='Y' THEN
389: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
390: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
391: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
392: END IF;
393:
394: IF p_resrc_Require_rec.OPERATION_RESOURCE_ID = Fnd_Api.G_MISS_NUM OR p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL THEN
395: IF G_DEBUG='Y' THEN
392: END IF;
393:
394: IF p_resrc_Require_rec.OPERATION_RESOURCE_ID = Fnd_Api.G_MISS_NUM OR p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL THEN
395: IF G_DEBUG='Y' THEN
396: Ahl_Debug_Pub.debug('Inside Check_Resrc_Require_Req_Items check while adding');
397: END IF;
398: -- OPERATION_SEQ_NUMBER
399: IF (p_resrc_Require_rec.OPERATION_SEQ_NUMBER IS NULL OR p_resrc_Require_rec.OPERATION_SEQ_NUMBER = Fnd_Api.G_MISS_NUM) THEN
400: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
398: -- OPERATION_SEQ_NUMBER
399: IF (p_resrc_Require_rec.OPERATION_SEQ_NUMBER IS NULL OR p_resrc_Require_rec.OPERATION_SEQ_NUMBER = Fnd_Api.G_MISS_NUM) THEN
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;
412: IF (p_resrc_Require_rec.OPERATION_SEQ_NUMBER IS NOT NULL AND p_resrc_Require_rec.OPERATION_SEQ_NUMBER <> Fnd_Api.G_MISS_NUM) THEN
413: IF p_resrc_Require_rec.OPERATION_SEQ_NUMBER < 0 THEN
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;
455: END IF;
456: END IF;
457:
458: IF G_DEBUG='Y' THEN
459: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Check other valid fileds');
460: END IF;
461: -- Schedule seq number validation
462: -- JKJAIN US space FP for ER # 6998882-- start
463: IF (
487: IF g_MODULE_TYPE='JSP' THEN
488:
489: IF p_Resrc_Require_Rec.RESOURCE_NAME IS NULL OR p_Resrc_Require_Rec.RESOURCE_NAME = Fnd_Api.G_MISS_CHAR THEN
490: IF G_DEBUG='Y' THEN
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');
500: END IF;
501: END IF;
502:
503: IF G_DEBUG='Y' THEN
504: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Duration =' || p_resrc_Require_rec.Duration);
505: END IF;
506: -- DURATION
507: IF (p_resrc_Require_rec.Duration IS NULL OR p_resrc_Require_rec.Duration = Fnd_Api.G_MISS_NUM) THEN
508: IF G_DEBUG='Y' THEN
505: END IF;
506: -- DURATION
507: IF (p_resrc_Require_rec.Duration IS NULL OR p_resrc_Require_rec.Duration = Fnd_Api.G_MISS_NUM) THEN
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;
528: END IF;
529:
530: -- QUANTITY
531: IF G_DEBUG='Y' THEN
532: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
533: END IF;
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);
532: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
533: END IF;
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;
555: END IF;
556:
557: -- REQ_START_DATE
558: IF G_DEBUG='Y' THEN
559: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- REQ_START_DATE =' || p_resrc_Require_rec.REQ_START_DATE);
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
569: END IF;
570:
571: -- REQ_END_DATE
572: IF G_DEBUG='Y' THEN
573: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- REQ_START_DATE =' || p_resrc_Require_rec.REQ_START_DATE);
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
591: l_Require_end_date := p_resrc_Require_rec.Req_end_date;
592: END IF;
593:
594: IF G_DEBUG='Y' THEN
595: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Start Date =' || l_Require_start_date);
596: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- End Date =' || l_Require_end_date);
597: END IF;
598:
599: --
592: END IF;
593:
594: IF G_DEBUG='Y' THEN
595: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Start Date =' || l_Require_start_date);
596: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- End Date =' || l_Require_end_date);
597: END IF;
598:
599: --
600: -- Validate the active dates.
615: OPEN c_wo_oper(p_resrc_Require_rec.WORKORDER_OPERATION_ID);
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;
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;
646:
647:
648:
649: IF G_DEBUG='Y' THEN
650: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
647:
648:
649: IF G_DEBUG='Y' THEN
650: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
648:
649: IF G_DEBUG='Y' THEN
650: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
649: IF G_DEBUG='Y' THEN
650: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
650: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
651: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
652: Ahl_Debug_Pub.debug('**************************************************************************');
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
660: END IF;
653: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
660: END IF;
661: -- bug 4092197
654: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
660: END IF;
661: -- bug 4092197
662: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
655: Ahl_Debug_Pub.debug('**************************************************************************');
656: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
660: END IF;
661: -- bug 4092197
662: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
663: --l_Require_end_date := TO_DATE(l_Require_end_date,'DD-MON-YYYY');
661: -- bug 4092197
662: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
663: --l_Require_end_date := TO_DATE(l_Require_end_date,'DD-MON-YYYY');
664: IF l_Require_start_date IS NOT NULL THEN
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Start Date =' || l_Require_start_date);
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
663: --l_Require_end_date := TO_DATE(l_Require_end_date,'DD-MON-YYYY');
664: IF l_Require_start_date IS NOT NULL THEN
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Start Date =' || l_Require_start_date);
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;
673: x_return_status := Fnd_Api.g_ret_sts_error;
674: RETURN;
675: END IF;
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;
685: END IF;
686: END IF;
687:
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;
695: x_return_status := Fnd_Api.g_ret_sts_error;
696: RETURN;
697: END IF;
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;
708: END IF;
709: END IF;
710:
711: IF l_Require_end_date IS NOT NULL THEN
712: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- End Date =' || l_Require_end_date);
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
710:
711: IF l_Require_end_date IS NOT NULL THEN
712: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- End Date =' || l_Require_end_date);
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;
720: x_return_status := Fnd_Api.g_ret_sts_error;
721: RETURN;
722: END IF;
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;
732: END IF;
733: END IF;
734:
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;
742: x_return_status := Fnd_Api.g_ret_sts_error;
743: RETURN;
744: END IF;
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;
773:
774: --
775: -- For when ID is passed in, we need to check if this ID is unique.
776: IF G_DEBUG='Y' THEN
777: Ahl_Debug_Pub.enable_debug;
778: END IF;
779: IF G_DEBUG='Y' THEN
780: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
781: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
776: IF G_DEBUG='Y' THEN
777: Ahl_Debug_Pub.enable_debug;
778: END IF;
779: IF G_DEBUG='Y' THEN
780: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
781: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
782: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
783: END IF;
784:
777: Ahl_Debug_Pub.enable_debug;
778: END IF;
779: IF G_DEBUG='Y' THEN
780: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
781: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
782: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
783: END IF;
784:
785: IF p_validation_mode = Jtf_Plsql_Api.g_create AND (p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL OR p_resrc_Require_rec.OPERATION_RESOURCE_ID = FND_API.g_miss_num) THEN
778: END IF;
779: IF G_DEBUG='Y' THEN
780: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
781: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
782: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
783: END IF;
784:
785: IF p_validation_mode = Jtf_Plsql_Api.g_create AND (p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL OR p_resrc_Require_rec.OPERATION_RESOURCE_ID = FND_API.g_miss_num) THEN
786: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
782: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
783: END IF;
784:
785: IF p_validation_mode = Jtf_Plsql_Api.g_create AND (p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL OR p_resrc_Require_rec.OPERATION_RESOURCE_ID = FND_API.g_miss_num) THEN
786: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
787: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
788: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
789:
790: l_valid_flag := Ahl_Utility_Pvt.check_uniqueness (
783: END IF;
784:
785: IF p_validation_mode = Jtf_Plsql_Api.g_create AND (p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL OR p_resrc_Require_rec.OPERATION_RESOURCE_ID = FND_API.g_miss_num) THEN
786: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
787: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
788: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
789:
790: l_valid_flag := Ahl_Utility_Pvt.check_uniqueness (
791: 'AHL_OPERATION_RESOURCES',
792: 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
793: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID
794: );
795: ELSE
796: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
797:
798: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
799: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
800:
804: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
805: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID
806: );
807:
808: Ahl_Debug_Pub.debug( 'l_valid_flag cccc -->' || l_valid_flag);
809: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
810: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
811: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
812: END IF;
805: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID
806: );
807:
808: Ahl_Debug_Pub.debug( 'l_valid_flag cccc -->' || l_valid_flag);
809: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
810: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
811: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
812: END IF;
813:
838: BEGIN
839: --
840: -- Validate Required items.
841: IF G_DEBUG='Y' THEN
842: Ahl_Debug_Pub.debug('BEFORE ..... Check_Resrc_Require_Req_Items');
843: END IF;
844: Check_Resrc_Require_Req_Items (
845: p_resrc_Require_rec => p_resrc_Require_rec,
846: x_return_status => x_return_status
896: BEGIN
897: --------------------- initialize -----------------------
898: -- Check if API is called in debug mode. If yes, enable debug.
899: IF G_DEBUG='Y' THEN
900: Ahl_Debug_Pub.enable_debug;
901: END IF;
902: -- Debug info.
903: IF G_DEBUG='Y' THEN
904: Ahl_Debug_Pub.debug( l_full_name ||':Start');
900: Ahl_Debug_Pub.enable_debug;
901: END IF;
902: -- Debug info.
903: IF G_DEBUG='Y' THEN
904: Ahl_Debug_Pub.debug( l_full_name ||':Start');
905: END IF;
906:
907: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
908: Fnd_Msg_Pub.initialize;
919: x_return_status := Fnd_Api.g_ret_sts_success;
920:
921: ---------------------- validate ------------------------
922: IF G_DEBUG='Y' THEN
923: Ahl_Debug_Pub.debug( l_full_name ||':Check items');
924: END IF;
925:
926: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
927: Check_Resrc_Require_Items (
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: IF G_DEBUG='Y' THEN
966: Ahl_Debug_Pub.debug( l_full_name ||':End');
967: END IF;
968:
969: -- Check if API is called in debug mode. If yes, disable debug.
970: IF G_DEBUG='Y' THEN
967: END IF;
968:
969: -- Check if API is called in debug mode. If yes, disable debug.
970: IF G_DEBUG='Y' THEN
971: Ahl_Debug_Pub.disable_debug;
972: END IF;
973:
974: EXCEPTION
975: WHEN Fnd_Api.g_exc_error THEN
1194: -- Standard Start of API savepoint
1195: SAVEPOINT Create_Resrc_Require;
1196: -- Check if API is called in debug mode. If yes, enable debug.
1197: IF G_DEBUG='Y' THEN
1198: AHL_DEBUG_PUB.enable_debug;
1199: END IF;
1200: IF G_DEBUG='Y' THEN
1201: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1202: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1197: IF G_DEBUG='Y' THEN
1198: AHL_DEBUG_PUB.enable_debug;
1199: END IF;
1200: IF G_DEBUG='Y' THEN
1201: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1202: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1203: END IF;
1204: -- Debug info.
1205: -- Dbms_Output.Enable(50000);
1198: AHL_DEBUG_PUB.enable_debug;
1199: END IF;
1200: IF G_DEBUG='Y' THEN
1201: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1202: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1203: END IF;
1204: -- Debug info.
1205: -- Dbms_Output.Enable(50000);
1206: IF G_DEBUG='Y' THEN
1203: END IF;
1204: -- Debug info.
1205: -- Dbms_Output.Enable(50000);
1206: IF G_DEBUG='Y' THEN
1207: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require_PVT. Create_Resrc_Require +PPResrc_Require_Pvt+');
1208: END IF;
1209: G_MODULE_TYPE:=P_MODULE_TYPE;
1210:
1211: -- Standard call to check for call compatibility.
1235: THEN
1236: l_Resrc_Require_Rec.resource_id := NULL;
1237: END IF;
1238: IF G_DEBUG='Y' THEN
1239: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1236: l_Resrc_Require_Rec.resource_id := NULL;
1237: END IF;
1238: IF G_DEBUG='Y' THEN
1239: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1237: END IF;
1238: IF G_DEBUG='Y' THEN
1239: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1238: IF G_DEBUG='Y' THEN
1239: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1239: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1247: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1240: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1247: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1248:
1241: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1247: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1248:
1249: END IF;
1242: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1247: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1248:
1249: END IF;
1250:
1243: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1244: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1245: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1246: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1247: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1248:
1249: END IF;
1250:
1251: IF l_Resrc_Require_Rec.workorder_id IS NOT NULL THEN
1254: OPEN c_wo_oper(l_Resrc_Require_Rec.workorder_id, l_Resrc_Require_Rec.operation_seq_number);
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;
1269: CLOSE c_resrc_seq;
1270:
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;
1357: END IF;
1358: -- Bug # 6728602 -- end
1359:
1360: IF G_DEBUG='Y' THEN
1361: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1362: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1363: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1364: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1365: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1358: -- Bug # 6728602 -- end
1359:
1360: IF G_DEBUG='Y' THEN
1361: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1362: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1363: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1364: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1365: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1366: END IF;
1359:
1360: IF G_DEBUG='Y' THEN
1361: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1362: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1363: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1364: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1365: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1366: END IF;
1367: --
1360: IF G_DEBUG='Y' THEN
1361: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1362: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1363: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1364: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1365: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1366: END IF;
1367: --
1368: -- For Resource Type
1361: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1362: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1363: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1364: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1365: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1366: END IF;
1367: --
1368: -- For Resource Type
1369: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
1384: RAISE Fnd_Api.G_EXC_ERROR;
1385: END IF;
1386: END IF;
1387: IF G_DEBUG='Y' THEN
1388: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1389: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1390: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1391:
1392: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1385: END IF;
1386: END IF;
1387: IF G_DEBUG='Y' THEN
1388: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1389: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1390: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1391:
1392: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1393: END IF;
1386: END IF;
1387: IF G_DEBUG='Y' THEN
1388: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1389: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1390: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1391:
1392: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1393: END IF;
1394: -- For Resource
1388: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1389: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1390: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1391:
1392: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1393: END IF;
1394: -- For Resource
1395: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
1396: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
1412: RAISE Fnd_Api.G_EXC_ERROR;
1413: END IF;
1414: END IF;
1415: IF G_DEBUG='Y' THEN
1416: Ahl_Debug_Pub.debug ( l_full_name || '*******************AFTER RESOURCE NAME CHECK');
1417: END IF;
1418:
1419: IF p_module_type = 'JSP'
1420: THEN
1480: RAISE Fnd_Api.G_EXC_ERROR;
1481: END IF;
1482: END IF;
1483: IF G_DEBUG='Y' THEN
1484: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1485: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1486: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1487: END IF;
1488: -- For Cost Basis
1481: END IF;
1482: END IF;
1483: IF G_DEBUG='Y' THEN
1484: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1485: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1486: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1487: END IF;
1488: -- For Cost Basis
1489: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
1482: END IF;
1483: IF G_DEBUG='Y' THEN
1484: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1485: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1486: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1487: END IF;
1488: -- For Cost Basis
1489: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
1490: l_Resrc_Require_Rec.COST_BASIS_NAME <> Fnd_Api.G_MISS_CHAR )
1504: RAISE Fnd_Api.G_EXC_ERROR;
1505: END IF;
1506: END IF;
1507: IF G_DEBUG='Y' THEN
1508: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1509: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1510: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1511: END IF;
1512: -- For Scheduled Type
1505: END IF;
1506: END IF;
1507: IF G_DEBUG='Y' THEN
1508: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1509: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1510: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1511: END IF;
1512: -- For Scheduled Type
1513: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
1506: END IF;
1507: IF G_DEBUG='Y' THEN
1508: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1509: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1510: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1511: END IF;
1512: -- For Scheduled Type
1513: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
1514: l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
1528: RAISE Fnd_Api.G_EXC_ERROR;
1529: END IF;
1530: END IF;
1531: IF G_DEBUG='Y' THEN
1532: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1533: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
1534: END IF;
1535: -- To find meaning for fnd_lookups code
1536: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
1529: END IF;
1530: END IF;
1531: IF G_DEBUG='Y' THEN
1532: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1533: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
1534: END IF;
1535: -- To find meaning for fnd_lookups code
1536: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
1537: l_Resrc_Require_Rec.STD_RATE_FLAG_CODE <> Fnd_Api.G_MISS_NUM) THEN
1545: END IF;
1546:
1547: -------------------------------- Validate -----------------------------------------
1548: IF G_DEBUG='Y' THEN
1549: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Validate_Resrc_Require****');
1550: END IF;
1551:
1552: -- Schedule seq number validation
1553: -- JKJAIN US space FP for ER # 6998882-- start
1578: x_msg_data => x_msg_data
1579: );
1580: END IF;
1581: IF G_DEBUG='Y' THEN
1582: Ahl_Debug_Pub.debug ( l_full_name || ' ******After calling Validate_Resrc_Require****');
1583: END IF;
1584: --Standard check to count messages
1585: l_msg_count := Fnd_Msg_Pub.count_msg;
1586:
1593: --
1594: IF l_Resrc_Require_Rec.Operation_Resource_Id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
1595: THEN
1596: IF G_DEBUG='Y' THEN
1597: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE DEFAULT VALUES****');
1598: END IF;
1599:
1600: -- These conditions are Required for optional fields
1601: IF (l_Resrc_Require_Rec.CHARGE_TYPE_CODE IS NULL OR
1762:
1763: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
1764: END IF;
1765: IF G_DEBUG='Y' THEN
1766: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE DEFAULT VALUES****');
1767: END IF;
1768:
1769: END LOOP;
1770: END IF;
1768:
1769: END LOOP;
1770: END IF;
1771: IF G_DEBUG='Y' THEN
1772: Ahl_Debug_Pub.debug ('p_interface_flag'||p_interface_flag);
1773: END IF;
1774: IF nvl(p_interface_flag,'Y')= 'Y' THEN
1775: -- CALL Load_WIP_Jobs API
1776: -- If not sucess then not allowed to insert in our entity
1787: j:=1;
1788: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
1789: LOOP
1790: IF G_DEBUG='Y' THEN
1791: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1792: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1793: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1794: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1795: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1788: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
1789: LOOP
1790: IF G_DEBUG='Y' THEN
1791: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1792: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1793: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1794: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1795: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1796: END IF;
1789: LOOP
1790: IF G_DEBUG='Y' THEN
1791: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1792: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1793: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1794: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1795: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1796: END IF;
1797: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1790: IF G_DEBUG='Y' THEN
1791: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1792: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1793: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1794: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1795: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1796: END IF;
1797: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1798: l_Resrc_Require_Tbl(j).wip_entity_id := l_wip_entity_id;
1791: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1792: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1793: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1794: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1795: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1796: END IF;
1797: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1798: l_Resrc_Require_Tbl(j).wip_entity_id := l_wip_entity_id;
1799: l_Resrc_Require_Tbl(j).job_number := l_workorder_name;
1817: l_Resrc_Require_Tbl(j).scheduled_type_code := p_x_resrc_Require_tbl(i).SCHEDULED_TYPE_CODE;
1818: l_Resrc_Require_Tbl(j).operation_flag := 'C';
1819:
1820: IF G_DEBUG='Y' THEN
1821: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1818: l_Resrc_Require_Tbl(j).operation_flag := 'C';
1819:
1820: IF G_DEBUG='Y' THEN
1821: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1819:
1820: IF G_DEBUG='Y' THEN
1821: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1820: IF G_DEBUG='Y' THEN
1821: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1821: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1822: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1823: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1824: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1832: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
1825: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1832: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
1833: END IF;
1826: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1832: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
1833: END IF;
1834:
1827: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1832: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
1833: END IF;
1834:
1835: j := j + 1;
1828: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
1829: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
1830: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
1831: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
1832: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
1833: END IF;
1834:
1835: j := j + 1;
1836: END LOOP;
1857: -- not chking return status causes data corruption - see bug# 7632674
1858: -- Raise errors if exceptions occur
1859: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1860: IF G_DEBUG='Y' THEN
1861: Ahl_Debug_Pub.debug ('Error returned from AHL_EAM_JOB_PVT.process_resource_req:'||l_return_status);
1862: END IF;
1863: RAISE FND_API.G_EXC_ERROR;
1864: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1865: IF G_DEBUG='Y' THEN
1862: END IF;
1863: RAISE FND_API.G_EXC_ERROR;
1864: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1865: IF G_DEBUG='Y' THEN
1866: Ahl_Debug_Pub.debug ('Error returned from AHL_EAM_JOB_PVT.process_resource_req:'||l_return_status);
1867: END IF;
1868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1869: END IF;
1870: END IF;
1871:
1872: END IF; -- interface flag
1873:
1874: IF G_DEBUG='Y' THEN
1875: Ahl_Debug_Pub.debug ('after wip load p_interface_flag'||l_return_status);
1876: Ahl_Debug_Pub.debug ('after wip load p_x_resrc_Require_tbl.COUNT'||p_x_resrc_Require_tbl.COUNT);
1877:
1878: END IF;
1879:
1872: END IF; -- interface flag
1873:
1874: IF G_DEBUG='Y' THEN
1875: Ahl_Debug_Pub.debug ('after wip load p_interface_flag'||l_return_status);
1876: Ahl_Debug_Pub.debug ('after wip load p_x_resrc_Require_tbl.COUNT'||p_x_resrc_Require_tbl.COUNT);
1877:
1878: END IF;
1879:
1880: --Standard check to count messages
1890: IF p_x_resrc_Require_tbl.COUNT > 0 THEN
1891: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
1892: LOOP
1893: IF G_DEBUG='Y' THEN
1894: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE REQUIRE LOOP****');
1895: END IF;
1896:
1897: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
1898: IF l_Resrc_Require_Rec.Operation_Resource_id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
1897: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
1898: IF l_Resrc_Require_Rec.Operation_Resource_id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
1899: THEN
1900: IF G_DEBUG='Y' THEN
1901: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE REQUIRE ID IF CASE****');
1902: END IF;
1903:
1904: --
1905: -- Get Sequence Number for Resource Requirement ID
1917: Fnd_Msg_Pub.ADD;
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920: IF G_DEBUG='Y' THEN
1921: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
1922: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
1923: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
1924: END IF;
1925:
1918: RAISE FND_API.G_EXC_ERROR;
1919: END IF;
1920: IF G_DEBUG='Y' THEN
1921: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
1922: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
1923: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
1924: END IF;
1925:
1926: -- Create Record in schedule Resources
1919: END IF;
1920: IF G_DEBUG='Y' THEN
1921: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
1922: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
1923: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
1924: END IF;
1925:
1926: -- Create Record in schedule Resources
1927: Insert_Row (
1957: X_ATTRIBUTE14 => l_Resrc_Require_Rec.attribute14,
1958: X_ATTRIBUTE15 => l_Resrc_Require_Rec.attribute15
1959: );
1960: IF G_DEBUG='Y' THEN
1961: Ahl_Debug_Pub.debug ( l_full_name || ' ******After calling Insert_Row****');
1962: END IF;
1963:
1964: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
1965: END IF;
1967: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
1968: INTO l_wo_operation_txn_id
1969: FROM DUAL;
1970: IF G_DEBUG='Y' THEN
1971: AHL_DEBUG_PUB.debug( 'before calling log record l_wo_operation_txn_id:'||l_wo_operation_txn_id);
1972: END IF;
1973:
1974: -- Create Record in transactions table
1975: AHL_PP_MATERIALS_PVT.Log_Transaction_Record
1988: p_res_sched_start_date => p_x_resrc_Require_tbl(i).REQ_START_DATE,
1989: p_res_sched_end_date => p_x_resrc_Require_tbl(i).REQ_START_DATE
1990: );
1991: IF G_DEBUG='Y' THEN
1992: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE IF CASE****');
1993: END IF;
1994: END LOOP;
1995: IF G_DEBUG='Y' THEN
1996: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE LOOP****');
1992: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE IF CASE****');
1993: END IF;
1994: END LOOP;
1995: IF G_DEBUG='Y' THEN
1996: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE LOOP****');
1997: END IF;
1998:
1999: END IF;
2000:
2013: COMMIT;
2014: END IF;
2015: IF G_DEBUG='Y' THEN
2016: -- Debug info
2017: Ahl_Debug_Pub.debug( 'End of public api Create Resource Reqst +PPResrc_Require_Pvt+');
2018: -- Check if API is called in debug mode. If yes, disable debug.
2019: Ahl_Debug_Pub.disable_debug;
2020: --
2021: END IF;
2015: IF G_DEBUG='Y' THEN
2016: -- Debug info
2017: Ahl_Debug_Pub.debug( 'End of public api Create Resource Reqst +PPResrc_Require_Pvt+');
2018: -- Check if API is called in debug mode. If yes, disable debug.
2019: Ahl_Debug_Pub.disable_debug;
2020: --
2021: END IF;
2022:
2023: EXCEPTION
2028: p_count => x_msg_count,
2029: p_data => x_msg_data);
2030: IF G_DEBUG='Y' THEN
2031: -- Debug info.
2032: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2033:
2034: -- Check if API is called in debug mode. If yes, disable debug.
2035: AHL_DEBUG_PUB.disable_debug;
2036: END IF;
2031: -- Debug info.
2032: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2033:
2034: -- Check if API is called in debug mode. If yes, disable debug.
2035: AHL_DEBUG_PUB.disable_debug;
2036: END IF;
2037:
2038: WHEN FND_API.G_EXC_ERROR THEN
2039: ROLLBACK TO Create_Resrc_Require;
2042: p_count => x_msg_count,
2043: p_data => X_msg_data);
2044: IF G_DEBUG='Y' THEN
2045:
2046: Ahl_Debug_Pub.debug('Inside Exception' || '**UNEXPECTED ERRORS');
2047: -- Debug info.
2048: AHL_DEBUG_PUB.log_app_messages (
2049: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2050:
2044: IF G_DEBUG='Y' THEN
2045:
2046: Ahl_Debug_Pub.debug('Inside Exception' || '**UNEXPECTED ERRORS');
2047: -- Debug info.
2048: AHL_DEBUG_PUB.log_app_messages (
2049: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2050:
2051: -- Check if API is called in debug mode. If yes, disable debug.
2052: AHL_DEBUG_PUB.disable_debug;
2048: AHL_DEBUG_PUB.log_app_messages (
2049: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2050:
2051: -- Check if API is called in debug mode. If yes, disable debug.
2052: AHL_DEBUG_PUB.disable_debug;
2053: END IF;
2054:
2055: WHEN OTHERS THEN
2056: ROLLBACK TO Create_Resrc_Require;
2055: WHEN OTHERS THEN
2056: ROLLBACK TO Create_Resrc_Require;
2057: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2058:
2059: Ahl_Debug_Pub.debug('Inside Exception' || '**SQL ERRORS');
2060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2061: THEN
2062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_RESRC_Require_PVT',
2063: p_procedure_name => 'Create_Resrc_Require',
2068: p_data => X_msg_data);
2069: IF G_DEBUG='Y' THEN
2070:
2071: -- Debug info.
2072: AHL_DEBUG_PUB.log_app_messages (
2073: x_msg_count, x_msg_data, 'SQL ERROR' );
2074:
2075: -- Check if API is called in debug mode. If yes, disable debug.
2076: AHL_DEBUG_PUB.disable_debug;
2072: AHL_DEBUG_PUB.log_app_messages (
2073: x_msg_count, x_msg_data, 'SQL ERROR' );
2074:
2075: -- Check if API is called in debug mode. If yes, disable debug.
2076: AHL_DEBUG_PUB.disable_debug;
2077: END IF;
2078:
2079: END Create_Resrc_Require;
2080:
2249:
2250: -- Check if API is called in debug mode. If yes, enable debug.
2251: IF G_DEBUG='Y' THEN
2252:
2253: AHL_DEBUG_PUB.enable_debug;
2254:
2255: -- Debug info.
2256: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt. Update Resource Requirement +PPResrc_Require_Pvt+');
2257: END IF;
2252:
2253: AHL_DEBUG_PUB.enable_debug;
2254:
2255: -- Debug info.
2256: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt. Update Resource Requirement +PPResrc_Require_Pvt+');
2257: END IF;
2258:
2259: G_MODULE_TYPE:=P_MODULE_TYPE;
2260: -- Standard call to check for call compatibility.
2278: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
2279: LOOP
2280: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
2281: IF G_DEBUG='Y' THEN
2282: Ahl_Debug_Pub.debug ( l_full_name || 'OPERATION_RESOURCE_ID = ' || l_Resrc_Require_Rec.OPERATION_RESOURCE_ID);
2283: END IF;
2284: --------------------Value OR ID conversion---------------------------
2285: --Start API Body
2286: IF p_module_type = 'JSP'
2331: -- requested end date
2332: -- Bug # 6728602 -- start
2333:
2334: IF G_DEBUG='Y' THEN
2335: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.req_start_date = ' || to_char(l_Resrc_Require_Rec.req_start_date,'DD-MON-YYYY HH24:MI:SS'));
2336: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.req_end_date = ' || to_char(l_Resrc_Require_Rec.req_end_date,'DD-MON-YYYY HH24:MI:SS'));
2337: END IF;
2338: IF(l_Resrc_Require_Rec.req_start_date < l_op_start_date OR l_Resrc_Require_Rec.req_start_date > l_op_end_date)THEN
2339: l_Resrc_Require_Rec.req_start_date := l_op_start_date;
2332: -- Bug # 6728602 -- start
2333:
2334: IF G_DEBUG='Y' THEN
2335: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.req_start_date = ' || to_char(l_Resrc_Require_Rec.req_start_date,'DD-MON-YYYY HH24:MI:SS'));
2336: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.req_end_date = ' || to_char(l_Resrc_Require_Rec.req_end_date,'DD-MON-YYYY HH24:MI:SS'));
2337: END IF;
2338: IF(l_Resrc_Require_Rec.req_start_date < l_op_start_date OR l_Resrc_Require_Rec.req_start_date > l_op_end_date)THEN
2339: l_Resrc_Require_Rec.req_start_date := l_op_start_date;
2340: END IF;
2374: END IF;*/
2375: -- Bug # 6728602 -- end
2376: -- end of changes for bug 4092197
2377: IF G_DEBUG='Y' THEN
2378: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2379: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2380: END IF;
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2375: -- Bug # 6728602 -- end
2376: -- end of changes for bug 4092197
2377: IF G_DEBUG='Y' THEN
2378: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2379: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2380: END IF;
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2383: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2377: IF G_DEBUG='Y' THEN
2378: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2379: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2380: END IF;
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2383: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2384: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2385: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2379: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2380: END IF;
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2383: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2384: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2385: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2386:
2387: -- For Resource Type
2380: END IF;
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2383: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2384: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2385: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2386:
2387: -- For Resource Type
2388: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
2381: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2382:
2383: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2384: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2385: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2386:
2387: -- For Resource Type
2388: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
2389: l_Resrc_Require_Rec.resource_type_name <> Fnd_Api.G_MISS_CHAR )
2403: RAISE Fnd_Api.G_EXC_ERROR;
2404: END IF;
2405: END IF;
2406:
2407: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
2408: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
2409: -- For Resource
2410: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
2411: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
2404: END IF;
2405: END IF;
2406:
2407: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
2408: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
2409: -- For Resource
2410: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
2411: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
2412: THEN
2427: RAISE Fnd_Api.G_EXC_ERROR;
2428: END IF;
2429: END IF;
2430: IF G_DEBUG='Y' THEN
2431: Ahl_Debug_Pub.debug ( l_full_name || 'After Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2432: END IF;
2433: --Assign workorder
2434: l_Resrc_Require_Rec.workorder_id := l_workorder_id;
2435:
2434: l_Resrc_Require_Rec.workorder_id := l_workorder_id;
2435:
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;
2441: Fnd_Msg_Pub.ADD;
2442: END IF;
2443: END IF;
2444:
2445: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
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
2444:
2445: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
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;
2451: Fnd_Msg_Pub.ADD;
2452: END IF;
2453: END IF;
2454:
2455: Ahl_Debug_Pub.debug ( l_full_name || 'After WORKORDER ID = ' || l_Resrc_Require_Rec.workorder_id);
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;
2479:
2480: --END IF;
2481:
2482: IF G_DEBUG='Y' THEN
2483: Ahl_Debug_Pub.debug ( l_full_name || ' Unit of Measure = ' || l_Resrc_Require_Rec.UOM_Name);
2484: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2485: END IF;
2486: -- For Units of Measure
2487: IF l_Resrc_Require_Rec.UOM_NAME IS NOT NULL AND
2480: --END IF;
2481:
2482: IF G_DEBUG='Y' THEN
2483: Ahl_Debug_Pub.debug ( l_full_name || ' Unit of Measure = ' || l_Resrc_Require_Rec.UOM_Name);
2484: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2485: END IF;
2486: -- For Units of Measure
2487: IF l_Resrc_Require_Rec.UOM_NAME IS NOT NULL AND
2488: l_Resrc_Require_Rec.UOM_NAME <> Fnd_Api.G_MISS_CHAR
2504: --
2505: p_x_resrc_Require_tbl(i).uom_code := l_Resrc_Require_Rec.UOM_CODE;
2506:
2507: IF G_DEBUG='Y' THEN
2508: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2509: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2510: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2511: END IF;
2512: -- For AutoCharge Type
2505: p_x_resrc_Require_tbl(i).uom_code := l_Resrc_Require_Rec.UOM_CODE;
2506:
2507: IF G_DEBUG='Y' THEN
2508: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2509: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2510: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2511: END IF;
2512: -- For AutoCharge Type
2513: IF ( l_Resrc_Require_Rec.CHARGE_TYPE_NAME IS NOT NULL AND
2506:
2507: IF G_DEBUG='Y' THEN
2508: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2509: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2510: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2511: END IF;
2512: -- For AutoCharge Type
2513: IF ( l_Resrc_Require_Rec.CHARGE_TYPE_NAME IS NOT NULL AND
2514: l_Resrc_Require_Rec.CHARGE_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
2528: RAISE Fnd_Api.G_EXC_ERROR;
2529: END IF;
2530: END IF;
2531: IF G_DEBUG='Y' THEN
2532: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2533: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2534: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2535: END IF;
2536: -- For Cost Basis
2529: END IF;
2530: END IF;
2531: IF G_DEBUG='Y' THEN
2532: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2533: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2534: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2535: END IF;
2536: -- For Cost Basis
2537: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
2530: END IF;
2531: IF G_DEBUG='Y' THEN
2532: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2533: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2534: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2535: END IF;
2536: -- For Cost Basis
2537: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
2538: l_Resrc_Require_Rec.COST_BASIS_NAME <> Fnd_Api.G_MISS_CHAR )
2552: RAISE Fnd_Api.G_EXC_ERROR;
2553: END IF;
2554: END IF;
2555: IF G_DEBUG='Y' THEN
2556: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2557: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2558: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2559: END IF;
2560: -- For Scheduled Type
2553: END IF;
2554: END IF;
2555: IF G_DEBUG='Y' THEN
2556: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2557: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2558: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2559: END IF;
2560: -- For Scheduled Type
2561: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
2554: END IF;
2555: IF G_DEBUG='Y' THEN
2556: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2557: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2558: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2559: END IF;
2560: -- For Scheduled Type
2561: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
2562: l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
2576: RAISE Fnd_Api.G_EXC_ERROR;
2577: END IF;
2578: END IF;
2579: IF G_DEBUG='Y' THEN
2580: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2581: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
2582: END IF;
2583: -- To find meaning for fnd_lookups code
2584: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
2577: END IF;
2578: END IF;
2579: IF G_DEBUG='Y' THEN
2580: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2581: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
2582: END IF;
2583: -- To find meaning for fnd_lookups code
2584: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
2585: l_Resrc_Require_Rec.STD_RATE_FLAG_CODE <> Fnd_Api.G_MISS_NUM) THEN
2739:
2740: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2741: -- Check Object version number.
2742: IF G_DEBUG='Y' THEN
2743: Ahl_Debug_Pub.debug ( l_full_name || ' Record Object Version Nubmer = ' || l_resrc_Require_Rec.object_version_number);
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
2740: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2741: -- Check Object version number.
2742: IF G_DEBUG='Y' THEN
2743: Ahl_Debug_Pub.debug ( l_full_name || ' Record Object Version Nubmer = ' || l_resrc_Require_Rec.object_version_number);
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');
2794: -- JKJAIN US space FP for ER # 6998882-- end
2795: l_Resrc_Require_Tbl(j).operation_flag := 'U';
2796: --
2797: IF G_DEBUG='Y' THEN
2798: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2795: l_Resrc_Require_Tbl(j).operation_flag := 'U';
2796: --
2797: IF G_DEBUG='Y' THEN
2798: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2796: --
2797: IF G_DEBUG='Y' THEN
2798: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2797: IF G_DEBUG='Y' THEN
2798: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2798: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2799: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2800: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2801: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2809: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2802: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2809: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2810: END IF;
2803: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2809: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2810: END IF;
2811:
2804: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2809: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2810: END IF;
2811:
2812: j := j + 1;
2805: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2806: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2807: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2808: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2809: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2810: END IF;
2811:
2812: j := j + 1;
2813: END LOOP;
2835: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
2836: IF l_Resrc_Require_Rec.Operation_Resource_id <> FND_API.G_MISS_NUM
2837: THEN
2838: IF G_DEBUG='Y' THEN
2839: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2840: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
2841: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
2842: END IF;
2843:
2836: IF l_Resrc_Require_Rec.Operation_Resource_id <> FND_API.G_MISS_NUM
2837: THEN
2838: IF G_DEBUG='Y' THEN
2839: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2840: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
2841: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
2842: END IF;
2843:
2844: -- Create Record in schedule Resources
2837: THEN
2838: IF G_DEBUG='Y' THEN
2839: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2840: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
2841: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
2842: END IF;
2843:
2844: -- Create Record in schedule Resources
2845: Update_Row (
2875: );
2876:
2877:
2878: IF G_DEBUG='Y' THEN
2879: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.CHARGE_TYPE_CODE:'||l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2880: END IF;
2881: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2882: --Get the value from sequence
2883: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
2883: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
2884: INTO l_wo_operation_txn_id
2885: FROM DUAL;
2886: IF G_DEBUG='Y' THEN
2887: AHL_DEBUG_PUB.debug( 'before calling log record l_wo_operation_txn_id:'||l_wo_operation_txn_id);
2888: END IF;
2889: -- Create Record in transactions table
2890: AHL_PP_MATERIALS_PVT.Log_Transaction_Record
2891: ( p_wo_operation_txn_id => l_wo_operation_txn_id,
2925: END IF;
2926:
2927: -- Debug info
2928: IF G_DEBUG='Y' THEN
2929: Ahl_Debug_Pub.debug( 'End of Update Resource Reqst +PPResrc_Require_Pvt+');
2930:
2931: -- Check if API is called in debug mode. If yes, disable debug.
2932: Ahl_Debug_Pub.disable_debug;
2933: END IF;
2928: IF G_DEBUG='Y' THEN
2929: Ahl_Debug_Pub.debug( 'End of Update Resource Reqst +PPResrc_Require_Pvt+');
2930:
2931: -- Check if API is called in debug mode. If yes, disable debug.
2932: Ahl_Debug_Pub.disable_debug;
2933: END IF;
2934: EXCEPTION
2935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2936: ROLLBACK TO Update_Resrc_Require;
2939: p_count => x_msg_count,
2940: p_data => x_msg_data);
2941: IF G_DEBUG='Y' THEN
2942: -- Debug info.
2943: AHL_DEBUG_PUB.log_app_messages (
2944: x_msg_count, x_msg_data, 'ERROR' );
2945:
2946: -- Check if API is called in debug mode. If yes, disable debug.
2947: AHL_DEBUG_PUB.disable_debug;
2943: AHL_DEBUG_PUB.log_app_messages (
2944: x_msg_count, x_msg_data, 'ERROR' );
2945:
2946: -- Check if API is called in debug mode. If yes, disable debug.
2947: AHL_DEBUG_PUB.disable_debug;
2948: END IF;
2949: WHEN FND_API.G_EXC_ERROR THEN
2950: ROLLBACK TO Update_Resrc_Require;
2951: X_return_status := FND_API.G_RET_STS_ERROR;
2953: p_count => x_msg_count,
2954: p_data => X_msg_data);
2955: IF G_DEBUG='Y' THEN
2956: -- Debug info.
2957: AHL_DEBUG_PUB.log_app_messages (
2958: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2959:
2960: -- Check if API is called in debug mode. If yes, disable debug.
2961: AHL_DEBUG_PUB.disable_debug;
2957: AHL_DEBUG_PUB.log_app_messages (
2958: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2959:
2960: -- Check if API is called in debug mode. If yes, disable debug.
2961: AHL_DEBUG_PUB.disable_debug;
2962: --
2963: END IF;
2964: WHEN OTHERS THEN
2965: ROLLBACK TO Update_Resrc_Require;
2974: p_count => x_msg_count,
2975: p_data => X_msg_data);
2976: IF G_DEBUG='Y' THEN
2977: -- Debug info.
2978: AHL_DEBUG_PUB.log_app_messages (
2979: x_msg_count, x_msg_data, 'SQL ERROR' );
2980:
2981: -- Check if API is called in debug mode. If yes, disable debug.
2982: AHL_DEBUG_PUB.disable_debug;
2978: AHL_DEBUG_PUB.log_app_messages (
2979: x_msg_count, x_msg_data, 'SQL ERROR' );
2980:
2981: -- Check if API is called in debug mode. If yes, disable debug.
2982: AHL_DEBUG_PUB.disable_debug;
2983: END IF;
2984: END Update_Resrc_Require;
2985:
2986: --------------------------------------------------------------------
3096: -- Standard start of API savepoint
3097: SAVEPOINT Get_Resource_Requirement;
3098: IF G_DEBUG='Y' THEN
3099: -- Check if API is called in debug mode. If yes, enable debug.
3100: Ahl_Debug_Pub.enable_debug;
3101: --
3102: END IF;
3103: -- Debug info.
3104: IF G_DEBUG='Y' THEN
3101: --
3102: END IF;
3103: -- Debug info.
3104: IF G_DEBUG='Y' THEN
3105: Ahl_Debug_Pub.debug ( l_full_name || ' Start ');
3106: END IF;
3107:
3108: -- Standard call to check for call compatibility.
3109: IF Fnd_Api.to_boolean(p_init_msg_list)
3127: LOOP
3128: l_Resrc_Require_Rec := p_x_resrc_Require_Tbl(i);
3129: ----------------------------------------- Cursor ----------------------------------
3130: IF G_DEBUG='Y' THEN
3131: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || l_Resrc_Require_Rec.operation_resource_id);
3132: END IF;
3133: OPEN c_res_req (l_Resrc_Require_Rec.operation_resource_id);
3134: FETCH c_res_req INTO c_resrc_req;
3135: CLOSE c_res_req;
3137: OPEN c_resource (l_Resrc_Require_Rec.operation_resource_id);
3138: FETCH c_resource INTO l_resrc_type_name, l_resrc_type_code, l_resrc_name;
3139: CLOSE c_resource;
3140: IF G_DEBUG='Y' THEN
3141: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3142: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3143: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3144: END IF;
3145: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3138: FETCH c_resource INTO l_resrc_type_name, l_resrc_type_code, l_resrc_name;
3139: CLOSE c_resource;
3140: IF G_DEBUG='Y' THEN
3141: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3142: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3143: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3144: END IF;
3145: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3146: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3139: CLOSE c_resource;
3140: IF G_DEBUG='Y' THEN
3141: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3142: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3143: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3144: END IF;
3145: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3146: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3147: CLOSE c_WO_oper;
3145: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3146: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3147: CLOSE c_WO_oper;
3148: IF G_DEBUG='Y' THEN
3149: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3150: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3151: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3152: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3153: END IF;
3146: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3147: CLOSE c_WO_oper;
3148: IF G_DEBUG='Y' THEN
3149: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3150: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3151: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3152: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3153: END IF;
3154:
3147: CLOSE c_WO_oper;
3148: IF G_DEBUG='Y' THEN
3149: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3150: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3151: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3152: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3153: END IF;
3154:
3155: OPEN c_WIP_oper ( l_Resrc_Require_Rec.operation_resource_id);
3148: IF G_DEBUG='Y' THEN
3149: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3150: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3151: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3152: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3153: END IF;
3154:
3155: OPEN c_WIP_oper ( l_Resrc_Require_Rec.operation_resource_id);
3156: FETCH c_WIP_oper INTO c_WIP_oper_rec;
3245: p_item_instance_id => NULL);
3246:
3247:
3248: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3249: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3246:
3247:
3248: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3249: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3247:
3248: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3249: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3255: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3248: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3249: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3255: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3256:
3249: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3255: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3256:
3257: END LOOP;
3250: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3255: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3256:
3257: END LOOP;
3258: END IF;
3251: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3252: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3253: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3254: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3255: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3256:
3257: END LOOP;
3258: END IF;
3259: -- Standard call to get message count and if count is 1, get message info
3263: p_encoded => Fnd_Api.g_false);
3264:
3265: -- Check if API is called in debug mode. If yes, enable debug.
3266: IF G_DEBUG='Y' THEN
3267: Ahl_Debug_Pub.enable_debug;
3268: END IF;
3269: -- Debug info.
3270: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3271: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3266: IF G_DEBUG='Y' THEN
3267: Ahl_Debug_Pub.enable_debug;
3268: END IF;
3269: -- Debug info.
3270: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3271: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3272: END IF;
3273:
3274: -- Check if API is called in debug mode. If yes, disable debug.
3267: Ahl_Debug_Pub.enable_debug;
3268: END IF;
3269: -- Debug info.
3270: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3271: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3272: END IF;
3273:
3274: -- Check if API is called in debug mode. If yes, disable debug.
3275: Ahl_Debug_Pub.disable_debug;
3271: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3272: END IF;
3273:
3274: -- Check if API is called in debug mode. If yes, disable debug.
3275: Ahl_Debug_Pub.disable_debug;
3276: RETURN;
3277:
3278: EXCEPTION
3279: WHEN Fnd_Api.G_EXC_ERROR THEN
3418: SAVEPOINT Remove_Resource_Requirement;
3419:
3420: -- Check if API is called in debug mode. If yes, enable debug.
3421: IF G_DEBUG='Y' THEN
3422: Ahl_Debug_Pub.enable_debug;
3423:
3424: -- Debug info.
3425: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt Remove Resource Requirement +APRRP+');
3426: END IF;
3421: IF G_DEBUG='Y' THEN
3422: Ahl_Debug_Pub.enable_debug;
3423:
3424: -- Debug info.
3425: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt Remove Resource Requirement +APRRP+');
3426: END IF;
3427: -- Standard call to check for call compatibility.
3428: IF Fnd_Api.to_boolean(p_init_msg_list)
3429: THEN
3447: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
3448: LOOP
3449: --
3450: IF G_DEBUG='Y' THEN
3451: Ahl_Debug_Pub.debug ( ' p_x_resrc_Require_tbl(i).operation_resource_id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3452: END IF;
3453: --
3454: IF (p_x_resrc_Require_tbl(i).operation_resource_id IS NOT NULL AND
3455: p_x_resrc_Require_tbl(i).operation_resource_id <> FND_API.G_MISS_NUM)
3466: CLOSE Get_resource_cur;
3467: END IF;
3468: --
3469: IF G_DEBUG='Y' THEN
3470: Ahl_Debug_Pub.debug ( ' l_resource_rec.resource_id = ' || l_resource_rec.resource_id);
3471: END IF;
3472: --
3473: --Check for object version number
3474: IF (p_x_resrc_Require_tbl(i).object_version_number IS NOT NULL AND
3541: FETCH c_wip_oper_res INTO l_wip_oper_res_rec;
3542: CLOSE c_wip_oper_res;
3543: --
3544: IF G_DEBUG='Y' THEN
3545: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3546: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3547: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3548: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3549: END IF;
3542: CLOSE c_wip_oper_res;
3543: --
3544: IF G_DEBUG='Y' THEN
3545: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3546: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3547: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3548: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3549: END IF;
3550: --Assign Org,Wip entity details
3543: --
3544: IF G_DEBUG='Y' THEN
3545: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3546: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3547: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3548: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3549: END IF;
3550: --Assign Org,Wip entity details
3551: p_x_resrc_Require_tbl(i).ORGANIZATION_ID := l_organization_id;
3544: IF G_DEBUG='Y' THEN
3545: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3546: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3547: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3548: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3549: END IF;
3550: --Assign Org,Wip entity details
3551: p_x_resrc_Require_tbl(i).ORGANIZATION_ID := l_organization_id;
3552: p_x_resrc_Require_tbl(i).WIP_ENTITY_ID := l_wip_entity_id;
3559: FETCH c_uom_code INTO l_uom_code;
3560: CLOSE c_uom_code;
3561: --
3562: IF G_DEBUG='Y' THEN
3563: Ahl_Debug_Pub.debug ('l_UOM_CODE: ' ||l_uom_code );
3564: END IF;
3565: --
3566: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3567:
3565: --
3566: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3567:
3568: IF G_DEBUG='Y' THEN
3569: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3566: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3567:
3568: IF G_DEBUG='Y' THEN
3569: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3567:
3568: IF G_DEBUG='Y' THEN
3569: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3575: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3568: IF G_DEBUG='Y' THEN
3569: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3575: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3576:
3569: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3575: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3576:
3577: END IF;
3570: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3575: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3576:
3577: END IF;
3578: l_msg_count := Fnd_Msg_Pub.count_msg;
3571: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3572: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3573: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3574: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3575: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3576:
3577: END IF;
3578: l_msg_count := Fnd_Msg_Pub.count_msg;
3579: IF G_DEBUG='Y' THEN
3576:
3577: END IF;
3578: l_msg_count := Fnd_Msg_Pub.count_msg;
3579: IF G_DEBUG='Y' THEN
3580: Ahl_Debug_Pub.debug ( 'msg count:'||l_msg_count);
3581: END IF;
3582:
3583: IF l_msg_count > 0 THEN
3584: X_msg_count := l_msg_count;
3593: -- Assign before calling Ahl Eam Job API
3594: j:=1;
3595: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
3596: LOOP
3597: Ahl_Debug_Pub.debug ( 'CALL FOR WIP JOBS');
3598: l_resrc_Require_Tbl(j).organization_id := p_x_resrc_Require_tbl(i).ORGANIZATION_ID;
3599: l_resrc_Require_Tbl(j).wip_entity_id := p_x_resrc_Require_tbl(i).WIP_ENTITY_ID;
3600: l_Resrc_Require_Tbl(j).workorder_id := p_x_resrc_Require_tbl(i).WORKORDER_ID;
3601: l_resrc_Require_Tbl(j).operation_seq_number := p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER;
3612: l_Resrc_Require_Tbl(j).scheduled_type_code := p_x_resrc_Require_tbl(i).SCHEDULED_TYPE_CODE;
3613: l_resrc_Require_Tbl(j).operation_flag := 'D';
3614: --
3615: IF G_DEBUG='Y' THEN
3616: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3613: l_resrc_Require_Tbl(j).operation_flag := 'D';
3614: --
3615: IF G_DEBUG='Y' THEN
3616: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3621: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3614: --
3615: IF G_DEBUG='Y' THEN
3616: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3621: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3622:
3615: IF G_DEBUG='Y' THEN
3616: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3621: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3622:
3623: END IF;
3616: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3621: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3622:
3623: END IF;
3624:
3617: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3618: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3619: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3620: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3621: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3622:
3623: END IF;
3624:
3625: j := j + 1;
3649: FETCH c_chk_assgn INTO l_count;
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
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);
3660: DELETE FROM AHL_OPERATION_RESOURCES
3661: WHERE OPERATION_RESOURCE_ID = p_x_resrc_Require_tbl(i).operation_resource_id;
3662: END IF;
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);
3660: DELETE FROM AHL_OPERATION_RESOURCES
3661: WHERE OPERATION_RESOURCE_ID = p_x_resrc_Require_tbl(i).operation_resource_id;
3662: END IF;
3663: END LOOP;
3680: END IF;
3681:
3682: -- Debug info
3683: IF G_DEBUG='Y' THEN
3684: Ahl_Debug_Pub.debug( 'End of private api Remove Resource Requirement +MAMRP+');
3685:
3686: -- Check if API is called in debug mode. If yes, disable debug.
3687: Ahl_Debug_Pub.disable_debug;
3688: END IF;
3683: IF G_DEBUG='Y' THEN
3684: Ahl_Debug_Pub.debug( 'End of private api Remove Resource Requirement +MAMRP+');
3685:
3686: -- Check if API is called in debug mode. If yes, disable debug.
3687: Ahl_Debug_Pub.disable_debug;
3688: END IF;
3689: EXCEPTION
3690: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3691: ROLLBACK TO Remove_Resource_Requirement;
3693: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
3694: p_count => x_msg_count,
3695: p_data => x_msg_data);
3696: IF G_DEBUG='Y' THEN
3697: Ahl_Debug_Pub.log_app_messages (
3698: x_msg_count, x_msg_data, 'ERROR' );
3699:
3700: -- Check if API is called in debug mode. If yes, disable debug.
3701: Ahl_Debug_Pub.disable_debug;
3697: Ahl_Debug_Pub.log_app_messages (
3698: x_msg_count, x_msg_data, 'ERROR' );
3699:
3700: -- Check if API is called in debug mode. If yes, disable debug.
3701: Ahl_Debug_Pub.disable_debug;
3702: END IF;
3703: WHEN Fnd_Api.G_EXC_ERROR THEN
3704: ROLLBACK TO Remove_Resource_Requirement;
3705: X_return_status := Fnd_Api.G_RET_STS_ERROR;
3707: p_count => x_msg_count,
3708: p_data => X_msg_data);
3709: IF G_DEBUG='Y' THEN
3710: -- Debug info.
3711: Ahl_Debug_Pub.log_app_messages (
3712: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3713:
3714: -- Check if API is called in debug mode. If yes, disable debug.
3715: Ahl_Debug_Pub.disable_debug;
3711: Ahl_Debug_Pub.log_app_messages (
3712: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3713:
3714: -- Check if API is called in debug mode. If yes, disable debug.
3715: Ahl_Debug_Pub.disable_debug;
3716: END IF;
3717:
3718: WHEN OTHERS THEN
3719: ROLLBACK TO Remove_Resource_Requirement;
3728: p_count => x_msg_count,
3729: p_data => x_msg_data);
3730: IF G_DEBUG='Y' THEN
3731: -- Debug info.
3732: Ahl_Debug_Pub.log_app_messages (
3733: x_msg_count, x_msg_data, 'SQL ERROR' );
3734:
3735: -- Check if API is called in debug mode. If yes, disable debug.
3736: Ahl_Debug_Pub.disable_debug;
3732: Ahl_Debug_Pub.log_app_messages (
3733: x_msg_count, x_msg_data, 'SQL ERROR' );
3734:
3735: -- Check if API is called in debug mode. If yes, disable debug.
3736: Ahl_Debug_Pub.disable_debug;
3737: END IF;
3738: END Remove_Resource_Requirement;
3739:
3740: ----------------------------------------------------------------------------------
3809: -- Standard Start of API savepoint
3810: SAVEPOINT Process_Resrc_Require;
3811: -- Check if API is called in debug mode. If yes, enable debug.
3812: IF G_DEBUG='Y' THEN
3813: AHL_DEBUG_PUB.enable_debug;
3814: -- Debug info.
3815: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require.process_resrc_Require +PPResrc_Require_Pvt+');
3816: END IF;
3817: -- Standard call to check for call compatibility.
3811: -- Check if API is called in debug mode. If yes, enable debug.
3812: IF G_DEBUG='Y' THEN
3813: AHL_DEBUG_PUB.enable_debug;
3814: -- Debug info.
3815: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require.process_resrc_Require +PPResrc_Require_Pvt+');
3816: END IF;
3817: -- Standard call to check for call compatibility.
3818: IF FND_API.to_boolean(p_init_msg_list)
3819: THEN
3844: x_msg_count => l_msg_count,
3845: x_msg_data => l_msg_data
3846: ) ;
3847: IF G_DEBUG='Y' THEN
3848: Ahl_Debug_Pub.debug('AFTER CREATE_RESRC_REQUIRE');
3849: END IF;
3850: ELSIF p_operation_flag = 'U' THEN
3851: IF G_DEBUG='Y' THEN
3852: Ahl_Debug_Pub.debug( 'after update'||p_operation_flag);
3848: Ahl_Debug_Pub.debug('AFTER CREATE_RESRC_REQUIRE');
3849: END IF;
3850: ELSIF p_operation_flag = 'U' THEN
3851: IF G_DEBUG='Y' THEN
3852: Ahl_Debug_Pub.debug( 'after update'||p_operation_flag);
3853: END IF;
3854: -- Call Update Resource Requirement
3855: Update_Resrc_Require (
3856: p_api_version => p_api_version,
3959: COMMIT;
3960: END IF;
3961: IF G_DEBUG='Y' THEN
3962: -- Debug info
3963: Ahl_Debug_Pub.debug( 'End of public api Process Resource Requirement + PPResrc_Require_Pvt+');
3964:
3965: -- Check if API is called in debug mode. If yes, disable debug.
3966: Ahl_Debug_Pub.disable_debug;
3967: END IF;
3962: -- Debug info
3963: Ahl_Debug_Pub.debug( 'End of public api Process Resource Requirement + PPResrc_Require_Pvt+');
3964:
3965: -- Check if API is called in debug mode. If yes, disable debug.
3966: Ahl_Debug_Pub.disable_debug;
3967: END IF;
3968: EXCEPTION
3969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3970: ROLLBACK TO Process_Resrc_Require;
3972: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3973: p_count => x_msg_count,
3974: p_data => x_msg_data);
3975: IF G_DEBUG='Y' THEN
3976: AHL_DEBUG_PUB.log_app_messages (
3977: x_msg_count, x_msg_data, 'ERROR' );
3978: -- Check if API is called in debug mode. If yes, disable debug.
3979: AHL_DEBUG_PUB.disable_debug;
3980: END IF;
3975: IF G_DEBUG='Y' THEN
3976: AHL_DEBUG_PUB.log_app_messages (
3977: x_msg_count, x_msg_data, 'ERROR' );
3978: -- Check if API is called in debug mode. If yes, disable debug.
3979: AHL_DEBUG_PUB.disable_debug;
3980: END IF;
3981: WHEN FND_API.G_EXC_ERROR THEN
3982: ROLLBACK TO Process_Resrc_Require;
3983: X_return_status := FND_API.G_RET_STS_ERROR;
3985: p_count => x_msg_count,
3986: p_data => X_msg_data);
3987: IF G_DEBUG='Y' THEN
3988: -- Debug info.
3989: AHL_DEBUG_PUB.log_app_messages (
3990: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3991: -- Check if API is called in debug mode. If yes, disable debug.
3992: AHL_DEBUG_PUB.disable_debug;
3993: END IF;
3988: -- Debug info.
3989: AHL_DEBUG_PUB.log_app_messages (
3990: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3991: -- Check if API is called in debug mode. If yes, disable debug.
3992: AHL_DEBUG_PUB.disable_debug;
3993: END IF;
3994: WHEN OTHERS THEN
3995: ROLLBACK TO Process_Resrc_Require;
3996: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4004: p_count => x_msg_count,
4005: p_data => x_msg_data);
4006: IF G_DEBUG='Y' THEN
4007: -- Debug info.
4008: AHL_DEBUG_PUB.log_app_messages (
4009: x_msg_count, x_msg_data, 'SQL ERROR' );
4010: -- Check if API is called in debug mode. If yes, disable debug.
4011: AHL_DEBUG_PUB.disable_debug;
4012: END IF;
4007: -- Debug info.
4008: AHL_DEBUG_PUB.log_app_messages (
4009: x_msg_count, x_msg_data, 'SQL ERROR' );
4010: -- Check if API is called in debug mode. If yes, disable debug.
4011: AHL_DEBUG_PUB.disable_debug;
4012: END IF;
4013: END Process_Resrc_Require;
4014:
4015: END AHL_PP_RESRC_Require_PVT;