220: -- VWPE: ER:12424063 :: p_use_actuals is no more used
221: --------------------------------------------------------------------
222: FUNCTION Get_Visit_End_Time(
223: p_visit_id IN NUMBER,
224: p_use_actuals IN VARCHAR2 := FND_API.G_TRUE
225: )
226: RETURN DATE
227: IS
228: --
288: -------------------------------------------------------------------
289: PROCEDURE Calculate_Task_Times
290: (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: x_return_status OUT NOCOPY VARCHAR2,
296: x_msg_count OUT NOCOPY NUMBER,
289: PROCEDURE Calculate_Task_Times
290: (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: x_return_status OUT NOCOPY VARCHAR2,
296: x_msg_count OUT NOCOPY NUMBER,
297: x_msg_data OUT NOCOPY VARCHAR2,
290: (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: x_return_status OUT NOCOPY VARCHAR2,
296: x_msg_count OUT NOCOPY NUMBER,
297: x_msg_data OUT NOCOPY VARCHAR2,
298: p_visit_id IN NUMBER)
360: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
361: END IF;
362:
363: -- Standard call to check for call compatibility
364: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
365: G_PKG_NAME) THEN
366: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
362:
363: -- Standard call to check for call compatibility
364: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
365: G_PKG_NAME) THEN
366: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE
370: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
366: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
367: END IF;
368:
369: -- Initialize message list if p_init_msg_list is set to TRUE
370: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
371: Fnd_Msg_Pub.Initialize;
372: END IF;
373:
374: -- Initialize API RETURN status to success
371: Fnd_Msg_Pub.Initialize;
372: END IF;
373:
374: -- Initialize API RETURN status to success
375: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
376:
377: OPEN get_visit_dates (p_visit_id);
378: FETCH get_visit_dates INTO visit_dates_rec;
379: CLOSE get_visit_dates;
424: AND PAST_TASK_START_DATE IS NULL;--Line Added by jrotich for fixing bug #13518519
425: END LOOP;
426:
427: -- Standard check of p_commit
428: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
429: COMMIT WORK;
430: END IF;
431:
432: -- Standard call to get message count and if count is 1, get message info
432: -- Standard call to get message count and if count is 1, get message info
433: Fnd_Msg_Pub.Count_And_Get
434: ( p_count => x_msg_count,
435: p_data => x_msg_data,
436: p_encoded => Fnd_Api.g_false
437: );
438:
439: IF (l_log_procedure >= l_log_current_level) THEN
440: fnd_log.string(l_log_procedure,
442: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
443: END IF;
444:
445: EXCEPTION
446: WHEN Fnd_Api.G_EXC_ERROR THEN
447: ROLLBACK TO calculate_task_Times_pvt;
448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
450: p_data => x_msg_data,
444:
445: EXCEPTION
446: WHEN Fnd_Api.G_EXC_ERROR THEN
447: ROLLBACK TO calculate_task_Times_pvt;
448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
450: p_data => x_msg_data,
451: p_encoded => Fnd_Api.g_false);
452:
447: ROLLBACK TO calculate_task_Times_pvt;
448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
450: p_data => x_msg_data,
451: p_encoded => Fnd_Api.g_false);
452:
453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO calculate_task_Times_pvt;
455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
450: p_data => x_msg_data,
451: p_encoded => Fnd_Api.g_false);
452:
453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO calculate_task_Times_pvt;
455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
457: p_data => x_msg_data,
451: p_encoded => Fnd_Api.g_false);
452:
453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO calculate_task_Times_pvt;
455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
457: p_data => x_msg_data,
458: p_encoded => Fnd_Api.g_false);
459:
454: ROLLBACK TO calculate_task_Times_pvt;
455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
457: p_data => x_msg_data,
458: p_encoded => Fnd_Api.g_false);
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO calculate_task_Times_pvt;
462: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
458: p_encoded => Fnd_Api.g_false);
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO calculate_task_Times_pvt;
462: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
463: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
464: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
465: p_procedure_name => 'Calculate_Task_Times',
466: p_error_text => SUBSTR(SQLERRM,1,240));
466: p_error_text => SUBSTR(SQLERRM,1,240));
467: END IF;
468: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
469: p_data => x_msg_data,
470: p_encoded => Fnd_Api.g_false);
471: END Calculate_Task_Times;
472:
473: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: The logic of this procedure is completely changed
474: -- Going forward visit tasks' dates will be dependent on stage planned dates
490: --------------------------------------------------------------------
491: PROCEDURE Adjust_Task_Times
492: (
493: p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
495: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
496: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
497: x_return_status OUT NOCOPY VARCHAR2,
498: x_msg_count OUT NOCOPY NUMBER,
491: PROCEDURE Adjust_Task_Times
492: (
493: p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
495: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
496: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
497: x_return_status OUT NOCOPY VARCHAR2,
498: x_msg_count OUT NOCOPY NUMBER,
499: x_msg_data OUT NOCOPY VARCHAR2,
492: (
493: p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
495: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
496: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
497: x_return_status OUT NOCOPY VARCHAR2,
498: x_msg_count OUT NOCOPY NUMBER,
499: x_msg_data OUT NOCOPY VARCHAR2,
500: p_task_id IN NUMBER,
497: x_return_status OUT NOCOPY VARCHAR2,
498: x_msg_count OUT NOCOPY NUMBER,
499: x_msg_data OUT NOCOPY VARCHAR2,
500: p_task_id IN NUMBER,
501: p_reset_sysdate_flag IN VARCHAR2 := FND_API.G_FALSE,
502: p_task_start_date IN DATE := NULL)
503: IS
504: --
505: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Modified the below cursor
553: 'At the start of PL SQL procedure. Task Id = ' || p_task_id);
554: END IF;
555:
556: -- Standard call to check for call compatibility
557: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
558: G_PKG_NAME) THEN
559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561:
555:
556: -- Standard call to check for call compatibility
557: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
558: G_PKG_NAME) THEN
559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561:
562: -- Initialize message list if p_init_msg_list is set to TRUE
563: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
559: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
560: END IF;
561:
562: -- Initialize message list if p_init_msg_list is set to TRUE
563: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
564: Fnd_Msg_Pub.Initialize;
565: END IF;
566:
567: -- Initialize API RETURN status to success
564: Fnd_Msg_Pub.Initialize;
565: END IF;
566:
567: -- Initialize API RETURN status to success
568: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
569:
570: OPEN get_visit_dets (p_task_id);
571: FETCH get_visit_dets INTO visit_dets_rec;
572: CLOSE get_visit_dets;
615:
616: END IF; -- End if visit_dets_rec.visit_id
617:
618: -- Standard check of p_commit
619: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
620: COMMIT WORK;
621: END IF;
622:
623: -- Standard call to get message count and if count is 1, get message info
623: -- Standard call to get message count and if count is 1, get message info
624: Fnd_Msg_Pub.Count_And_Get
625: ( p_count => x_msg_count,
626: p_data => x_msg_data,
627: p_encoded => Fnd_Api.g_false
628: );
629:
630: IF (l_log_procedure >= l_log_current_level) THEN
631: fnd_log.string(l_log_procedure,
633: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
634: END IF;
635:
636: EXCEPTION
637: WHEN Fnd_Api.G_EXC_ERROR THEN
638: ROLLBACK TO Adjust_Task_Times_pvt;
639: x_return_status := Fnd_Api.G_RET_STS_ERROR;
640: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
641: p_data => x_msg_data,
635:
636: EXCEPTION
637: WHEN Fnd_Api.G_EXC_ERROR THEN
638: ROLLBACK TO Adjust_Task_Times_pvt;
639: x_return_status := Fnd_Api.G_RET_STS_ERROR;
640: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
641: p_data => x_msg_data,
642: p_encoded => Fnd_Api.g_false);
643:
638: ROLLBACK TO Adjust_Task_Times_pvt;
639: x_return_status := Fnd_Api.G_RET_STS_ERROR;
640: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
641: p_data => x_msg_data,
642: p_encoded => Fnd_Api.g_false);
643:
644: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
645: ROLLBACK TO Adjust_Task_Times_pvt;
646: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
640: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
641: p_data => x_msg_data,
642: p_encoded => Fnd_Api.g_false);
643:
644: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
645: ROLLBACK TO Adjust_Task_Times_pvt;
646: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
647: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
648: p_data => x_msg_data,
642: p_encoded => Fnd_Api.g_false);
643:
644: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
645: ROLLBACK TO Adjust_Task_Times_pvt;
646: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
647: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
648: p_data => x_msg_data,
649: p_encoded => Fnd_Api.g_false);
650:
645: ROLLBACK TO Adjust_Task_Times_pvt;
646: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
647: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
648: p_data => x_msg_data,
649: p_encoded => Fnd_Api.g_false);
650:
651: WHEN OTHERS THEN
652: ROLLBACK TO Adjust_Task_Times_pvt;
653: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
649: p_encoded => Fnd_Api.g_false);
650:
651: WHEN OTHERS THEN
652: ROLLBACK TO Adjust_Task_Times_pvt;
653: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
654: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
655: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
656: p_procedure_name => 'Adjust_Task_Times',
657: p_error_text => SUBSTR(SQLERRM,1,240));
657: p_error_text => SUBSTR(SQLERRM,1,240));
658: END IF;
659: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
660: p_data => x_msg_data,
661: p_encoded => Fnd_Api.g_false);
662: END Adjust_Task_Times;
663:
664: --SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
665: -- Commented out the below procedure
764: CLOSE get_tech_dependency_csr;
765:
766: --Adjust start date for partially released/released tasks to sysdate start date
767: IF ((G_VISIT_STATUS = 'PARTIALLY RELEASED' OR G_VISIT_STATUS = 'RELEASED')
768: AND Fnd_Api.TO_BOOLEAN(G_RESET_SYSDATE_FLAG)) THEN
769: IF (l_start_date < sysdate AND p_task_start_date IS NULL) THEN
770: l_start_date := COMPUTE_DATE(sysdate, nvl(l_task_dept_id, G_VISIT_DEPT_ID),0);
771: END IF;
772: END IF;
840: -------------------------------------------------------------------
841: PROCEDURE Calculate_Task_Times_For_Dept
842: (
843: p_api_version IN NUMBER,
844: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
845: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
846: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
847: x_return_status OUT NOCOPY VARCHAR2,
848: x_msg_count OUT NOCOPY NUMBER,
841: PROCEDURE Calculate_Task_Times_For_Dept
842: (
843: p_api_version IN NUMBER,
844: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
845: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
846: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
847: x_return_status OUT NOCOPY VARCHAR2,
848: x_msg_count OUT NOCOPY NUMBER,
849: x_msg_data OUT NOCOPY VARCHAR2,
842: (
843: p_api_version IN NUMBER,
844: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
845: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
846: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
847: x_return_status OUT NOCOPY VARCHAR2,
848: x_msg_count OUT NOCOPY NUMBER,
849: x_msg_data OUT NOCOPY VARCHAR2,
850: p_dept_id IN NUMBER)
874: 'At the start of PL SQL procedure. Dept Id = ' || p_dept_id);
875: END IF;
876:
877: -- Standard call to check for call compatibility
878: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
879: G_PKG_NAME) THEN
880: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882:
876:
877: -- Standard call to check for call compatibility
878: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
879: G_PKG_NAME) THEN
880: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882:
883: -- Initialize message list if p_init_msg_list is set to TRUE
884: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
880: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882:
883: -- Initialize message list if p_init_msg_list is set to TRUE
884: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
885: Fnd_Msg_Pub.Initialize;
886: END IF;
887:
888: -- Initialize API RETURN status to success
885: Fnd_Msg_Pub.Initialize;
886: END IF;
887:
888: -- Initialize API RETURN status to success
889: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
890:
891: OPEN get_all_visits_csr(p_dept_id);
892: LOOP
893: FETCH get_all_visits_csr INTO l_visit_id;
899: 'Before calling CALCULATE_TASK_TIMES.');
900: END IF;
901:
902: Calculate_Task_Times(p_api_version => 1.0,
903: p_init_msg_list => Fnd_Api.G_FALSE,
904: p_commit => Fnd_Api.G_FALSE,
905: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
906: x_return_status => x_return_status,
907: x_msg_count => x_msg_count,
900: END IF;
901:
902: Calculate_Task_Times(p_api_version => 1.0,
903: p_init_msg_list => Fnd_Api.G_FALSE,
904: p_commit => Fnd_Api.G_FALSE,
905: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
906: x_return_status => x_return_status,
907: x_msg_count => x_msg_count,
908: x_msg_data => x_msg_data,
901:
902: Calculate_Task_Times(p_api_version => 1.0,
903: p_init_msg_list => Fnd_Api.G_FALSE,
904: p_commit => Fnd_Api.G_FALSE,
905: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
906: x_return_status => x_return_status,
907: x_msg_count => x_msg_count,
908: x_msg_data => x_msg_data,
909: p_visit_id => l_visit_id);
914: 'After calling CALCULATE_TASK_TIMES. RETURN Status = ' ||
915: x_return_status);
916: END IF;
917:
918: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
919: IF (l_log_statement >= l_log_current_level) THEN
920: fnd_log.string(l_log_statement,
921: L_DEBUG_KEY,
922: 'Errors from CALCULATE_TASK_TIMES. Message count: ' ||
922: 'Errors from CALCULATE_TASK_TIMES. Message count: ' ||
923: x_msg_count || ', message data: ' || x_msg_data);
924: END IF;
925: CLOSE get_all_visits_csr;
926: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSE
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
923: x_msg_count || ', message data: ' || x_msg_data);
924: END IF;
925: CLOSE get_all_visits_csr;
926: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSE
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931: END IF;
925: CLOSE get_all_visits_csr;
926: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
927: RAISE FND_API.G_EXC_ERROR;
928: ELSE
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931: END IF;
932: END LOOP;
933: CLOSE get_all_visits_csr;
932: END LOOP;
933: CLOSE get_all_visits_csr;
934:
935: -- Standard check of p_commit
936: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
937: COMMIT WORK;
938: END IF;
939:
940: -- Standard call to get message count and if count is 1, get message info
940: -- Standard call to get message count and if count is 1, get message info
941: Fnd_Msg_Pub.Count_And_Get
942: ( p_count => x_msg_count,
943: p_data => x_msg_data,
944: p_encoded => Fnd_Api.g_false
945: );
946:
947: IF (l_log_procedure >= l_log_current_level) THEN
948: fnd_log.string(l_log_procedure,
950: 'At the end of PL SQL procedure. RETURN Status = ' || x_return_status);
951: END IF;
952:
953: EXCEPTION
954: WHEN Fnd_Api.G_EXC_ERROR THEN
955: ROLLBACK TO calculate_Times_for_dept_pvt;
956: x_return_status := Fnd_Api.G_RET_STS_ERROR;
957: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
958: p_data => x_msg_data,
952:
953: EXCEPTION
954: WHEN Fnd_Api.G_EXC_ERROR THEN
955: ROLLBACK TO calculate_Times_for_dept_pvt;
956: x_return_status := Fnd_Api.G_RET_STS_ERROR;
957: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
958: p_data => x_msg_data,
959: p_encoded => Fnd_Api.g_false);
960:
955: ROLLBACK TO calculate_Times_for_dept_pvt;
956: x_return_status := Fnd_Api.G_RET_STS_ERROR;
957: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
958: p_data => x_msg_data,
959: p_encoded => Fnd_Api.g_false);
960:
961: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
962: ROLLBACK TO calculate_Times_for_dept_pvt;
963: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
957: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
958: p_data => x_msg_data,
959: p_encoded => Fnd_Api.g_false);
960:
961: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
962: ROLLBACK TO calculate_Times_for_dept_pvt;
963: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
964: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
965: p_data => x_msg_data,
959: p_encoded => Fnd_Api.g_false);
960:
961: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
962: ROLLBACK TO calculate_Times_for_dept_pvt;
963: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
964: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
965: p_data => x_msg_data,
966: p_encoded => Fnd_Api.g_false);
967:
962: ROLLBACK TO calculate_Times_for_dept_pvt;
963: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
964: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
965: p_data => x_msg_data,
966: p_encoded => Fnd_Api.g_false);
967:
968: WHEN OTHERS THEN
969: ROLLBACK TO calculate_Times_for_dept_pvt;
970: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
966: p_encoded => Fnd_Api.g_false);
967:
968: WHEN OTHERS THEN
969: ROLLBACK TO calculate_Times_for_dept_pvt;
970: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
971: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
972: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
973: p_procedure_name => 'Calculate_Task_Times_For_Dept',
974: p_error_text => SUBSTR(SQLERRM,1,240));
974: p_error_text => SUBSTR(SQLERRM,1,240));
975: END IF;
976: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
977: p_data => x_msg_data,
978: p_encoded => Fnd_Api.g_false);
979: END Calculate_Task_Times_For_Dept;
980:
981: ----------------END OF TASK/VISIT SECTION ----------------------------------------
982:
1283: --Fnd_Message.Set_Name('AHL','AHL_LTP_NO_SHIFT_FOR_DEPT');
1284: --Fnd_Message.Set_Token('DEPT_ID', p_department_id);
1285: --Fnd_Msg_Pub.ADD;
1286: CLOSE l_shift_info_csr;
1287: RETURN; --RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1288: END IF;
1289: CLOSE l_shift_info_csr;
1290:
1291: -- Get the Exception (Holidays) days