[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
393: FROM AHL_WORKORDER_OPERATIONS_V WHERE WORKORDER_OPERATION_ID = x_id;
394:
395: BEGIN
396: IF G_DEBUG='Y' THEN
397: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
398: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
399: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
400: END IF;
401:
394:
395: BEGIN
396: IF G_DEBUG='Y' THEN
397: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
398: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
399: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
400: END IF;
401:
402: 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: BEGIN
396: IF G_DEBUG='Y' THEN
397: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
398: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
399: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Resource ID = ' || p_resrc_Require_rec.Resource_Id);
400: END IF;
401:
402: IF p_resrc_Require_rec.OPERATION_RESOURCE_ID = Fnd_Api.G_MISS_NUM OR p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL THEN
403: IF G_DEBUG='Y' THEN
400: END IF;
401:
402: IF p_resrc_Require_rec.OPERATION_RESOURCE_ID = Fnd_Api.G_MISS_NUM OR p_resrc_Require_rec.OPERATION_RESOURCE_ID IS NULL THEN
403: IF G_DEBUG='Y' THEN
404: Ahl_Debug_Pub.debug('Inside Check_Resrc_Require_Req_Items check while adding');
405: END IF;
406: -- OPERATION_SEQ_NUMBER
407: IF (p_resrc_Require_rec.OPERATION_SEQ_NUMBER IS NULL OR p_resrc_Require_rec.OPERATION_SEQ_NUMBER = Fnd_Api.G_MISS_NUM) THEN
408: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
406: -- OPERATION_SEQ_NUMBER
407: IF (p_resrc_Require_rec.OPERATION_SEQ_NUMBER IS NULL OR p_resrc_Require_rec.OPERATION_SEQ_NUMBER = Fnd_Api.G_MISS_NUM) THEN
408: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
409: IF G_DEBUG='Y' THEN
410: Ahl_Debug_Pub.debug ( 'OPERATION_SEQUENCE NUMBER PROB');
411: END IF;
412: Fnd_Message.set_name ('AHL', 'AHL_PP_OPER_SEQ_MISSING');
413: Fnd_Msg_Pub.ADD;
414: END IF;
420: 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
421: IF p_resrc_Require_rec.OPERATION_SEQ_NUMBER < 0 THEN
422: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
423: IF G_DEBUG='Y' THEN
424: Ahl_Debug_Pub.debug ( 'ONLY POSITIVE');
425: END IF;
426: Fnd_Message.set_name ('AHL', 'AHL_PP_ONLY_POSITIVE_VALUE');
427: Fnd_Msg_Pub.ADD;
428: END IF;
463: END IF;
464: END IF;
465:
466: IF G_DEBUG='Y' THEN
467: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || 'Check other valid fileds');
468: END IF;
469: -- Schedule seq number validation
470: -- JKJAIN US space FP for ER # 6998882-- start
471: IF (
495: IF g_MODULE_TYPE='JSP' THEN
496:
497: IF p_Resrc_Require_Rec.RESOURCE_NAME IS NULL OR p_Resrc_Require_Rec.RESOURCE_NAME = Fnd_Api.G_MISS_CHAR THEN
498: IF G_DEBUG='Y' THEN
499: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- RESOURCE_NAME ='|| p_resrc_Require_rec.RESOURCE_NAME);
500: END IF;
501:
502: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
503: Fnd_Message.set_name ('AHL', 'AHL_PP_RESOURCE_MISSING');
508: END IF;
509: END IF;
510:
511: IF G_DEBUG='Y' THEN
512: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Duration =' || p_resrc_Require_rec.Duration);
513: END IF;
514: -- DURATION
515: IF (p_resrc_Require_rec.Duration IS NULL OR p_resrc_Require_rec.Duration = Fnd_Api.G_MISS_NUM) THEN
516: IF G_DEBUG='Y' THEN
513: END IF;
514: -- DURATION
515: IF (p_resrc_Require_rec.Duration IS NULL OR p_resrc_Require_rec.Duration = Fnd_Api.G_MISS_NUM) THEN
516: IF G_DEBUG='Y' THEN
517: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Duration =' || p_resrc_Require_rec.Duration);
518: END IF;
519: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
520: Fnd_Message.set_name ('AHL', 'AHL_PP_DURATION_MISSING');
521: Fnd_Msg_Pub.ADD;
536: END IF;
537:
538: -- QUANTITY
539: IF G_DEBUG='Y' THEN
540: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
541: END IF;
542:
543: IF (p_resrc_Require_rec.QUANTITY IS NULL OR p_resrc_Require_rec.QUANTITY = Fnd_Api.G_MISS_NUM) THEN
544: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
540: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
541: END IF;
542:
543: IF (p_resrc_Require_rec.QUANTITY IS NULL OR p_resrc_Require_rec.QUANTITY = Fnd_Api.G_MISS_NUM) THEN
544: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Quantity =' || p_resrc_Require_rec.quantity);
545: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
546: Fnd_Message.set_name ('AHL', 'AHL_PP_QUANTITY_MISSING');
547: Fnd_Msg_Pub.ADD;
548: END IF;
563: END IF;
564:
565: -- REQ_START_DATE
566: IF G_DEBUG='Y' THEN
567: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- REQ_START_DATE =' || p_resrc_Require_rec.REQ_START_DATE);
568: END IF;
569:
570: IF (p_resrc_Require_rec.REQ_START_DATE IS NULL OR p_resrc_Require_rec.REQ_START_DATE = Fnd_Api.G_MISS_DATE) THEN
571: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
577: END IF;
578:
579: -- REQ_END_DATE
580: IF G_DEBUG='Y' THEN
581: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- REQ_START_DATE =' || p_resrc_Require_rec.REQ_START_DATE);
582: END IF;
583:
584: IF (p_resrc_Require_rec.REQ_END_DATE IS NULL OR p_resrc_Require_rec.REQ_END_DATE = Fnd_Api.G_MISS_DATE) THEN
585: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
599: l_Require_end_date := p_resrc_Require_rec.Req_end_date;
600: END IF;
601:
602: IF G_DEBUG='Y' THEN
603: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Start Date =' || l_Require_start_date);
604: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- End Date =' || l_Require_end_date);
605: END IF;
606:
607: --
600: END IF;
601:
602: IF G_DEBUG='Y' THEN
603: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Start Date =' || l_Require_start_date);
604: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- End Date =' || l_Require_end_date);
605: END IF;
606:
607: --
608: -- Validate the active dates.
623: OPEN c_wo_oper(p_resrc_Require_rec.WORKORDER_OPERATION_ID);
624: FETCH c_wo_oper INTO l_eff_st_date, l_eff_end_date, l_sch_st_date, l_sch_end_date;
625: IF c_wo_oper%NOTFOUND THEN
626: CLOSE c_wo_oper;
627: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--If condition--');
628: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
629: Fnd_Msg_Pub.ADD;
630: ELSE
631: CLOSE c_wo_oper;
642: OPEN c_wo_oper(c_oper_req_rec.WORKORDER_OPERATION_ID);
643: FETCH c_wo_oper INTO l_eff_st_date, l_eff_end_date, l_sch_st_date, l_sch_end_date;
644: IF c_wo_oper%NOTFOUND THEN
645: CLOSE c_wo_oper;
646: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '--Else If condition--');
647: Fnd_Message.SET_NAME('AHL','AHL_PP_WORKORDER_NOT_EXISTS');
648: Fnd_Msg_Pub.ADD;
649: ELSE
650: CLOSE c_wo_oper;
654:
655:
656:
657: IF G_DEBUG='Y' THEN
658: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
655:
656:
657: IF G_DEBUG='Y' THEN
658: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
656:
657: IF G_DEBUG='Y' THEN
658: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
657: IF G_DEBUG='Y' THEN
658: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
658: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual Start Date =' || l_eff_st_date);
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
659: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Actual End Date =' || l_eff_end_date);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
660: Ahl_Debug_Pub.debug('**************************************************************************');
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
668: END IF;
661: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled Start Date =' || l_sch_st_date);
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
668: END IF;
669: -- bug 4092197
662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Scheduled End Date =' || l_sch_end_date);
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
668: END IF;
669: -- bug 4092197
670: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
663: Ahl_Debug_Pub.debug('**************************************************************************');
664: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require Start Date =' || l_Require_start_date);
665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Require End Date =' || l_Require_end_date);
666: Ahl_Debug_Pub.debug('**************************************************************************');
667: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Operation ID =' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
668: END IF;
669: -- bug 4092197
670: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
671: --l_Require_end_date := TO_DATE(l_Require_end_date,'DD-MON-YYYY');
669: -- bug 4092197
670: --l_Require_start_date := TO_DATE(l_Require_start_date,'DD-MON-YYYY');
671: --l_Require_end_date := TO_DATE(l_Require_end_date,'DD-MON-YYYY');
672: IF l_Require_start_date IS NOT NULL THEN
673: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Start Date =' || l_Require_start_date);
674: --JKJain, removed the validations of Required dates with Actual dates. Bug 9195920.
675: /* IF l_eff_st_date IS NOT NULL THEN
676: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Actual Start Date =' || l_eff_st_date);
677: IF l_Require_start_date < l_eff_st_date THEN
672: IF l_Require_start_date IS NOT NULL THEN
673: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Start Date =' || l_Require_start_date);
674: --JKJain, removed the validations of Required dates with Actual dates. Bug 9195920.
675: /* IF l_eff_st_date IS NOT NULL THEN
676: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Actual Start Date =' || l_eff_st_date);
677: IF l_Require_start_date < l_eff_st_date THEN
678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
679: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_LESS_ACT_STDT');
680: Fnd_Msg_Pub.ADD;
683: RETURN;
684: END IF;
685: ELS*/
686: IF l_sch_st_date IS NOT NULL THEN
687: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Scheduled Start Date =' || l_sch_st_date);
688: IF l_Require_start_date < l_sch_st_date THEN
689: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
690: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_LESS_SCH_STDT');
691: Fnd_Msg_Pub.ADD;
695: END IF;
696: END IF;
697:
698: /* IF l_eff_end_date IS NOT NULL THEN
699: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Actual Start Date =' || l_eff_st_date);
700: IF l_Require_start_date > l_eff_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_ACT_EDDT');
703: Fnd_Msg_Pub.ADD;
706: RETURN;
707: END IF;
708: ELS */
709: IF l_sch_end_date IS NOT NULL THEN
710: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items AAA' || '-- Scheduled End Date =' || l_sch_end_date);
711: IF l_Require_start_date > l_sch_end_date THEN
712: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
713: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_STDT_MORE_SCH_EDDT');
714: Fnd_Msg_Pub.ADD;
719: END IF;
720: END IF;
721:
722: IF l_Require_end_date IS NOT NULL THEN
723: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- End Date =' || l_Require_end_date);
724: /* IF l_eff_end_date IS NOT NULL THEN
725: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Actual End Date =' || l_eff_end_date);
726: IF l_Require_end_date > l_eff_end_date THEN
727: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
721:
722: IF l_Require_end_date IS NOT NULL THEN
723: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- End Date =' || l_Require_end_date);
724: /* IF l_eff_end_date IS NOT NULL THEN
725: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Actual End Date =' || l_eff_end_date);
726: IF l_Require_end_date > l_eff_end_date THEN
727: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
728: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_MORE_ACT_EDDT');
729: Fnd_Msg_Pub.ADD;
732: RETURN;
733: END IF;
734: ELS */
735: IF l_sch_end_date IS NOT NULL THEN
736: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Scheduled End Date =' || l_sch_end_date);
737: IF l_Require_end_date > l_sch_end_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_MORE_SCH_EDDT');
740: Fnd_Msg_Pub.ADD;
744: END IF;
745: END IF;
746:
747: /* IF l_eff_st_date IS NOT NULL THEN
748: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Actual Start Date =' || l_eff_st_date);
749: IF l_Require_end_date < l_eff_st_date THEN
750: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
751: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_LESS_ACT_STDT');
752: Fnd_Msg_Pub.ADD;
755: RETURN;
756: END IF;
757: ELS */
758: IF l_sch_st_date IS NOT NULL THEN
759: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items BBB' || '-- Scheduled Start Date =' || l_sch_st_date);
760: IF l_Require_end_date < l_sch_st_date THEN
761: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
762: Fnd_Message.set_name ('AHL', 'AHL_PP_REQ_EDDT_LESS_SCH_STDT');
763: Fnd_Msg_Pub.ADD;
786:
787: --
788: -- For when ID is passed in, we need to check if this ID is unique.
789: IF G_DEBUG='Y' THEN
790: Ahl_Debug_Pub.enable_debug;
791: END IF;
792: IF G_DEBUG='Y' THEN
793: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
794: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
789: IF G_DEBUG='Y' THEN
790: Ahl_Debug_Pub.enable_debug;
791: END IF;
792: IF G_DEBUG='Y' THEN
793: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
794: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
795: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
796: END IF;
797:
790: Ahl_Debug_Pub.enable_debug;
791: END IF;
792: IF G_DEBUG='Y' THEN
793: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
794: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
795: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
796: END IF;
797:
798: 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
791: END IF;
792: IF G_DEBUG='Y' THEN
793: Ahl_Debug_Pub.debug( ' RESOURCE SEQ NUMBER -->'||p_resrc_Require_rec.RESOURCE_SEQ_NUMBER);
794: Ahl_Debug_Pub.debug( ' OPERATION_RESOURCE_ID -->' ||p_resrc_Require_rec.OPERATION_RESOURCE_ID);
795: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
796: END IF;
797:
798: 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
799: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
795: Ahl_Debug_Pub.debug( ' WORKORDER_OPERATION_ID -->' ||p_resrc_Require_rec.WORKORDER_OPERATION_ID);
796: END IF;
797:
798: 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
799: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
800: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
801: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
802:
803: l_valid_flag := Ahl_Utility_Pvt.check_uniqueness (
796: END IF;
797:
798: 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
799: Ahl_Debug_Pub.debug( 'For create l_valid_flag -->' || l_valid_flag);
800: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
801: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID);
802:
803: l_valid_flag := Ahl_Utility_Pvt.check_uniqueness (
804: 'AHL_OPERATION_RESOURCES',
805: 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
806: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID
807: );
808: ELSE
809: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
810:
811: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
812: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
813:
817: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
818: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID
819: );
820:
821: Ahl_Debug_Pub.debug( 'l_valid_flag cccc -->' || l_valid_flag);
822: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
823: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
824: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
825: END IF;
818: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID
819: );
820:
821: Ahl_Debug_Pub.debug( 'l_valid_flag cccc -->' || l_valid_flag);
822: Ahl_Debug_Pub.debug( 'QUERY -->' || 'RESOURCE_SEQUENCE_NUM = ' || p_resrc_Require_rec.RESOURCE_SEQ_NUMBER ||
823: ' AND WORKORDER_OPERATION_ID = ' || p_resrc_Require_rec.WORKORDER_OPERATION_ID ||
824: ' AND OPERATION_RESOURCE_ID <> ' || p_resrc_Require_rec.OPERATION_RESOURCE_ID);
825: END IF;
826:
851: BEGIN
852: --
853: -- Validate Required items.
854: IF G_DEBUG='Y' THEN
855: Ahl_Debug_Pub.debug('BEFORE ..... Check_Resrc_Require_Req_Items');
856: END IF;
857: Check_Resrc_Require_Req_Items (
858: p_resrc_Require_rec => p_resrc_Require_rec,
859: x_return_status => x_return_status
909: BEGIN
910: --------------------- initialize -----------------------
911: -- Check if API is called in debug mode. If yes, enable debug.
912: IF G_DEBUG='Y' THEN
913: Ahl_Debug_Pub.enable_debug;
914: END IF;
915: -- Debug info.
916: IF G_DEBUG='Y' THEN
917: Ahl_Debug_Pub.debug( l_full_name ||':Start');
913: Ahl_Debug_Pub.enable_debug;
914: END IF;
915: -- Debug info.
916: IF G_DEBUG='Y' THEN
917: Ahl_Debug_Pub.debug( l_full_name ||':Start');
918: END IF;
919:
920: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
921: Fnd_Msg_Pub.initialize;
932: x_return_status := Fnd_Api.g_ret_sts_success;
933:
934: ---------------------- validate ------------------------
935: IF G_DEBUG='Y' THEN
936: Ahl_Debug_Pub.debug( l_full_name ||':Check items');
937: END IF;
938:
939: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
940: Check_Resrc_Require_Items (
975: p_count => x_msg_count,
976: p_data => x_msg_data
977: );
978: IF G_DEBUG='Y' THEN
979: Ahl_Debug_Pub.debug( l_full_name ||':End');
980: END IF;
981:
982: -- Check if API is called in debug mode. If yes, disable debug.
983: IF G_DEBUG='Y' THEN
980: END IF;
981:
982: -- Check if API is called in debug mode. If yes, disable debug.
983: IF G_DEBUG='Y' THEN
984: Ahl_Debug_Pub.disable_debug;
985: END IF;
986:
987: EXCEPTION
988: WHEN Fnd_Api.g_exc_error THEN
1372: -- Standard Start of API savepoint
1373: SAVEPOINT Create_Resrc_Require;
1374: -- Check if API is called in debug mode. If yes, enable debug.
1375: IF G_DEBUG='Y' THEN
1376: AHL_DEBUG_PUB.enable_debug;
1377: END IF;
1378: IF G_DEBUG='Y' THEN
1379: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1380: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1375: IF G_DEBUG='Y' THEN
1376: AHL_DEBUG_PUB.enable_debug;
1377: END IF;
1378: IF G_DEBUG='Y' THEN
1379: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1380: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1381: END IF;
1382: -- Debug info.
1383: -- Dbms_Output.Enable(50000);
1376: AHL_DEBUG_PUB.enable_debug;
1377: END IF;
1378: IF G_DEBUG='Y' THEN
1379: Ahl_Debug_Pub.debug ('start p_interface_flag:'||p_interface_flag);
1380: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl.COUNT:'||p_x_resrc_Require_tbl.COUNT);
1381: END IF;
1382: -- Debug info.
1383: -- Dbms_Output.Enable(50000);
1384: IF G_DEBUG='Y' THEN
1381: END IF;
1382: -- Debug info.
1383: -- Dbms_Output.Enable(50000);
1384: IF G_DEBUG='Y' THEN
1385: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require_PVT. Create_Resrc_Require +PPResrc_Require_Pvt+');
1386: END IF;
1387: G_MODULE_TYPE:=P_MODULE_TYPE;
1388:
1389: -- Standard call to check for call compatibility.
1413: THEN
1414: l_Resrc_Require_Rec.resource_id := NULL;
1415: END IF;
1416: IF G_DEBUG='Y' THEN
1417: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1414: l_Resrc_Require_Rec.resource_id := NULL;
1415: END IF;
1416: IF G_DEBUG='Y' THEN
1417: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1415: END IF;
1416: IF G_DEBUG='Y' THEN
1417: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1416: IF G_DEBUG='Y' THEN
1417: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1417: Ahl_Debug_Pub.debug ( ' Workorder Id = ' || l_Resrc_Require_Rec.workorder_id);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1425: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1418: Ahl_Debug_Pub.debug ( ' Operation Sequence = ' || l_Resrc_Require_Rec.operation_seq_number);
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1425: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1426:
1419: Ahl_Debug_Pub.debug ( ' Resource Sequence = ' || l_Resrc_Require_Rec.resource_seq_number);
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1425: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1426:
1427: END IF;
1420: Ahl_Debug_Pub.debug ( 'UOM NAME: ' || l_Resrc_Require_Rec.uom_name);
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1425: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1426:
1427: END IF;
1428:
1421: Ahl_Debug_Pub.debug ( 'UOM CODE: ' || l_Resrc_Require_Rec.uom_code);
1422: Ahl_Debug_Pub.debug ( 'OPER SDATE: ' || l_Resrc_Require_Rec.oper_start_date);
1423: Ahl_Debug_Pub.debug ( 'OPER EDATE: ' || l_Resrc_Require_Rec.oper_end_date);
1424: Ahl_Debug_Pub.debug ( 'REQSDATE: ' || l_Resrc_Require_Rec.req_start_date);
1425: Ahl_Debug_Pub.debug ( 'REQEDATE: ' || l_Resrc_Require_Rec.req_end_date);
1426:
1427: END IF;
1428:
1429: IF l_Resrc_Require_Rec.workorder_id IS NOT NULL THEN
1432: OPEN c_wo_oper(l_Resrc_Require_Rec.workorder_id, l_Resrc_Require_Rec.operation_seq_number);
1433: FETCH c_wo_oper INTO l_wo_operation_id;
1434: IF c_wo_oper%NOTFOUND THEN
1435: CLOSE c_wo_oper;
1436: Ahl_Debug_Pub.debug('NO SEQ');
1437: Fnd_Message.SET_NAME('AHL','AHL_PP_OPER_SEQ_NOT_EXISTS');
1438: Fnd_Msg_Pub.ADD;
1439: ELSE
1440: CLOSE c_wo_oper;
1447: CLOSE c_resrc_seq;
1448:
1449: IF l_count > 0 THEN
1450: IF G_DEBUG='Y' THEN
1451: Ahl_Debug_Pub.debug('UNIQ 1');
1452: END IF;
1453: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_SEQ_NOT_UNIQUE');
1454: Fnd_Msg_Pub.ADD;
1455: END IF;
1548: END IF;
1549: -- Bug # 6728602 -- end
1550: */
1551: IF G_DEBUG='Y' THEN
1552: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1553: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1554: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1555: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1556: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1549: -- Bug # 6728602 -- end
1550: */
1551: IF G_DEBUG='Y' THEN
1552: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1553: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1554: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1555: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1556: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1557: END IF;
1550: */
1551: IF G_DEBUG='Y' THEN
1552: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1553: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1554: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1555: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1556: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1557: END IF;
1558: --
1551: IF G_DEBUG='Y' THEN
1552: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1553: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1554: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1555: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1556: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1557: END IF;
1558: --
1559: -- For Resource Type
1552: Ahl_Debug_Pub.debug ( ' Workorder Operation Id = ' || l_wo_operation_id);
1553: Ahl_Debug_Pub.debug ( ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
1554: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1555: Ahl_Debug_Pub.debug ( ' Requested Start Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_start_date, 'DD-MM-YYYY HH24:MI:SS'));
1556: Ahl_Debug_Pub.debug ( ' Requested End Date = ' || TO_CHAR(l_Resrc_Require_Rec.req_end_date, 'DD-MM-YYYY HH24:MI:SS'));
1557: END IF;
1558: --
1559: -- For Resource Type
1560: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
1575: RAISE Fnd_Api.G_EXC_ERROR;
1576: END IF;
1577: END IF;
1578: IF G_DEBUG='Y' THEN
1579: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1580: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1581: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1582:
1583: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1576: END IF;
1577: END IF;
1578: IF G_DEBUG='Y' THEN
1579: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1580: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1581: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1582:
1583: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1584: END IF;
1577: END IF;
1578: IF G_DEBUG='Y' THEN
1579: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1580: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1581: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1582:
1583: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1584: END IF;
1585: -- For Resource
1579: Ahl_Debug_Pub.debug ( ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
1580: Ahl_Debug_Pub.debug ( ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
1581: Ahl_Debug_Pub.debug ( ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
1582:
1583: Ahl_Debug_Pub.debug ( l_full_name || '*******************BEFORE RESOURCE NAME CHECK');
1584: END IF;
1585: -- For Resource
1586: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
1587: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
1603: RAISE Fnd_Api.G_EXC_ERROR;
1604: END IF;
1605: END IF;
1606: IF G_DEBUG='Y' THEN
1607: Ahl_Debug_Pub.debug ( l_full_name || '*******************AFTER RESOURCE NAME CHECK');
1608: END IF;
1609:
1610: IF p_module_type = 'JSP'
1611: THEN
1671: RAISE Fnd_Api.G_EXC_ERROR;
1672: END IF;
1673: END IF;
1674: IF G_DEBUG='Y' THEN
1675: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1676: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1677: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1678: END IF;
1679: -- For Cost Basis
1672: END IF;
1673: END IF;
1674: IF G_DEBUG='Y' THEN
1675: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1676: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1677: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1678: END IF;
1679: -- For Cost Basis
1680: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
1673: END IF;
1674: IF G_DEBUG='Y' THEN
1675: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
1676: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
1677: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1678: END IF;
1679: -- For Cost Basis
1680: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
1681: l_Resrc_Require_Rec.COST_BASIS_NAME <> Fnd_Api.G_MISS_CHAR )
1695: RAISE Fnd_Api.G_EXC_ERROR;
1696: END IF;
1697: END IF;
1698: IF G_DEBUG='Y' THEN
1699: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1700: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1701: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1702: END IF;
1703: -- For Scheduled Type
1696: END IF;
1697: END IF;
1698: IF G_DEBUG='Y' THEN
1699: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1700: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1701: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1702: END IF;
1703: -- For Scheduled Type
1704: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
1697: END IF;
1698: IF G_DEBUG='Y' THEN
1699: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
1700: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
1701: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1702: END IF;
1703: -- For Scheduled Type
1704: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
1705: l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
1719: RAISE Fnd_Api.G_EXC_ERROR;
1720: END IF;
1721: END IF;
1722: IF G_DEBUG='Y' THEN
1723: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1724: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
1725: END IF;
1726: -- To find meaning for fnd_lookups code
1727: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
1720: END IF;
1721: END IF;
1722: IF G_DEBUG='Y' THEN
1723: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
1724: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
1725: END IF;
1726: -- To find meaning for fnd_lookups code
1727: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
1728: l_Resrc_Require_Rec.STD_RATE_FLAG_CODE <> Fnd_Api.G_MISS_NUM) THEN
1736: END IF;
1737:
1738: -------------------------------- Validate -----------------------------------------
1739: IF G_DEBUG='Y' THEN
1740: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Validate_Resrc_Require****');
1741: END IF;
1742:
1743: -- Schedule seq number validation
1744: -- JKJAIN US space FP for ER # 6998882-- start
1769: x_msg_data => x_msg_data
1770: );
1771: END IF;
1772: IF G_DEBUG='Y' THEN
1773: Ahl_Debug_Pub.debug ( l_full_name || ' ******After calling Validate_Resrc_Require****');
1774: END IF;
1775: --Standard check to count messages
1776: l_msg_count := Fnd_Msg_Pub.count_msg;
1777:
1784: --
1785: IF l_Resrc_Require_Rec.Operation_Resource_Id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
1786: THEN
1787: IF G_DEBUG='Y' THEN
1788: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE DEFAULT VALUES****');
1789: END IF;
1790:
1791: -- These conditions are Required for optional fields
1792: IF (l_Resrc_Require_Rec.CHARGE_TYPE_CODE IS NULL OR
1953:
1954: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
1955: END IF;
1956: IF G_DEBUG='Y' THEN
1957: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE DEFAULT VALUES****');
1958: END IF;
1959:
1960: END LOOP;
1961: END IF;
1959:
1960: END LOOP;
1961: END IF;
1962: IF G_DEBUG='Y' THEN
1963: Ahl_Debug_Pub.debug ('p_interface_flag'||p_interface_flag);
1964: END IF;
1965: IF nvl(p_interface_flag,'Y')= 'Y' THEN
1966: -- CALL Load_WIP_Jobs API
1967: -- If not sucess then not allowed to insert in our entity
1978: j:=1;
1979: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
1980: LOOP
1981: IF G_DEBUG='Y' THEN
1982: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1983: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1984: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1985: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1986: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1979: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
1980: LOOP
1981: IF G_DEBUG='Y' THEN
1982: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1983: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1984: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1985: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1986: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1987: END IF;
1980: LOOP
1981: IF G_DEBUG='Y' THEN
1982: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1983: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1984: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1985: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1986: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1987: END IF;
1988: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1981: IF G_DEBUG='Y' THEN
1982: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1983: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1984: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1985: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1986: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1987: END IF;
1988: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1989: l_Resrc_Require_Tbl(j).wip_entity_id := l_wip_entity_id;
1982: Ahl_Debug_Pub.debug ( l_full_name || 'CALL FOR WIP JOBS');
1983: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER );
1984: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER' ||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER );
1985: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).RESOURCE_ID' ||p_x_resrc_Require_tbl(i).RESOURCE_ID );
1986: Ahl_Debug_Pub.debug ('p_x_resrc_Require_tbl(i).QUANTITY' ||p_x_resrc_Require_tbl(i).QUANTITY );
1987: END IF;
1988: l_Resrc_Require_Tbl(j).organization_id := l_wo_organization_id;
1989: l_Resrc_Require_Tbl(j).wip_entity_id := l_wip_entity_id;
1990: l_Resrc_Require_Tbl(j).job_number := l_workorder_name;
2008: l_Resrc_Require_Tbl(j).scheduled_type_code := p_x_resrc_Require_tbl(i).SCHEDULED_TYPE_CODE;
2009: l_Resrc_Require_Tbl(j).operation_flag := 'C';
2010:
2011: IF G_DEBUG='Y' THEN
2012: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2009: l_Resrc_Require_Tbl(j).operation_flag := 'C';
2010:
2011: IF G_DEBUG='Y' THEN
2012: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2010:
2011: IF G_DEBUG='Y' THEN
2012: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2011: IF G_DEBUG='Y' THEN
2012: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2012: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2013: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2014: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2024: END IF;
2017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2024: END IF;
2025:
2018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2024: END IF;
2025:
2026: -- Fix for Bug # 8329755 (FP for Bug # 7697909) -- start
2019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
2020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
2021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
2022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
2023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
2024: END IF;
2025:
2026: -- Fix for Bug # 8329755 (FP for Bug # 7697909) -- start
2027: Expand_Master_Wo_Dates(l_Resrc_Require_Tbl(j));
2052: -- not chking return status causes data corruption - see bug# 7632674
2053: -- Raise errors if exceptions occur
2054: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2055: IF G_DEBUG='Y' THEN
2056: Ahl_Debug_Pub.debug ('Error returned from AHL_EAM_JOB_PVT.process_resource_req:'||l_return_status);
2057: END IF;
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2060: IF G_DEBUG='Y' THEN
2057: END IF;
2058: RAISE FND_API.G_EXC_ERROR;
2059: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2060: IF G_DEBUG='Y' THEN
2061: Ahl_Debug_Pub.debug ('Error returned from AHL_EAM_JOB_PVT.process_resource_req:'||l_return_status);
2062: END IF;
2063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2064: END IF;
2065: END IF;
2066:
2067: END IF; -- interface flag
2068:
2069: IF G_DEBUG='Y' THEN
2070: Ahl_Debug_Pub.debug ('after wip load p_interface_flag'||l_return_status);
2071: Ahl_Debug_Pub.debug ('after wip load p_x_resrc_Require_tbl.COUNT'||p_x_resrc_Require_tbl.COUNT);
2072:
2073: END IF;
2074:
2067: END IF; -- interface flag
2068:
2069: IF G_DEBUG='Y' THEN
2070: Ahl_Debug_Pub.debug ('after wip load p_interface_flag'||l_return_status);
2071: Ahl_Debug_Pub.debug ('after wip load p_x_resrc_Require_tbl.COUNT'||p_x_resrc_Require_tbl.COUNT);
2072:
2073: END IF;
2074:
2075: --Standard check to count messages
2085: IF p_x_resrc_Require_tbl.COUNT > 0 THEN
2086: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
2087: LOOP
2088: IF G_DEBUG='Y' THEN
2089: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE REQUIRE LOOP****');
2090: END IF;
2091:
2092: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
2093: IF l_Resrc_Require_Rec.Operation_Resource_id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
2092: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
2093: IF l_Resrc_Require_Rec.Operation_Resource_id = FND_API.G_MISS_NUM OR l_Resrc_Require_Rec.Operation_Resource_Id IS NULL
2094: THEN
2095: IF G_DEBUG='Y' THEN
2096: Ahl_Debug_Pub.debug ( l_full_name || ' ******INSIDE REQUIRE ID IF CASE****');
2097: END IF;
2098:
2099: --
2100: -- Get Sequence Number for Resource Requirement ID
2112: Fnd_Msg_Pub.ADD;
2113: RAISE FND_API.G_EXC_ERROR;
2114: END IF;
2115: IF G_DEBUG='Y' THEN
2116: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
2117: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
2118: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
2119: END IF;
2120:
2113: RAISE FND_API.G_EXC_ERROR;
2114: END IF;
2115: IF G_DEBUG='Y' THEN
2116: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
2117: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
2118: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
2119: END IF;
2120:
2121: -- Create Record in schedule Resources
2114: END IF;
2115: IF G_DEBUG='Y' THEN
2116: Ahl_Debug_Pub.debug ( l_full_name || ' ******Before calling Insert_Row****');
2117: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.workorder_operation_id'||l_Resrc_Require_Rec.workorder_operation_id);
2118: Ahl_Debug_Pub.debug ( 'pworkorder_operation_id'||p_x_resrc_Require_tbl(i).workorder_operation_id);
2119: END IF;
2120:
2121: -- Create Record in schedule Resources
2122: Insert_Row (
2155: X_RT_OPER_RESOURCE_ID => l_Resrc_Require_Rec.rt_oper_resource_id
2156: -- SUKHWSIN ER # 9014609 -- end
2157: );
2158: IF G_DEBUG='Y' THEN
2159: Ahl_Debug_Pub.debug ( l_full_name || ' ******After calling Insert_Row****');
2160: END IF;
2161:
2162: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2163: END IF;
2165: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
2166: INTO l_wo_operation_txn_id
2167: FROM DUAL;
2168: IF G_DEBUG='Y' THEN
2169: AHL_DEBUG_PUB.debug( 'before calling log record l_wo_operation_txn_id:'||l_wo_operation_txn_id);
2170: END IF;
2171:
2172: -- Create Record in transactions table
2173: AHL_PP_MATERIALS_PVT.Log_Transaction_Record
2186: p_res_sched_start_date => p_x_resrc_Require_tbl(i).REQ_START_DATE,
2187: p_res_sched_end_date => p_x_resrc_Require_tbl(i).REQ_START_DATE
2188: );
2189: IF G_DEBUG='Y' THEN
2190: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE IF CASE****');
2191: END IF;
2192: END LOOP;
2193: IF G_DEBUG='Y' THEN
2194: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE LOOP****');
2190: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE IF CASE****');
2191: END IF;
2192: END LOOP;
2193: IF G_DEBUG='Y' THEN
2194: Ahl_Debug_Pub.debug ( l_full_name || ' ******OUTSIDE REQUIRE LOOP****');
2195: END IF;
2196:
2197: END IF;
2198:
2211: COMMIT;
2212: END IF;
2213: IF G_DEBUG='Y' THEN
2214: -- Debug info
2215: Ahl_Debug_Pub.debug( 'End of public api Create Resource Reqst +PPResrc_Require_Pvt+');
2216: -- Check if API is called in debug mode. If yes, disable debug.
2217: Ahl_Debug_Pub.disable_debug;
2218: --
2219: END IF;
2213: IF G_DEBUG='Y' THEN
2214: -- Debug info
2215: Ahl_Debug_Pub.debug( 'End of public api Create Resource Reqst +PPResrc_Require_Pvt+');
2216: -- Check if API is called in debug mode. If yes, disable debug.
2217: Ahl_Debug_Pub.disable_debug;
2218: --
2219: END IF;
2220:
2221: EXCEPTION
2226: p_count => x_msg_count,
2227: p_data => x_msg_data);
2228: IF G_DEBUG='Y' THEN
2229: -- Debug info.
2230: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2231:
2232: -- Check if API is called in debug mode. If yes, disable debug.
2233: AHL_DEBUG_PUB.disable_debug;
2234: END IF;
2229: -- Debug info.
2230: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
2231:
2232: -- Check if API is called in debug mode. If yes, disable debug.
2233: AHL_DEBUG_PUB.disable_debug;
2234: END IF;
2235:
2236: WHEN FND_API.G_EXC_ERROR THEN
2237: ROLLBACK TO Create_Resrc_Require;
2240: p_count => x_msg_count,
2241: p_data => X_msg_data);
2242: IF G_DEBUG='Y' THEN
2243:
2244: Ahl_Debug_Pub.debug('Inside Exception' || '**UNEXPECTED ERRORS');
2245: -- Debug info.
2246: AHL_DEBUG_PUB.log_app_messages (
2247: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2248:
2242: IF G_DEBUG='Y' THEN
2243:
2244: Ahl_Debug_Pub.debug('Inside Exception' || '**UNEXPECTED ERRORS');
2245: -- Debug info.
2246: AHL_DEBUG_PUB.log_app_messages (
2247: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2248:
2249: -- Check if API is called in debug mode. If yes, disable debug.
2250: AHL_DEBUG_PUB.disable_debug;
2246: AHL_DEBUG_PUB.log_app_messages (
2247: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
2248:
2249: -- Check if API is called in debug mode. If yes, disable debug.
2250: AHL_DEBUG_PUB.disable_debug;
2251: END IF;
2252:
2253: WHEN OTHERS THEN
2254: ROLLBACK TO Create_Resrc_Require;
2253: WHEN OTHERS THEN
2254: ROLLBACK TO Create_Resrc_Require;
2255: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256:
2257: Ahl_Debug_Pub.debug('Inside Exception' || '**SQL ERRORS');
2258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2259: THEN
2260: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_PP_RESRC_Require_PVT',
2261: p_procedure_name => 'Create_Resrc_Require',
2266: p_data => X_msg_data);
2267: IF G_DEBUG='Y' THEN
2268:
2269: -- Debug info.
2270: AHL_DEBUG_PUB.log_app_messages (
2271: x_msg_count, x_msg_data, 'SQL ERROR' );
2272:
2273: -- Check if API is called in debug mode. If yes, disable debug.
2274: AHL_DEBUG_PUB.disable_debug;
2270: AHL_DEBUG_PUB.log_app_messages (
2271: x_msg_count, x_msg_data, 'SQL ERROR' );
2272:
2273: -- Check if API is called in debug mode. If yes, disable debug.
2274: AHL_DEBUG_PUB.disable_debug;
2275: END IF;
2276:
2277: END Create_Resrc_Require;
2278:
2447:
2448: -- Check if API is called in debug mode. If yes, enable debug.
2449: IF G_DEBUG='Y' THEN
2450:
2451: AHL_DEBUG_PUB.enable_debug;
2452:
2453: -- Debug info.
2454: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt. Update Resource Requirement +PPResrc_Require_Pvt+');
2455: END IF;
2450:
2451: AHL_DEBUG_PUB.enable_debug;
2452:
2453: -- Debug info.
2454: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt. Update Resource Requirement +PPResrc_Require_Pvt+');
2455: END IF;
2456:
2457: G_MODULE_TYPE:=P_MODULE_TYPE;
2458: -- Standard call to check for call compatibility.
2476: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
2477: LOOP
2478: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
2479: IF G_DEBUG='Y' THEN
2480: Ahl_Debug_Pub.debug ( l_full_name || 'OPERATION_RESOURCE_ID = ' || l_Resrc_Require_Rec.OPERATION_RESOURCE_ID);
2481: END IF;
2482: --------------------Value OR ID conversion---------------------------
2483: --Start API Body
2484: IF p_module_type = 'JSP'
2529: -- requested end date
2530: -- Bug # 6728602 -- start
2531:
2532: IF G_DEBUG='Y' THEN
2533: 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'));
2534: 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'));
2535: END IF;
2536:
2537: --apattark commented for bug #9367587
2530: -- Bug # 6728602 -- start
2531:
2532: IF G_DEBUG='Y' THEN
2533: 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'));
2534: 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'));
2535: END IF;
2536:
2537: --apattark commented for bug #9367587
2538: /*
2553: l_Resrc_Require_Rec.req_end_date := l_op_end_date;
2554: END IF;
2555:
2556: IF G_DEBUG='Y' THEN
2557: Ahl_Debug_Pub.debug ( ' after default l_Resrc_Require_Rec.req_start_date = ' || to_char(l_Resrc_Require_Rec.req_start_date,'DD-MON-YYYY HH24:MI:SS'));
2558: Ahl_Debug_Pub.debug ( ' after default l_Resrc_Require_Rec.req_end_date = ' || to_char(l_Resrc_Require_Rec.req_end_date,'DD-MON-YYYY HH24:MI:SS'));
2559: END IF;
2560: --apattark end for bug #9367587
2561:
2554: END IF;
2555:
2556: IF G_DEBUG='Y' THEN
2557: Ahl_Debug_Pub.debug ( ' after default l_Resrc_Require_Rec.req_start_date = ' || to_char(l_Resrc_Require_Rec.req_start_date,'DD-MON-YYYY HH24:MI:SS'));
2558: Ahl_Debug_Pub.debug ( ' after default l_Resrc_Require_Rec.req_end_date = ' || to_char(l_Resrc_Require_Rec.req_end_date,'DD-MON-YYYY HH24:MI:SS'));
2559: END IF;
2560: --apattark end for bug #9367587
2561:
2562: /*IF (TRUNC(l_Resrc_Require_Rec.req_start_date) = TRUNC(l_op_start_date )
2591: END IF;*/
2592: -- Bug # 6728602 -- end
2593: -- end of changes for bug 4092197
2594: IF G_DEBUG='Y' THEN
2595: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2596: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2597: END IF;
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2592: -- Bug # 6728602 -- end
2593: -- end of changes for bug 4092197
2594: IF G_DEBUG='Y' THEN
2595: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2596: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2597: END IF;
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2600: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2594: IF G_DEBUG='Y' THEN
2595: Ahl_Debug_Pub.debug ( l_full_name || ' WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
2596: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2597: END IF;
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2600: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2601: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2602: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2596: Ahl_Debug_Pub.debug ( l_full_name || ' Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2597: END IF;
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2600: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2601: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2602: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2603:
2604: -- For Resource Type
2597: END IF;
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2600: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2601: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2602: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2603:
2604: -- For Resource Type
2605: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
2598: --Ahl_Debug_Pub.debug ( l_full_name || ' RESOURCE_SEQUENCE_NUM = ' || l_Resrc_Require_Rec.RESOURCE_SEQ_NUMBER);
2599:
2600: /*Ahl_Debug_Pub.debug ( l_full_name || ' Object Version Nubmer = ' || l_Resrc_Require_Rec.object_version_number);
2601: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_Resrc_Require_Rec.resource_type_name);
2602: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);*/
2603:
2604: -- For Resource Type
2605: IF ( l_Resrc_Require_Rec.resource_type_name IS NOT NULL AND
2606: l_Resrc_Require_Rec.resource_type_name <> Fnd_Api.G_MISS_CHAR )
2620: RAISE Fnd_Api.G_EXC_ERROR;
2621: END IF;
2622: END IF;
2623:
2624: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
2625: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
2626: -- For Resource
2627: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
2628: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
2621: END IF;
2622: END IF;
2623:
2624: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_Resrc_Require_Rec.resource_type_code);
2625: --Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_Resrc_Require_Rec.RESOURCE_NAME);
2626: -- For Resource
2627: IF l_Resrc_Require_Rec.RESOURCE_NAME IS NOT NULL AND
2628: l_Resrc_Require_Rec.RESOURCE_NAME <> Fnd_Api.G_MISS_CHAR
2629: THEN
2644: RAISE Fnd_Api.G_EXC_ERROR;
2645: END IF;
2646: END IF;
2647: IF G_DEBUG='Y' THEN
2648: Ahl_Debug_Pub.debug ( l_full_name || 'After Resource ID = ' || l_Resrc_Require_Rec.Resource_Id);
2649: END IF;
2650: --Assign workorder
2651: l_Resrc_Require_Rec.workorder_id := l_workorder_id;
2652:
2651: l_Resrc_Require_Rec.workorder_id := l_workorder_id;
2652:
2653: -- RESOURCE_TYPE_NAME
2654: IF (l_Resrc_Require_Rec.RESOURCE_TYPE_NAME IS NULL OR l_Resrc_Require_Rec.RESOURCE_TYPE_NAME = Fnd_Api.G_MISS_CHAR) THEN
2655: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Type Name =' || l_Resrc_Require_Rec.RESOURCE_TYPE_NAME);
2656: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2657: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_TYPE_MISSING');
2658: Fnd_Msg_Pub.ADD;
2659: END IF;
2658: Fnd_Msg_Pub.ADD;
2659: END IF;
2660: END IF;
2661:
2662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
2663: -- RESOURCE_NAME
2664: IF (l_Resrc_Require_Rec.RESOURCE_NAME IS NULL OR l_Resrc_Require_Rec.RESOURCE_NAME = Fnd_Api.G_MISS_CHAR) THEN
2665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
2666: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2661:
2662: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
2663: -- RESOURCE_NAME
2664: IF (l_Resrc_Require_Rec.RESOURCE_NAME IS NULL OR l_Resrc_Require_Rec.RESOURCE_NAME = Fnd_Api.G_MISS_CHAR) THEN
2665: Ahl_Debug_Pub.debug('Check_Resrc_Require_Req_Items' || '-- Resource Name =' || l_Resrc_Require_Rec.RESOURCE_NAME);
2666: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2667: Fnd_Message.set_name ('AHL', 'AHL_PP_RESRC_NAME_MISSING');
2668: Fnd_Msg_Pub.ADD;
2669: END IF;
2668: Fnd_Msg_Pub.ADD;
2669: END IF;
2670: END IF;
2671:
2672: Ahl_Debug_Pub.debug ( l_full_name || 'After WORKORDER ID = ' || l_Resrc_Require_Rec.workorder_id);
2673: /*OPEN c_workorder(l_Resrc_Require_Rec.workorder_id);
2674: FETCH c_workorder INTO c_workorder_rec;
2675: IF c_workorder%NOTFOUND THEN
2676: CLOSE c_workorder;
2696:
2697: --END IF;
2698:
2699: IF G_DEBUG='Y' THEN
2700: Ahl_Debug_Pub.debug ( l_full_name || ' Unit of Measure = ' || l_Resrc_Require_Rec.UOM_Name);
2701: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2702: END IF;
2703: -- For Units of Measure
2704: IF l_Resrc_Require_Rec.UOM_NAME IS NOT NULL AND
2697: --END IF;
2698:
2699: IF G_DEBUG='Y' THEN
2700: Ahl_Debug_Pub.debug ( l_full_name || ' Unit of Measure = ' || l_Resrc_Require_Rec.UOM_Name);
2701: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2702: END IF;
2703: -- For Units of Measure
2704: IF l_Resrc_Require_Rec.UOM_NAME IS NOT NULL AND
2705: l_Resrc_Require_Rec.UOM_NAME <> Fnd_Api.G_MISS_CHAR
2721: --
2722: p_x_resrc_Require_tbl(i).uom_code := l_Resrc_Require_Rec.UOM_CODE;
2723:
2724: IF G_DEBUG='Y' THEN
2725: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2726: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2727: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2728: END IF;
2729: -- For AutoCharge Type
2722: p_x_resrc_Require_tbl(i).uom_code := l_Resrc_Require_Rec.UOM_CODE;
2723:
2724: IF G_DEBUG='Y' THEN
2725: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2726: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2727: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2728: END IF;
2729: -- For AutoCharge Type
2730: IF ( l_Resrc_Require_Rec.CHARGE_TYPE_NAME IS NOT NULL AND
2723:
2724: IF G_DEBUG='Y' THEN
2725: Ahl_Debug_Pub.debug ( l_full_name || ' UOM Code = ' || l_Resrc_Require_Rec.UOM_CODE);
2726: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Type = ' || l_Resrc_Require_Rec.CHARGE_TYPE_NAME);
2727: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2728: END IF;
2729: -- For AutoCharge Type
2730: IF ( l_Resrc_Require_Rec.CHARGE_TYPE_NAME IS NOT NULL AND
2731: l_Resrc_Require_Rec.CHARGE_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
2745: RAISE Fnd_Api.G_EXC_ERROR;
2746: END IF;
2747: END IF;
2748: IF G_DEBUG='Y' THEN
2749: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2750: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2751: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2752: END IF;
2753: -- For Cost Basis
2746: END IF;
2747: END IF;
2748: IF G_DEBUG='Y' THEN
2749: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2750: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2751: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2752: END IF;
2753: -- For Cost Basis
2754: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
2747: END IF;
2748: IF G_DEBUG='Y' THEN
2749: Ahl_Debug_Pub.debug ( l_full_name || ' AutoCharge Code = ' || l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
2750: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS NAME = ' || l_Resrc_Require_Rec.COST_BASIS_NAME);
2751: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2752: END IF;
2753: -- For Cost Basis
2754: IF ( l_Resrc_Require_Rec.COST_BASIS_NAME IS NOT NULL AND
2755: l_Resrc_Require_Rec.COST_BASIS_NAME <> Fnd_Api.G_MISS_CHAR )
2769: RAISE Fnd_Api.G_EXC_ERROR;
2770: END IF;
2771: END IF;
2772: IF G_DEBUG='Y' THEN
2773: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2774: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2775: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2776: END IF;
2777: -- For Scheduled Type
2770: END IF;
2771: END IF;
2772: IF G_DEBUG='Y' THEN
2773: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2774: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2775: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2776: END IF;
2777: -- For Scheduled Type
2778: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
2771: END IF;
2772: IF G_DEBUG='Y' THEN
2773: Ahl_Debug_Pub.debug ( l_full_name || ' COST BASIS CODE = ' || l_Resrc_Require_Rec.COST_BASIS_CODE);
2774: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE NAME = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME);
2775: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2776: END IF;
2777: -- For Scheduled Type
2778: IF ( l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME IS NOT NULL AND
2779: l_Resrc_Require_Rec.SCHEDULED_TYPE_NAME <> Fnd_Api.G_MISS_CHAR )
2793: RAISE Fnd_Api.G_EXC_ERROR;
2794: END IF;
2795: END IF;
2796: IF G_DEBUG='Y' THEN
2797: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2798: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
2799: END IF;
2800: -- To find meaning for fnd_lookups code
2801: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
2794: END IF;
2795: END IF;
2796: IF G_DEBUG='Y' THEN
2797: Ahl_Debug_Pub.debug ( l_full_name || ' SCHEDULED TYPE CODE = ' || l_Resrc_Require_Rec.SCHEDULED_TYPE_CODE);
2798: Ahl_Debug_Pub.debug ( l_full_name || ' STANDARD RATE FLAG = ' || l_Resrc_Require_Rec.STD_RATE_FLAG_CODE);
2799: END IF;
2800: -- To find meaning for fnd_lookups code
2801: IF (l_Resrc_Require_Rec.STD_RATE_FLAG_CODE IS NOT NULL AND
2802: l_Resrc_Require_Rec.STD_RATE_FLAG_CODE <> Fnd_Api.G_MISS_NUM) THEN
2956:
2957: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2958: -- Check Object version number.
2959: IF G_DEBUG='Y' THEN
2960: Ahl_Debug_Pub.debug ( l_full_name || ' Record Object Version Nubmer = ' || l_resrc_Require_Rec.object_version_number);
2961: Ahl_Debug_Pub.debug ( l_full_name || ' Cursor Object Version Nubmer = ' || c_oper_req_rec.object_version_number);
2962: END IF;
2963: IF (c_oper_req_rec.object_version_number <> l_Resrc_Require_Rec.object_version_number)
2964: THEN
2957: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
2958: -- Check Object version number.
2959: IF G_DEBUG='Y' THEN
2960: Ahl_Debug_Pub.debug ( l_full_name || ' Record Object Version Nubmer = ' || l_resrc_Require_Rec.object_version_number);
2961: Ahl_Debug_Pub.debug ( l_full_name || ' Cursor Object Version Nubmer = ' || c_oper_req_rec.object_version_number);
2962: END IF;
2963: IF (c_oper_req_rec.object_version_number <> l_Resrc_Require_Rec.object_version_number)
2964: THEN
2965: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3011: -- JKJAIN US space FP for ER # 6998882-- end
3012: l_Resrc_Require_Tbl(j).operation_flag := 'U';
3013: --
3014: IF G_DEBUG='Y' THEN
3015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3012: l_Resrc_Require_Tbl(j).operation_flag := 'U';
3013: --
3014: IF G_DEBUG='Y' THEN
3015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3013: --
3014: IF G_DEBUG='Y' THEN
3015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3014: IF G_DEBUG='Y' THEN
3015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3015: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3016: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).JOB_NUMBER: ' ||l_Resrc_Require_Tbl(j).JOB_NUMBER );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3017: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).UOM_CODE: ' ||l_Resrc_Require_Tbl(j).UOM_CODE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3018: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3026: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
3019: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3026: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
3027: END IF;
3020: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3026: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
3027: END IF;
3028:
3021: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3026: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
3027: END IF;
3028:
3029: -- Fix for Bug # 8329755 (FP for Bug # 7697909) -- start
3022: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3023: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).QUANTITY: ' ||l_Resrc_Require_Tbl(j).QUANTITY );
3024: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).DURATION: ' ||l_Resrc_Require_Tbl(j).DURATION );
3025: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_START_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_START_DATE );
3026: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).REQ_END_DATE: ' ||l_Resrc_Require_Tbl(j).REQ_END_DATE );
3027: END IF;
3028:
3029: -- Fix for Bug # 8329755 (FP for Bug # 7697909) -- start
3030: Expand_Master_Wo_Dates(l_Resrc_Require_Tbl(j));
3056: l_Resrc_Require_Rec := p_x_resrc_Require_tbl(i);
3057: IF l_Resrc_Require_Rec.Operation_Resource_id <> FND_API.G_MISS_NUM
3058: THEN
3059: IF G_DEBUG='Y' THEN
3060: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
3061: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
3062: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
3063: END IF;
3064:
3057: IF l_Resrc_Require_Rec.Operation_Resource_id <> FND_API.G_MISS_NUM
3058: THEN
3059: IF G_DEBUG='Y' THEN
3060: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
3061: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
3062: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
3063: END IF;
3064:
3065: -- Create Record in schedule Resources
3058: THEN
3059: IF G_DEBUG='Y' THEN
3060: Ahl_Debug_Pub.debug ( l_full_name || 'after WORKORDER_OPERATION_ID = ' || l_Resrc_Require_Rec.WORKORDER_OPERATION_ID);
3061: Ahl_Debug_Pub.debug ( l_full_name || 'after RESOURCE_ID = ' || l_Resrc_Require_Rec.RESOURCE_ID);
3062: Ahl_Debug_Pub.debug ( l_full_name || 'after OBJECT_VERSION_NUBMER = ' || l_Resrc_Require_Rec.OBJECT_VERSION_NUMBER);
3063: END IF;
3064:
3065: -- Create Record in schedule Resources
3066: Update_Row (
3096: );
3097:
3098:
3099: IF G_DEBUG='Y' THEN
3100: Ahl_Debug_Pub.debug ( 'l_Resrc_Require_Rec.CHARGE_TYPE_CODE:'||l_Resrc_Require_Rec.CHARGE_TYPE_CODE);
3101: END IF;
3102: p_x_resrc_Require_tbl(i) := l_Resrc_Require_Rec;
3103: --Get the value from sequence
3104: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
3104: SELECT AHL_WO_OPERATIONS_TXNS_S.NEXTVAL
3105: INTO l_wo_operation_txn_id
3106: FROM DUAL;
3107: IF G_DEBUG='Y' THEN
3108: AHL_DEBUG_PUB.debug( 'before calling log record l_wo_operation_txn_id:'||l_wo_operation_txn_id);
3109: END IF;
3110: -- Create Record in transactions table
3111: AHL_PP_MATERIALS_PVT.Log_Transaction_Record
3112: ( p_wo_operation_txn_id => l_wo_operation_txn_id,
3146: END IF;
3147:
3148: -- Debug info
3149: IF G_DEBUG='Y' THEN
3150: Ahl_Debug_Pub.debug( 'End of Update Resource Reqst +PPResrc_Require_Pvt+');
3151:
3152: -- Check if API is called in debug mode. If yes, disable debug.
3153: Ahl_Debug_Pub.disable_debug;
3154: END IF;
3149: IF G_DEBUG='Y' THEN
3150: Ahl_Debug_Pub.debug( 'End of Update Resource Reqst +PPResrc_Require_Pvt+');
3151:
3152: -- Check if API is called in debug mode. If yes, disable debug.
3153: Ahl_Debug_Pub.disable_debug;
3154: END IF;
3155: EXCEPTION
3156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3157: ROLLBACK TO Update_Resrc_Require;
3160: p_count => x_msg_count,
3161: p_data => x_msg_data);
3162: IF G_DEBUG='Y' THEN
3163: -- Debug info.
3164: AHL_DEBUG_PUB.log_app_messages (
3165: x_msg_count, x_msg_data, 'ERROR' );
3166:
3167: -- Check if API is called in debug mode. If yes, disable debug.
3168: AHL_DEBUG_PUB.disable_debug;
3164: AHL_DEBUG_PUB.log_app_messages (
3165: x_msg_count, x_msg_data, 'ERROR' );
3166:
3167: -- Check if API is called in debug mode. If yes, disable debug.
3168: AHL_DEBUG_PUB.disable_debug;
3169: END IF;
3170: WHEN FND_API.G_EXC_ERROR THEN
3171: ROLLBACK TO Update_Resrc_Require;
3172: X_return_status := FND_API.G_RET_STS_ERROR;
3174: p_count => x_msg_count,
3175: p_data => X_msg_data);
3176: IF G_DEBUG='Y' THEN
3177: -- Debug info.
3178: AHL_DEBUG_PUB.log_app_messages (
3179: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3180:
3181: -- Check if API is called in debug mode. If yes, disable debug.
3182: AHL_DEBUG_PUB.disable_debug;
3178: AHL_DEBUG_PUB.log_app_messages (
3179: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3180:
3181: -- Check if API is called in debug mode. If yes, disable debug.
3182: AHL_DEBUG_PUB.disable_debug;
3183: --
3184: END IF;
3185: WHEN OTHERS THEN
3186: ROLLBACK TO Update_Resrc_Require;
3195: p_count => x_msg_count,
3196: p_data => X_msg_data);
3197: IF G_DEBUG='Y' THEN
3198: -- Debug info.
3199: AHL_DEBUG_PUB.log_app_messages (
3200: x_msg_count, x_msg_data, 'SQL ERROR' );
3201:
3202: -- Check if API is called in debug mode. If yes, disable debug.
3203: AHL_DEBUG_PUB.disable_debug;
3199: AHL_DEBUG_PUB.log_app_messages (
3200: x_msg_count, x_msg_data, 'SQL ERROR' );
3201:
3202: -- Check if API is called in debug mode. If yes, disable debug.
3203: AHL_DEBUG_PUB.disable_debug;
3204: END IF;
3205: END Update_Resrc_Require;
3206:
3207: --------------------------------------------------------------------
3341: -- Standard start of API savepoint
3342: SAVEPOINT Get_Resource_Requirement;
3343: IF G_DEBUG='Y' THEN
3344: -- Check if API is called in debug mode. If yes, enable debug.
3345: Ahl_Debug_Pub.enable_debug;
3346: --
3347: END IF;
3348: -- Debug info.
3349: IF G_DEBUG='Y' THEN
3346: --
3347: END IF;
3348: -- Debug info.
3349: IF G_DEBUG='Y' THEN
3350: Ahl_Debug_Pub.debug ( l_full_name || ' Start ');
3351: END IF;
3352:
3353: -- Standard call to check for call compatibility.
3354: IF Fnd_Api.to_boolean(p_init_msg_list)
3372: LOOP
3373: l_Resrc_Require_Rec := p_x_resrc_Require_Tbl(i);
3374: ----------------------------------------- Cursor ----------------------------------
3375: IF G_DEBUG='Y' THEN
3376: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || l_Resrc_Require_Rec.operation_resource_id);
3377: END IF;
3378: OPEN c_res_req (l_Resrc_Require_Rec.operation_resource_id);
3379: FETCH c_res_req INTO c_resrc_req;
3380: CLOSE c_res_req;
3382: OPEN c_resource (l_Resrc_Require_Rec.operation_resource_id);
3383: FETCH c_resource INTO l_resrc_type_name, l_resrc_type_code, l_resrc_name;
3384: CLOSE c_resource;
3385: IF G_DEBUG='Y' THEN
3386: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3387: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3388: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3389: END IF;
3390: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3383: FETCH c_resource INTO l_resrc_type_name, l_resrc_type_code, l_resrc_name;
3384: CLOSE c_resource;
3385: IF G_DEBUG='Y' THEN
3386: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3387: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3388: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3389: END IF;
3390: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3391: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3384: CLOSE c_resource;
3385: IF G_DEBUG='Y' THEN
3386: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Name = ' || l_resrc_type_name);
3387: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Type Code = ' || l_resrc_type_code);
3388: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Name = ' || l_resrc_name);
3389: END IF;
3390: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3391: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3392: CLOSE c_WO_oper;
3390: OPEN c_WO_oper (c_resrc_req.workorder_operation_id);
3391: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3392: CLOSE c_WO_oper;
3393: IF G_DEBUG='Y' THEN
3394: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3395: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3396: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3397: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3398: END IF;
3391: FETCH c_WO_oper INTO l_oper_seq_num, oper_start_date, oper_end_date;
3392: CLOSE c_WO_oper;
3393: IF G_DEBUG='Y' THEN
3394: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3395: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3396: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3397: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3398: END IF;
3399:
3392: CLOSE c_WO_oper;
3393: IF G_DEBUG='Y' THEN
3394: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3395: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3396: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3397: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3398: END IF;
3399:
3400: OPEN c_WIP_oper ( l_Resrc_Require_Rec.operation_resource_id);
3393: IF G_DEBUG='Y' THEN
3394: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Sequence Number = ' || l_oper_seq_num);
3395: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start Date = ' || oper_start_date);
3396: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End Date = ' || oper_end_date);
3397: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Id = ' || c_resrc_req.resource_id);
3398: END IF;
3399:
3400: OPEN c_WIP_oper ( l_Resrc_Require_Rec.operation_resource_id);
3401: FETCH c_WIP_oper INTO c_WIP_oper_rec;
3490: p_item_instance_id => NULL);
3491:
3492:
3493: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3494: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3491:
3492:
3493: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3494: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3492:
3493: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3494: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3500: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3493: p_x_resrc_Require_Tbl(i) := l_Resrc_Require_Rec;
3494: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3500: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3501:
3494: /*Ahl_Debug_Pub.debug ( l_full_name || ' *********************values assing to output parameter***********************');
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3500: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3501:
3502: END LOOP;
3495: Ahl_Debug_Pub.debug ( l_full_name || ' Work Order Id = ' || p_x_resrc_Require_tbl(i).WORKORDER_ID);
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3500: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3501:
3502: END LOOP;
3503: END IF;
3496: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Resource Id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3497: Ahl_Debug_Pub.debug ( l_full_name || ' Resource Seq Num = ' || p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3498: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Seq Num = ' || p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3499: Ahl_Debug_Pub.debug ( l_full_name || ' Operation Start = ' || p_x_resrc_Require_tbl(i).OPER_START_DATE);
3500: Ahl_Debug_Pub.debug ( l_full_name || ' Operation End = ' || p_x_resrc_Require_tbl(i).OPER_END_DATE);*/
3501:
3502: END LOOP;
3503: END IF;
3504: -- Standard call to get message count and if count is 1, get message info
3508: p_encoded => Fnd_Api.g_false);
3509:
3510: -- Check if API is called in debug mode. If yes, enable debug.
3511: IF G_DEBUG='Y' THEN
3512: Ahl_Debug_Pub.enable_debug;
3513: END IF;
3514: -- Debug info.
3515: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3516: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3511: IF G_DEBUG='Y' THEN
3512: Ahl_Debug_Pub.enable_debug;
3513: END IF;
3514: -- Debug info.
3515: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3516: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3517: END IF;
3518:
3519: -- Check if API is called in debug mode. If yes, disable debug.
3512: Ahl_Debug_Pub.enable_debug;
3513: END IF;
3514: -- Debug info.
3515: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
3516: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3517: END IF;
3518:
3519: -- Check if API is called in debug mode. If yes, disable debug.
3520: Ahl_Debug_Pub.disable_debug;
3516: Ahl_Debug_Pub.debug( L_FULL_NAME || '- End');
3517: END IF;
3518:
3519: -- Check if API is called in debug mode. If yes, disable debug.
3520: Ahl_Debug_Pub.disable_debug;
3521: RETURN;
3522:
3523: EXCEPTION
3524: WHEN Fnd_Api.G_EXC_ERROR THEN
3663: SAVEPOINT Remove_Resource_Requirement;
3664:
3665: -- Check if API is called in debug mode. If yes, enable debug.
3666: IF G_DEBUG='Y' THEN
3667: Ahl_Debug_Pub.enable_debug;
3668:
3669: -- Debug info.
3670: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt Remove Resource Requirement +APRRP+');
3671: END IF;
3666: IF G_DEBUG='Y' THEN
3667: Ahl_Debug_Pub.enable_debug;
3668:
3669: -- Debug info.
3670: Ahl_Debug_Pub.debug( 'Enter ahl_pp_resrc_require_pvt Remove Resource Requirement +APRRP+');
3671: END IF;
3672: -- Standard call to check for call compatibility.
3673: IF Fnd_Api.to_boolean(p_init_msg_list)
3674: THEN
3692: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
3693: LOOP
3694: --
3695: IF G_DEBUG='Y' THEN
3696: Ahl_Debug_Pub.debug ( ' p_x_resrc_Require_tbl(i).operation_resource_id = ' || p_x_resrc_Require_tbl(i).operation_resource_id);
3697: END IF;
3698: --
3699: IF (p_x_resrc_Require_tbl(i).operation_resource_id IS NOT NULL AND
3700: p_x_resrc_Require_tbl(i).operation_resource_id <> FND_API.G_MISS_NUM)
3711: CLOSE Get_resource_cur;
3712: END IF;
3713: --
3714: IF G_DEBUG='Y' THEN
3715: Ahl_Debug_Pub.debug ( ' l_resource_rec.resource_id = ' || l_resource_rec.resource_id);
3716: END IF;
3717: --
3718: --Check for object version number
3719: IF (p_x_resrc_Require_tbl(i).object_version_number IS NOT NULL AND
3786: FETCH c_wip_oper_res INTO l_wip_oper_res_rec;
3787: CLOSE c_wip_oper_res;
3788: --
3789: IF G_DEBUG='Y' THEN
3790: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3791: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3792: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3793: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3794: END IF;
3787: CLOSE c_wip_oper_res;
3788: --
3789: IF G_DEBUG='Y' THEN
3790: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3791: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3792: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3793: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3794: END IF;
3795: --Assign Org,Wip entity details
3788: --
3789: IF G_DEBUG='Y' THEN
3790: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3791: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3792: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3793: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3794: END IF;
3795: --Assign Org,Wip entity details
3796: p_x_resrc_Require_tbl(i).ORGANIZATION_ID := l_organization_id;
3789: IF G_DEBUG='Y' THEN
3790: Ahl_Debug_Pub.debug ( ' AutoCharge Code = ' || l_wip_oper_res_rec.AUTOCHARGE_TYPE);
3791: Ahl_Debug_Pub.debug ( ' COST BASIS = ' || l_wip_oper_res_rec.BASIS_TYPE);
3792: Ahl_Debug_Pub.debug ( ' STANDARD_RATE_FLAG = ' || l_wip_oper_res_rec.STANDARD_RATE_FLAG);
3793: Ahl_Debug_Pub.debug ( ' l_Resrc_Require_Rec.Resource_Id = ' || l_Resrc_Require_Rec.Resource_Id);
3794: END IF;
3795: --Assign Org,Wip entity details
3796: p_x_resrc_Require_tbl(i).ORGANIZATION_ID := l_organization_id;
3797: p_x_resrc_Require_tbl(i).WIP_ENTITY_ID := l_wip_entity_id;
3804: FETCH c_uom_code INTO l_uom_code;
3805: CLOSE c_uom_code;
3806: --
3807: IF G_DEBUG='Y' THEN
3808: Ahl_Debug_Pub.debug ('l_UOM_CODE: ' ||l_uom_code );
3809: END IF;
3810: --
3811: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3812:
3810: --
3811: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3812:
3813: IF G_DEBUG='Y' THEN
3814: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3811: p_x_resrc_Require_tbl(i).UOM_CODE := l_uom_code;
3812:
3813: IF G_DEBUG='Y' THEN
3814: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3812:
3813: IF G_DEBUG='Y' THEN
3814: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3820: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3813: IF G_DEBUG='Y' THEN
3814: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3820: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3821:
3814: Ahl_Debug_Pub.debug ('Inside validation RESEQ'||p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER);
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3820: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3821:
3822: END IF;
3815: Ahl_Debug_Pub.debug ('Inside validationRESOURCES'||p_x_resrc_Require_tbl(i).RESOURCE_ID);
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3820: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3821:
3822: END IF;
3823: l_msg_count := Fnd_Msg_Pub.count_msg;
3816: Ahl_Debug_Pub.debug ('Inside OPERATIONSEQ:'||p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER);
3817: Ahl_Debug_Pub.debug ('Inside woid:'||p_x_resrc_Require_tbl(i).workorder_id);
3818: Ahl_Debug_Pub.debug ('Inside operation resource:'||p_x_resrc_Require_tbl(i).operation_resource_id);
3819: Ahl_Debug_Pub.debug ('Inside OVN:'||p_x_resrc_Require_tbl(i).object_version_number);
3820: Ahl_Debug_Pub.debug ('l_Resrc_Require_Rec.UOM_CODE: ' ||p_x_resrc_Require_tbl(i).uom_code );
3821:
3822: END IF;
3823: l_msg_count := Fnd_Msg_Pub.count_msg;
3824: IF G_DEBUG='Y' THEN
3821:
3822: END IF;
3823: l_msg_count := Fnd_Msg_Pub.count_msg;
3824: IF G_DEBUG='Y' THEN
3825: Ahl_Debug_Pub.debug ( 'msg count:'||l_msg_count);
3826: END IF;
3827:
3828: IF l_msg_count > 0 THEN
3829: X_msg_count := l_msg_count;
3838: -- Assign before calling Ahl Eam Job API
3839: j:=1;
3840: FOR i IN p_x_resrc_Require_tbl.FIRST..p_x_resrc_Require_tbl.LAST
3841: LOOP
3842: Ahl_Debug_Pub.debug ( 'CALL FOR WIP JOBS');
3843: l_resrc_Require_Tbl(j).organization_id := p_x_resrc_Require_tbl(i).ORGANIZATION_ID;
3844: l_resrc_Require_Tbl(j).wip_entity_id := p_x_resrc_Require_tbl(i).WIP_ENTITY_ID;
3845: l_Resrc_Require_Tbl(j).workorder_id := p_x_resrc_Require_tbl(i).WORKORDER_ID;
3846: l_resrc_Require_Tbl(j).operation_seq_number := p_x_resrc_Require_tbl(i).OPERATION_SEQ_NUMBER;
3857: l_Resrc_Require_Tbl(j).scheduled_type_code := p_x_resrc_Require_tbl(i).SCHEDULED_TYPE_CODE;
3858: l_resrc_Require_Tbl(j).operation_flag := 'D';
3859: --
3860: IF G_DEBUG='Y' THEN
3861: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3858: l_resrc_Require_Tbl(j).operation_flag := 'D';
3859: --
3860: IF G_DEBUG='Y' THEN
3861: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3866: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3859: --
3860: IF G_DEBUG='Y' THEN
3861: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3866: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3867:
3860: IF G_DEBUG='Y' THEN
3861: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3866: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3867:
3868: END IF;
3861: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WIP_ENTITY_ID: ' ||l_Resrc_Require_Tbl(j).WIP_ENTITY_ID );
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3866: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3867:
3868: END IF;
3869:
3862: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).WORKORDER_ID: ' ||l_Resrc_Require_Tbl(j).WORKORDER_ID );
3863: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).ORGANIZATION_ID: ' ||l_Resrc_Require_Tbl(j).ORGANIZATION_ID );
3864: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).OPERATION_SEQ_NUMBER );
3865: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUM: ' ||l_Resrc_Require_Tbl(j).RESOURCE_SEQ_NUMBER );
3866: Ahl_Debug_Pub.debug ('l_Resrc_Require_Tbl(j).RESOURCE_ID: ' ||l_Resrc_Require_Tbl(j).RESOURCE_ID );
3867:
3868: END IF;
3869:
3870: j := j + 1;
3894: FETCH c_chk_assgn INTO l_count;
3895: CLOSE c_chk_assgn;
3896:
3897: IF l_count > 0 THEN
3898: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3899: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_ASSIGN_EXITS');
3900: FND_MESSAGE.SET_TOKEN('RECORD',p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER,FALSE);
3901: Fnd_Msg_Pub.ADD;
3902: ELSE
3899: Fnd_Message.SET_NAME('AHL','AHL_PP_RESRC_ASSIGN_EXITS');
3900: FND_MESSAGE.SET_TOKEN('RECORD',p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER,FALSE);
3901: Fnd_Msg_Pub.ADD;
3902: ELSE
3903: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3904: Ahl_Debug_Pub.debug ('BEFORE DELETE RESOURCES' || p_x_resrc_Require_tbl(i).Operation_Resource_Id);
3905: DELETE FROM AHL_OPERATION_RESOURCES
3906: WHERE OPERATION_RESOURCE_ID = p_x_resrc_Require_tbl(i).operation_resource_id;
3907: END IF;
3900: FND_MESSAGE.SET_TOKEN('RECORD',p_x_resrc_Require_tbl(i).RESOURCE_SEQ_NUMBER,FALSE);
3901: Fnd_Msg_Pub.ADD;
3902: ELSE
3903: Ahl_Debug_Pub.debug ('Count in Assignments table' || l_count);
3904: Ahl_Debug_Pub.debug ('BEFORE DELETE RESOURCES' || p_x_resrc_Require_tbl(i).Operation_Resource_Id);
3905: DELETE FROM AHL_OPERATION_RESOURCES
3906: WHERE OPERATION_RESOURCE_ID = p_x_resrc_Require_tbl(i).operation_resource_id;
3907: END IF;
3908: END LOOP;
3925: END IF;
3926:
3927: -- Debug info
3928: IF G_DEBUG='Y' THEN
3929: Ahl_Debug_Pub.debug( 'End of private api Remove Resource Requirement +MAMRP+');
3930:
3931: -- Check if API is called in debug mode. If yes, disable debug.
3932: Ahl_Debug_Pub.disable_debug;
3933: END IF;
3928: IF G_DEBUG='Y' THEN
3929: Ahl_Debug_Pub.debug( 'End of private api Remove Resource Requirement +MAMRP+');
3930:
3931: -- Check if API is called in debug mode. If yes, disable debug.
3932: Ahl_Debug_Pub.disable_debug;
3933: END IF;
3934: EXCEPTION
3935: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3936: ROLLBACK TO Remove_Resource_Requirement;
3938: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
3939: p_count => x_msg_count,
3940: p_data => x_msg_data);
3941: IF G_DEBUG='Y' THEN
3942: Ahl_Debug_Pub.log_app_messages (
3943: x_msg_count, x_msg_data, 'ERROR' );
3944:
3945: -- Check if API is called in debug mode. If yes, disable debug.
3946: Ahl_Debug_Pub.disable_debug;
3942: Ahl_Debug_Pub.log_app_messages (
3943: x_msg_count, x_msg_data, 'ERROR' );
3944:
3945: -- Check if API is called in debug mode. If yes, disable debug.
3946: Ahl_Debug_Pub.disable_debug;
3947: END IF;
3948: WHEN Fnd_Api.G_EXC_ERROR THEN
3949: ROLLBACK TO Remove_Resource_Requirement;
3950: X_return_status := Fnd_Api.G_RET_STS_ERROR;
3952: p_count => x_msg_count,
3953: p_data => X_msg_data);
3954: IF G_DEBUG='Y' THEN
3955: -- Debug info.
3956: Ahl_Debug_Pub.log_app_messages (
3957: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3958:
3959: -- Check if API is called in debug mode. If yes, disable debug.
3960: Ahl_Debug_Pub.disable_debug;
3956: Ahl_Debug_Pub.log_app_messages (
3957: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
3958:
3959: -- Check if API is called in debug mode. If yes, disable debug.
3960: Ahl_Debug_Pub.disable_debug;
3961: END IF;
3962:
3963: WHEN OTHERS THEN
3964: ROLLBACK TO Remove_Resource_Requirement;
3973: p_count => x_msg_count,
3974: p_data => x_msg_data);
3975: IF G_DEBUG='Y' THEN
3976: -- Debug info.
3977: Ahl_Debug_Pub.log_app_messages (
3978: x_msg_count, x_msg_data, 'SQL ERROR' );
3979:
3980: -- Check if API is called in debug mode. If yes, disable debug.
3981: Ahl_Debug_Pub.disable_debug;
3977: Ahl_Debug_Pub.log_app_messages (
3978: x_msg_count, x_msg_data, 'SQL ERROR' );
3979:
3980: -- Check if API is called in debug mode. If yes, disable debug.
3981: Ahl_Debug_Pub.disable_debug;
3982: END IF;
3983: END Remove_Resource_Requirement;
3984:
3985: ----------------------------------------------------------------------------------
4054: -- Standard Start of API savepoint
4055: SAVEPOINT Process_Resrc_Require;
4056: -- Check if API is called in debug mode. If yes, enable debug.
4057: IF G_DEBUG='Y' THEN
4058: AHL_DEBUG_PUB.enable_debug;
4059: -- Debug info.
4060: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require.process_resrc_Require +PPResrc_Require_Pvt+');
4061: END IF;
4062: -- Standard call to check for call compatibility.
4056: -- Check if API is called in debug mode. If yes, enable debug.
4057: IF G_DEBUG='Y' THEN
4058: AHL_DEBUG_PUB.enable_debug;
4059: -- Debug info.
4060: Ahl_Debug_Pub.debug( 'Enter AHL_PP_RESRC_Require.process_resrc_Require +PPResrc_Require_Pvt+');
4061: END IF;
4062: -- Standard call to check for call compatibility.
4063: IF FND_API.to_boolean(p_init_msg_list)
4064: THEN
4089: x_msg_count => l_msg_count,
4090: x_msg_data => l_msg_data
4091: ) ;
4092: IF G_DEBUG='Y' THEN
4093: Ahl_Debug_Pub.debug('AFTER CREATE_RESRC_REQUIRE');
4094: END IF;
4095: ELSIF p_operation_flag = 'U' THEN
4096: IF G_DEBUG='Y' THEN
4097: Ahl_Debug_Pub.debug( 'after update'||p_operation_flag);
4093: Ahl_Debug_Pub.debug('AFTER CREATE_RESRC_REQUIRE');
4094: END IF;
4095: ELSIF p_operation_flag = 'U' THEN
4096: IF G_DEBUG='Y' THEN
4097: Ahl_Debug_Pub.debug( 'after update'||p_operation_flag);
4098: END IF;
4099: -- Call Update Resource Requirement
4100: Update_Resrc_Require (
4101: p_api_version => p_api_version,
4231: COMMIT;
4232: END IF;
4233: IF G_DEBUG='Y' THEN
4234: -- Debug info
4235: Ahl_Debug_Pub.debug( 'End of public api Process Resource Requirement + PPResrc_Require_Pvt+');
4236:
4237: -- Check if API is called in debug mode. If yes, disable debug.
4238: Ahl_Debug_Pub.disable_debug;
4239: END IF;
4234: -- Debug info
4235: Ahl_Debug_Pub.debug( 'End of public api Process Resource Requirement + PPResrc_Require_Pvt+');
4236:
4237: -- Check if API is called in debug mode. If yes, disable debug.
4238: Ahl_Debug_Pub.disable_debug;
4239: END IF;
4240: EXCEPTION
4241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4242: ROLLBACK TO Process_Resrc_Require;
4244: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4245: p_count => x_msg_count,
4246: p_data => x_msg_data);
4247: IF G_DEBUG='Y' THEN
4248: AHL_DEBUG_PUB.log_app_messages (
4249: x_msg_count, x_msg_data, 'ERROR' );
4250: -- Check if API is called in debug mode. If yes, disable debug.
4251: AHL_DEBUG_PUB.disable_debug;
4252: END IF;
4247: IF G_DEBUG='Y' THEN
4248: AHL_DEBUG_PUB.log_app_messages (
4249: x_msg_count, x_msg_data, 'ERROR' );
4250: -- Check if API is called in debug mode. If yes, disable debug.
4251: AHL_DEBUG_PUB.disable_debug;
4252: END IF;
4253: WHEN FND_API.G_EXC_ERROR THEN
4254: ROLLBACK TO Process_Resrc_Require;
4255: X_return_status := FND_API.G_RET_STS_ERROR;
4257: p_count => x_msg_count,
4258: p_data => X_msg_data);
4259: IF G_DEBUG='Y' THEN
4260: -- Debug info.
4261: AHL_DEBUG_PUB.log_app_messages (
4262: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
4263: -- Check if API is called in debug mode. If yes, disable debug.
4264: AHL_DEBUG_PUB.disable_debug;
4265: END IF;
4260: -- Debug info.
4261: AHL_DEBUG_PUB.log_app_messages (
4262: x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
4263: -- Check if API is called in debug mode. If yes, disable debug.
4264: AHL_DEBUG_PUB.disable_debug;
4265: END IF;
4266: WHEN OTHERS THEN
4267: ROLLBACK TO Process_Resrc_Require;
4268: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4276: p_count => x_msg_count,
4277: p_data => x_msg_data);
4278: IF G_DEBUG='Y' THEN
4279: -- Debug info.
4280: AHL_DEBUG_PUB.log_app_messages (
4281: x_msg_count, x_msg_data, 'SQL ERROR' );
4282: -- Check if API is called in debug mode. If yes, disable debug.
4283: AHL_DEBUG_PUB.disable_debug;
4284: END IF;
4279: -- Debug info.
4280: AHL_DEBUG_PUB.log_app_messages (
4281: x_msg_count, x_msg_data, 'SQL ERROR' );
4282: -- Check if API is called in debug mode. If yes, disable debug.
4283: AHL_DEBUG_PUB.disable_debug;
4284: END IF;
4285: END Process_Resrc_Require;
4286:
4287: END AHL_PP_RESRC_Require_PVT;