[Home] [Help]
180: -- Get a particular Stage Records with all details
181: --------------------------------------------------------------------
182: PROCEDURE Get_Stages_Details (
183: p_api_version IN NUMBER,
184: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
185: p_commit IN VARCHAR2 := Fnd_Api.g_false,
186: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
187: p_module_type IN VARCHAR2 := 'JSP',
188: p_visit_id IN NUMBER,
181: --------------------------------------------------------------------
182: PROCEDURE Get_Stages_Details (
183: p_api_version IN NUMBER,
184: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
185: p_commit IN VARCHAR2 := Fnd_Api.g_false,
186: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
187: p_module_type IN VARCHAR2 := 'JSP',
188: p_visit_id IN NUMBER,
189: p_start_row IN NUMBER,
182: PROCEDURE Get_Stages_Details (
183: p_api_version IN NUMBER,
184: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
185: p_commit IN VARCHAR2 := Fnd_Api.g_false,
186: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
187: p_module_type IN VARCHAR2 := 'JSP',
188: p_visit_id IN NUMBER,
189: p_start_row IN NUMBER,
190: p_rows_per_page IN NUMBER,
287: AHL_DEBUG_PUB.debug( l_full_name ||':*****Start*****');
288: END IF;
289: END IF;
290:
291: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
292: Fnd_Msg_Pub.initialize;
293: END IF;
294:
295: -- Initialize API return status to success
292: Fnd_Msg_Pub.initialize;
293: END IF;
294:
295: -- Initialize API return status to success
296: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
297:
298: -- Standard call to check for call compatibility.
299: IF NOT Fnd_Api.compatible_api_call(
300: l_api_version,
295: -- Initialize API return status to success
296: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
297:
298: -- Standard call to check for call compatibility.
299: IF NOT Fnd_Api.compatible_api_call(
300: l_api_version,
301: p_api_version,
302: l_api_name,
303: G_PKG_NAME
301: p_api_version,
302: l_api_name,
303: G_PKG_NAME
304: ) THEN
305: RAISE Fnd_Api.g_exc_unexpected_error;
306: END IF;
307:
308:
309:
406: END LOOP;
407: END IF; --start and dept not null
408: -- Modified by amagrawa as per review comments.
409: x_row_count := l_stages_tbl.count;
410: --x_return_status := FND_API.G_RET_STS_SUCCESS;
411:
412: --------------------------
413: x_stages_tbl := l_stages_tbl;
414:
416: -- Standard call to get message count and if count is 1, get message info
417: Fnd_Msg_Pub.Count_And_Get
418: ( p_count => x_msg_count,
419: p_data => x_msg_data,
420: p_encoded => Fnd_Api.g_false);
421:
422: -- Check if API is called in debug mode. If yes, enable debug.
423: IF G_DEBUG='Y' THEN
424: AHL_DEBUG_PUB.enable_debug;
438: END IF;
439: RETURN;
440:
441: EXCEPTION
442: WHEN Fnd_Api.G_EXC_ERROR THEN
443: x_return_status := Fnd_Api.G_RET_STS_ERROR;
444: ROLLBACK TO Get_Stages_Details;
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
439: RETURN;
440:
441: EXCEPTION
442: WHEN Fnd_Api.G_EXC_ERROR THEN
443: x_return_status := Fnd_Api.G_RET_STS_ERROR;
444: ROLLBACK TO Get_Stages_Details;
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
447: p_encoded => Fnd_Api.g_false);
443: x_return_status := Fnd_Api.G_RET_STS_ERROR;
444: ROLLBACK TO Get_Stages_Details;
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
447: p_encoded => Fnd_Api.g_false);
448: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
450: ROLLBACK TO Get_Stages_Details;
451: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
444: ROLLBACK TO Get_Stages_Details;
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
447: p_encoded => Fnd_Api.g_false);
448: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
450: ROLLBACK TO Get_Stages_Details;
451: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
452: p_data => x_msg_data,
445: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
446: p_data => x_msg_data,
447: p_encoded => Fnd_Api.g_false);
448: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
450: ROLLBACK TO Get_Stages_Details;
451: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
452: p_data => x_msg_data,
453: p_encoded => Fnd_Api.g_false);
449: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
450: ROLLBACK TO Get_Stages_Details;
451: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
452: p_data => x_msg_data,
453: p_encoded => Fnd_Api.g_false);
454: WHEN OTHERS THEN
455: ROLLBACK TO Get_Stages_Details;
456: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
457: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
452: p_data => x_msg_data,
453: p_encoded => Fnd_Api.g_false);
454: WHEN OTHERS THEN
455: ROLLBACK TO Get_Stages_Details;
456: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
457: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
458: THEN
459: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
460: END IF;
458: THEN
459: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
460: END IF;
461: Fnd_Msg_Pub.count_and_get (
462: p_encoded => Fnd_Api.g_false,
463: p_count => x_msg_count,
464: p_data => x_msg_data );
465:
466:
478: -- will be called by create_visit and only the visit_id is passed.
479: --------------------------------------------------------------------
480: PROCEDURE Create_Stages (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
483: p_commit IN VARCHAR2 := Fnd_Api.g_false,
484: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
485: p_module_type IN VARCHAR2 := 'JSP',
486:
479: --------------------------------------------------------------------
480: PROCEDURE Create_Stages (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
483: p_commit IN VARCHAR2 := Fnd_Api.g_false,
484: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
485: p_module_type IN VARCHAR2 := 'JSP',
486:
487: p_visit_id IN NUMBER,
480: PROCEDURE Create_Stages (
481: p_api_version IN NUMBER,
482: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
483: p_commit IN VARCHAR2 := Fnd_Api.g_false,
484: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
485: p_module_type IN VARCHAR2 := 'JSP',
486:
487: p_visit_id IN NUMBER,
488: p_x_stages_tbl IN OUT NOCOPY Visit_Stages_Tbl_Type, -- PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063
556: AHL_DEBUG_PUB.Debug( l_full_name ||': Start');
557: END IF;
558:
559: -- Initialize message list if p_init_msg_list is set to TRUE.
560: IF Fnd_Api.to_boolean(p_init_msg_list)
561: THEN
562: Fnd_Msg_Pub.initialize;
563: END IF;
564:
562: Fnd_Msg_Pub.initialize;
563: END IF;
564:
565: -- Initialize API return status to success
566: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
567: l_return_status := x_return_status;
568:
569: -- Standard call to check for call compatibility.
570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
566: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
567: l_return_status := x_return_status;
568:
569: -- Standard call to check for call compatibility.
570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
571: p_api_version,
572: l_api_name,G_PKG_NAME)
573: THEN
574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
570: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
571: p_api_version,
572: l_api_name,G_PKG_NAME)
573: THEN
574: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
575: END IF;
576:
577: ------------------------Start of API Body------------------------------------
578:
592:
593: --
594: -- Check for the ID.
595: --
596: IF (P_VISIT_ID = Fnd_Api.g_miss_num OR P_VISIT_ID IS Null)
597: THEN
598: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
599: Fnd_Msg_Pub.ADD;
600: END IF;
621:
622: IF l_is_old_visit = 'Y' THEN
623: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_CRT_VST_INV');
624: Fnd_Msg_Pub.ADD;
625: RAISE Fnd_Api.G_EXC_ERROR;
626: END IF;
627:
628: l_isValidationFailed := false;
629:
632:
633: -- Invoke the table handler to create a record
634:
635: -- Check for the ID.
636: IF (l_stages_tbl(i).STAGE_ID = Fnd_Api.g_miss_num OR l_stages_tbl(i).STAGE_ID IS Null) THEN
637: -- If the ID is not passed into the API, then
638: -- grab a value from the sequence.
639: l_stages_tbl(i).STAGE_ID := Get_Stage_Id;
640:
658: AHL_DEBUG_PUB.Debug( l_full_name ||': Stage ID choosen =' || l_stages_tbl(i).STAGE_ID);
659: END IF;
660:
661: -- Check for the Num.
662: IF (l_stages_tbl(i).STAGE_NUM = Fnd_Api.g_miss_num OR l_stages_tbl(i).STAGE_NUM IS Null) THEN
663: l_stages_tbl(i).STAGE_NUM := Get_Visit_Stage_Number(P_VISIT_ID);
664: ELSE
665: -- Check to be sure that the stage number does not exist.
666: OPEN c_stagenum_exists (P_VISIT_ID, l_stages_tbl(i).STAGE_NUM);
678: Fnd_Msg_Pub.ADD;
679: END IF;
680: END IF;
681:
682: IF (l_stages_tbl(i).Duration = Fnd_Api.g_miss_num OR l_stages_tbl(i).Duration IS Null) THEN
683:
684: l_stages_tbl(i).Duration := 0;
685:
686: END IF;
752:
753: -- CREATE A STAGE TASK
754: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
755: p_api_version => p_api_version,
756: p_init_msg_list => Fnd_Api.G_FALSE,
757: p_commit => Fnd_Api.G_FALSE,
758: p_validation_level => p_validation_level,
759: p_module_type => p_module_type,
760: p_stage_id => l_stages_tbl(i).STAGE_ID,
753: -- CREATE A STAGE TASK
754: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
755: p_api_version => p_api_version,
756: p_init_msg_list => Fnd_Api.G_FALSE,
757: p_commit => Fnd_Api.G_FALSE,
758: p_validation_level => p_validation_level,
759: p_module_type => p_module_type,
760: p_stage_id => l_stages_tbl(i).STAGE_ID,
761: p_visit_id => P_VISIT_ID,
763: x_msg_count => l_msg_count,
764: x_msg_data => l_msg_data
765: );
766:
767: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
768: x_msg_count := l_msg_count;
769: x_return_status := l_return_status;
770: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
771: RAISE Fnd_Api.g_exc_error;
766:
767: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
768: x_msg_count := l_msg_count;
769: x_return_status := l_return_status;
770: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
771: RAISE Fnd_Api.g_exc_error;
772: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
773: RAISE Fnd_Api.g_exc_unexpected_error;
774: END IF;
767: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
768: x_msg_count := l_msg_count;
769: x_return_status := l_return_status;
770: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
771: RAISE Fnd_Api.g_exc_error;
772: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
773: RAISE Fnd_Api.g_exc_unexpected_error;
774: END IF;
775: END IF;
768: x_msg_count := l_msg_count;
769: x_return_status := l_return_status;
770: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
771: RAISE Fnd_Api.g_exc_error;
772: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
773: RAISE Fnd_Api.g_exc_unexpected_error;
774: END IF;
775: END IF;
776:
769: x_return_status := l_return_status;
770: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
771: RAISE Fnd_Api.g_exc_error;
772: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
773: RAISE Fnd_Api.g_exc_unexpected_error;
774: END IF;
775: END IF;
776:
777: IF G_DEBUG='Y' THEN
780: END IF;
781: END LOOP;
782:
783: IF l_isValidationFailed THEN
784: RAISE Fnd_Api.G_EXC_ERROR;
785: END IF;
786:
787: ---------------------------End of API Body---------------------------------------
788: --Standard check to count messages
788: --Standard check to count messages
789: l_msg_count := Fnd_Msg_Pub.count_msg;
790: IF l_msg_count > 0 THEN
791: X_msg_count := l_msg_count;
792: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
793: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: --Standard check for commit
789: l_msg_count := Fnd_Msg_Pub.count_msg;
790: IF l_msg_count > 0 THEN
791: X_msg_count := l_msg_count;
792: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
793: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: --Standard check for commit
797: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
793: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795:
796: --Standard check for commit
797: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
798: COMMIT;
799: END IF;
800:
801: IF G_DEBUG='Y' THEN
806: IF G_DEBUG='Y' THEN
807: Ahl_Debug_Pub.disable_debug;
808: END IF;
809: EXCEPTION
810: WHEN Fnd_Api.g_exc_error THEN
811: ROLLBACK TO Create_Stage;
812: x_return_status := Fnd_Api.g_ret_sts_error;
813: Fnd_Msg_Pub.count_and_get(
814: p_encoded => Fnd_Api.g_false,
808: END IF;
809: EXCEPTION
810: WHEN Fnd_Api.g_exc_error THEN
811: ROLLBACK TO Create_Stage;
812: x_return_status := Fnd_Api.g_ret_sts_error;
813: Fnd_Msg_Pub.count_and_get(
814: p_encoded => Fnd_Api.g_false,
815: p_count => x_msg_count,
816: p_data => x_msg_data
810: WHEN Fnd_Api.g_exc_error THEN
811: ROLLBACK TO Create_Stage;
812: x_return_status := Fnd_Api.g_ret_sts_error;
813: Fnd_Msg_Pub.count_and_get(
814: p_encoded => Fnd_Api.g_false,
815: p_count => x_msg_count,
816: p_data => x_msg_data
817: );
818: WHEN Fnd_Api.g_exc_unexpected_error THEN
814: p_encoded => Fnd_Api.g_false,
815: p_count => x_msg_count,
816: p_data => x_msg_data
817: );
818: WHEN Fnd_Api.g_exc_unexpected_error THEN
819: ROLLBACK TO Create_Stage;
820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
821: Fnd_Msg_Pub.count_and_get (
822: p_encoded => Fnd_Api.g_false,
816: p_data => x_msg_data
817: );
818: WHEN Fnd_Api.g_exc_unexpected_error THEN
819: ROLLBACK TO Create_Stage;
820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
821: Fnd_Msg_Pub.count_and_get (
822: p_encoded => Fnd_Api.g_false,
823: p_count => x_msg_count,
824: p_data => x_msg_data
818: WHEN Fnd_Api.g_exc_unexpected_error THEN
819: ROLLBACK TO Create_Stage;
820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
821: Fnd_Msg_Pub.count_and_get (
822: p_encoded => Fnd_Api.g_false,
823: p_count => x_msg_count,
824: p_data => x_msg_data
825: );
826: WHEN OTHERS THEN
824: p_data => x_msg_data
825: );
826: WHEN OTHERS THEN
827: ROLLBACK TO Create_Stage;
828: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
829: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
830: THEN
831: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
832: END IF;
830: THEN
831: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
832: END IF;
833: Fnd_Msg_Pub.count_and_get (
834: p_encoded => Fnd_Api.g_false,
835: p_count => x_msg_count,
836: p_data => x_msg_data
837: );
838: END Create_StageS;
848: -- will be called by create_visit and only the visit_id is passed.
849: --------------------------------------------------------------------
850: PROCEDURE Update_Stages (
851: p_api_version IN NUMBER,
852: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
853: p_commit IN VARCHAR2 := Fnd_Api.g_false,
854: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
855: p_module_type IN VARCHAR2 := 'JSP',
856:
849: --------------------------------------------------------------------
850: PROCEDURE Update_Stages (
851: p_api_version IN NUMBER,
852: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
853: p_commit IN VARCHAR2 := Fnd_Api.g_false,
854: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
855: p_module_type IN VARCHAR2 := 'JSP',
856:
857: p_visit_id IN NUMBER,
850: PROCEDURE Update_Stages (
851: p_api_version IN NUMBER,
852: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
853: p_commit IN VARCHAR2 := Fnd_Api.g_false,
854: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
855: p_module_type IN VARCHAR2 := 'JSP',
856:
857: p_visit_id IN NUMBER,
858: p_x_stages_tbl IN OUT NOCOPY Visit_Stages_Tbl_Type,
964: AHL_DEBUG_PUB.Debug( l_full_name ||': Start');
965: END IF;
966:
967: -- Initialize message list if p_init_msg_list is set to TRUE.
968: IF Fnd_Api.to_boolean(p_init_msg_list)
969: THEN
970: Fnd_Msg_Pub.initialize;
971: END IF;
972:
970: Fnd_Msg_Pub.initialize;
971: END IF;
972:
973: -- Initialize API return status to success
974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
975: l_return_status := x_return_status;
976:
977: -- Standard call to check for call compatibility.
978: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
975: l_return_status := x_return_status;
976:
977: -- Standard call to check for call compatibility.
978: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
979: p_api_version,
980: l_api_name,G_PKG_NAME)
981: THEN
982: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
978: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
979: p_api_version,
980: l_api_name,G_PKG_NAME)
981: THEN
982: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
983: END IF;
984:
985: ------------------------Start of API Body------------------------------------
986:
986:
987: --
988: -- Check for the ID.
989: --
990: IF (P_VISIT_ID = Fnd_Api.g_miss_num OR P_VISIT_ID IS Null)
991: THEN
992: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NOT_FOUND');
993: Fnd_Msg_Pub.ADD;
994: -- Added by amagrawa based on review commenst
991: THEN
992: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NOT_FOUND');
993: Fnd_Msg_Pub.ADD;
994: -- Added by amagrawa based on review commenst
995: RAISE Fnd_Api.G_EXC_ERROR;
996: END IF;
997:
998:
999: --verify if visit status is planning or released or partially_released
1004: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_STATUS_INV');
1005: Fnd_Msg_Pub.ADD;
1006: -- Added by amagrawa based on review commenst
1007: close c_check_visit_status;
1008: RAISE Fnd_Api.G_EXC_ERROR;
1009: end if;
1010: close c_check_visit_status;
1011:
1012: -- Commented by amagrawa as per review commenst.
1014: l_msg_count := Fnd_Msg_Pub.count_msg;
1015:
1016: IF l_msg_count > 0 THEN
1017: x_msg_count := l_msg_count;
1018: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1019: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1020: END IF;
1021: */
1022: -------------------------- Update --------------------------
1015:
1016: IF l_msg_count > 0 THEN
1017: x_msg_count := l_msg_count;
1018: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1019: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1020: END IF;
1021: */
1022: -------------------------- Update --------------------------
1023: IF G_DEBUG='Y' THEN
1044: l_is_planned_end_date_updated := false;--PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063
1045: l_is_earliest_date_updated := false;--PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063
1046:
1047: -------------------------------- Validate -----------------------------------------
1048: l_validate_status := Fnd_Api.G_RET_STS_SUCCESS;
1049:
1050: default_missing_attributes(p_x_stages_tbl(i));
1051:
1052: VALIDATE_STAGES(
1056: x_msg_count => x_msg_count,
1057: x_msg_data => x_msg_data
1058: );
1059: -- Added be amagrawa based on review comments
1060: IF l_validate_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1061: RAISE Fnd_Api.G_EXC_ERROR;
1062: END IF;
1063:
1064: IF G_DEBUG='Y' THEN
1057: x_msg_data => x_msg_data
1058: );
1059: -- Added be amagrawa based on review comments
1060: IF l_validate_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1061: RAISE Fnd_Api.G_EXC_ERROR;
1062: END IF;
1063:
1064: IF G_DEBUG='Y' THEN
1065: AHL_DEBUG_PUB.Debug( l_full_name ||':END VALIDATE');
1092: THEN
1093: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_JOB_FIRM_REL');
1094: Fnd_Message.SET_TOKEN('STAGE_NAME', p_x_stages_tbl(i).stage_name);
1095: Fnd_Msg_Pub.ADD;
1096: l_validate_status := Fnd_Api.G_RET_STS_ERROR;
1097: END IF;
1098: CLOSE C_JOB;
1099: END IF;
1100: /* Uncommented as per Stages test case STG14 : Removed by Senthil for TC */
1099: END IF;
1100: /* Uncommented as per Stages test case STG14 : Removed by Senthil for TC */
1101:
1102: ----------------------------- IF NO ERRORS UPDATE-----------------------------------------
1103: if l_validate_status = Fnd_Api.G_RET_STS_SUCCESS
1104: then
1105: -- Invoke the table handler to update the record
1106: --
1107: Ahl_VWP_stages_Pkg.Update_Row (
1154: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1155: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_SUCC_STG_START_DATES - l_return_status : '||l_return_status);
1156: END IF;
1157:
1158: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1159: x_msg_count := l_msg_count;
1160: x_return_status := l_return_status;
1161: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1162: RAISE Fnd_Api.g_exc_error;
1157:
1158: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1159: x_msg_count := l_msg_count;
1160: x_return_status := l_return_status;
1161: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1162: RAISE Fnd_Api.g_exc_error;
1163: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1164: RAISE Fnd_Api.g_exc_unexpected_error;
1165: END IF;
1158: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1159: x_msg_count := l_msg_count;
1160: x_return_status := l_return_status;
1161: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1162: RAISE Fnd_Api.g_exc_error;
1163: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1164: RAISE Fnd_Api.g_exc_unexpected_error;
1165: END IF;
1166: END IF;
1159: x_msg_count := l_msg_count;
1160: x_return_status := l_return_status;
1161: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1162: RAISE Fnd_Api.g_exc_error;
1163: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1164: RAISE Fnd_Api.g_exc_unexpected_error;
1165: END IF;
1166: END IF;
1167:
1160: x_return_status := l_return_status;
1161: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1162: RAISE Fnd_Api.g_exc_error;
1163: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1164: RAISE Fnd_Api.g_exc_unexpected_error;
1165: END IF;
1166: END IF;
1167:
1168: END IF;
1180: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1181: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGE_DEPENDENCY_RULES - l_return_status : '||l_return_status||' :p_x_stages_ovn_tbl cnt is '||p_x_stages_ovn_tbl.count);
1182: END IF;
1183:
1184: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1185: x_msg_count := l_msg_count;
1186: x_return_status := l_return_status;
1187: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1188: RAISE Fnd_Api.g_exc_error;
1183:
1184: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1185: x_msg_count := l_msg_count;
1186: x_return_status := l_return_status;
1187: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1188: RAISE Fnd_Api.g_exc_error;
1189: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1190: RAISE Fnd_Api.g_exc_unexpected_error;
1191: END IF;
1184: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1185: x_msg_count := l_msg_count;
1186: x_return_status := l_return_status;
1187: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1188: RAISE Fnd_Api.g_exc_error;
1189: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1190: RAISE Fnd_Api.g_exc_unexpected_error;
1191: END IF;
1192: END IF;
1185: x_msg_count := l_msg_count;
1186: x_return_status := l_return_status;
1187: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1188: RAISE Fnd_Api.g_exc_error;
1189: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1190: RAISE Fnd_Api.g_exc_unexpected_error;
1191: END IF;
1192: END IF;
1193:
1186: x_return_status := l_return_status;
1187: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1188: RAISE Fnd_Api.g_exc_error;
1189: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1190: RAISE Fnd_Api.g_exc_unexpected_error;
1191: END IF;
1192: END IF;
1193:
1194: END IF;
1200: AHL_DEBUG_PUB.Debug( l_full_name ||': STAGE Number =' || p_x_stages_tbl(i).stage_num);
1201: END IF;
1202: -- Added by amagrawa after review comments.
1203: ELSE -- If validate_status is <> 'S'
1204: RAISE Fnd_Api.G_EXC_ERROR;
1205: END IF; -- end check of validate_status
1206: END LOOP;
1207:
1208: ---------------------------End of API Body---------------------------------------
1209:
1210: -- Added cxcheng POST11510--------------
1211: --Now adjust the times derivation for task
1212: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
1213: p_init_msg_list => Fnd_Api.G_FALSE,
1214: p_commit => Fnd_Api.G_FALSE,
1215: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1216: x_return_status => l_return_status,
1217: x_msg_count => l_msg_count,
1210: -- Added cxcheng POST11510--------------
1211: --Now adjust the times derivation for task
1212: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
1213: p_init_msg_list => Fnd_Api.G_FALSE,
1214: p_commit => Fnd_Api.G_FALSE,
1215: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1216: x_return_status => l_return_status,
1217: x_msg_count => l_msg_count,
1218: x_msg_data => l_msg_data,
1211: --Now adjust the times derivation for task
1212: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
1213: p_init_msg_list => Fnd_Api.G_FALSE,
1214: p_commit => Fnd_Api.G_FALSE,
1215: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1216: x_return_status => l_return_status,
1217: x_msg_count => l_msg_count,
1218: x_msg_data => l_msg_data,
1219: p_visit_id => p_visit_id);
1219: p_visit_id => p_visit_id);
1220: -- Added by amagrawa based on review comments.
1221: IF l_return_Status <>'S'
1222: THEN
1223: IF l_return_Status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
1227: THEN
1221: IF l_return_Status <>'S'
1222: THEN
1223: IF l_return_Status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
1227: THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END IF;
1222: THEN
1223: IF l_return_Status = FND_API.G_RET_STS_ERROR
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
1227: THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END IF;
1230:
1224: THEN
1225: RAISE FND_API.G_EXC_ERROR;
1226: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR
1227: THEN
1228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1229: END IF;
1230:
1231: END IF;
1232:
1252: -- Validate that the any of the tasks does not start before the stage starts
1253: IF l_past_task_start_date < l_stage_planned_start_time THEN
1254: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INVLD');
1255: Fnd_Msg_Pub.ADD;
1256: RAISE Fnd_Api.G_EXC_ERROR;
1257: END IF;
1258: END LOOP;
1259: CLOSE get_past_task_details;
1260: -- SKPATHAK :: Bug #9402556 :: 24-FEB-2010 :: END
1265: IF l_visit_end_date IS NOT NULL THEN
1266:
1267: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
1268: (p_api_version => p_api_version,
1269: p_init_msg_list => Fnd_Api.G_FALSE,
1270: p_commit => Fnd_Api.G_FALSE,
1271: p_visit_id => p_visit_id,
1272: p_visit_task_id => NULL,
1273: p_org_id => NULL,
1266:
1267: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
1268: (p_api_version => p_api_version,
1269: p_init_msg_list => Fnd_Api.G_FALSE,
1270: p_commit => Fnd_Api.G_FALSE,
1271: p_visit_id => p_visit_id,
1272: p_visit_task_id => NULL,
1273: p_org_id => NULL,
1274: p_start_date => NULL,
1278: x_return_status => l_return_status,
1279: x_msg_count => l_msg_count,
1280: x_msg_data => l_msg_data);
1281:
1282: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1283: X_msg_count := l_msg_count;
1284: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1285: RAISE Fnd_Api.G_EXC_ERROR;
1286: END IF;
1280: x_msg_data => l_msg_data);
1281:
1282: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1283: X_msg_count := l_msg_count;
1284: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1285: RAISE Fnd_Api.G_EXC_ERROR;
1286: END IF;
1287:
1288:
1281:
1282: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1283: X_msg_count := l_msg_count;
1284: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1285: RAISE Fnd_Api.G_EXC_ERROR;
1286: END IF;
1287:
1288:
1289: END IF;
1293: l_msg_count := Fnd_Msg_Pub.count_msg;
1294:
1295: IF l_msg_count > 0 THEN
1296: X_msg_count := l_msg_count;
1297: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1298: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: --Standard check for commit
1294:
1295: IF l_msg_count > 0 THEN
1296: X_msg_count := l_msg_count;
1297: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1298: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: --Standard check for commit
1302: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1298: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: --Standard check for commit
1302: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1303: COMMIT;
1304: END IF;
1305:
1306: IF G_DEBUG='Y' THEN
1311: IF G_DEBUG='Y' THEN
1312: Ahl_Debug_Pub.disable_debug;
1313: END IF;
1314: EXCEPTION
1315: WHEN Fnd_Api.g_exc_error THEN
1316: ROLLBACK TO Update_Stages;
1317: x_return_status := Fnd_Api.g_ret_sts_error;
1318: Fnd_Msg_Pub.count_and_get(
1319: p_encoded => Fnd_Api.g_false,
1313: END IF;
1314: EXCEPTION
1315: WHEN Fnd_Api.g_exc_error THEN
1316: ROLLBACK TO Update_Stages;
1317: x_return_status := Fnd_Api.g_ret_sts_error;
1318: Fnd_Msg_Pub.count_and_get(
1319: p_encoded => Fnd_Api.g_false,
1320: p_count => x_msg_count,
1321: p_data => x_msg_data
1315: WHEN Fnd_Api.g_exc_error THEN
1316: ROLLBACK TO Update_Stages;
1317: x_return_status := Fnd_Api.g_ret_sts_error;
1318: Fnd_Msg_Pub.count_and_get(
1319: p_encoded => Fnd_Api.g_false,
1320: p_count => x_msg_count,
1321: p_data => x_msg_data
1322: );
1323: WHEN Fnd_Api.g_exc_unexpected_error THEN
1319: p_encoded => Fnd_Api.g_false,
1320: p_count => x_msg_count,
1321: p_data => x_msg_data
1322: );
1323: WHEN Fnd_Api.g_exc_unexpected_error THEN
1324: ROLLBACK TO Update_Stages;
1325: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1326: Fnd_Msg_Pub.count_and_get (
1327: p_encoded => Fnd_Api.g_false,
1321: p_data => x_msg_data
1322: );
1323: WHEN Fnd_Api.g_exc_unexpected_error THEN
1324: ROLLBACK TO Update_Stages;
1325: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1326: Fnd_Msg_Pub.count_and_get (
1327: p_encoded => Fnd_Api.g_false,
1328: p_count => x_msg_count,
1329: p_data => x_msg_data
1323: WHEN Fnd_Api.g_exc_unexpected_error THEN
1324: ROLLBACK TO Update_Stages;
1325: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1326: Fnd_Msg_Pub.count_and_get (
1327: p_encoded => Fnd_Api.g_false,
1328: p_count => x_msg_count,
1329: p_data => x_msg_data
1330: );
1331: WHEN OTHERS THEN
1329: p_data => x_msg_data
1330: );
1331: WHEN OTHERS THEN
1332: ROLLBACK TO Update_Stages;
1333: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1334: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1335: THEN
1336: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1337: END IF;
1335: THEN
1336: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1337: END IF;
1338: Fnd_Msg_Pub.count_and_get (
1339: p_encoded => Fnd_Api.g_false,
1340: p_count => x_msg_count,
1341: p_data => x_msg_data
1342: );
1343: END Update_Stages;
1351: -- To delete selected stages from a visit.
1352: --------------------------------------------------------------------
1353: PROCEDURE Delete_Stages (
1354: p_api_version IN NUMBER,
1355: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1356: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1357: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1358: p_module_type IN VARCHAR2 := 'JSP',
1359: p_visit_id IN NUMBER,
1352: --------------------------------------------------------------------
1353: PROCEDURE Delete_Stages (
1354: p_api_version IN NUMBER,
1355: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1356: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1357: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1358: p_module_type IN VARCHAR2 := 'JSP',
1359: p_visit_id IN NUMBER,
1360: p_x_stages_tbl IN OUT NOCOPY Visit_Stages_Tbl_Type, -- PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063
1353: PROCEDURE Delete_Stages (
1354: p_api_version IN NUMBER,
1355: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1356: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1357: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1358: p_module_type IN VARCHAR2 := 'JSP',
1359: p_visit_id IN NUMBER,
1360: p_x_stages_tbl IN OUT NOCOPY Visit_Stages_Tbl_Type, -- PRAKKUM :: 15/03/2011 :: VWPE :: ER 12424063
1361: x_return_status OUT NOCOPY VARCHAR2,
1433: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','At the start of the PLSQL procedure');
1434: END IF;
1435:
1436: -- Initialize message list if p_init_msg_list is set to TRUE.
1437: IF Fnd_Api.to_boolean(p_init_msg_list)
1438: THEN
1439: Fnd_Msg_Pub.initialize;
1440: END IF;
1441:
1439: Fnd_Msg_Pub.initialize;
1440: END IF;
1441:
1442: -- Initialize API return status to success
1443: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1444: l_return_status := x_return_status;
1445:
1446: -- Standard call to check for call compatibility.
1447: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1443: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1444: l_return_status := x_return_status;
1445:
1446: -- Standard call to check for call compatibility.
1447: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1448: p_api_version,
1449: l_api_name,G_PKG_NAME)
1450: THEN
1451: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1447: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1448: p_api_version,
1449: l_api_name,G_PKG_NAME)
1450: THEN
1451: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1452: END IF;
1453:
1454: OPEN c_visit (p_visit_id);
1455: FETCH c_visit INTO l_visit_dets;
1457:
1458: IF l_visit_dets.IS_OLD_VISIT = 'Y' THEN
1459: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_STG_DEL_INV');
1460: Fnd_Msg_Pub.ADD;
1461: RAISE Fnd_Api.G_EXC_ERROR;
1462: END IF;
1463:
1464: l_stages_count := p_x_stages_tbl.count;
1465:
1471: if c_stage_data%notfound
1472: then
1473: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND_NEW'||p_x_stages_tbl(i).stage_id);
1474: Fnd_Msg_Pub.ADD;
1475: RAISE FND_API.G_EXC_ERROR;
1476: end if;
1477: close c_stage_data;
1478:
1479: -- obj version number validation
1480: IF l_stage_rec.OBJECT_VERSION_NUMBER <> p_x_stages_tbl(i).OBJECT_VERSION_NUMBER
1481: THEN
1482: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_MOD');
1483: Fnd_Msg_Pub.ADD;
1484: RAISE FND_API.G_EXC_ERROR;
1485: end if;
1486:
1487: --Set duration to zero, calling UPDATE_AS_STAGE_RULE_DEL next to this statement will not consider duration into account
1488: IF (l_log_statement >= l_log_current_level) THEN
1502: delete from AHL_STAGE_LINKS where STAGE_LINK_ID = l_stagelinks_rec.STAGE_LINK_ID;
1503:
1504: UPDATE_AS_STAGE_RULE_DEL (
1505: p_api_version => p_api_version,
1506: p_init_msg_list => Fnd_Api.g_false,
1507: p_commit => Fnd_Api.g_false,
1508: p_validation_level => p_validation_level,
1509: p_module_type => p_module_type,
1510:
1503:
1504: UPDATE_AS_STAGE_RULE_DEL (
1505: p_api_version => p_api_version,
1506: p_init_msg_list => Fnd_Api.g_false,
1507: p_commit => Fnd_Api.g_false,
1508: p_validation_level => p_validation_level,
1509: p_module_type => p_module_type,
1510:
1511: p_object_id => l_stagelinks_rec.OBJECT_ID,
1517: x_return_status => l_return_status,
1518: x_msg_count => l_msg_count,
1519: x_msg_data => l_msg_data );
1520:
1521: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1522: x_msg_count := l_msg_count;
1523: x_return_status := l_return_status;
1524: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1525: RAISE Fnd_Api.g_exc_error;
1520:
1521: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1522: x_msg_count := l_msg_count;
1523: x_return_status := l_return_status;
1524: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1525: RAISE Fnd_Api.g_exc_error;
1526: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1527: RAISE Fnd_Api.g_exc_unexpected_error;
1528: END IF;
1521: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1522: x_msg_count := l_msg_count;
1523: x_return_status := l_return_status;
1524: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1525: RAISE Fnd_Api.g_exc_error;
1526: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1527: RAISE Fnd_Api.g_exc_unexpected_error;
1528: END IF;
1529: END IF;
1522: x_msg_count := l_msg_count;
1523: x_return_status := l_return_status;
1524: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1525: RAISE Fnd_Api.g_exc_error;
1526: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1527: RAISE Fnd_Api.g_exc_unexpected_error;
1528: END IF;
1529: END IF;
1530:
1523: x_return_status := l_return_status;
1524: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1525: RAISE Fnd_Api.g_exc_error;
1526: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1527: RAISE Fnd_Api.g_exc_unexpected_error;
1528: END IF;
1529: END IF;
1530:
1531: END LOOP;
1542:
1543: IF l_stage_tasks_count>0 THEN
1544: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_NO_DEL_HAV_TASKS');
1545: Fnd_Msg_Pub.ADD;
1546: RAISE FND_API.G_EXC_ERROR;
1547: ELSE
1548:
1549: OPEN c_stage_task_dets (p_visit_id, p_x_stages_tbl(i).STAGE_ID);
1550: FETCH c_stage_task_dets INTO l_stage_task_dets;
1565: END IF;
1566:
1567: AHL_VWP_TASKS_PVT.Delete_Task (
1568: p_api_version => p_api_version,
1569: p_init_msg_list => Fnd_Api.g_false,
1570: p_commit => Fnd_Api.g_false,
1571: p_module_type => p_module_type,
1572: p_Visit_Task_Id => l_stage_task_dets.VISIT_TASK_ID,
1573: x_return_status => l_return_status,
1566:
1567: AHL_VWP_TASKS_PVT.Delete_Task (
1568: p_api_version => p_api_version,
1569: p_init_msg_list => Fnd_Api.g_false,
1570: p_commit => Fnd_Api.g_false,
1571: p_module_type => p_module_type,
1572: p_Visit_Task_Id => l_stage_task_dets.VISIT_TASK_ID,
1573: x_return_status => l_return_status,
1574: x_msg_count => l_msg_count,
1577: IF (l_log_statement >= l_log_current_level) THEN
1578: fnd_log.string(l_log_statement,L_DEBUG,'After call to Delete_Task: l_return_status:'||l_return_status||' l_msg_count:'||l_msg_count);
1579: END IF;
1580:
1581: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1582: x_msg_count := l_msg_count;
1583: x_return_status := l_return_status;
1584: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1585: RAISE Fnd_Api.g_exc_error;
1580:
1581: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1582: x_msg_count := l_msg_count;
1583: x_return_status := l_return_status;
1584: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1585: RAISE Fnd_Api.g_exc_error;
1586: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1587: RAISE Fnd_Api.g_exc_unexpected_error;
1588: END IF;
1581: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1582: x_msg_count := l_msg_count;
1583: x_return_status := l_return_status;
1584: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1585: RAISE Fnd_Api.g_exc_error;
1586: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1587: RAISE Fnd_Api.g_exc_unexpected_error;
1588: END IF;
1589: END IF;
1582: x_msg_count := l_msg_count;
1583: x_return_status := l_return_status;
1584: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1585: RAISE Fnd_Api.g_exc_error;
1586: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1587: RAISE Fnd_Api.g_exc_unexpected_error;
1588: END IF;
1589: END IF;
1590: END IF; --l_stage_task_dets.VISIT_TASK_ID
1583: x_return_status := l_return_status;
1584: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1585: RAISE Fnd_Api.g_exc_error;
1586: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1587: RAISE Fnd_Api.g_exc_unexpected_error;
1588: END IF;
1589: END IF;
1590: END IF; --l_stage_task_dets.VISIT_TASK_ID
1591:
1612: --Standard check to count messages
1613: l_msg_count := Fnd_Msg_Pub.count_msg;
1614: IF l_msg_count > 0 THEN
1615: X_msg_count := l_msg_count;
1616: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1618: END IF;
1619:
1620: --Standard check for commit
1613: l_msg_count := Fnd_Msg_Pub.count_msg;
1614: IF l_msg_count > 0 THEN
1615: X_msg_count := l_msg_count;
1616: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1618: END IF;
1619:
1620: --Standard check for commit
1621: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1617: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1618: END IF;
1619:
1620: --Standard check for commit
1621: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1622: COMMIT;
1623: END IF;
1624:
1625: IF (l_log_procedure >= l_log_current_level) THEN
1626: fnd_log.string(l_log_procedure,L_DEBUG||'.end','At the end of the PLSQL procedure');
1627: END IF;
1628:
1629: EXCEPTION
1630: WHEN Fnd_Api.g_exc_error THEN
1631: ROLLBACK TO Delete_Stages;
1632: x_return_status := Fnd_Api.g_ret_sts_error;
1633: Fnd_Msg_Pub.count_and_get(
1634: p_encoded => Fnd_Api.g_false,
1628:
1629: EXCEPTION
1630: WHEN Fnd_Api.g_exc_error THEN
1631: ROLLBACK TO Delete_Stages;
1632: x_return_status := Fnd_Api.g_ret_sts_error;
1633: Fnd_Msg_Pub.count_and_get(
1634: p_encoded => Fnd_Api.g_false,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1630: WHEN Fnd_Api.g_exc_error THEN
1631: ROLLBACK TO Delete_Stages;
1632: x_return_status := Fnd_Api.g_ret_sts_error;
1633: Fnd_Msg_Pub.count_and_get(
1634: p_encoded => Fnd_Api.g_false,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638: WHEN Fnd_Api.g_exc_unexpected_error THEN
1634: p_encoded => Fnd_Api.g_false,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638: WHEN Fnd_Api.g_exc_unexpected_error THEN
1639: ROLLBACK TO Delete_Stages;
1640: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1641: Fnd_Msg_Pub.count_and_get (
1642: p_encoded => Fnd_Api.g_false,
1636: p_data => x_msg_data
1637: );
1638: WHEN Fnd_Api.g_exc_unexpected_error THEN
1639: ROLLBACK TO Delete_Stages;
1640: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1641: Fnd_Msg_Pub.count_and_get (
1642: p_encoded => Fnd_Api.g_false,
1643: p_count => x_msg_count,
1644: p_data => x_msg_data
1638: WHEN Fnd_Api.g_exc_unexpected_error THEN
1639: ROLLBACK TO Delete_Stages;
1640: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1641: Fnd_Msg_Pub.count_and_get (
1642: p_encoded => Fnd_Api.g_false,
1643: p_count => x_msg_count,
1644: p_data => x_msg_data
1645: );
1646: WHEN OTHERS THEN
1644: p_data => x_msg_data
1645: );
1646: WHEN OTHERS THEN
1647: ROLLBACK TO Delete_Stages;
1648: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1649: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1650: THEN
1651: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1652: END IF;
1650: THEN
1651: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1652: END IF;
1653: Fnd_Msg_Pub.count_and_get (
1654: p_encoded => Fnd_Api.g_false,
1655: p_count => x_msg_count,
1656: p_data => x_msg_data
1657: );
1658:
1671: -- PRAKKUM :: 05-MAY-2011 :: VWPE :: This function is earlier Delete_Stages method which was
1672: -- renamed to Delete_All_Stages. Used in case of hard deletion of stages while deletion of a visit.
1673: PROCEDURE Delete_All_Stages (
1674: p_api_version IN NUMBER,
1675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1678: p_module_type IN VARCHAR2 := 'JSP',
1679:
1672: -- renamed to Delete_All_Stages. Used in case of hard deletion of stages while deletion of a visit.
1673: PROCEDURE Delete_All_Stages (
1674: p_api_version IN NUMBER,
1675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1678: p_module_type IN VARCHAR2 := 'JSP',
1679:
1680: p_visit_id IN NUMBER,
1673: PROCEDURE Delete_All_Stages (
1674: p_api_version IN NUMBER,
1675: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1676: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1677: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1678: p_module_type IN VARCHAR2 := 'JSP',
1679:
1680: p_visit_id IN NUMBER,
1681: x_return_status OUT NOCOPY VARCHAR2,
1705: AHL_DEBUG_PUB.Debug( l_full_name ||': Start');
1706: END IF;
1707:
1708: --Initialize API return status to success
1709: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1710: l_return_status := x_return_status;
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE.
1713: IF Fnd_Api.to_boolean(p_init_msg_list)
1709: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1710: l_return_status := x_return_status;
1711:
1712: -- Initialize message list if p_init_msg_list is set to TRUE.
1713: IF Fnd_Api.to_boolean(p_init_msg_list)
1714: THEN
1715: Fnd_Msg_Pub.initialize;
1716: END IF;
1717:
1715: Fnd_Msg_Pub.initialize;
1716: END IF;
1717:
1718: -- Initialize API return status to success
1719: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1720:
1721: -- Standard call to check for call compatibility.
1722: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1723: p_api_version,
1718: -- Initialize API return status to success
1719: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1720:
1721: -- Standard call to check for call compatibility.
1722: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1723: p_api_version,
1724: l_api_name,G_PKG_NAME)
1725: THEN
1726: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1722: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1723: p_api_version,
1724: l_api_name,G_PKG_NAME)
1725: THEN
1726: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728:
1729: ------------------------Start of API Body------------------------------------
1730: -- directly delete as we need to delete all stages for the visit
1755: --Standard check to count messages
1756: l_msg_count := Fnd_Msg_Pub.count_msg;
1757: IF l_msg_count > 0 THEN
1758: X_msg_count := l_msg_count;
1759: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: --Standard check for commit
1756: l_msg_count := Fnd_Msg_Pub.count_msg;
1757: IF l_msg_count > 0 THEN
1758: X_msg_count := l_msg_count;
1759: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: --Standard check for commit
1764: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1760: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1761: END IF;
1762:
1763: --Standard check for commit
1764: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1765: COMMIT;
1766: END IF;
1767:
1768: IF G_DEBUG='Y' THEN
1773: IF G_DEBUG='Y' THEN
1774: Ahl_Debug_Pub.disable_debug;
1775: END IF;
1776: EXCEPTION
1777: WHEN Fnd_Api.g_exc_error THEN
1778: ROLLBACK TO Delete_All_Stages;
1779: x_return_status := Fnd_Api.g_ret_sts_error;
1780: Fnd_Msg_Pub.count_and_get(
1781: p_encoded => Fnd_Api.g_false,
1775: END IF;
1776: EXCEPTION
1777: WHEN Fnd_Api.g_exc_error THEN
1778: ROLLBACK TO Delete_All_Stages;
1779: x_return_status := Fnd_Api.g_ret_sts_error;
1780: Fnd_Msg_Pub.count_and_get(
1781: p_encoded => Fnd_Api.g_false,
1782: p_count => x_msg_count,
1783: p_data => x_msg_data
1777: WHEN Fnd_Api.g_exc_error THEN
1778: ROLLBACK TO Delete_All_Stages;
1779: x_return_status := Fnd_Api.g_ret_sts_error;
1780: Fnd_Msg_Pub.count_and_get(
1781: p_encoded => Fnd_Api.g_false,
1782: p_count => x_msg_count,
1783: p_data => x_msg_data
1784: );
1785: WHEN Fnd_Api.g_exc_unexpected_error THEN
1781: p_encoded => Fnd_Api.g_false,
1782: p_count => x_msg_count,
1783: p_data => x_msg_data
1784: );
1785: WHEN Fnd_Api.g_exc_unexpected_error THEN
1786: ROLLBACK TO Delete_All_Stages;
1787: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1788: Fnd_Msg_Pub.count_and_get (
1789: p_encoded => Fnd_Api.g_false,
1783: p_data => x_msg_data
1784: );
1785: WHEN Fnd_Api.g_exc_unexpected_error THEN
1786: ROLLBACK TO Delete_All_Stages;
1787: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1788: Fnd_Msg_Pub.count_and_get (
1789: p_encoded => Fnd_Api.g_false,
1790: p_count => x_msg_count,
1791: p_data => x_msg_data
1785: WHEN Fnd_Api.g_exc_unexpected_error THEN
1786: ROLLBACK TO Delete_All_Stages;
1787: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1788: Fnd_Msg_Pub.count_and_get (
1789: p_encoded => Fnd_Api.g_false,
1790: p_count => x_msg_count,
1791: p_data => x_msg_data
1792: );
1793: WHEN OTHERS THEN
1791: p_data => x_msg_data
1792: );
1793: WHEN OTHERS THEN
1794: ROLLBACK TO Delete_All_Stages;
1795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1797: THEN
1798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1799: END IF;
1797: THEN
1798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1799: END IF;
1800: Fnd_Msg_Pub.count_and_get (
1801: p_encoded => Fnd_Api.g_false,
1802: p_count => x_msg_count,
1803: p_data => x_msg_data
1804: );
1805:
1866: AHL_DEBUG_PUB.debug( l_full_name ||'********************************START******************************* ');
1867: END IF;
1868: END IF;
1869:
1870: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1871: Fnd_Msg_Pub.initialize;
1872: END IF;
1873:
1874: IF NOT Fnd_Api.compatible_api_call (
1870: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1871: Fnd_Msg_Pub.initialize;
1872: END IF;
1873:
1874: IF NOT Fnd_Api.compatible_api_call (
1875: l_api_version,
1876: p_api_version,
1877: l_api_name,
1878: G_PKG_NAME
1876: p_api_version,
1877: l_api_name,
1878: G_PKG_NAME
1879: ) THEN
1880: RAISE Fnd_Api.g_exc_unexpected_error;
1881: END IF;
1882: */
1883: x_return_status := Fnd_Api.g_ret_sts_success;
1884:
1879: ) THEN
1880: RAISE Fnd_Api.g_exc_unexpected_error;
1881: END IF;
1882: */
1883: x_return_status := Fnd_Api.g_ret_sts_success;
1884:
1885: open c_stage_data(p_stages_rec.stage_id);
1886: fetch c_stage_data into l_stage_rec;
1887: if c_stage_data%notfound
1887: if c_stage_data%notfound
1888: then
1889: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND_NEW'||p_stages_rec.stage_id);
1890: Fnd_Msg_Pub.ADD;
1891: x_return_status := Fnd_Api.g_ret_sts_error;
1892: return;
1893: end if;
1894: close c_stage_data;
1895:
1904: IF l_stage_rec.OBJECT_VERSION_NUMBER <> p_stages_rec.OBJECT_VERSION_NUMBER
1905: THEN
1906: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_MOD');
1907: Fnd_Msg_Pub.ADD;
1908: x_return_status := Fnd_Api.g_ret_sts_error;
1909: return;
1910: end if;
1911:
1912: IF p_stages_rec.STAGE_NUM IS NULL
1912: IF p_stages_rec.STAGE_NUM IS NULL
1913: THEN
1914: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NUM_NULL');
1915: Fnd_Msg_Pub.ADD;
1916: x_return_status := Fnd_Api.g_ret_sts_error;
1917: return;
1918: end if;
1919:
1920:
1925: then
1926: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NAME_NULL');
1927: FND_MESSAGE.SET_TOKEN('STAGE_NUM',p_stages_rec.STAGE_NUM);
1928: Fnd_Msg_Pub.ADD;
1929: x_return_status := Fnd_Api.g_ret_sts_error;
1930: return;
1931: else
1932: -- stage name is unique
1933: open c_stage_name(p_visit_id, p_stages_rec.stage_name, p_stages_rec.stage_id);
1936: then
1937: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NAME_UNIQUE');
1938: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1939: Fnd_Msg_Pub.ADD;
1940: x_return_status := Fnd_Api.g_ret_sts_error;
1941: close c_stage_name;
1942: return;
1943: end if;
1944: close c_stage_name;
1953: then
1954: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DUR_NULL');
1955: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1956: Fnd_Msg_Pub.ADD;
1957: x_return_status := Fnd_Api.g_ret_sts_error;
1958: -- duration must be positive number
1959: elsif p_stages_rec.duration < 0
1960: then
1961: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INV');
1960: then
1961: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DURN_INV');
1962: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1963: Fnd_Msg_Pub.ADD;
1964: x_return_status := Fnd_Api.g_ret_sts_error;
1965: elsif p_stages_rec.duration = 0
1966: then
1967: open c_stage_task( p_stages_rec.stage_id);
1968: fetch c_stage_task into l_dummy;
1970: THEN
1971: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_HAS_TASKS');
1972: Fnd_Message.SET_TOKEN('STAGE_NAME', p_stages_rec.stage_name);
1973: Fnd_Msg_Pub.ADD;
1974: x_return_status := Fnd_Api.g_ret_sts_error;
1975: end if;
1976: close c_stage_task;
1977: elsif p_stages_rec.DURATION > trunc(l_stage_duration,0)
1978: THEN
1977: elsif p_stages_rec.DURATION > trunc(l_stage_duration,0)
1978: THEN
1979: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_DUR_NON_INT');
1980: Fnd_Msg_Pub.ADD;
1981: x_return_status := Fnd_Api.g_ret_sts_error;
1982:
1983: end if;
1984:
1985: END IF;
2042: -- consider stage rules for validation
2043:
2044: PROCEDURE VALIDATE_STAGE_UPDATES(
2045: p_api_version IN NUMBER,
2046: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2047: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2048: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2049: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
2050: p_module_type IN VARCHAR2 := NULL,
2043:
2044: PROCEDURE VALIDATE_STAGE_UPDATES(
2045: p_api_version IN NUMBER,
2046: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2047: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2048: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2049: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
2050: p_module_type IN VARCHAR2 := NULL,
2051:
2044: PROCEDURE VALIDATE_STAGE_UPDATES(
2045: p_api_version IN NUMBER,
2046: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2047: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2048: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2049: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
2050: p_module_type IN VARCHAR2 := NULL,
2051:
2052: p_visit_id IN NUMBER,
2045: p_api_version IN NUMBER,
2046: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
2047: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2048: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
2049: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
2050: p_module_type IN VARCHAR2 := NULL,
2051:
2052: p_visit_id IN NUMBER,
2053: p_visit_task_id IN NUMBER,
2129: END IF;
2130: END IF;
2131:
2132: -- Initialize message list if p_init_msg_list is set to TRUE.
2133: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
2134: Fnd_Msg_Pub.initialize;
2135: END IF;
2136:
2137: -- Standard call to check for call compatibility.
2134: Fnd_Msg_Pub.initialize;
2135: END IF;
2136:
2137: -- Standard call to check for call compatibility.
2138: IF NOT Fnd_Api.compatible_api_call (
2139: l_api_version,
2140: p_api_version,
2141: l_api_name,
2142: G_PKG_NAME
2140: p_api_version,
2141: l_api_name,
2142: G_PKG_NAME
2143: ) THEN
2144: RAISE Fnd_Api.g_exc_unexpected_error;
2145: END IF;
2146:
2147: -- Initialize API return status to success
2148: x_return_status := Fnd_Api.g_ret_sts_success;
2144: RAISE Fnd_Api.g_exc_unexpected_error;
2145: END IF;
2146:
2147: -- Initialize API return status to success
2148: x_return_status := Fnd_Api.g_ret_sts_success;
2149:
2150:
2151: -- VWP ER-12424063:: tchimira :: 1-JUN-2011:: start
2152: OPEN c_get_stage_id(p_stage_name, p_visit_id);
2153: FETCH c_get_stage_id INTO l_stage_id, l_stage_num;
2154: IF c_get_stage_id%NOTFOUND THEN
2155: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_FOUND');
2156: Fnd_Msg_Pub.ADD;
2157: x_return_status := Fnd_Api.g_ret_sts_error;
2158: END IF;
2159: CLOSE c_get_stage_id;
2160:
2161: -- For the passed visit task id, loop through all of its successive parents
2181: -- throw error
2182: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2183: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_stage_NUM);
2184: Fnd_Msg_Pub.ADD;
2185: x_return_status := Fnd_Api.g_ret_sts_error;
2186: END IF;
2187: END LOOP;
2188: l_task_stage_id := null;
2189: END LOOP;
2212: -- throw error
2213: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2214: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_stage_NUM);
2215: Fnd_Msg_Pub.ADD;
2216: x_return_status := Fnd_Api.g_ret_sts_error;
2217: END IF;
2218: END LOOP;
2219: l_task_stage_id := null;
2220: END LOOP;
2245: FETCH C_get_stage_data INTO L_STAGE_REC;
2246: CLOSE C_get_stage_data;
2247:
2248:
2249: IF NVL(p_x_stages_rec.STAGE_NUM, 99) = FND_API.G_MISS_NUM
2250: THEN
2251: p_x_stages_rec.STAGE_NUM := L_stage_rec.STAGE_NUM;
2252: END IF;
2253:
2250: THEN
2251: p_x_stages_rec.STAGE_NUM := L_stage_rec.STAGE_NUM;
2252: END IF;
2253:
2254: IF NVL(p_x_stages_rec.STAGE_NAME, 'A') = FND_API.G_MISS_CHAR
2255: THEN
2256: p_x_stages_rec.STAGE_NAME := L_stage_rec.STAGE_NAME;
2257: END IF;
2258:
2255: THEN
2256: p_x_stages_rec.STAGE_NAME := L_stage_rec.STAGE_NAME;
2257: END IF;
2258:
2259: IF NVL(p_x_stages_rec.DURATION, 99) = FND_API.G_MISS_NUM
2260: THEN
2261: p_x_stages_rec.DURATION := L_stage_rec.DURATION;
2262: END IF;
2263:
2260: THEN
2261: p_x_stages_rec.DURATION := L_stage_rec.DURATION;
2262: END IF;
2263:
2264: IF p_x_stages_rec.Stage_Planned_Start_Time = FND_API.G_MISS_DATE THEN
2265: p_x_stages_rec.Stage_Planned_Start_Time := L_stage_rec.planned_start_date;--VWPE :: ER 12424063 :: PRAKKUM :: 05-MAY-2011
2266: END IF;
2267:
2268: IF p_x_stages_rec.Stage_Planned_End_Time = FND_API.G_MISS_DATE THEN
2264: IF p_x_stages_rec.Stage_Planned_Start_Time = FND_API.G_MISS_DATE THEN
2265: p_x_stages_rec.Stage_Planned_Start_Time := L_stage_rec.planned_start_date;--VWPE :: ER 12424063 :: PRAKKUM :: 05-MAY-2011
2266: END IF;
2267:
2268: IF p_x_stages_rec.Stage_Planned_End_Time = FND_API.G_MISS_DATE THEN
2269: p_x_stages_rec.Stage_Planned_End_Time := L_stage_rec.planned_end_date;--VWPE :: ER 12424063 :: PRAKKUM :: 05-MAY-2011
2270: END IF;
2271:
2272: end default_missing_attributes;
2297: ELSE
2298: x_Stage_id := null;
2299: END IF;
2300:
2301: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2302: -- Debug info.
2303: IF G_DEBUG='Y' THEN
2304: Ahl_Debug_Pub.debug( 'API Return Status = ' ||L_FULL_NAME||':'|| x_return_status);
2305: END IF;
2305: END IF;
2306:
2307: EXCEPTION
2308: WHEN NO_DATA_FOUND THEN
2309: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
2310: x_error_msg_code:= 'AHL_VWP_STAGE_NOT_EXISTS';
2311: WHEN TOO_MANY_ROWS THEN
2312: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
2313: x_error_msg_code:= 'AHL_VWP_STAGE_NOT_EXISTS';
2308: WHEN NO_DATA_FOUND THEN
2309: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
2310: x_error_msg_code:= 'AHL_VWP_STAGE_NOT_EXISTS';
2311: WHEN TOO_MANY_ROWS THEN
2312: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
2313: x_error_msg_code:= 'AHL_VWP_STAGE_NOT_EXISTS';
2314: WHEN OTHERS THEN
2315: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
2316: RAISE;
2311: WHEN TOO_MANY_ROWS THEN
2312: x_return_status:= Fnd_Api.G_RET_STS_ERROR;
2313: x_error_msg_code:= 'AHL_VWP_STAGE_NOT_EXISTS';
2314: WHEN OTHERS THEN
2315: x_return_status:= Fnd_Api.G_RET_STS_UNEXP_ERROR;
2316: RAISE;
2317: END Check_Stage_Name_Or_Id;
2318:
2319: --------------------------------------------------------------------
2383:
2384:
2385: BEGIN
2386: -- Initialize API return status to success
2387: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2388: x_valid_flag := 'Y';
2389: OPEN c_Visit(p_visit_id);
2390: FETCH c_visit INTO c_visit_rec;
2391: CLOSE c_Visit;
2389: OPEN c_Visit(p_visit_id);
2390: FETCH c_visit INTO c_visit_rec;
2391: CLOSE c_Visit;
2392:
2393: IF(c_visit_rec.START_DATE_TIME IS NULL OR c_visit_rec.START_DATE_TIME = Fnd_Api.g_miss_date)
2394: THEN
2395: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_ST_DATE');
2396: Fnd_Msg_Pub.ADD;
2397: x_valid_flag := 'N';
2396: Fnd_Msg_Pub.ADD;
2397: x_valid_flag := 'N';
2398: END IF;
2399:
2400: IF(c_visit_rec.DEPARTMENT_ID IS NULL OR c_visit_rec.DEPARTMENT_ID = Fnd_Api.g_miss_num)
2401: THEN
2402: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_DEP');
2403: Fnd_Msg_Pub.ADD;
2404: x_valid_flag := 'N';
2463: PRAGMA EXCEPTION_INIT(l_cyclic_loop,-1436);
2464: l_counter NUMBER;
2465:
2466: BEGIN
2467: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2468:
2469: SELECT COUNT(*) INTO l_counter
2470: FROM AHL_STAGE_LINKS A
2471: START WITH OBJECT_ID = P_CHILD_STAGE_ID
2474: WHEN l_cyclic_loop THEN
2475: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_VISIT_STG_ID_CYC');
2476: FND_MESSAGE.SET_TOKEN('STAGE_NUMBER',P_PARENT_STAGE_NUMBER);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2476: FND_MESSAGE.SET_TOKEN('STAGE_NUMBER',P_PARENT_STAGE_NUMBER);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2477: FND_MSG_PUB.ADD;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479:
2480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2482: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2487: X_return_status := FND_API.G_RET_STS_ERROR;
2488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2483: p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2487: X_return_status := FND_API.G_RET_STS_ERROR;
2488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2491: WHEN OTHERS THEN
2484: p_data => x_msg_data);
2485:
2486: WHEN FND_API.G_EXC_ERROR THEN
2487: X_return_status := FND_API.G_RET_STS_ERROR;
2488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2491: WHEN OTHERS THEN
2492: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2489: p_count => x_msg_count,
2490: p_data => X_msg_data);
2491: WHEN OTHERS THEN
2492: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2494: THEN
2495: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2496: p_procedure_name => 'NON_CYCLIC_STAGE_REL',
2495: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2496: p_procedure_name => 'NON_CYCLIC_STAGE_REL',
2497: p_error_text => SUBSTR(SQLERRM,1,240));
2498: END IF;
2499: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2500: p_count => x_msg_count,
2501: p_data => X_msg_data);
2502: END;
2503:
2630:
2631: BEGIN
2632:
2633: -- Initialize API return status to success
2634: x_return_status := Fnd_Api.g_ret_sts_success;
2635:
2636: --PRAKKUM :: VWPE :: ER 12424063 :: 15-APR-2011 :: to find duplicate rules :: START
2637: l_duplicated_count :=0; --Initialization
2638: IF (l_log_statement >= l_log_current_level) THEN
2649:
2650: IF l_duplicated_count IS NOT NULL AND l_duplicated_count > 1 THEN
2651: FND_MESSAGE.SET_NAME('AHL','AHL_VWP_STG_RULE_DUP'); --a stage rule already exists between these stages
2652: FND_MSG_PUB.ADD;
2653: RAISE FND_API.G_EXC_ERROR;
2654: END IF;
2655: --PRAKKUM :: VWPE :: ER 12424063 :: 15-APR-2011 :: to find duplicate rules :: END
2656:
2657: --PRAKKUM :: VWPE :: ER 12424063 :: 31-MAY-2011 :: to validate whether all rules are over planning stages or not :: START
2668: fnd_log.string(l_log_statement,L_DEBUG_KEY,': l_invalid_rules_count is :' ||l_invalid_rules_count );
2669: END IF;
2670:
2671: IF l_invalid_rules_count>0 THEN
2672: RAISE FND_API.G_EXC_ERROR;
2673: END IF;
2674:
2675: --PRAKKUM :: VWPE :: ER 12424063 :: 31-MAY-2011 :: to validate whether all rules are over planning stages or not :: END
2676:
2695: fnd_log.string (l_log_statement,L_DEBUG_KEY, 'After Calling NON_CYCLIC_STAGE_REL &'||' Return status is: '||l_return_Status);
2696: END IF;
2697:
2698: IF l_return_Status <>'S' THEN
2699: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: END IF;
2696: END IF;
2697:
2698: IF l_return_Status <>'S' THEN
2699: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: END IF;
2704: END IF;
2697:
2698: IF l_return_Status <>'S' THEN
2699: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: END IF;
2704: END IF;
2705:
2698: IF l_return_Status <>'S' THEN
2699: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2700: RAISE FND_API.G_EXC_ERROR;
2701: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: END IF;
2704: END IF;
2705:
2706: --Fetch the previous stage number of the OBJECT_STAGE_ID
2768:
2769: ROLLBACK TO STAGE_RULE_UPDATE;
2770:
2771: IF l_return_Status <>'S' THEN
2772: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2773: RAISE FND_API.G_EXC_ERROR;
2774: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2776: END IF;
2769: ROLLBACK TO STAGE_RULE_UPDATE;
2770:
2771: IF l_return_Status <>'S' THEN
2772: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2773: RAISE FND_API.G_EXC_ERROR;
2774: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2776: END IF;
2777: END IF;
2770:
2771: IF l_return_Status <>'S' THEN
2772: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2773: RAISE FND_API.G_EXC_ERROR;
2774: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2776: END IF;
2777: END IF;
2778:
2771: IF l_return_Status <>'S' THEN
2772: IF l_return_Status = FND_API.G_RET_STS_ERROR THEN
2773: RAISE FND_API.G_EXC_ERROR;
2774: ELSIF l_return_Status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2776: END IF;
2777: END IF;
2778:
2779: --The relation type passed to this API can either be parallel or Before
2817: CLOSE c_validate_stage_tasks;
2818: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_NUM_INV');
2819: --Fnd_Message.SET_TOKEN('STAGE_NUM', l_child_stage_num); -- Stage rule for violates already defined task rule
2820: Fnd_Msg_Pub.ADD;
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823: CLOSE c_validate_stage_tasks;
2824: END If;
2825: END LOOP; -- Loop through cursor c_get_child_stages
2831: IF (l_prev_stage_num <> l_parent_stage_num) THEN
2832: FND_MESSAGE.SET_NAME('AHL','AHL_STG_RULE_PRED'); --a stage cannot have more than one predecessors
2833: FND_MESSAGE.SET_TOKEN('STAGE_NUM',l_child_stage_num);
2834: FND_MSG_PUB.ADD;
2835: RAISE FND_API.G_EXC_ERROR;
2836: END IF;
2837: END IF;
2838: END IF; -- RELATION_TYPE is not parallel
2839:
2838: END IF; -- RELATION_TYPE is not parallel
2839:
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2843: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2839:
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2843: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2847:
2840:
2841: EXCEPTION
2842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2843: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2844: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2849: X_return_status := FND_API.G_RET_STS_ERROR;
2850: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2845: p_count => x_msg_count,
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2849: X_return_status := FND_API.G_RET_STS_ERROR;
2850: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2846: p_data => x_msg_data);
2847:
2848: WHEN FND_API.G_EXC_ERROR THEN
2849: X_return_status := FND_API.G_RET_STS_ERROR;
2850: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2854: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2850: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2851: p_count => x_msg_count,
2852: p_data => X_msg_data);
2853: WHEN OTHERS THEN
2854: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2855: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2856: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2857: p_procedure_name => L_API_NAME,
2858: p_error_text => SUBSTR(SQLERRM,1,240));
2856: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2857: p_procedure_name => L_API_NAME,
2858: p_error_text => SUBSTR(SQLERRM,1,240));
2859: END IF;
2860: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2861: p_count => x_msg_count,
2862: p_data => X_msg_data);
2863:
2864: END VALIDATE_STAGE_RULES;
2872: -- To create or delete associations between stage and stagetypes in a visit.
2873: ------------------------------------------------------------------------------
2874: PROCEDURE Process_StageTyp_Assoc (
2875: p_api_version IN NUMBER,
2876: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2877: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2878: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2879: p_stage_type_assoc_tbl IN Stage_Type_Assoc_Tbl_Type,
2880: x_return_status OUT NOCOPY VARCHAR2,
2873: ------------------------------------------------------------------------------
2874: PROCEDURE Process_StageTyp_Assoc (
2875: p_api_version IN NUMBER,
2876: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2877: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2878: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2879: p_stage_type_assoc_tbl IN Stage_Type_Assoc_Tbl_Type,
2880: x_return_status OUT NOCOPY VARCHAR2,
2881: x_msg_count OUT NOCOPY NUMBER,
2874: PROCEDURE Process_StageTyp_Assoc (
2875: p_api_version IN NUMBER,
2876: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2877: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2878: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2879: p_stage_type_assoc_tbl IN Stage_Type_Assoc_Tbl_Type,
2880: x_return_status OUT NOCOPY VARCHAR2,
2881: x_msg_count OUT NOCOPY NUMBER,
2882: x_msg_data OUT NOCOPY VARCHAR2
2921: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the 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)
2926: THEN
2927: Fnd_Msg_Pub.initialize;
2928: END IF;
2929:
2927: Fnd_Msg_Pub.initialize;
2928: END IF;
2929:
2930: -- Initialize API return status to success
2931: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2932:
2933: -- Standard call to check for call compatibility.
2934: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2935: p_api_version,
2930: -- Initialize API return status to success
2931: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2932:
2933: -- Standard call to check for call compatibility.
2934: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2935: p_api_version,
2936: l_api_name,G_PKG_NAME)
2937: THEN
2938: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2934: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2935: p_api_version,
2936: l_api_name,G_PKG_NAME)
2937: THEN
2938: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2939: END IF;
2940:
2941: --Find the child task link
2942: OPEN get_stage_details(p_stage_type_assoc_tbl(1).STAGE_ID);
2945:
2946: -------------------------------- Validate -----------------------------------------
2947: -- Check for the ID.
2948:
2949: IF (l_visit_id = Fnd_Api.g_miss_num OR l_visit_id IS Null)
2950: THEN
2951: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
2952: Fnd_Msg_Pub.ADD;
2953: RAISE Fnd_Api.G_EXC_ERROR;
2949: IF (l_visit_id = Fnd_Api.g_miss_num OR l_visit_id IS Null)
2950: THEN
2951: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_INVALID');
2952: Fnd_Msg_Pub.ADD;
2953: RAISE Fnd_Api.G_EXC_ERROR;
2954: END IF;
2955:
2956: -------------------------- Insert/Delete --------------------------
2957: IF (l_log_procedure >= l_log_current_level) THEN
3024: L_DEBUG_KEY,
3025: ' After Calling VALIDATE_STAGE_UPDATES and return status is: '||l_return_status);
3026: END IF;
3027:
3028: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3029: x_msg_count := l_msg_count;
3030: x_return_status := l_return_status;
3031: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3032: RAISE Fnd_Api.g_exc_error;
3027:
3028: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3029: x_msg_count := l_msg_count;
3030: x_return_status := l_return_status;
3031: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3032: RAISE Fnd_Api.g_exc_error;
3033: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3034: RAISE Fnd_Api.g_exc_unexpected_error;
3035: END IF;
3028: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3029: x_msg_count := l_msg_count;
3030: x_return_status := l_return_status;
3031: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3032: RAISE Fnd_Api.g_exc_error;
3033: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3034: RAISE Fnd_Api.g_exc_unexpected_error;
3035: END IF;
3036: END IF;
3029: x_msg_count := l_msg_count;
3030: x_return_status := l_return_status;
3031: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3032: RAISE Fnd_Api.g_exc_error;
3033: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3034: RAISE Fnd_Api.g_exc_unexpected_error;
3035: END IF;
3036: END IF;
3037:
3030: x_return_status := l_return_status;
3031: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3032: RAISE Fnd_Api.g_exc_error;
3033: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3034: RAISE Fnd_Api.g_exc_unexpected_error;
3035: END IF;
3036: END IF;
3037:
3038: UPDATE AHL_VISIT_TASKS_B
3061:
3062: END LOOP; -- Loop through all the stage - stage type associations that are passed
3063:
3064: EXCEPTION
3065: WHEN Fnd_Api.g_exc_error THEN
3066: x_return_status := Fnd_Api.g_ret_sts_error;
3067: ROLLBACK TO Process_StageTyp_Assoc;
3068: Fnd_Msg_Pub.count_and_get(
3069: p_encoded => Fnd_Api.g_false,
3062: END LOOP; -- Loop through all the stage - stage type associations that are passed
3063:
3064: EXCEPTION
3065: WHEN Fnd_Api.g_exc_error THEN
3066: x_return_status := Fnd_Api.g_ret_sts_error;
3067: ROLLBACK TO Process_StageTyp_Assoc;
3068: Fnd_Msg_Pub.count_and_get(
3069: p_encoded => Fnd_Api.g_false,
3070: p_count => x_msg_count,
3065: WHEN Fnd_Api.g_exc_error THEN
3066: x_return_status := Fnd_Api.g_ret_sts_error;
3067: ROLLBACK TO Process_StageTyp_Assoc;
3068: Fnd_Msg_Pub.count_and_get(
3069: p_encoded => Fnd_Api.g_false,
3070: p_count => x_msg_count,
3071: p_data => x_msg_data
3072: );
3073: WHEN Fnd_Api.g_exc_unexpected_error THEN
3069: p_encoded => Fnd_Api.g_false,
3070: p_count => x_msg_count,
3071: p_data => x_msg_data
3072: );
3073: WHEN Fnd_Api.g_exc_unexpected_error THEN
3074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3075: ROLLBACK TO Process_StageTyp_Assoc;
3076: Fnd_Msg_Pub.count_and_get (
3077: p_encoded => Fnd_Api.g_false,
3070: p_count => x_msg_count,
3071: p_data => x_msg_data
3072: );
3073: WHEN Fnd_Api.g_exc_unexpected_error THEN
3074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3075: ROLLBACK TO Process_StageTyp_Assoc;
3076: Fnd_Msg_Pub.count_and_get (
3077: p_encoded => Fnd_Api.g_false,
3078: p_count => x_msg_count,
3073: WHEN Fnd_Api.g_exc_unexpected_error THEN
3074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3075: ROLLBACK TO Process_StageTyp_Assoc;
3076: Fnd_Msg_Pub.count_and_get (
3077: p_encoded => Fnd_Api.g_false,
3078: p_count => x_msg_count,
3079: p_data => x_msg_data
3080: );
3081: WHEN OTHERS THEN
3078: p_count => x_msg_count,
3079: p_data => x_msg_data
3080: );
3081: WHEN OTHERS THEN
3082: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3083: ROLLBACK TO Process_StageTyp_Assoc;
3084: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3085: THEN
3086: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3085: THEN
3086: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3087: END IF;
3088: Fnd_Msg_Pub.count_and_get (
3089: p_encoded => Fnd_Api.g_false,
3090: p_count => x_msg_count,
3091: p_data => x_msg_data
3092: );
3093:
3102: -- To create stages,stage tasks, stage rules, stage-stage type associations in a visit when visit type is associated to a visit.
3103: ------------------------------------------------------------------------------------------
3104: PROCEDURE Assoc_VisitType_to_Visit (
3105: p_api_version IN NUMBER,
3106: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3107: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3108: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3109: p_visit_id IN NUMBER,
3110: p_visit_type_code IN VARCHAR2,
3103: ------------------------------------------------------------------------------------------
3104: PROCEDURE Assoc_VisitType_to_Visit (
3105: p_api_version IN NUMBER,
3106: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3107: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3108: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3109: p_visit_id IN NUMBER,
3110: p_visit_type_code IN VARCHAR2,
3111: x_return_status OUT NOCOPY VARCHAR2,
3104: PROCEDURE Assoc_VisitType_to_Visit (
3105: p_api_version IN NUMBER,
3106: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3107: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3108: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3109: p_visit_id IN NUMBER,
3110: p_visit_type_code IN VARCHAR2,
3111: x_return_status OUT NOCOPY VARCHAR2,
3112: x_msg_count OUT NOCOPY NUMBER,
3200: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
3201: END IF;
3202:
3203: -- Initialize message list if p_init_msg_list is set to TRUE.
3204: IF Fnd_Api.to_boolean(p_init_msg_list)
3205: THEN
3206: Fnd_Msg_Pub.initialize;
3207: END IF;
3208:
3206: Fnd_Msg_Pub.initialize;
3207: END IF;
3208:
3209: -- Initialize API return status to success
3210: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3211:
3212: -- Standard call to check for call compatibility.
3213: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3214: p_api_version,
3209: -- Initialize API return status to success
3210: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3211:
3212: -- Standard call to check for call compatibility.
3213: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3214: p_api_version,
3215: l_api_name,G_PKG_NAME)
3216: THEN
3217: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3213: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3214: p_api_version,
3215: l_api_name,G_PKG_NAME)
3216: THEN
3217: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3218: END IF;
3219:
3220: IF (l_log_statement >= l_log_current_level) THEN
3221: fnd_log.string(l_log_statement,
3295:
3296: -- CREATE A STAGE TASK
3297: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
3298: p_api_version => 1.0,
3299: p_init_msg_list => Fnd_Api.g_false,
3300: p_commit => Fnd_Api.g_false,
3301: p_validation_level => Fnd_Api.g_valid_level_full,
3302: p_module_type => 'JSP',
3303: p_stage_id => l_stage_id,
3296: -- CREATE A STAGE TASK
3297: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
3298: p_api_version => 1.0,
3299: p_init_msg_list => Fnd_Api.g_false,
3300: p_commit => Fnd_Api.g_false,
3301: p_validation_level => Fnd_Api.g_valid_level_full,
3302: p_module_type => 'JSP',
3303: p_stage_id => l_stage_id,
3304: p_visit_id => P_VISIT_ID,
3297: AHL_VWP_TASKS_PVT.Create_Stage_Tasks (
3298: p_api_version => 1.0,
3299: p_init_msg_list => Fnd_Api.g_false,
3300: p_commit => Fnd_Api.g_false,
3301: p_validation_level => Fnd_Api.g_valid_level_full,
3302: p_module_type => 'JSP',
3303: p_stage_id => l_stage_id,
3304: p_visit_id => P_VISIT_ID,
3305: x_return_status => l_return_status,
3312: L_DEBUG_KEY,
3313: 'After calling AHL_VWP_TASKS_PVT.Create_Stage_Tasks and the return status is: '||l_return_status);
3314: END IF;
3315:
3316: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3317: x_msg_count := l_msg_count;
3318: x_return_status := l_return_status;
3319: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3320: RAISE Fnd_Api.g_exc_error;
3315:
3316: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3317: x_msg_count := l_msg_count;
3318: x_return_status := l_return_status;
3319: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3320: RAISE Fnd_Api.g_exc_error;
3321: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3322: RAISE Fnd_Api.g_exc_unexpected_error;
3323: END IF;
3316: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3317: x_msg_count := l_msg_count;
3318: x_return_status := l_return_status;
3319: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3320: RAISE Fnd_Api.g_exc_error;
3321: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3322: RAISE Fnd_Api.g_exc_unexpected_error;
3323: END IF;
3324: END IF;
3317: x_msg_count := l_msg_count;
3318: x_return_status := l_return_status;
3319: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3320: RAISE Fnd_Api.g_exc_error;
3321: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3322: RAISE Fnd_Api.g_exc_unexpected_error;
3323: END IF;
3324: END IF;
3325:
3318: x_return_status := l_return_status;
3319: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3320: RAISE Fnd_Api.g_exc_error;
3321: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3322: RAISE Fnd_Api.g_exc_unexpected_error;
3323: END IF;
3324: END IF;
3325:
3326: IF (l_log_statement >= l_log_current_level) THEN
3377: L_DEBUG_KEY,
3378: ' After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_UPDATES and return status: '||l_return_status);
3379: END IF;
3380:
3381: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3382: x_msg_count := l_msg_count;
3383: x_return_status := l_return_status;
3384: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3385: RAISE Fnd_Api.g_exc_error;
3380:
3381: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3382: x_msg_count := l_msg_count;
3383: x_return_status := l_return_status;
3384: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3385: RAISE Fnd_Api.g_exc_error;
3386: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3387: RAISE Fnd_Api.g_exc_unexpected_error;
3388: END IF;
3381: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3382: x_msg_count := l_msg_count;
3383: x_return_status := l_return_status;
3384: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3385: RAISE Fnd_Api.g_exc_error;
3386: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3387: RAISE Fnd_Api.g_exc_unexpected_error;
3388: END IF;
3389: END IF;
3382: x_msg_count := l_msg_count;
3383: x_return_status := l_return_status;
3384: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3385: RAISE Fnd_Api.g_exc_error;
3386: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3387: RAISE Fnd_Api.g_exc_unexpected_error;
3388: END IF;
3389: END IF;
3390:
3383: x_return_status := l_return_status;
3384: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3385: RAISE Fnd_Api.g_exc_error;
3386: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3387: RAISE Fnd_Api.g_exc_unexpected_error;
3388: END IF;
3389: END IF;
3390:
3391: UPDATE AHL_VISIT_TASKS_B
3461: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_RULES - l_return_status : '||l_return_status);
3462: END IF;
3463:
3464: l_msg_count := Fnd_Msg_Pub.count_msg;
3465: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS THEN
3466: x_msg_count := l_msg_count;
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3469: RAISE Fnd_Api.g_exc_error;
3464: l_msg_count := Fnd_Msg_Pub.count_msg;
3465: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS THEN
3466: x_msg_count := l_msg_count;
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3469: RAISE Fnd_Api.g_exc_error;
3470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3471: RAISE Fnd_Api.g_exc_unexpected_error;
3472: END IF;
3465: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> FND_API.G_RET_STS_SUCCESS THEN
3466: x_msg_count := l_msg_count;
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3469: RAISE Fnd_Api.g_exc_error;
3470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3471: RAISE Fnd_Api.g_exc_unexpected_error;
3472: END IF;
3473: END IF;
3466: x_msg_count := l_msg_count;
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3469: RAISE Fnd_Api.g_exc_error;
3470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3471: RAISE Fnd_Api.g_exc_unexpected_error;
3472: END IF;
3473: END IF;
3474:
3467: x_return_status := l_return_status;
3468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3469: RAISE Fnd_Api.g_exc_error;
3470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3471: RAISE Fnd_Api.g_exc_unexpected_error;
3472: END IF;
3473: END IF;
3474:
3475: END LOOP; --Loop though stage rules of a stage.
3484:
3485: --Calculate and update all the stages planned start and end dates
3486: UPDATE_STAGES_HIERARICHY (
3487: p_api_version => 1.0,
3488: p_init_msg_list => Fnd_Api.g_false,
3489: p_commit => Fnd_Api.g_false,
3490: p_validation_level => Fnd_Api.g_valid_level_full,
3491: p_module_type => 'JSP',
3492: p_visit_id => p_visit_id,
3485: --Calculate and update all the stages planned start and end dates
3486: UPDATE_STAGES_HIERARICHY (
3487: p_api_version => 1.0,
3488: p_init_msg_list => Fnd_Api.g_false,
3489: p_commit => Fnd_Api.g_false,
3490: p_validation_level => Fnd_Api.g_valid_level_full,
3491: p_module_type => 'JSP',
3492: p_visit_id => p_visit_id,
3493: x_return_status => l_return_status,
3486: UPDATE_STAGES_HIERARICHY (
3487: p_api_version => 1.0,
3488: p_init_msg_list => Fnd_Api.g_false,
3489: p_commit => Fnd_Api.g_false,
3490: p_validation_level => Fnd_Api.g_valid_level_full,
3491: p_module_type => 'JSP',
3492: p_visit_id => p_visit_id,
3493: x_return_status => l_return_status,
3494: x_msg_count => l_msg_count,
3500: L_DEBUG_KEY,
3501: 'After calling UPDATE_STAGES_HIERARICHY and return status is:'||l_return_status);
3502: END IF;
3503:
3504: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3505: x_msg_count := l_msg_count;
3506: x_return_status := l_return_status;
3507: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3508: RAISE Fnd_Api.g_exc_error;
3503:
3504: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3505: x_msg_count := l_msg_count;
3506: x_return_status := l_return_status;
3507: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3508: RAISE Fnd_Api.g_exc_error;
3509: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3510: RAISE Fnd_Api.g_exc_unexpected_error;
3511: END IF;
3504: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3505: x_msg_count := l_msg_count;
3506: x_return_status := l_return_status;
3507: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3508: RAISE Fnd_Api.g_exc_error;
3509: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3510: RAISE Fnd_Api.g_exc_unexpected_error;
3511: END IF;
3512: END IF;
3505: x_msg_count := l_msg_count;
3506: x_return_status := l_return_status;
3507: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3508: RAISE Fnd_Api.g_exc_error;
3509: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3510: RAISE Fnd_Api.g_exc_unexpected_error;
3511: END IF;
3512: END IF;
3513:
3506: x_return_status := l_return_status;
3507: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3508: RAISE Fnd_Api.g_exc_error;
3509: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3510: RAISE Fnd_Api.g_exc_unexpected_error;
3511: END IF;
3512: END IF;
3513:
3514: -- Standard check of p_commit
3511: END IF;
3512: END IF;
3513:
3514: -- Standard check of p_commit
3515: IF FND_API.TO_BOOLEAN(p_commit) THEN
3516: COMMIT WORK;
3517: END IF;
3518:
3519: IF (l_log_procedure >= l_log_current_level)THEN
3520: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
3521: END IF;
3522:
3523: EXCEPTION
3524: WHEN Fnd_Api.g_exc_error THEN
3525: ROLLBACK TO Assoc_VisitType_to_Visit;
3526: x_return_status := Fnd_Api.g_ret_sts_error;
3527: Fnd_Msg_Pub.count_and_get(
3528: p_encoded => Fnd_Api.g_false,
3522:
3523: EXCEPTION
3524: WHEN Fnd_Api.g_exc_error THEN
3525: ROLLBACK TO Assoc_VisitType_to_Visit;
3526: x_return_status := Fnd_Api.g_ret_sts_error;
3527: Fnd_Msg_Pub.count_and_get(
3528: p_encoded => Fnd_Api.g_false,
3529: p_count => x_msg_count,
3530: p_data => x_msg_data
3524: WHEN Fnd_Api.g_exc_error THEN
3525: ROLLBACK TO Assoc_VisitType_to_Visit;
3526: x_return_status := Fnd_Api.g_ret_sts_error;
3527: Fnd_Msg_Pub.count_and_get(
3528: p_encoded => Fnd_Api.g_false,
3529: p_count => x_msg_count,
3530: p_data => x_msg_data
3531: );
3532: WHEN Fnd_Api.g_exc_unexpected_error THEN
3528: p_encoded => Fnd_Api.g_false,
3529: p_count => x_msg_count,
3530: p_data => x_msg_data
3531: );
3532: WHEN Fnd_Api.g_exc_unexpected_error THEN
3533: ROLLBACK TO Assoc_VisitType_to_Visit;
3534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3535: Fnd_Msg_Pub.count_and_get (
3536: p_encoded => Fnd_Api.g_false,
3530: p_data => x_msg_data
3531: );
3532: WHEN Fnd_Api.g_exc_unexpected_error THEN
3533: ROLLBACK TO Assoc_VisitType_to_Visit;
3534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3535: Fnd_Msg_Pub.count_and_get (
3536: p_encoded => Fnd_Api.g_false,
3537: p_count => x_msg_count,
3538: p_data => x_msg_data
3532: WHEN Fnd_Api.g_exc_unexpected_error THEN
3533: ROLLBACK TO Assoc_VisitType_to_Visit;
3534: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3535: Fnd_Msg_Pub.count_and_get (
3536: p_encoded => Fnd_Api.g_false,
3537: p_count => x_msg_count,
3538: p_data => x_msg_data
3539: );
3540: WHEN OTHERS THEN
3538: p_data => x_msg_data
3539: );
3540: WHEN OTHERS THEN
3541: ROLLBACK TO Assoc_VisitType_to_Visit;
3542: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3543: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3544: THEN
3545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3546: END IF;
3544: THEN
3545: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3546: END IF;
3547: Fnd_Msg_Pub.count_and_get (
3548: p_encoded => Fnd_Api.g_false,
3549: p_count => x_msg_count,
3550: p_data => x_msg_data
3551: );
3552:
3686: -- To recalculate planned start and end date of all stages of a visit considering duration as a base
3687: --------------------------------------------------------------------
3688: PROCEDURE UPDATE_STAGES_HIERARICHY (
3689: p_api_version IN NUMBER,
3690: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3691: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3692: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3693: p_module_type IN VARCHAR2 := 'JSP',
3694: p_visit_id IN NUMBER,
3687: --------------------------------------------------------------------
3688: PROCEDURE UPDATE_STAGES_HIERARICHY (
3689: p_api_version IN NUMBER,
3690: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3691: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3692: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3693: p_module_type IN VARCHAR2 := 'JSP',
3694: p_visit_id IN NUMBER,
3695:
3688: PROCEDURE UPDATE_STAGES_HIERARICHY (
3689: p_api_version IN NUMBER,
3690: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3691: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3692: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3693: p_module_type IN VARCHAR2 := 'JSP',
3694: p_visit_id IN NUMBER,
3695:
3696: x_return_status OUT NOCOPY VARCHAR2,
3719: END IF;
3720:
3721: -- Initialize API return status to success
3722: -- Initialize message list if p_init_msg_list is set to TRUE.
3723: IF FND_API.to_boolean(p_init_msg_list) THEN
3724: FND_MSG_PUB.initialize;
3725: END IF;
3726:
3727: --Initialize API return status to success
3724: FND_MSG_PUB.initialize;
3725: END IF;
3726:
3727: --Initialize API return status to success
3728: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3729: l_return_status := x_return_status;
3730:
3731: -- Standard call to check for call compatibility.
3732: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3728: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3729: l_return_status := x_return_status;
3730:
3731: -- Standard call to check for call compatibility.
3732: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3734: END IF;
3735:
3736: --Passing null relation details will recalculate stage dates for the entire visit taking dependencies from database into account
3729: l_return_status := x_return_status;
3730:
3731: -- Standard call to check for call compatibility.
3732: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3734: END IF;
3735:
3736: --Passing null relation details will recalculate stage dates for the entire visit taking dependencies from database into account
3737: PROCESS_STAGE_DATES (
3750: IF (l_log_statement >= l_log_current_level) THEN
3751: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.PROCESS_STAGE_DATES - l_return_status : '||l_return_status);
3752: END IF;
3753:
3754: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3755: x_msg_count := l_msg_count;
3756: x_return_status := l_return_status;
3757: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3758: RAISE Fnd_Api.g_exc_error;
3753:
3754: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3755: x_msg_count := l_msg_count;
3756: x_return_status := l_return_status;
3757: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3758: RAISE Fnd_Api.g_exc_error;
3759: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3760: RAISE Fnd_Api.g_exc_unexpected_error;
3761: END IF;
3754: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3755: x_msg_count := l_msg_count;
3756: x_return_status := l_return_status;
3757: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3758: RAISE Fnd_Api.g_exc_error;
3759: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3760: RAISE Fnd_Api.g_exc_unexpected_error;
3761: END IF;
3762: END IF;
3755: x_msg_count := l_msg_count;
3756: x_return_status := l_return_status;
3757: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3758: RAISE Fnd_Api.g_exc_error;
3759: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3760: RAISE Fnd_Api.g_exc_unexpected_error;
3761: END IF;
3762: END IF;
3763:
3756: x_return_status := l_return_status;
3757: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3758: RAISE Fnd_Api.g_exc_error;
3759: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3760: RAISE Fnd_Api.g_exc_unexpected_error;
3761: END IF;
3762: END IF;
3763:
3764: l_msg_count := Fnd_Msg_Pub.count_msg;
3763:
3764: l_msg_count := Fnd_Msg_Pub.count_msg;
3765: IF l_msg_count > 0 THEN
3766: X_msg_count := l_msg_count;
3767: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3768: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3769: END IF;
3770:
3771: --Standard check for commit
3764: l_msg_count := Fnd_Msg_Pub.count_msg;
3765: IF l_msg_count > 0 THEN
3766: X_msg_count := l_msg_count;
3767: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3768: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3769: END IF;
3770:
3771: --Standard check for commit
3772: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3768: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3769: END IF;
3770:
3771: --Standard check for commit
3772: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3773: COMMIT;
3774: END IF;
3775:
3776: IF (l_log_procedure >= l_log_current_level) THEN
3777: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
3778: END IF;
3779:
3780: EXCEPTION
3781: WHEN Fnd_Api.G_EXC_ERROR THEN
3782: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3783: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3778: END IF;
3779:
3780: EXCEPTION
3781: WHEN Fnd_Api.G_EXC_ERROR THEN
3782: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3783: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3786: p_encoded => Fnd_Api.g_false);
3782: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3783: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3786: p_encoded => Fnd_Api.g_false);
3787: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3789: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3790: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3783: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3786: p_encoded => Fnd_Api.g_false);
3787: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3789: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3790: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3791: p_data => x_msg_data,
3784: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3785: p_data => x_msg_data,
3786: p_encoded => Fnd_Api.g_false);
3787: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3789: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3790: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3791: p_data => x_msg_data,
3792: p_encoded => Fnd_Api.g_false);
3788: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3789: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3790: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
3791: p_data => x_msg_data,
3792: p_encoded => Fnd_Api.g_false);
3793: WHEN OTHERS THEN
3794: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3791: p_data => x_msg_data,
3792: p_encoded => Fnd_Api.g_false);
3793: WHEN OTHERS THEN
3794: ROLLBACK TO UPDATE_STAGES_HIERARICHY;
3795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3796: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3797: THEN
3798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3799: END IF;
3797: THEN
3798: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3799: END IF;
3800: Fnd_Msg_Pub.count_and_get (
3801: p_encoded => Fnd_Api.g_false,
3802: p_count => x_msg_count,
3803: p_data => x_msg_data );
3804:
3805:
3813: -- To recalculate planned start and end date of all successor stages of a stages that involve in dependency deletion considering duration as a base
3814: --------------------------------------------------------------------
3815: PROCEDURE UPDATE_AS_STAGE_RULE_DEL (
3816: p_api_version IN NUMBER,
3817: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3818: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3819: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3820: p_module_type IN VARCHAR2 := 'JSP',
3821:
3814: --------------------------------------------------------------------
3815: PROCEDURE UPDATE_AS_STAGE_RULE_DEL (
3816: p_api_version IN NUMBER,
3817: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3818: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3819: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3820: p_module_type IN VARCHAR2 := 'JSP',
3821:
3822: p_object_id IN NUMBER,
3815: PROCEDURE UPDATE_AS_STAGE_RULE_DEL (
3816: p_api_version IN NUMBER,
3817: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3818: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3819: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3820: p_module_type IN VARCHAR2 := 'JSP',
3821:
3822: p_object_id IN NUMBER,
3823: p_subject_id IN NUMBER,
3878: END IF;
3879:
3880: -- Initialize API return status to success
3881: -- Initialize message list if p_init_msg_list is set to TRUE.
3882: IF FND_API.to_boolean(p_init_msg_list) THEN
3883: FND_MSG_PUB.initialize;
3884: END IF;
3885:
3886: --Initialize API return status to success
3883: FND_MSG_PUB.initialize;
3884: END IF;
3885:
3886: --Initialize API return status to success
3887: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3888: l_return_status := x_return_status;
3889:
3890: -- Standard call to check for call compatibility.
3891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3887: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3888: l_return_status := x_return_status;
3889:
3890: -- Standard call to check for call compatibility.
3891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3893: END IF;
3894:
3895: select max(START_DATE_TIME) into l_visit_start_date from AHL_VISITS_VL where VISIT_ID = p_visit_id;
3888: l_return_status := x_return_status;
3889:
3890: -- Standard call to check for call compatibility.
3891: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3893: END IF;
3894:
3895: select max(START_DATE_TIME) into l_visit_start_date from AHL_VISITS_VL where VISIT_ID = p_visit_id;
3896: IF p_relation_type = 'BEFORE' THEN -- BEFORE
3994: IF (l_log_statement >= l_log_current_level) THEN
3995: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.PROCESS_STAGE_DATES - l_return_status : '||l_return_status);
3996: END IF;
3997:
3998: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3999: x_msg_count := l_msg_count;
4000: x_return_status := l_return_status;
4001: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4002: RAISE Fnd_Api.g_exc_error;
3997:
3998: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3999: x_msg_count := l_msg_count;
4000: x_return_status := l_return_status;
4001: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4002: RAISE Fnd_Api.g_exc_error;
4003: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4004: RAISE Fnd_Api.g_exc_unexpected_error;
4005: END IF;
3998: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3999: x_msg_count := l_msg_count;
4000: x_return_status := l_return_status;
4001: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4002: RAISE Fnd_Api.g_exc_error;
4003: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4004: RAISE Fnd_Api.g_exc_unexpected_error;
4005: END IF;
4006: END IF;
3999: x_msg_count := l_msg_count;
4000: x_return_status := l_return_status;
4001: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4002: RAISE Fnd_Api.g_exc_error;
4003: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4004: RAISE Fnd_Api.g_exc_unexpected_error;
4005: END IF;
4006: END IF;
4007:
4000: x_return_status := l_return_status;
4001: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4002: RAISE Fnd_Api.g_exc_error;
4003: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4004: RAISE Fnd_Api.g_exc_unexpected_error;
4005: END IF;
4006: END IF;
4007:
4008: l_msg_count := Fnd_Msg_Pub.count_msg;
4007:
4008: l_msg_count := Fnd_Msg_Pub.count_msg;
4009: IF l_msg_count > 0 THEN
4010: X_msg_count := l_msg_count;
4011: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4012: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4013: END IF;
4014:
4015: --Standard check for commit
4008: l_msg_count := Fnd_Msg_Pub.count_msg;
4009: IF l_msg_count > 0 THEN
4010: X_msg_count := l_msg_count;
4011: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4012: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4013: END IF;
4014:
4015: --Standard check for commit
4016: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4012: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4013: END IF;
4014:
4015: --Standard check for commit
4016: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4017: COMMIT;
4018: END IF;
4019:
4020: IF (l_log_procedure >= l_log_current_level) THEN
4021: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
4022: END IF;
4023:
4024: EXCEPTION
4025: WHEN Fnd_Api.G_EXC_ERROR THEN
4026: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4027: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4022: END IF;
4023:
4024: EXCEPTION
4025: WHEN Fnd_Api.G_EXC_ERROR THEN
4026: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4027: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4030: p_encoded => Fnd_Api.g_false);
4026: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4027: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4030: p_encoded => Fnd_Api.g_false);
4031: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4033: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4034: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4027: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4030: p_encoded => Fnd_Api.g_false);
4031: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4033: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4034: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4035: p_data => x_msg_data,
4028: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4029: p_data => x_msg_data,
4030: p_encoded => Fnd_Api.g_false);
4031: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4033: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4034: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4035: p_data => x_msg_data,
4036: p_encoded => Fnd_Api.g_false);
4032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4033: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4034: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4035: p_data => x_msg_data,
4036: p_encoded => Fnd_Api.g_false);
4037: WHEN OTHERS THEN
4038: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4039: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4040: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4035: p_data => x_msg_data,
4036: p_encoded => Fnd_Api.g_false);
4037: WHEN OTHERS THEN
4038: ROLLBACK TO UPDATE_AS_STAGE_RULE_DEL;
4039: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4040: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4041: THEN
4042: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4043: END IF;
4041: THEN
4042: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4043: END IF;
4044: Fnd_Msg_Pub.count_and_get (
4045: p_encoded => Fnd_Api.g_false,
4046: p_count => x_msg_count,
4047: p_data => x_msg_data );
4048:
4049: END UPDATE_AS_STAGE_RULE_DEL;
4148: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
4149: END IF;
4150:
4151: --Initialize API return status to success
4152: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4153: l_return_status := x_return_status;
4154:
4155:
4156:
4175: fnd_log.string(l_log_statement,L_DEBUG,'Stage rule : subject id:'||l_Stage_link_dets.subject_id||' object id:'||l_Stage_link_dets.object_id);
4176: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.PROCESS_STAGE_DATES - l_return_status : '||l_return_status);
4177: END IF;
4178:
4179: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4180: x_msg_count := l_msg_count;
4181: x_return_status := l_return_status;
4182: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4183: RAISE Fnd_Api.g_exc_error;
4178:
4179: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4180: x_msg_count := l_msg_count;
4181: x_return_status := l_return_status;
4182: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4183: RAISE Fnd_Api.g_exc_error;
4184: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4185: RAISE Fnd_Api.g_exc_unexpected_error;
4186: END IF;
4179: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4180: x_msg_count := l_msg_count;
4181: x_return_status := l_return_status;
4182: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4183: RAISE Fnd_Api.g_exc_error;
4184: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4185: RAISE Fnd_Api.g_exc_unexpected_error;
4186: END IF;
4187: END IF;
4180: x_msg_count := l_msg_count;
4181: x_return_status := l_return_status;
4182: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4183: RAISE Fnd_Api.g_exc_error;
4184: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4185: RAISE Fnd_Api.g_exc_unexpected_error;
4186: END IF;
4187: END IF;
4188:
4181: x_return_status := l_return_status;
4182: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4183: RAISE Fnd_Api.g_exc_error;
4184: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4185: RAISE Fnd_Api.g_exc_unexpected_error;
4186: END IF;
4187: END IF;
4188:
4189: END LOOP;
4257: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4258: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_SUCC_STG_START_DATES - l_return_status : '||l_return_status);
4259: END IF;
4260:
4261: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4262: x_msg_count := l_msg_count;
4263: x_return_status := l_return_status;
4264: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4265: RAISE Fnd_Api.g_exc_error;
4260:
4261: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4262: x_msg_count := l_msg_count;
4263: x_return_status := l_return_status;
4264: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4265: RAISE Fnd_Api.g_exc_error;
4266: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4267: RAISE Fnd_Api.g_exc_unexpected_error;
4268: END IF;
4261: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4262: x_msg_count := l_msg_count;
4263: x_return_status := l_return_status;
4264: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4265: RAISE Fnd_Api.g_exc_error;
4266: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4267: RAISE Fnd_Api.g_exc_unexpected_error;
4268: END IF;
4269: END IF;
4262: x_msg_count := l_msg_count;
4263: x_return_status := l_return_status;
4264: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4265: RAISE Fnd_Api.g_exc_error;
4266: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4267: RAISE Fnd_Api.g_exc_unexpected_error;
4268: END IF;
4269: END IF;
4270: ELSE
4263: x_return_status := l_return_status;
4264: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4265: RAISE Fnd_Api.g_exc_error;
4266: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4267: RAISE Fnd_Api.g_exc_unexpected_error;
4268: END IF;
4269: END IF;
4270: ELSE
4271: CLOSE c_get_user_upd_details;
4281:
4282: l_msg_count := Fnd_Msg_Pub.count_msg;
4283: IF l_msg_count > 0 THEN
4284: X_msg_count := l_msg_count;
4285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4287: END IF;
4288:
4289: IF (l_log_procedure >= l_log_current_level) THEN
4282: l_msg_count := Fnd_Msg_Pub.count_msg;
4283: IF l_msg_count > 0 THEN
4284: X_msg_count := l_msg_count;
4285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4286: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4287: END IF;
4288:
4289: IF (l_log_procedure >= l_log_current_level) THEN
4290: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
4290: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
4291: END IF;
4292:
4293: EXCEPTION
4294: WHEN Fnd_Api.G_EXC_ERROR THEN
4295: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4296: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4291: END IF;
4292:
4293: EXCEPTION
4294: WHEN Fnd_Api.G_EXC_ERROR THEN
4295: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4296: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4299: p_encoded => Fnd_Api.g_false);
4295: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4296: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4299: p_encoded => Fnd_Api.g_false);
4300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4302: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4303: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4296: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4299: p_encoded => Fnd_Api.g_false);
4300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4302: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4303: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4304: p_data => x_msg_data,
4297: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4298: p_data => x_msg_data,
4299: p_encoded => Fnd_Api.g_false);
4300: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4302: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4303: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4304: p_data => x_msg_data,
4305: p_encoded => Fnd_Api.g_false);
4301: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4302: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4303: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4304: p_data => x_msg_data,
4305: p_encoded => Fnd_Api.g_false);
4306: WHEN OTHERS THEN
4307: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4308: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4309: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4304: p_data => x_msg_data,
4305: p_encoded => Fnd_Api.g_false);
4306: WHEN OTHERS THEN
4307: ROLLBACK TO UPDATE_STAGE_DEPENDENCY_RULES;
4308: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4309: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4310: THEN
4311: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4312: END IF;
4310: THEN
4311: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4312: END IF;
4313: Fnd_Msg_Pub.count_and_get (
4314: p_encoded => Fnd_Api.g_false,
4315: p_count => x_msg_count,
4316: p_data => x_msg_data );
4317:
4318: END UPDATE_STAGE_DEPENDENCY_RULES;
4325: -- To recalculate planned start and end date of all successor stages of a stages that involve in dependency deletion considering duration as a base
4326: --------------------------------------------------------------------
4327: PROCEDURE UPDATE_STG_RUL_HIERARCHY (
4328: p_api_version IN NUMBER,
4329: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4330: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4331: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4332: p_module_type IN VARCHAR2 := 'JSP',
4333:
4326: --------------------------------------------------------------------
4327: PROCEDURE UPDATE_STG_RUL_HIERARCHY (
4328: p_api_version IN NUMBER,
4329: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4330: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4331: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4332: p_module_type IN VARCHAR2 := 'JSP',
4333:
4334: p_stage_link_id IN NUMBER,
4327: PROCEDURE UPDATE_STG_RUL_HIERARCHY (
4328: p_api_version IN NUMBER,
4329: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4330: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4331: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4332: p_module_type IN VARCHAR2 := 'JSP',
4333:
4334: p_stage_link_id IN NUMBER,
4335: p_visit_id IN NUMBER,
4399: END IF;
4400:
4401: -- Initialize API return status to success
4402: -- Initialize message list if p_init_msg_list is set to TRUE.
4403: IF FND_API.to_boolean(p_init_msg_list) THEN
4404: FND_MSG_PUB.initialize;
4405: END IF;
4406:
4407: --Initialize API return status to success
4404: FND_MSG_PUB.initialize;
4405: END IF;
4406:
4407: --Initialize API return status to success
4408: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4409: l_return_status := x_return_status;
4410:
4411: -- Standard call to check for call compatibility.
4412: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4408: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4409: l_return_status := x_return_status;
4410:
4411: -- Standard call to check for call compatibility.
4412: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: OPEN c_stage_link_dets(p_stage_link_id);
4409: l_return_status := x_return_status;
4410:
4411: -- Standard call to check for call compatibility.
4412: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: OPEN c_stage_link_dets(p_stage_link_id);
4417: FETCH c_stage_link_dets INTO l_Stage_link_dets;
4419:
4420: IF l_Stage_link_dets.STAGE_LINK_ID IS NULL THEN
4421: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_RUL_NFOUND');
4422: Fnd_Msg_Pub.ADD;
4423: RAISE Fnd_Api.G_EXC_ERROR;
4424: END IF;
4425:
4426: l_is_stages_parallel := false;
4427:
4451:
4452: IF l_stg_stage_number IS NULL THEN
4453: Fnd_Message.SET_NAME('AHL','AHL_VSP_STG_INVALID_ID');
4454: Fnd_Msg_Pub.ADD;
4455: RAISE Fnd_Api.G_EXC_ERROR;
4456: END IF;
4457:
4458: IF (l_log_statement >= l_log_current_level) THEN
4459: fnd_log.string(l_log_statement,L_DEBUG,' Previous stage num is '||l_stg_stage_number);
4484: IF l_prev_stg_num is NOT NULL THEN -- Two predessors validation
4485: IF l_prev_stg_num <> l_stg_stage_number THEN
4486: Fnd_Message.SET_NAME('AHL','AHL_VWP_RULE_PREDECESSOR');
4487: Fnd_Msg_Pub.ADD;
4488: RAISE Fnd_Api.G_EXC_ERROR;
4489: END IF;
4490: END IF;
4491:
4492: END IF;
4497:
4498: IF l_stage_rule_record.subject_STAGE_ID = l_stage_rule_record.object_STAGE_ID THEN
4499: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_INVALID_RULE');
4500: Fnd_Msg_Pub.ADD;
4501: RAISE Fnd_Api.G_EXC_ERROR;
4502: END IF;
4503:
4504: VALIDATE_STAGE_RULES(
4505: p_stage_rule_rec => l_stage_rule_record,
4511: IF (l_log_statement >= l_log_current_level) THEN
4512: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_RULES - l_return_status : '||l_return_status);
4513: END IF;
4514:
4515: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4516: x_msg_count := l_msg_count;
4517: x_return_status := l_return_status;
4518: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4519: RAISE Fnd_Api.g_exc_error;
4514:
4515: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4516: x_msg_count := l_msg_count;
4517: x_return_status := l_return_status;
4518: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4519: RAISE Fnd_Api.g_exc_error;
4520: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4521: RAISE Fnd_Api.g_exc_unexpected_error;
4522: END IF;
4515: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4516: x_msg_count := l_msg_count;
4517: x_return_status := l_return_status;
4518: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4519: RAISE Fnd_Api.g_exc_error;
4520: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4521: RAISE Fnd_Api.g_exc_unexpected_error;
4522: END IF;
4523: END IF;
4516: x_msg_count := l_msg_count;
4517: x_return_status := l_return_status;
4518: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4519: RAISE Fnd_Api.g_exc_error;
4520: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4521: RAISE Fnd_Api.g_exc_unexpected_error;
4522: END IF;
4523: END IF;
4524:
4517: x_return_status := l_return_status;
4518: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4519: RAISE Fnd_Api.g_exc_error;
4520: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4521: RAISE Fnd_Api.g_exc_unexpected_error;
4522: END IF;
4523: END IF;
4524:
4525: --Call PROCESS_STAGE_DATES which will update all successor stages in hierarichy to correct stage start dates.
4539: IF (l_log_statement >= l_log_current_level) THEN
4540: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.PROCESS_STAGE_DATES - l_return_status : '||l_return_status);
4541: END IF;
4542:
4543: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4544: x_msg_count := l_msg_count;
4545: x_return_status := l_return_status;
4546: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4547: RAISE Fnd_Api.g_exc_error;
4542:
4543: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4544: x_msg_count := l_msg_count;
4545: x_return_status := l_return_status;
4546: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4547: RAISE Fnd_Api.g_exc_error;
4548: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: RAISE Fnd_Api.g_exc_unexpected_error;
4550: END IF;
4543: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4544: x_msg_count := l_msg_count;
4545: x_return_status := l_return_status;
4546: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4547: RAISE Fnd_Api.g_exc_error;
4548: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: RAISE Fnd_Api.g_exc_unexpected_error;
4550: END IF;
4551: END IF;
4544: x_msg_count := l_msg_count;
4545: x_return_status := l_return_status;
4546: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4547: RAISE Fnd_Api.g_exc_error;
4548: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: RAISE Fnd_Api.g_exc_unexpected_error;
4550: END IF;
4551: END IF;
4552:
4545: x_return_status := l_return_status;
4546: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4547: RAISE Fnd_Api.g_exc_error;
4548: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4549: RAISE Fnd_Api.g_exc_unexpected_error;
4550: END IF;
4551: END IF;
4552:
4553: --Update previous stage number and planned start date to previous stage end date or visit start date
4566: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4567: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_SUCC_STG_START_DATES - l_return_status : '||l_return_status);
4568: END IF;
4569:
4570: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4571: x_msg_count := l_msg_count;
4572: x_return_status := l_return_status;
4573: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4574: RAISE Fnd_Api.g_exc_error;
4569:
4570: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4571: x_msg_count := l_msg_count;
4572: x_return_status := l_return_status;
4573: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4574: RAISE Fnd_Api.g_exc_error;
4575: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4576: RAISE Fnd_Api.g_exc_unexpected_error;
4577: END IF;
4570: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4571: x_msg_count := l_msg_count;
4572: x_return_status := l_return_status;
4573: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4574: RAISE Fnd_Api.g_exc_error;
4575: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4576: RAISE Fnd_Api.g_exc_unexpected_error;
4577: END IF;
4578: END IF;
4571: x_msg_count := l_msg_count;
4572: x_return_status := l_return_status;
4573: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4574: RAISE Fnd_Api.g_exc_error;
4575: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4576: RAISE Fnd_Api.g_exc_unexpected_error;
4577: END IF;
4578: END IF;
4579:
4572: x_return_status := l_return_status;
4573: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4574: RAISE Fnd_Api.g_exc_error;
4575: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4576: RAISE Fnd_Api.g_exc_unexpected_error;
4577: END IF;
4578: END IF;
4579:
4580: END IF;
4581:
4582: l_msg_count := Fnd_Msg_Pub.count_msg;
4583: IF l_msg_count > 0 THEN
4584: X_msg_count := l_msg_count;
4585: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588:
4589: --Standard check for commit
4582: l_msg_count := Fnd_Msg_Pub.count_msg;
4583: IF l_msg_count > 0 THEN
4584: X_msg_count := l_msg_count;
4585: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588:
4589: --Standard check for commit
4590: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4586: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4587: END IF;
4588:
4589: --Standard check for commit
4590: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4591: COMMIT;
4592: END IF;
4593:
4594: IF (l_log_procedure >= l_log_current_level) THEN
4595: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
4596: END IF;
4597:
4598: EXCEPTION
4599: WHEN Fnd_Api.G_EXC_ERROR THEN
4600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4601: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4596: END IF;
4597:
4598: EXCEPTION
4599: WHEN Fnd_Api.G_EXC_ERROR THEN
4600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4601: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4604: p_encoded => Fnd_Api.g_false);
4600: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4601: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4604: p_encoded => Fnd_Api.g_false);
4605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4607: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4608: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4601: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4604: p_encoded => Fnd_Api.g_false);
4605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4607: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4608: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4609: p_data => x_msg_data,
4602: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4603: p_data => x_msg_data,
4604: p_encoded => Fnd_Api.g_false);
4605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4607: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4608: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4609: p_data => x_msg_data,
4610: p_encoded => Fnd_Api.g_false);
4606: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4607: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4608: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
4609: p_data => x_msg_data,
4610: p_encoded => Fnd_Api.g_false);
4611: WHEN OTHERS THEN
4612: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4613: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4614: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4609: p_data => x_msg_data,
4610: p_encoded => Fnd_Api.g_false);
4611: WHEN OTHERS THEN
4612: ROLLBACK TO UPDATE_STG_RUL_HIERARCHY;
4613: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4614: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4615: THEN
4616: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4617: END IF;
4615: THEN
4616: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4617: END IF;
4618: Fnd_Msg_Pub.count_and_get (
4619: p_encoded => Fnd_Api.g_false,
4620: p_count => x_msg_count,
4621: p_data => x_msg_data );
4622:
4623: END UPDATE_STG_RUL_HIERARCHY;
4731: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
4732: END IF;
4733:
4734: --Initialize API return status to success
4735: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4736: l_return_status := x_return_status;
4737:
4738: OPEN c_visit_dets(p_visit_id);
4739: FETCH c_visit_dets INTO l_visit_limited_dets;
4766: fnd_log.string(l_log_statement,L_DEBUG,' No Dept Id' );
4767: END IF;
4768: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_NO_DEP');
4769: Fnd_Msg_Pub.ADD;
4770: RAISE Fnd_Api.G_EXC_ERROR;
4771: END IF;
4772:
4773: IF l_visit_start_date IS NULL THEN
4774: IF (l_log_statement >= l_log_current_level) THEN
4775: fnd_log.string(l_log_statement,L_DEBUG,' No visit start date' );
4776: END IF;
4777: Fnd_Message.SET_NAME('AHL','AHL_LTP_VISIT_ST_DATE_NULL');
4778: Fnd_Msg_Pub.ADD;
4779: RAISE Fnd_Api.G_EXC_ERROR;
4780: END IF;
4781:
4782: IF ( l_visit_limited_dets.visit_type_code IS NULL AND l_visit_limited_dets.IS_OLD_VISIT <> 'Y' ) THEN
4783: IF (l_log_statement >= l_log_current_level) THEN
4784: fnd_log.string(l_log_statement,L_DEBUG,' No visit type code' );
4785: END IF;
4786: Fnd_Message.SET_NAME('AHL','AHL_VWP_VST_TYPE_MAND');
4787: Fnd_Msg_Pub.ADD;
4788: RAISE Fnd_Api.G_EXC_ERROR;
4789: END IF;
4790:
4791: END IF;
4792:
4827: IF (l_log_statement >= l_log_current_level) THEN
4828: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
4829: END IF;
4830:
4831: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4832: x_msg_count := l_msg_count;
4833: x_return_status := l_return_status;
4834: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4835: RAISE Fnd_Api.g_exc_error;
4830:
4831: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4832: x_msg_count := l_msg_count;
4833: x_return_status := l_return_status;
4834: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4835: RAISE Fnd_Api.g_exc_error;
4836: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4837: RAISE Fnd_Api.g_exc_unexpected_error;
4838: END IF;
4831: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4832: x_msg_count := l_msg_count;
4833: x_return_status := l_return_status;
4834: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4835: RAISE Fnd_Api.g_exc_error;
4836: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4837: RAISE Fnd_Api.g_exc_unexpected_error;
4838: END IF;
4839: END IF;
4832: x_msg_count := l_msg_count;
4833: x_return_status := l_return_status;
4834: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4835: RAISE Fnd_Api.g_exc_error;
4836: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4837: RAISE Fnd_Api.g_exc_unexpected_error;
4838: END IF;
4839: END IF;
4840: -- PRAKKUM :: 06-APR-2011 :: Bug 13711800 :: END
4833: x_return_status := l_return_status;
4834: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4835: RAISE Fnd_Api.g_exc_error;
4836: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4837: RAISE Fnd_Api.g_exc_unexpected_error;
4838: END IF;
4839: END IF;
4840: -- PRAKKUM :: 06-APR-2011 :: Bug 13711800 :: END
4841:
4907: IF (l_log_statement >= l_log_current_level) THEN
4908: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CALC_STAGE_START_DURATIONS - l_return_status : '||l_return_status);
4909: END IF;
4910:
4911: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4912: x_msg_count := l_msg_count;
4913: x_return_status := l_return_status;
4914: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4915: RAISE Fnd_Api.g_exc_error;
4910:
4911: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4912: x_msg_count := l_msg_count;
4913: x_return_status := l_return_status;
4914: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4915: RAISE Fnd_Api.g_exc_error;
4916: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4917: RAISE Fnd_Api.g_exc_unexpected_error;
4918: END IF;
4911: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4912: x_msg_count := l_msg_count;
4913: x_return_status := l_return_status;
4914: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4915: RAISE Fnd_Api.g_exc_error;
4916: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4917: RAISE Fnd_Api.g_exc_unexpected_error;
4918: END IF;
4919: END IF;
4912: x_msg_count := l_msg_count;
4913: x_return_status := l_return_status;
4914: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4915: RAISE Fnd_Api.g_exc_error;
4916: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4917: RAISE Fnd_Api.g_exc_unexpected_error;
4918: END IF;
4919: END IF;
4920:
4913: x_return_status := l_return_status;
4914: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4915: RAISE Fnd_Api.g_exc_error;
4916: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4917: RAISE Fnd_Api.g_exc_unexpected_error;
4918: END IF;
4919: END IF;
4920:
4921: IF (l_log_statement >= l_log_current_level) THEN
4948: IF (l_log_statement >= l_log_current_level) THEN
4949: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGE_DATES - l_return_status : '||l_return_status);
4950: END IF;
4951:
4952: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4953: x_msg_count := l_msg_count;
4954: x_return_status := l_return_status;
4955: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4956: RAISE Fnd_Api.g_exc_error;
4951:
4952: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4953: x_msg_count := l_msg_count;
4954: x_return_status := l_return_status;
4955: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4956: RAISE Fnd_Api.g_exc_error;
4957: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4958: RAISE Fnd_Api.g_exc_unexpected_error;
4959: END IF;
4952: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4953: x_msg_count := l_msg_count;
4954: x_return_status := l_return_status;
4955: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4956: RAISE Fnd_Api.g_exc_error;
4957: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4958: RAISE Fnd_Api.g_exc_unexpected_error;
4959: END IF;
4960: END IF;
4953: x_msg_count := l_msg_count;
4954: x_return_status := l_return_status;
4955: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4956: RAISE Fnd_Api.g_exc_error;
4957: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4958: RAISE Fnd_Api.g_exc_unexpected_error;
4959: END IF;
4960: END IF;
4961:
4954: x_return_status := l_return_status;
4955: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4956: RAISE Fnd_Api.g_exc_error;
4957: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4958: RAISE Fnd_Api.g_exc_unexpected_error;
4959: END IF;
4960: END IF;
4961:
4962: IF (l_log_statement >= l_log_current_level) THEN
4982: IF (l_log_statement >= l_log_current_level) THEN
4983: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.GET_VALID_STAGES_LIST - l_return_status : '||l_return_status);
4984: END IF;
4985:
4986: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4987: x_msg_count := l_msg_count;
4988: x_return_status := l_return_status;
4989: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4990: RAISE Fnd_Api.g_exc_error;
4985:
4986: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4987: x_msg_count := l_msg_count;
4988: x_return_status := l_return_status;
4989: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4990: RAISE Fnd_Api.g_exc_error;
4991: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4992: RAISE Fnd_Api.g_exc_unexpected_error;
4993: END IF;
4986: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4987: x_msg_count := l_msg_count;
4988: x_return_status := l_return_status;
4989: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4990: RAISE Fnd_Api.g_exc_error;
4991: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4992: RAISE Fnd_Api.g_exc_unexpected_error;
4993: END IF;
4994: END IF;
4987: x_msg_count := l_msg_count;
4988: x_return_status := l_return_status;
4989: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4990: RAISE Fnd_Api.g_exc_error;
4991: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4992: RAISE Fnd_Api.g_exc_unexpected_error;
4993: END IF;
4994: END IF;
4995:
4988: x_return_status := l_return_status;
4989: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
4990: RAISE Fnd_Api.g_exc_error;
4991: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4992: RAISE Fnd_Api.g_exc_unexpected_error;
4993: END IF;
4994: END IF;
4995:
4996: IF (l_log_statement >= l_log_current_level) THEN
5012: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGE_DATES - l_return_status : '||l_return_status);
5013: fnd_log.string(l_log_statement,L_DEBUG,'After call to update stage dates');
5014: END IF;
5015:
5016: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5017: x_msg_count := l_msg_count;
5018: x_return_status := l_return_status;
5019: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5020: RAISE Fnd_Api.g_exc_error;
5015:
5016: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5017: x_msg_count := l_msg_count;
5018: x_return_status := l_return_status;
5019: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5020: RAISE Fnd_Api.g_exc_error;
5021: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5022: RAISE Fnd_Api.g_exc_unexpected_error;
5023: END IF;
5016: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5017: x_msg_count := l_msg_count;
5018: x_return_status := l_return_status;
5019: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5020: RAISE Fnd_Api.g_exc_error;
5021: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5022: RAISE Fnd_Api.g_exc_unexpected_error;
5023: END IF;
5024: END IF;
5017: x_msg_count := l_msg_count;
5018: x_return_status := l_return_status;
5019: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5020: RAISE Fnd_Api.g_exc_error;
5021: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5022: RAISE Fnd_Api.g_exc_unexpected_error;
5023: END IF;
5024: END IF;
5025:
5018: x_return_status := l_return_status;
5019: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5020: RAISE Fnd_Api.g_exc_error;
5021: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5022: RAISE Fnd_Api.g_exc_unexpected_error;
5023: END IF;
5024: END IF;
5025:
5026: l_valid_stages := l_empty_details;
5040: IF (l_log_statement >= l_log_current_level) THEN
5041: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.GET_VALID_STAGES_LIST - l_return_status : '||l_return_status);
5042: END IF;
5043:
5044: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5045: x_msg_count := l_msg_count;
5046: x_return_status := l_return_status;
5047: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5048: RAISE Fnd_Api.g_exc_error;
5043:
5044: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5045: x_msg_count := l_msg_count;
5046: x_return_status := l_return_status;
5047: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5048: RAISE Fnd_Api.g_exc_error;
5049: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5050: RAISE Fnd_Api.g_exc_unexpected_error;
5051: END IF;
5044: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5045: x_msg_count := l_msg_count;
5046: x_return_status := l_return_status;
5047: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5048: RAISE Fnd_Api.g_exc_error;
5049: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5050: RAISE Fnd_Api.g_exc_unexpected_error;
5051: END IF;
5052: END IF;
5045: x_msg_count := l_msg_count;
5046: x_return_status := l_return_status;
5047: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5048: RAISE Fnd_Api.g_exc_error;
5049: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5050: RAISE Fnd_Api.g_exc_unexpected_error;
5051: END IF;
5052: END IF;
5053:
5046: x_return_status := l_return_status;
5047: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5048: RAISE Fnd_Api.g_exc_error;
5049: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5050: RAISE Fnd_Api.g_exc_unexpected_error;
5051: END IF;
5052: END IF;
5053:
5054: IF (l_log_statement >= l_log_current_level) THEN
5068: IF (l_log_statement >= l_log_current_level) THEN
5069: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGE_DATES - l_return_status : '||l_return_status);
5070: END IF;
5071:
5072: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5073: x_msg_count := l_msg_count;
5074: x_return_status := l_return_status;
5075: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5076: RAISE Fnd_Api.g_exc_error;
5071:
5072: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5073: x_msg_count := l_msg_count;
5074: x_return_status := l_return_status;
5075: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5076: RAISE Fnd_Api.g_exc_error;
5077: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5078: RAISE Fnd_Api.g_exc_unexpected_error;
5079: END IF;
5072: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5073: x_msg_count := l_msg_count;
5074: x_return_status := l_return_status;
5075: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5076: RAISE Fnd_Api.g_exc_error;
5077: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5078: RAISE Fnd_Api.g_exc_unexpected_error;
5079: END IF;
5080: END IF;
5073: x_msg_count := l_msg_count;
5074: x_return_status := l_return_status;
5075: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5076: RAISE Fnd_Api.g_exc_error;
5077: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5078: RAISE Fnd_Api.g_exc_unexpected_error;
5079: END IF;
5080: END IF;
5081:
5074: x_return_status := l_return_status;
5075: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5076: RAISE Fnd_Api.g_exc_error;
5077: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5078: RAISE Fnd_Api.g_exc_unexpected_error;
5079: END IF;
5080: END IF;
5081:
5082: IF (l_log_statement >= l_log_current_level) THEN
5098: IF (l_log_statement >= l_log_current_level) THEN
5099: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.GET_VALID_STAGES_LIST - l_return_status : '||l_return_status);
5100: END IF;
5101:
5102: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5103: x_msg_count := l_msg_count;
5104: x_return_status := l_return_status;
5105: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5106: RAISE Fnd_Api.g_exc_error;
5101:
5102: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5103: x_msg_count := l_msg_count;
5104: x_return_status := l_return_status;
5105: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5106: RAISE Fnd_Api.g_exc_error;
5107: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5108: RAISE Fnd_Api.g_exc_unexpected_error;
5109: END IF;
5102: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5103: x_msg_count := l_msg_count;
5104: x_return_status := l_return_status;
5105: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5106: RAISE Fnd_Api.g_exc_error;
5107: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5108: RAISE Fnd_Api.g_exc_unexpected_error;
5109: END IF;
5110: END IF;
5103: x_msg_count := l_msg_count;
5104: x_return_status := l_return_status;
5105: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5106: RAISE Fnd_Api.g_exc_error;
5107: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5108: RAISE Fnd_Api.g_exc_unexpected_error;
5109: END IF;
5110: END IF;
5111:
5104: x_return_status := l_return_status;
5105: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5106: RAISE Fnd_Api.g_exc_error;
5107: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5108: RAISE Fnd_Api.g_exc_unexpected_error;
5109: END IF;
5110: END IF;
5111:
5112: IF (l_log_statement >= l_log_current_level) THEN
5126: IF (l_log_statement >= l_log_current_level) THEN
5127: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGE_DATES - l_return_status : '||l_return_status);
5128: END IF;
5129:
5130: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5131: x_msg_count := l_msg_count;
5132: x_return_status := l_return_status;
5133: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5134: RAISE Fnd_Api.g_exc_error;
5129:
5130: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5131: x_msg_count := l_msg_count;
5132: x_return_status := l_return_status;
5133: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5134: RAISE Fnd_Api.g_exc_error;
5135: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5136: RAISE Fnd_Api.g_exc_unexpected_error;
5137: END IF;
5130: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5131: x_msg_count := l_msg_count;
5132: x_return_status := l_return_status;
5133: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5134: RAISE Fnd_Api.g_exc_error;
5135: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5136: RAISE Fnd_Api.g_exc_unexpected_error;
5137: END IF;
5138: END IF;
5131: x_msg_count := l_msg_count;
5132: x_return_status := l_return_status;
5133: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5134: RAISE Fnd_Api.g_exc_error;
5135: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5136: RAISE Fnd_Api.g_exc_unexpected_error;
5137: END IF;
5138: END IF;
5139:
5132: x_return_status := l_return_status;
5133: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5134: RAISE Fnd_Api.g_exc_error;
5135: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5136: RAISE Fnd_Api.g_exc_unexpected_error;
5137: END IF;
5138: END IF;
5139:
5140: IF (l_log_statement >= l_log_current_level) THEN
5150: END IF;
5151:
5152: Fnd_Message.SET_NAME('AHL','AHL_VWP_MAND_STG_RULE');
5153: Fnd_Msg_Pub.ADD;
5154: RAISE Fnd_Api.G_EXC_ERROR;
5155:
5156: END IF;
5157:
5158: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: START
5169: IF (l_log_statement >= l_log_current_level) THEN
5170: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
5171: END IF;
5172:
5173: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5174: x_msg_count := l_msg_count;
5175: x_return_status := l_return_status;
5176: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5177: RAISE Fnd_Api.g_exc_error;
5172:
5173: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5174: x_msg_count := l_msg_count;
5175: x_return_status := l_return_status;
5176: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5177: RAISE Fnd_Api.g_exc_error;
5178: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5179: RAISE Fnd_Api.g_exc_unexpected_error;
5180: END IF;
5173: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5174: x_msg_count := l_msg_count;
5175: x_return_status := l_return_status;
5176: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5177: RAISE Fnd_Api.g_exc_error;
5178: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5179: RAISE Fnd_Api.g_exc_unexpected_error;
5180: END IF;
5181: END IF;
5174: x_msg_count := l_msg_count;
5175: x_return_status := l_return_status;
5176: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5177: RAISE Fnd_Api.g_exc_error;
5178: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5179: RAISE Fnd_Api.g_exc_unexpected_error;
5180: END IF;
5181: END IF;
5182: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5175: x_return_status := l_return_status;
5176: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5177: RAISE Fnd_Api.g_exc_error;
5178: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5179: RAISE Fnd_Api.g_exc_unexpected_error;
5180: END IF;
5181: END IF;
5182: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5183:
5181: END IF;
5182: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5183:
5184: IF l_isValidationFailed THEN
5185: RAISE Fnd_Api.G_EXC_ERROR;
5186: END IF;
5187:
5188: --Standard check to count messages
5189: l_msg_count := Fnd_Msg_Pub.count_msg;
5188: --Standard check to count messages
5189: l_msg_count := Fnd_Msg_Pub.count_msg;
5190: IF l_msg_count > 0 THEN
5191: X_msg_count := l_msg_count;
5192: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5193: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5194: END IF;
5195:
5196: IF (l_log_procedure >= l_log_current_level) THEN
5189: l_msg_count := Fnd_Msg_Pub.count_msg;
5190: IF l_msg_count > 0 THEN
5191: X_msg_count := l_msg_count;
5192: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5193: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5194: END IF;
5195:
5196: IF (l_log_procedure >= l_log_current_level) THEN
5197: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5197: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5198: END IF;
5199:
5200: EXCEPTION
5201: WHEN Fnd_Api.G_EXC_ERROR THEN
5202: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5198: END IF;
5199:
5200: EXCEPTION
5201: WHEN Fnd_Api.G_EXC_ERROR THEN
5202: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5201: WHEN Fnd_Api.G_EXC_ERROR THEN
5202: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5202: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5203: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5204: p_data => x_msg_data,
5205: p_encoded => Fnd_Api.g_false);
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5211: WHEN OTHERS THEN
5206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5207: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5211: WHEN OTHERS THEN
5212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5214: THEN
5208: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5209: p_data => x_msg_data,
5210: p_encoded => Fnd_Api.g_false);
5211: WHEN OTHERS THEN
5212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5214: THEN
5215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5216: END IF;
5214: THEN
5215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5216: END IF;
5217: Fnd_Msg_Pub.count_and_get (
5218: p_encoded => Fnd_Api.g_false,
5219: p_count => x_msg_count,
5220: p_data => x_msg_data );
5221:
5222: END PROCESS_STAGE_DATES;
5266: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
5267: END IF;
5268:
5269: --Initialize API return status to success
5270: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5271: l_return_status := x_return_status;
5272:
5273: l_dirtyFlag := false;
5274: l_relations_count := p_relations.COUNT;
5337: IF (l_log_statement >= l_log_current_level) THEN
5338: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.CALC_STAGE_START_DURATIONS - l_return_status : '||l_return_status);
5339: END IF;
5340:
5341: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5342: x_msg_count := l_msg_count;
5343: x_return_status := l_return_status;
5344: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5345: RAISE Fnd_Api.g_exc_error;
5340:
5341: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5342: x_msg_count := l_msg_count;
5343: x_return_status := l_return_status;
5344: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5345: RAISE Fnd_Api.g_exc_error;
5346: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5347: RAISE Fnd_Api.g_exc_unexpected_error;
5348: END IF;
5341: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5342: x_msg_count := l_msg_count;
5343: x_return_status := l_return_status;
5344: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5345: RAISE Fnd_Api.g_exc_error;
5346: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5347: RAISE Fnd_Api.g_exc_unexpected_error;
5348: END IF;
5349: END IF;
5342: x_msg_count := l_msg_count;
5343: x_return_status := l_return_status;
5344: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5345: RAISE Fnd_Api.g_exc_error;
5346: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5347: RAISE Fnd_Api.g_exc_unexpected_error;
5348: END IF;
5349: END IF;
5350:
5343: x_return_status := l_return_status;
5344: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5345: RAISE Fnd_Api.g_exc_error;
5346: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5347: RAISE Fnd_Api.g_exc_unexpected_error;
5348: END IF;
5349: END IF;
5350:
5351: IF (l_log_statement >= l_log_current_level) THEN
5357: --Standard check to count messages
5358: l_msg_count := Fnd_Msg_Pub.count_msg;
5359: IF l_msg_count > 0 THEN
5360: X_msg_count := l_msg_count;
5361: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5362: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5363: END IF;
5364:
5365: IF (l_log_procedure >= l_log_current_level) THEN
5358: l_msg_count := Fnd_Msg_Pub.count_msg;
5359: IF l_msg_count > 0 THEN
5360: X_msg_count := l_msg_count;
5361: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5362: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5363: END IF;
5364:
5365: IF (l_log_procedure >= l_log_current_level) THEN
5366: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5366: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5367: END IF;
5368:
5369: EXCEPTION
5370: WHEN Fnd_Api.G_EXC_ERROR THEN
5371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5367: END IF;
5368:
5369: EXCEPTION
5370: WHEN Fnd_Api.G_EXC_ERROR THEN
5371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5370: WHEN Fnd_Api.G_EXC_ERROR THEN
5371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5371: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5372: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5373: p_data => x_msg_data,
5374: p_encoded => Fnd_Api.g_false);
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5380: WHEN OTHERS THEN
5375: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5376: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5380: WHEN OTHERS THEN
5381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5382: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5383: THEN
5377: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5378: p_data => x_msg_data,
5379: p_encoded => Fnd_Api.g_false);
5380: WHEN OTHERS THEN
5381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5382: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5383: THEN
5384: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5385: END IF;
5383: THEN
5384: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5385: END IF;
5386: Fnd_Msg_Pub.count_and_get (
5387: p_encoded => Fnd_Api.g_false,
5388: p_count => x_msg_count,
5389: p_data => x_msg_data );
5390:
5391: END CALC_STAGE_START_DURATIONS;
5430: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
5431: END IF;
5432:
5433: --Initialize API return status to success
5434: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5435: l_return_status := x_return_status;
5436:
5437: IF (l_log_statement >= l_log_current_level) THEN
5438: fnd_log.string(l_log_statement,L_DEBUG,'Stage count '||p_all_stage_details.count);
5491: IF (l_log_statement >= l_log_current_level) THEN
5492: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.GET_VALID_STAGES_LIST - l_return_status : '||l_return_status);
5493: END IF;
5494:
5495: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5496: x_msg_count := l_msg_count;
5497: x_return_status := l_return_status;
5498: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5499: RAISE Fnd_Api.g_exc_error;
5494:
5495: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5496: x_msg_count := l_msg_count;
5497: x_return_status := l_return_status;
5498: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5499: RAISE Fnd_Api.g_exc_error;
5500: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5501: RAISE Fnd_Api.g_exc_unexpected_error;
5502: END IF;
5495: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5496: x_msg_count := l_msg_count;
5497: x_return_status := l_return_status;
5498: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5499: RAISE Fnd_Api.g_exc_error;
5500: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5501: RAISE Fnd_Api.g_exc_unexpected_error;
5502: END IF;
5503: END IF;
5496: x_msg_count := l_msg_count;
5497: x_return_status := l_return_status;
5498: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5499: RAISE Fnd_Api.g_exc_error;
5500: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5501: RAISE Fnd_Api.g_exc_unexpected_error;
5502: END IF;
5503: END IF;
5504: END IF;
5497: x_return_status := l_return_status;
5498: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5499: RAISE Fnd_Api.g_exc_error;
5500: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5501: RAISE Fnd_Api.g_exc_unexpected_error;
5502: END IF;
5503: END IF;
5504: END IF;
5505:
5512: --Standard check to count messages
5513: l_msg_count := Fnd_Msg_Pub.count_msg;
5514: IF l_msg_count > 0 THEN
5515: X_msg_count := l_msg_count;
5516: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5517: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5518: END IF;
5519:
5520: IF (l_log_procedure >= l_log_current_level) THEN
5513: l_msg_count := Fnd_Msg_Pub.count_msg;
5514: IF l_msg_count > 0 THEN
5515: X_msg_count := l_msg_count;
5516: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5517: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5518: END IF;
5519:
5520: IF (l_log_procedure >= l_log_current_level) THEN
5521: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5521: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5522: END IF;
5523:
5524: EXCEPTION
5525: WHEN Fnd_Api.G_EXC_ERROR THEN
5526: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5522: END IF;
5523:
5524: EXCEPTION
5525: WHEN Fnd_Api.G_EXC_ERROR THEN
5526: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5525: WHEN Fnd_Api.G_EXC_ERROR THEN
5526: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5526: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5527: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5528: p_data => x_msg_data,
5529: p_encoded => Fnd_Api.g_false);
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5535: WHEN OTHERS THEN
5530: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5531: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5535: WHEN OTHERS THEN
5536: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5538: THEN
5532: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5533: p_data => x_msg_data,
5534: p_encoded => Fnd_Api.g_false);
5535: WHEN OTHERS THEN
5536: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5537: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5538: THEN
5539: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5540: END IF;
5538: THEN
5539: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5540: END IF;
5541: Fnd_Msg_Pub.count_and_get (
5542: p_encoded => Fnd_Api.g_false,
5543: p_count => x_msg_count,
5544: p_data => x_msg_data );
5545:
5546:
5589: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
5590: END IF;
5591:
5592: --Initialize API return status to success
5593: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5594: l_return_status := x_return_status;
5595:
5596: IF (l_log_statement >= l_log_current_level) THEN
5597: fnd_log.string(l_log_statement,L_DEBUG,'p_base_stage_id '||p_base_stage_id);
5597: fnd_log.string(l_log_statement,L_DEBUG,'p_base_stage_id '||p_base_stage_id);
5598: END IF;
5599:
5600: -- p_base_stage_id is null if this is called to update entire visit stage start dates
5601: IF p_base_stage_id = Fnd_Api.g_miss_num OR p_base_stage_id IS NULL THEN
5602: l_base_start_time := p_visit_start_date;
5603: ELSE
5604: l_base_start_time := p_valid_stages(p_base_stage_id).CALCULATED_START_TIME;
5605: END IF;
5645: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5646: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_OVN_COUNT - l_return_status : '||l_return_status);
5647: END IF;
5648:
5649: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5650: x_msg_count := l_msg_count;
5651: x_return_status := l_return_status;
5652: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5653: RAISE Fnd_Api.g_exc_error;
5648:
5649: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5650: x_msg_count := l_msg_count;
5651: x_return_status := l_return_status;
5652: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5653: RAISE Fnd_Api.g_exc_error;
5654: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5655: RAISE Fnd_Api.g_exc_unexpected_error;
5656: END IF;
5649: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5650: x_msg_count := l_msg_count;
5651: x_return_status := l_return_status;
5652: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5653: RAISE Fnd_Api.g_exc_error;
5654: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5655: RAISE Fnd_Api.g_exc_unexpected_error;
5656: END IF;
5657: END IF;
5650: x_msg_count := l_msg_count;
5651: x_return_status := l_return_status;
5652: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5653: RAISE Fnd_Api.g_exc_error;
5654: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5655: RAISE Fnd_Api.g_exc_unexpected_error;
5656: END IF;
5657: END IF;
5658:
5651: x_return_status := l_return_status;
5652: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5653: RAISE Fnd_Api.g_exc_error;
5654: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5655: RAISE Fnd_Api.g_exc_unexpected_error;
5656: END IF;
5657: END IF;
5658:
5659: l_stage_id := p_valid_stages.NEXT(l_stage_id);
5662: --Standard check to count messages
5663: l_msg_count := Fnd_Msg_Pub.count_msg;
5664: IF l_msg_count > 0 THEN
5665: X_msg_count := l_msg_count;
5666: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5667: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5668: END IF;
5669:
5670: IF (l_log_procedure >= l_log_current_level) THEN
5663: l_msg_count := Fnd_Msg_Pub.count_msg;
5664: IF l_msg_count > 0 THEN
5665: X_msg_count := l_msg_count;
5666: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5667: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5668: END IF;
5669:
5670: IF (l_log_procedure >= l_log_current_level) THEN
5671: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5671: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
5672: END IF;
5673:
5674: EXCEPTION
5675: WHEN Fnd_Api.G_EXC_ERROR THEN
5676: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5672: END IF;
5673:
5674: EXCEPTION
5675: WHEN Fnd_Api.G_EXC_ERROR THEN
5676: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5675: WHEN Fnd_Api.G_EXC_ERROR THEN
5676: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5676: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5677: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5678: p_data => x_msg_data,
5679: p_encoded => Fnd_Api.g_false);
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5685: WHEN OTHERS THEN
5680: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5681: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5685: WHEN OTHERS THEN
5686: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5687: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5688: THEN
5682: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
5683: p_data => x_msg_data,
5684: p_encoded => Fnd_Api.g_false);
5685: WHEN OTHERS THEN
5686: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5687: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5688: THEN
5689: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5690: END IF;
5688: THEN
5689: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5690: END IF;
5691: Fnd_Msg_Pub.count_and_get (
5692: p_encoded => Fnd_Api.g_false,
5693: p_count => x_msg_count,
5694: p_data => x_msg_data );
5695:
5696: END UPDATE_STAGE_DATES;
5773: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
5774: END IF;
5775:
5776: --Initialize API return status to success
5777: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5778: l_return_status := x_return_status;
5779:
5780: OPEN c_get_after_stage (p_stage_id);
5781: FETCH c_get_after_stage INTO l_obj_stage_id;
5909: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5910: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.UPDATE_STAGES_OVN_COUNT - l_return_status : '||l_return_status);
5911: END IF;
5912:
5913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5914: x_msg_count := l_msg_count;
5915: x_return_status := l_return_status;
5916: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5917: RAISE Fnd_Api.g_exc_error;
5912:
5913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5914: x_msg_count := l_msg_count;
5915: x_return_status := l_return_status;
5916: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5917: RAISE Fnd_Api.g_exc_error;
5918: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5919: RAISE Fnd_Api.g_exc_unexpected_error;
5920: END IF;
5913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5914: x_msg_count := l_msg_count;
5915: x_return_status := l_return_status;
5916: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5917: RAISE Fnd_Api.g_exc_error;
5918: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5919: RAISE Fnd_Api.g_exc_unexpected_error;
5920: END IF;
5921: END IF;
5914: x_msg_count := l_msg_count;
5915: x_return_status := l_return_status;
5916: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5917: RAISE Fnd_Api.g_exc_error;
5918: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5919: RAISE Fnd_Api.g_exc_unexpected_error;
5920: END IF;
5921: END IF;
5922:
5915: x_return_status := l_return_status;
5916: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5917: RAISE Fnd_Api.g_exc_error;
5918: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5919: RAISE Fnd_Api.g_exc_unexpected_error;
5920: END IF;
5921: END IF;
5922:
5923: l_ovn_p_stage_id := parallel_stage_ids.NEXT(l_ovn_p_stage_id);
5957:
5958: END LOOP;
5959:
5960: IF l_isValidationFailed THEN
5961: RAISE Fnd_Api.G_EXC_ERROR;
5962: END IF;
5963:
5964: END IF;
5965: END IF;
5979: IF (l_log_statement >= l_log_current_level) THEN
5980: fnd_log.string(l_log_statement,L_DEBUG,'After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
5981: END IF;
5982:
5983: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5984: x_msg_count := l_msg_count;
5985: x_return_status := l_return_status;
5986: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5987: RAISE Fnd_Api.g_exc_error;
5982:
5983: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5984: x_msg_count := l_msg_count;
5985: x_return_status := l_return_status;
5986: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5987: RAISE Fnd_Api.g_exc_error;
5988: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5989: RAISE Fnd_Api.g_exc_unexpected_error;
5990: END IF;
5983: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5984: x_msg_count := l_msg_count;
5985: x_return_status := l_return_status;
5986: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5987: RAISE Fnd_Api.g_exc_error;
5988: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5989: RAISE Fnd_Api.g_exc_unexpected_error;
5990: END IF;
5991: END IF;
5984: x_msg_count := l_msg_count;
5985: x_return_status := l_return_status;
5986: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5987: RAISE Fnd_Api.g_exc_error;
5988: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5989: RAISE Fnd_Api.g_exc_unexpected_error;
5990: END IF;
5991: END IF;
5992: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5985: x_return_status := l_return_status;
5986: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
5987: RAISE Fnd_Api.g_exc_error;
5988: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5989: RAISE Fnd_Api.g_exc_unexpected_error;
5990: END IF;
5991: END IF;
5992: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
5993:
5994: --Standard check to count messages
5995: l_msg_count := Fnd_Msg_Pub.count_msg;
5996: IF l_msg_count > 0 THEN
5997: X_msg_count := l_msg_count;
5998: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5999: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6000: END IF;
6001:
6002: IF (l_log_procedure >= l_log_current_level) THEN
5995: l_msg_count := Fnd_Msg_Pub.count_msg;
5996: IF l_msg_count > 0 THEN
5997: X_msg_count := l_msg_count;
5998: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5999: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6000: END IF;
6001:
6002: IF (l_log_procedure >= l_log_current_level) THEN
6003: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6003: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6004: END IF;
6005:
6006: EXCEPTION
6007: WHEN Fnd_Api.G_EXC_ERROR THEN
6008: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6004: END IF;
6005:
6006: EXCEPTION
6007: WHEN Fnd_Api.G_EXC_ERROR THEN
6008: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6007: WHEN Fnd_Api.G_EXC_ERROR THEN
6008: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6008: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6009: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6010: p_data => x_msg_data,
6011: p_encoded => Fnd_Api.g_false);
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6017: WHEN OTHERS THEN
6012: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6013: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6017: WHEN OTHERS THEN
6018: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6019: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6020: THEN
6014: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6015: p_data => x_msg_data,
6016: p_encoded => Fnd_Api.g_false);
6017: WHEN OTHERS THEN
6018: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6019: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6020: THEN
6021: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6022: END IF;
6020: THEN
6021: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6022: END IF;
6023: Fnd_Msg_Pub.count_and_get (
6024: p_encoded => Fnd_Api.g_false,
6025: p_count => x_msg_count,
6026: p_data => x_msg_data );
6027:
6028: END UPDATE_SUCC_STG_START_DATES;
6066: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
6067: END IF;
6068:
6069: --Initialize API return status to success
6070: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6071: l_return_status := x_return_status;
6072:
6073: /*IF p_stage_id = p_updated_stage_id THEN
6074: fnd_log.string(l_log_procedure,L_DEBUG||'.end','Return');
6119: --Standard check to count messages
6120: l_msg_count := Fnd_Msg_Pub.count_msg;
6121: IF l_msg_count > 0 THEN
6122: X_msg_count := l_msg_count;
6123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6125: END IF;
6126:
6127: IF (l_log_procedure >= l_log_current_level) THEN
6120: l_msg_count := Fnd_Msg_Pub.count_msg;
6121: IF l_msg_count > 0 THEN
6122: X_msg_count := l_msg_count;
6123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6124: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6125: END IF;
6126:
6127: IF (l_log_procedure >= l_log_current_level) THEN
6128: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6128: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6129: END IF;
6130:
6131: EXCEPTION
6132: WHEN Fnd_Api.G_EXC_ERROR THEN
6133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6129: END IF;
6130:
6131: EXCEPTION
6132: WHEN Fnd_Api.G_EXC_ERROR THEN
6133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6132: WHEN Fnd_Api.G_EXC_ERROR THEN
6133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6133: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6134: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6135: p_data => x_msg_data,
6136: p_encoded => Fnd_Api.g_false);
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6142: WHEN OTHERS THEN
6137: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6138: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6142: WHEN OTHERS THEN
6143: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6144: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6145: THEN
6139: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6140: p_data => x_msg_data,
6141: p_encoded => Fnd_Api.g_false);
6142: WHEN OTHERS THEN
6143: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6144: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6145: THEN
6146: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6147: END IF;
6145: THEN
6146: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6147: END IF;
6148: Fnd_Msg_Pub.count_and_get (
6149: p_encoded => Fnd_Api.g_false,
6150: p_count => x_msg_count,
6151: p_data => x_msg_data );
6152:
6153: END UPDATE_STAGES_OVN_COUNT;
6200: fnd_log.string(l_log_procedure,L_DEBUG||'.begin','Start');
6201: END IF;
6202:
6203: --Initialize API return status to success
6204: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6205: l_return_status := x_return_status;
6206:
6207: IF (l_log_statement >= l_log_current_level) THEN
6208: fnd_log.string(l_log_statement,L_DEBUG,' p_visit_id '||p_visit_id);
6229: l_isValidationFailed := 'Y';
6230: END LOOP;
6231:
6232: IF l_isValidationFailed='Y' THEN
6233: RAISE Fnd_Api.G_EXC_ERROR;
6234: END IF;
6235:
6236: IF (l_log_statement >= l_log_current_level) THEN
6237: fnd_log.string(l_log_statement,L_DEBUG,' l_isValidationFailed --@>'|| l_isValidationFailed);
6240: --Standard check to count messages
6241: l_msg_count := Fnd_Msg_Pub.count_msg;
6242: IF l_msg_count > 0 THEN
6243: X_msg_count := l_msg_count;
6244: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6245: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6248: IF (l_log_procedure >= l_log_current_level) THEN
6241: l_msg_count := Fnd_Msg_Pub.count_msg;
6242: IF l_msg_count > 0 THEN
6243: X_msg_count := l_msg_count;
6244: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6245: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6246: END IF;
6247:
6248: IF (l_log_procedure >= l_log_current_level) THEN
6249: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6249: fnd_log.string(l_log_procedure,L_DEBUG||'.end','End');
6250: END IF;
6251:
6252: EXCEPTION
6253: WHEN Fnd_Api.G_EXC_ERROR THEN
6254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6250: END IF;
6251:
6252: EXCEPTION
6253: WHEN Fnd_Api.G_EXC_ERROR THEN
6254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6253: WHEN Fnd_Api.G_EXC_ERROR THEN
6254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6255: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6256: p_data => x_msg_data,
6257: p_encoded => Fnd_Api.g_false);
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6263: WHEN OTHERS THEN
6258: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
6259: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6263: WHEN OTHERS THEN
6264: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6265: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6266: THEN
6260: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
6261: p_data => x_msg_data,
6262: p_encoded => Fnd_Api.g_false);
6263: WHEN OTHERS THEN
6264: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6265: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6266: THEN
6267: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6268: END IF;
6266: THEN
6267: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6268: END IF;
6269: Fnd_Msg_Pub.count_and_get (
6270: p_encoded => Fnd_Api.g_false,
6271: p_count => x_msg_count,
6272: p_data => x_msg_data );
6273:
6274: END VALIDATE_STAGE_DATES;