[Home] [Help]
7:
8: ------------------------------------
9: -- Common constants and variables --
10: ------------------------------------
11: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
12: l_log_statement NUMBER := fnd_log.level_statement;
13: l_log_procedure NUMBER := fnd_log.level_procedure;
14: l_log_error NUMBER := fnd_log.level_error;
15: l_log_unexpected NUMBER := fnd_log.level_unexpected;
8: ------------------------------------
9: -- Common constants and variables --
10: ------------------------------------
11: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
12: l_log_statement NUMBER := fnd_log.level_statement;
13: l_log_procedure NUMBER := fnd_log.level_procedure;
14: l_log_error NUMBER := fnd_log.level_error;
15: l_log_unexpected NUMBER := fnd_log.level_unexpected;
16:
9: -- Common constants and variables --
10: ------------------------------------
11: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
12: l_log_statement NUMBER := fnd_log.level_statement;
13: l_log_procedure NUMBER := fnd_log.level_procedure;
14: l_log_error NUMBER := fnd_log.level_error;
15: l_log_unexpected NUMBER := fnd_log.level_unexpected;
16:
17: -- Added by jaramana on 04-NOV-2009 for bug 9087120
10: ------------------------------------
11: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
12: l_log_statement NUMBER := fnd_log.level_statement;
13: l_log_procedure NUMBER := fnd_log.level_procedure;
14: l_log_error NUMBER := fnd_log.level_error;
15: l_log_unexpected NUMBER := fnd_log.level_unexpected;
16:
17: -- Added by jaramana on 04-NOV-2009 for bug 9087120
18: -- Job Statuses
11: l_log_current_level NUMBER := fnd_log.g_current_runtime_level;
12: l_log_statement NUMBER := fnd_log.level_statement;
13: l_log_procedure NUMBER := fnd_log.level_procedure;
14: l_log_error NUMBER := fnd_log.level_error;
15: l_log_unexpected NUMBER := fnd_log.level_unexpected;
16:
17: -- Added by jaramana on 04-NOV-2009 for bug 9087120
18: -- Job Statuses
19: G_JOB_STATUS_UNRELEASED VARCHAR2(1) := '1'; --Unreleased
247: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
248: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
249:
250: BEGIN
251: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
252: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
253: END IF;
254:
255: OPEN c_visit(p_visit_id);
248: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
249:
250: BEGIN
251: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
252: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
253: END IF;
254:
255: OPEN c_visit(p_visit_id);
256: FETCH c_visit INTO l_count1;
271: ELSE
272: CLOSE c_visit;
273: END IF;
274:
275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'l_due_by_date - '||l_due_by_date);
277: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
278: END IF;
279:
272: CLOSE c_visit;
273: END IF;
274:
275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'l_due_by_date - '||l_due_by_date);
277: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
278: END IF;
279:
280: RETURN l_due_by_date;
273: END IF;
274:
275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'l_due_by_date - '||l_due_by_date);
277: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
278: END IF;
279:
280: RETURN l_due_by_date;
281: END Get_Due_by_Date;
556:
557: x_Visit_Id NUMBER;
558: l_dummy NUMBER;
559: BEGIN
560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
561: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
562: END IF;
563:
564: LOOP
557: x_Visit_Id NUMBER;
558: l_dummy NUMBER;
559: BEGIN
560: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
561: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
562: END IF;
563:
564: LOOP
565: -- If the ID is not passed into the API, then
575: -- l_dummy would be populated with '1', otherwise, it receives NULL.
576: EXIT WHEN l_dummy = null ;
577: END LOOP;
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
580: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
581: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
582: END IF;
583:
576: EXIT WHEN l_dummy = null ;
577: END LOOP;
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
580: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
581: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
582: END IF;
583:
584: RETURN x_Visit_Id;
577: END LOOP;
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
580: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit id : ' || x_Visit_Id);
581: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
582: END IF;
583:
584: RETURN x_Visit_Id;
585:
602: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
603: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
604: BEGIN
605:
606: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
607: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
608: END IF;
609:
610: -- Check for Visit Number
603: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
604: BEGIN
605:
606: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
607: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
608: END IF;
609:
610: -- Check for Visit Number
611: OPEN c_visit_number;
617: ELSE
618: x_visit_number := 1;
619: END IF;
620:
621: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
622: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
623: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
624: END IF;
625:
618: x_visit_number := 1;
619: END IF;
620:
621: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
622: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
623: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
624: END IF;
625:
626: RETURN x_visit_number;
619: END IF;
620:
621: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
622: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'New visit number : ' || x_visit_number);
623: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
624: END IF;
625:
626: RETURN x_visit_number;
627:
645: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
646: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
647:
648: BEGIN
649: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
650: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
651: END IF;
652:
653: -- Check for Visit Number
646: L_DEBUG CONSTANT VARCHAR2(90) := 'ahl.plsql.'||L_FULL_NAME;
647:
648: BEGIN
649: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
650: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of function');
651: END IF;
652:
653: -- Check for Visit Number
654: OPEN c_Task_Number;
660: ELSE
661: x_Visit_Task_Number := 1;
662: END IF;
663:
664: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
665: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
666: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
667: END IF;
668:
661: x_Visit_Task_Number := 1;
662: END IF;
663:
664: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
665: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
666: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
667: END IF;
668:
669: RETURN x_Visit_Task_Number;
662: END IF;
663:
664: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
665: fnd_log.string(fnd_log.level_procedure,L_DEBUG,'Visit Task Number - ' || x_Visit_Task_Number);
666: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of function');
667: END IF;
668:
669: RETURN x_Visit_Task_Number;
670: END Get_Visit_Task_Number;
736: BEGIN
737: -- Standard Start of API savepoint
738: SAVEPOINT Process_Visit;
739:
740: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
741: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
742: END IF;
743:
744: -- Initialize API return status to success
737: -- Standard Start of API savepoint
738: SAVEPOINT Process_Visit;
739:
740: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
741: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
742: END IF;
743:
744: -- Initialize API return status to success
745: -- Initialize message list if p_init_msg_list is set to TRUE.
760: IF p_x_Visit_tbl.COUNT > 0 THEN
761: FOR i IN p_x_Visit_tbl.first..p_x_Visit_tbl.LAST
762: LOOP
763: -- For Create
764: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
765: fnd_log.string(fnd_log.level_statement,L_DEBUG,'p_x_Visit_tbl(i).operation_flag : '||p_x_Visit_tbl(i).operation_flag);
766: END IF;
767:
768: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
761: FOR i IN p_x_Visit_tbl.first..p_x_Visit_tbl.LAST
762: LOOP
763: -- For Create
764: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
765: fnd_log.string(fnd_log.level_statement,L_DEBUG,'p_x_Visit_tbl(i).operation_flag : '||p_x_Visit_tbl(i).operation_flag);
766: END IF;
767:
768: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
769:
766: END IF;
767:
768: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
769:
770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
771: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Create_Visit');
772: END IF;
773:
774: Create_Visit
767:
768: IF p_x_Visit_tbl(i).operation_flag = 'I' or p_x_Visit_tbl(i).operation_flag = 'i' THEN
769:
770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
771: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Create_Visit');
772: END IF;
773:
774: Create_Visit
775: (
784: x_msg_count => l_msg_count,
785: x_msg_data => l_msg_data
786: );
787:
788: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
789: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Create_Visit - l_return_status : '||l_return_status);
790: END IF;
791:
792: --For Update
785: x_msg_data => l_msg_data
786: );
787:
788: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
789: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Create_Visit - l_return_status : '||l_return_status);
790: END IF;
791:
792: --For Update
793: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
791:
792: --For Update
793: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
794:
795: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
796: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
797: END IF;
798:
799: Update_Visit
792: --For Update
793: ELSIF p_x_Visit_tbl(i).operation_flag = 'U' or p_x_Visit_tbl(i).operation_flag = 'u' THEN
794:
795: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
796: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
797: END IF;
798:
799: Update_Visit
800: (
809: x_msg_count => l_msg_count,
810: x_msg_data => l_msg_data
811: );
812:
813: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
814: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
815: END IF;
816:
817: --For Delete
810: x_msg_data => l_msg_data
811: );
812:
813: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
814: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
815: END IF;
816:
817: --For Delete
818: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
816:
817: --For Delete
818: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
819:
820: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
821: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
822: END IF;
823:
824: Delete_Visit
817: --For Delete
818: ELSIF p_x_Visit_tbl(i).operation_flag = 'D' or p_x_Visit_tbl(i).operation_flag = 'd' THEN
819:
820: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
821: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
822: END IF;
823:
824: Delete_Visit
825: (
833: x_msg_count => l_msg_count,
834: x_msg_data => l_msg_data
835: );
836:
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '||l_return_status);
839: END IF;
840:
841: -- Transit Visit Change
834: x_msg_data => l_msg_data
835: );
836:
837: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
838: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '||l_return_status);
839: END IF;
840:
841: -- Transit Visit Change
842: -- yazhou start
845: -- TCHIMIRA :: ER 13416865 :: Added the condition p_module_type = 'JSP'
846: ELSIF ((p_x_Visit_tbl(i).operation_flag = 'S' or p_x_Visit_tbl(i).operation_flag = 's')
847: AND (p_module_type <> 'JSP')) THEN
848:
849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
850: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Synchronize_Visit');
851: END IF;
852:
853: Synchronize_Visit
846: ELSIF ((p_x_Visit_tbl(i).operation_flag = 'S' or p_x_Visit_tbl(i).operation_flag = 's')
847: AND (p_module_type <> 'JSP')) THEN
848:
849: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
850: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Synchronize_Visit');
851: END IF;
852:
853: Synchronize_Visit
854: (
862: x_msg_count => l_msg_count,
863: x_msg_data => l_msg_data
864: );
865:
866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Synchronize_Visit - l_return_status : '||l_return_status);
868: END IF;
869:
870: -- Will be called from UA
863: x_msg_data => l_msg_data
864: );
865:
866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
867: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Synchronize_Visit - l_return_status : '||l_return_status);
868: END IF;
869:
870: -- Will be called from UA
871: -- Delete the visit if visit is in Draft or Planning status
878: CLOSE c_visit_status;
879: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
880: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
881: Fnd_Msg_Pub.ADD;
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
884: END IF;
885: END IF;
886: RAISE Fnd_Api.g_exc_error;
879: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
880: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
881: Fnd_Msg_Pub.ADD;
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
884: END IF;
885: END IF;
886: RAISE Fnd_Api.g_exc_error;
887: ELSE
907: END LOOP;
908:
909: -- Even the visits in DRAFT status can be deleted
910: IF l_visit_status IN ('PLANNING', 'DRAFT') THEN
911: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
912: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
913: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
914: END IF;
915:
908:
909: -- Even the visits in DRAFT status can be deleted
910: IF l_visit_status IN ('PLANNING', 'DRAFT') THEN
911: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
912: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
913: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
914: END IF;
915:
916: Delete_Visit
909: -- Even the visits in DRAFT status can be deleted
910: IF l_visit_status IN ('PLANNING', 'DRAFT') THEN
911: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
912: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
913: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Delete_Visit');
914: END IF;
915:
916: Delete_Visit
917: (
925: x_msg_count => l_msg_count,
926: x_msg_data => l_msg_data
927: );
928:
929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
930: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
931: END IF;
932: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
926: x_msg_data => l_msg_data
927: );
928:
929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
930: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
931: END IF;
932: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
934: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
930: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
931: END IF;
932: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
934: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
935: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
936: END IF;
937:
930: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Delete_Visit - l_return_status : '|| l_return_status);
931: END IF;
932: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
934: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
935: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
936: END IF;
937:
938: Cancel_Visit (
931: END IF;
932: ELSIF l_visit_status = 'RELEASED' OR l_visit_status = 'PARTIALLY RELEASED' THEN
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
934: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_visit_status : '||l_visit_status);
935: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
936: END IF;
937:
938: Cancel_Visit (
939: p_api_version => l_api_version,
947: x_return_status => l_return_status,
948: x_msg_count => l_msg_count,
949: x_msg_data => l_msg_data );
950:
951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit - l_return_status : '|| l_return_status);
953: END IF;
954: END IF;
955: -- yazhou end
948: x_msg_count => l_msg_count,
949: x_msg_data => l_msg_data );
950:
951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit - l_return_status : '|| l_return_status);
953: END IF;
954: END IF;
955: -- yazhou end
956:
966: l_ue_ids := substr(l_ue_ids, 2);
967:
968: -- launch visit cancel notification
969: IF (l_log_statement >= l_log_current_level) THEN
970: FND_LOG.string(l_log_statement, l_debug, 'Invoking AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification API for visit id=' || p_x_visit_tbl(i).visit_id ||
971: ' and ue_ids=' || l_ue_ids);
972: END IF;
973:
974: AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification (
979: x_return_status => l_return_status
980: );
981:
982: IF (l_log_statement >= l_log_current_level) THEN
983: FND_LOG.string(l_log_statement, l_debug, 'After call to AHL_AVF_OPER_VSTS_PVT.Launch_Visit_Can_Notification API, Return Status: ' || l_return_status);
984: END IF;
985:
986: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
987:
1054: p_count => x_msg_count,
1055: p_data => x_msg_data);
1056: END IF;
1057:
1058: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1059: fnd_log.string(fnd_log.level_procedure, L_DEBUG||'.end', 'At the end of PLSQL procedure. x_return_status = ' || x_return_status);
1060: END IF;
1061:
1062: EXCEPTION
1055: p_data => x_msg_data);
1056: END IF;
1057:
1058: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1059: fnd_log.string(fnd_log.level_procedure, L_DEBUG||'.end', 'At the end of PLSQL procedure. x_return_status = ' || x_return_status);
1060: END IF;
1061:
1062: EXCEPTION
1063:
1336: BEGIN
1337: -- Standard start of API savepoint
1338: SAVEPOINT Get_Visit_Details;
1339:
1340: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1341: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1342: END IF;
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1337: -- Standard start of API savepoint
1338: SAVEPOINT Get_Visit_Details;
1339:
1340: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1341: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure, p_visit_id - '||p_visit_id);
1342: END IF;
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1345: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1394: OPEN c_uc_header(visit_rec.item_instance_id);
1395: FETCH c_uc_header INTO l_unit_name, l_unit_header_id;
1396: CLOSE c_uc_header;
1397:
1398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1399: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1400: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1402: END IF;
1395: FETCH c_uc_header INTO l_unit_name, l_unit_header_id;
1396: CLOSE c_uc_header;
1397:
1398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1399: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1400: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1402: END IF;
1403: END IF;
1396: CLOSE c_uc_header;
1397:
1398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1399: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1400: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1402: END IF;
1403: END IF;
1404:
1397:
1398: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1399: fnd_log.string(fnd_log.level_statement,L_DEBUG,'item instance : '|| visit_rec.item_instance_id);
1400: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_name : '|| l_unit_name);
1401: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_unit_header_id : '|| l_unit_header_id);
1402: END IF;
1403: END IF;
1404:
1405: -- To find simulation plan name for the simulation id from LTP view
1436: /*
1437: Get_Due_by_Date(p_visit_id => l_visit_id, x_due_by_date => l_due_date);
1438: */
1439:
1440: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1441: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Due by date : '|| l_due_date);
1442: END IF;
1443:
1444: -- Derive the visit end date
1437: Get_Due_by_Date(p_visit_id => l_visit_id, x_due_by_date => l_due_date);
1438: */
1439:
1440: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1441: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Due by date : '|| l_due_date);
1442: END IF;
1443:
1444: -- Derive the visit end date
1445: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1596: ( p_count => x_msg_count,
1597: p_data => x_msg_data,
1598: p_encoded => Fnd_Api.g_false);
1599:
1600: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1601: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1602: END IF;
1603:
1604: RETURN;
1597: p_data => x_msg_data,
1598: p_encoded => Fnd_Api.g_false);
1599:
1600: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1601: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
1602: END IF;
1603:
1604: RETURN;
1605: EXCEPTION
1813: BEGIN
1814: --------------------- Initialize -----------------------
1815: SAVEPOINT Create_Visit;
1816:
1817: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1818: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1819: END IF;
1820:
1821: -- Initialize message list if p_init_msg_list is set to TRUE.
1814: --------------------- Initialize -----------------------
1815: SAVEPOINT Create_Visit;
1816:
1817: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1818: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
1819: END IF;
1820:
1821: -- Initialize message list if p_init_msg_list is set to TRUE.
1822: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1850: --l_Visit_rec.status_code := 'PLANNING';
1851: l_Visit_rec.status_code := 'DRAFT';
1852: END IF;
1853:
1854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1855: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
1856: END IF;
1857:
1858: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1851: l_Visit_rec.status_code := 'DRAFT';
1852: END IF;
1853:
1854: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1855: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
1856: END IF;
1857:
1858: ----------- Starts defining all Dropdowns on Create Visit UI Screen-------------
1859: -- For SPACE CATEGORY CODE
1860: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
1861: l_Visit_rec.space_category_code := Null;
1862: END IF;
1863:
1864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1865: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
1866: END IF;
1867: ----------- End defining all Dropdowns on Create Visit UI Screen-------------
1868: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1861: l_Visit_rec.space_category_code := Null;
1862: END IF;
1863:
1864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1865: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
1866: END IF;
1867: ----------- End defining all Dropdowns on Create Visit UI Screen-------------
1868: ----------- Start defining and validate all LOVs on Create Visit UI Screen---
1869: -- For VISIT TYPE
1891: OPEN c_unit_det(l_Visit_rec.unit_name);
1892: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1893: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1894: IF c_unit_det%NOTFOUND THEN
1895: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1896: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1897: END IF;
1898: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1899: Fnd_Msg_Pub.ADD;
1892: FETCH c_unit_det INTO l_Visit_rec.unit_name,l_Visit_rec.serial_number,l_Visit_rec.item_instance_id,
1893: l_Visit_rec.inventory_item_id,l_Visit_rec.item_organization_id;
1894: IF c_unit_det%NOTFOUND THEN
1895: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1896: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1897: END IF;
1898: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1899: Fnd_Msg_Pub.ADD;
1900: CLOSE c_unit_det;
1901: RAISE Fnd_Api.G_EXC_ERROR;
1902: END IF;
1903: CLOSE c_unit_det;
1904:
1905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1906: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Serial Id found ' || l_Visit_rec.item_instance_id);
1907: END IF;
1908: ELSE
1909: l_Visit_rec.item_instance_id := NULL;
1902: END IF;
1903: CLOSE c_unit_det;
1904:
1905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1906: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Serial Id found ' || l_Visit_rec.item_instance_id);
1907: END IF;
1908: ELSE
1909: l_Visit_rec.item_instance_id := NULL;
1910: l_Visit_rec.inventory_item_id := NULL;
1938: /* ELSE
1939: l_Visit_rec.organization_id := NULL;*/
1940: END IF;
1941:
1942: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1943: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Org Name/ID' || l_Visit_rec.org_name || '-' || l_Visit_rec.organization_id );
1944: END IF;
1945:
1946: -- For DEPARTMENT
1939: l_Visit_rec.organization_id := NULL;*/
1940: END IF;
1941:
1942: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1943: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Org Name/ID' || l_Visit_rec.org_name || '-' || l_Visit_rec.organization_id );
1944: END IF;
1945:
1946: -- For DEPARTMENT
1947: -- To convert Department Name to Department Id
1981: /* ELSE
1982: l_Visit_rec.department_id := NULL;*/
1983: END IF;
1984:
1985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1986: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept Id/Name = ' || l_Visit_rec.department_id || ' - ' || l_Visit_rec.dept_name);
1987: END IF;
1988:
1989: -- For SERVICE REQUEST
1982: l_Visit_rec.department_id := NULL;*/
1983: END IF;
1984:
1985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1986: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Dept Id/Name = ' || l_Visit_rec.department_id || ' - ' || l_Visit_rec.dept_name);
1987: END IF;
1988:
1989: -- For SERVICE REQUEST
1990: -- To Convert Service Request Number to Service Request Id
2004:
2005: --Assign the returned value
2006: l_Visit_rec.service_request_id := l_service_id;
2007:
2008: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2009: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
2010: END IF;
2011: END IF;
2012:
2005: --Assign the returned value
2006: l_Visit_rec.service_request_id := l_service_id;
2007:
2008: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2009: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
2010: END IF;
2011: END IF;
2012:
2013: ----------- End defining and validate all LOVs on Create Visit UI Screen---
2025: l_Visit_rec.START_DATE := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
2026: END IF;
2027: END IF;
2028:
2029: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2030: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Start Date' || l_Visit_rec.START_DATE);
2031: END IF;
2032:
2033: --Added by amagrawa for Transit Visit
2026: END IF;
2027: END IF;
2028:
2029: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2030: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Start Date' || l_Visit_rec.START_DATE);
2031: END IF;
2032:
2033: --Added by amagrawa for Transit Visit
2034: -- For VISIT PLANNED END DATE TIME
2045: l_Visit_rec.plan_end_date := TO_DATE(l_date, 'DD-MM-YYYY HH24:MI');
2046: END IF;
2047: END IF;
2048:
2049: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2050: fnd_log.string(fnd_log.level_statement,L_DEBUG,'End Date' || l_Visit_rec.plan_end_date);
2051: END IF;
2052:
2053: -- To validate visit start date should be less than plan end date
2046: END IF;
2047: END IF;
2048:
2049: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2050: fnd_log.string(fnd_log.level_statement,L_DEBUG,'End Date' || l_Visit_rec.plan_end_date);
2051: END IF;
2052:
2053: -- To validate visit start date should be less than plan end date
2054: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: END IF;
2081: END IF;
2082:
2083: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2084: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Simulation Id' || l_Visit_rec.SIMULATION_PLAN_ID);
2085: END IF;
2086:
2087: -- Post 11.5.10 Enhancements
2080: END IF;
2081: END IF;
2082:
2083: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2084: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Simulation Id' || l_Visit_rec.SIMULATION_PLAN_ID);
2085: END IF;
2086:
2087: -- Post 11.5.10 Enhancements
2088: -- For PRIORITY
2270: END IF;
2271: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
2272:
2273: -------------------------------- Validate -----------------------------------------
2274: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2275: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Validate_Visit');
2276: END IF;
2277:
2278: Validate_Visit (
2271: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
2272:
2273: -------------------------------- Validate -----------------------------------------
2274: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2275: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Validate_Visit');
2276: END IF;
2277:
2278: Validate_Visit (
2279: p_api_version => l_api_version,
2285: x_msg_count => x_msg_count,
2286: x_msg_data => x_msg_data
2287: );
2288:
2289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2290: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
2291: END IF;
2292:
2293: -- Check for the ID.
2286: x_msg_data => x_msg_data
2287: );
2288:
2289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2290: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Validate_Visit - l_return_status : '||l_return_status);
2291: END IF;
2292:
2293: -- Check for the ID.
2294: IF (l_Visit_rec.VISIT_ID = Fnd_Api.g_miss_num OR l_Visit_rec.VISIT_ID IS Null) THEN
2314: -- then Null else the value call Default_Missing_Attribs procedure
2315: Default_Missing_Attribs
2316: ( p_x_visit_rec => l_Visit_rec );
2317:
2318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2319: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID : '||l_Visit_rec.VISIT_ID);
2320: END IF;
2321: END IF;
2322:
2315: Default_Missing_Attribs
2316: ( p_x_visit_rec => l_Visit_rec );
2317:
2318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2319: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID : '||l_Visit_rec.VISIT_ID);
2320: END IF;
2321: END IF;
2322:
2323: --Standard check to count messages
2341: END IF;
2342:
2343: l_Visit_rec.VISIT_NUMBER := l_visit_number;
2344:
2345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2346: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
2347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
2348: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
2349: END IF;
2342:
2343: l_Visit_rec.VISIT_NUMBER := l_visit_number;
2344:
2345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2346: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
2347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
2348: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
2349: END IF;
2350:
2343: l_Visit_rec.VISIT_NUMBER := l_visit_number;
2344:
2345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2346: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
2347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
2348: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
2349: END IF;
2350:
2351: -- Transit Check Changes Senthil.
2344:
2345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2346: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID =' || l_Visit_rec.VISIT_ID);
2347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Number =' || l_Visit_rec.VISIT_NUMBER);
2348: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Name =' || l_Visit_rec.VISIT_Name);
2349: END IF;
2350:
2351: -- Transit Check Changes Senthil.
2352: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2351: -- Transit Check Changes Senthil.
2352: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2353: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
2354:
2355: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2356: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
2357: END IF;
2358:
2359: -- Validate with UMP API
2352: IF l_Visit_rec.unit_schedule_id IS NOT NULL
2353: AND l_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM THEN
2354:
2355: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2356: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule');
2357: END IF;
2358:
2359: -- Validate with UMP API
2360: AHL_UA_FLIGHT_SCHEDULES_PVT.Validate_Flight_Schedule
2366: P_UNIT_CONFIG_ID => l_Visit_rec.unit_header_id,
2367: P_UNIT_SCHEDULE_ID => l_Visit_rec.unit_schedule_id
2368: );
2369:
2370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2371: 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);
2372: END IF;
2373:
2374: IF l_msg_count > 0 THEN
2367: P_UNIT_SCHEDULE_ID => l_Visit_rec.unit_schedule_id
2368: );
2369:
2370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2371: 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);
2372: END IF;
2373:
2374: IF l_msg_count > 0 THEN
2375: X_msg_count := l_msg_count;
2419: l_Visit_rec.PAST_DATED_VISIT_FLAG := 'N';
2420: END IF;
2421: END IF;
2422: IF (l_log_statement >= l_log_current_level) THEN
2423: fnd_log.string(l_log_statement,
2424: L_DEBUG,
2425: 'Past date visit flag is: '||l_Visit_rec.PAST_DATED_VISIT_FLAG);
2426: END IF;
2427: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: end
2426: END IF;
2427: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: end
2428:
2429: -------------------------- Insert --------------------------
2430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2431: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.Insert_Row');
2432: END IF;
2433: -- Invoke the table handler to create a record
2434: -- Post 11.5.10 Enhancements
2427: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: end
2428:
2429: -------------------------- Insert --------------------------
2430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2431: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.Insert_Row');
2432: END IF;
2433: -- Invoke the table handler to create a record
2434: -- Post 11.5.10 Enhancements
2435: -- Added Priority and Project Template Id
2510: --TCHIMIRA :: 14-Jun-2012 :: ER 14015560 ::added below flag
2511: X_AUTO_VISIT_TYPE_FLAG =>l_Visit_rec.AUTO_VISIT_TYPE_FLAG
2512: );
2513:
2514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2515: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.Insert_Row');
2516: END IF;
2517:
2518: -- set OUT value
2511: X_AUTO_VISIT_TYPE_FLAG =>l_Visit_rec.AUTO_VISIT_TYPE_FLAG
2512: );
2513:
2514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2515: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.Insert_Row');
2516: END IF;
2517:
2518: -- set OUT value
2519: p_x_visit_rec.VISIT_ID := l_Visit_rec.VISIT_ID;
2524: */
2525: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (l_visit_rec.visit_id);
2526: IF (l_is_comp_visit = 'N') THEN
2527:
2528: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2529: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES');
2530: END IF;
2531:
2532: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
2525: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (l_visit_rec.visit_id);
2526: IF (l_is_comp_visit = 'N') THEN
2527:
2528: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2529: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES');
2530: END IF;
2531:
2532: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
2533: -- The below call is no more needed since going forward default stages need not be created during visit creation
2543: x_msg_count => x_msg_count,
2544: x_msg_data => x_msg_data
2545: );
2546:
2547: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2548: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES - x_return_status : '||x_return_status);
2549: END IF;
2550: */
2551:
2544: x_msg_data => x_msg_data
2545: );
2546:
2547: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2548: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CREATE_STAGES - x_return_status : '||x_return_status);
2549: END IF;
2550: */
2551:
2552: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START
2564: x_msg_data => l_msg_data
2565: );
2566:
2567: IF (l_log_statement >= l_log_current_level) THEN
2568: fnd_log.string(l_log_statement,
2569: L_DEBUG,
2570: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
2571: END IF;
2572:
2610:
2611: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2612: -- since the visit type code is not null during creation of a visit, call the associate visit type to visit procedure
2613: -- This procedure creates stages, stage tasks, stage rules and stage-stage type association in a visit
2614: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2615: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit');
2616: END IF;
2617:
2618: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
2611: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2612: -- since the visit type code is not null during creation of a visit, call the associate visit type to visit procedure
2613: -- This procedure creates stages, stage tasks, stage rules and stage-stage type association in a visit
2614: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2615: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit');
2616: END IF;
2617:
2618: AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit (
2619: p_api_version => 1.0,
2625: x_return_status => l_return_status,
2626: x_msg_count => x_msg_count,
2627: x_msg_data => x_msg_data
2628: );
2629: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2630: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
2631: END IF;
2632:
2633:
2626: x_msg_count => x_msg_count,
2627: x_msg_data => x_msg_data
2628: );
2629: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2630: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
2631: END IF;
2632:
2633:
2634: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2639: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: start
2640:
2641: END IF; -- if l_is_comp_visit = 'N'
2642:
2643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2644: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS');
2645: END IF;
2646:
2647: AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS
2640:
2641: END IF; -- if l_is_comp_visit = 'N'
2642:
2643: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2644: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS');
2645: END IF;
2646:
2647: AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS
2648: (
2654: x_msg_data => x_msg_data,
2655: p_visit_rec => l_Visit_rec
2656: );
2657:
2658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2659: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2660: END IF;
2661:
2662: --Standard check to count messages
2655: p_visit_rec => l_Visit_rec
2656: );
2657:
2658: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2659: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2660: END IF;
2661:
2662: --Standard check to count messages
2663: l_msg_count := Fnd_Msg_Pub.count_msg;
2668: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2669: END IF;
2670: END IF;--if l_Visit_rec.visit_type_code IS NOT NULL
2671:
2672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2673: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2674: END IF;
2675:
2676: --Now adjust the times derivation for task
2669: END IF;
2670: END IF;--if l_Visit_rec.visit_type_code IS NOT NULL
2671:
2672: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2673: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
2674: END IF;
2675:
2676: --Now adjust the times derivation for task
2677: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
2682: x_msg_count => l_msg_count,
2683: x_msg_data => l_msg_data,
2684: p_visit_id => l_visit_rec.visit_id);
2685:
2686: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2688: END IF;
2689:
2690: --Standard check to count messages
2683: x_msg_data => l_msg_data,
2684: p_visit_id => l_visit_rec.visit_id);
2685:
2686: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2688: END IF;
2689:
2690: --Standard check to count messages
2691: l_msg_count := Fnd_Msg_Pub.count_msg;
2702: l_date_time := NVL(NVL(l_visit_rec.PLAN_END_DATE,
2703: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2704: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2705:
2706: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2707: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time - '||l_date_time);
2708: END IF;
2709:
2710: UPDATE ahl_visits_b
2703: AHL_VWP_TIMES_PVT.get_visit_end_time(l_Visit_rec.visit_id)),
2704: l_visit_rec.START_DATE + (FND_PROFILE.VALUE('AHL_TRANSIT_VISIT_DEFAULT_DURATION')/1440));
2705:
2706: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2707: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time - '||l_date_time);
2708: END IF;
2709:
2710: UPDATE ahl_visits_b
2711: SET close_date_time = l_date_time
2720: l_release_flag := 'N';
2721: END IF;
2722:
2723: IF l_release_flag IS NOT NULL THEN
2724: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2725: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
2726: END IF;
2727:
2728: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2721: END IF;
2722:
2723: IF l_release_flag IS NOT NULL THEN
2724: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2725: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
2726: END IF;
2727:
2728: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
2729: p_api_version => 1.0,
2736: x_return_status => x_return_status,
2737: x_msg_count => x_msg_count,
2738: x_msg_data => x_msg_data);
2739:
2740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2741: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit - x_return_status : '||x_return_status);
2742: END IF;
2743: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: STARTS
2744: -- If visit is created in planning status, draft WOs should be automatically created for the visit tasks
2737: x_msg_count => x_msg_count,
2738: x_msg_data => x_msg_data);
2739:
2740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2741: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit - x_return_status : '||x_return_status);
2742: END IF;
2743: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: STARTS
2744: -- If visit is created in planning status, draft WOs should be automatically created for the visit tasks
2745: ELSIF l_Visit_rec.visit_create_type = 'PLANNING' THEN
2753: x_msg_count => x_msg_count,
2754: x_msg_data => x_msg_data);
2755:
2756: IF (l_log_statement >= l_log_current_level) THEN
2757: fnd_log.string(l_log_statement,
2758: L_DEBUG,
2759: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || x_return_status );
2760: END IF;
2761:
2777: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2778: COMMIT;
2779: END IF;
2780:
2781: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2782: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2783: END IF;
2784: EXCEPTION
2785: WHEN Fnd_Api.g_exc_error THEN
2778: COMMIT;
2779: END IF;
2780:
2781: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2782: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
2783: END IF;
2784: EXCEPTION
2785: WHEN Fnd_Api.g_exc_error THEN
2786: ROLLBACK TO Create_Visit;
2916: BEGIN
2917: --------------------- Initialize -----------------------
2918: SAVEPOINT Copy_Visit;
2919:
2920: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2921: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2922: END IF;
2923:
2924: -- Initialize message list if p_init_msg_list is set to TRUE.
2917: --------------------- Initialize -----------------------
2918: SAVEPOINT Copy_Visit;
2919:
2920: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2921: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
2922: END IF;
2923:
2924: -- Initialize message list if p_init_msg_list is set to TRUE.
2925: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2936: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2937: END IF;
2938: ------------------------Start of API Body------------------------------------
2939: -----------------------Value/Id conversions ----------------------
2940: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2941: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Id - '||p_visit_id);
2942: END IF;
2943:
2944: OPEN c_visit(p_visit_id);
2937: END IF;
2938: ------------------------Start of API Body------------------------------------
2939: -----------------------Value/Id conversions ----------------------
2940: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2941: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Id - '||p_visit_id);
2942: END IF;
2943:
2944: OPEN c_visit(p_visit_id);
2945: FETCH c_visit INTO c_visit_rec;
2947: CLOSE c_Visit;
2948: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2949: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2950: Fnd_Msg_Pub.ADD;
2951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2953: END IF;
2954: END IF;
2955: RAISE Fnd_Api.g_exc_error;
2948: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2949: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2950: Fnd_Msg_Pub.ADD;
2951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2953: END IF;
2954: END IF;
2955: RAISE Fnd_Api.g_exc_error;
2956: ELSE
3077: ELSE
3078: l_task_department_id := c_task_rec.department_id;
3079: END IF;
3080:
3081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3082: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before AHL_VISIT_TASKS_PKG.INSERT_ROW');
3083: END IF;
3084:
3085: -- Create task in new visit
3078: l_task_department_id := c_task_rec.department_id;
3079: END IF;
3080:
3081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3082: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before AHL_VISIT_TASKS_PKG.INSERT_ROW');
3083: END IF;
3084:
3085: -- Create task in new visit
3086: AHL_VISIT_TASKS_PKG.INSERT_ROW
3145: X_LAST_UPDATE_DATE => SYSDATE,
3146: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
3147: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
3148:
3149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3150: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VISIT_TASKS_PKG.INSERT_ROW ');
3151: END IF;
3152:
3153: -- Create Planned Material if task type is planned or unplanned
3146: X_LAST_UPDATED_BY => Fnd_Global.USER_ID,
3147: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID );
3148:
3149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3150: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VISIT_TASKS_PKG.INSERT_ROW ');
3151: END IF;
3152:
3153: -- Create Planned Material if task type is planned or unplanned
3154: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
3151: END IF;
3152:
3153: -- Create Planned Material if task type is planned or unplanned
3154: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
3155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3157: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
3158: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
3159: END IF;
3152:
3153: -- Create Planned Material if task type is planned or unplanned
3154: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
3155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3157: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
3158: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
3159: END IF;
3160:
3153: -- Create Planned Material if task type is planned or unplanned
3154: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
3155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3157: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
3158: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
3159: END IF;
3160:
3161: -- To call LTP Process Materials API for APS Integration
3154: IF c_task_rec.task_type_code in ('PLANNED','UNPLANNED') THEN
3155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3156: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
3157: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit Task ID : ' || c_task_rec.visit_task_id);
3158: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Value of Visit ID : ' || l_visit_id);
3159: END IF;
3160:
3161: -- To call LTP Process Materials API for APS Integration
3162: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
3173: x_return_status => l_return_status,
3174: x_msg_count => l_msg_count,
3175: x_msg_data => l_msg_data );
3176:
3177: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3178: 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);
3179: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
3180: END IF;
3181:
3174: x_msg_count => l_msg_count,
3175: x_msg_data => l_msg_data );
3176:
3177: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3178: 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);
3179: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
3180: END IF;
3181:
3182: IF l_return_status <> 'S' THEN
3175: x_msg_data => l_msg_data );
3176:
3177: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3178: 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);
3179: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Planned Order Flag : ' || l_planned_order_flag);
3180: END IF;
3181:
3182: IF l_return_status <> 'S' THEN
3183: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3203: OPEN c_new_task_ID(l_task_link_rec.parent_task_id,l_visit_id);
3204: FETCH c_new_task_ID INTO l_new_parent_task_id;
3205: CLOSE c_new_task_ID;
3206:
3207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3208: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before inserting into AHL_TASK_LINKS');
3209: END IF;
3210:
3211: -- Create task link
3204: FETCH c_new_task_ID INTO l_new_parent_task_id;
3205: CLOSE c_new_task_ID;
3206:
3207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3208: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before inserting into AHL_TASK_LINKS');
3209: END IF;
3210:
3211: -- Create task link
3212: INSERT INTO AHL_TASK_LINKS
3266: l_task_link_rec.ATTRIBUTE14,
3267: l_task_link_rec.ATTRIBUTE15
3268: );
3269:
3270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3271: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After inserting into AHL_TASK_LINKS');
3272: END IF;
3273:
3274: END LOOP;
3267: l_task_link_rec.ATTRIBUTE15
3268: );
3269:
3270: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3271: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After inserting into AHL_TASK_LINKS');
3272: END IF;
3273:
3274: END LOOP;
3275: CLOSE c_visit_task_links;
3273:
3274: END LOOP;
3275: CLOSE c_visit_task_links;
3276:
3277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3278: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
3279: END IF;
3280:
3281: --Now adjust the times derivation for visit.
3274: END LOOP;
3275: CLOSE c_visit_task_links;
3276:
3277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3278: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
3279: END IF;
3280:
3281: --Now adjust the times derivation for visit.
3282: AHL_VWP_TIMES_PVT.Calculate_Task_Times
3288: x_msg_count => l_msg_count,
3289: x_msg_data => l_msg_data,
3290: p_visit_id => l_visit_id);
3291:
3292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3293: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
3294: END IF;
3295:
3296: -- Return ID of the new visit
3289: x_msg_data => l_msg_data,
3290: p_visit_id => l_visit_id);
3291:
3292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3293: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
3294: END IF;
3295:
3296: -- Return ID of the new visit
3297: p_x_Visit_rec.visit_id := l_visit_id;
3310: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3311: COMMIT;
3312: END IF;
3313:
3314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3315: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3316: END IF;
3317: EXCEPTION
3318: WHEN Fnd_Api.g_exc_error THEN
3311: COMMIT;
3312: END IF;
3313:
3314: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3315: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
3316: END IF;
3317: EXCEPTION
3318: WHEN Fnd_Api.g_exc_error THEN
3319: ROLLBACK TO Copy_Visit;
3563:
3564: --------------------- Initialize -----------------------
3565: SAVEPOINT Update_Visit;
3566:
3567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3568: 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);
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3564: --------------------- Initialize -----------------------
3565: SAVEPOINT Update_Visit;
3566:
3567: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3568: 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);
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
3591: CLOSE c_Visit;
3592: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3593: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3594: Fnd_Msg_Pub.ADD;
3595: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3596: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
3597: END IF;
3598: END IF;
3599: RAISE Fnd_Api.g_exc_error;
3592: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3593: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3594: Fnd_Msg_Pub.ADD;
3595: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3596: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
3597: END IF;
3598: END IF;
3599: RAISE Fnd_Api.g_exc_error;
3600: ELSE
3689:
3690: -------------------- UPDATE FOR VISIT ----------------
3691: -- Transit Visit change
3692: -- yazhou start
3693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3694: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
3695: END IF;
3696:
3697: -- not allowed to update if status code is not planning, released or partially released.
3690: -------------------- UPDATE FOR VISIT ----------------
3691: -- Transit Visit change
3692: -- yazhou start
3693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3694: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Status Code = ' || l_Visit_rec.status_code);
3695: END IF;
3696:
3697: -- not allowed to update if status code is not planning, released or partially released.
3698: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
3717: IF l_Visit_rec.space_category_code = Fnd_Api.G_MISS_CHAR THEN
3718: l_Visit_rec.space_category_code := Null;
3719: END IF;
3720:
3721: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3722: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
3723: END IF;
3724:
3725: ----------- LOVs on Update Visit UI Screen---
3718: l_Visit_rec.space_category_code := Null;
3719: END IF;
3720:
3721: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3722: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Space Category Code = ' || l_Visit_rec.space_category_code);
3723: END IF;
3724:
3725: ----------- LOVs on Update Visit UI Screen---
3726: -- For VISIT TYPE
3749: Fnd_Msg_Pub.ADD;
3750: RAISE Fnd_Api.G_EXC_ERROR;
3751: END IF;
3752:
3753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3754: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type' || l_Visit_rec.visit_type_name || '-' || l_Visit_rec.visit_type_code);
3755: END IF;
3756:
3757: -- For SERVICE REQUEST
3750: RAISE Fnd_Api.G_EXC_ERROR;
3751: END IF;
3752:
3753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3754: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type' || l_Visit_rec.visit_type_name || '-' || l_Visit_rec.visit_type_code);
3755: END IF;
3756:
3757: -- For SERVICE REQUEST
3758: -- To Convert Service Request Number to Service Request Id
3774:
3775: --Assign the returned value
3776: l_Visit_rec.service_request_id := l_service_id;
3777:
3778: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3779: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
3780: END IF;
3781: END IF;
3782: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3775: --Assign the returned value
3776: l_Visit_rec.service_request_id := l_service_id;
3777:
3778: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3779: fnd_log.string(fnd_log.level_statement,L_DEBUG,'SR Id/Number = ' || l_Visit_rec.service_request_id || '-' || l_Visit_rec.service_request_number );
3780: END IF;
3781: END IF;
3782: ----------- End defining and validate all LOVs on Update Visit UI Screen---
3783: -- For Priority
3818: END IF;
3819:
3820: l_visit_rec.organization_id := l_organization_id;
3821:
3822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3823: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3824: END IF;
3825: END IF;
3826:
3819:
3820: l_visit_rec.organization_id := l_organization_id;
3821:
3822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3823: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Organization ID' || l_visit_rec.organization_id);
3824: END IF;
3825: END IF;
3826:
3827: IF l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM THEN
3831: ELSE
3832: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3833: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3834: THEN
3835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3836: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3837: END IF;
3838:
3839: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3832: IF (l_visit_rec.DEPT_NAME IS NOT NULL AND l_visit_rec.DEPT_NAME <> Fnd_Api.G_MISS_CHAR )OR
3833: (l_visit_rec.department_id IS NOT NULL AND l_visit_rec.department_id <> Fnd_Api.G_MISS_NUM )
3834: THEN
3835: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3836: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Inside Dept Name/ID - '||l_visit_rec.DEPT_NAME ||' - '||l_visit_rec.department_id );
3837: END IF;
3838:
3839: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3840: ( p_organization_id => l_visit_rec.organization_id,
3860: Fnd_Msg_Pub.ADD;
3861: RAISE Fnd_Api.G_EXC_ERROR;
3862: END IF;
3863:
3864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3865: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3866: END IF;
3867: ELSE
3868: l_visit_rec.department_id := NULL;
3861: RAISE Fnd_Api.G_EXC_ERROR;
3862: END IF;
3863:
3864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3865: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Department ID' || l_visit_rec.department_id);
3866: END IF;
3867: ELSE
3868: l_visit_rec.department_id := NULL;
3869: END IF ; --Dept Not Null
4080: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011, commented out
4081: * following check as it's already present in Validate_Visit API.
4082: ----------------------- Validate ----------------------
4083: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4084: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4085: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Check_Visit_Items');
4086: END IF;
4087:
4088: Check_Visit_Items (
4081: * following check as it's already present in Validate_Visit API.
4082: ----------------------- Validate ----------------------
4083: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4084: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4085: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Check_Visit_Items');
4086: END IF;
4087:
4088: Check_Visit_Items (
4089: p_Visit_rec => l_visit_rec,
4090: p_validation_mode => Jtf_Plsql_Api.g_update,
4091: x_return_status => l_return_status
4092: );
4093:
4094: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4095: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
4096: END IF;
4097: END IF;
4098: */
4091: x_return_status => l_return_status
4092: );
4093:
4094: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4095: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items : l_return_status - '|| l_return_status);
4096: END IF;
4097: END IF;
4098: */
4099:
4163: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011, added call to Validate_Visit API
4164: * similar to what happens in Create_Visit API for common validations.
4165: */
4166: IF (l_log_statement >= l_log_current_level) THEN
4167: FND_LOG.string(l_log_statement, l_debug, ' Invoking Validate_Visit API');
4168: END IF;
4169:
4170: Validate_Visit
4171: (
4179: x_msg_data => l_msg_data
4180: );
4181:
4182: IF (l_log_statement >= l_log_current_level) THEN
4183: FND_LOG.string(l_log_statement, l_debug, ' After call to Validate_Visit API, Return Status = ' || l_return_status);
4184: END IF;
4185:
4186: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4187: x_return_status := l_return_status;
4239: FETCH c_visit_WO INTO l_workrec;
4240: IF c_visit_WO%FOUND THEN
4241: CLOSE c_visit_WO;
4242:
4243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4244: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
4245: END IF;
4246:
4247: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4240: IF c_visit_WO%FOUND THEN
4241: CLOSE c_visit_WO;
4242:
4243: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4244: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
4245: END IF;
4246:
4247: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4248: (p_api_version => 1.0,
4257: p_visit_id => l_Visit_rec.visit_id,
4258: p_unit_effectivity_id => NULL,
4259: p_workorder_id => NULL);
4260:
4261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4262: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4263: END IF;
4264:
4265: IF l_return_status <> 'S' THEN
4258: p_unit_effectivity_id => NULL,
4259: p_workorder_id => NULL);
4260:
4261: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4262: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4263: END IF;
4264:
4265: IF l_return_status <> 'S' THEN
4266: RAISE Fnd_Api.G_EXC_ERROR;
4285: FETCH c_visit_WO INTO l_workrec;
4286: IF c_visit_WO%found THEN
4287: close c_visit_WO;
4288:
4289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4290: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
4291: END IF;
4292:
4293: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4286: IF c_visit_WO%found THEN
4287: close c_visit_WO;
4288:
4289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4290: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
4291: END IF;
4292:
4293: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4294: (p_api_version => 1.0,
4303: p_visit_id => l_Visit_rec.visit_id,
4304: p_unit_effectivity_id => NULL,
4305: p_workorder_id => NULL);
4306:
4307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4308: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4309: END IF;
4310:
4311: IF l_return_status <> 'S' THEN
4304: p_unit_effectivity_id => NULL,
4305: p_workorder_id => NULL);
4306:
4307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4308: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
4309: END IF;
4310:
4311: IF l_return_status <> 'S' THEN
4312: RAISE Fnd_Api.G_EXC_ERROR;
4329: l_workorder_rec.DEPARTMENT_ID := l_visit_rec.department_id;
4330: -- l_workorder_rec.SCHEDULED_START_DATE := l_date_time_start;
4331: -- l_workorder_rec.SCHEDULED_END_DATE := l_visit_end_date;
4332:
4333: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4334: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
4335: END IF;
4336:
4337: AHL_PRD_WORKORDER_PVT.update_job
4330: -- l_workorder_rec.SCHEDULED_START_DATE := l_date_time_start;
4331: -- l_workorder_rec.SCHEDULED_END_DATE := l_visit_end_date;
4332:
4333: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4334: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT - Before calling AHL_PRD_WORKORDER_PVT.update_job API');
4335: END IF;
4336:
4337: AHL_PRD_WORKORDER_PVT.update_job
4338: ( p_api_version =>1.0,
4353: CLOSE c_visit_WO;
4354: RAISE Fnd_Api.G_EXC_ERROR;
4355: END IF;
4356:
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4358: 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);
4359: END IF;
4360: END IF; -- End of visit workorder found
4361: CLOSE c_visit_WO;
4354: RAISE Fnd_Api.G_EXC_ERROR;
4355: END IF;
4356:
4357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4358: 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);
4359: END IF;
4360: END IF; -- End of visit workorder found
4361: CLOSE c_visit_WO;
4362:
4360: END IF; -- End of visit workorder found
4361: CLOSE c_visit_WO;
4362:
4363: -- To find all tasks for the visit so as to update task start and end datetime
4364: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4365: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - To update task start and end date time');
4366: END IF;
4367:
4368: OPEN c_task(l_visit_rec.visit_id);
4361: CLOSE c_visit_WO;
4362:
4363: -- To find all tasks for the visit so as to update task start and end datetime
4364: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4365: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - To update task start and end date time');
4366: END IF;
4367:
4368: OPEN c_task(l_visit_rec.visit_id);
4369: LOOP
4367:
4368: OPEN c_task(l_visit_rec.visit_id);
4369: LOOP
4370: FETCH c_task INTO c_task_rec;
4371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
4373: END IF;
4374:
4375: -- Update workorder for the task only if task is using visit department
4368: OPEN c_task(l_visit_rec.visit_id);
4369: LOOP
4370: FETCH c_task INTO c_task_rec;
4371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4372: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - ID = ' || c_task_rec.visit_task_id);
4373: END IF;
4374:
4375: -- Update workorder for the task only if task is using visit department
4376: IF c_task_rec.department_id is null OR c_task_rec.department_id = FND_API.g_miss_num THEN
4377: OPEN c_Task_WO(c_task_rec.visit_task_id);
4378: FETCH c_Task_WO into l_task_workrec;
4379:
4380: IF c_Task_WO%found THEN
4381: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4382: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder found ');
4383: END IF;
4384: --Update with new times from table
4385: --l_workorder_rec.SCHEDULED_START_DATE := c_task_rec.START_DATE_TIME;
4378: FETCH c_Task_WO into l_task_workrec;
4379:
4380: IF c_Task_WO%found THEN
4381: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4382: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder found ');
4383: END IF;
4384: --Update with new times from table
4385: --l_workorder_rec.SCHEDULED_START_DATE := c_task_rec.START_DATE_TIME;
4386: --l_workorder_rec.SCHEDULED_END_DATE := c_task_rec.END_DATE_TIME;
4387: l_workorder_rec.DEPARTMENT_ID := l_visit_rec.department_id;
4388: l_workorder_rec.WORKORDER_ID := l_task_workrec.workorder_id;
4389: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
4390:
4391: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4392: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
4393: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
4394: END IF;
4395:
4388: l_workorder_rec.WORKORDER_ID := l_task_workrec.workorder_id;
4389: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
4390:
4391: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4392: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
4393: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
4394: END IF;
4395:
4396: AHL_PRD_WORKORDER_PVT.update_job
4389: l_workorder_rec.OBJECT_VERSION_NUMBER := l_task_workrec.object_version_number;
4390:
4391: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4392: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Workorder Id = ' || l_workorder_rec.WORKORDER_ID);
4393: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - Before calling AHL_PRD_WORKORDER_PVT.update_job');
4394: END IF;
4395:
4396: AHL_PRD_WORKORDER_PVT.update_job
4397: ( p_api_version =>1.0,
4407: p_x_prd_workorder_rec =>l_workorder_rec,
4408: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
4409: );
4410:
4411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4412: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4413: END IF;
4414:
4415: IF l_return_status <> 'S' THEN
4408: P_X_PRD_WORKOPER_TBL =>l_workoper_tbl
4409: );
4410:
4411: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4412: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
4413: END IF;
4414:
4415: IF l_return_status <> 'S' THEN
4416: CLOSE c_Task_WO;
4438:
4439: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: start
4440: -- If the visit status is 'DRAFT', pass the Past dated visit flag value accordingly
4441: -- For NON-DRAFT statused visits, user cannot update the start date from past to future or vice-versa
4442: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4443: fnd_log.string(fnd_log.level_statement,L_DEBUG,'status of the visit is: '||c_visit_rec.status_code||' ,and start date is - '||l_date_time_start);
4444: END IF;
4445: IF c_visit_rec.status_code = 'DRAFT' THEN
4446: IF l_date_time_start IS NOT NULL THEN
4439: --VWPE ER-12424063 :: tchimira :: 15-FEB -2011 :: start
4440: -- If the visit status is 'DRAFT', pass the Past dated visit flag value accordingly
4441: -- For NON-DRAFT statused visits, user cannot update the start date from past to future or vice-versa
4442: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4443: fnd_log.string(fnd_log.level_statement,L_DEBUG,'status of the visit is: '||c_visit_rec.status_code||' ,and start date is - '||l_date_time_start);
4444: END IF;
4445: IF c_visit_rec.status_code = 'DRAFT' THEN
4446: IF l_date_time_start IS NOT NULL THEN
4447: -- Added below condition by tchimira for CMP ER changes
4480: l_auto_visit_type_flag := l_Visit_rec.auto_visit_type_flag;
4481: END IF;
4482:
4483: -------------------------- Update --------------------
4484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4485: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.UPDATE_ROW');
4486: END IF;
4487:
4488: Ahl_Visits_Pkg.UPDATE_ROW (
4481: END IF;
4482:
4483: -------------------------- Update --------------------
4484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4485: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Ahl_Visits_Pkg.UPDATE_ROW');
4486: END IF;
4487:
4488: Ahl_Visits_Pkg.UPDATE_ROW (
4489: X_VISIT_ID => l_Visit_rec.VISIT_ID,
4557: X_AUTO_VISIT_TYPE_FLAG => l_AUTO_VISIT_TYPE_FLAG
4558: );
4559:
4560:
4561: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4562: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.UPDATE_ROW');
4563: END IF;
4564:
4565: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START :: START
4558: );
4559:
4560:
4561: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4562: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Ahl_Visits_Pkg.UPDATE_ROW');
4563: END IF;
4564:
4565: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: START :: START
4566: IF c_visit_rec.status_code <> 'DRAFT' THEN
4568: IF (c_Visit_rec.start_date_time <> l_date_time_start
4569: OR c_Visit_rec.close_date_time <> l_date_time_end) THEN
4570:
4571: IF (l_log_statement >= l_log_current_level) THEN
4572: fnd_log.string(l_log_statement,
4573: L_DEBUG,
4574: 'Before calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs');
4575: END IF;
4576:
4583: p_x_scheduled_start_date => l_date_time_start,
4584: p_x_scheduled_end_date => l_date_time_end);
4585:
4586: IF (l_log_statement >= l_log_current_level) THEN
4587: fnd_log.string(l_log_statement,
4588: L_DEBUG,
4589: 'After calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Return Status = ' || l_return_status);
4590: END IF;
4591:
4590: END IF;
4591:
4592: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
4593: IF (l_log_statement >= l_log_current_level) THEN
4594: fnd_log.string(l_log_statement,
4595: L_DEBUG,
4596: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
4597: l_msg_count || ', message data: ' || l_msg_data);
4598: END IF;
4641: x_return_status => l_return_status,
4642: x_msg_count => x_msg_count,
4643: x_msg_data => x_msg_data
4644: );
4645: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4646: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
4647: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4642: x_msg_count => x_msg_count,
4643: x_msg_data => x_msg_data
4644: );
4645: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4646: fnd_log.string(fnd_log.level_statement,L_DEBUG,'TASK - After calling AHL_VWP_VISITS_STAGES_PVT.Assoc_VisitType_to_Visit - l_return_status : '||l_return_status);
4647: END IF;
4648:
4649: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4650: RAISE Fnd_Api.g_exc_unexpected_error;
4657: --VWPE ER-12424063:: tchimira :: 15-FEB -2011 :: end
4658: END IF; -- if l_is_comp_visit = 'N'
4659:
4660: --PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Space dates validation :: START
4661: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4662: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.START_DATE_TIME);
4663: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_start);
4664: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.close_date_time);
4665: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_end);
4658: END IF; -- if l_is_comp_visit = 'N'
4659:
4660: --PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Space dates validation :: START
4661: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4662: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.START_DATE_TIME);
4663: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_start);
4664: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.close_date_time);
4665: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_end);
4666: END IF;
4659:
4660: --PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Space dates validation :: START
4661: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4662: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.START_DATE_TIME);
4663: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_start);
4664: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.close_date_time);
4665: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_end);
4666: END IF;
4667:
4660: --PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Space dates validation :: START
4661: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4662: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.START_DATE_TIME);
4663: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_start);
4664: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.close_date_time);
4665: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_end);
4666: END IF;
4667:
4668: l_is_start_date_changed := false;
4661: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4662: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.START_DATE_TIME);
4663: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_start);
4664: fnd_log.string(fnd_log.level_statement,L_DEBUG,'c_Visit_rec.START_DATE_TIME = ' || c_Visit_rec.close_date_time);
4665: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_date_time_start = ' ||l_date_time_end);
4666: END IF;
4667:
4668: l_is_start_date_changed := false;
4669: l_is_close_date_changed := false;-- VWPE 12730539:: PRAKKUM :: 02-AUG-2011
4729: ELSIF l_is_close_date_changed THEN -- On visit end change, validate stage dates against visit end date
4730:
4731: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: START
4732: IF (l_log_statement >= l_log_current_level) THEN
4733: fnd_log.string(l_log_statement,L_DEBUG,'Before calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES ');
4734: END IF;
4735:
4736: AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES( p_visit_id => l_Visit_rec.visit_id,
4737: x_return_status => l_return_status,
4738: x_msg_count => l_msg_count,
4739: x_msg_data => l_msg_data);
4740:
4741: IF (l_log_statement >= l_log_current_level) THEN
4742: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
4743: END IF;
4744:
4745: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4746: x_msg_count := l_msg_count;
4772: END IF;
4773: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Validation before calling this API to get tasks update count :: END
4774: END IF; -- if l_is_comp_visit = 'N'
4775:
4776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4777: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
4778: END IF;
4779:
4780: -- Added cxcheng POST11510--------------
4773: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: Validation before calling this API to get tasks update count :: END
4774: END IF; -- if l_is_comp_visit = 'N'
4775:
4776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4777: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
4778: END IF;
4779:
4780: -- Added cxcheng POST11510--------------
4781: AHL_VWP_TIMES_PVT.Calculate_Task_Times
4787: x_msg_count => l_msg_count,
4788: x_msg_data => l_msg_data,
4789: p_visit_id => l_visit_rec.visit_id);
4790:
4791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4792: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
4793: END IF;
4794:
4795: IF l_return_status <> 'S' THEN
4788: x_msg_data => l_msg_data,
4789: p_visit_id => l_visit_rec.visit_id);
4790:
4791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4792: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
4793: END IF;
4794:
4795: IF l_return_status <> 'S' THEN
4796: RAISE Fnd_Api.G_EXC_ERROR;
4797: END IF;
4798:
4799: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
4800: IF space_changed_flag = 'Y' THEN
4801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4802: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment');
4803: END IF;
4804:
4805: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
4798:
4799: -- To call LTP process to delete or adjust space assignments if space changed flag is set to "Y"
4800: IF space_changed_flag = 'Y' THEN
4801: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4802: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment');
4803: END IF;
4804:
4805: l_Space_Assignment_Rec.VISIT_ID := l_Visit_rec.VISIT_ID;
4806: AHL_LTP_SPACE_ASSIGN_PVT.Delete_Space_assignment
4813: x_msg_count => x_msg_count,
4814: x_msg_data => x_msg_data
4815: );
4816:
4817: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4818: 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);
4819: END IF;
4820:
4821: IF l_return_status <> 'S' THEN
4814: x_msg_data => x_msg_data
4815: );
4816:
4817: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4818: 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);
4819: END IF;
4820:
4821: IF l_return_status <> 'S' THEN
4822: RAISE Fnd_Api.G_EXC_ERROR;
4837: ESTIMATED_PRICE = NULL,
4838: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
4839: WHERE VISIT_ID = l_Visit_rec.visit_id;
4840:
4841: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4842: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for the visit');
4843: END IF;
4844:
4845: -- To update all tasks prices of tasks under this visit
4838: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
4839: WHERE VISIT_ID = l_Visit_rec.visit_id;
4840:
4841: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4842: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for the visit');
4843: END IF;
4844:
4845: -- To update all tasks prices of tasks under this visit
4846: OPEN c_task(l_visit_rec.visit_id);
4858: l_tasks_ovn_updated_count := l_tasks_ovn_updated_count +1; -- VWPE :: PRAKKUM :: 26-APR-2011
4859: END LOOP;
4860: CLOSE c_task;
4861:
4862: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4863: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for all the tasks in the visit');
4864: END IF;
4865: END IF;
4866: END IF;
4859: END LOOP;
4860: CLOSE c_task;
4861:
4862: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4863: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After updating actual and estimated price for all the tasks in the visit');
4864: END IF;
4865: END IF;
4866: END IF;
4867:
4876: AND ( l_date_time_start IS NULL OR l_date_time_start = Fnd_Api.G_MISS_DATE OR
4877: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
4878: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
4879: THEN
4880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4881: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4882: END IF;
4883:
4884: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4877: l_visit_rec.organization_id IS NULL OR l_visit_rec.organization_id = Fnd_Api.G_MISS_NUM OR
4878: l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM ))
4879: THEN
4880: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4881: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4882: END IF;
4883:
4884: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4885: p_api_version => 1.0,
4895: x_return_status => l_return_status,
4896: x_msg_count => x_msg_count,
4897: x_msg_data => x_msg_data );
4898:
4899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4900: 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);
4901: END IF;
4902:
4903: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4896: x_msg_count => x_msg_count,
4897: x_msg_data => x_msg_data );
4898:
4899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4900: 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);
4901: END IF;
4902:
4903: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4904: RAISE FND_API.G_EXC_ERROR;
4923: l_visit_rec.organization_id <> c_visit_rec.organization_id) THEN
4924: Handle_Visit_Org_Change(p_visit_id => l_visit_rec.Visit_Id);
4925: END IF;
4926: -- End Changes by surrkuma on 15-JUL-2010 for Bug 9901811
4927: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4928: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4929: END IF;
4930:
4931: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
4924: Handle_Visit_Org_Change(p_visit_id => l_visit_rec.Visit_Id);
4925: END IF;
4926: -- End Changes by surrkuma on 15-JUL-2010 for Bug 9901811
4927: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4928: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
4929: END IF;
4930:
4931: /* MANESING::Component Maintenance Planning Project, 05-Jul-2011
4932: * There is no need to consider Stage materials for Component Visits
4937:
4938: -- TCHIMIRA :: 16-JUL-2011 :: VWPE: ER:12730539 :: START
4939: -- For every MR of the visit, associate the materials based on the MR Profile to the stage tasks
4940: FOR l_task_detl_rec IN get_sum_task_det (l_visit_rec.Visit_Id) LOOP
4941: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4942: fnd_log.string(fnd_log.level_statement, L_DEBUG,
4943: 'Before calling Associate_Stage_Materials and mr_id is : '||l_task_detl_rec.mr_id||'l_unit_eff_id: '||l_task_detl_rec.unit_effectivity_id
4944: ||'p_visit_id: '||l_visit_rec.Visit_Id||'l_instance_id: '||l_task_detl_rec.instance_id);
4945: END IF;
4938: -- TCHIMIRA :: 16-JUL-2011 :: VWPE: ER:12730539 :: START
4939: -- For every MR of the visit, associate the materials based on the MR Profile to the stage tasks
4940: FOR l_task_detl_rec IN get_sum_task_det (l_visit_rec.Visit_Id) LOOP
4941: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4942: fnd_log.string(fnd_log.level_statement, L_DEBUG,
4943: 'Before calling Associate_Stage_Materials and mr_id is : '||l_task_detl_rec.mr_id||'l_unit_eff_id: '||l_task_detl_rec.unit_effectivity_id
4944: ||'p_visit_id: '||l_visit_rec.Visit_Id||'l_instance_id: '||l_task_detl_rec.instance_id);
4945: END IF;
4946: AHL_LTP_REQST_MATRL_PVT.Associate_Stage_Materials (
4956: x_return_status => l_return_status,
4957: x_msg_count => l_msg_count,
4958: x_msg_data => l_msg_data);
4959:
4960: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4961: fnd_log.string(fnd_log.level_statement, L_DEBUG,
4962: 'After calling Associate_Stage_Materials, Return Status: ' || l_return_status);
4963: END IF;
4964:
4957: x_msg_count => l_msg_count,
4958: x_msg_data => l_msg_data);
4959:
4960: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4961: fnd_log.string(fnd_log.level_statement, L_DEBUG,
4962: 'After calling Associate_Stage_Materials, Return Status: ' || l_return_status);
4963: END IF;
4964:
4965: -- Check Error Message stack.
4990: x_return_status => l_return_status,
4991: x_msg_count => x_msg_count,
4992: x_msg_data => x_msg_data );
4993:
4994: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4995: 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);
4996: END IF;
4997:
4998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4991: x_msg_count => x_msg_count,
4992: x_msg_data => x_msg_data );
4993:
4994: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4995: 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);
4996: END IF;
4997:
4998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4999: RAISE FND_API.G_EXC_ERROR;
5014: END IF;
5015: END IF;
5016:
5017: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: START
5018: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5019: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_tasks_ovn_updated_count : '||l_tasks_ovn_updated_count);
5020: END IF;
5021: --Return ovn updated count to caller
5022: p_x_visit_rec.TASKS_OVN_UPDATED_COUNT := l_tasks_ovn_updated_count;
5015: END IF;
5016:
5017: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: START
5018: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5019: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_tasks_ovn_updated_count : '||l_tasks_ovn_updated_count);
5020: END IF;
5021: --Return ovn updated count to caller
5022: p_x_visit_rec.TASKS_OVN_UPDATED_COUNT := l_tasks_ovn_updated_count;
5023: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: END
5022: p_x_visit_rec.TASKS_OVN_UPDATED_COUNT := l_tasks_ovn_updated_count;
5023: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: END
5024:
5025: -- PRAKKUM :: VWPE: ER:12730539 :: 06-JUL-2011 :: START
5026: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5027: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_stages_ovn_updated_count : '||l_stages_ovn_updated_count);
5028: END IF;
5029: --Return ovn updated count to caller
5030: p_x_visit_rec.STAGES_OVN_UPDATED_COUNT := l_stages_ovn_updated_count;
5023: -- PRAKKUM :: VWPE: ER:12424063 :: 11-APR-2011 :: END
5024:
5025: -- PRAKKUM :: VWPE: ER:12730539 :: 06-JUL-2011 :: START
5026: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5027: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_stages_ovn_updated_count : '||l_stages_ovn_updated_count);
5028: END IF;
5029: --Return ovn updated count to caller
5030: p_x_visit_rec.STAGES_OVN_UPDATED_COUNT := l_stages_ovn_updated_count;
5031: -- PRAKKUM :: VWPE: ER:12730539 :: 06-JUL-2011 :: END
5041: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5042: COMMIT;
5043: END IF;
5044:
5045: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5046: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5047: END IF;
5048: EXCEPTION
5049: WHEN Fnd_Api.g_exc_error THEN
5042: COMMIT;
5043: END IF;
5044:
5045: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5046: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5047: END IF;
5048: EXCEPTION
5049: WHEN Fnd_Api.g_exc_error THEN
5050: ROLLBACK TO Update_Visit;
5100: l_task_id NUMBER;
5101: l_count NUMBER;
5102:
5103: BEGIN
5104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5105: fnd_log.string
5106: (
5107: fnd_log.level_procedure,
5108: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
5101: l_count NUMBER;
5102:
5103: BEGIN
5104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5105: fnd_log.string
5106: (
5107: fnd_log.level_procedure,
5108: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
5109: 'At the start of Delete_Visit -> Delete Task'
5103: BEGIN
5104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5105: fnd_log.string
5106: (
5107: fnd_log.level_procedure,
5108: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.begin',
5109: 'At the start of Delete_Visit -> Delete Task'
5110: );
5111: END IF;
5109: 'At the start of Delete_Visit -> Delete Task'
5110: );
5111: END IF;
5112:
5113: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5114: fnd_log.string
5115: (
5116: fnd_log.level_statement,
5117: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5110: );
5111: END IF;
5112:
5113: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5114: fnd_log.string
5115: (
5116: fnd_log.level_statement,
5117: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5118: 'p_visit_task_id : '||p_Visit_Task_Id
5112:
5113: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5114: fnd_log.string
5115: (
5116: fnd_log.level_statement,
5117: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5118: 'p_visit_task_id : '||p_Visit_Task_Id
5119: );
5120:
5173: THEN
5174: -- Method call was not successful, raise error
5175: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
5176: Fnd_Msg_Pub.ADD;
5177: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5178: fnd_log.string
5179: (
5180: fnd_log.level_error,
5181: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5174: -- Method call was not successful, raise error
5175: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
5176: Fnd_Msg_Pub.ADD;
5177: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5178: fnd_log.string
5179: (
5180: fnd_log.level_error,
5181: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5182: 'Failed to delete project task association for task '||p_visit_task_id
5176: Fnd_Msg_Pub.ADD;
5177: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5178: fnd_log.string
5179: (
5180: fnd_log.level_error,
5181: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
5182: 'Failed to delete project task association for task '||p_visit_task_id
5183: );
5184: END IF;
5184: END IF;
5185: RAISE Fnd_Api.G_EXC_ERROR;
5186: END IF;
5187:
5188: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5189: fnd_log.string
5190: (
5191: fnd_log.level_procedure,
5192: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
5185: RAISE Fnd_Api.G_EXC_ERROR;
5186: END IF;
5187:
5188: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5189: fnd_log.string
5190: (
5191: fnd_log.level_procedure,
5192: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
5193: 'At the end of Delete_Visit -> Delete Task'
5187:
5188: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5189: fnd_log.string
5190: (
5191: fnd_log.level_procedure,
5192: 'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME||'.end',
5193: 'At the end of Delete_Visit -> Delete Task'
5194: );
5195: END IF;
5296: BEGIN
5297: --------------------- Initialize -----------------------
5298: SAVEPOINT Delete_Visit;
5299:
5300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5301: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5302: END IF;
5303:
5304: -- Initialize message list if p_init_msg_list is set to TRUE.
5297: --------------------- Initialize -----------------------
5298: SAVEPOINT Delete_Visit;
5299:
5300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5301: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5302: END IF;
5303:
5304: -- Initialize message list if p_init_msg_list is set to TRUE.
5305: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5316: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5317: END IF;
5318: ------------------------Start of API Body------------------------------------
5319: ------------------------ Delete ------------------------
5320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5321: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID - ' ||p_visit_id );
5322: END IF;
5323:
5324: OPEN c_Visit(p_visit_id);
5317: END IF;
5318: ------------------------Start of API Body------------------------------------
5319: ------------------------ Delete ------------------------
5320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5321: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit ID - ' ||p_visit_id );
5322: END IF;
5323:
5324: OPEN c_Visit(p_visit_id);
5325: FETCH c_Visit INTO l_Visit_rec;
5327: CLOSE c_Visit;
5328: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5329: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5330: Fnd_Msg_Pub.ADD;
5331: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5332: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
5333: END IF;
5334: END IF;
5335: RAISE Fnd_Api.g_exc_error;
5328: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5329: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5330: Fnd_Msg_Pub.ADD;
5331: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5332: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
5333: END IF;
5334: END IF;
5335: RAISE Fnd_Api.g_exc_error;
5336: END IF;
5339: -- Check the status of visit, if 'planning' then only delete
5340: IF UPPER(l_visit_rec.status_code) NOT IN ('PLANNING','DRAFT') THEN
5341: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
5342: Fnd_Msg_Pub.ADD;
5343: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5344: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
5345: END IF;
5346: RAISE Fnd_Api.G_EXC_ERROR;
5347: END IF;
5340: IF UPPER(l_visit_rec.status_code) NOT IN ('PLANNING','DRAFT') THEN
5341: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
5342: Fnd_Msg_Pub.ADD;
5343: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5344: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
5345: END IF;
5346: RAISE Fnd_Api.G_EXC_ERROR;
5347: END IF;
5348:
5351: FETCH c_Material INTO c_Material_rec;
5352: IF c_Material%FOUND THEN
5353: l_soft_delete_flag := 'Y';
5354:
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_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5357: END IF;
5358:
5359: -- Removing planned materials for the visit
5352: IF c_Material%FOUND THEN
5353: l_soft_delete_flag := 'Y';
5354:
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_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
5357: END IF;
5358:
5359: -- Removing planned materials for the visit
5360: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5370: x_return_status => l_return_status,
5371: x_msg_count => x_msg_count,
5372: x_msg_data => x_msg_data);
5373:
5374: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5375: 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);
5376: END IF;
5377:
5378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5371: x_msg_count => x_msg_count,
5372: x_msg_data => x_msg_data);
5373:
5374: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5375: 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);
5376: END IF;
5377:
5378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5379: CLOSE c_Material;
5381: END IF;
5382: END IF;
5383: CLOSE c_Material;
5384:
5385: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5386: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
5387: END IF;
5388: -- Delete all associated simulated visits if the visit to be deleted is a primary visit
5389: AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits
5382: END IF;
5383: CLOSE c_Material;
5384:
5385: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5386: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
5387: END IF;
5388: -- Delete all associated simulated visits if the visit to be deleted is a primary visit
5389: AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits
5390: (p_api_version => l_api_version,
5395: x_return_status => l_return_status,
5396: x_msg_count => l_msg_count,
5397: x_msg_data => l_msg_data);
5398:
5399: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5400: 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);
5401: END IF;
5402:
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5396: x_msg_count => l_msg_count,
5397: x_msg_data => l_msg_data);
5398:
5399: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5400: 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);
5401: END IF;
5402:
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5404: -- Check Error Message stack.
5402:
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5404: -- Check Error Message stack.
5405: x_msg_count := FND_MSG_PUB.count_msg;
5406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5407: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
5408: END IF;
5409: RAISE Fnd_Api.g_exc_error;
5410: END IF;
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5404: -- Check Error Message stack.
5405: x_msg_count := FND_MSG_PUB.count_msg;
5406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5407: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
5408: END IF;
5409: RAISE Fnd_Api.g_exc_error;
5410: END IF;
5411:
5414: LOOP
5415: FETCH c_Tasks_csr INTO l_tasks_rec;
5416: EXIT WHEN c_Tasks_csr%NOTFOUND;
5417:
5418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5419: 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);
5420: END IF;
5421:
5422: l_soft_delete_flag := 'Y'; -- If tasks are set only soft delete needs to be done.
5415: FETCH c_Tasks_csr INTO l_tasks_rec;
5416: EXIT WHEN c_Tasks_csr%NOTFOUND;
5417:
5418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5419: 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);
5420: END IF;
5421:
5422: l_soft_delete_flag := 'Y'; -- If tasks are set only soft delete needs to be done.
5423:
5432: x_return_status => l_return_status,
5433: x_msg_count => x_msg_count,
5434: x_msg_data => x_msg_data);
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 Delete_Task - l_return_status : '||l_return_status);
5438: END IF;
5439:
5440: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5433: x_msg_count => x_msg_count,
5434: x_msg_data => x_msg_data);
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 Delete_Task - l_return_status : '||l_return_status);
5438: END IF;
5439:
5440: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5441: CLOSE c_Tasks_csr;
5453: FETCH c_workorder_csr INTO l_workorder_rec;
5454: -- Master workorder not found
5455: IF c_workorder_csr%FOUND THEN
5456: l_soft_delete_flag := 'Y';
5457: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5458: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Visit Has workorder associated with status code '||l_workorder_rec.STATUS_CODE);
5459: END IF;
5460:
5461: OPEN c_active_workorder(p_visit_id);
5454: -- Master workorder not found
5455: IF c_workorder_csr%FOUND THEN
5456: l_soft_delete_flag := 'Y';
5457: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5458: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Visit Has workorder associated with status code '||l_workorder_rec.STATUS_CODE);
5459: END IF;
5460:
5461: OPEN c_active_workorder(p_visit_id);
5462: FETCH c_active_workorder INTO l_active_workorder_rec;
5466: l_prd_workorder_rec.workorder_id := l_active_workorder_rec.workorder_id;
5467: l_prd_workorder_rec.object_version_number := l_active_workorder_rec.object_version_number;
5468: l_prd_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5469:
5470: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5471: 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);
5472: END IF;
5473:
5474: AHL_PRD_WORKORDER_PVT.update_job
5467: l_prd_workorder_rec.object_version_number := l_active_workorder_rec.object_version_number;
5468: l_prd_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5469:
5470: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5471: 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);
5472: END IF;
5473:
5474: AHL_PRD_WORKORDER_PVT.update_job
5475: ( p_api_version =>1.0,
5485: p_x_prd_workorder_rec =>l_prd_workorder_rec,
5486: p_x_prd_workoper_tbl =>l_workorder_tbl
5487: );
5488:
5489: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5490: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
5491: END IF;
5492:
5493: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5486: p_x_prd_workoper_tbl =>l_workorder_tbl
5487: );
5488:
5489: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5490: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_PRD_WORKORDER_PVT.update_job - l_return_status : '||l_return_status);
5491: END IF;
5492:
5493: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5494: CLOSE c_active_workorder;
5499: CLOSE c_active_workorder;
5500: END IF;
5501: CLOSE c_workorder_csr;
5502:
5503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5504: fnd_log.string (fnd_log.level_statement,L_DEBUG,'PROJECT_ID : '||l_visit_rec.PROJECT_ID);
5505: END IF;
5506:
5507: -- Delete or cancel project and project tasks
5500: END IF;
5501: CLOSE c_workorder_csr;
5502:
5503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5504: fnd_log.string (fnd_log.level_statement,L_DEBUG,'PROJECT_ID : '||l_visit_rec.PROJECT_ID);
5505: END IF;
5506:
5507: -- Delete or cancel project and project tasks
5508: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
5507: -- Delete or cancel project and project tasks
5508: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
5509: IF l_soft_delete_flag = 'Y' THEN
5510: -- Update the project status to 'Rejected'
5511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5512: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Update_project');
5513: END IF;
5514:
5515: AHL_VWP_PROJ_PROD_PVT.Update_project
5508: IF l_visit_rec.PROJECT_ID IS NOT NULL THEN
5509: IF l_soft_delete_flag = 'Y' THEN
5510: -- Update the project status to 'Rejected'
5511: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5512: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Update_project');
5513: END IF;
5514:
5515: AHL_VWP_PROJ_PROD_PVT.Update_project
5516: ( p_api_version => p_api_version,
5523: x_msg_count => x_msg_count,
5524: x_msg_data => x_msg_data
5525: );
5526:
5527: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5528: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
5529: END IF;
5530:
5531: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5524: x_msg_data => x_msg_data
5525: );
5526:
5527: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5528: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
5529: END IF;
5530:
5531: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5532: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5535: END IF;
5536: ELSE
5537: -- When a visit is hard deleted than the related projects is also deleted
5538: -- Call Delete_Project local procedure to delete project and its tasks
5539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5540: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Delete_Project ');
5541: END IF;
5542:
5543: AHL_VWP_PROJ_PROD_PVT.Delete_Project
5536: ELSE
5537: -- When a visit is hard deleted than the related projects is also deleted
5538: -- Call Delete_Project local procedure to delete project and its tasks
5539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5540: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_PROJ_PROD_PVT.Delete_Project ');
5541: END IF;
5542:
5543: AHL_VWP_PROJ_PROD_PVT.Delete_Project
5544: ( p_api_version => p_api_version,
5550: x_return_status => l_return_status,
5551: x_msg_count => x_msg_count,
5552: x_msg_data => x_msg_data);
5553:
5554: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5555: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
5556: END IF;
5557:
5558: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5551: x_msg_count => x_msg_count,
5552: x_msg_data => x_msg_data);
5553:
5554: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5555: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Delete_Project - l_return_status : '||l_return_status);
5556: END IF;
5557:
5558: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5559: -- Method call was not successful, raise error
5573: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (l_visit_rec.visit_id);
5574: IF (l_is_comp_visit = 'N') THEN
5575:
5576: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: changed the API name from DELETE_STAGES to DELETE_ALL_STAGES
5577: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5578: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES ');
5579: END IF;
5580:
5581: AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES
5574: IF (l_is_comp_visit = 'N') THEN
5575:
5576: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: changed the API name from DELETE_STAGES to DELETE_ALL_STAGES
5577: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5578: fnd_log.string (fnd_log.level_statement,L_DEBUG,'before calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES ');
5579: END IF;
5580:
5581: AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES
5582: ( p_api_version => p_api_version,
5589: x_msg_count => x_msg_count,
5590: x_msg_data => x_msg_data
5591: );
5592:
5593: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5594: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES - l_return_status : '||l_return_status );
5595: END IF;
5596:
5597: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5590: x_msg_data => x_msg_data
5591: );
5592:
5593: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5594: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_VISITS_STAGES_PVT.DELETE_ALL_STAGES - l_return_status : '||l_return_status );
5595: END IF;
5596:
5597: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5598: RAISE Fnd_Api.G_EXC_ERROR;
5631: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5632: COMMIT;
5633: END IF;
5634:
5635: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5636: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5637: END IF;
5638: EXCEPTION
5639: WHEN Fnd_Api.g_exc_error THEN
5632: COMMIT;
5633: END IF;
5634:
5635: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5636: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5637: END IF;
5638: EXCEPTION
5639: WHEN Fnd_Api.g_exc_error THEN
5640: ROLLBACK TO Delete_Visit;
5727: l_overlap_comp_visits VARCHAR2(2000);
5728:
5729: BEGIN
5730: --------------------- Initialize -----------------------
5731: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5732: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5733: END IF;
5734:
5735: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5728:
5729: BEGIN
5730: --------------------- Initialize -----------------------
5731: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5732: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5733: END IF;
5734:
5735: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5736: Fnd_Msg_Pub.initialize;
5746: END IF;
5747: x_return_status := Fnd_Api.g_ret_sts_success;
5748:
5749: ---------------------- validate ------------------------
5750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5751: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
5752: END IF;
5753:
5754: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
5747: x_return_status := Fnd_Api.g_ret_sts_success;
5748:
5749: ---------------------- validate ------------------------
5750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5751: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Calling Check_Visit_Items');
5752: END IF;
5753:
5754: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
5755:
5768: p_validation_mode => l_validation_mode, -- Jtf_Plsql_Api.g_create,
5769: x_return_status => l_return_status
5770: );
5771:
5772: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5773: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
5774: END IF;
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5769: x_return_status => l_return_status
5770: );
5771:
5772: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5773: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Check_Visit_Items - l_return_status : '||l_return_status);
5774: END IF;
5775:
5776: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5777: RAISE Fnd_Api.g_exc_unexpected_error;
5802: -- 1. Validate Component Visit if it's in Draft or Planning status.
5803: IF (p_visit_rec.status_code IN ('DRAFT', 'PLANNING')) THEN
5804:
5805: IF (l_log_statement >= l_log_current_level) THEN
5806: FND_LOG.string(l_log_statement, l_debug, ' Invoking Validate_Component_Visit API for visit_id = ' || p_visit_rec.visit_id);
5807: END IF;
5808:
5809: Validate_Component_Visit
5810: (
5819: x_msg_data => l_msg_data
5820: );
5821:
5822: IF (l_log_statement >= l_log_current_level) THEN
5823: FND_LOG.string(l_log_statement, l_debug, ' After call to Validate_Component_Visit API, Return Status = ' || l_return_status);
5824: END IF;
5825:
5826: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5827: x_return_status := l_return_status;
5887: p_count => x_msg_count,
5888: p_data => x_msg_data
5889: );
5890:
5891: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5892: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5893: END IF;
5894:
5895: EXCEPTION
5888: p_data => x_msg_data
5889: );
5890:
5891: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5892: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
5893: END IF;
5894:
5895: EXCEPTION
5896: WHEN Fnd_Api.g_exc_error THEN
5957: --
5958:
5959: BEGIN
5960: IF (l_log_procedure >= l_log_current_level) THEN
5961: FND_LOG.string(l_log_procedure, l_full_name || '.begin', 'At the start of the API');
5962: END IF;
5963:
5964: -- Standard call to check for call compatibility
5965: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
5976: x_return_status := FND_API.G_RET_STS_SUCCESS;
5977: l_msg_count := FND_MSG_PUB.count_msg;
5978:
5979: IF (l_log_statement >= l_log_current_level) THEN
5980: FND_LOG.string(l_log_statement, l_full_name, ' visit_id = ' || p_visit_rec.visit_id);
5981: END IF;
5982:
5983: -- Check the mandatory attributes that are required for a Component Visit
5984: -- 1. Organization
5983: -- Check the mandatory attributes that are required for a Component Visit
5984: -- 1. Organization
5985: IF (p_visit_rec.organization_id IS NULL) THEN
5986: IF (l_log_statement >= l_log_current_level) THEN
5987: FND_LOG.string(l_log_statement, l_full_name, ' 1. Organization failed.');
5988: END IF;
5989: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_ORG_NULL');
5990: FND_MSG_PUB.add;
5991: END IF;
5992:
5993: -- 2. Department
5994: IF (p_visit_rec.department_id IS NULL) THEN
5995: IF (l_log_statement >= l_log_current_level) THEN
5996: FND_LOG.string(l_log_statement, l_full_name, ' 2. Department failed.');
5997: END IF;
5998: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_DEPT_NULL');
5999: FND_MSG_PUB.add;
6000: END IF;
6001:
6002: -- 3. Start Date
6003: IF (p_visit_rec.start_date IS NULL) THEN
6004: IF (l_log_statement >= l_log_current_level) THEN
6005: FND_LOG.string(l_log_statement, l_full_name, ' 3. Start Date.');
6006: END IF;
6007: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_ST_DT_NULL');
6008: FND_MSG_PUB.add;
6009: END IF;
6010:
6011: -- 4. Planned End Date
6012: IF (p_visit_rec.plan_end_date IS NULL) THEN
6013: IF (l_log_statement >= l_log_current_level) THEN
6014: FND_LOG.string(l_log_statement, l_full_name, ' 4. Planned End Date.');
6015: END IF;
6016: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_END_DT_NULL');
6017: FND_MSG_PUB.add;
6018: END IF;
6019:
6020: -- 5. Planning and In-Repair Sub Inventory and Locator
6021: IF (p_visit_rec.comp_planning_loc_id IS NULL OR p_visit_rec.comp_inrepair_loc_id IS NULL) THEN
6022: IF (l_log_statement >= l_log_current_level) THEN
6023: FND_LOG.string(l_log_statement, l_full_name, ' 5. Planning and In-Repair Sub Inventory and Locator.');
6024: END IF;
6025: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_SUBINV_NULL');
6026: FND_MSG_PUB.add;
6027: END IF;
6028:
6029: -- Firm Visit Flag must be NO
6030: IF (p_visit_rec.firmed_flag = 'Y') THEN
6031: IF (l_log_statement >= l_log_current_level) THEN
6032: FND_LOG.string(l_log_statement, l_full_name, ' 6.Firm Visit Flag must be NO.');
6033: END IF;
6034: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_NO_FIRM');
6035: FND_MSG_PUB.add;
6036: END IF;
6037:
6038: -- If any errors occured, then raise them.
6039: IF (FND_MSG_PUB.count_msg > l_msg_count) THEN
6040: IF (l_log_statement >= l_log_current_level) THEN
6041: FND_LOG.string(l_log_statement, l_full_name, ' Some validations in Validate_Component_Visit API failed.');
6042: END IF;
6043: RAISE FND_API.G_EXC_ERROR;
6044: END IF;
6045:
6043: RAISE FND_API.G_EXC_ERROR;
6044: END IF;
6045:
6046: IF (l_log_procedure >= l_log_current_level) THEN
6047: FND_LOG.string(l_log_procedure, l_full_name || '.end', 'At the end of the API');
6048: END IF;
6049:
6050: EXCEPTION
6051: WHEN FND_API.G_EXC_ERROR THEN
6054: p_count => x_msg_count,
6055: p_data => x_msg_data);
6056:
6057: IF (l_log_statement >= l_log_current_level) THEN
6058: FND_LOG.string(l_log_statement, l_full_name, ' Expected Exception: ' || x_msg_data);
6059: END IF;
6060:
6061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6066:
6067: IF (l_log_statement >= l_log_current_level) THEN
6068: FND_LOG.string(l_log_statement, l_full_name, ' Unexpected Exception: ' || x_msg_data);
6069: END IF;
6070:
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6080: p_count => x_msg_count,
6081: p_data => x_msg_data);
6082:
6083: IF (l_log_statement >= l_log_current_level) THEN
6084: FND_LOG.string(l_log_statement, l_full_name, ' Other Exception: ' || x_msg_data);
6085: END IF;
6086:
6087: END Validate_Component_Visit;
6088: ------------------------------------------------------------------------------------
6383: BEGIN
6384: --------------------- initialize -----------------------
6385: SAVEPOINT Close_Visit;
6386:
6387: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6388: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6389: END IF;
6390:
6391: -- Initialize message list if p_init_msg_list is set to TRUE.
6384: --------------------- initialize -----------------------
6385: SAVEPOINT Close_Visit;
6386:
6387: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6388: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6389: END IF;
6390:
6391: -- Initialize message list if p_init_msg_list is set to TRUE.
6392: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6429: OPEN get_default_stage_wo (p_visit_id);
6430: FETCH get_default_stage_wo INTO l_workorder_id;
6431: CLOSE get_default_stage_wo;
6432:
6433: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6434: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs l_workorder_id= '||l_workorder_id);
6435: END IF;
6436:
6437: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6430: FETCH get_default_stage_wo INTO l_workorder_id;
6431: CLOSE get_default_stage_wo;
6432:
6433: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6434: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs l_workorder_id= '||l_workorder_id);
6435: END IF;
6436:
6437: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6438: (p_api_version => 1.0,
6447: p_visit_id => NULL,
6448: p_unit_effectivity_id => NULL,
6449: p_workorder_id => l_workorder_id);
6450:
6451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6452: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
6453: END IF;
6454:
6455: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6448: p_unit_effectivity_id => NULL,
6449: p_workorder_id => l_workorder_id);
6450:
6451: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6452: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
6453: END IF;
6454:
6455: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6456: x_msg_count := l_msg_count;
6496: l_cost_price_rec.visit_id := c_visit_rec.visit_id;
6497: l_cost_price_rec.cost_session_id := p_x_cost_session_id;
6498: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
6499:
6500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6501: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
6502: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
6503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
6504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
6497: l_cost_price_rec.cost_session_id := p_x_cost_session_id;
6498: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
6499:
6500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6501: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
6502: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
6503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
6504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
6505: END IF;
6498: l_cost_price_rec.mr_session_id := p_x_mr_session_id;
6499:
6500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6501: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
6502: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
6503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
6504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
6505: END IF;
6506:
6499:
6500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6501: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
6502: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
6503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
6504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
6505: END IF;
6506:
6507: --Call ahl_vwp_cost_pvt.calculate_wo_cost
6500: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6501: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost visit ID:' || l_cost_price_rec.VISIT_ID);
6502: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || l_cost_price_rec.COST_SESSION_ID);
6503: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || l_cost_price_rec.MR_SESSION_ID);
6504: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Calculate_WO_Cost');
6505: END IF;
6506:
6507: --Call ahl_vwp_cost_pvt.calculate_wo_cost
6508: AHL_VWP_COST_PVT.Calculate_WO_Cost(
6512: p_validation_level => p_validation_level,
6513: p_x_cost_price_rec => l_cost_price_rec,
6514: x_return_status => l_return_status);
6515:
6516: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6517: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Calculate_WO_Cost : l_return_status - '||l_return_status);
6518: END IF;
6519:
6520: -- Check Error Message stack.
6513: p_x_cost_price_rec => l_cost_price_rec,
6514: x_return_status => l_return_status);
6515:
6516: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6517: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Calculate_WO_Cost : l_return_status - '||l_return_status);
6518: END IF;
6519:
6520: -- Check Error Message stack.
6521: l_msg_count := FND_MSG_PUB.count_msg;
6533: FETCH c_wip_entity INTO l_wip_entity_rec;
6534: EXIT WHEN c_wip_entity%NOTFOUND;
6535:
6536: -- Call ahl_vwp_cost_pvt.get_wo_cost
6537: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6538: 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);
6539: END IF;
6540:
6541: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
6534: EXIT WHEN c_wip_entity%NOTFOUND;
6535:
6536: -- Call ahl_vwp_cost_pvt.get_wo_cost
6537: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6538: 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);
6539: END IF;
6540:
6541: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
6542:
6539: END IF;
6540:
6541: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
6542:
6543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6544: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for all workorers');
6545: END IF;
6546:
6547: AHL_VWP_COST_PVT.Get_WO_Cost(
6540:
6541: IF l_wip_entity_rec.wip_entity_id IS NOT NULL THEN
6542:
6543: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6544: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_VWP_COST_PVT.Get_WO_Cost for all workorers');
6545: END IF;
6546:
6547: AHL_VWP_COST_PVT.Get_WO_Cost(
6548: p_Session_Id => l_cost_price_rec.mr_session_id,
6551: x_actual_cost => l_actual_cost,
6552: x_estimated_cost => l_estimated_cost,
6553: x_return_status => l_return_status);
6554:
6555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6556: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
6557: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
6558: END IF;
6559:
6552: x_estimated_cost => l_estimated_cost,
6553: x_return_status => l_return_status);
6554:
6555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6556: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
6557: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
6558: END IF;
6559:
6560: -- Update with actual cost
6553: x_return_status => l_return_status);
6554:
6555: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6556: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Get_WO_Cost : l_return_status - '||l_return_status);
6557: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the actual cost of WO to - '||l_actual_cost);
6558: END IF;
6559:
6560: -- Update with actual cost
6561: UPDATE ahl_visit_tasks_b
6580: FETCH c_summ_task INTO l_summ_task_rec;
6581: EXIT WHEN c_summ_task%NOTFOUND;
6582: IF l_summ_task_rec.visit_task_id IS NOT NULL THEN
6583:
6584: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6585: 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);
6586: END IF;
6587:
6588: AHL_VWP_COST_PVT.Get_WO_Cost(
6581: EXIT WHEN c_summ_task%NOTFOUND;
6582: IF l_summ_task_rec.visit_task_id IS NOT NULL THEN
6583:
6584: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6585: 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);
6586: END IF;
6587:
6588: AHL_VWP_COST_PVT.Get_WO_Cost(
6589: p_Session_Id => l_cost_price_rec.mr_session_id,
6592: x_actual_cost => l_actual_cost,
6593: x_estimated_cost => l_estimated_cost,
6594: x_return_status => l_return_status);
6595:
6596: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6597: 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);
6598: END IF;
6599:
6600: --Update task record with actual cost
6593: x_estimated_cost => l_estimated_cost,
6594: x_return_status => l_return_status);
6595:
6596: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6597: 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);
6598: END IF;
6599:
6600: --Update task record with actual cost
6601: UPDATE ahl_visit_tasks_b
6621: x_return_status => x_return_status,
6622: x_msg_count => x_msg_count,
6623: x_msg_data => x_msg_data);*/
6624:
6625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6626: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_COMPLETIONS_PVT.complete_master_wo');
6627: END IF;
6628:
6629: x_return_status := AHL_COMPLETIONS_PVT.complete_master_wo
6622: x_msg_count => x_msg_count,
6623: x_msg_data => x_msg_data);*/
6624:
6625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6626: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before Calling AHL_COMPLETIONS_PVT.complete_master_wo');
6627: END IF;
6628:
6629: x_return_status := AHL_COMPLETIONS_PVT.complete_master_wo
6630: (
6632: p_workorder_id => null,
6633: p_ue_id => null
6634: );
6635:
6636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6637: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
6638: END IF;
6639:
6640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6633: p_ue_id => null
6634: );
6635:
6636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6637: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_COMPLETIONS_PVT.complete_master_wo');
6638: END IF;
6639:
6640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6641: -- Check Error Message stack.
6643: RAISE Fnd_Api.g_exc_error;
6644: END IF;
6645: -- yazhou 28Sept2005 ends
6646:
6647: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6648: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating Visit Status to CLOSED..');
6649: END IF;
6650:
6651: -- To update visit to CLOSED status
6644: END IF;
6645: -- yazhou 28Sept2005 ends
6646:
6647: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6648: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating Visit Status to CLOSED..');
6649: END IF;
6650:
6651: -- To update visit to CLOSED status
6652: UPDATE AHL_VISITS_B
6681: OPEN c_visit (p_visit_id);
6682: FETCH c_visit INTO c_visit_rec;
6683: CLOSE c_visit;
6684:
6685: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6686: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
6687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
6688: END IF;
6689:
6682: FETCH c_visit INTO c_visit_rec;
6683: CLOSE c_visit;
6684:
6685: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6686: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
6687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
6688: END IF;
6689:
6690: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
6683: CLOSE c_visit;
6684:
6685: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6686: fnd_log.string(fnd_log.level_statement,L_DEBUG,'VISIT STATUS - ' || c_visit_rec.status_code);
6687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
6688: END IF;
6689:
6690: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
6691: p_api_version => 1.0,
6702: x_return_status => x_return_status,
6703: x_msg_count => x_msg_count,
6704: x_msg_data => x_msg_data );
6705:
6706: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6707: 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);
6708: END IF;
6709:
6710: l_msg_count := FND_MSG_PUB.count_msg;
6703: x_msg_count => x_msg_count,
6704: x_msg_data => x_msg_data );
6705:
6706: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6707: 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);
6708: END IF;
6709:
6710: l_msg_count := FND_MSG_PUB.count_msg;
6711: IF l_msg_count > 0 THEN
6713: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6714: RAISE FND_API.G_EXC_ERROR;
6715: END IF;
6716:
6717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
6719: END IF;
6720: -- End Code on 17th Feb 2004 by shbhanda
6721: END IF;
6714: RAISE FND_API.G_EXC_ERROR;
6715: END IF;
6716:
6717: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6718: fnd_log.string(fnd_log.level_statement,L_DEBUG,'l_planned_order_flag - '||l_planned_order_flag);
6719: END IF;
6720: -- End Code on 17th Feb 2004 by shbhanda
6721: END IF;
6722: ELSE
6724: Fnd_Msg_Pub.ADD;
6725: RAISE Fnd_Api.g_exc_error;
6726: END IF;
6727:
6728: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6729: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
6730: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
6731: END IF;
6732: ---------------------------End of API Body-------------------------------------
6725: RAISE Fnd_Api.g_exc_error;
6726: END IF;
6727:
6728: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6729: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
6730: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
6731: END IF;
6732: ---------------------------End of API Body-------------------------------------
6733:
6726: END IF;
6727:
6728: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6729: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Cost Session ID: ' || p_x_cost_session_id);
6730: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Mr Session ID:' || p_x_mr_session_id);
6731: END IF;
6732: ---------------------------End of API Body-------------------------------------
6733:
6734: -- Standard check of p_commit.
6740: p_encoded => Fnd_Api.g_false,
6741: p_count => x_msg_count,
6742: p_data => x_msg_data);
6743:
6744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6745: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
6746: END IF;
6747: EXCEPTION
6748: WHEN Fnd_Api.g_exc_error THEN
6741: p_count => x_msg_count,
6742: p_data => x_msg_data);
6743:
6744: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6745: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
6746: END IF;
6747: EXCEPTION
6748: WHEN Fnd_Api.g_exc_error THEN
6749: ROLLBACK TO Close_Visit;
6903: BEGIN
6904: --------------------- initialize -----------------------
6905: SAVEPOINT Cancel_Visit;
6906:
6907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6908: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6909: END IF;
6910:
6911: -- Initialize message list if p_init_msg_list is set to TRUE.
6904: --------------------- initialize -----------------------
6905: SAVEPOINT Cancel_Visit;
6906:
6907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
6908: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id = ' || p_visit_id);
6909: END IF;
6910:
6911: -- Initialize message list if p_init_msg_list is set to TRUE.
6912: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6937: -- Changed by jaramana on 05-NOV-2009
6938: -- Removed the validations added for the bug 9087120
6939: -- All work order status validation will now be done by AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6940:
6941: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6942: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
6943: END IF;
6944: -- Added by shbhanda for Transit check changes on 06/25/2004
6945: -- Code Start
6938: -- Removed the validations added for the bug 9087120
6939: -- All work order status validation will now be done by AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
6940:
6941: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6942: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs');
6943: END IF;
6944: -- Added by shbhanda for Transit check changes on 06/25/2004
6945: -- Code Start
6946: -- Call Cancel_Visit_Jobs API
6959: p_visit_id => p_visit_id,
6960: p_unit_effectivity_id => NULL,
6961: p_workorder_id => NULL);
6962:
6963: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6964: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
6965: END IF;
6966: -- SKPATHAK :: Bug 9115894 :: 13-NOV-2009
6967: -- If return status is V, same should be carried over to the caller
6960: p_unit_effectivity_id => NULL,
6961: p_workorder_id => NULL);
6962:
6963: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6964: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
6965: END IF;
6966: -- SKPATHAK :: Bug 9115894 :: 13-NOV-2009
6967: -- If return status is V, same should be carried over to the caller
6968: IF l_return_status = G_VALIDATION_ERROR_STATUS THEN
6987: OPEN c_unplanned_task_UEs(p_visit_id);
6988: LOOP
6989: FETCH c_unplanned_task_UEs INTO l_ue_id;
6990: EXIT WHEN c_unplanned_task_UEs%NOTFOUND;
6991: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6992: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'About to call AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY with p_unit_effectivity_id = ' || l_ue_id);
6993: END IF;
6994: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6995: (
6988: LOOP
6989: FETCH c_unplanned_task_UEs INTO l_ue_id;
6990: EXIT WHEN c_unplanned_task_UEs%NOTFOUND;
6991: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6992: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'About to call AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY with p_unit_effectivity_id = ' || l_ue_id);
6993: END IF;
6994: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6995: (
6996: p_api_version => 1.0,
7000: x_msg_count => l_msg_count,
7001: x_msg_data => x_msg_data,
7002: p_unit_effectivity_id => l_ue_id
7003: );
7004: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7005: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'Returned from AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY, l_return_status = ' || l_return_status);
7006: END IF;
7007: IF ((l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
7008: CLOSE c_unplanned_task_UEs;
7001: x_msg_data => x_msg_data,
7002: p_unit_effectivity_id => l_ue_id
7003: );
7004: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7005: fnd_log.string(fnd_log.level_statement, L_DEBUG, 'Returned from AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY, l_return_status = ' || l_return_status);
7006: END IF;
7007: IF ((l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
7008: CLOSE c_unplanned_task_UEs;
7009: RAISE FND_API.G_EXC_ERROR;
7028: END LOOP;
7029: END IF;
7030:
7031:
7032: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7033: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
7034: END IF;
7035:
7036: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
7029: END IF;
7030:
7031:
7032: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7033: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials');
7034: END IF;
7035:
7036: -- Call AHL_LTP_REQST_MATRL_PVT.Process_Planned_Material
7037: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
7049: x_return_status => l_return_status,
7050: x_msg_count => l_msg_count,
7051: x_msg_data => l_msg_data);
7052:
7053: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7054: 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);
7055: END IF;
7056:
7057: -- Check return status.
7050: x_msg_count => l_msg_count,
7051: x_msg_data => l_msg_data);
7052:
7053: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7054: 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);
7055: END IF;
7056:
7057: -- Check return status.
7058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7067: FETCH c_task INTO c_task_rec;
7068: EXIT WHEN c_task%NOTFOUND;
7069: -- update the task status to cancelled
7070:
7071: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7072: 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);
7073: END IF;
7074:
7075: UPDATE AHL_VISIT_TASKS_B
7068: EXIT WHEN c_task%NOTFOUND;
7069: -- update the task status to cancelled
7070:
7071: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7072: 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);
7073: END IF;
7074:
7075: UPDATE AHL_VISIT_TASKS_B
7076: SET STATUS_CODE = 'CANCELLED',
7082: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
7083: END LOOP;
7084: CLOSE c_task;
7085:
7086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7087: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the visit status to CANCELLED..');
7088: END IF;
7089: -- update visit status
7090: UPDATE AHL_VISITS_B
7083: END LOOP;
7084: CLOSE c_task;
7085:
7086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7087: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Updating the visit status to CANCELLED..');
7088: END IF;
7089: -- update visit status
7090: UPDATE AHL_VISITS_B
7091: SET STATUS_CODE = 'CANCELLED',
7100: -- Check if visit project id is null
7101: -- if not null then update PA_PROJECTS_ALL and set the
7102: -- project status code to 'CLOSED'
7103: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
7104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7105: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Update_Project');
7106: END IF;
7107:
7108: AHL_VWP_PROJ_PROD_PVT.Update_Project(
7101: -- if not null then update PA_PROJECTS_ALL and set the
7102: -- project status code to 'CLOSED'
7103: IF c_visit_rec.PROJECT_ID IS NOT NULL THEN
7104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7105: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Update_Project');
7106: END IF;
7107:
7108: AHL_VWP_PROJ_PROD_PVT.Update_Project(
7109: p_api_version => p_api_version,
7116: x_msg_count => x_msg_count,
7117: x_msg_data => x_msg_data);
7118: --The following END IF was commented out by jeli on 07/27/04, otherwise it couldn't pass the compilation.
7119:
7120: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7121: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
7122: END IF;
7123:
7124: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
7117: x_msg_data => x_msg_data);
7118: --The following END IF was commented out by jeli on 07/27/04, otherwise it couldn't pass the compilation.
7119:
7120: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7121: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project - x_return_status : '||x_return_status);
7122: END IF;
7123:
7124: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
7125: -- Method call was not successful, raise error
7124: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
7125: -- Method call was not successful, raise error
7126: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
7127: Fnd_Msg_Pub.ADD;
7128: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7129: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
7130: 'Cant update the project to Rejected status');
7131: END IF;
7132: RAISE Fnd_Api.G_EXC_ERROR;
7125: -- Method call was not successful, raise error
7126: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
7127: Fnd_Msg_Pub.ADD;
7128: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7129: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
7130: 'Cant update the project to Rejected status');
7131: END IF;
7132: RAISE Fnd_Api.G_EXC_ERROR;
7133: END IF;
7148: OPEN c_sr_ovn(l_service_request_id);
7149: FETCH c_sr_ovn into c_sr_ovn_rec;
7150: CLOSE c_sr_ovn;
7151:
7152: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7153: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling CS_ServiceRequest_PUB.Update_Status - SR Id : '||l_service_request_id);
7154: END IF;
7155: -- yazhou 29-Jun-2006 starts
7156: -- bug#5359943
7149: FETCH c_sr_ovn into c_sr_ovn_rec;
7150: CLOSE c_sr_ovn;
7151:
7152: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7153: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling CS_ServiceRequest_PUB.Update_Status - SR Id : '||l_service_request_id);
7154: END IF;
7155: -- yazhou 29-Jun-2006 starts
7156: -- bug#5359943
7157: -- Pass p_status_id as 1 (OPEN)
7181: -- p_status => 'OPEN',
7182: x_interaction_id => l_interaction_id
7183: );
7184:
7185: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7186: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
7187: END IF;
7188: -- yazhou 29-Jun-2006 ends
7189: -- Check return status.
7182: x_interaction_id => l_interaction_id
7183: );
7184:
7185: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7186: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling CS_ServiceRequest_PUB.Update_Status - l_return_status : '||l_return_status);
7187: END IF;
7188: -- yazhou 29-Jun-2006 ends
7189: -- Check return status.
7190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7213: p_encoded => Fnd_Api.g_false,
7214: p_count => x_msg_count,
7215: p_data => x_msg_data);
7216:
7217: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7218: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
7219: END IF;
7220: EXCEPTION
7221: -- SKPATHAK :: Bug 9115894 :: 13-NOV-2009
7214: p_count => x_msg_count,
7215: p_data => x_msg_data);
7216:
7217: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7218: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
7219: END IF;
7220: EXCEPTION
7221: -- SKPATHAK :: Bug 9115894 :: 13-NOV-2009
7222: WHEN G_VALIDATION_EXCEPTION THEN
7314: --------------------- Initialize -----------------------
7315: SAVEPOINT Synchronize_Visit;
7316:
7317: -- Check if API is called in debug mode. If yes, enable debug.
7318: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7319: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
7320: END IF;
7321:
7322: -- Initialize message list if p_init_msg_list is set to TRUE.
7315: SAVEPOINT Synchronize_Visit;
7316:
7317: -- Check if API is called in debug mode. If yes, enable debug.
7318: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7319: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure : Visit Id - '||l_visit_rec.visit_id);
7320: END IF;
7321:
7322: -- Initialize message list if p_init_msg_list is set to TRUE.
7323: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7342: CLOSE c_Visit;
7343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
7344: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7345: Fnd_Msg_Pub.ADD;
7346: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
7348: END IF;
7349: END IF;
7350: RAISE Fnd_Api.g_exc_error;
7343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
7344: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7345: Fnd_Msg_Pub.ADD;
7346: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
7348: END IF;
7349: END IF;
7350: RAISE Fnd_Api.g_exc_error;
7351: ELSE
7361: p_x_visit_rec.DESCRIPTION := c_Visit_rec.DESCRIPTION;
7362: p_x_visit_rec.PRIORITY_CODE := c_Visit_rec.PRIORITY_CODE;
7363: p_x_visit_rec.PROJ_TEMPLATE_ID := c_Visit_rec.PROJECT_TEMPLATE_ID;
7364:
7365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7366: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
7367: END IF;
7368:
7369: IF c_Visit_rec.status_code IN ('PLANNING','DRAFT') THEN
7362: p_x_visit_rec.PRIORITY_CODE := c_Visit_rec.PRIORITY_CODE;
7363: p_x_visit_rec.PROJ_TEMPLATE_ID := c_Visit_rec.PROJECT_TEMPLATE_ID;
7364:
7365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7366: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
7367: END IF;
7368:
7369: IF c_Visit_rec.status_code IN ('PLANNING','DRAFT') THEN
7370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7366: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Status : '||c_Visit_rec.status_code);
7367: END IF;
7368:
7369: IF c_Visit_rec.status_code IN ('PLANNING','DRAFT') THEN
7370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7371: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
7372: END IF;
7373:
7374: Update_Visit
7367: END IF;
7368:
7369: IF c_Visit_rec.status_code IN ('PLANNING','DRAFT') THEN
7370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7371: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
7372: END IF;
7373:
7374: Update_Visit
7375: (
7383: x_msg_count => l_msg_count,
7384: x_msg_data => l_msg_data
7385: );
7386:
7387: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7388: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7389: END IF;
7390:
7391: IF l_return_status <> 'S' THEN
7384: x_msg_data => l_msg_data
7385: );
7386:
7387: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7388: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7389: END IF;
7390:
7391: IF l_return_status <> 'S' THEN
7392: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7465: Fnd_Msg_Pub.ADD;
7466: RAISE Fnd_Api.G_EXC_ERROR;
7467: END IF;
7468:
7469: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7470: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
7471: END IF;
7472:
7473: COPY_VISIT(
7466: RAISE Fnd_Api.G_EXC_ERROR;
7467: END IF;
7468:
7469: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7470: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling COPY_VISIT');
7471: END IF;
7472:
7473: COPY_VISIT(
7474: p_api_version => l_api_version,
7482: x_msg_count => l_msg_count,
7483: x_msg_data => l_msg_data
7484: );
7485:
7486: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7487: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
7488: END IF;
7489:
7490: IF l_return_status <> 'S' THEN
7483: x_msg_data => l_msg_data
7484: );
7485:
7486: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7487: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling COPY_VISIT l_return_status - '||l_return_status);
7488: END IF;
7489:
7490: IF l_return_status <> 'S' THEN
7491: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7490: IF l_return_status <> 'S' THEN
7491: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7492: END IF;
7493:
7494: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7495: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
7496: END IF;
7497:
7498: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
7491: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7492: END IF;
7493:
7494: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7495: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_VWP_PROJ_PROD_PVT.Release_Visit');
7496: END IF;
7497:
7498: AHL_VWP_PROJ_PROD_PVT.Release_Visit (
7499: p_api_version => l_api_version,
7505: X_MSG_COUNT => l_msg_count,
7506: X_MSG_DATA => l_msg_data
7507: );
7508:
7509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
7511: END IF;
7512:
7513: IF l_return_status <> 'S' THEN
7506: X_MSG_DATA => l_msg_data
7507: );
7508:
7509: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7510: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_PROJ_PROD_PVT.Release_Visit : l_return_status - '||l_return_status);
7511: END IF;
7512:
7513: IF l_return_status <> 'S' THEN
7514: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7513: IF l_return_status <> 'S' THEN
7514: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7515: END IF;
7516:
7517: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7518: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
7519: END IF;
7520:
7521: Cancel_Visit
7514: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7515: END IF;
7516:
7517: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7518: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Cancel_Visit');
7519: END IF;
7520:
7521: Cancel_Visit
7522: (
7526: x_msg_count => l_msg_count,
7527: x_msg_data => l_msg_data
7528: );
7529:
7530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7531: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
7532: END IF;
7533:
7534: IF l_return_status <> 'S' THEN
7527: x_msg_data => l_msg_data
7528: );
7529:
7530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7531: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Cancel_Visit : l_return_status - '||l_return_status);
7532: END IF;
7533:
7534: IF l_return_status <> 'S' THEN
7535: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7548: )
7549: THEN
7550: ------------ R12 changes For Serial Number Reservations End-----------------
7551:
7552: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7553: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
7554: END IF;
7555:
7556: Update_Visit
7549: THEN
7550: ------------ R12 changes For Serial Number Reservations End-----------------
7551:
7552: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7553: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling Update_Visit');
7554: END IF;
7555:
7556: Update_Visit
7557: (
7565: x_msg_count => l_msg_count,
7566: x_msg_data => l_msg_data
7567: );
7568:
7569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7571: END IF;
7572:
7573: IF l_return_status <> 'S' THEN
7566: x_msg_data => l_msg_data
7567: );
7568:
7569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7570: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling Update_Visit - l_return_status : '||l_return_status);
7571: END IF;
7572:
7573: IF l_return_status <> 'S' THEN
7574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7573: IF l_return_status <> 'S' THEN
7574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7575: END IF;
7576:
7577: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7578: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
7579: END IF;
7580:
7581: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
7574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7575: END IF;
7576:
7577: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7578: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Before calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS');
7579: END IF;
7580:
7581: AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS(
7582: P_API_VERSION => l_api_version,
7586: P_VISIT_ID => c_visit_rec.visit_id,
7587: p_x_scheduled_start_date => l_visit_rec.START_DATE,
7588: p_x_scheduled_end_date => l_visit_rec.PLAN_END_DATE);
7589:
7590: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
7592: END IF;
7593:
7594: IF l_return_status <> 'S' THEN
7587: p_x_scheduled_start_date => l_visit_rec.START_DATE,
7588: p_x_scheduled_end_date => l_visit_rec.PLAN_END_DATE);
7589:
7590: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7591: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_PRD_WORKORDER_PVT.RESCHEDULE_VISIT_JOBS - l_return_status : '||l_return_status);
7592: END IF;
7593:
7594: IF l_return_status <> 'S' THEN
7595: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7608: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7609: COMMIT;
7610: END IF;
7611:
7612: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7613: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
7614: END IF;
7615: EXCEPTION
7616: WHEN Fnd_Api.g_exc_error THEN
7609: COMMIT;
7610: END IF;
7611:
7612: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7613: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
7614: END IF;
7615: EXCEPTION
7616: WHEN Fnd_Api.g_exc_error THEN
7617: ROLLBACK TO Synchronize_Visit;
7707: AND TASK_TYPE_CODE <> 'SUMMARY';
7708:
7709: BEGIN
7710: -- log at the begining of the procedure
7711: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7712: 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);
7713: END IF;
7714:
7715: IF item_instance_id IS NOT NULL THEN
7708:
7709: BEGIN
7710: -- log at the begining of the procedure
7711: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7712: 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);
7713: END IF;
7714:
7715: IF item_instance_id IS NOT NULL THEN
7716: -- If the Visit header has an instance id, check for the corresponding Unit
7722: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
7723: Fnd_Msg_Pub.ADD;
7724: -- log message
7725: IF (l_log_statement >= l_log_current_level)THEN
7726: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_unit_name || 'Unit is quarantined, Error message added');
7727: END IF; -- log
7728: END IF; -- l_quarantined not true
7729: ELSE -- instance id is null
7730: -- If the visit does not have a unit at the header , then check for the units of all tasks
7739: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7740: Fnd_Msg_Pub.ADD;
7741: -- log message
7742: IF (l_log_statement >= l_log_current_level)THEN
7743: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_task_number || 'Unit for this task is quarantined.');
7744: END IF; -- log
7745: END IF; -- l_quarantined not true
7746: END LOOP; -- c_get_tasknumbers
7747: END IF;
7747: END IF;
7748:
7749: -- log at the end of the procedure
7750: IF (l_log_procedure >= l_log_current_level) THEN
7751: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PL SQL procedure');
7752: END IF;
7753: END check_unit_quarantined;
7754:
7755: -- SKPATHAK :: Bug 9115894 :: 23-NOV-2009 :: START
7774: p_msg_index_out => l_msg_index_out);
7775:
7776: x_message_stack_tbl(i) := l_msg_data;
7777: IF (l_log_statement >= l_log_current_level) THEN
7778: fnd_log.string(l_log_statement,'ahl.plsql.AHL_VWP_VISITS_PVT.Get_Message_Stack',
7779: 'Error - '||l_msg_data);
7780: END IF;
7781: END LOOP;
7782: END IF;
7838: l_msg_count NUMBER;
7839: l_msg_data VARCHAR2(2000);
7840:
7841: BEGIN
7842: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7843: fnd_log.string(fnd_log.level_procedure, L_DEBUG_KEY||'.begin', 'At the start of PLSQL procedure. p_visit_id: '|| p_visit_id);
7844: END IF;
7845: -- Retrieve the materials for all tasks in the visit
7846: OPEN visit_mtrls_cur;
7839: l_msg_data VARCHAR2(2000);
7840:
7841: BEGIN
7842: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
7843: fnd_log.string(fnd_log.level_procedure, L_DEBUG_KEY||'.begin', 'At the start of PLSQL procedure. p_visit_id: '|| p_visit_id);
7844: END IF;
7845: -- Retrieve the materials for all tasks in the visit
7846: OPEN visit_mtrls_cur;
7847: LOOP
7848: FETCH visit_mtrls_cur INTO l_visit_mtrls_rec;
7849: EXIT WHEN visit_mtrls_cur%NOTFOUND;
7850: IF l_visit_mtrls_rec.schedule_material_id IS NOT NULL THEN
7851: -- Add this requirement to l_unsched_mtl_tbl for ATP unscheduling
7852: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7853: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7854: 'l_unsched_mtl_index = ' || l_unsched_mtl_index ||
7855: ', Adding Requirement with id ' || l_visit_mtrls_rec.schedule_material_id || ' to l_unsched_mtl_tbl for Unscheduling.');
7856: END IF;
7849: EXIT WHEN visit_mtrls_cur%NOTFOUND;
7850: IF l_visit_mtrls_rec.schedule_material_id IS NOT NULL THEN
7851: -- Add this requirement to l_unsched_mtl_tbl for ATP unscheduling
7852: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7853: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7854: 'l_unsched_mtl_index = ' || l_unsched_mtl_index ||
7855: ', Adding Requirement with id ' || l_visit_mtrls_rec.schedule_material_id || ' to l_unsched_mtl_tbl for Unscheduling.');
7856: END IF;
7857: l_unsched_mtl_tbl(l_unsched_mtl_index).visit_id := l_visit_mtrls_rec.visit_id;
7868: END LOOP;
7869: CLOSE visit_mtrls_cur;
7870: IF (l_unsched_mtl_tbl.COUNT > 0) THEN
7871: -- Call ATP to unschedule the soft Deleted requirements
7872: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7873: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7874: 'Before calling AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials. l_unsched_mtl_tbl.COUNT = ' || l_unsched_mtl_tbl.COUNT);
7875: END IF;
7876: AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials(p_api_version => 1.0,
7869: CLOSE visit_mtrls_cur;
7870: IF (l_unsched_mtl_tbl.COUNT > 0) THEN
7871: -- Call ATP to unschedule the soft Deleted requirements
7872: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7873: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7874: 'Before calling AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials. l_unsched_mtl_tbl.COUNT = ' || l_unsched_mtl_tbl.COUNT);
7875: END IF;
7876: AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials(p_api_version => 1.0,
7877: p_deleted_matrl_tbl => l_unsched_mtl_tbl,
7877: p_deleted_matrl_tbl => l_unsched_mtl_tbl,
7878: x_return_status => l_return_status,
7879: x_msg_count => l_msg_count,
7880: x_msg_data => l_msg_data);
7881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7882: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7883: 'After returning from AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials, l_return_status = ' || l_return_status);
7884: END IF;
7885: END IF;
7878: x_return_status => l_return_status,
7879: x_msg_count => l_msg_count,
7880: x_msg_data => l_msg_data);
7881: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7882: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
7883: 'After returning from AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials, l_return_status = ' || l_return_status);
7884: END IF;
7885: END IF;
7886: IF (l_log_procedure >= l_log_current_level) THEN
7883: 'After returning from AHL_LTP_MATRL_AVAL_PVT.Unschedule_deleted_materials, l_return_status = ' || l_return_status);
7884: END IF;
7885: END IF;
7886: IF (l_log_procedure >= l_log_current_level) THEN
7887: fnd_log.string(fnd_log.level_procedure, L_DEBUG_KEY||'.end', 'At the end of PL SQL procedure');
7888: END IF;
7889:
7890: END Handle_Visit_Org_Change;
7891:
7916:
7917: BEGIN
7918:
7919: IF (l_log_procedure >= l_log_current_level) THEN
7920: fnd_log.string(l_log_procedure,
7921: L_DEBUG_KEY ||'.begin',
7922: 'At the start of PL SQL function.');
7923: END IF;
7924:
7922: 'At the start of PL SQL function.');
7923: END IF;
7924:
7925: IF (l_log_statement >= l_log_current_level) THEN
7926: fnd_log.string(l_log_statement,L_DEBUG_KEY, ' Visit Id = ' || p_visit_id);
7927: END IF;
7928:
7929: -- Check for Stage Number
7930: OPEN c_is_old_visit;
7938: l_is_old_visit := 'N';
7939: END IF;
7940:
7941: IF (l_log_statement >= l_log_current_level) THEN
7942: fnd_log.string(l_log_statement,L_DEBUG_KEY, ' l_is_old_visit = ' || l_is_old_visit);
7943: END IF;
7944:
7945: IF (l_log_procedure >= l_log_current_level) THEN
7946: fnd_log.string(l_log_procedure,
7942: fnd_log.string(l_log_statement,L_DEBUG_KEY, ' l_is_old_visit = ' || l_is_old_visit);
7943: END IF;
7944:
7945: IF (l_log_procedure >= l_log_current_level) THEN
7946: fnd_log.string(l_log_procedure,
7947: L_DEBUG_KEY ||'.end',
7948: 'At the end of PL SQL function.');
7949: END IF;
7950: RETURN l_is_old_visit;