[Home] [Help]
6:
7: ------------------------------------
8: -- Common constants and variables --
9: ------------------------------------
10: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
11: l_log_statement NUMBER := fnd_log.level_statement;
12: l_log_procedure NUMBER := fnd_log.level_procedure;
13: l_log_error NUMBER := fnd_log.level_error;
14: l_log_unexpected NUMBER := fnd_log.level_unexpected;
7: ------------------------------------
8: -- Common constants and variables --
9: ------------------------------------
10: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
11: l_log_statement NUMBER := fnd_log.level_statement;
12: l_log_procedure NUMBER := fnd_log.level_procedure;
13: l_log_error NUMBER := fnd_log.level_error;
14: l_log_unexpected NUMBER := fnd_log.level_unexpected;
15: -----------------------------------------------------------------
8: -- Common constants and variables --
9: ------------------------------------
10: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
11: l_log_statement NUMBER := fnd_log.level_statement;
12: l_log_procedure NUMBER := fnd_log.level_procedure;
13: l_log_error NUMBER := fnd_log.level_error;
14: l_log_unexpected NUMBER := fnd_log.level_unexpected;
15: -----------------------------------------------------------------
16:
9: ------------------------------------
10: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
11: l_log_statement NUMBER := fnd_log.level_statement;
12: l_log_procedure NUMBER := fnd_log.level_procedure;
13: l_log_error NUMBER := fnd_log.level_error;
14: l_log_unexpected NUMBER := fnd_log.level_unexpected;
15: -----------------------------------------------------------------
16:
17: ---------------------------------------------------------------------
10: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
11: l_log_statement NUMBER := fnd_log.level_statement;
12: l_log_procedure NUMBER := fnd_log.level_procedure;
13: l_log_error NUMBER := fnd_log.level_error;
14: l_log_unexpected NUMBER := fnd_log.level_unexpected;
15: -----------------------------------------------------------------
16:
17: ---------------------------------------------------------------------
18: -- Define Record Types for record structures needed by the APIs --
206: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
207: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
208:
209: BEGIN
210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
211: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
212: END IF;
213:
214: OPEN c_visit(p_visit_id);
207: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
208:
209: BEGIN
210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
211: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
212: END IF;
213:
214: OPEN c_visit(p_visit_id);
215: FETCH c_visit INTO l_count1;
230: ELSE
231: CLOSE c_visit;
232: END IF;
233:
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'x_due_by_date - '||x_due_by_date);
236: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
237: END IF;
238:
231: CLOSE c_visit;
232: END IF;
233:
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'x_due_by_date - '||x_due_by_date);
236: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
237: END IF;
238:
239: RETURN;
232: END IF;
233:
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'x_due_by_date - '||x_due_by_date);
236: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
237: END IF;
238:
239: RETURN;
240: END Get_Due_by_Date;
499:
500: x_Visit_Id NUMBER;
501: l_dummy NUMBER;
502: BEGIN
503: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
504: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
505: END IF;
506:
507: LOOP
500: x_Visit_Id NUMBER;
501: l_dummy NUMBER;
502: BEGIN
503: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
504: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
505: END IF;
506:
507: LOOP
508: -- If the ID is not passed into the API, then
518: -- l_dummy would be populated with '1', otherwise, it receives NULL.
519: EXIT WHEN l_dummy = null ;
520: END LOOP;
521:
522: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
523: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
524: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
525: END IF;
526:
519: EXIT WHEN l_dummy = null ;
520: END LOOP;
521:
522: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
523: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
524: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
525: END IF;
526:
527: RETURN x_Visit_Id;
520: END LOOP;
521:
522: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
523: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
524: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
525: END IF;
526:
527: RETURN x_Visit_Id;
528:
545: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
546: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
547: BEGIN
548:
549: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
550: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
551: END IF;
552:
553: -- Check for Visit Number
546: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
547: BEGIN
548:
549: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
550: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
551: END IF;
552:
553: -- Check for Visit Number
554: OPEN c_visit_number;
560: ELSE
561: x_visit_number := 1;
562: END IF;
563:
564: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
565: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
566: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
567: END IF;
568:
561: x_visit_number := 1;
562: END IF;
563:
564: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
565: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
566: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
567: END IF;
568:
569: RETURN x_visit_number;
562: END IF;
563:
564: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
565: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
566: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
567: END IF;
568:
569: RETURN x_visit_number;
570:
588: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
589: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
590:
591: BEGIN
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
593: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
594: END IF;
595:
596: -- Check for Visit Number
589: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
590:
591: BEGIN
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
593: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
594: END IF;
595:
596: -- Check for Visit Number
597: OPEN c_Task_Number;
603: ELSE
604: x_Visit_Task_Number := 1;
605: END IF;
606:
607: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
608: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
609: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
610: END IF;
611:
604: x_Visit_Task_Number := 1;
605: END IF;
606:
607: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
608: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
609: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
610: END IF;
611:
612: RETURN x_Visit_Task_Number;
605: END IF;
606:
607: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
608: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
609: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
610: END IF;
611:
612: RETURN x_Visit_Task_Number;
613: END Get_Visit_Task_Number;
666: BEGIN
667: -- Standard Start of API savepoint
668: SAVEPOINT Process_Visit;
669:
670: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
671: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
672: END IF;
673:
674: -- Initialize API return status to success
667: -- Standard Start of API savepoint
668: SAVEPOINT Process_Visit;
669:
670: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
671: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
672: END IF;
673:
674: -- Initialize API return status to success
675: -- Initialize message list if p_init_msg_list is set to TRUE.
690: IF p_x_Visit_tbl.COUNT > 0 THEN
691: FOR i IN p_x_Visit_tbl.first..p_x_Visit_tbl.LAST
692: LOOP
693: -- For Create
694: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
695: fnd_log.string(fnd_log.level_statement,L_DEBUG,'p_x_Visit_tbl(i).operation_flag : '||p_x_Visit_tbl(i).operation_flag);
696: END IF;
697:
698: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
691: FOR i IN p_x_Visit_tbl.first..p_x_Visit_tbl.LAST
692: LOOP
693: -- For Create
694: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
695: fnd_log.string(fnd_log.level_statement,L_DEBUG,'p_x_Visit_tbl(i).operation_flag : '||p_x_Visit_tbl(i).operation_flag);
696: END IF;
697:
698: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
699:
696: END IF;
697:
698: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
699:
700: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
701: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Create_Visit');
702: END IF;
703:
704: Create_Visit
697:
698: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
699:
700: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
701: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Create_Visit');
702: END IF;
703:
704: Create_Visit
705: (
713: x_msg_count => l_msg_count,
714: x_msg_data => l_msg_data
715: );
716:
717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Create_Visit - l_return_status : '||l_return_status);
719: END IF;
720:
721: --For Update
714: x_msg_data => l_msg_data
715: );
716:
717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Create_Visit - l_return_status : '||l_return_status);
719: END IF;
720:
721: --For Update
722: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
720:
721: --For Update
722: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
723:
724: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
725: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
726: END IF;
727:
728: Update_Visit
721: --For Update
722: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
723:
724: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
725: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
726: END IF;
727:
728: Update_Visit
729: (
737: x_msg_count => l_msg_count,
738: x_msg_data => l_msg_data
739: );
740:
741: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
742: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
743: END IF;
744:
745: --For Delete
738: x_msg_data => l_msg_data
739: );
740:
741: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
742: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
743: END IF;
744:
745: --For Delete
746: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
744:
745: --For Delete
746: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
747:
748: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
749: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
750: END IF;
751:
752: Delete_Visit
745: --For Delete
746: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
747:
748: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
749: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
750: END IF;
751:
752: Delete_Visit
753: (
760: x_msg_count => l_msg_count,
761: x_msg_data => l_msg_data
762: );
763:
764: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
765: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '||l_return_status);
766: END IF;
767:
768: -- Transit Visit Change
761: x_msg_data => l_msg_data
762: );
763:
764: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
765: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '||l_return_status);
766: END IF;
767:
768: -- Transit Visit Change
769: -- yazhou start
770: -- Will be called from UA
771: -- To Synchronize visit with flight schedule change
772: ELSIF p_x_Visit_tbl(i).operation_flag = 'S' or p_x_Visit_tbl(i).operation_flag = 's' THEN
773:
774: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
775: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Synchronize_Visit');
776: END IF;
777:
778: Synchronize_Visit
771: -- To Synchronize visit with flight schedule change
772: ELSIF p_x_Visit_tbl(i).operation_flag = 'S' or p_x_Visit_tbl(i).operation_flag = 's' THEN
773:
774: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
775: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Synchronize_Visit');
776: END IF;
777:
778: Synchronize_Visit
779: (
786: x_msg_count => l_msg_count,
787: x_msg_data => l_msg_data
788: );
789:
790: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
791: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Synchronize_Visit - l_return_status : '||l_return_status);
792: END IF;
793:
794: -- Will be called from UA
787: x_msg_data => l_msg_data
788: );
789:
790: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
791: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Synchronize_Visit - l_return_status : '||l_return_status);
792: END IF;
793:
794: -- Will be called from UA
795: -- Delete the visit if visit is in Planning status
802: CLOSE c_visit_status;
803: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
804: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
805: Fnd_Msg_Pub.ADD;
806: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
807: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
808: END IF;
809: END IF;
810: RAISE Fnd_Api.g_exc_error;
803: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
804: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
805: Fnd_Msg_Pub.ADD;
806: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
807: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
808: END IF;
809: END IF;
810: RAISE Fnd_Api.g_exc_error;
811: ELSE
812: CLOSE c_visit_status;
813: END IF;
814:
815: IF l_visit_status = 'PLANNING' THEN
816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
818: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
819: END IF;
820:
813: END IF;
814:
815: IF l_visit_status = 'PLANNING' THEN
816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
818: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
819: END IF;
820:
821: Delete_Visit
814:
815: IF l_visit_status = 'PLANNING' THEN
816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
818: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
819: END IF;
820:
821: Delete_Visit
822: (
829: x_msg_count => l_msg_count,
830: x_msg_data => l_msg_data
831: );
832:
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
834: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
835: END IF;
836: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
830: x_msg_data => l_msg_data
831: );
832:
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
834: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
835: END IF;
836: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
833: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
834: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
835: END IF;
836: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
839: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
840: END IF;
841:
834: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
835: END IF;
836: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
839: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
840: END IF;
841:
842: Cancel_Visit (
835: END IF;
836: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
839: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
840: END IF;
841:
842: Cancel_Visit (
843: p_api_version => l_api_version,
850: x_return_status => l_return_status,
851: x_msg_count => l_msg_count,
852: x_msg_data => l_msg_data );
853:
854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
855: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit - l_return_status : '|| l_return_status);
856: END IF;
857: END IF;
858: -- yazhou end
851: x_msg_count => l_msg_count,
852: x_msg_data => l_msg_data );
853:
854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
855: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit - l_return_status : '|| l_return_status);
856: END IF;
857: END IF;
858: -- yazhou end
859: END IF;
874: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
875: COMMIT;
876: END IF;
877:
878: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
879: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
880: END IF;
881:
882: EXCEPTION
875: COMMIT;
876: END IF;
877:
878: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
879: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
880: END IF;
881:
882: EXCEPTION
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1130: BEGIN
1131: -- Standard start of API savepoint
1132: SAVEPOINT Get_Visit_Details;
1133:
1134: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1135: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1136: END IF;
1137:
1138: -- Initialize message list if p_init_msg_list is set to TRUE.
1131: -- Standard start of API savepoint
1132: SAVEPOINT Get_Visit_Details;
1133:
1134: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1135: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1136: END IF;
1137:
1138: -- Initialize message list if p_init_msg_list is set to TRUE.
1139: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1183: OPEN c_uc_header(visit_rec.item_instance_id);
1184: FETCH c_uc_header INTO l_unit_name, l_unit_header_id;
1185: CLOSE c_uc_header;
1186:
1187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1188: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1189: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1190: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1191: END IF;
1184: FETCH c_uc_header INTO l_unit_name, l_unit_header_id;
1185: CLOSE c_uc_header;
1186:
1187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1188: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1189: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1190: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1191: END IF;
1192: END IF;
1185: CLOSE c_uc_header;
1186:
1187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1188: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1189: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1190: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1191: END IF;
1192: END IF;
1193:
1186:
1187: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1188: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1189: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1190: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1191: END IF;
1192: END IF;
1193:
1194: -- To find simulation plan name for the simulation id from LTP view
1222:
1223: -- Call local procedure to retrieve Due by Date of the visit
1224: Get_Due_by_Date(p_visit_id => l_visit_id, x_due_by_date => l_due_date);
1225:
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Due by date : '|| l_due_date);
1228: END IF;
1229:
1230: -- Derive the visit end date
1223: -- Call local procedure to retrieve Due by Date of the visit
1224: Get_Due_by_Date(p_visit_id => l_visit_id, x_due_by_date => l_due_date);
1225:
1226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1227: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Due by date : '|| l_due_date);
1228: END IF;
1229:
1230: -- Derive the visit end date
1231: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1328: ( p_count => x_msg_count,
1329: p_data => x_msg_data,
1330: p_encoded => Fnd_Api.g_false);
1331:
1332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1333: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1334: END IF;
1335:
1336: RETURN;
1329: p_data => x_msg_data,
1330: p_encoded => Fnd_Api.g_false);
1331:
1332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1333: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1334: END IF;
1335:
1336: RETURN;
1337: EXCEPTION
1526: BEGIN
1527: --------------------- Initialize -----------------------
1528: SAVEPOINT Create_Visit;
1529:
1530: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1531: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1532: END IF;
1533:
1534: -- Initialize message list if p_init_msg_list is set to TRUE.
1527: --------------------- Initialize -----------------------
1528: SAVEPOINT Create_Visit;
1529:
1530: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1531: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1532: END IF;
1533:
1534: -- Initialize message list if p_init_msg_list is set to TRUE.
1535: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1560: IF l_visit_rec.status_code IS NULL OR l_visit_rec.status_code = Fnd_Api.G_MISS_CHAR THEN
1561: l_Visit_rec.status_code := 'PLANNING';
1562: END IF;
1563:
1564: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1565: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
1566: END IF;
1567:
1568: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1561: l_Visit_rec.status_code := 'PLANNING';
1562: END IF;
1563:
1564: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1565: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
1566: END IF;
1567:
1568: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1569: -- For SPACE CATEGORY CODE
1570: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
1571: l_Visit_rec.space_category_code := Null;
1572: END IF;
1573:
1574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1575: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
1576: END IF;
1577: ----------- End defining all Dropdowns on Create Visit UI Screen-------------
1578: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1571: l_Visit_rec.space_category_code := Null;
1572: END IF;
1573:
1574: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1575: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
1576: END IF;
1577: ----------- End defining all Dropdowns on Create Visit UI Screen-------------
1578: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1579: -- For VISIT TYPE
1600: OPEN c_unit_det(l_Visit_rec.unit_name);
1601: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1602: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1603: IF c_unit_det%NOTFOUND THEN
1604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1606: END IF;
1607: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1608: Fnd_Msg_Pub.ADD;
1601: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1602: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1603: IF c_unit_det%NOTFOUND THEN
1604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1606: END IF;
1607: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1608: Fnd_Msg_Pub.ADD;
1609: CLOSE c_unit_det;
1610: RAISE Fnd_Api.G_EXC_ERROR;
1611: END IF;
1612: CLOSE c_unit_det;
1613:
1614: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1615: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Serial Id found ' || l_Visit_rec.item_instance_id);
1616: END IF;
1617: ELSE
1618: l_Visit_rec.item_instance_id := NULL;
1611: END IF;
1612: CLOSE c_unit_det;
1613:
1614: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1615: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Serial Id found ' || l_Visit_rec.item_instance_id);
1616: END IF;
1617: ELSE
1618: l_Visit_rec.item_instance_id := NULL;
1619: l_Visit_rec.inventory_item_id := NULL;
1647: /* ELSE
1648: l_Visit_rec.organization_id := NULL;*/
1649: END IF;
1650:
1651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1652: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Org Name/ID' || l_Visit_rec.org_name || '-' || l_Visit_rec.organization_id );
1653: END IF;
1654:
1655: -- For DEPARTMENT
1648: l_Visit_rec.organization_id := NULL;*/
1649: END IF;
1650:
1651: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1652: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Org Name/ID' || l_Visit_rec.org_name || '-' || l_Visit_rec.organization_id );
1653: END IF;
1654:
1655: -- For DEPARTMENT
1656: -- To convert Department Name to Department Id
1690: /* ELSE
1691: l_Visit_rec.department_id := NULL;*/
1692: END IF;
1693:
1694: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1695: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept Id/Name = ' || l_Visit_rec.department_id || ' - ' || l_Visit_rec.dept_name);
1696: END IF;
1697:
1698: -- For SERVICE REQUEST
1691: l_Visit_rec.department_id := NULL;*/
1692: END IF;
1693:
1694: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1695: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept Id/Name = ' || l_Visit_rec.department_id || ' - ' || l_Visit_rec.dept_name);
1696: END IF;
1697:
1698: -- For SERVICE REQUEST
1699: -- To Convert Service Request Number to Service Request Id
1713:
1714: --Assign the returned value
1715: l_Visit_rec.service_request_id := l_service_id;
1716:
1717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
1719: END IF;
1720: END IF;
1721:
1714: --Assign the returned value
1715: l_Visit_rec.service_request_id := l_service_id;
1716:
1717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
1719: END IF;
1720: END IF;
1721:
1722: ----------- End defining and validate all LOVs on Create Visit UI Screen---
1734: l_Visit_rec.START_DATE := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
1735: END IF;
1736: END IF;
1737:
1738: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1739: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Start Date' || l_Visit_rec.START_DATE);
1740: END IF;
1741:
1742: --Added by amagrawa for Transit Visit
1735: END IF;
1736: END IF;
1737:
1738: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1739: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Start Date' || l_Visit_rec.START_DATE);
1740: END IF;
1741:
1742: --Added by amagrawa for Transit Visit
1743: -- For VISIT PLANNED END DATE TIME
1754: l_Visit_rec.plan_end_date := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
1755: END IF;
1756: END IF;
1757:
1758: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1759: fnd_log.string(fnd_log.level_statement,L_DEBUG,'End Date' || l_Visit_rec.plan_end_date);
1760: END IF;
1761:
1762: -- To validate visit start date should be less than plan end date
1755: END IF;
1756: END IF;
1757:
1758: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1759: fnd_log.string(fnd_log.level_statement,L_DEBUG,'End Date' || l_Visit_rec.plan_end_date);
1760: END IF;
1761:
1762: -- To validate visit start date should be less than plan end date
1763: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
1786: RAISE Fnd_Api.G_EXC_ERROR;
1787: END IF;
1788: END IF;
1789:
1790: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1791: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Simulation Id' || l_Visit_rec.SIMULATION_PLAN_ID);
1792: END IF;
1793:
1794: -- Post 11.5.10 Enhancements
1787: END IF;
1788: END IF;
1789:
1790: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1791: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Simulation Id' || l_Visit_rec.SIMULATION_PLAN_ID);
1792: END IF;
1793:
1794: -- Post 11.5.10 Enhancements
1795: -- For PRIORITY
1880: END IF;
1881: /*Added by sowsubra - end - FP Issue#86 changes*/
1882:
1883: -------------------------------- Validate -----------------------------------------
1884: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1885: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Validate_Visit');
1886: END IF;
1887:
1888: Validate_Visit (
1881: /*Added by sowsubra - end - FP Issue#86 changes*/
1882:
1883: -------------------------------- Validate -----------------------------------------
1884: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1885: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Validate_Visit');
1886: END IF;
1887:
1888: Validate_Visit (
1889: p_api_version => l_api_version,
1895: x_msg_count => x_msg_count,
1896: x_msg_data => x_msg_data
1897: );
1898:
1899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1900: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
1901: END IF;
1902:
1903: -- Check for the ID.
1896: x_msg_data => x_msg_data
1897: );
1898:
1899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1900: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
1901: END IF;
1902:
1903: -- Check for the ID.
1904: IF (l_Visit_rec.VISIT_ID = Fnd_Api.g_miss_num OR l_Visit_rec.VISIT_ID IS Null) THEN
1924: -- then Null else the value call Default_Missing_Attribs procedure
1925: Default_Missing_Attribs
1926: ( p_x_visit_rec => l_Visit_rec );
1927:
1928: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1929: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID : '||l_Visit_rec.VISIT_ID);
1930: END IF;
1931: END IF;
1932:
1925: Default_Missing_Attribs
1926: ( p_x_visit_rec => l_Visit_rec );
1927:
1928: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1929: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID : '||l_Visit_rec.VISIT_ID);
1930: END IF;
1931: END IF;
1932:
1933: --Standard check to count messages
1951: END IF;
1952:
1953: l_Visit_rec.VISIT_NUMBER := l_visit_number;
1954:
1955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1956: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
1957: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
1958: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
1959: END IF;
1952:
1953: l_Visit_rec.VISIT_NUMBER := l_visit_number;
1954:
1955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1956: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
1957: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
1958: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
1959: END IF;
1960:
1953: l_Visit_rec.VISIT_NUMBER := l_visit_number;
1954:
1955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1956: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
1957: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
1958: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
1959: END IF;
1960:
1961: -- Transit Check Changes Senthil.
1954:
1955: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1956: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
1957: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
1958: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
1959: END IF;
1960:
1961: -- Transit Check Changes Senthil.
1962: IF l_Visit_rec.unit_schedule_id IS NOT NULL
1961: -- Transit Check Changes Senthil.
1962: IF l_Visit_rec.unit_schedule_id IS NOT NULL
1963: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
1964:
1965: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1966: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
1967: END IF;
1968:
1969: -- Validate with UMP API
1962: IF l_Visit_rec.unit_schedule_id IS NOT NULL
1963: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
1964:
1965: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1966: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
1967: END IF;
1968:
1969: -- Validate with UMP API
1970: AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule
1976: P_UNIT_CONFIG_ID => l_Visit_rec.unit_header_id,
1977: P_UNIT_SCHEDULE_ID => l_Visit_rec.unit_schedule_id
1978: );
1979:
1980: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1981: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule - l_return_status : '||l_return_status);
1982: END IF;
1983:
1984: IF l_msg_count > 0 THEN
1977: P_UNIT_SCHEDULE_ID => l_Visit_rec.unit_schedule_id
1978: );
1979:
1980: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1981: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule - l_return_status : '||l_return_status);
1982: END IF;
1983:
1984: IF l_msg_count > 0 THEN
1985: X_msg_count := l_msg_count;
2020: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022:
2023: -------------------------- Insert --------------------------
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2025: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.Insert_Row');
2026: END IF;
2027: -- Invoke the table handler to create a record
2028: -- Post 11.5.10 Enhancements
2021: END IF;
2022:
2023: -------------------------- Insert --------------------------
2024: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2025: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.Insert_Row');
2026: END IF;
2027: -- Invoke the table handler to create a record
2028: -- Post 11.5.10 Enhancements
2029: -- Added Priority and Project Template Id
2086: X_UNIT_SCHEDULE_ID => l_Visit_rec.unit_schedule_id,
2087: X_INV_LOCATOR_ID => l_Visit_rec.inv_locator_id /*Added by sowsubra*/
2088: );
2089:
2090: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2091: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.Insert_Row');
2092: END IF;
2093:
2094: -- set OUT value
2087: X_INV_LOCATOR_ID => l_Visit_rec.inv_locator_id /*Added by sowsubra*/
2088: );
2089:
2090: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2091: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.Insert_Row');
2092: END IF;
2093:
2094: -- set OUT value
2095: p_x_visit_rec.VISIT_ID := l_Visit_rec.VISIT_ID;
2093:
2094: -- set OUT value
2095: p_x_visit_rec.VISIT_ID := l_Visit_rec.VISIT_ID;
2096:
2097: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2098: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES');
2099: END IF;
2100:
2101: -----CREATE STAGES IF VISIT HAS BEEN CREATED SUCESSFULLY--------
2094: -- set OUT value
2095: p_x_visit_rec.VISIT_ID := l_Visit_rec.VISIT_ID;
2096:
2097: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2098: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES');
2099: END IF;
2100:
2101: -----CREATE STAGES IF VISIT HAS BEEN CREATED SUCESSFULLY--------
2102: AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES
2110: x_msg_count => x_msg_count,
2111: x_msg_data => x_msg_data
2112: );
2113:
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2115: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES - x_return_status : '||x_return_status);
2116: END IF;
2117:
2118: IF l_Visit_rec.visit_type_code IS NOT NULL
2111: x_msg_data => x_msg_data
2112: );
2113:
2114: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2115: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES - x_return_status : '||x_return_status);
2116: END IF;
2117:
2118: IF l_Visit_rec.visit_type_code IS NOT NULL
2119: AND l_Visit_rec.visit_type_code <> FND_API.G_MISS_CHAR THEN
2117:
2118: IF l_Visit_rec.visit_type_code IS NOT NULL
2119: AND l_Visit_rec.visit_type_code <> FND_API.G_MISS_CHAR THEN
2120:
2121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2122: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS');
2123: END IF;
2124:
2125: AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS
2118: IF l_Visit_rec.visit_type_code IS NOT NULL
2119: AND l_Visit_rec.visit_type_code <> FND_API.G_MISS_CHAR THEN
2120:
2121: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2122: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS');
2123: END IF;
2124:
2125: AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS
2126: (
2130: x_msg_data => x_msg_data,
2131: p_visit_rec => l_Visit_rec
2132: );
2133:
2134: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2135: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2136: END IF;
2137:
2138: --Standard check to count messages
2131: p_visit_rec => l_Visit_rec
2132: );
2133:
2134: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2135: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2136: END IF;
2137:
2138: --Standard check to count messages
2139: l_msg_count := Fnd_Msg_Pub.count_msg;
2144: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2145: END IF;
2146: END IF;
2147:
2148: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2149: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2150: END IF;
2151:
2152: --Now adjust the times derivation for task
2145: END IF;
2146: END IF;
2147:
2148: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2149: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2150: END IF;
2151:
2152: --Now adjust the times derivation for task
2153: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2158: x_msg_count => l_msg_count,
2159: x_msg_data => l_msg_data,
2160: p_visit_id => l_visit_rec.visit_id);
2161:
2162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2163: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2164: END IF;
2165:
2166: --Standard check to count messages
2159: x_msg_data => l_msg_data,
2160: p_visit_id => l_visit_rec.visit_id);
2161:
2162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2163: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2164: END IF;
2165:
2166: --Standard check to count messages
2167: l_msg_count := Fnd_Msg_Pub.count_msg;
2178: l_date_time := NVL(NVL(l_visit_rec.PLAN_END_DATE,
2179: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2180: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2181:
2182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2183: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time - '||l_date_time);
2184: END IF;
2185:
2186: UPDATE ahl_visits_b
2179: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2180: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2181:
2182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2183: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time - '||l_date_time);
2184: END IF;
2185:
2186: UPDATE ahl_visits_b
2187: SET close_date_time = l_date_time
2196: l_release_flag := 'N';
2197: END IF;
2198:
2199: IF l_release_flag IS NOT NULL THEN
2200: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2201: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
2202: END IF;
2203:
2204: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2197: END IF;
2198:
2199: IF l_release_flag IS NOT NULL THEN
2200: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2201: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
2202: END IF;
2203:
2204: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2205: p_api_version => 1.0,
2212: x_return_status => x_return_status,
2213: x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data);
2215:
2216: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2217: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit - x_return_status : '||x_return_status);
2218: END IF;
2219: END IF;
2220: END IF; -- l_Visit_rec.visit_create_type IS NOT NULL
2213: x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data);
2215:
2216: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2217: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit - x_return_status : '||x_return_status);
2218: END IF;
2219: END IF;
2220: END IF; -- l_Visit_rec.visit_create_type IS NOT NULL
2221: ---------------------------End of API Body---------------------------------------
2232: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2233: COMMIT;
2234: END IF;
2235:
2236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2237: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2238: END IF;
2239: EXCEPTION
2240: WHEN Fnd_Api.g_exc_error THEN
2233: COMMIT;
2234: END IF;
2235:
2236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2237: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2238: END IF;
2239: EXCEPTION
2240: WHEN Fnd_Api.g_exc_error THEN
2241: ROLLBACK TO Create_Visit;
2371: BEGIN
2372: --------------------- Initialize -----------------------
2373: SAVEPOINT Copy_Visit;
2374:
2375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2376: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2377: END IF;
2378:
2379: -- Initialize message list if p_init_msg_list is set to TRUE.
2372: --------------------- Initialize -----------------------
2373: SAVEPOINT Copy_Visit;
2374:
2375: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2376: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2377: END IF;
2378:
2379: -- Initialize message list if p_init_msg_list is set to TRUE.
2380: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2391: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2392: END IF;
2393: ------------------------Start of API Body------------------------------------
2394: -----------------------Value/Id conversions ----------------------
2395: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2396: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Id - '||p_visit_id);
2397: END IF;
2398:
2399: OPEN c_visit(p_visit_id);
2392: END IF;
2393: ------------------------Start of API Body------------------------------------
2394: -----------------------Value/Id conversions ----------------------
2395: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2396: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Id - '||p_visit_id);
2397: END IF;
2398:
2399: OPEN c_visit(p_visit_id);
2400: FETCH c_visit INTO c_visit_rec;
2402: CLOSE c_Visit;
2403: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2404: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2405: Fnd_Msg_Pub.ADD;
2406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2407: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2408: END IF;
2409: END IF;
2410: RAISE Fnd_Api.g_exc_error;
2403: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2404: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2405: Fnd_Msg_Pub.ADD;
2406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2407: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2408: END IF;
2409: END IF;
2410: RAISE Fnd_Api.g_exc_error;
2411: ELSE
2519: ELSE
2520: l_task_department_id := c_task_rec.department_id;
2521: END IF;
2522:
2523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2524: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before AHL_VISIT_TASKS_PKG.INSERT_ROW');
2525: END IF;
2526:
2527: -- Create task in new visit
2520: l_task_department_id := c_task_rec.department_id;
2521: END IF;
2522:
2523: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2524: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before AHL_VISIT_TASKS_PKG.INSERT_ROW');
2525: END IF;
2526:
2527: -- Create task in new visit
2528: AHL_VISIT_TASKS_PKG.INSERT_ROW
2579: X_LAST_UPDATE_DATE => SYSDATE,
2580: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
2581: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
2582:
2583: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2584: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VISIT_TASKS_PKG.INSERT_ROW ');
2585: END IF;
2586:
2587: -- Create Planned Material if task type is planned or unplanned
2580: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
2581: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
2582:
2583: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2584: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VISIT_TASKS_PKG.INSERT_ROW ');
2585: END IF;
2586:
2587: -- Create Planned Material if task type is planned or unplanned
2588: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
2585: END IF;
2586:
2587: -- Create Planned Material if task type is planned or unplanned
2588: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
2589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2590: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
2592: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
2593: END IF;
2586:
2587: -- Create Planned Material if task type is planned or unplanned
2588: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
2589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2590: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
2592: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
2593: END IF;
2594:
2587: -- Create Planned Material if task type is planned or unplanned
2588: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
2589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2590: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
2592: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
2593: END IF;
2594:
2595: -- To call LTP Process Materials API for APS Integration
2588: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
2589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2590: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
2591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
2592: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
2593: END IF;
2594:
2595: -- To call LTP Process Materials API for APS Integration
2596: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
2607: x_return_status => l_return_status,
2608: x_msg_count => l_msg_count,
2609: x_msg_data => l_msg_data );
2610:
2611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2612: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : l_return_status - '||l_return_status);
2613: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
2614: END IF;
2615:
2608: x_msg_count => l_msg_count,
2609: x_msg_data => l_msg_data );
2610:
2611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2612: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : l_return_status - '||l_return_status);
2613: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
2614: END IF;
2615:
2616: IF l_return_status <> 'S' THEN
2609: x_msg_data => l_msg_data );
2610:
2611: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2612: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : l_return_status - '||l_return_status);
2613: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
2614: END IF;
2615:
2616: IF l_return_status <> 'S' THEN
2617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2637: OPEN c_new_task_ID(l_task_link_rec.parent_task_id,l_visit_id);
2638: FETCH c_new_task_ID INTO l_new_parent_task_id;
2639: CLOSE c_new_task_ID;
2640:
2641: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2642: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before inserting into AHL_TASK_LINKS');
2643: END IF;
2644:
2645: -- Create task link
2638: FETCH c_new_task_ID INTO l_new_parent_task_id;
2639: CLOSE c_new_task_ID;
2640:
2641: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2642: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before inserting into AHL_TASK_LINKS');
2643: END IF;
2644:
2645: -- Create task link
2646: INSERT INTO AHL_TASK_LINKS
2700: l_task_link_rec.ATTRIBUTE14,
2701: l_task_link_rec.ATTRIBUTE15
2702: );
2703:
2704: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2705: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After inserting into AHL_TASK_LINKS');
2706: END IF;
2707:
2708: END LOOP;
2701: l_task_link_rec.ATTRIBUTE15
2702: );
2703:
2704: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2705: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After inserting into AHL_TASK_LINKS');
2706: END IF;
2707:
2708: END LOOP;
2709: CLOSE c_visit_task_links;
2707:
2708: END LOOP;
2709: CLOSE c_visit_task_links;
2710:
2711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2713: END IF;
2714:
2715: --Now adjust the times derivation for visit.
2708: END LOOP;
2709: CLOSE c_visit_task_links;
2710:
2711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2713: END IF;
2714:
2715: --Now adjust the times derivation for visit.
2716: AHL_VWP_TIMES_PVT.Calculate_Task_Times
2722: x_msg_count => l_msg_count,
2723: x_msg_data => l_msg_data,
2724: p_visit_id => l_visit_id);
2725:
2726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2727: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2728: END IF;
2729:
2730: -- Return ID of the new visit
2723: x_msg_data => l_msg_data,
2724: p_visit_id => l_visit_id);
2725:
2726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2727: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2728: END IF;
2729:
2730: -- Return ID of the new visit
2731: p_x_Visit_rec.visit_id := l_visit_id;
2744: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2745: COMMIT;
2746: END IF;
2747:
2748: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2749: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2750: END IF;
2751: EXCEPTION
2752: WHEN Fnd_Api.g_exc_error THEN
2745: COMMIT;
2746: END IF;
2747:
2748: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2749: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2750: END IF;
2751: EXCEPTION
2752: WHEN Fnd_Api.g_exc_error THEN
2753: ROLLBACK TO Copy_Visit;
2899:
2900: --------------------- Initialize -----------------------
2901: SAVEPOINT Update_Visit;
2902:
2903: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2904: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure - Visit Id - '||l_visit_rec.visit_id ||'p_module_tyoe - '|| p_module_type);
2905: END IF;
2906:
2907: -- Initialize message list if p_init_msg_list is set to TRUE.
2900: --------------------- Initialize -----------------------
2901: SAVEPOINT Update_Visit;
2902:
2903: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2904: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure - Visit Id - '||l_visit_rec.visit_id ||'p_module_tyoe - '|| p_module_type);
2905: END IF;
2906:
2907: -- Initialize message list if p_init_msg_list is set to TRUE.
2908: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2927: CLOSE c_Visit;
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2930: Fnd_Msg_Pub.ADD;
2931: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2932: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2933: END IF;
2934: END IF;
2935: RAISE Fnd_Api.g_exc_error;
2928: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2929: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2930: Fnd_Msg_Pub.ADD;
2931: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2932: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2933: END IF;
2934: END IF;
2935: RAISE Fnd_Api.g_exc_error;
2936: ELSE
2988:
2989: -------------------- UPDATE FOR VISIT ----------------
2990: -- Transit Visit change
2991: -- yazhou start
2992: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2993: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
2994: END IF;
2995:
2996: -- not allowed to update if status code is not planning, released or partially released.
2989: -------------------- UPDATE FOR VISIT ----------------
2990: -- Transit Visit change
2991: -- yazhou start
2992: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2993: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
2994: END IF;
2995:
2996: -- not allowed to update if status code is not planning, released or partially released.
2997: IF c_visit_rec.status_code NOT IN ('PLANNING','RELEASED', 'PARTIALLY RELEASED') THEN
3007: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
3008: l_Visit_rec.space_category_code := Null;
3009: END IF;
3010:
3011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3012: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
3013: END IF;
3014:
3015: ----------- LOVs on Update Visit UI Screen---
3008: l_Visit_rec.space_category_code := Null;
3009: END IF;
3010:
3011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3012: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
3013: END IF;
3014:
3015: ----------- LOVs on Update Visit UI Screen---
3016: -- For VISIT TYPE
3031: RAISE Fnd_Api.G_EXC_ERROR;
3032: END IF;
3033: END IF;
3034:
3035: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3036: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type' || l_Visit_rec.visit_type_name || '-' || l_Visit_rec.visit_type_code);
3037: END IF;
3038:
3039: -- For SERVICE REQUEST
3032: END IF;
3033: END IF;
3034:
3035: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3036: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type' || l_Visit_rec.visit_type_name || '-' || l_Visit_rec.visit_type_code);
3037: END IF;
3038:
3039: -- For SERVICE REQUEST
3040: -- To Convert Service Request Number to Service Request Id
3056:
3057: --Assign the returned value
3058: l_Visit_rec.service_request_id := l_service_id;
3059:
3060: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3061: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
3062: END IF;
3063: END IF;
3064: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3057: --Assign the returned value
3058: l_Visit_rec.service_request_id := l_service_id;
3059:
3060: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3061: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
3062: END IF;
3063: END IF;
3064: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3065: -- For Priority
3100: END IF;
3101:
3102: l_visit_rec.organization_id := l_organization_id;
3103:
3104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3105: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3106: END IF;
3107: END IF;
3108:
3101:
3102: l_visit_rec.organization_id := l_organization_id;
3103:
3104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3105: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3106: END IF;
3107: END IF;
3108:
3109: IF l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
3113: ELSE
3114: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3115: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3116: THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3118: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3119: END IF;
3120:
3121: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3114: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3115: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3116: THEN
3117: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3118: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3119: END IF;
3120:
3121: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3122: ( p_organization_id => l_visit_rec.organization_id,
3142: Fnd_Msg_Pub.ADD;
3143: RAISE Fnd_Api.G_EXC_ERROR;
3144: END IF;
3145:
3146: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3147: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3148: END IF;
3149: ELSE
3150: l_visit_rec.department_id := NULL;
3143: RAISE Fnd_Api.G_EXC_ERROR;
3144: END IF;
3145:
3146: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3147: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3148: END IF;
3149: ELSE
3150: l_visit_rec.department_id := NULL;
3151: END IF ; --Dept Not Null
3308: p_x_visit_rec => l_Visit_rec
3309: );
3310: ----------------------- Validate ----------------------
3311: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
3312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3313: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Check_Visit_Items');
3314: END IF;
3315:
3316: Check_Visit_Items (
3309: );
3310: ----------------------- Validate ----------------------
3311: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
3312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3313: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Check_Visit_Items');
3314: END IF;
3315:
3316: Check_Visit_Items (
3317: p_Visit_rec => l_visit_rec,
3318: p_validation_mode => Jtf_Plsql_Api.g_update,
3319: x_return_status => l_return_status
3320: );
3321:
3322: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3323: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
3324: END IF;
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3319: x_return_status => l_return_status
3320: );
3321:
3322: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3323: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
3324: END IF;
3325:
3326: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3327: RAISE Fnd_Api.g_exc_unexpected_error;
3354: FETCH c_visit_WO INTO l_workrec;
3355: IF c_visit_WO%FOUND THEN
3356: CLOSE c_visit_WO;
3357:
3358: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3359: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3360: END IF;
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3355: IF c_visit_WO%FOUND THEN
3356: CLOSE c_visit_WO;
3357:
3358: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3359: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3360: END IF;
3361:
3362: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3363: (p_api_version => 1.0,
3372: p_visit_id => l_Visit_rec.visit_id,
3373: p_unit_effectivity_id => NULL,
3374: p_workorder_id => NULL);
3375:
3376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3377: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3378: END IF;
3379:
3380: IF l_return_status <> 'S' THEN
3373: p_unit_effectivity_id => NULL,
3374: p_workorder_id => NULL);
3375:
3376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3377: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3378: END IF;
3379:
3380: IF l_return_status <> 'S' THEN
3381: RAISE Fnd_Api.G_EXC_ERROR;
3396: FETCH c_visit_WO INTO l_workrec;
3397: IF c_visit_WO%found THEN
3398: close c_visit_WO;
3399:
3400: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3402: END IF;
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3397: IF c_visit_WO%found THEN
3398: close c_visit_WO;
3399:
3400: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
3402: END IF;
3403:
3404: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
3405: (p_api_version => 1.0,
3414: p_visit_id => l_Visit_rec.visit_id,
3415: p_unit_effectivity_id => NULL,
3416: p_workorder_id => NULL);
3417:
3418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3419: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3420: END IF;
3421:
3422: IF l_return_status <> 'S' THEN
3415: p_unit_effectivity_id => NULL,
3416: p_workorder_id => NULL);
3417:
3418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3419: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
3420: END IF;
3421:
3422: IF l_return_status <> 'S' THEN
3423: RAISE Fnd_Api.G_EXC_ERROR;
3440: l_workorder_rec.DEPARTMENT_ID := l_visit_rec.department_id;
3441: -- l_workorder_rec.SCHEDULED_START_DATE := l_date_time_start;
3442: -- l_workorder_rec.SCHEDULED_END_DATE := l_visit_end_date;
3443:
3444: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3445: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
3446: END IF;
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3441: -- l_workorder_rec.SCHEDULED_START_DATE := l_date_time_start;
3442: -- l_workorder_rec.SCHEDULED_END_DATE := l_visit_end_date;
3443:
3444: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3445: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
3446: END IF;
3447:
3448: AHL_PRD_WORKORDER_PVT.update_job
3449: ( p_api_version =>1.0,
3464: CLOSE c_visit_WO;
3465: RAISE Fnd_Api.G_EXC_ERROR;
3466: END IF;
3467:
3468: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3469: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - After calling AHL_PRD_WORKORDER_PVT.update_job API - l_return_status : '||l_return_status);
3470: END IF;
3471: END IF; -- End of visit workorder found
3472: CLOSE c_visit_WO;
3465: RAISE Fnd_Api.G_EXC_ERROR;
3466: END IF;
3467:
3468: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3469: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - After calling AHL_PRD_WORKORDER_PVT.update_job API - l_return_status : '||l_return_status);
3470: END IF;
3471: END IF; -- End of visit workorder found
3472: CLOSE c_visit_WO;
3473:
3471: END IF; -- End of visit workorder found
3472: CLOSE c_visit_WO;
3473:
3474: -- To find all tasks for the visit so as to update task start and end datetime
3475: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3476: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - To update task start and end date time');
3477: END IF;
3478:
3479: OPEN c_task(l_visit_rec.visit_id);
3472: CLOSE c_visit_WO;
3473:
3474: -- To find all tasks for the visit so as to update task start and end datetime
3475: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3476: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - To update task start and end date time');
3477: END IF;
3478:
3479: OPEN c_task(l_visit_rec.visit_id);
3480: LOOP
3478:
3479: OPEN c_task(l_visit_rec.visit_id);
3480: LOOP
3481: FETCH c_task INTO c_task_rec;
3482: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3483: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
3484: END IF;
3485:
3486: -- Update workorder for the task only if task is using visit department
3479: OPEN c_task(l_visit_rec.visit_id);
3480: LOOP
3481: FETCH c_task INTO c_task_rec;
3482: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3483: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
3484: END IF;
3485:
3486: -- Update workorder for the task only if task is using visit department
3487: IF c_task_rec.department_id is null OR c_task_rec.department_id = FND_API.g_miss_num THEN
3488: OPEN c_Task_WO(c_task_rec.visit_task_id);
3489: FETCH c_Task_WO into l_task_workrec;
3490:
3491: IF c_Task_WO%found THEN
3492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3493: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder found ');
3494: END IF;
3495: --Update with new times from table
3496: --l_workorder_rec.SCHEDULED_START_DATE := c_task_rec.START_DATE_TIME;
3489: FETCH c_Task_WO into l_task_workrec;
3490:
3491: IF c_Task_WO%found THEN
3492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3493: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder found ');
3494: END IF;
3495: --Update with new times from table
3496: --l_workorder_rec.SCHEDULED_START_DATE := c_task_rec.START_DATE_TIME;
3497: --l_workorder_rec.SCHEDULED_END_DATE := c_task_rec.END_DATE_TIME;
3498: l_workorder_rec.DEPARTMENT_ID := l_visit_rec.department_id;
3499: l_workorder_rec.WORKORDER_ID := l_task_workrec.workorder_id;
3500: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
3501:
3502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
3504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
3505: END IF;
3506:
3499: l_workorder_rec.WORKORDER_ID := l_task_workrec.workorder_id;
3500: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
3501:
3502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
3504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
3505: END IF;
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3500: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
3501:
3502: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
3504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
3505: END IF;
3506:
3507: AHL_PRD_WORKORDER_PVT.update_job
3508: ( p_api_version =>1.0,
3518: p_x_prd_workorder_rec =>l_workorder_rec,
3519: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
3520: );
3521:
3522: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3523: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
3524: END IF;
3525:
3526: IF l_return_status <> 'S' THEN
3519: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
3520: );
3521:
3522: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3523: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
3524: END IF;
3525:
3526: IF l_return_status <> 'S' THEN
3527: CLOSE c_Task_WO;
3545:
3546: END IF;
3547: END IF;
3548: -------------------------- Update --------------------
3549: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3550: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.UPDATE_ROW');
3551: END IF;
3552:
3553: Ahl_Visits_Pkg.UPDATE_ROW (
3546: END IF;
3547: END IF;
3548: -------------------------- Update --------------------
3549: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3550: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.UPDATE_ROW');
3551: END IF;
3552:
3553: Ahl_Visits_Pkg.UPDATE_ROW (
3554: X_VISIT_ID => l_Visit_rec.VISIT_ID,
3604: X_UNIT_SCHEDULE_ID => c_Visit_rec.unit_schedule_id,
3605: X_INV_LOCATOR_ID => l_visit_rec.INV_LOCATOR_ID --Added by sowsubra
3606: );
3607:
3608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3609: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.UPDATE_ROW');
3610: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
3611: END IF;
3612:
3605: X_INV_LOCATOR_ID => l_visit_rec.INV_LOCATOR_ID --Added by sowsubra
3606: );
3607:
3608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3609: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.UPDATE_ROW');
3610: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
3611: END IF;
3612:
3613: -- Added cxcheng POST11510--------------
3606: );
3607:
3608: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3609: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.UPDATE_ROW');
3610: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
3611: END IF;
3612:
3613: -- Added cxcheng POST11510--------------
3614: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3620: x_msg_count => l_msg_count,
3621: x_msg_data => l_msg_data,
3622: p_visit_id => l_visit_rec.visit_id);
3623:
3624: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3625: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
3626: END IF;
3627:
3628: IF l_return_status <> 'S' THEN
3621: x_msg_data => l_msg_data,
3622: p_visit_id => l_visit_rec.visit_id);
3623:
3624: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3625: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
3626: END IF;
3627:
3628: IF l_return_status <> 'S' THEN
3629: RAISE Fnd_Api.G_EXC_ERROR;
3630: END IF;
3631:
3632: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
3633: IF space_changed_flag = 'Y' THEN
3634: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3635: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment');
3636: END IF;
3637:
3638: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
3631:
3632: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
3633: IF space_changed_flag = 'Y' THEN
3634: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3635: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment');
3636: END IF;
3637:
3638: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
3639: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
3646: x_msg_count => x_msg_count,
3647: x_msg_data => x_msg_data
3648: );
3649:
3650: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3651: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment - l_return_status : '||l_return_status);
3652: END IF;
3653:
3654: IF l_return_status <> 'S' THEN
3647: x_msg_data => x_msg_data
3648: );
3649:
3650: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3651: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment - l_return_status : '||l_return_status);
3652: END IF;
3653:
3654: IF l_return_status <> 'S' THEN
3655: RAISE Fnd_Api.G_EXC_ERROR;
3670: ESTIMATED_PRICE = NULL,
3671: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
3672: WHERE VISIT_ID = l_Visit_rec.visit_id;
3673:
3674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3675: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for the visit');
3676: END IF;
3677:
3678: -- To update all tasks prices of tasks under this visit
3671: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
3672: WHERE VISIT_ID = l_Visit_rec.visit_id;
3673:
3674: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3675: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for the visit');
3676: END IF;
3677:
3678: -- To update all tasks prices of tasks under this visit
3679: OPEN c_task(l_visit_rec.visit_id);
3689: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
3690: END LOOP;
3691: CLOSE c_task;
3692:
3693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3694: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for all the tasks in the visit');
3695: END IF;
3696: END IF;
3697: END IF;
3690: END LOOP;
3691: CLOSE c_task;
3692:
3693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3694: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for all the tasks in the visit');
3695: END IF;
3696: END IF;
3697: END IF;
3698:
3707: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
3708: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
3709: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
3710: THEN
3711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3713: END IF;
3714:
3715: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3708: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
3709: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
3710: THEN
3711: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3712: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3713: END IF;
3714:
3715: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3716: p_api_version => 1.0,
3726: x_return_status => l_return_status,
3727: x_msg_count => x_msg_count,
3728: x_msg_data => x_msg_data );
3729:
3730: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3731: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
3732: END IF;
3733:
3734: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3727: x_msg_count => x_msg_count,
3728: x_msg_data => x_msg_data );
3729:
3730: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3731: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
3732: END IF;
3733:
3734: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3735: RAISE FND_API.G_EXC_ERROR;
3746: ( l_date_time_start <> c_Visit_rec.START_DATE_TIME)
3747: OR (l_visit_rec.organization_id <> c_visit_rec.organization_id)
3748: OR (l_visit_rec.department_id <> c_visit_rec.department_id)
3749: )*/
3750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3751: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3752: END IF;
3753:
3754: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3747: OR (l_visit_rec.organization_id <> c_visit_rec.organization_id)
3748: OR (l_visit_rec.department_id <> c_visit_rec.department_id)
3749: )*/
3750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3751: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3752: END IF;
3753:
3754: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
3755: p_api_version => 1.0,
3765: x_return_status => l_return_status,
3766: x_msg_count => x_msg_count,
3767: x_msg_data => x_msg_data );
3768:
3769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3770: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
3771: END IF;
3772:
3773: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3766: x_msg_count => x_msg_count,
3767: x_msg_data => x_msg_data );
3768:
3769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3770: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
3771: END IF;
3772:
3773: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3774: RAISE FND_API.G_EXC_ERROR;
3800: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3801: COMMIT;
3802: END IF;
3803:
3804: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3805: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3806: END IF;
3807: EXCEPTION
3808: WHEN Fnd_Api.g_exc_error THEN
3801: COMMIT;
3802: END IF;
3803:
3804: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3805: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3806: END IF;
3807: EXCEPTION
3808: WHEN Fnd_Api.g_exc_error THEN
3809: ROLLBACK TO Update_Visit;
3859: l_task_id NUMBER;
3860: l_count NUMBER;
3861:
3862: BEGIN
3863: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3864: fnd_log.string
3865: (
3866: fnd_log.level_procedure,
3867: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
3860: l_count NUMBER;
3861:
3862: BEGIN
3863: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3864: fnd_log.string
3865: (
3866: fnd_log.level_procedure,
3867: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
3868: 'At the start of Delete_Visit -> Delete Task'
3862: BEGIN
3863: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3864: fnd_log.string
3865: (
3866: fnd_log.level_procedure,
3867: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
3868: 'At the start of Delete_Visit -> Delete Task'
3869: );
3870: END IF;
3868: 'At the start of Delete_Visit -> Delete Task'
3869: );
3870: END IF;
3871:
3872: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3873: fnd_log.string
3874: (
3875: fnd_log.level_statement,
3876: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3869: );
3870: END IF;
3871:
3872: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3873: fnd_log.string
3874: (
3875: fnd_log.level_statement,
3876: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3877: 'p_visit_task_id : '||p_Visit_Task_Id
3871:
3872: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3873: fnd_log.string
3874: (
3875: fnd_log.level_statement,
3876: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3877: 'p_visit_task_id : '||p_Visit_Task_Id
3878: );
3879:
3932: THEN
3933: -- Method call was not successful, raise error
3934: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
3935: Fnd_Msg_Pub.ADD;
3936: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3937: fnd_log.string
3938: (
3939: fnd_log.level_error,
3940: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3933: -- Method call was not successful, raise error
3934: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
3935: Fnd_Msg_Pub.ADD;
3936: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3937: fnd_log.string
3938: (
3939: fnd_log.level_error,
3940: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3941: 'Failed to delete project task association for task '||p_visit_task_id
3935: Fnd_Msg_Pub.ADD;
3936: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3937: fnd_log.string
3938: (
3939: fnd_log.level_error,
3940: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
3941: 'Failed to delete project task association for task '||p_visit_task_id
3942: );
3943: END IF;
3943: END IF;
3944: RAISE Fnd_Api.G_EXC_ERROR;
3945: END IF;
3946:
3947: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3948: fnd_log.string
3949: (
3950: fnd_log.level_procedure,
3951: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
3944: RAISE Fnd_Api.G_EXC_ERROR;
3945: END IF;
3946:
3947: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3948: fnd_log.string
3949: (
3950: fnd_log.level_procedure,
3951: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
3952: 'At the end of Delete_Visit -> Delete Task'
3946:
3947: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3948: fnd_log.string
3949: (
3950: fnd_log.level_procedure,
3951: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
3952: 'At the end of Delete_Visit -> Delete Task'
3953: );
3954: END IF;
4052: BEGIN
4053: --------------------- Initialize -----------------------
4054: SAVEPOINT Delete_Visit;
4055:
4056: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4057: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4058: END IF;
4059:
4060: -- Initialize message list if p_init_msg_list is set to TRUE.
4053: --------------------- Initialize -----------------------
4054: SAVEPOINT Delete_Visit;
4055:
4056: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4057: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4058: END IF;
4059:
4060: -- Initialize message list if p_init_msg_list is set to TRUE.
4061: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4072: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4073: END IF;
4074: ------------------------Start of API Body------------------------------------
4075: ------------------------ Delete ------------------------
4076: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4077: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID - ' ||p_visit_id );
4078: END IF;
4079:
4080: OPEN c_Visit(p_visit_id);
4073: END IF;
4074: ------------------------Start of API Body------------------------------------
4075: ------------------------ Delete ------------------------
4076: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4077: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID - ' ||p_visit_id );
4078: END IF;
4079:
4080: OPEN c_Visit(p_visit_id);
4081: FETCH c_Visit INTO l_Visit_rec;
4083: CLOSE c_Visit;
4084: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4085: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
4086: Fnd_Msg_Pub.ADD;
4087: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4088: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
4089: END IF;
4090: END IF;
4091: RAISE Fnd_Api.g_exc_error;
4084: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
4085: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
4086: Fnd_Msg_Pub.ADD;
4087: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4088: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
4089: END IF;
4090: END IF;
4091: RAISE Fnd_Api.g_exc_error;
4092: END IF;
4095: -- Check the status of visit, if 'planning' then only delete
4096: IF UPPER(l_visit_rec.status_code) <> 'PLANNING' THEN
4097: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
4098: Fnd_Msg_Pub.ADD;
4099: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4100: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
4101: END IF;
4102: RAISE Fnd_Api.G_EXC_ERROR;
4103: END IF;
4096: IF UPPER(l_visit_rec.status_code) <> 'PLANNING' THEN
4097: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
4098: Fnd_Msg_Pub.ADD;
4099: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4100: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
4101: END IF;
4102: RAISE Fnd_Api.G_EXC_ERROR;
4103: END IF;
4104:
4107: FETCH c_Material INTO c_Material_rec;
4108: IF c_Material%FOUND THEN
4109: l_soft_delete_flag := 'Y';
4110:
4111: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4112: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4113: END IF;
4114:
4115: -- Removing planned materials for the visit
4108: IF c_Material%FOUND THEN
4109: l_soft_delete_flag := 'Y';
4110:
4111: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4112: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4113: END IF;
4114:
4115: -- Removing planned materials for the visit
4116: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
4126: x_return_status => l_return_status,
4127: x_msg_count => x_msg_count,
4128: x_msg_data => x_msg_data);
4129:
4130: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4131: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4132: END IF;
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4127: x_msg_count => x_msg_count,
4128: x_msg_data => x_msg_data);
4129:
4130: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4131: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
4132: END IF;
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: CLOSE c_Material;
4137: END IF;
4138: END IF;
4139: CLOSE c_Material;
4140:
4141: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4142: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
4143: END IF;
4144: -- Delete all associated simulated visits if the visit to be deleted is a primary visit
4145: AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits
4138: END IF;
4139: CLOSE c_Material;
4140:
4141: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4142: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
4143: END IF;
4144: -- Delete all associated simulated visits if the visit to be deleted is a primary visit
4145: AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits
4146: (p_api_version => l_api_version,
4151: x_return_status => l_return_status,
4152: x_msg_count => l_msg_count,
4153: x_msg_data => l_msg_data);
4154:
4155: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
4157: END IF;
4158:
4159: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4152: x_msg_count => l_msg_count,
4153: x_msg_data => l_msg_data);
4154:
4155: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
4157: END IF;
4158:
4159: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4160: -- Check Error Message stack.
4158:
4159: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4160: -- Check Error Message stack.
4161: x_msg_count := FND_MSG_PUB.count_msg;
4162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4163: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
4164: END IF;
4165: RAISE Fnd_Api.g_exc_error;
4166: END IF;
4159: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4160: -- Check Error Message stack.
4161: x_msg_count := FND_MSG_PUB.count_msg;
4162: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4163: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
4164: END IF;
4165: RAISE Fnd_Api.g_exc_error;
4166: END IF;
4167:
4170: LOOP
4171: FETCH c_Tasks_csr INTO l_tasks_rec;
4172: EXIT WHEN c_Tasks_csr%NOTFOUND;
4173:
4174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4175: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.Delete_Task - visit_task_id : '||l_tasks_rec.visit_task_id);
4176: END IF;
4177:
4178: l_soft_delete_flag := 'Y'; -- If tasks are set only soft delete needs to be done.
4171: FETCH c_Tasks_csr INTO l_tasks_rec;
4172: EXIT WHEN c_Tasks_csr%NOTFOUND;
4173:
4174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4175: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.Delete_Task - visit_task_id : '||l_tasks_rec.visit_task_id);
4176: END IF;
4177:
4178: l_soft_delete_flag := 'Y'; -- If tasks are set only soft delete needs to be done.
4179:
4188: x_return_status => l_return_status,
4189: x_msg_count => x_msg_count,
4190: x_msg_data => x_msg_data);
4191:
4192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4193: fnd_log.string (fnd_log.level_statement,L_DEBUG,'After calling Delete_Task - l_return_status : '||l_return_status);
4194: END IF;
4195:
4196: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4189: x_msg_count => x_msg_count,
4190: x_msg_data => x_msg_data);
4191:
4192: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4193: fnd_log.string (fnd_log.level_statement,L_DEBUG,'After calling Delete_Task - l_return_status : '||l_return_status);
4194: END IF;
4195:
4196: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4197: CLOSE c_Tasks_csr;
4209: FETCH c_workorder_csr INTO l_workorder_rec;
4210: -- Master workorder not found
4211: IF c_workorder_csr%FOUND THEN
4212: l_soft_delete_flag := 'Y';
4213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4214: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Visit Has workorder associated with status code '||l_workorder_rec.STATUS_CODE);
4215: END IF;
4216:
4217: OPEN c_active_workorder(p_visit_id);
4210: -- Master workorder not found
4211: IF c_workorder_csr%FOUND THEN
4212: l_soft_delete_flag := 'Y';
4213: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4214: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Visit Has workorder associated with status code '||l_workorder_rec.STATUS_CODE);
4215: END IF;
4216:
4217: OPEN c_active_workorder(p_visit_id);
4218: FETCH c_active_workorder INTO l_active_workorder_rec;
4222: l_prd_workorder_rec.workorder_id := l_active_workorder_rec.workorder_id;
4223: l_prd_workorder_rec.object_version_number := l_active_workorder_rec.object_version_number;
4224: l_prd_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
4225:
4226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4227: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_PRD_WORKORDER_PVT.update_job - Workorder Id : '||l_prd_workorder_rec.workorder_id);
4228: END IF;
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4223: l_prd_workorder_rec.object_version_number := l_active_workorder_rec.object_version_number;
4224: l_prd_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
4225:
4226: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4227: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_PRD_WORKORDER_PVT.update_job - Workorder Id : '||l_prd_workorder_rec.workorder_id);
4228: END IF;
4229:
4230: AHL_PRD_WORKORDER_PVT.update_job
4231: ( p_api_version =>1.0,
4241: p_x_prd_workorder_rec =>l_prd_workorder_rec,
4242: p_x_prd_workoper_tbl =>l_workorder_tbl
4243: );
4244:
4245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4246: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4247: END IF;
4248:
4249: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4242: p_x_prd_workoper_tbl =>l_workorder_tbl
4243: );
4244:
4245: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4246: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4247: END IF;
4248:
4249: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4250: CLOSE c_active_workorder;
4255: CLOSE c_active_workorder;
4256: END IF;
4257: CLOSE c_workorder_csr;
4258:
4259: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4260: fnd_log.string (fnd_log.level_statement,L_DEBUG,'PROJECT_ID : '||l_visit_rec.PROJECT_ID);
4261: END IF;
4262:
4263: -- Delete or cancel project and project tasks
4256: END IF;
4257: CLOSE c_workorder_csr;
4258:
4259: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4260: fnd_log.string (fnd_log.level_statement,L_DEBUG,'PROJECT_ID : '||l_visit_rec.PROJECT_ID);
4261: END IF;
4262:
4263: -- Delete or cancel project and project tasks
4264: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
4263: -- Delete or cancel project and project tasks
4264: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
4265: IF l_soft_delete_flag = 'Y' THEN
4266: -- Update the project status to 'Rejected'
4267: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4268: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Update_project');
4269: END IF;
4270:
4271: AHL_VWP_PROJ_PROD_PVT.Update_project
4264: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
4265: IF l_soft_delete_flag = 'Y' THEN
4266: -- Update the project status to 'Rejected'
4267: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4268: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Update_project');
4269: END IF;
4270:
4271: AHL_VWP_PROJ_PROD_PVT.Update_project
4272: ( p_api_version => p_api_version,
4279: x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data
4281: );
4282:
4283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4284: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
4285: END IF;
4286:
4287: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4280: x_msg_data => x_msg_data
4281: );
4282:
4283: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4284: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
4285: END IF;
4286:
4287: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4288: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
4291: END IF;
4292: ELSE
4293: -- When a visit is hard deleted than the related projects is also deleted
4294: -- Call Delete_Project local procedure to delete project and its tasks
4295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4296: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Delete_Project ');
4297: END IF;
4298:
4299: AHL_VWP_PROJ_PROD_PVT.Delete_Project
4292: ELSE
4293: -- When a visit is hard deleted than the related projects is also deleted
4294: -- Call Delete_Project local procedure to delete project and its tasks
4295: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4296: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Delete_Project ');
4297: END IF;
4298:
4299: AHL_VWP_PROJ_PROD_PVT.Delete_Project
4300: ( p_api_version => p_api_version,
4306: x_return_status => l_return_status,
4307: x_msg_count => x_msg_count,
4308: x_msg_data => x_msg_data);
4309:
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
4312: END IF;
4313:
4314: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4307: x_msg_count => x_msg_count,
4308: x_msg_data => x_msg_data);
4309:
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
4312: END IF;
4313:
4314: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4315: -- Method call was not successful, raise error
4321: END IF; -- project id not null
4322:
4323: -- delete stages in the case of physical delete
4324: IF l_soft_delete_flag = 'N' THEN
4325: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4326: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES ');
4327: END IF;
4328:
4329: AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES
4322:
4323: -- delete stages in the case of physical delete
4324: IF l_soft_delete_flag = 'N' THEN
4325: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4326: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES ');
4327: END IF;
4328:
4329: AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES
4330: ( p_api_version => p_api_version,
4337: x_msg_count => x_msg_count,
4338: x_msg_data => x_msg_data
4339: );
4340:
4341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4342: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES - l_return_status : '||l_return_status );
4343: END IF;
4344:
4345: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4338: x_msg_data => x_msg_data
4339: );
4340:
4341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4342: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_STAGES - l_return_status : '||l_return_status );
4343: END IF;
4344:
4345: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
4346: RAISE Fnd_Api.G_EXC_ERROR;
4373: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4374: COMMIT;
4375: END IF;
4376:
4377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4378: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4379: END IF;
4380: EXCEPTION
4381: WHEN Fnd_Api.g_exc_error THEN
4374: COMMIT;
4375: END IF;
4376:
4377: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4378: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4379: END IF;
4380: EXCEPTION
4381: WHEN Fnd_Api.g_exc_error THEN
4382: ROLLBACK TO Delete_Visit;
4431:
4432: l_return_status VARCHAR2(1);
4433: BEGIN
4434: --------------------- Initialize -----------------------
4435: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4436: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4437: END IF;
4438:
4439: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4432: l_return_status VARCHAR2(1);
4433: BEGIN
4434: --------------------- Initialize -----------------------
4435: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4436: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
4437: END IF;
4438:
4439: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4440: Fnd_Msg_Pub.initialize;
4450: END IF;
4451: x_return_status := Fnd_Api.g_ret_sts_success;
4452:
4453: ---------------------- validate ------------------------
4454: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4455: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
4456: END IF;
4457:
4458: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4451: x_return_status := Fnd_Api.g_ret_sts_success;
4452:
4453: ---------------------- validate ------------------------
4454: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4455: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
4456: END IF;
4457:
4458: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4459: Check_Visit_Items (
4461: p_validation_mode => Jtf_Plsql_Api.g_create,
4462: x_return_status => l_return_status
4463: );
4464:
4465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4466: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
4467: END IF;
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4462: x_return_status => l_return_status
4463: );
4464:
4465: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4466: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
4467: END IF;
4468:
4469: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4470: RAISE Fnd_Api.g_exc_unexpected_error;
4478: p_count => x_msg_count,
4479: p_data => x_msg_data
4480: );
4481:
4482: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4483: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4484: END IF;
4485:
4486: EXCEPTION
4479: p_data => x_msg_data
4480: );
4481:
4482: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4483: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
4484: END IF;
4485:
4486: EXCEPTION
4487: WHEN Fnd_Api.g_exc_error THEN
4793: BEGIN
4794: --------------------- initialize -----------------------
4795: SAVEPOINT Close_Visit;
4796:
4797: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4798: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
4799: END IF;
4800:
4801: -- Initialize message list if p_init_msg_list is set to TRUE.
4794: --------------------- initialize -----------------------
4795: SAVEPOINT Close_Visit;
4796:
4797: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4798: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
4799: END IF;
4800:
4801: -- Initialize message list if p_init_msg_list is set to TRUE.
4802: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4861: l_cost_price_rec.visit_id := c_visit_rec.visit_id;
4862: l_cost_price_rec.cost_session_id := p_x_cost_session_id;
4863: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
4864:
4865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4866: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
4867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
4868: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
4869: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
4862: l_cost_price_rec.cost_session_id := p_x_cost_session_id;
4863: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
4864:
4865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4866: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
4867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
4868: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
4869: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
4870: END IF;
4863: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
4864:
4865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4866: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
4867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
4868: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
4869: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
4870: END IF;
4871:
4864:
4865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4866: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
4867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
4868: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
4869: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
4870: END IF;
4871:
4872: --Call ahl_vwp_cost_pvt.calculate_wo_cost
4865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4866: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
4867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
4868: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
4869: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
4870: END IF;
4871:
4872: --Call ahl_vwp_cost_pvt.calculate_wo_cost
4873: AHL_VWP_COST_PVT.Calculate_WO_Cost(
4877: p_validation_level => p_validation_level,
4878: p_x_cost_price_rec => l_cost_price_rec,
4879: x_return_status => l_return_status);
4880:
4881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4882: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Calculate_WO_Cost : l_return_status - '||l_return_status);
4883: END IF;
4884:
4885: -- Check Error Message stack.
4878: p_x_cost_price_rec => l_cost_price_rec,
4879: x_return_status => l_return_status);
4880:
4881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4882: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Calculate_WO_Cost : l_return_status - '||l_return_status);
4883: END IF;
4884:
4885: -- Check Error Message stack.
4886: l_msg_count := FND_MSG_PUB.count_msg;
4898: FETCH c_wip_entity INTO l_wip_entity_rec;
4899: EXIT WHEN c_wip_entity%NOTFOUND;
4900:
4901: -- Call ahl_vwp_cost_pvt.get_wo_cost
4902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4903: fnd_log.string(fnd_log.level_statement,L_DEBUG,'wip_entity_id - '||l_wip_entity_rec.wip_entity_id||' - '||'Visit task Id - '||l_wip_entity_rec.visit_task_id);
4904: END IF;
4905:
4906: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
4899: EXIT WHEN c_wip_entity%NOTFOUND;
4900:
4901: -- Call ahl_vwp_cost_pvt.get_wo_cost
4902: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4903: fnd_log.string(fnd_log.level_statement,L_DEBUG,'wip_entity_id - '||l_wip_entity_rec.wip_entity_id||' - '||'Visit task Id - '||l_wip_entity_rec.visit_task_id);
4904: END IF;
4905:
4906: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
4907:
4904: END IF;
4905:
4906: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
4907:
4908: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4909: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for all workorers');
4910: END IF;
4911:
4912: AHL_VWP_COST_PVT.Get_WO_Cost(
4905:
4906: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
4907:
4908: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4909: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for all workorers');
4910: END IF;
4911:
4912: AHL_VWP_COST_PVT.Get_WO_Cost(
4913: p_Session_Id => l_cost_price_rec.mr_session_id,
4916: x_actual_cost => l_actual_cost,
4917: x_estimated_cost => l_estimated_cost,
4918: x_return_status => l_return_status);
4919:
4920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4921: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
4922: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
4923: END IF;
4924:
4917: x_estimated_cost => l_estimated_cost,
4918: x_return_status => l_return_status);
4919:
4920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4921: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
4922: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
4923: END IF;
4924:
4925: -- Update with actual cost
4918: x_return_status => l_return_status);
4919:
4920: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4921: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
4922: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
4923: END IF;
4924:
4925: -- Update with actual cost
4926: UPDATE ahl_visit_tasks_b
4945: FETCH c_summ_task INTO l_summ_task_rec;
4946: EXIT WHEN c_summ_task%NOTFOUND;
4947: IF l_summ_task_rec.visit_task_id IS NOT NULL THEN
4948:
4949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4950: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for summary tasks without mr - l_summ_task_rec.visit_task_id : '||l_summ_task_rec.visit_task_id);
4951: END IF;
4952:
4953: AHL_VWP_COST_PVT.Get_WO_Cost(
4946: EXIT WHEN c_summ_task%NOTFOUND;
4947: IF l_summ_task_rec.visit_task_id IS NOT NULL THEN
4948:
4949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4950: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for summary tasks without mr - l_summ_task_rec.visit_task_id : '||l_summ_task_rec.visit_task_id);
4951: END IF;
4952:
4953: AHL_VWP_COST_PVT.Get_WO_Cost(
4954: p_Session_Id => l_cost_price_rec.mr_session_id,
4957: x_actual_cost => l_actual_cost,
4958: x_estimated_cost => l_estimated_cost,
4959: x_return_status => l_return_status);
4960:
4961: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4962: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status||' : l_actual_cost - '||l_actual_cost);
4963: END IF;
4964:
4965: --Update task record with actual cost
4958: x_estimated_cost => l_estimated_cost,
4959: x_return_status => l_return_status);
4960:
4961: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4962: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status||' : l_actual_cost - '||l_actual_cost);
4963: END IF;
4964:
4965: --Update task record with actual cost
4966: UPDATE ahl_visit_tasks_b
4986: x_return_status => x_return_status,
4987: x_msg_count => x_msg_count,
4988: x_msg_data => x_msg_data);*/
4989:
4990: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4991: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_COMPLETIONS_PVT.complete_master_wo');
4992: END IF;
4993:
4994: x_return_status := AHL_COMPLETIONS_PVT.complete_master_wo
4987: x_msg_count => x_msg_count,
4988: x_msg_data => x_msg_data);*/
4989:
4990: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4991: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_COMPLETIONS_PVT.complete_master_wo');
4992: END IF;
4993:
4994: x_return_status := AHL_COMPLETIONS_PVT.complete_master_wo
4995: (
4997: p_workorder_id => null,
4998: p_ue_id => null
4999: );
5000:
5001: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5002: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
5003: END IF;
5004:
5005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4998: p_ue_id => null
4999: );
5000:
5001: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5002: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
5003: END IF;
5004:
5005: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5006: -- Check Error Message stack.
5008: RAISE Fnd_Api.g_exc_error;
5009: END IF;
5010: -- yazhou 28Sept2005 ends
5011:
5012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5013: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating Visit Status to CLOSED..');
5014: END IF;
5015:
5016: -- To update visit to CLOSED status
5009: END IF;
5010: -- yazhou 28Sept2005 ends
5011:
5012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5013: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating Visit Status to CLOSED..');
5014: END IF;
5015:
5016: -- To update visit to CLOSED status
5017: UPDATE AHL_VISITS_B
5038: OPEN c_visit (p_visit_id);
5039: FETCH c_visit INTO c_visit_rec;
5040: CLOSE c_visit;
5041:
5042: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5043: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
5044: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5045: END IF;
5046:
5039: FETCH c_visit INTO c_visit_rec;
5040: CLOSE c_visit;
5041:
5042: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5043: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
5044: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5045: END IF;
5046:
5047: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5040: CLOSE c_visit;
5041:
5042: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5043: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
5044: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5045: END IF;
5046:
5047: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5048: p_api_version => 1.0,
5059: x_return_status => x_return_status,
5060: x_msg_count => x_msg_count,
5061: x_msg_data => x_msg_data );
5062:
5063: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5064: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : x_return_status - '||x_return_status);
5065: END IF;
5066:
5067: l_msg_count := FND_MSG_PUB.count_msg;
5060: x_msg_count => x_msg_count,
5061: x_msg_data => x_msg_data );
5062:
5063: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5064: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : x_return_status - '||x_return_status);
5065: END IF;
5066:
5067: l_msg_count := FND_MSG_PUB.count_msg;
5068: IF l_msg_count > 0 THEN
5070: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF;
5073:
5074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5075: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
5076: END IF;
5077: -- End Code on 17th Feb 2004 by shbhanda
5078: END IF;
5071: RAISE FND_API.G_EXC_ERROR;
5072: END IF;
5073:
5074: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5075: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
5076: END IF;
5077: -- End Code on 17th Feb 2004 by shbhanda
5078: END IF;
5079: ELSE
5081: Fnd_Msg_Pub.ADD;
5082: RAISE Fnd_Api.g_exc_error;
5083: END IF;
5084:
5085: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5086: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
5087: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
5088: END IF;
5089: ---------------------------End of API Body-------------------------------------
5082: RAISE Fnd_Api.g_exc_error;
5083: END IF;
5084:
5085: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5086: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
5087: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
5088: END IF;
5089: ---------------------------End of API Body-------------------------------------
5090:
5083: END IF;
5084:
5085: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5086: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
5087: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
5088: END IF;
5089: ---------------------------End of API Body-------------------------------------
5090:
5091: -- Standard check of p_commit.
5097: p_encoded => Fnd_Api.g_false,
5098: p_count => x_msg_count,
5099: p_data => x_msg_data);
5100:
5101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5102: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5103: END IF;
5104: EXCEPTION
5105: WHEN Fnd_Api.g_exc_error THEN
5098: p_count => x_msg_count,
5099: p_data => x_msg_data);
5100:
5101: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5102: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5103: END IF;
5104: EXCEPTION
5105: WHEN Fnd_Api.g_exc_error THEN
5106: ROLLBACK TO Close_Visit;
5219: BEGIN
5220: --------------------- initialize -----------------------
5221: SAVEPOINT Cancel_Visit;
5222:
5223: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5224: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
5225: END IF;
5226:
5227: -- Initialize message list if p_init_msg_list is set to TRUE.
5220: --------------------- initialize -----------------------
5221: SAVEPOINT Cancel_Visit;
5222:
5223: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5224: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
5225: END IF;
5226:
5227: -- Initialize message list if p_init_msg_list is set to TRUE.
5228: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5249: Fnd_Msg_Pub.ADD;
5250: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252:
5253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5254: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
5255: END IF;
5256: -- Added by shbhanda for Transit check changes on 06/25/2004
5257: -- Code Start
5250: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252:
5253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5254: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
5255: END IF;
5256: -- Added by shbhanda for Transit check changes on 06/25/2004
5257: -- Code Start
5258: -- Call Cancel_Visit_Jobs API
5269: p_visit_id => p_visit_id,
5270: p_unit_effectivity_id => NULL,
5271: p_workorder_id => NULL);
5272:
5273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5274: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
5275: END IF;
5276:
5277: -- Check return status.
5270: p_unit_effectivity_id => NULL,
5271: p_workorder_id => NULL);
5272:
5273: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5274: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
5275: END IF;
5276:
5277: -- Check return status.
5278: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5287: OBJECT_VERSION_NUMBER = object_version_number + 1
5288: WHERE VISIT_ID = p_visit_id
5289: AND UNIT_EFFECTIVITY_ID is not null;
5290:
5291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5292: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5293: END IF;
5294:
5295: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
5288: WHERE VISIT_ID = p_visit_id
5289: AND UNIT_EFFECTIVITY_ID is not null;
5290:
5291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5292: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5293: END IF;
5294:
5295: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
5296: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5308: x_return_status => l_return_status,
5309: x_msg_count => l_msg_count,
5310: x_msg_data => l_msg_data);
5311:
5312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5313: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
5314: END IF;
5315:
5316: -- Check return status.
5309: x_msg_count => l_msg_count,
5310: x_msg_data => l_msg_data);
5311:
5312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5313: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials - l_return_status : '||l_return_status);
5314: END IF;
5315:
5316: -- Check return status.
5317: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5326: FETCH c_task INTO c_task_rec;
5327: EXIT WHEN c_task%NOTFOUND;
5328: -- update the task status to cancelled
5329:
5330: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5331: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the task status to CANCELLED for task ID - c_task_rec.visit_task_id : '||c_task_rec.visit_task_id);
5332: END IF;
5333:
5334: UPDATE AHL_VISIT_TASKS_B
5327: EXIT WHEN c_task%NOTFOUND;
5328: -- update the task status to cancelled
5329:
5330: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5331: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the task status to CANCELLED for task ID - c_task_rec.visit_task_id : '||c_task_rec.visit_task_id);
5332: END IF;
5333:
5334: UPDATE AHL_VISIT_TASKS_B
5335: SET STATUS_CODE = 'CANCELLED',
5337: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
5338: END LOOP;
5339: CLOSE c_task;
5340:
5341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5342: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the visit status to CANCELLED..');
5343: END IF;
5344: -- update visit status
5345: UPDATE AHL_VISITS_B
5338: END LOOP;
5339: CLOSE c_task;
5340:
5341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5342: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the visit status to CANCELLED..');
5343: END IF;
5344: -- update visit status
5345: UPDATE AHL_VISITS_B
5346: SET STATUS_CODE = 'CANCELLED',
5351: -- Check if visit project id is null
5352: -- if not null then update PA_PROJECTS_ALL and set the
5353: -- project status code to 'CLOSED'
5354: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
5355: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5356: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Update_Project');
5357: END IF;
5358:
5359: AHL_VWP_PROJ_PROD_PVT.Update_Project(
5352: -- if not null then update PA_PROJECTS_ALL and set the
5353: -- project status code to 'CLOSED'
5354: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
5355: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5356: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Update_Project');
5357: END IF;
5358:
5359: AHL_VWP_PROJ_PROD_PVT.Update_Project(
5360: p_api_version => p_api_version,
5367: x_msg_count => x_msg_count,
5368: x_msg_data => x_msg_data);
5369: --The following END IF was commented out by jeli on 07/27/04, otherwise it couldn't pass the compilation.
5370:
5371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
5373: END IF;
5374:
5375: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5368: x_msg_data => x_msg_data);
5369: --The following END IF was commented out by jeli on 07/27/04, otherwise it couldn't pass the compilation.
5370:
5371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
5373: END IF;
5374:
5375: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5376: -- Method call was not successful, raise error
5375: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5376: -- Method call was not successful, raise error
5377: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5378: Fnd_Msg_Pub.ADD;
5379: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5380: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5381: 'Cant update the project to Rejected status');
5382: END IF;
5383: RAISE Fnd_Api.G_EXC_ERROR;
5376: -- Method call was not successful, raise error
5377: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5378: Fnd_Msg_Pub.ADD;
5379: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5380: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5381: 'Cant update the project to Rejected status');
5382: END IF;
5383: RAISE Fnd_Api.G_EXC_ERROR;
5384: END IF;
5399: OPEN c_sr_ovn(l_service_request_id);
5400: FETCH c_sr_ovn into c_sr_ovn_rec;
5401: CLOSE c_sr_ovn;
5402:
5403: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5404: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling CS_ServiceRequest_PUB.Update_Status - SR Id : '||l_service_request_id);
5405: END IF;
5406: -- yazhou 29-Jun-2006 starts
5407: -- bug#5359943
5400: FETCH c_sr_ovn into c_sr_ovn_rec;
5401: CLOSE c_sr_ovn;
5402:
5403: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5404: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling CS_ServiceRequest_PUB.Update_Status - SR Id : '||l_service_request_id);
5405: END IF;
5406: -- yazhou 29-Jun-2006 starts
5407: -- bug#5359943
5408: -- Pass p_status_id as 1 (OPEN)
5432: -- p_status => 'OPEN',
5433: x_interaction_id => l_interaction_id
5434: );
5435:
5436: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5437: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
5438: END IF;
5439: -- yazhou 29-Jun-2006 ends
5440: -- Check return status.
5433: x_interaction_id => l_interaction_id
5434: );
5435:
5436: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5437: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
5438: END IF;
5439: -- yazhou 29-Jun-2006 ends
5440: -- Check return status.
5441: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5464: p_encoded => Fnd_Api.g_false,
5465: p_count => x_msg_count,
5466: p_data => x_msg_data);
5467:
5468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5470: END IF;
5471: EXCEPTION
5472: WHEN Fnd_Api.g_exc_error THEN
5465: p_count => x_msg_count,
5466: p_data => x_msg_data);
5467:
5468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5470: END IF;
5471: EXCEPTION
5472: WHEN Fnd_Api.g_exc_error THEN
5473: ROLLBACK TO Cancel_Visit;
5553: --------------------- Initialize -----------------------
5554: SAVEPOINT Synchronize_Visit;
5555:
5556: -- Check if API is called in debug mode. If yes, enable debug.
5557: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5558: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
5559: END IF;
5560:
5561: -- Initialize message list if p_init_msg_list is set to TRUE.
5554: SAVEPOINT Synchronize_Visit;
5555:
5556: -- Check if API is called in debug mode. If yes, enable debug.
5557: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5558: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
5559: END IF;
5560:
5561: -- Initialize message list if p_init_msg_list is set to TRUE.
5562: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5581: CLOSE c_Visit;
5582: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5583: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5584: Fnd_Msg_Pub.ADD;
5585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5586: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
5587: END IF;
5588: END IF;
5589: RAISE Fnd_Api.g_exc_error;
5582: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5583: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5584: Fnd_Msg_Pub.ADD;
5585: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5586: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
5587: END IF;
5588: END IF;
5589: RAISE Fnd_Api.g_exc_error;
5590: ELSE
5600: p_x_visit_rec.DESCRIPTION := c_Visit_rec.DESCRIPTION;
5601: p_x_visit_rec.PRIORITY_CODE := c_Visit_rec.PRIORITY_CODE;
5602: p_x_visit_rec.PROJ_TEMPLATE_ID := c_Visit_rec.PROJECT_TEMPLATE_ID;
5603:
5604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
5606: END IF;
5607:
5608: IF c_Visit_rec.status_code = 'PLANNING' THEN
5601: p_x_visit_rec.PRIORITY_CODE := c_Visit_rec.PRIORITY_CODE;
5602: p_x_visit_rec.PROJ_TEMPLATE_ID := c_Visit_rec.PROJECT_TEMPLATE_ID;
5603:
5604: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
5606: END IF;
5607:
5608: IF c_Visit_rec.status_code = 'PLANNING' THEN
5609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5605: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
5606: END IF;
5607:
5608: IF c_Visit_rec.status_code = 'PLANNING' THEN
5609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5610: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
5611: END IF;
5612:
5613: Update_Visit
5606: END IF;
5607:
5608: IF c_Visit_rec.status_code = 'PLANNING' THEN
5609: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5610: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
5611: END IF;
5612:
5613: Update_Visit
5614: (
5622: x_msg_count => l_msg_count,
5623: x_msg_data => l_msg_data
5624: );
5625:
5626: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5627: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5628: END IF;
5629:
5630: IF l_return_status <> 'S' THEN
5623: x_msg_data => l_msg_data
5624: );
5625:
5626: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5627: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5628: END IF;
5629:
5630: IF l_return_status <> 'S' THEN
5631: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5704: Fnd_Msg_Pub.ADD;
5705: RAISE Fnd_Api.G_EXC_ERROR;
5706: END IF;
5707:
5708: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5709: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
5710: END IF;
5711:
5712: COPY_VISIT(
5705: RAISE Fnd_Api.G_EXC_ERROR;
5706: END IF;
5707:
5708: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5709: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
5710: END IF;
5711:
5712: COPY_VISIT(
5713: p_api_version => l_api_version,
5721: x_msg_count => l_msg_count,
5722: x_msg_data => l_msg_data
5723: );
5724:
5725: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5726: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
5727: END IF;
5728:
5729: IF l_return_status <> 'S' THEN
5722: x_msg_data => l_msg_data
5723: );
5724:
5725: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5726: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
5727: END IF;
5728:
5729: IF l_return_status <> 'S' THEN
5730: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5729: IF l_return_status <> 'S' THEN
5730: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5731: END IF;
5732:
5733: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5734: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
5735: END IF;
5736:
5737: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
5730: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5731: END IF;
5732:
5733: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5734: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
5735: END IF;
5736:
5737: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
5738: p_api_version => l_api_version,
5744: X_MSG_COUNT => l_msg_count,
5745: X_MSG_DATA => l_msg_data
5746: );
5747:
5748: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5749: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
5750: END IF;
5751:
5752: IF l_return_status <> 'S' THEN
5745: X_MSG_DATA => l_msg_data
5746: );
5747:
5748: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5749: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
5750: END IF;
5751:
5752: IF l_return_status <> 'S' THEN
5753: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5752: IF l_return_status <> 'S' THEN
5753: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5754: END IF;
5755:
5756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5757: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
5758: END IF;
5759:
5760: Cancel_Visit
5753: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5754: END IF;
5755:
5756: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5757: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
5758: END IF;
5759:
5760: Cancel_Visit
5761: (
5765: x_msg_count => l_msg_count,
5766: x_msg_data => l_msg_data
5767: );
5768:
5769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5770: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
5771: END IF;
5772:
5773: IF l_return_status <> 'S' THEN
5766: x_msg_data => l_msg_data
5767: );
5768:
5769: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5770: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
5771: END IF;
5772:
5773: IF l_return_status <> 'S' THEN
5774: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5787: )
5788: THEN
5789: ------------ R12 changes For Serial Number Reservations End-----------------
5790:
5791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5792: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
5793: END IF;
5794:
5795: Update_Visit
5788: THEN
5789: ------------ R12 changes For Serial Number Reservations End-----------------
5790:
5791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5792: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
5793: END IF;
5794:
5795: Update_Visit
5796: (
5804: x_msg_count => l_msg_count,
5805: x_msg_data => l_msg_data
5806: );
5807:
5808: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5809: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5810: END IF;
5811:
5812: IF l_return_status <> 'S' THEN
5805: x_msg_data => l_msg_data
5806: );
5807:
5808: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5809: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
5810: END IF;
5811:
5812: IF l_return_status <> 'S' THEN
5813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5812: IF l_return_status <> 'S' THEN
5813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5814: END IF;
5815:
5816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
5818: END IF;
5819:
5820: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
5813: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5814: END IF;
5815:
5816: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5817: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
5818: END IF;
5819:
5820: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
5821: P_API_VERSION => l_api_version,
5825: P_VISIT_ID => c_visit_rec.visit_id,
5826: p_x_scheduled_start_date => l_visit_rec.START_DATE,
5827: p_x_scheduled_end_date => l_visit_rec.PLAN_END_DATE);
5828:
5829: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5830: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
5831: END IF;
5832:
5833: IF l_return_status <> 'S' THEN
5826: p_x_scheduled_start_date => l_visit_rec.START_DATE,
5827: p_x_scheduled_end_date => l_visit_rec.PLAN_END_DATE);
5828:
5829: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5830: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
5831: END IF;
5832:
5833: IF l_return_status <> 'S' THEN
5834: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5848: COMMIT;
5849: END IF;
5850:
5851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5852: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5853: END IF;
5854: EXCEPTION
5855: WHEN Fnd_Api.g_exc_error THEN
5848: COMMIT;
5849: END IF;
5850:
5851: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5852: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5853: END IF;
5854: EXCEPTION
5855: WHEN Fnd_Api.g_exc_error THEN
5856: ROLLBACK TO Synchronize_Visit;
5946: AND TASK_TYPE_CODE <> 'SUMMARY';
5947:
5948: BEGIN
5949: -- log at the begining of the procedure
5950: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5951: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure - Visit Id : '||p_visit_id||' - '||'item_instance_id : '||item_instance_id);
5952: END IF;
5953:
5954: IF item_instance_id IS NOT NULL THEN
5947:
5948: BEGIN
5949: -- log at the begining of the procedure
5950: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5951: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure - Visit Id : '||p_visit_id||' - '||'item_instance_id : '||item_instance_id);
5952: END IF;
5953:
5954: IF item_instance_id IS NOT NULL THEN
5955: -- If the Visit header has an instance id, check for the corresponding Unit
5961: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
5962: Fnd_Msg_Pub.ADD;
5963: -- log message
5964: IF (l_log_statement >= l_log_current_level)THEN
5965: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_unit_name || 'Unit is quarantined, Error message added');
5966: END IF; -- log
5967: END IF; -- l_quarantined not true
5968: ELSE -- instance id is null
5969: -- If the visit does not have a unit at the header , then check for the units of all tasks
5978: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
5979: Fnd_Msg_Pub.ADD;
5980: -- log message
5981: IF (l_log_statement >= l_log_current_level)THEN
5982: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_task_number || 'Unit for this task is quarantined.');
5983: END IF; -- log
5984: END IF; -- l_quarantined not true
5985: END LOOP; -- c_get_tasknumbers
5986: END IF;
5986: END IF;
5987:
5988: -- log at the end of the procedure
5989: IF (l_log_procedure >= l_log_current_level) THEN
5990: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PL SQL procedure');
5991: END IF;
5992: END check_unit_quarantined;
5993: END AHL_VWP_VISITS_PVT;