[Home] [Help]
10:
11: ------------------------------------
12: -- Common constants and variables --
13: ------------------------------------
14: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
15: l_log_statement NUMBER := fnd_log.level_statement;
16: l_log_procedure NUMBER := fnd_log.level_procedure;
17: l_log_error NUMBER := fnd_log.level_error;
18: l_log_unexpected NUMBER := fnd_log.level_unexpected;
11: ------------------------------------
12: -- Common constants and variables --
13: ------------------------------------
14: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
15: l_log_statement NUMBER := fnd_log.level_statement;
16: l_log_procedure NUMBER := fnd_log.level_procedure;
17: l_log_error NUMBER := fnd_log.level_error;
18: l_log_unexpected NUMBER := fnd_log.level_unexpected;
19: -----------------------------------------------------------------
12: -- Common constants and variables --
13: ------------------------------------
14: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
15: l_log_statement NUMBER := fnd_log.level_statement;
16: l_log_procedure NUMBER := fnd_log.level_procedure;
17: l_log_error NUMBER := fnd_log.level_error;
18: l_log_unexpected NUMBER := fnd_log.level_unexpected;
19: -----------------------------------------------------------------
20:
13: ------------------------------------
14: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
15: l_log_statement NUMBER := fnd_log.level_statement;
16: l_log_procedure NUMBER := fnd_log.level_procedure;
17: l_log_error NUMBER := fnd_log.level_error;
18: l_log_unexpected NUMBER := fnd_log.level_unexpected;
19: -----------------------------------------------------------------
20:
21: -- Record Type for track on tasks for which jobs has been created
14: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
15: l_log_statement NUMBER := fnd_log.level_statement;
16: l_log_procedure NUMBER := fnd_log.level_procedure;
17: l_log_error NUMBER := fnd_log.level_error;
18: l_log_unexpected NUMBER := fnd_log.level_unexpected;
19: -----------------------------------------------------------------
20:
21: -- Record Type for track on tasks for which jobs has been created
22: TYPE Job_Rec_Type IS RECORD
360: --------------------- initialize -----------------------
361: SAVEPOINT Integrate_to_Projects;
362:
363: IF (l_log_procedure >= l_log_current_level) THEN
364: fnd_log.string(l_log_procedure,
365: L_DEBUG_KEY ||'.begin',
366: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
367: END IF;
368:
382: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
383: END IF;
384:
385: IF (l_log_statement >= l_log_current_level) THEN
386: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id= '|| p_visit_id);
387: END IF;
388:
389: OPEN c_visit (p_visit_id);
390: FETCH c_visit INTO c_visit_rec;
390: FETCH c_visit INTO c_visit_rec;
391: CLOSE c_visit;
392:
393: IF (l_log_statement >= l_log_current_level) THEN
394: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visits Project Id = '|| c_visit_rec.PROJECT_ID);
395: END IF;
396:
397: IF c_visit_rec.PROJECT_ID IS NULL THEN
398: IF (l_log_statement >= l_log_current_level) THEN
395: END IF;
396:
397: IF c_visit_rec.PROJECT_ID IS NULL THEN
398: IF (l_log_statement >= l_log_current_level) THEN
399: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling Create_Project');
400: END IF;
401:
402: -- Call Create_Project local procedure to create project tasks
403: Create_Project (
404: p_visit_id => p_visit_id,
405: x_return_status => x_return_status);
406:
407: IF (l_log_statement >= l_log_current_level) THEN
408: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Create_Project - '||x_return_status);
409: END IF;
410: ELSE
411: IF (l_log_statement >= l_log_current_level) THEN
412: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling Update_Project');
408: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Create_Project - '||x_return_status);
409: END IF;
410: ELSE
411: IF (l_log_statement >= l_log_current_level) THEN
412: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling Update_Project');
413: END IF;
414:
415: -- Call Update_Project local procedure to update project tasks
416: Update_Project (
424: x_msg_count => x_msg_count,
425: x_msg_data => x_msg_data);
426:
427: IF (l_log_statement >= l_log_current_level) THEN
428: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Update_Project - '||x_return_status);
429: END IF;
430: END IF;
431:
432: ---------------------------End of Body-------------------------------------
444: p_data => x_msg_data
445: );
446:
447: IF (l_log_procedure >= l_log_current_level) THEN
448: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of PL/SQL procedure');
449: END IF;
450:
451: EXCEPTION
452: WHEN Fnd_Api.g_exc_error THEN
538: SAVEPOINT Add_Task_to_Project;
539:
540: -- Debug info.
541: IF (l_log_procedure >= l_log_current_level) THEN
542: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of PLSQL procedure');
543: END IF;
544:
545: -- Initialize message list if p_init_msg_list is set to TRUE.
546: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560: IF (l_log_statement >= l_log_current_level) THEN
561: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Task Id = '|| p_visit_task_id);
562: END IF;
563:
564: ----------------------------------------- Cursor ----------------------------------
565: OPEN c_task (p_visit_task_id);
575: -- change start
576:
577: -- RROY
578: IF (l_log_statement >= l_log_current_level) THEN
579: fnd_log.string(l_log_statement,
580: L_DEBUG_KEY,
581: 'Before calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
582: END IF;
583:
585: (x_check_project => l_chk_project,
586: x_return_status => l_return_status);
587:
588: IF (l_log_statement >= l_log_current_level) THEN
589: fnd_log.string(l_log_statement,
590: L_DEBUG_KEY,
591: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' ||
592: l_return_status);
593: END IF;
593: END IF;
594:
595: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
596: IF (l_log_statement >= l_log_current_level) THEN
597: fnd_log.string(l_log_statement,
598: L_DEBUG_KEY,
599: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
600: END IF;
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
608: IF l_chk_project = 'Y' THEN
609: IF c_task_rec.PROJECT_TASK_ID IS NULL THEN
610: -- change end
611: IF (l_log_statement >= l_log_current_level) THEN
612: fnd_log.string(l_log_statement,
613: L_DEBUG_KEY,
614: 'Before calling PA_PROJECT_PUB.CHECK_UNIQUE_TASK_NUMBER.');
615: fnd_log.string(l_log_statement,
616: L_DEBUG_KEY,
611: IF (l_log_statement >= l_log_current_level) THEN
612: fnd_log.string(l_log_statement,
613: L_DEBUG_KEY,
614: 'Before calling PA_PROJECT_PUB.CHECK_UNIQUE_TASK_NUMBER.');
615: fnd_log.string(l_log_statement,
616: L_DEBUG_KEY,
617: 'p_project_id = ' || c_visit_rec.project_id);
618: fnd_log.string(l_log_statement,
619: L_DEBUG_KEY,
614: 'Before calling PA_PROJECT_PUB.CHECK_UNIQUE_TASK_NUMBER.');
615: fnd_log.string(l_log_statement,
616: L_DEBUG_KEY,
617: 'p_project_id = ' || c_visit_rec.project_id);
618: fnd_log.string(l_log_statement,
619: L_DEBUG_KEY,
620: 'p_pm_project_reference = ' || c_visit_rec.visit_number);
621: fnd_log.string(l_log_statement,
622: L_DEBUG_KEY,
617: 'p_project_id = ' || c_visit_rec.project_id);
618: fnd_log.string(l_log_statement,
619: L_DEBUG_KEY,
620: 'p_pm_project_reference = ' || c_visit_rec.visit_number);
621: fnd_log.string(l_log_statement,
622: L_DEBUG_KEY,
623: 'p_task_number = ' || c_task_rec.visit_task_number);
624: END IF;
625:
635: p_unique_task_number_flag => l_project_tsk_flag
636: );
637:
638: IF (l_log_statement >= l_log_current_level) THEN
639: fnd_log.string(l_log_statement,
640: L_DEBUG_KEY,
641: 'After calling PA_PROJECT_PUB.check_unique_task_number. p_unique_task_number_flag = ' ||
642: l_project_tsk_flag || ' Return Status = ' || l_return_status);
643: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
640: L_DEBUG_KEY,
641: 'After calling PA_PROJECT_PUB.check_unique_task_number. p_unique_task_number_flag = ' ||
642: l_project_tsk_flag || ' Return Status = ' || l_return_status);
643: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
644: fnd_log.string(l_log_statement,
645: L_DEBUG_KEY,
646: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
647: l_msg_count || ', message data: ' || l_msg_data);
648: END IF;
645: L_DEBUG_KEY,
646: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
647: l_msg_count || ', message data: ' || l_msg_data);
648: END IF;
649: fnd_log.string(l_log_statement,
650: L_DEBUG_KEY,
651: 'Before calling PA_PROJECT_PUB.check_unique_task_reference.');
652: END IF;
653:
663: p_unique_task_ref_flag => l_proj_ref_flag
664: );
665:
666: IF (l_log_statement >= l_log_current_level) THEN
667: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling -- Check_Unique_Task_Reference l_proj_ref_flag = ' || l_proj_ref_flag);
668: END IF;
669:
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_log_statement >= l_log_current_level) THEN
668: END IF;
669:
670: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
671: IF (l_log_statement >= l_log_current_level) THEN
672: fnd_log.string(l_log_statement,
673: L_DEBUG_KEY,
674: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
675: l_msg_count || ', message data: ' || l_msg_data);
676: END IF;
682: END IF;
683:
684: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
685: IF (l_log_statement >= l_log_current_level) THEN
686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
683:
684: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
685: IF (l_log_statement >= l_log_current_level) THEN
686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
691: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
684: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
685: IF (l_log_statement >= l_log_current_level) THEN
686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
691: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
692: END IF;
685: IF (l_log_statement >= l_log_current_level) THEN
686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
691: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
692: END IF;
693:
686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK..');
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
691: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
692: END IF;
693:
694: PA_PROJECT_PUB.ADD_TASK
687: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=: ' || c_task_rec.PROJECT_ID);
688: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=: ' || c_task_rec.VISIT_NUMBER);
689: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=: ' || c_task_rec.VISIT_TASK_NUMBER);
690: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=: ' || c_task_rec.VISIT_TASK_NAME);
691: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=: ' || c_task_rec.DESCRIPTION);
692: END IF;
693:
694: PA_PROJECT_PUB.ADD_TASK
695: (p_api_version_number => 1
717: ,p_task_id => l_task_id
718: );
719:
720: IF (l_log_statement >= l_log_current_level) THEN
721: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status = '||l_return_status);
722: END IF;
723:
724: IF (l_return_status <> 'S') THEN
725: IF (fnd_msg_pub.count_msg > 0 ) THEN
730: p_data => l_msg_data,
731: p_msg_index_out => l_msg_index_out);
732:
733: IF (l_log_statement >= l_log_current_level) THEN
734: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Error - '||l_msg_data);
735: END IF;
736: END LOOP;
737: ELSE
738: IF (l_log_statement >= l_log_current_level) THEN
735: END IF;
736: END LOOP;
737: ELSE
738: IF (l_log_statement >= l_log_current_level) THEN
739: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Another Error - '||l_msg_data);
740: END IF;
741: END IF;
742: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
743: END IF;
787: p_data => x_msg_data
788: );
789:
790: IF (l_log_procedure >= l_log_current_level) THEN
791: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
792: END IF;
793:
794: EXCEPTION
795: WHEN Fnd_Api.g_exc_error THEN
868:
869: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
870:
871: IF (l_log_procedure >= l_log_current_level) THEN
872: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
873: END IF;
874:
875: OPEN c_task (p_visit_task_id);
876: FETCH c_task INTO c_task_rec;
883: -- To check Project responsibilites
884: -- Post 11.5.10
885: -- RROY
886: IF (l_log_statement >= l_log_current_level) THEN
887: fnd_log.string(l_log_statement,
888: L_DEBUG_KEY,
889: 'Before calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
890: END IF;
891: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
892: ( x_check_project => l_chk_project,
893: x_return_status => l_return_status);
894:
895: IF (l_log_statement >= l_log_current_level) THEN
896: fnd_log.string(l_log_statement,
897: L_DEBUG_KEY,
898: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
899: END IF;
900:
899: END IF;
900:
901: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
902: IF (l_log_statement >= l_log_current_level) THEN
903: fnd_log.string(l_log_statement,
904: L_DEBUG_KEY,
905: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
906: END IF;
907: x_return_status := l_return_status;
913: END IF;
914:
915: IF l_chk_project = 'Y' THEN
916: IF (l_log_statement >= l_log_current_level) THEN
917: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
914:
915: IF l_chk_project = 'Y' THEN
916: IF (l_log_statement >= l_log_current_level) THEN
917: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
922: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
915: IF l_chk_project = 'Y' THEN
916: IF (l_log_statement >= l_log_current_level) THEN
917: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
922: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
923: END IF;
916: IF (l_log_statement >= l_log_current_level) THEN
917: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
922: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
923: END IF;
924:
917: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.CHECK_DELETE_TASK_OK');
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
922: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
923: END IF;
924:
925: PA_PROJECT_PUB.CHECK_DELETE_TASK_OK
918: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.PROJECT_ID - '|| c_visit_rec.PROJECT_ID);
919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_visit_rec.visit_number - '|| c_visit_rec.visit_number);
920: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_TASK_ID - '|| c_task_rec.PROJECT_TASK_ID);
921: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER - '|| c_task_rec.VISIT_TASK_NUMBER);
922: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_task_flag - '|| l_del_task_flag);
923: END IF;
924:
925: PA_PROJECT_PUB.CHECK_DELETE_TASK_OK
926: ( p_api_version_number => 1
935: , p_delete_task_ok_flag => l_del_task_flag
936: );
937:
938: IF (l_log_statement >= l_log_current_level) THEN
939: fnd_log.string(l_log_statement,
940: L_DEBUG_KEY,
941: 'After calling PA_PROJECT_PUB.check_delete_task_ok. Return Status = ' ||
942: l_return_status || ', delete task flag = ' || l_del_task_flag);
943: END IF;
943: END IF;
944:
945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
946: IF (l_log_statement >= l_log_current_level) THEN
947: fnd_log.string(l_log_statement,
948: L_DEBUG_KEY,
949: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||
950: l_msg_count || ', message data: ' || l_msg_data);
951: END IF;
953: RAISE FND_API.G_EXC_ERROR;
954: ELSE
955: IF l_del_task_flag = 'Y' THEN
956: IF (l_log_statement >= l_log_current_level) THEN
957: fnd_log.string(l_log_statement,
958: L_DEBUG_KEY,
959: 'Before calling PA_PROJECT_PUB.delete_task.');
960: END IF;
961:
976: ,p_task_id => l_task_id
977: );
978:
979: IF (l_log_statement >= l_log_current_level) THEN
980: fnd_log.string(l_log_statement,
981: L_DEBUG_KEY,
982: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
983: l_return_status);
984: END IF;
984: END IF;
985:
986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
987: IF (l_log_statement >= l_log_current_level) THEN
988: fnd_log.string(l_log_statement,
989: L_DEBUG_KEY,
990: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
991: l_msg_count || ', message data: ' || l_msg_data);
992: END IF;
997: END IF;
998: END IF;
999:
1000: IF (l_log_procedure >= l_log_current_level) THEN
1001: fnd_log.string(l_log_procedure,
1002: L_DEBUG_KEY ||'.end',
1003: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1004: END IF;
1005:
1142: -- Initialize API return status to success
1143: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1144:
1145: IF (l_log_procedure >= l_log_current_level) THEN
1146: fnd_log.string(l_log_procedure,
1147: L_DEBUG_KEY ||'.begin',
1148: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
1149: END IF;
1150:
1164: /*sowsubra - ends */
1165:
1166: -- Begin changes by rnahata for Bug 6334682
1167: IF (l_log_statement >= l_log_current_level) THEN
1168: fnd_log.string(l_log_statement,
1169: L_DEBUG_KEY,
1170: 'Initial project status code is: ' || l_project_status_code);
1171: END IF;
1172: OPEN c_new_txns_flag(l_project_status_code);
1172: OPEN c_new_txns_flag(l_project_status_code);
1173: FETCH c_new_txns_flag INTO l_new_txns_flag;
1174: CLOSE c_new_txns_flag;
1175: IF (l_log_statement >= l_log_current_level) THEN
1176: fnd_log.string(l_log_statement,
1177: L_DEBUG_KEY,
1178: 'Create New Transaction Flag = ' || l_new_txns_flag);
1179: END IF;
1180: IF (l_new_txns_flag = 'N') THEN
1204: CREATED_FROM_PROJECT_ID := nvl(FND_PROFILE.VALUE('AHL_DEFAULT_PA_TEMPLATE_ID'),0);
1205: END IF;
1206:
1207: IF (l_log_statement >= l_log_current_level) THEN
1208: fnd_log.string(l_log_statement,L_DEBUG_KEY,'CREATED_FROM_PROJECT_ID = '||CREATED_FROM_PROJECT_ID);
1209: END IF;
1210:
1211: -- yazhou 26Sept2005 starts
1212: -- ER#4618348
1214: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
1215: l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
1216:
1217: IF (l_log_statement >= l_log_current_level) THEN
1218: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_project_num_prefix = '||l_project_num_prefix);
1219: END IF;
1220:
1221: --l_visit_name_len := 30 - nvl(length(SubStr(l_project_name_prefix,1,255)),0);
1222:
1246: FETCH c_task_ct INTO l_count;
1247: CLOSE c_task_ct;
1248:
1249: IF (l_log_statement >= l_log_current_level) THEN
1250: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Tasks Count = '||l_count);
1251: END IF;
1252:
1253: IF l_count > 0 THEN
1254: IF (l_log_statement >= l_log_current_level) THEN
1251: END IF;
1252:
1253: IF l_count > 0 THEN
1254: IF (l_log_statement >= l_log_current_level) THEN
1255: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Inside Tasks as Count more than zero');
1256: END IF;
1257: -- Begin changes by rnahata for Bug 5758813
1258: OPEN get_prj_route_dtls_cur(p_visit_id);
1259: i:=1;
1277: IF l_task_in.COUNT > 0 THEN
1278: i := l_task_in.FIRST;
1279: LOOP
1280: IF (l_log_statement >= l_log_current_level) THEN
1281: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK REFERENCE - '|| l_task_in(i).PM_TASK_REFERENCE);
1282: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NAME - '|| l_task_in(i).TASK_NAME);
1283: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NUMBER - '|| l_task_in(i).PA_TASK_NUMBER);
1284: END IF;
1285: EXIT WHEN i = l_task_in.LAST ;
1278: i := l_task_in.FIRST;
1279: LOOP
1280: IF (l_log_statement >= l_log_current_level) THEN
1281: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK REFERENCE - '|| l_task_in(i).PM_TASK_REFERENCE);
1282: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NAME - '|| l_task_in(i).TASK_NAME);
1283: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NUMBER - '|| l_task_in(i).PA_TASK_NUMBER);
1284: END IF;
1285: EXIT WHEN i = l_task_in.LAST ;
1286: i := l_task_in.NEXT(i);
1279: LOOP
1280: IF (l_log_statement >= l_log_current_level) THEN
1281: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK REFERENCE - '|| l_task_in(i).PM_TASK_REFERENCE);
1282: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NAME - '|| l_task_in(i).TASK_NAME);
1283: fnd_log.string(l_log_statement,L_DEBUG_KEY,'TASK NUMBER - '|| l_task_in(i).PA_TASK_NUMBER);
1284: END IF;
1285: EXIT WHEN i = l_task_in.LAST ;
1286: i := l_task_in.NEXT(i);
1287: END LOOP;
1291: -- Post 11.5.10
1292: -- RROY
1293:
1294: IF (l_log_statement >= l_log_current_level) THEN
1295: fnd_log.string(l_log_statement,
1296: L_DEBUG_KEY,
1297: 'Before calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1298: END IF;
1299:
1301: (x_check_project => l_chk_project,
1302: x_return_status => l_return_status);
1303:
1304: IF (l_log_statement >= l_log_current_level) THEN
1305: fnd_log.string(l_log_statement,
1306: L_DEBUG_KEY,
1307: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
1308: END IF;
1309:
1308: END IF;
1309:
1310: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1311: IF (l_log_statement >= l_log_current_level) THEN
1312: fnd_log.string(l_log_statement,
1313: L_DEBUG_KEY,
1314: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1315: END IF;
1316: x_return_status := l_return_status;
1322: END IF;
1323:
1324: IF l_chk_project = 'Y' THEN
1325: IF (l_log_statement >= l_log_current_level) THEN
1326: fnd_log.string(l_log_statement,
1327: L_DEBUG_KEY,
1328: 'Before calling PA_PROJECT_PUB.check_unique_project_reference to check for ' || l_project_num_prefix || c_visit_rec.visit_number);
1329: END IF;
1330:
1339: p_pm_project_reference => l_project_num_prefix || c_visit_rec.visit_number,
1340: p_unique_project_ref_flag => l_project_flag);
1341:
1342: IF (l_log_statement >= l_log_current_level) THEN
1343: fnd_log.string(l_log_statement,
1344: L_DEBUG_KEY,
1345: 'Returned from PA_PROJECT_PUB.check_unique_project_reference: p_unique_project_ref_flag = ' || l_project_flag || ', Return Status = ' || l_return_status );
1346: END IF;
1347:
1346: END IF;
1347:
1348: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1349: IF (l_log_statement >= l_log_current_level) THEN
1350: fnd_log.string(l_log_statement,
1351: L_DEBUG_KEY,
1352: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
1353: l_msg_count || ', message data: ' || l_msg_data);
1354: END IF;
1360: END IF;
1361:
1362: IF l_project_flag = 'Y' THEN
1363: IF (l_log_statement >= l_log_current_level) THEN
1364: fnd_log.string(l_log_statement,
1365: L_DEBUG_KEY,
1366: 'Before calling PA_PROJECT_PUB.create_project');
1367: END IF;
1368:
1383: p_tasks_out => l_task_out
1384: );
1385:
1386: IF (l_log_statement >= l_log_current_level) THEN
1387: fnd_log.string(l_log_statement,
1388: L_DEBUG_KEY,
1389: 'After calling PA_PROJECT_PUB.create_project. Project_Id = ' ||
1390: l_project_out.pa_project_id || ' Return Status = ' || x_return_status);
1391: END IF;
1391: END IF;
1392:
1393: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1394: IF (l_log_statement >= l_log_current_level) THEN
1395: fnd_log.string(l_log_statement,
1396: L_DEBUG_KEY,
1397: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
1398: l_msg_count || ', message data: ' || l_msg_data);
1399: END IF;
1440: l_param_data.end_date_active := NULL;
1441: -- yazhou 06Oct2005 ends
1442: -- Changes made by jaramana on May 5, 2006 to accommodate PJM Bug 5197977/5194650
1443: IF (l_log_statement >= l_log_current_level) THEN
1444: FND_LOG.STRING(l_log_statement, L_DEBUG_KEY, 'About to set MFG_ORGANIZATION_ID Profile with ' || c_visit_rec.organization_id);
1445: END IF;
1446: FND_PROFILE.PUT('MFG_ORGANIZATION_ID', TO_CHAR(c_visit_rec.organization_id));
1447:
1448: PJM_PROJECT_PARAM_PUB.Create_Project_Parameter(
1455: p_param_data => l_param_data);
1456:
1457: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1458: IF (l_log_statement >= l_log_current_level) THEN
1459: fnd_log.string(l_log_statement,
1460: L_DEBUG_KEY,
1461: 'Errors from PJM_PROJECT_PARAM_PUB.Create_Project_Parameter. Message count: ' ||
1462: l_msg_count || ', message data: ' || l_msg_data);
1463: END IF;
1472: IF l_task_out.COUNT > 0 THEN
1473: z := l_task_out.FIRST;
1474: LOOP
1475: IF (l_log_statement >= l_log_current_level) THEN
1476: fnd_log.string(l_log_statement,
1477: L_DEBUG_KEY,
1478: 'Updating all tasks project_task_id = ' ||
1479: l_task_out(z).pa_task_id);
1480: END IF;
1509: END IF;
1510: END IF; -- End of Start Time and Department null Check
1511:
1512: IF (l_log_procedure >= l_log_current_level) THEN
1513: fnd_log.string(l_log_procedure,
1514: L_DEBUG_KEY ||'.end',
1515: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1516: END IF;
1517: END Create_Project;
1669: BEGIN
1670: SAVEPOINT Update_project;
1671:
1672: IF (l_log_procedure >= l_log_current_level) THEN
1673: fnd_log.string(l_log_procedure,
1674: L_DEBUG_KEY ||'.begin',
1675: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
1676: END IF;
1677:
1694: -- To check Project responsibilites
1695: -- Post 11.5.10
1696: -- RROY
1697: IF (l_log_statement >= l_log_current_level) THEN
1698: fnd_log.string(l_log_statement,
1699: L_DEBUG_KEY,
1700: 'Before calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1701: END IF;
1702: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
1703: ( x_check_project => l_chk_project,
1704: x_return_status => l_return_status);
1705:
1706: IF (l_log_statement >= l_log_current_level) THEN
1707: fnd_log.string(l_log_statement,
1708: L_DEBUG_KEY,
1709: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
1710: END IF;
1711:
1710: END IF;
1711:
1712: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
1713: IF (l_log_statement >= l_log_current_level) THEN
1714: fnd_log.string(l_log_statement,
1715: L_DEBUG_KEY,
1716: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1717: END IF;
1718: x_return_status := l_return_status;
1754: --l_project_name_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_PREFIX'),1,10);
1755: l_project_num_prefix := SUBSTR(FND_PROFILE.VALUE('AHL_PROJECT_NUM_PREFIX'),1,10);
1756:
1757: IF (l_log_statement >= l_log_current_level) THEN
1758: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_project_num_prefix = ' || l_project_num_prefix);
1759: END IF;
1760:
1761: --l_visit_name_len := 30 - nvl(length(SubStr(l_project_name_prefix,1,255)),0);
1762:
1799: END IF;
1800: -- End
1801:
1802: IF (l_log_statement >= l_log_current_level) THEN
1803: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After assigning all values to project record type');
1804: END IF;
1805:
1806: OPEN c_task_ct(p_visit_id);
1807: FETCH c_task_ct INTO l_count;
1807: FETCH c_task_ct INTO l_count;
1808: CLOSE c_task_ct;
1809:
1810: IF (l_log_statement >= l_log_current_level) THEN
1811: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Number of tasks = ' || l_count);
1812: END IF;
1813:
1814: IF l_count > 0 THEN
1815: -- Begin changes by rnahata for Bug 5758813
1827: l_task_in(i).TASK_COMPLETION_DATE := trunc(get_prj_route_dtls_rec.task_end_date);
1828: --rnahata End
1829: l_task_in(i).PA_TASK_ID := get_prj_route_dtls_rec.project_task_id;
1830: IF (l_log_statement >= l_log_current_level) THEN
1831: fnd_log.string(l_log_statement,
1832: L_DEBUG_KEY,
1833: 'Visit Task ' || i || ': Name = ' || l_task_in(i).TASK_NAME);
1834: END IF;
1835: i := i + 1;
1840:
1841: -- Need to update proejct for
1842: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
1843: IF (l_log_statement >= l_log_current_level) THEN
1844: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Project ID = ' || c_visit_rec.PROJECT_ID);
1845: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.UPDATE_PROJECT');
1846: END IF;
1847:
1848: PA_PROJECT_PUB.UPDATE_PROJECT
1841: -- Need to update proejct for
1842: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
1843: IF (l_log_statement >= l_log_current_level) THEN
1844: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Project ID = ' || c_visit_rec.PROJECT_ID);
1845: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.UPDATE_PROJECT');
1846: END IF;
1847:
1848: PA_PROJECT_PUB.UPDATE_PROJECT
1849: (p_api_version_number => 1,
1862: p_tasks_out => l_task_out
1863: );
1864:
1865: IF (l_log_statement >= l_log_current_level) THEN
1866: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.UPDATE_PROJECT - l_return_status = '||l_return_status);
1867: END IF;
1868:
1869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: IF (l_log_statement >= l_log_current_level) THEN
1867: END IF;
1868:
1869: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: IF (l_log_statement >= l_log_current_level) THEN
1871: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
1872: END IF;
1873: RAISE Fnd_Api.g_exc_error;
1874: END IF;
1875:
1958: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1959: END IF;
1960:
1961: IF (l_log_procedure >= l_log_current_level) THEN
1962: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
1963: END IF;
1964:
1965: EXCEPTION
1966: WHEN FND_API.G_EXC_ERROR THEN
2042:
2043: SAVEPOINT Delete_project;
2044:
2045: IF (l_log_procedure >= l_log_current_level) THEN
2046: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
2047: END IF;
2048:
2049: -- Initialize message list if p_init_msg_list is set to TRUE.
2050: IF Fnd_Api.to_boolean(p_init_msg_list)THEN
2061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2062: END IF;
2063:
2064: IF (l_log_statement >= l_log_current_level) THEN
2065: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id=' || p_visit_id);
2066: END IF;
2067:
2068: OPEN c_visit (p_visit_id);
2069: FETCH c_visit INTO c_visit_rec;
2092: Fnd_Msg_Pub.ADD;
2093: RAISE Fnd_Api.G_EXC_ERROR;
2094: ELSE
2095: IF (l_log_statement >= l_log_current_level) THEN
2096: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
2097: END IF;
2098:
2099: PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK
2100: ( p_api_version_number => 1
2107: , p_delete_project_ok_flag => l_del_proj_flag
2108: );
2109:
2110: IF (l_log_statement >= l_log_current_level) THEN
2111: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK - l_return_status = '||l_return_status);
2112: END IF;
2113:
2114: IF l_return_status <> 'S' THEN
2115: RAISE G_EXC_ERROR;
2115: RAISE G_EXC_ERROR;
2116: END IF;
2117:
2118: IF (l_log_statement >= l_log_current_level) THEN
2119: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_del_proj_flag = '||l_del_proj_flag);
2120: END IF;
2121:
2122: IF l_del_proj_flag = 'Y' THEN
2123: IF (l_log_statement >= l_log_current_level) THEN
2120: END IF;
2121:
2122: IF l_del_proj_flag = 'Y' THEN
2123: IF (l_log_statement >= l_log_current_level) THEN
2124: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.DELETE_PROJECT');
2125: END IF;
2126:
2127: PA_PROJECT_PUB.DELETE_PROJECT
2128: ( p_api_version_number => 1
2136: ,p_pa_project_id => c_visit_rec.PROJECT_ID
2137: );
2138:
2139: IF (l_log_statement >= l_log_current_level) THEN
2140: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.DELETE_PROJECT - l_return_status = '||l_return_status);
2141: END IF;
2142:
2143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2141: END IF;
2142:
2143: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2145: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
2146: END IF;
2147: RAISE Fnd_Api.g_exc_error;
2148: END IF;
2149: END IF;
2160: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2161: END IF;
2162:
2163: IF (l_log_procedure >= l_log_current_level) THEN
2164: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
2165: END IF;
2166:
2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2258: BEGIN
2259:
2260: -- Log API Entry Point
2261: IF (l_log_procedure >= l_log_current_level) THEN
2262: fnd_log.string(l_log_procedure,
2263: L_DEBUG_KEY ||'.begin',
2264: 'At the start of PL SQL procedure.');
2265: fnd_log.string(l_log_procedure,
2266: L_DEBUG_KEY,
2261: IF (l_log_procedure >= l_log_current_level) THEN
2262: fnd_log.string(l_log_procedure,
2263: L_DEBUG_KEY ||'.begin',
2264: 'At the start of PL SQL procedure.');
2265: fnd_log.string(l_log_procedure,
2266: L_DEBUG_KEY,
2267: 'MR Route Id = ' || p_mr_route_id || 'Visit Task Number = ' || p_visit_task_number ||
2268: 'Start Date = ' || p_start_date_time || 'End Date = ' || p_end_date_time);
2269: END IF;
2275: IF c_route%FOUND THEN
2276: CLOSE c_route;
2277:
2278: IF (l_log_statement >= l_log_current_level) THEN
2279: fnd_log.string(l_log_statement,
2280: L_DEBUG_KEY,
2281: 'Checking Route Start and End Dates');
2282: END IF;
2283:
2317: IF c_mr_header%FOUND THEN
2318: CLOSE c_mr_header;
2319:
2320: IF (l_log_statement >= l_log_current_level) THEN
2321: fnd_log.string(l_log_statement,
2322: L_DEBUG_KEY,
2323: 'Checking MR Start and End Dates');
2324: END IF;
2325:
2350: END IF; -- End of p_mr_route_id IS NOT NULL check
2351:
2352: ---------------------------End of API Body---------------------------------------
2353: IF (l_log_procedure >= l_log_current_level) THEN
2354: fnd_log.string(l_log_procedure,
2355: L_DEBUG_KEY ||'.end',
2356: 'At the end of PL SQL procedure.');
2357: END IF;
2358:
2610: --------------------- initialize -----------------------
2611: SAVEPOINT Validate_Before_Production;
2612:
2613: IF (l_log_procedure >= l_log_current_level) THEN
2614: fnd_log.string(l_log_procedure,
2615: L_DEBUG_KEY ||'.begin',
2616: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
2617: END IF;
2618:
2642: IF c_visit_rec.TEMPLATE_FLAG = 'N' THEN
2643: -- To check visit's start date is not null
2644: IF c_visit_rec.START_DATE_TIME IS NULL THEN
2645: IF (l_log_statement >= l_log_current_level) THEN
2646: fnd_log.string(l_log_statement,
2647: L_DEBUG_KEY,
2648: 'Visit Start Date is null.');
2649: END IF;
2650: -- By shbhanda 05/21/04 for TC changes
2656: -- To check visit's status is not null and it should be only planning or partially released
2657: IF c_visit_rec.STATUS_CODE IS NOT NULL THEN
2658: IF c_visit_rec.STATUS_CODE <> 'PLANNING' and c_visit_rec.STATUS_CODE <> 'PARTIALLY RELEASED' THEN
2659: IF (l_log_statement >= l_log_current_level) THEN
2660: fnd_log.string(l_log_statement,
2661: L_DEBUG_KEY,
2662: 'Visit Status Code is not Planning/Partially Released.');
2663: END IF;
2664: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NOT_PLANNING'); -- **** IMPortant uPDATE FOR PARTIALLY RELEASED
2672: -- POst 11.5.10 Changes by Senthil.
2673: ELSIF TRUNC(c_visit_rec.start_date_time) < TRUNC(SYSDATE) AND c_visit_rec.STATUS_CODE <> 'PARTIALLY RELEASED'
2674: THEN
2675: IF (l_log_statement >= l_log_current_level) THEN
2676: fnd_log.string(l_log_statement,
2677: L_DEBUG_KEY,
2678: 'Visit Status Code is Planning and Visit Start Date is less than sysdate. ');
2679: END IF;
2680: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DATE_LT_SYS');
2688: END IF;
2689: -- visit's status is null
2690: ELSE
2691: IF (l_log_statement >= l_log_current_level) THEN
2692: fnd_log.string(l_log_statement,
2693: L_DEBUG_KEY,
2694: 'Visit Status Code is null.');
2695: END IF;
2696: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_STATUS');
2705:
2706: -- To check visit's organization is not null
2707: IF c_visit_rec.ORGANIZATION_ID IS NULL THEN
2708: IF (l_log_statement >= l_log_current_level) THEN
2709: fnd_log.string(l_log_statement,
2710: L_DEBUG_KEY,
2711: 'Visit Organization is null.');
2712: END IF;
2713:
2723:
2724: -- To check visit's department is not null
2725: IF c_visit_rec.DEPARTMENT_ID IS NULL THEN
2726: IF (l_log_statement >= l_log_current_level) THEN
2727: fnd_log.string(l_log_statement,
2728: L_DEBUG_KEY,
2729: 'Visit Department is null.');
2730: END IF;
2731:
2742: -- Start by shbhanda on 29-Jan-04
2743: -- To check visit's close date time i.e planned end date is not null
2744: IF c_visit_rec.CLOSE_DATE_TIME IS NULL THEN
2745: IF (l_log_statement >= l_log_current_level) THEN
2746: fnd_log.string(l_log_statement,
2747: L_DEBUG_KEY,
2748: 'Visit Plan End Date is null.');
2749: END IF;
2750:
2765: FETCH c_simulation INTO l_count;
2766: CLOSE c_simulation;
2767: IF l_count = 0 THEN
2768: IF (l_log_statement >= l_log_current_level) THEN
2769: fnd_log.string(l_log_statement,
2770: L_DEBUG_KEY,
2771: 'Visit has 0 Simulations.');
2772: END IF;
2773:
2781: /*When the visit type code is not null, then validate the type code to see if
2782: the visit type is enabled and not end-dated.*/
2783: IF c_visit_rec.visit_type_code IS NOT NULL THEN
2784: IF (l_log_statement >= l_log_current_level) THEN
2785: fnd_log.string(l_log_statement,
2786: L_DEBUG_KEY,
2787: 'Before calling AHL_VWP_RULES_PVT.CHECK_LOOKUP_NAME_OR_ID.');
2788: END IF;
2789:
2795: x_lookup_code => c_visit_rec.visit_type_code,
2796: x_return_status => l_return_status);
2797:
2798: IF (l_log_statement >= l_log_current_level) THEN
2799: fnd_log.string(l_log_statement,
2800: L_DEBUG_KEY,
2801: 'After calling AHL_VWP_RULES_PVT.CHECK_LOOKUP_NAME_OR_ID.');
2802: END IF;
2803:
2815: FETCH c_get_inst_item INTO c_inst_item_rec;
2816: CLOSE c_get_inst_item;
2817:
2818: IF (l_log_statement >= l_log_current_level) THEN
2819: fnd_log.string(l_log_statement,
2820: L_DEBUG_KEY,
2821: 'Item Id from csi instances = ' || c_inst_item_rec.inventory_item_id);
2822: fnd_log.string(l_log_statement,
2823: L_DEBUG_KEY,
2818: IF (l_log_statement >= l_log_current_level) THEN
2819: fnd_log.string(l_log_statement,
2820: L_DEBUG_KEY,
2821: 'Item Id from csi instances = ' || c_inst_item_rec.inventory_item_id);
2822: fnd_log.string(l_log_statement,
2823: L_DEBUG_KEY,
2824: 'Instance number from csi instances = ' || c_inst_item_rec.instance_number);
2825: fnd_log.string(l_log_statement,
2826: L_DEBUG_KEY,
2821: 'Item Id from csi instances = ' || c_inst_item_rec.inventory_item_id);
2822: fnd_log.string(l_log_statement,
2823: L_DEBUG_KEY,
2824: 'Instance number from csi instances = ' || c_inst_item_rec.instance_number);
2825: fnd_log.string(l_log_statement,
2826: L_DEBUG_KEY,
2827: 'Visit Item Id = ' || c_visit_rec.Inventory_Item_Id);
2828: END IF;
2829:
2844: END IF;
2845: /*sowsubra - part-chgER - 18 July, 2007 - start*/
2846: ELSE
2847: IF (l_log_statement >= l_log_current_level) THEN
2848: fnd_log.string(l_log_statement,
2849: L_DEBUG_KEY,
2850: 'Instance is no longer associated with this item, please check..');
2851: END IF;
2852: FND_MESSAGE.Set_Name('AHL','AHL_VWP_VST_INST_ITM_CHNGD');
2866:
2867: IF c_uc_status_rec.uc_status not in ('COMPLETE','INCOMPLETE') THEN
2868:
2869: IF (l_log_statement >= l_log_current_level) THEN
2870: fnd_log.string(l_log_statement,
2871: L_DEBUG_KEY,
2872: c_uc_status_rec.name || ' UC status is invalid: '|| c_uc_status_rec.uc_status);
2873: END IF;
2874:
2897: FETCH c_get_inst_item INTO c_inst_item_rec;
2898: CLOSE c_get_inst_item;
2899:
2900: IF (l_log_statement >= l_log_current_level) THEN
2901: fnd_log.string(l_log_statement,
2902: L_DEBUG_KEY,
2903: 'Item Id from csi instances - ' || c_inst_item_rec.inventory_item_id);
2904: fnd_log.string(l_log_statement,
2905: L_DEBUG_KEY,
2900: IF (l_log_statement >= l_log_current_level) THEN
2901: fnd_log.string(l_log_statement,
2902: L_DEBUG_KEY,
2903: 'Item Id from csi instances - ' || c_inst_item_rec.inventory_item_id);
2904: fnd_log.string(l_log_statement,
2905: L_DEBUG_KEY,
2906: 'Visit Item Id - ' || c_task_rec.Inventory_Item_Id);
2907: END IF;
2908:
2919: END IF;
2920: END IF;
2921: ELSE
2922: IF (l_log_statement >= l_log_current_level) THEN
2923: fnd_log.string(l_log_statement,
2924: L_DEBUG_KEY,
2925: 'Instance is no longer associated with this item, please check..');
2926: END IF;
2927: FND_MESSAGE.Set_Name('AHL','AHL_VWP_TSK_INST_ITM_CHNGD');
2974:
2975: -- Removed for POst 11.5.10 Changes by Senthil.
2976: -- ELSE
2977: -- IF (l_log_statement >= l_log_current_level) THEN
2978: -- fnd_log.string(l_log_statement,
2979: -- L_DEBUG_KEY,
2980: -- 'Check Visit Serial Number');
2981: -- END IF;
2982: -- l_temp := 'ERROR: Visit Number ' || c_visit_rec.VISIT_NUMBER || ' : Serial Number Missing' ;
3014: -- RROY
3015:
3016: -- To check all routes for visit's tasks must exists
3017: IF (l_log_statement >= l_log_current_level) THEN
3018: fnd_log.string(l_log_statement,
3019: L_DEBUG_KEY,
3020: 'Initially, FLAG = ' || l_chk_flag);
3021: END IF;
3022:
3031: END LOOP;
3032: CLOSE c_route_chk;
3033:
3034: IF (l_log_statement >= l_log_current_level) THEN
3035: fnd_log.string(l_log_statement,
3036: L_DEBUG_KEY,
3037: 'After Route Check, FLAG = ' || l_chk_flag);
3038: END IF;
3039:
3049: FETCH c_dept_task INTO c_dept_task_rec;
3050: EXIT WHEN c_dept_task%NOTFOUND;
3051: IF c_dept_task%FOUND THEN
3052: IF (l_log_statement >= l_log_current_level) THEN
3053: fnd_log.string(l_log_statement,
3054: L_DEBUG_KEY,
3055: 'task dept' || c_dept_task_rec.department_id);
3056: END IF;
3057: OPEN c_dept (c_dept_task_rec.department_id);
3057: OPEN c_dept (c_dept_task_rec.department_id);
3058: FETCH c_dept INTO l_dept;
3059: l_dept_Tbl(i) := l_dept;
3060: IF (l_log_statement >= l_log_current_level) THEN
3061: fnd_log.string(l_log_statement,
3062: L_DEBUG_KEY,
3063: 'task dept count ' || l_dept);
3064: END IF;
3065: i := i + 1;
3068: END LOOP;
3069: CLOSE c_dept_task;
3070:
3071: IF (l_log_statement >= l_log_current_level) THEN
3072: fnd_log.string(l_log_statement,
3073: L_DEBUG_KEY,
3074: 'task dept table count ' || l_dept_Tbl.COUNT);
3075: END IF;
3076:
3078: l_dept_flag := 'N';
3079: x := l_dept_Tbl.FIRST;
3080: LOOP
3081: IF (l_log_statement >= l_log_current_level) THEN
3082: fnd_log.string(l_log_statement,
3083: L_DEBUG_KEY,
3084: 'task dept table values ' || l_dept_Tbl(x));
3085: END IF;
3086: IF l_dept_Tbl(x) = 0 THEN
3108: IF c_visit_rec.close_date_time IS NOT NULL THEN
3109:
3110: IF TRUNC(l_visit_end_time) > TRUNC(c_visit_rec.close_date_time) THEN
3111: IF (l_log_statement >= l_log_current_level) THEN
3112: fnd_log.string(l_log_statement,
3113: L_DEBUG_KEY,
3114: 'Check visit end time and plan end time');
3115: END IF;
3116: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_ACTDT_GT_PLNDT');
3127: l_end_hour := TO_NUMBER(TO_CHAR(l_visit_end_time , 'HH24'));
3128:
3129: IF l_end_hour > l_plan_end_hour THEN
3130: IF (l_log_statement >= l_log_current_level) THEN
3131: fnd_log.string(l_log_statement,
3132: L_DEBUG_KEY,
3133: 'Check visit end hour and plan end hour');
3134: END IF;
3135: -- By shbhanda 08/04/04 for TC changes
3185:
3186: IF UPPER(c_task_rec.task_type_code) = 'UNASSOCIATED' AND c_task_rec.DURATION IS NULL THEN
3187:
3188: IF (l_log_statement >= l_log_current_level) THEN
3189: fnd_log.string(l_log_statement,
3190: L_DEBUG_KEY,
3191: 'Unassociated Task. Task Duration is null');
3192: END IF;
3193: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_DURATION');
3197:
3198: -- To find all visit tasks must be associated to an item and item instance.
3199: IF c_task_rec.instance_id IS NULL THEN
3200: IF (l_log_statement >= l_log_current_level) THEN
3201: fnd_log.string(l_log_statement,
3202: L_DEBUG_KEY,
3203: 'Check Task Serial');
3204: END IF;
3205: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_SERIAL');
3208: END IF;
3209:
3210: IF c_task_rec.inventory_item_id IS NULL THEN
3211: IF (l_log_statement >= l_log_current_level) THEN
3212: fnd_log.string(l_log_statement,
3213: L_DEBUG_KEY,
3214: 'Task Inventory Item is null.');
3215: END IF;
3216: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_TSK_NO_ITEM');
3219: END IF;
3220:
3221: -- Begin changes by rnahata for Bug 6448678
3222: IF (l_log_statement >= l_log_current_level) THEN
3223: fnd_log.string(l_log_statement,
3224: L_DEBUG_KEY,
3225: 'Before calling Validate_MR_Route_Date. l_msg_count = ' || l_msg_count);
3226: END IF;
3227:
3231: p_start_date_time => sysdate,
3232: p_end_date_time => sysdate);
3233:
3234: IF (l_log_statement >= l_log_current_level) THEN
3235: fnd_log.string(l_log_statement,
3236: L_DEBUG_KEY,
3237: 'After calling Validate_MR_Route_Date for Task Id: ' ||
3238: c_task_rec.visit_task_id || ' and l_msg_count = ' || l_msg_count);
3239: END IF;
3262: FETCH c_dept_tsk INTO c_dept_tsk_rec;
3263: EXIT WHEN c_dept_tsk%NOTFOUND;
3264: IF c_dept_tsk%FOUND THEN
3265: IF (l_log_statement >= l_log_current_level) THEN
3266: fnd_log.string(l_log_statement,
3267: L_DEBUG_KEY,
3268: 'Task Dept' || c_dept_tsk_rec.department_id);
3269: END IF;
3270: OPEN c_dept (c_dept_tsk_rec.department_id);
3270: OPEN c_dept (c_dept_tsk_rec.department_id);
3271: FETCH c_dept INTO l_dept;
3272: IF l_dept = 0 THEN
3273: IF (l_log_statement >= l_log_current_level) THEN
3274: fnd_log.string(l_log_statement,
3275: L_DEBUG_KEY,
3276: 'Task Dept Count ' || l_dept);
3277: END IF;
3278: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_NO_DEPT_SHIFT');
3288:
3289: IF c_task_rec.visit_task_id IS NULL AND c_visit_rec.STATUS_CODE = 'PLANNING' THEN
3290:
3291: IF (l_log_statement >= l_log_current_level) THEN
3292: fnd_log.string(l_log_statement,
3293: L_DEBUG_KEY,
3294: 'No Task Found for the Visit');
3295: END IF;
3296:
3303:
3304: l_msg_count := Fnd_Msg_Pub.count_msg;
3305:
3306: IF (l_log_statement >= l_log_current_level) THEN
3307: fnd_log.string(l_log_statement,
3308: L_DEBUG_KEY,
3309: 'After calling *count_msg* l_count = ' || l_msg_count);
3310: fnd_log.string(l_log_statement,
3311: L_DEBUG_KEY,
3306: IF (l_log_statement >= l_log_current_level) THEN
3307: fnd_log.string(l_log_statement,
3308: L_DEBUG_KEY,
3309: 'After calling *count_msg* l_count = ' || l_msg_count);
3310: fnd_log.string(l_log_statement,
3311: L_DEBUG_KEY,
3312: 'Start calling Fnd_Msg_Pub.GET');
3313: END IF;
3314:
3316:
3317: FOR i IN 1..l_msg_count LOOP
3318:
3319: IF (l_log_statement >= l_log_current_level) THEN
3320: fnd_log.string(l_log_statement,
3321: L_DEBUG_KEY,
3322: '------------------------------------------------');
3323: END IF;
3324:
3326: p_encoded => FND_API.G_FALSE,
3327: p_data => l_data,
3328: p_msg_index_out => l_msg_count);
3329: IF (l_log_statement >= l_log_current_level) THEN
3330: fnd_log.string(l_log_statement,
3331: L_DEBUG_KEY,
3332: 'Error Message : '||l_data);
3333: END IF;
3334: l_error_tbl(j).Msg_Index := j;
3336: j := j + 1;
3337:
3338: END LOOP;
3339: IF (l_log_statement >= l_log_current_level) THEN
3340: fnd_log.string(l_log_statement,
3341: L_DEBUG_KEY,
3342: 'End calling Fnd_Msg_Pub.GET');
3343: END IF;
3344:
3358: p_data => x_msg_data
3359: );
3360:
3361: IF (l_log_procedure >= l_log_current_level) THEN
3362: fnd_log.string(l_log_procedure,
3363: L_DEBUG_KEY ||'.end',
3364: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3365: END IF;
3366:
3453:
3454: BEGIN
3455:
3456: IF (l_log_procedure >= l_log_current_level) THEN
3457: fnd_log.string(l_log_procedure,
3458: L_DEBUG_KEY ||'.begin',
3459: 'At the start of PL SQL procedure.');
3460: fnd_log.string(l_log_procedure,
3461: L_DEBUG_KEY,
3456: IF (l_log_procedure >= l_log_current_level) THEN
3457: fnd_log.string(l_log_procedure,
3458: L_DEBUG_KEY ||'.begin',
3459: 'At the start of PL SQL procedure.');
3460: fnd_log.string(l_log_procedure,
3461: L_DEBUG_KEY,
3462: 'Visit Id = ' || p_visit_id ||
3463: ', Visit Number = ' || p_visit_number ||
3464: ', Visit Task Id = ' || p_visit_task_id);
3491: FETCH get_wip_entity_id INTO l_parent_task_wip_id;
3492: CLOSE get_wip_entity_id;
3493:
3494: IF (l_log_statement >= l_log_current_level) THEN
3495: fnd_log.string(l_log_statement,
3496: L_DEBUG_KEY,
3497: 'Total Relationships : ' || rel_count);
3498: fnd_log.string(l_log_statement,
3499: L_DEBUG_KEY,
3494: IF (l_log_statement >= l_log_current_level) THEN
3495: fnd_log.string(l_log_statement,
3496: L_DEBUG_KEY,
3497: 'Total Relationships : ' || rel_count);
3498: fnd_log.string(l_log_statement,
3499: L_DEBUG_KEY,
3500: 'Getting Parent Tasks for task : ' || l_visit_task_no);
3501: END IF;
3502:
3515: p_x_relationship_tbl(rel_count).parent_header_id := 0;
3516: END IF;
3517:
3518: IF (l_log_statement >= l_log_current_level) THEN
3519: fnd_log.string(l_log_statement,
3520: L_DEBUG_KEY,
3521: 'Total Relationships : ' || rel_count);
3522: fnd_log.string(l_log_statement,
3523: L_DEBUG_KEY,
3518: IF (l_log_statement >= l_log_current_level) THEN
3519: fnd_log.string(l_log_statement,
3520: L_DEBUG_KEY,
3521: 'Total Relationships : ' || rel_count);
3522: fnd_log.string(l_log_statement,
3523: L_DEBUG_KEY,
3524: 'All tasks obtained for task : ' || l_visit_task_no);
3525: END IF;
3526:
3524: 'All tasks obtained for task : ' || l_visit_task_no);
3525: END IF;
3526:
3527: IF (l_log_procedure >= l_log_current_level) THEN
3528: fnd_log.string(l_log_procedure,
3529: L_DEBUG_KEY ||'.end',
3530: 'At the end of PL SQL procedure. p_x_relationship_tbl.COUNT = ' ||
3531: p_x_relationship_tbl.COUNT);
3532: END IF;
3647:
3648: BEGIN
3649:
3650: IF (l_log_procedure >= l_log_current_level) THEN
3651: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
3652: END IF;
3653:
3654: rel_count := p_x_relationship_tbl.COUNT;
3655: -- Get all the Task Records corresponding to a MR for the Visit.
3664: END LOOP;
3665: CLOSE get_mrs_for_visit;
3666:
3667: IF (l_log_statement >= l_log_current_level) THEN
3668: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Total MRs for Visit : '||l_mrs_for_visit.COUNT);
3669: END IF;
3670:
3671: IF (l_mrs_for_visit.COUNT > 0) THEN
3672: FOR i IN l_mrs_for_visit.FIRST..l_mrs_for_visit.LAST LOOP
3710: END LOOP;
3711: END IF;
3712:
3713: IF (l_log_statement >= l_log_current_level) THEN
3714: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Getting Tasks for MRs');
3715: END IF;
3716: -- Get all the Tasks for a MR.
3717: IF (l_mrs_for_visit.COUNT > 0) THEN
3718: FOR i IN l_mrs_for_visit.FIRST..l_mrs_for_visit.LAST LOOP
3739: END LOOP;
3740: END IF;
3741:
3742: IF (l_log_statement >= l_log_current_level) THEN
3743: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Getting Unassociated Tasks for Visit');
3744: END IF;
3745:
3746: -- Get all Un-associated Tasks for a Visit.
3747: OPEN get_mwo(p_visit_id);
3766: CLOSE get_wo;
3767: END LOOP;
3768:
3769: IF (l_log_procedure >= l_log_current_level) THEN
3770: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT );
3771: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
3772: END IF;
3773:
3774: END Get_Visit_Relationships;
3767: END LOOP;
3768:
3769: IF (l_log_procedure >= l_log_current_level) THEN
3770: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT );
3771: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
3772: END IF;
3773:
3774: END Get_Visit_Relationships;
3775:
3814:
3815: BEGIN
3816:
3817: IF (l_log_procedure >= l_log_current_level) THEN
3818: fnd_log.string(l_log_procedure,
3819: L_DEBUG_KEY ||'.begin',
3820: 'At the start of PL SQL procedure.');
3821: fnd_log.string(l_log_procedure,
3822: L_DEBUG_KEY,
3817: IF (l_log_procedure >= l_log_current_level) THEN
3818: fnd_log.string(l_log_procedure,
3819: L_DEBUG_KEY ||'.begin',
3820: 'At the start of PL SQL procedure.');
3821: fnd_log.string(l_log_procedure,
3822: L_DEBUG_KEY,
3823: 'Visit Number = ' || p_visit_number ||
3824: ', Visit Task Id = ' || p_visit_task_id ||
3825: ', Visit Task Number = ' || p_visit_task_number);
3827:
3828: rel_count := p_x_relationship_tbl.COUNT;
3829:
3830: IF (l_log_statement >= l_log_current_level) THEN
3831: fnd_log.string(l_log_statement,
3832: L_DEBUG_KEY,
3833: 'Total dependencies = ' || rel_count);
3834: END IF;
3835:
3858:
3859: END LOOP;
3860:
3861: IF (l_log_procedure >= l_log_current_level ) THEN
3862: fnd_log.string(l_log_procedure,
3863: L_DEBUG_KEY,
3864: 'Total dependencies for Visit Task ' || p_visit_task_number ||
3865: 'is: '|| rel_count);
3866: fnd_log.string(l_log_procedure,
3862: fnd_log.string(l_log_procedure,
3863: L_DEBUG_KEY,
3864: 'Total dependencies for Visit Task ' || p_visit_task_number ||
3865: 'is: '|| rel_count);
3866: fnd_log.string(l_log_procedure,
3867: L_DEBUG_KEY ||'.end',
3868: 'At the end of PL SQL procedure.');
3869: END IF;
3870:
3906:
3907: BEGIN
3908:
3909: IF (l_log_procedure >= l_log_current_level) THEN
3910: fnd_log.string(l_log_procedure,
3911: L_DEBUG_KEY ||'.begin',
3912: 'At the start of PL SQL procedure.');
3913: END IF;
3914:
3924: p_x_relationship_tbl(rel_count).dml_operation := 'C';
3925: END LOOP;
3926:
3927: IF (l_log_procedure >= l_log_current_level ) THEN
3928: fnd_log.string(l_log_procedure,
3929: L_DEBUG_KEY,
3930: 'Total Relationships : ' || p_x_relationship_tbl.COUNT);
3931: fnd_log.string(l_log_procedure,
3932: L_DEBUG_KEY ||'.end',
3927: IF (l_log_procedure >= l_log_current_level ) THEN
3928: fnd_log.string(l_log_procedure,
3929: L_DEBUG_KEY,
3930: 'Total Relationships : ' || p_x_relationship_tbl.COUNT);
3931: fnd_log.string(l_log_procedure,
3932: L_DEBUG_KEY ||'.end',
3933: 'At the end of PL SQL procedure.');
3934: END IF;
3935:
4134: --------------------- initialize -----------------------
4135:
4136: SAVEPOINT Push_to_Production;
4137: IF (l_log_procedure >= l_log_current_level) THEN
4138: fnd_log.string(l_log_procedure,
4139: L_DEBUG_KEY ||'.begin',
4140: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
4141: END IF;
4142:
4157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4158: END IF;
4159:
4160: IF (l_log_statement >= l_log_current_level) THEN
4161: fnd_log.string(l_log_statement,
4162: L_DEBUG_KEY,
4163: 'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
4164: END IF;
4165:
4174: x_msg_data => l_msg_data,
4175: p_visit_id => p_visit_id);
4176:
4177: IF (l_log_statement >= l_log_current_level) THEN
4178: fnd_log.string(l_log_statement,
4179: L_DEBUG_KEY,
4180: 'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status);
4181: END IF;
4182:
4181: END IF;
4182:
4183: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4184: IF (l_log_statement >= l_log_current_level) THEN
4185: fnd_log.string(l_log_statement,
4186: L_DEBUG_KEY,
4187: 'Errors from AHL_VWP_TIMES_PVT.Calculate_Task_Times. Message count: ' ||
4188: l_msg_count || ', message data: ' || l_msg_data);
4189: END IF;
4199:
4200: --Jerry updated on 08/13/2004 after discussion with Yan and Alex for adjusting task start date
4201: IF get_vst_status_and_date_rec.STATUS_CODE = 'PARTIALLY RELEASED' THEN
4202: IF (l_log_statement >= l_log_current_level) THEN
4203: fnd_log.string(l_log_statement,
4204: L_DEBUG_KEY,
4205: 'Before calling AHL_VWP_TIMES_PVT.adjust_task_times');
4206: END IF;
4207: FOR l_get_independent_tasks IN get_independent_tasks(p_visit_id) LOOP
4217: p_reset_sysdate_flag => FND_API.G_TRUE);
4218: END LOOP;
4219:
4220: IF (l_log_statement >= l_log_current_level) THEN
4221: fnd_log.string(l_log_statement,
4222: L_DEBUG_KEY,
4223: 'After calling AHL_VWP_TIMES_PVT.adjust_task_times. Return Status = ' || l_return_status);
4224: END IF;
4225:
4224: END IF;
4225:
4226: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4227: IF (l_log_statement >= l_log_current_level) THEN
4228: fnd_log.string(l_log_statement,
4229: L_DEBUG_KEY,
4230: 'Errors from AHL_VWP_TIMES_PVT.adjust_task_times. Message count: ' ||
4231: l_msg_count || ', message data: ' || l_msg_data);
4232: END IF;
4249: -- Post 11.5.10
4250: -- RROY
4251:
4252: IF (l_log_statement >= l_log_current_level) THEN
4253: fnd_log.string(l_log_statement,
4254: L_DEBUG_KEY,
4255: 'Before calling INTEGRATE_TO_PROJECTS');
4256: END IF;
4257:
4266: x_msg_count => l_msg_count,
4267: x_msg_data => x_msg_data);
4268:
4269: IF (l_log_statement >= l_log_current_level) THEN
4270: fnd_log.string(l_log_statement,
4271: L_DEBUG_KEY,
4272: 'After calling INTEGRATE_TO_PROJECTS. l_return_status '||l_return_status);
4273: END IF;
4274:
4288: -- Begin changes by rnahata for Bug 6448678
4289: l_temp_msg_count := Fnd_Msg_Pub.count_msg;
4290:
4291: IF (l_log_statement >= l_log_current_level) THEN
4292: fnd_log.string(l_log_statement,
4293: L_DEBUG_KEY,
4294: 'Before calling VALIDATE_MR_ROUTE_DATE. l_msg_count = ' || l_msg_count);
4295: END IF;
4296:
4306: p_end_date_time => c_task_rec.end_date_time
4307: );
4308:
4309: IF (l_log_statement >= l_log_current_level) THEN
4310: fnd_log.string(l_log_statement,
4311: L_DEBUG_KEY,
4312: 'After calling VALIDATE_MR_ROUTE_DATE for task Id: ' ||
4313: c_task_rec.visit_task_id ||', l_msg_count = ' || l_msg_count);
4314: END IF;
4318:
4319: l_msg_count := Fnd_Msg_Pub.count_msg;
4320: IF (l_msg_count <> l_temp_msg_count) THEN
4321: IF (l_log_statement >= l_log_current_level) THEN
4322: fnd_log.string(l_log_statement,
4323: L_DEBUG_KEY,
4324: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
4325: END IF;
4326: RAISE FND_API.G_EXC_ERROR;
4364: IF (l_visit_wo_start_time <> c_visit_rec.START_DATE_TIME
4365: OR l_visit_wo_end_time <> c_visit_rec.CLOSE_DATE_TIME) THEN
4366:
4367: IF (l_log_statement >= l_log_current_level) THEN
4368: fnd_log.string(l_log_statement,
4369: L_DEBUG_KEY,
4370: 'Before calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs');
4371: END IF;
4372:
4379: p_x_scheduled_start_date => c_visit_rec.START_DATE_TIME,
4380: p_x_scheduled_end_date => c_visit_rec.CLOSE_DATE_TIME);
4381:
4382: IF (l_log_statement >= l_log_current_level) THEN
4383: fnd_log.string(l_log_statement,
4384: L_DEBUG_KEY,
4385: 'After calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Return Status = ' || l_return_status);
4386: END IF;
4387:
4386: END IF;
4387:
4388: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4389: IF (l_log_statement >= l_log_current_level) THEN
4390: fnd_log.string(l_log_statement,
4391: L_DEBUG_KEY,
4392: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4393: l_msg_count || ', message data: ' || l_msg_data);
4394: END IF;
4514: FETCH c_task_ct INTO l_count;
4515: CLOSE c_task_ct;
4516:
4517: IF (l_log_statement >= l_log_current_level) THEN
4518: fnd_log.string(l_log_statement,
4519: L_DEBUG_KEY,
4520: 'Task Count' || l_count);
4521: END IF;
4522:
4551:
4552: -- if workorder exists for the task
4553: IF l_workorder_id IS NOT NULL THEN
4554: IF (l_log_statement >= l_log_current_level) THEN
4555: fnd_log.string(l_log_statement,
4556: L_DEBUG_KEY,
4557: 'Workorder Id for Task = ' || l_workorder_id);
4558: END IF;
4559: -- If p_module_type is 'CST' then workorder status should stay as DRAFT
4748: IF l_prd_workorder_tbl.COUNT > 0 THEN
4749:
4750: /* Begin Changes by Shkalyan */
4751: IF (l_log_statement >= l_log_current_level) THEN
4752: fnd_log.string(l_log_statement,
4753: L_DEBUG_KEY,
4754: 'Before calling GET_VISIT_RELATIONSHIPS.');
4755: END IF;
4756: -- yazhou starts
4762: p_x_relationship_tbl => l_prd_workorder_rel_tbl
4763: );
4764:
4765: IF (l_log_statement >= l_log_current_level) THEN
4766: fnd_log.string(l_log_statement,
4767: L_DEBUG_KEY,
4768: 'After calling GET_VISIT_RELATIONSHIPS.');
4769: END IF;
4770: -- END IF;
4770: -- END IF;
4771: -- yazhou ends
4772:
4773: IF (l_log_statement >= l_log_current_level) THEN
4774: fnd_log.string(l_log_statement,
4775: L_DEBUG_KEY,
4776: 'Before calling GET_VISIT_DEPENDENCIES.');
4777: END IF;
4778:
4785: );
4786: END IF;
4787:
4788: IF (l_log_statement >= l_log_current_level) THEN
4789: fnd_log.string(l_log_statement,
4790: L_DEBUG_KEY,
4791: 'After calling GET_VISIT_DEPENDENCIES.');
4792: END IF;
4793:
4791: 'After calling GET_VISIT_DEPENDENCIES.');
4792: END IF;
4793:
4794: IF (l_log_statement >= l_log_current_level) THEN
4795: fnd_log.string(l_log_statement,
4796: L_DEBUG_KEY,
4797: 'Before calling AHL_PRD_WORKORDER_PVT.Process_Jobs.');
4798: END IF;
4799:
4812: );
4813: /* End Changes by Shkalyan */
4814:
4815: IF (l_log_statement >= l_log_current_level) THEN
4816: fnd_log.string(l_log_statement,
4817: L_DEBUG_KEY,
4818: 'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs. Return Status = ' || l_return_status);
4819: END IF;
4820:
4819: END IF;
4820:
4821: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4822: IF (l_log_statement >= l_log_current_level) THEN
4823: fnd_log.string(l_log_statement,
4824: L_DEBUG_KEY,
4825: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
4826: l_msg_count || ', message data: ' || l_msg_data);
4827: END IF;
4838:
4839: IF (l_log_statement >= l_log_current_level) THEN
4840: For i IN l_prd_workorder_tbl.FIRST..l_prd_workorder_tbl.LAST
4841: LOOP
4842: fnd_log.string(l_log_statement,
4843: L_DEBUG_KEY,
4844: 'WorkOrder Id ('||i||'): '||l_prd_workorder_tbl(i).workorder_id);
4845: END LOOP;
4846: END IF;
4845: END LOOP;
4846: END IF;
4847:
4848: IF (l_log_statement >= l_log_current_level) THEN
4849: fnd_log.string(l_log_statement,
4850: L_DEBUG_KEY,
4851: 'Before calling Update_Project_Task_Times.');
4852: END IF;
4853:
4859:
4860: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4861: x_msg_count := FND_MSG_PUB.count_msg;
4862: IF (l_log_statement >= l_log_current_level) THEN
4863: fnd_log.string(l_log_statement,
4864: L_DEBUG_KEY,
4865: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
4866: END IF;
4867: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4871: END IF;
4872: ELSE
4873: IF (l_log_statement >= l_log_current_level) THEN
4874: fnd_log.string(l_log_statement,
4875: L_DEBUG_KEY,
4876: 'Returned Success from Update_Project_Task_Times');
4877: END IF;
4878: END IF;
4879: -- End changes by rnahata for Bug 5758813
4880: END IF; -- To find if the visit has any tasks
4881:
4882: IF (l_log_statement >= l_log_current_level) THEN
4883: fnd_log.string(l_log_statement,
4884: L_DEBUG_KEY,
4885: 'Update Visit -- Released');
4886: END IF;
4887: --transit check visit change
4893: -- When a visit is pushed to production, all the material reservations that were
4894: -- created will have to be transferred with the WIP details
4895:
4896: IF (l_log_statement >= l_log_current_level) THEN
4897: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION');
4898: END IF;
4899:
4900: AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION
4901: (
4908: p_visit_id => p_visit_id
4909: );
4910:
4911: IF (l_log_statement >= l_log_current_level) THEN
4912: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION - l_return_status : '||l_return_status);
4913: END IF;
4914:
4915: -- handle the exceptions, if any
4916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4914:
4915: -- handle the exceptions, if any
4916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4917: IF (l_log_statement >= l_log_current_level) THEN
4918: fnd_log.string(l_log_statement,
4919: L_DEBUG_KEY,
4920: ':Errors from AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION API : ' || x_msg_count );
4921: END IF;
4922: RAISE Fnd_Api.g_exc_error;
4966: -- 'any_task_chg_flag' in Visit should always be 'N'
4967: -----------------------------------------------
4968: -- To call AHL_VWP_RULES_PVT.Update_Visit_Task_Flag to update any_task_chg_flag as 'N'
4969: IF (l_log_statement >= l_log_current_level) THEN
4970: fnd_log.string(l_log_statement,
4971: L_DEBUG_KEY,
4972: 'Before calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag.');
4973: END IF;
4974:
4979: x_return_status => x_return_status);
4980: END IF;
4981:
4982: IF (l_log_statement >= l_log_current_level) THEN
4983: fnd_log.string(l_log_statement,
4984: L_DEBUG_KEY,
4985: 'After calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag');
4986: END IF;
4987: -- End By Shbhanda 16th Feb 2004 -------------
5000: p_data => x_msg_data
5001: );
5002:
5003: IF (l_log_procedure >= l_log_current_level) THEN
5004: fnd_log.string(l_log_procedure,
5005: L_DEBUG_KEY ||'.end',
5006: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5007: END IF;
5008:
5103: c_visit_rec c_visit%ROWTYPE;
5104: BEGIN
5105:
5106: IF (l_log_procedure >= l_log_current_level) THEN
5107: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
5108: END IF;
5109:
5110: -- Standard start of API savepoint
5111: SAVEPOINT Release_Visit_Pvt;
5125: END IF;
5126: --
5127:
5128: IF (l_log_statement >= l_log_current_level) THEN
5129: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit ID : '||p_visit_id);
5130: END IF;
5131:
5132: -- Check for Required Parameters
5133: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
5133: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
5134: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
5135: FND_MSG_PUB.ADD;
5136: IF (l_log_unexpected >= l_log_current_level)THEN
5137: fnd_log.string
5138: (
5139: l_log_unexpected,
5140: 'ahl.plsql.AHL_VWP_CST_WO_PVT.Release_Visit',
5141: 'Visit id is mandatory but found null in input '
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5146:
5147: IF (l_log_statement >= l_log_current_level)THEN
5148: fnd_log.string (l_log_statement,L_DEBUG_KEY, 'Before Calling Validate Before Production');
5149: END IF;
5150:
5151: --Valdate before push to production happens
5152: AHL_VWP_PROJ_PROD_PVT.Validate_Before_Production
5161: x_msg_count => l_msg_count,
5162: x_msg_data => l_msg_data);
5163:
5164: IF (l_log_statement >= l_log_current_level)THEN
5165: fnd_log.string (l_log_statement, L_DEBUG_KEY, 'After Calling Validate Before Production - l_return_status = '||l_return_status);
5166: END IF;
5167:
5168: -- Post 11.5.10
5169: -- RROY
5174: -- Check Error Message stack.
5175: x_msg_count := FND_MSG_PUB.count_msg;
5176:
5177: IF (l_log_statement >= l_log_current_level)THEN
5178: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from Validate Before Production - '||x_msg_count);
5179: END IF;
5180: RAISE Fnd_Api.g_exc_error;
5181: ELSE
5182: IF (l_log_statement >= l_log_current_level)THEN
5179: END IF;
5180: RAISE Fnd_Api.g_exc_error;
5181: ELSE
5182: IF (l_log_statement >= l_log_current_level)THEN
5183: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before Calling aggregate_material_requirements');
5184: END IF;
5185:
5186: -- AnRaj: Added as part of Material Requirement Aggrgation Enhancement, Bug#5303378
5187: -- Call aggregate_material_requirements for a visit
5198: x_msg_count => l_msg_count,
5199: x_msg_data => l_msg_data
5200: );
5201: IF (l_log_statement >= l_log_current_level)THEN
5202: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After Calling aggregate_material_requirements - l_return_status = '||l_return_status);
5203: END IF;
5204:
5205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5206: x_msg_count := FND_MSG_PUB.count_msg;
5204:
5205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5206: x_msg_count := FND_MSG_PUB.count_msg;
5207: IF (l_log_statement >= l_log_current_level)THEN
5208: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
5209: END IF;
5210: RAISE Fnd_Api.g_exc_error;
5211: END IF;
5212:
5210: RAISE Fnd_Api.g_exc_error;
5211: END IF;
5212:
5213: IF (l_log_statement >= l_log_current_level)THEN
5214: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before calling Push_to_Production');
5215: END IF;
5216:
5217: --Call push to production with module type 'CST'
5218: AHL_VWP_PROJ_PROD_PVT.Push_to_Production
5228: x_msg_count => l_msg_count,
5229: x_msg_data => l_msg_data);
5230:
5231: IF (l_log_statement >= l_log_current_level)THEN
5232: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Push_to_Production - l_return_status = '||l_return_status);
5233: END IF;
5234:
5235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5236: -- Check Error Message stack.
5235: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5236: -- Check Error Message stack.
5237: x_msg_count := FND_MSG_PUB.count_msg;
5238: IF (l_log_statement >= l_log_current_level)THEN
5239: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
5240: END IF;
5241: RAISE Fnd_Api.g_exc_error;
5242: END IF;
5243:
5241: RAISE Fnd_Api.g_exc_error;
5242: END IF;
5243:
5244: IF (l_log_statement >= l_log_current_level)THEN
5245: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
5246: END IF;
5247:
5248: -- Delete simulated visits associated to this visit
5249: AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits
5256: x_msg_count => l_msg_count,
5257: x_msg_data => l_msg_data);
5258:
5259: IF (l_log_statement >= l_log_current_level)THEN
5260: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
5261: END IF;
5262:
5263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5264: -- Check Error Message stack.
5263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5264: -- Check Error Message stack.
5265: x_msg_count := FND_MSG_PUB.count_msg;
5266: IF (l_log_statement >= l_log_current_level)THEN
5267: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
5268: END IF;
5269: RAISE Fnd_Api.g_exc_error;
5270: END IF;
5271: END IF;
5276: COMMIT WORK;
5277: END IF;
5278:
5279: IF (l_log_procedure >= l_log_current_level)THEN
5280: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
5281: END IF;
5282:
5283: EXCEPTION
5284: WHEN FND_API.G_EXC_ERROR THEN
5375:
5376: BEGIN
5377:
5378: IF (l_log_procedure >= l_log_current_level) THEN
5379: fnd_log.string(l_log_procedure,
5380: L_DEBUG_KEY ||'.begin',
5381: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id ||
5382: 'p_tasks_tbl.COUNT = ' || p_tasks_tbl.COUNT);
5383: END IF;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450:
5451: IF (l_log_statement >= l_log_current_level) THEN
5452: fnd_log.string(l_log_statement,
5453: L_DEBUG_KEY,
5454: 'Before calling VALIDATE_BEFORE_PRODUCTION');
5455: END IF;
5456:
5467: x_msg_count => l_msg_count,
5468: x_msg_data => l_msg_data);
5469:
5470: IF (l_log_statement >= l_log_current_level) THEN
5471: fnd_log.string(l_log_statement,
5472: L_DEBUG_KEY,
5473: 'After calling VALIDATE_BEFORE_PRODUCTION, Return Status = ' ||
5474: l_return_status);
5475: END IF;
5477: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN
5478: -- Check Error Message stack.
5479: x_msg_count := FND_MSG_PUB.count_msg;
5480: IF (l_log_statement >= l_log_current_level) THEN
5481: fnd_log.string(l_log_statement,
5482: L_DEBUG_KEY,
5483: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
5484: END IF;
5485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5489: END IF;
5490: END IF;
5491:
5492: IF (l_log_statement >= l_log_current_level) THEN
5493: fnd_log.string(l_log_statement,
5494: L_DEBUG_KEY,
5495: 'Before calling VALIDATE_TASKS_BEF_PRODUCTION. p_module_type = ' || p_module_type);
5496: END IF;
5497:
5504: x_msg_count => l_msg_count,
5505: x_msg_data => l_msg_data);
5506:
5507: IF (l_log_statement >= l_log_current_level) THEN
5508: fnd_log.string(l_log_statement,
5509: L_DEBUG_KEY,
5510: 'After calling VALIDATE_TASKS_BEF_PRODUCTION. Records in l_tasks_tbl: ' ||
5511: l_tasks_tbl.COUNT|| ', Return Status = ' || l_return_status);
5512: END IF;
5515: -- Check Error Message stack.
5516: x_msg_count := FND_MSG_PUB.count_msg;
5517:
5518: IF (l_log_statement >= l_log_current_level) THEN
5519: fnd_log.string(l_log_statement,
5520: L_DEBUG_KEY,
5521: 'Errors from VALIDATE_TASKS_BEF_PRODUCTION. Message count: ' || x_msg_count);
5522: END IF;
5523:
5528: END IF;
5529: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
5530:
5531: IF (l_log_statement >= l_log_current_level) THEN
5532: fnd_log.string(l_log_statement,
5533: L_DEBUG_KEY,
5534: 'Before calling AGGREGATE_TASK_MATERIAL_REQRS ');
5535: END IF;
5536:
5550: x_msg_data => l_msg_data
5551: );
5552:
5553: IF (l_log_statement >= l_log_current_level) THEN
5554: fnd_log.string(l_log_statement,
5555: L_DEBUG_KEY,
5556: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Task Id: ' ||
5557: l_tasks_tbl(i).visit_task_id || '. Return Status = '|| l_return_status);
5558: END IF;
5559:
5560: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5561: x_msg_count := FND_MSG_PUB.count_msg;
5562: IF (l_log_statement >= l_log_current_level) THEN
5563: fnd_log.string(l_log_statement,
5564: L_DEBUG_KEY,
5565: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
5566: END IF;
5567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5575: --for paritally implemented visits adjust the task times
5576: IF (c_visit_info_rec.start_date_time < SYSDATE and c_visit_info_rec.status_code = 'PARTIALLY RELEASED') THEN
5577:
5578: IF (l_log_statement >= l_log_current_level) THEN
5579: fnd_log.string(l_log_statement,
5580: L_DEBUG_KEY,
5581: 'Before calling ADJUST_TASK_TIMES ');
5582: END IF;
5583:
5595: x_msg_data => l_msg_data
5596: );
5597:
5598: IF (l_log_statement >= l_log_current_level) THEN
5599: fnd_log.string(l_log_statement,
5600: L_DEBUG_KEY,
5601: 'After calling ADJUST_TASK_TIMES for task Id ' ||
5602: l_tasks_tbl(i).visit_task_id ||'. Return Status = '|| l_return_status);
5603: END IF;
5604:
5605: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5606: x_msg_count := FND_MSG_PUB.count_msg;
5607: IF (l_log_statement >= l_log_current_level) THEN
5608: fnd_log.string(l_log_statement,
5609: L_DEBUG_KEY,
5610: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
5611: END IF;
5612: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5623: --Validate the MR/Route dates for all the tasks
5624: FOR i IN l_tasks_tbl.FIRST..l_tasks_tbl.LAST
5625: LOOP
5626: IF (l_log_statement >= l_log_current_level) THEN
5627: fnd_log.string(l_log_statement,
5628: L_DEBUG_KEY,
5629: 'Before calling VALIDATE_MR_ROUTE_DATE. l_msg_count = ' || l_msg_count);
5630: END IF;
5631:
5637: p_end_date_time => l_tasks_tbl(i).TASK_END_DATE
5638: );
5639:
5640: IF (l_log_statement >= l_log_current_level) THEN
5641: fnd_log.string(l_log_statement,L_DEBUG_KEY,
5642: 'After calling VALIDATE_MR_ROUTE_DATE for task Id: ' ||l_tasks_tbl(i).visit_task_id || ' and l_msg_count - ' || l_msg_count);
5643: END IF;
5644: END LOOP;
5645:
5645:
5646: l_msg_count := Fnd_Msg_Pub.count_msg;
5647: IF (l_msg_count <> l_temp_msg_count) THEN
5648: IF (l_log_statement >= l_log_current_level) THEN
5649: fnd_log.string(l_log_statement,L_DEBUG_KEY,
5650: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
5651: END IF;
5652: RAISE FND_API.G_EXC_ERROR;
5653: END IF;
5652: RAISE FND_API.G_EXC_ERROR;
5653: END IF;
5654:
5655: IF (l_log_statement >= l_log_current_level) THEN
5656: fnd_log.string(l_log_statement,
5657: L_DEBUG_KEY,
5658: 'Before calling PUSH_TASKS_TO_PRODUCTION for visit id: ' ||p_visit_id);
5659: END IF;
5660:
5672: x_msg_data => l_msg_data
5673: );
5674:
5675: IF (l_log_statement >= l_log_current_level) THEN
5676: fnd_log.string(l_log_statement,
5677: L_DEBUG_KEY,
5678: 'After calling PUSH_TASKS_TO_PRODUCTION. Return Status = '|| l_return_status);
5679: END IF;
5680:
5680:
5681: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5682: x_msg_count := FND_MSG_PUB.count_msg;
5683: IF (l_log_statement >= l_log_current_level) THEN
5684: fnd_log.string(l_log_statement,
5685: L_DEBUG_KEY,
5686: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
5687: END IF;
5688: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5692: END IF;
5693: END IF;
5694:
5695: IF (l_log_statement >= l_log_current_level) THEN
5696: fnd_log.string(l_log_statement,
5697: L_DEBUG_KEY,
5698: 'Before calling DELETE_SIMUL_VISITS for visit id: ' ||p_visit_id);
5699: END IF;
5700:
5709: x_msg_count => l_msg_count,
5710: x_msg_data => l_msg_data);
5711:
5712: IF (l_log_statement >= l_log_current_level) THEN
5713: fnd_log.string(l_log_statement,
5714: L_DEBUG_KEY,
5715: 'After calling DELETE_SIMUL_VISITS for visit id ' ||p_visit_id||'. Return Status = '|| l_return_status);
5716: END IF;
5717:
5717:
5718: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5719: x_msg_count := FND_MSG_PUB.count_msg;
5720: IF (l_log_statement >= l_log_current_level) THEN
5721: fnd_log.string(l_log_statement,
5722: L_DEBUG_KEY,
5723: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
5724: END IF;
5725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5740: p_data => x_msg_data
5741: );
5742:
5743: IF (l_log_procedure >= l_log_current_level) THEN
5744: fnd_log.string(l_log_procedure,
5745: L_DEBUG_KEY||'.end',
5746: 'At the end of PLSQL procedure. Return Status = ' || x_return_status);
5747: END IF;
5748:
5884: child_task BOOLEAN := FALSE;
5885:
5886: BEGIN
5887: IF (l_log_procedure >= l_log_current_level) THEN
5888: fnd_log.string(l_log_procedure,
5889: L_DEBUG_KEY ||'.begin',
5890: 'At the start of PL SQL procedure. Visit Id = ' ||
5891: p_visit_id || ', p_tasks_tbl.COUNT = ' || p_tasks_tbl.COUNT);
5892: END IF;
5902: FETCH c_fet_master_wo INTO c_mst_wo_visit_rec;
5903: IF c_fet_master_wo%NOTFOUND THEN
5904: x_msg_count := FND_MSG_PUB.count_msg;
5905: IF (l_log_statement >= l_log_current_level) THEN
5906: fnd_log.string(l_log_statement,
5907: L_DEBUG_KEY,
5908: 'Visit not released: ' || c_tsk_dtls_rec.visit_task_number);
5909: END IF;
5910: END IF;
5916: FETCH c_task_dtls INTO c_tsk_dtls_rec;
5917: IF c_task_dtls%NOTFOUND THEN
5918: x_msg_count := FND_MSG_PUB.count_msg;
5919: IF (l_log_statement >= l_log_current_level) THEN
5920: fnd_log.string(l_log_statement,
5921: L_DEBUG_KEY,
5922: 'Task is either not in planning status or Invalid - ' ||
5923: p_tasks_tbl(i).visit_task_id);
5924: END IF;
5935: IF (c_mst_wo_visit_rec.scheduled_completion_date IS NOT NULL) AND
5936: (c_tsk_dtls_rec.end_date_time > c_mst_wo_visit_rec.scheduled_completion_date) THEN
5937: x_msg_count := FND_MSG_PUB.count_msg;
5938: IF (l_log_statement >= l_log_current_level) THEN
5939: fnd_log.string(l_log_statement,
5940: L_DEBUG_KEY,
5941: 'Planned end time of the task is exceeding the scheduled completion time of the master WO: ' ||
5942: c_tsk_dtls_rec.visit_task_number);
5943: END IF;
6012:
6013: IF NOT(parent_task_found_flag) THEN --if summary task is not selected then throw an error
6014: x_msg_count := FND_MSG_PUB.count_msg;
6015: IF (l_log_statement >= l_log_current_level) THEN
6016: fnd_log.string(l_log_statement,
6017: L_DEBUG_KEY,
6018: 'Select the summary task for the task: ' ||
6019: c_tsk_dtls_rec.visit_task_number);
6020: END IF;
6057: FETCH get_parent_task_dependencies INTO c_par_tech_dep_rec;
6058: IF get_parent_task_dependencies%NOTFOUND THEN
6059: x_msg_count := FND_MSG_PUB.count_msg;
6060: IF (l_log_statement >= l_log_current_level) THEN
6061: fnd_log.string(l_log_statement,
6062: L_DEBUG_KEY,
6063: 'Parent Technical task dependency not found for the task - ' ||
6064: x_tasks_tbl(i).visit_task_number);
6065: END IF;
6075:
6076: IF NOT(parent_task) THEN --parent task not selected
6077: x_msg_count := FND_MSG_PUB.count_msg;
6078: IF (l_log_statement >= l_log_current_level) THEN
6079: fnd_log.string(l_log_statement,
6080: L_DEBUG_KEY,
6081: 'Parent tasks on which the task ' ||
6082: x_tasks_tbl(i).visit_task_number ||
6083: ' is technically dependent has not been selected.'||
6098: FETCH get_child_task_dependencies INTO c_ch_tech_dep_rec;
6099: IF get_child_task_dependencies%NOTFOUND THEN
6100: x_msg_count := FND_MSG_PUB.count_msg;
6101: IF (l_log_statement >= l_log_current_level) THEN
6102: fnd_log.string(l_log_statement,
6103: L_DEBUG_KEY,
6104: 'Child Technical task dependency not found for the task - ' || x_tasks_tbl(i).visit_task_number);
6105: END IF;
6106: EXIT;
6115:
6116: IF NOT(child_task) THEN
6117: x_msg_count := FND_MSG_PUB.count_msg;
6118: IF (l_log_statement >= l_log_current_level) THEN
6119: fnd_log.string(l_log_statement,
6120: L_DEBUG_KEY,
6121: 'Child tasks on which the task ' || x_tasks_tbl(i).visit_task_number || ' is technically dependent has not been selected.'||
6122: 'Please select the technically dependent tasks too');
6123: END IF;
6133:
6134: END LOOP;
6135:
6136: IF (l_log_procedure >= l_log_current_level) THEN
6137: fnd_log.string(l_log_procedure,
6138: L_DEBUG_KEY ||'.end',
6139: 'At the end of PL SQL procedure. x_tasks_tbl.COUNT = ' || x_tasks_tbl.COUNT);
6140: END IF;
6141:
6384: l_firm_planned_flag VARCHAR2(1) := FND_PROFILE.value('AHL_PRD_FIRM_PLANNED_FLAG');
6385:
6386: BEGIN
6387: IF (l_log_procedure >= l_log_current_level) THEN
6388: fnd_log.string(l_log_procedure,
6389: L_DEBUG_KEY ||'.begin',
6390: 'At the start of PL SQL procedure. Visit Id = ' ||
6391: p_visit_id || ', p_tasks_tbl.COUNT = ' || p_tasks_tbl.COUNT);
6392: END IF;
6409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6410: END IF;
6411:
6412: IF (l_log_statement >= l_log_current_level) THEN
6413: fnd_log.string(l_log_statement,
6414: L_DEBUG_KEY,
6415: 'Before calling INTEGRATE_TO_PROJECTS for Visit Id ' || p_visit_id);
6416: END IF;
6417:
6427: x_msg_count => l_msg_count,
6428: x_msg_data => x_msg_data);
6429:
6430: IF (l_log_statement >= l_log_current_level) THEN
6431: fnd_log.string(l_log_statement,
6432: L_DEBUG_KEY,
6433: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
6434: END IF;
6435:
6435:
6436: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6437: x_msg_count := FND_MSG_PUB.count_msg;
6438: IF (l_log_statement >= l_log_current_level) THEN
6439: fnd_log.string(l_log_statement,
6440: L_DEBUG_KEY,
6441: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
6442: END IF;
6443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6660: END IF;
6661: END IF; --work order exists or not for this task
6662:
6663: IF (l_log_statement >= l_log_current_level) THEN
6664: fnd_log.string(l_log_statement,
6665: L_DEBUG_KEY,
6666: 'Before calling Get_Task_Relationships for task id: ' ||p_tasks_tbl(i).visit_task_id);
6667: END IF;
6668:
6673: p_x_relationship_tbl => l_prd_workorder_rel_tbl
6674: );
6675:
6676: IF (l_log_statement >= l_log_current_level) THEN
6677: fnd_log.string(l_log_statement,
6678: L_DEBUG_KEY,
6679: 'After calling Get_Task_Relationships');
6680: END IF;
6681: END IF; -- Task is Manually Created Summary Task or not
6682: END LOOP; -- For all tasks in p_tasks_tbl
6683:
6684: --first get the task relationships for the tasks, then collect the dependencies.
6685: IF (l_log_statement >= l_log_current_level) THEN
6686: fnd_log.string(l_log_statement,
6687: L_DEBUG_KEY,
6688: 'Before calling Get_Task_Dependencies for tasks');
6689: END IF;
6690:
6697: p_x_relationship_tbl => l_prd_workorder_rel_tbl
6698: );
6699:
6700: IF (l_log_statement >= l_log_current_level) THEN
6701: fnd_log.string(l_log_statement,
6702: L_DEBUG_KEY,
6703: 'After calling Get_Task_Dependencies for task id: ' ||p_tasks_tbl(i).visit_task_id);
6704: END IF;
6705: END LOOP; -- For all tasks in p_tasks_tbl
6749: l_prd_workorder_tbl(l_wo_tbl_count).batch_id := c_visit_dtl_rec.visit_number;
6750: l_prd_workorder_tbl(l_wo_tbl_count).header_id := l_sr_task_dtls_rec.visit_task_number;
6751:
6752: IF (l_log_statement >= l_log_current_level) THEN
6753: fnd_log.string(l_log_statement,
6754: L_DEBUG_KEY,
6755: 'SR MWO Dates before updating...');
6756: fnd_log.string(l_log_statement,
6757: L_DEBUG_KEY,
6752: IF (l_log_statement >= l_log_current_level) THEN
6753: fnd_log.string(l_log_statement,
6754: L_DEBUG_KEY,
6755: 'SR MWO Dates before updating...');
6756: fnd_log.string(l_log_statement,
6757: L_DEBUG_KEY,
6758: '----------------------------------------------');
6759: fnd_log.string(l_log_statement,
6760: L_DEBUG_KEY,
6755: 'SR MWO Dates before updating...');
6756: fnd_log.string(l_log_statement,
6757: L_DEBUG_KEY,
6758: '----------------------------------------------');
6759: fnd_log.string(l_log_statement,
6760: L_DEBUG_KEY,
6761: 'scheduled_start_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6762: fnd_log.string(l_log_statement,
6763: L_DEBUG_KEY,
6758: '----------------------------------------------');
6759: fnd_log.string(l_log_statement,
6760: L_DEBUG_KEY,
6761: 'scheduled_start_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6762: fnd_log.string(l_log_statement,
6763: L_DEBUG_KEY,
6764: 'scheduled_end_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_completion_date,'DD-MON-YYYY HH24:MI:SS'));
6765: fnd_log.string(l_log_statement,
6766: L_DEBUG_KEY,
6761: 'scheduled_start_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6762: fnd_log.string(l_log_statement,
6763: L_DEBUG_KEY,
6764: 'scheduled_end_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_completion_date,'DD-MON-YYYY HH24:MI:SS'));
6765: fnd_log.string(l_log_statement,
6766: L_DEBUG_KEY,
6767: 'SR MWO Dates after updating...');
6768: fnd_log.string(l_log_statement,
6769: L_DEBUG_KEY,
6764: 'scheduled_end_time->'||TO_CHAR(l_sr_mwo_rec.scheduled_completion_date,'DD-MON-YYYY HH24:MI:SS'));
6765: fnd_log.string(l_log_statement,
6766: L_DEBUG_KEY,
6767: 'SR MWO Dates after updating...');
6768: fnd_log.string(l_log_statement,
6769: L_DEBUG_KEY,
6770: '----------------------------------------------');
6771: fnd_log.string(l_log_statement,
6772: L_DEBUG_KEY,
6767: 'SR MWO Dates after updating...');
6768: fnd_log.string(l_log_statement,
6769: L_DEBUG_KEY,
6770: '----------------------------------------------');
6771: fnd_log.string(l_log_statement,
6772: L_DEBUG_KEY,
6773: 'scheduled_start_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6774: fnd_log.string(l_log_statement,
6775: L_DEBUG_KEY,
6770: '----------------------------------------------');
6771: fnd_log.string(l_log_statement,
6772: L_DEBUG_KEY,
6773: 'scheduled_start_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6774: fnd_log.string(l_log_statement,
6775: L_DEBUG_KEY,
6776: 'scheduled_end_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_end_date,'DD-MON-YYYY HH24:MI:SS'));
6777: fnd_log.string(l_log_statement,
6778: L_DEBUG_KEY,
6773: 'scheduled_start_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_start_date,'DD-MON-YYYY HH24:MI:SS'));
6774: fnd_log.string(l_log_statement,
6775: L_DEBUG_KEY,
6776: 'scheduled_end_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_end_date,'DD-MON-YYYY HH24:MI:SS'));
6777: fnd_log.string(l_log_statement,
6778: L_DEBUG_KEY,
6779: 'SR Task scheduled_start_time->'||TO_CHAR(l_sch_start_date,'DD-MON-YYYY HH24:MI:SS'));
6780: fnd_log.string(l_log_statement,
6781: L_DEBUG_KEY,
6776: 'scheduled_end_time->'||TO_CHAR(l_prd_workorder_tbl(l_wo_tbl_count).scheduled_end_date,'DD-MON-YYYY HH24:MI:SS'));
6777: fnd_log.string(l_log_statement,
6778: L_DEBUG_KEY,
6779: 'SR Task scheduled_start_time->'||TO_CHAR(l_sch_start_date,'DD-MON-YYYY HH24:MI:SS'));
6780: fnd_log.string(l_log_statement,
6781: L_DEBUG_KEY,
6782: 'SR Task scheduled_end_time->'||TO_CHAR(l_sch_end_date,'DD-MON-YYYY HH24:MI:SS'));
6783: END IF; -- Statement Log Level
6784: END IF; -- wip_entity_id IS NOT NULL
6783: END IF; -- Statement Log Level
6784: END IF; -- wip_entity_id IS NOT NULL
6785:
6786: IF (l_log_statement >= l_log_current_level) THEN
6787: fnd_log.string(l_log_statement,
6788: L_DEBUG_KEY,
6789: 'Before calling PROCESS_JOBS for visit_id: ' || p_visit_id);
6790: END IF;
6791:
6804: p_prd_workorder_rel_tbl => l_prd_workorder_rel_tbl
6805: );
6806:
6807: IF (l_log_statement >= l_log_current_level) THEN
6808: fnd_log.string(l_log_statement,
6809: L_DEBUG_KEY,
6810: 'After calling PROCESS_JOBS for visit_id ' ||
6811: p_visit_id||', l_return_status: '|| l_return_status);
6812: END IF;
6813:
6814: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6815: x_msg_count := FND_MSG_PUB.count_msg;
6816: IF (l_log_statement >= l_log_current_level) THEN
6817: fnd_log.string(l_log_statement,
6818: L_DEBUG_KEY,
6819: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
6820: END IF;
6821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6826: END IF; -- Return Status is not Success
6827:
6828: IF (l_log_statement >= l_log_current_level) THEN
6829: For i IN l_prd_workorder_tbl.FIRST..l_prd_workorder_tbl.LAST LOOP
6830: fnd_log.string(l_log_statement,
6831: L_DEBUG_KEY,
6832: 'WorkOrder Id('||i||'): '||l_prd_workorder_tbl(i).workorder_id);
6833: END LOOP;
6834: END IF;
6836: /*B5758813 - rnahata - starts*/
6837: /*The project start/end dates have to be updated with the workorder scheduled
6838: start/end dates.*/
6839: IF (l_log_statement >= l_log_current_level) THEN
6840: fnd_log.string(l_log_statement,
6841: L_DEBUG_KEY,
6842: 'Before calling Update_Project_Task_Times.');
6843: END IF;
6844:
6851:
6852: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6853: x_msg_count := FND_MSG_PUB.count_msg;
6854: IF (l_log_statement >= l_log_current_level) THEN
6855: fnd_log.string(l_log_statement,
6856: L_DEBUG_KEY,
6857: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
6858: END IF;
6859: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6863: END IF;
6864: ELSE
6865: IF (l_log_statement >= l_log_current_level) THEN
6866: fnd_log.string(l_log_statement,
6867: L_DEBUG_KEY,
6868: 'Returned Success from Update_Project_Task_Times');
6869: END IF;
6870: END IF; -- Return Status is Success or not
6888:
6889: IF l_temp_num1 IS NOT NULL OR l_temp_num2 is NULL THEN
6890: IF (l_log_statement >= l_log_current_level) THEN
6891: IF l_temp_num1 IS NOT NULL THEN
6892: fnd_log.string(l_log_statement,
6893: L_DEBUG_KEY,
6894: 'Visit has some tasks in planning status. Setting Visit status to PARTIALLY RELEASED.');
6895: END IF;
6896: IF l_temp_num2 IS NULL THEN
6893: L_DEBUG_KEY,
6894: 'Visit has some tasks in planning status. Setting Visit status to PARTIALLY RELEASED.');
6895: END IF;
6896: IF l_temp_num2 IS NULL THEN
6897: fnd_log.string(l_log_statement,
6898: L_DEBUG_KEY,
6899: 'Visit times and Master Work order times do not match. Setting Visit status to PARTIALLY RELEASED.');
6900: END IF;
6901: END IF;
6904: SET status_code = 'PARTIALLY RELEASED'
6905: WHERE visit_id = p_visit_id;
6906: ELSE
6907: IF (l_log_statement >= l_log_current_level) THEN
6908: fnd_log.string(l_log_statement,
6909: L_DEBUG_KEY,
6910: 'Setting Visit status to RELEASED.');
6911: END IF;
6912:
6916: WHERE visit_id = p_visit_id;
6917: END IF;
6918:
6919: IF (l_log_procedure >= l_log_current_level) THEN
6920: fnd_log.string(l_log_procedure,
6921: L_DEBUG_KEY ||'.end',
6922: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6923: END IF;
6924:
6981: AND TASK_TYPE_CODE <> 'SUMMARY';
6982: BEGIN
6983:
6984: IF (l_log_procedure >= l_log_current_level) THEN
6985: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin', 'At the start of PL SQL procedure');
6986: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'p_visit_id : '|| p_visit_id || 'item_instance_id : '|| item_instance_id);
6987: END IF;
6988:
6989: IF item_instance_id IS NOT NULL THEN
6982: BEGIN
6983:
6984: IF (l_log_procedure >= l_log_current_level) THEN
6985: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin', 'At the start of PL SQL procedure');
6986: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'p_visit_id : '|| p_visit_id || 'item_instance_id : '|| item_instance_id);
6987: END IF;
6988:
6989: IF item_instance_id IS NOT NULL THEN
6990: -- If the Visit header has an instance id, check for the corresponding Unit
6996: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
6997: Fnd_Msg_Pub.ADD;
6998:
6999: IF (l_log_statement >= l_log_current_level)THEN
7000: fnd_log.string (l_log_statement,L_DEBUG_KEY,'Unit : '||l_unit_name || ' is quarantined, Error message added');
7001: END IF;
7002: END IF; -- l_quarantined not true
7003: ELSE -- instance id is null
7004: -- If the visit does not have a unit at the header , then check for the units of all tasks
7012: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7013: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7014: Fnd_Msg_Pub.ADD;
7015: IF (l_log_statement >= l_log_current_level)THEN
7016: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit for this task: '||l_task_number||' is quarantined');
7017: END IF;
7018: END IF; -- l_quarantined not true
7019: END LOOP; -- c_get_tasknumbers
7020: END IF;
7019: END LOOP; -- c_get_tasknumbers
7020: END IF;
7021:
7022: IF (l_log_procedure >= l_log_current_level) THEN
7023: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PL SQL procedure ');
7024: END IF;
7025: END check_unit_quarantined;
7026:
7027: -------------------------------------------------------------------
7157:
7158: BEGIN
7159:
7160: IF (l_log_procedure >= l_log_current_level) THEN
7161: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
7162: END IF;
7163:
7164: -- Standard start of API savepoint
7165: SAVEPOINT Release_MR;
7179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7180: END IF;
7181:
7182: IF (l_log_statement >= l_log_current_level) THEN
7183: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Visit ID : ' || p_visit_id);
7184: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR UE ID : ' || p_unit_effectivity_id);
7185: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Release Flag : ' || p_release_flag);
7186: END IF;
7187:
7180: END IF;
7181:
7182: IF (l_log_statement >= l_log_current_level) THEN
7183: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Visit ID : ' || p_visit_id);
7184: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR UE ID : ' || p_unit_effectivity_id);
7185: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Release Flag : ' || p_release_flag);
7186: END IF;
7187:
7188: -- Check for Required Parameters
7181:
7182: IF (l_log_statement >= l_log_current_level) THEN
7183: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Visit ID : ' || p_visit_id);
7184: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR UE ID : ' || p_unit_effectivity_id);
7185: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Release Flag : ' || p_release_flag);
7186: END IF;
7187:
7188: -- Check for Required Parameters
7189: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7189: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7190: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
7191: FND_MSG_PUB.ADD;
7192: IF (l_log_unexpected >= l_log_current_level)THEN
7193: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
7194: END IF;
7195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7196: END IF;
7197:
7198: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
7199: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
7200: FND_MSG_PUB.ADD;
7201: IF (l_log_unexpected >= l_log_current_level)THEN
7202: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
7203: END IF;
7204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7205: END IF;
7206:
7204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7205: END IF;
7206:
7207: IF (l_log_statement >= l_log_current_level)THEN
7208: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Calling Validate Before Production for visit Id: ' ||p_visit_id);
7209: END IF;
7210:
7211: --Valdate before push to production happens
7212: Validate_Before_Production
7221: x_msg_count => x_msg_count,
7222: x_msg_data => x_msg_data);
7223:
7224: IF (l_log_statement >= l_log_current_level)THEN
7225: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Validate Before Production - l_return_status : '|| l_return_status);
7226: END IF;
7227:
7228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7229: -- Check Error Message stack.
7228: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7229: -- Check Error Message stack.
7230: x_msg_count := FND_MSG_PUB.count_msg;
7231: IF (l_log_statement >= l_log_current_level)THEN
7232: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
7233: END IF;
7234: RAISE Fnd_Api.g_exc_error;
7235: END IF;
7236:
7296: IF p_module_type <>'PROD' THEN
7297: -- Check Error Message stack.
7298: x_msg_count := FND_MSG_PUB.count_msg;
7299: IF (l_log_statement >= l_log_current_level)THEN
7300: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production'|| x_msg_count);
7301: END IF;
7302: RAISE Fnd_Api.g_exc_error;
7303: END IF;
7304: ELSE
7302: RAISE Fnd_Api.g_exc_error;
7303: END IF;
7304: ELSE
7305: IF (l_log_statement >= l_log_current_level)THEN
7306: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Calling Push_MR_to_Production for UE Id: ' ||p_unit_effectivity_id);
7307: END IF;
7308:
7309: Push_MR_to_Production
7310: (p_api_version => l_api_version,
7319: x_msg_count => l_msg_count,
7320: x_msg_data => l_msg_data);
7321:
7322: IF (l_log_statement >= l_log_current_level)THEN
7323: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Push_MR_to_Production - l_return_status : ' ||l_return_status);
7324: END IF;
7325:
7326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7327: -- Check Error Message stack.
7326: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7327: -- Check Error Message stack.
7328: x_msg_count := FND_MSG_PUB.count_msg;
7329: IF (l_log_statement >= l_log_current_level)THEN
7330: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
7331: END IF;
7332: RAISE Fnd_Api.g_exc_error;
7333: END IF;
7334:
7348: p_count => x_msg_count,
7349: p_data => x_msg_data);
7350:
7351: IF (l_log_procedure >= l_log_current_level)THEN
7352: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
7353: END IF;
7354:
7355: EXCEPTION
7356: WHEN FND_API.G_EXC_ERROR THEN
7437:
7438: BEGIN
7439:
7440: IF (l_log_procedure >= l_log_current_level) THEN
7441: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the procedure');
7442: END IF;
7443:
7444: rel_count := p_x_relationship_tbl.COUNT;
7445:
7443:
7444: rel_count := p_x_relationship_tbl.COUNT;
7445:
7446: IF (l_log_statement >= l_log_current_level) THEN
7447: fnd_log.string(l_log_statement,L_DEBUG_KEY,'rel_count - '||rel_count);
7448: END IF;
7449:
7450: -- Get the Technical Dependencies between Visit Tasks for a Visit.
7451: FOR tsk_cursor IN get_tech_dependencies( p_visit_id , p_unit_effectivity_id) LOOP
7457: p_x_relationship_tbl(rel_count).dml_operation := 'C';
7458: END LOOP;
7459:
7460: IF (l_log_procedure >= l_log_current_level) THEN
7461: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT);
7462: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of procedure');
7463: END IF;
7464:
7465: END Get_MR_Dependencies;
7458: END LOOP;
7459:
7460: IF (l_log_procedure >= l_log_current_level) THEN
7461: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT);
7462: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of procedure');
7463: END IF;
7464:
7465: END Get_MR_Dependencies;
7466:
7568:
7569: BEGIN
7570:
7571: IF (l_log_procedure >= l_log_current_level) THEN
7572: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the procedure');
7573: END IF;
7574:
7575: rel_count := p_x_relationship_tbl.COUNT;
7576:
7574:
7575: rel_count := p_x_relationship_tbl.COUNT;
7576:
7577: IF (l_log_statement >= l_log_current_level) THEN
7578: fnd_log.string(l_log_statement,L_DEBUG_KEY,'rel_count - '||rel_count);
7579: END IF;
7580:
7581: -- Get all the Task Records corresponding to a MR for the given UE.
7582: OPEN get_mrs_for_UE( p_visit_id, p_unit_effectivity_id );
7595: END LOOP;
7596: CLOSE get_mrs_for_UE;
7597:
7598: IF (l_log_statement >= l_log_current_level) THEN
7599: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Total MRs for Visit : ' || l_mrs_for_UE.COUNT);
7600: END IF;
7601:
7602: OPEN get_mwo(p_visit_id);
7603: FETCH get_mwo INTO l_parent_wip_entity_id;
7657: END IF;
7658: CLOSE get_wo;
7659:
7660: IF (l_log_statement >= l_log_current_level) THEN
7661: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Total MRs for Visit : ' || l_mrs_for_UE.COUNT);
7662: END IF;
7663: END LOOP;
7664: END IF;
7665:
7663: END LOOP;
7664: END IF;
7665:
7666: IF (l_log_statement >= l_log_current_level) THEN
7667: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Getting Tasks for MRs');
7668: END IF;
7669: -- Get all the Tasks for a MR.
7670: IF ( l_mrs_for_UE.COUNT > 0 ) THEN
7671: FOR i IN l_mrs_for_UE.FIRST..l_mrs_for_UE.LAST
7695: END LOOP;
7696: END IF;
7697:
7698: IF (l_log_procedure >= l_log_current_level) THEN
7699: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT );
7700: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of the procedure');
7701: END IF;
7702:
7703: END Get_MR_Relationships;
7696: END IF;
7697:
7698: IF (l_log_procedure >= l_log_current_level) THEN
7699: fnd_log.string(l_log_procedure,L_DEBUG_KEY,'Total Relationships : ' || p_x_relationship_tbl.COUNT );
7700: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of the procedure');
7701: END IF;
7702:
7703: END Get_MR_Relationships;
7704:
7833:
7834: SAVEPOINT Push_MR_to_Production;
7835:
7836: IF (l_log_procedure >= l_log_current_level) THEN
7837: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the begin of the procedure');
7838: END IF;
7839:
7840: -- Initialize message list if p_init_msg_list is set to TRUE.
7841: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7852: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7853: END IF;
7854:
7855: IF (l_log_statement >= l_log_current_level) THEN
7856: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_unit_effectivity_id : '||p_unit_effectivity_id||'Visit Id : ' || p_visit_id);
7857: END IF;
7858:
7859: --Create project tasks for the given MR
7860: IF (l_log_statement >= l_log_current_level) THEN
7857: END IF;
7858:
7859: --Create project tasks for the given MR
7860: IF (l_log_statement >= l_log_current_level) THEN
7861: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling Add_MR_to_Projects');
7862: END IF;
7863:
7864: Add_MR_to_Project
7865: (p_api_version => l_api_version,
7873: x_msg_count => l_msg_count,
7874: x_msg_data => x_msg_data);
7875:
7876: IF (l_log_statement >= l_log_current_level) THEN
7877: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Add_MR_to_Projects - l_return_status : '||l_return_status);
7878: END IF;
7879:
7880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7881: -- Check Error Message stack.
7892: FETCH c_task_ct INTO l_count;
7893: CLOSE c_task_ct;
7894:
7895: IF (l_log_statement >= l_log_current_level) THEN
7896: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Task Count' || l_count);
7897: END IF;
7898:
7899: IF l_count > 0 THEN
7900: idx := 0;
7982: END IF; -- l_count
7983:
7984: IF l_prd_workorder_tbl.COUNT > 0 THEN
7985: IF (l_log_statement >= l_log_current_level) THEN
7986: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Getting MR Relationships ');
7987: END IF;
7988:
7989: Get_MR_Relationships
7990: (
7995: p_x_relationship_tbl => l_prd_workorder_rel_tbl
7996: );
7997:
7998: IF (l_log_statement >= l_log_current_level) THEN
7999: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Getting MR Relationships ');
8000: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Getting MR Dependencies ');
8001: END IF;
8002:
8003: Get_MR_Dependencies
7996: );
7997:
7998: IF (l_log_statement >= l_log_current_level) THEN
7999: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Getting MR Relationships ');
8000: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Getting MR Dependencies ');
8001: END IF;
8002:
8003: Get_MR_Dependencies
8004: (
8009: p_x_relationship_tbl => l_prd_workorder_rel_tbl
8010: );
8011:
8012: IF (l_log_statement >= l_log_current_level) THEN
8013: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Getting MR Dependencies ');
8014: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_PRD_WORKORDER_PVT.Process_Jobs ');
8015: END IF;
8016:
8017: AHL_PRD_WORKORDER_PVT.Process_Jobs
8010: );
8011:
8012: IF (l_log_statement >= l_log_current_level) THEN
8013: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Getting MR Dependencies ');
8014: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_PRD_WORKORDER_PVT.Process_Jobs ');
8015: END IF;
8016:
8017: AHL_PRD_WORKORDER_PVT.Process_Jobs
8018: (
8029: p_prd_workorder_rel_tbl=> l_prd_workorder_rel_tbl
8030: );
8031:
8032: IF (l_log_statement >= l_log_current_level) THEN
8033: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - l_return_status : '||l_return_status);
8034: END IF;
8035:
8036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8037: IF (l_log_statement >= l_log_current_level) THEN
8034: END IF;
8035:
8036: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8037: IF (l_log_statement >= l_log_current_level) THEN
8038: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from process_jobs API : ' || x_msg_count );
8039: END IF;
8040: RAISE Fnd_Api.g_exc_error;
8041: END IF;
8042:
8042:
8043: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix start
8044: -- Update the project tasks' (corresponding to the visit tasks) start and end date with those of the workorders' created above.
8045: IF (l_log_statement >= l_log_current_level) THEN
8046: fnd_log.string(l_log_statement, l_debug_key, 'Before calling Update_Project_Task_Times.');
8047: END IF;
8048:
8049: Update_Project_Task_Times(
8050: p_prd_workorder_tbl => l_prd_workorder_tbl,
8054: x_msg_data => x_msg_data
8055: );
8056:
8057: IF (l_log_statement >= l_log_current_level) THEN
8058: fnd_log.string(l_log_statement, l_debug_key, 'After calling Update_Project_Task_Times. x_return_status => '||x_return_status);
8059: END IF;
8060:
8061: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
8062: RAISE FND_API.G_EXC_ERROR;
8097: object_version_number = object_version_number + 1
8098: WHERE visit_id = c_visit_rec.visit_id;
8099:
8100: IF (l_log_statement >= l_log_current_level) THEN
8101: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before AHL_VWP_RULES_PVT.Update_Visit_Task_Flag Call');
8102: END IF;
8103:
8104: IF c_visit_rec.any_task_chg_flag = 'Y' THEN
8105: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
8108: x_return_status => x_return_status);
8109: END IF;
8110:
8111: IF (l_log_statement >= l_log_current_level) THEN
8112: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After AHL_VWP_RULES_PVT.Update_Visit_Task_Flag Call');
8113: END IF;
8114: END IF;
8115: ---------------------------End of Body-------------------------------------
8116: -- Standard check of p_commit.
8124: p_data => x_msg_data
8125: );
8126:
8127: IF (l_log_procedure >= l_log_current_level) THEN
8128: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
8129: END IF;
8130:
8131: EXCEPTION
8132: WHEN Fnd_Api.g_exc_error THEN
8247: --------------------- initialize -----------------------
8248: SAVEPOINT Add_MR_to_Project;
8249:
8250: IF (l_log_procedure >= l_log_current_level) THEN
8251: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of plsql procedure');
8252: END IF;
8253:
8254: -- Initialize message list if p_init_msg_list is set to TRUE.
8255: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
8266: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8267: END IF;
8268:
8269: IF (l_log_statement >= l_log_current_level) THEN
8270: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit Effectivity ID = ' || p_unit_effectivity_id);
8271: END IF;
8272:
8273: ----------------------------------------- Start of Body ----------------------------------
8274: -- To check Project responsibilites
8291: l_chk_project := 'Y';
8292: -- End changes by jaramana on Mar 4, 2008 for bug 6788115 (FP of 6759574)
8293:
8294: IF (l_log_statement >= l_log_current_level) THEN
8295: fnd_log.string(l_log_statement,L_DEBUG_KEY,'l_chk_project = ' || l_chk_project);
8296: END IF;
8297:
8298: IF l_chk_project = 'Y' THEN
8299: ----------------------------------------- Cursor ----------------------------------
8306: WHILE c_task%FOUND
8307: LOOP
8308: IF ((c_task_rec.PROJECT_TASK_ID IS NULL) AND (l_curr_task_id <> c_task_rec.visit_task_id))THEN
8309: IF (l_log_statement >= l_log_current_level) THEN
8310: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.Check_Unique_Task_Number');
8311: END IF;
8312:
8313: PA_PROJECT_PUB.Check_Unique_Task_Number
8314: ( p_api_version_number => 1,
8322: p_unique_task_number_flag => l_project_tsk_flag
8323: ) ;
8324:
8325: IF (l_log_statement >= l_log_current_level) THEN
8326: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.Check_Unique_Task_Number - l_project_tsk_flag : '|| l_project_tsk_flag);
8327: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.Check_Unique_Task_Reference');
8328: END IF;
8329:
8330: PA_PROJECT_PUB.Check_Unique_Task_Reference
8323: ) ;
8324:
8325: IF (l_log_statement >= l_log_current_level) THEN
8326: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.Check_Unique_Task_Number - l_project_tsk_flag : '|| l_project_tsk_flag);
8327: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.Check_Unique_Task_Reference');
8328: END IF;
8329:
8330: PA_PROJECT_PUB.Check_Unique_Task_Reference
8331: ( p_api_version_number => 1,
8339: p_unique_task_ref_flag => l_proj_ref_flag
8340: );
8341:
8342: IF (l_log_statement >= l_log_current_level) THEN
8343: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.Check_Unique_Task_Reference - l_proj_ref_flag = ' || l_proj_ref_flag);
8344: END IF;
8345:
8346: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
8347: IF (l_log_statement >= l_log_current_level) THEN
8344: END IF;
8345:
8346: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
8347: IF (l_log_statement >= l_log_current_level) THEN
8348: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK');
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8345:
8346: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
8347: IF (l_log_statement >= l_log_current_level) THEN
8348: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK');
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8353: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=:' || c_task_rec.DESCRIPTION);
8346: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
8347: IF (l_log_statement >= l_log_current_level) THEN
8348: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK');
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8353: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=:' || c_task_rec.DESCRIPTION);
8354: END IF;
8347: IF (l_log_statement >= l_log_current_level) THEN
8348: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK');
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8353: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=:' || c_task_rec.DESCRIPTION);
8354: END IF;
8355:
8348: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling PA_PROJECT_PUB.ADD_TASK');
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8353: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=:' || c_task_rec.DESCRIPTION);
8354: END IF;
8355:
8356: -- SATHAPLI::Bug 5758813, 04-Jun-2008 - Fetch the required format for the project task's name and description.
8349: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.PROJECT_ID=:' || c_visit_rec.PROJECT_ID);
8350: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_NUMBER=:' || c_visit_rec.VISIT_NUMBER);
8351: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NUMBER=:' || c_task_rec.VISIT_TASK_NUMBER);
8352: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.VISIT_TASK_NAME=:' || c_task_rec.VISIT_TASK_NAME);
8353: fnd_log.string(l_log_statement,L_DEBUG_KEY,'c_task_rec.DESCRIPTION=:' || c_task_rec.DESCRIPTION);
8354: END IF;
8355:
8356: -- SATHAPLI::Bug 5758813, 04-Jun-2008 - Fetch the required format for the project task's name and description.
8357: OPEN get_prj_task_dtls_cur(c_task_rec.visit_task_id);
8387: ,p_task_id => l_task_id
8388: );
8389:
8390: IF (l_log_statement >= l_log_current_level) THEN
8391: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.ADD_TASK - l_return_status : '||l_return_status);
8392: END IF;
8393:
8394: IF (l_return_status <> 'S') THEN
8395: IF (fnd_msg_pub.count_msg > 0 ) THEN
8399: p_encoded => 'F',
8400: p_data => l_msg_data,
8401: p_msg_index_out => l_msg_index_out);
8402: IF (l_log_statement >= l_log_current_level) THEN
8403: fnd_log.string(l_log_statement,L_DEBUG_KEY,': Error' ||l_msg_data);
8404: END IF;
8405: END LOOP;
8406: ELSE
8407: IF (l_log_statement >= l_log_current_level) THEN
8404: END IF;
8405: END LOOP;
8406: ELSE
8407: IF (l_log_statement >= l_log_current_level) THEN
8408: fnd_log.string(l_log_statement,L_DEBUG_KEY,': Another Error ='||l_msg_data);
8409: END IF;
8410: END IF;
8411: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8412: END IF;
8455: p_data => x_msg_data
8456: );
8457:
8458: IF (l_log_procedure >= l_log_current_level) THEN
8459: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
8460: END IF;
8461:
8462: EXCEPTION
8463: WHEN Fnd_Api.g_exc_error THEN
8545: FND_MSG_PUB.INITIALIZE;
8546: END IF;
8547:
8548: IF (l_log_procedure >= l_log_current_level) THEN
8549: fnd_log.string(l_log_procedure,
8550: L_DEBUG_KEY,
8551: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
8552: END IF;
8553:
8555: LOOP
8556: FETCH get_visit_tasks_cur INTO l_visit_task_id;
8557: EXIT WHEN get_visit_tasks_cur%NOTFOUND;
8558: IF (l_log_statement >= l_log_current_level) THEN
8559: fnd_log.string(l_log_statement,
8560: L_DEBUG_KEY,
8561: 'Before calling AGGREGATE_TASK_MATERIAL_REQRS for Visit Task Id: ' || l_visit_task_id);
8562: END IF;
8563:
8574: x_msg_data => l_msg_data
8575: );
8576:
8577: IF (l_log_statement >= l_log_current_level) THEN
8578: fnd_log.string(l_log_statement,
8579: L_DEBUG_KEY,
8580: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Visit Task Id: ' ||
8581: l_visit_task_id || '. Return Status = '|| l_return_status);
8582: END IF;
8583:
8584: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8585: x_msg_count := FND_MSG_PUB.count_msg;
8586: IF (l_log_statement >= l_log_current_level) THEN
8587: fnd_log.string(l_log_statement,
8588: L_DEBUG_KEY,
8589: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8590: END IF;
8591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8672: -- Initialize return status to success before any code logic/validation
8673: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8674:
8675: IF (l_log_procedure >= l_log_current_level) THEN
8676: fnd_log.string(l_log_procedure,
8677: L_DEBUG_KEY ||'.begin',
8678: 'At the start of PL SQL procedure. Visit Task Id = ' || p_task_id);
8679: END IF;
8680:
8699: FETCH get_material_reqrs_cur INTO l_material_reqrs_rec;
8700: EXIT WHEN get_material_reqrs_cur%NOTFOUND;
8701:
8702: IF (l_log_statement >= l_log_current_level) THEN
8703: fnd_log.string(l_log_statement,
8704: L_DEBUG_KEY,
8705: 'Fetching Material Requirements for task.');
8706: END IF;
8707:
8708: IF l_previous_item IS NULL THEN
8709: -- if the first duplicate occurance for a task
8710: l_scheduled_matrial_id := l_material_reqrs_rec.scheduled_material_id;
8711: IF (l_log_statement >= l_log_current_level) THEN
8712: fnd_log.string(l_log_statement,
8713: L_DEBUG_KEY,
8714: 'First Requirement Id: ' || l_scheduled_matrial_id);
8715: END IF;
8716: ELSIF l_previous_item = l_material_reqrs_rec.inventory_item_id THEN
8720: FETCH check_reservation_exist INTO l_reservation_id;
8721: IF check_reservation_exist%FOUND THEN
8722:
8723: IF (l_log_statement >= l_log_current_level) THEN
8724: fnd_log.string(l_log_statement,
8725: L_DEBUG_KEY,
8726: 'Before calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR');
8727: fnd_log.string(l_log_statement,
8728: L_DEBUG_KEY,
8723: IF (l_log_statement >= l_log_current_level) THEN
8724: fnd_log.string(l_log_statement,
8725: L_DEBUG_KEY,
8726: 'Before calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR');
8727: fnd_log.string(l_log_statement,
8728: L_DEBUG_KEY,
8729: 'l_material_reqrs_rec.scheduled_material_id->' || l_material_reqrs_rec.scheduled_material_id);
8730: fnd_log.string(l_log_statement,
8731: L_DEBUG_KEY,'l_scheduled_matrial_id->' || l_scheduled_matrial_id);
8726: 'Before calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR');
8727: fnd_log.string(l_log_statement,
8728: L_DEBUG_KEY,
8729: 'l_material_reqrs_rec.scheduled_material_id->' || l_material_reqrs_rec.scheduled_material_id);
8730: fnd_log.string(l_log_statement,
8731: L_DEBUG_KEY,'l_scheduled_matrial_id->' || l_scheduled_matrial_id);
8732: END IF;
8733:
8734: -- Call Transfer reservations
8744: p_to_mat_req_id => l_scheduled_matrial_id
8745: );
8746:
8747: IF (l_log_statement >= l_log_current_level) THEN
8748: fnd_log.string(l_log_statement,
8749: L_DEBUG_KEY,
8750: 'After calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Return Status = '||
8751: x_return_status);
8752: END IF;
8753:
8754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8755: x_msg_count := FND_MSG_PUB.count_msg;
8756: IF (l_log_statement >= l_log_current_level) THEN
8757: fnd_log.string(l_log_statement,
8758: L_DEBUG_KEY,
8759: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
8760: END IF;
8761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8767: END IF;
8768: END IF;
8769:
8770: IF (l_log_statement >= l_log_current_level) THEN
8771: fnd_log.string(l_log_statement,
8772: L_DEBUG_KEY,
8773: 'Updating ahl_schedule_materials with new Material Requirements');
8774: END IF;
8775:
8780: requested_quantity = NVL(requested_quantity,0) + NVL(l_material_reqrs_rec.requested_quantity,0)
8781: WHERE scheduled_material_id = l_scheduled_matrial_id;
8782:
8783: IF (l_log_statement >= l_log_current_level) THEN
8784: fnd_log.string(l_log_statement,
8785: L_DEBUG_KEY,
8786: 'Deleting the old material requirements from table ahl_schedule_materials ');
8787: END IF;
8788:
8793:
8794: ELSE -- New duplicate inventory item id as material req
8795: l_scheduled_matrial_id := l_material_reqrs_rec.scheduled_material_id;
8796: IF (l_log_statement >= l_log_current_level) THEN
8797: fnd_log.string(l_log_statement,
8798: L_DEBUG_KEY,
8799: 'New Duplicate Inventory Item Id. Requirement Id: ' || l_scheduled_matrial_id ||
8800: ', Item Id: ' || l_material_reqrs_rec.inventory_item_id);
8801: END IF;
8805: END LOOP;
8806: CLOSE get_material_reqrs_cur;
8807:
8808: IF (l_log_procedure >= l_log_current_level) THEN
8809: fnd_log.string(l_log_procedure,
8810: L_DEBUG_KEY ||'.end',
8811: 'At the end of PL SQL procedure. Return Status =' || x_return_status);
8812: END IF;
8813:
8891: -- Initialize return status to success before any code logic/validation
8892: x_return_status:= FND_API.G_RET_STS_SUCCESS;
8893:
8894: IF (l_log_procedure >= l_log_current_level) THEN
8895: fnd_log.string(l_log_procedure,
8896: L_DEBUG_KEY ||'.begin',
8897: 'At the start of PL SQL procedure. p_prd_workorder_tbl.COUNT = ' || p_prd_workorder_tbl.COUNT);
8898: END IF;
8899: --for each workorder get the schduled start/end time
8901: task_index := 1;
8902: FOR idx IN p_prd_workorder_tbl.FIRST..p_prd_workorder_tbl.LAST
8903: LOOP
8904: IF (l_log_statement >= l_log_current_level) THEN
8905: fnd_log.string(l_log_statement,
8906: L_DEBUG_KEY,
8907: 'Workorder Id(' || idx || '): ' || p_prd_workorder_tbl(idx).workorder_id);
8908: END IF;
8909:
8927: -- but gets corrupted if not passed (or left default at PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
8928: l_task_in_tbl(task_index).TASK_DESCRIPTION := get_task_dates_rec.description;
8929:
8930: IF (l_log_statement >= l_log_current_level) THEN
8931: fnd_log.string(l_log_statement,
8932: L_DEBUG_KEY,
8933: 'task_index = ' || task_index);
8934: fnd_log.string(l_log_statement,
8935: L_DEBUG_KEY,
8930: IF (l_log_statement >= l_log_current_level) THEN
8931: fnd_log.string(l_log_statement,
8932: L_DEBUG_KEY,
8933: 'task_index = ' || task_index);
8934: fnd_log.string(l_log_statement,
8935: L_DEBUG_KEY,
8936: 'pa_task_id = '|| l_task_in_tbl(task_index).pa_task_id);
8937: fnd_log.string(l_log_statement,
8938: L_DEBUG_KEY,
8933: 'task_index = ' || task_index);
8934: fnd_log.string(l_log_statement,
8935: L_DEBUG_KEY,
8936: 'pa_task_id = '|| l_task_in_tbl(task_index).pa_task_id);
8937: fnd_log.string(l_log_statement,
8938: L_DEBUG_KEY,
8939: 'task_start_date = ' || l_task_in_tbl(task_index).task_start_date);
8940: fnd_log.string(l_log_statement,
8941: L_DEBUG_KEY,
8936: 'pa_task_id = '|| l_task_in_tbl(task_index).pa_task_id);
8937: fnd_log.string(l_log_statement,
8938: L_DEBUG_KEY,
8939: 'task_start_date = ' || l_task_in_tbl(task_index).task_start_date);
8940: fnd_log.string(l_log_statement,
8941: L_DEBUG_KEY,
8942: 'task_completion_date = ' || l_task_in_tbl(task_index).task_completion_date);
8943: END IF;
8944: task_index := task_index + 1;
8946: END LOOP;
8947: END IF; -- p_prd_workorder_tbl.count > 0
8948:
8949: IF (l_log_statement >= l_log_current_level) THEN
8950: fnd_log.string(l_log_statement,
8951: L_DEBUG_KEY,
8952: 'l_task_in_tbl.count = ' || l_task_in_tbl.count);
8953: END IF;
8954: --update the master visit wo also with the visit start/end times.
8963: l_project_rec.COMPLETION_DATE := trunc(visit_details_rec.close_date_time);
8964: l_project_rec.SCHEDULED_START_DATE := trunc(visit_details_rec.start_date_time);
8965: --rnahata End
8966: IF (l_log_statement >= l_log_current_level) THEN
8967: fnd_log.string(l_log_statement,
8968: L_DEBUG_KEY,
8969: 'Before calling PA_PROJECT_PUB.update_project');
8970: END IF;
8971:
8985: p_tasks_in => l_task_in_tbl,
8986: p_tasks_out => l_task_out);
8987:
8988: IF (l_log_statement >= l_log_current_level) THEN
8989: fnd_log.string(l_log_statement,
8990: L_DEBUG_KEY,
8991: 'After calling PA_PROJECT_PUB.update_project. Return Status = ' || l_return_status);
8992: END IF;
8993:
8992: END IF;
8993:
8994: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8995: IF (l_log_statement >= l_log_current_level) THEN
8996: fnd_log.string(l_log_statement,
8997: L_DEBUG_KEY,
8998: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
8999: l_msg_count || ', message data: ' || l_msg_data);
9000: END IF;
9006: END IF; -- Return Status is not success
9007: END IF; -- l_task_in_tbl.count > 0
9008:
9009: IF (l_log_procedure >= l_log_current_level) THEN
9010: fnd_log.string(l_log_procedure,
9011: L_DEBUG_KEY ||'.end',
9012: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
9013: END IF;
9014:
9140: --------------------- initialize -----------------------
9141: SAVEPOINT Create_Job_Tasks;
9142:
9143: IF (l_log_procedure >= l_log_current_level) THEN
9144: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
9145: END IF;
9146:
9147: -- Initialize message list if p_init_msg_list is set to TRUE.
9148: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
9160: END IF;
9161:
9162: --------------------------- Start of Body -------------------------------------
9163: IF (l_log_statement >= l_log_current_level) THEN
9164: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Task table count = '||p_x_task_Tbl.COUNT);
9165: END IF;
9166:
9167: IF (p_x_task_Tbl.COUNT > 0) THEN
9168: i := p_x_task_Tbl.FIRST;
9167: IF (p_x_task_Tbl.COUNT > 0) THEN
9168: i := p_x_task_Tbl.FIRST;
9169:
9170: IF (l_log_statement >= l_log_current_level) THEN
9171: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id= ' || p_x_task_Tbl(i).visit_id);
9172: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Task table value of Index i=' || i);
9173: END IF;
9174:
9175: WHILE i IS NOT NULL LOOP
9168: i := p_x_task_Tbl.FIRST;
9169:
9170: IF (l_log_statement >= l_log_current_level) THEN
9171: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id= ' || p_x_task_Tbl(i).visit_id);
9172: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Task table value of Index i=' || i);
9173: END IF;
9174:
9175: WHILE i IS NOT NULL LOOP
9176: p_x_task_Tbl(i).operation_flag := 'C';
9187: END IF;
9188: --END IF;
9189:
9190: IF (l_log_statement >= l_log_current_level) THEN
9191: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_VWP_TASKS_PVT.Create_Task');
9192: END IF;
9193:
9194: -- Call create Visit Task API
9195: AHL_VWP_TASKS_PVT.Create_Task (
9202: x_msg_count => x_msg_count,
9203: x_msg_data => x_msg_data);
9204:
9205: IF (l_log_statement >= l_log_current_level) THEN
9206: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_VWP_TASKS_PVT.Create_Task - x_return_status = '|| x_return_status);
9207: END IF;
9208: EXIT WHEN x_return_status <> 'S';
9209: i:= p_x_task_Tbl.NEXT(i);
9210: END LOOP;
9222: FETCH c_visit INTO c_visit_rec;
9223: CLOSE c_visit;
9224:
9225: IF (l_log_statement >= l_log_current_level) THEN
9226: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_VWP_TIMES_PVT.adjust_task_times');
9227: END IF;
9228:
9229: IF c_visit_rec.start_date_time < SYSDATE THEN
9230: WHILE i IS NOT NULL
9246: --The visit end date
9247: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(c_visit_rec.visit_id);
9248:
9249: IF (l_log_statement >= l_log_current_level) THEN
9250: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_VWP_TIMES_PVT.adjust_task_times - l_visit_end_time = '||l_visit_end_time);
9251: END IF;
9252: -- yazhou 15Aug2005 ends
9253: END IF;
9254:
9342: FETCH c_job INTO l_job_ct;
9343: CLOSE c_job;
9344:
9345: IF (l_log_statement >= l_log_current_level) THEN
9346: fnd_log.string(l_log_statement,L_DEBUG_KEY,'For job count = ' || l_job_ct);
9347: END IF;
9348:
9349: IF l_job_ct > 0 THEN
9350: i := i + 1;
9420: END IF;
9421:
9422: IF l_prd_workorder_tbl.COUNT > 0 THEN
9423: IF (l_log_statement >= l_log_current_level) THEN
9424: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling AHL_PRD_WORKORDER_PVT.Process_Jobs');
9425: END IF;
9426:
9427: /* Begin Changes by Shkalyan */
9428: AHL_PRD_WORKORDER_PVT.Process_Jobs
9439: p_prd_workorder_rel_tbl => l_prd_workorder_rel_tbl
9440: );
9441: /* End Changes by Shkalyan */
9442: IF (l_log_statement >= l_log_current_level) THEN
9443: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - x_return_status = '||x_return_status);
9444: END IF;
9445:
9446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9447: RAISE Fnd_Api.G_EXC_ERROR;
9469: END LOOP;
9470: END IF;
9471:
9472: IF (l_log_statement >= l_log_current_level) THEN
9473: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Updated visit to Released..');
9474: END IF;
9475: --yazhou Jul-20-2005 start
9476:
9477: OPEN c_visit_task_exists(c_visit_rec.visit_id);
9487: object_version_number = object_version_number + 1
9488: WHERE visit_id = c_visit_rec.visit_id;
9489:
9490: IF (l_log_statement >= l_log_current_level) THEN
9491: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before updating the task flag');
9492: END IF;
9493:
9494: IF c_visit_rec.any_task_chg_flag = 'Y' THEN
9495: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
9516: p_count => x_msg_count,
9517: p_data => x_msg_data);
9518:
9519: IF (l_log_procedure >= l_log_current_level) THEN
9520: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of the PLSQL procedure');
9521: END IF;
9522:
9523: EXCEPTION
9524: WHEN Fnd_Api.g_exc_error THEN