[Home] [Help]
317: -- Parameters :
318: --
319: -- Standard IN Parameters :
320: -- p_api_version IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
322: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
324: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
325: -- p_module_type IN VARCHAR2 Default NULL.
318: --
319: -- Standard IN Parameters :
320: -- p_api_version IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
322: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
324: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
325: -- p_module_type IN VARCHAR2 Default NULL.
326: --
319: -- Standard IN Parameters :
320: -- p_api_version IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
322: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
324: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
325: -- p_module_type IN VARCHAR2 Default NULL.
326: --
327: -- Standard OUT Parameters :
320: -- p_api_version IN NUMBER Required
321: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
322: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
323: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
324: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
325: -- p_module_type IN VARCHAR2 Default NULL.
326: --
327: -- Standard OUT Parameters :
328: -- x_return_status OUT VARCHAR2 Required
359:
360: PROCEDURE Derive_Visit_Task_Times
361: (
362: p_api_version IN NUMBER,
363: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
364: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
365: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
366: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
367: p_module_type IN VARCHAR2 := NULL,
360: PROCEDURE Derive_Visit_Task_Times
361: (
362: p_api_version IN NUMBER,
363: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
364: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
365: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
366: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
367: p_module_type IN VARCHAR2 := NULL,
368: p_visit_id IN NUMBER,
361: (
362: p_api_version IN NUMBER,
363: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
364: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
365: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
366: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
367: p_module_type IN VARCHAR2 := NULL,
368: p_visit_id IN NUMBER,
369: p_start_time IN DATE := NULL,
362: p_api_version IN NUMBER,
363: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
364: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
365: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
366: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
367: p_module_type IN VARCHAR2 := NULL,
368: p_visit_id IN NUMBER,
369: p_start_time IN DATE := NULL,
370: p_end_time IN DATE := NULL,
391: -- Standard start of API savepoint
392: SAVEPOINT Derive_Visit_Task_Times_pvt;
393:
394: -- Standard call to check for call compatibility
395: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
396: G_PKG_NAME) THEN
397: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
398: END IF;
399:
393:
394: -- Standard call to check for call compatibility
395: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
396: G_PKG_NAME) THEN
397: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
398: END IF;
399:
400: -- Initialize message list if p_init_msg_list is set to TRUE
401: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
397: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
398: END IF;
399:
400: -- Initialize message list if p_init_msg_list is set to TRUE
401: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
402: Fnd_Msg_Pub.Initialize;
403: END IF;
404:
405: -- Initialize API return status to success
402: Fnd_Msg_Pub.Initialize;
403: END IF;
404:
405: -- Initialize API return status to success
406: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
407:
408: -- Begin Processing
409:
410: -- Enable Debug (optional)
418: -- Validate Visit Id
419: IF (p_visit_id IS NULL) THEN
420: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_NULL');
421: Fnd_Msg_Pub.ADD;
422: RAISE Fnd_Api.G_EXC_ERROR;
423: ELSE
424: OPEN l_validate_visit_csr(p_visit_id);
425: FETCH l_validate_visit_csr INTO l_junk;
426: IF (l_validate_visit_csr%NOTFOUND) THEN
427: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
428: Fnd_Message.Set_Token('VISIT_ID', p_visit_id);
429: Fnd_Msg_Pub.ADD;
430: CLOSE l_validate_visit_csr;
431: RAISE Fnd_Api.G_EXC_ERROR;
432: END IF;
433: CLOSE l_validate_visit_csr;
434: END IF;
435:
438: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
439: Fnd_Message.Set_Token('STIME', p_start_time);
440: Fnd_Message.Set_Token('ETIME', p_end_time);
441: Fnd_Msg_Pub.ADD;
442: RAISE Fnd_Api.G_EXC_ERROR;
443: END IF;
444:
445: -- Call helper method to do the actual processing
446: Ahl_Debug_Pub.debug('Beginning Processing for Visit: ' || p_visit_id, 'LTP:Derive_Visit_Task_Times');
458: Ahl_Debug_Pub.debug('Completed Processing. Checking for errors', 'LTP:Derive_Visit_Task_Times');
459: -- Check Error Message stack.
460: x_msg_count := Fnd_Msg_Pub.count_msg;
461: IF x_msg_count > 0 THEN
462: RAISE Fnd_Api.G_EXC_ERROR;
463: END IF;
464:
465: -- Standard check of p_commit
466: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
462: RAISE Fnd_Api.G_EXC_ERROR;
463: END IF;
464:
465: -- Standard check of p_commit
466: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
467: COMMIT WORK;
468: END IF;
469:
470: -- Standard call to get message count and if count is 1, get message info
470: -- Standard call to get message count and if count is 1, get message info
471: Fnd_Msg_Pub.Count_And_Get
472: ( p_count => x_msg_count,
473: p_data => x_msg_data,
474: p_encoded => Fnd_Api.g_false
475: );
476:
477: -- Disable debug (if enabled)
478: Ahl_Debug_Pub.disable_debug;
478: Ahl_Debug_Pub.disable_debug;
479: -- dbms_output.put_line('Exiting LTP:Derive_Visit_Task_Times');
480:
481: EXCEPTION
482: WHEN Fnd_Api.G_EXC_ERROR THEN
483: ROLLBACK TO Derive_Visit_Task_Times_pvt;
484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
485: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
486: p_data => x_msg_data,
480:
481: EXCEPTION
482: WHEN Fnd_Api.G_EXC_ERROR THEN
483: ROLLBACK TO Derive_Visit_Task_Times_pvt;
484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
485: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
486: p_data => x_msg_data,
487: p_encoded => Fnd_Api.g_false);
488: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
483: ROLLBACK TO Derive_Visit_Task_Times_pvt;
484: x_return_status := Fnd_Api.G_RET_STS_ERROR;
485: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
486: p_data => x_msg_data,
487: p_encoded => Fnd_Api.g_false);
488: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
489:
490:
491: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
487: p_encoded => Fnd_Api.g_false);
488: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
489:
490:
491: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
492: ROLLBACK TO Derive_Visit_Task_Times_pvt;
493: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
494: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
495: p_data => x_msg_data,
489:
490:
491: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
492: ROLLBACK TO Derive_Visit_Task_Times_pvt;
493: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
494: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
495: p_data => x_msg_data,
496: p_encoded => Fnd_Api.g_false);
497: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
492: ROLLBACK TO Derive_Visit_Task_Times_pvt;
493: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
494: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
495: p_data => x_msg_data,
496: p_encoded => Fnd_Api.g_false);
497: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
498:
499: WHEN OTHERS THEN
500: ROLLBACK TO Derive_Visit_Task_Times_pvt;
497: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
498:
499: WHEN OTHERS THEN
500: ROLLBACK TO Derive_Visit_Task_Times_pvt;
501: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
502: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
503: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
504: p_procedure_name => 'Derive_Visit_Task_Times',
505: p_error_text => SUBSTR(SQLERRM,1,240));
505: p_error_text => SUBSTR(SQLERRM,1,240));
506: END IF;
507: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
508: p_data => x_msg_data,
509: p_encoded => Fnd_Api.g_false);
510: --AHL_UTIL_PKG.Err_Mesg_To_Table(x_err_mesg_tbl);
511:
512: END Derive_Visit_Task_Times;
513:
520: -- Parameters :
521: --
522: -- Standard IN Parameters :
523: -- p_api_version IN NUMBER Required
524: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
525: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
526: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
527: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
528: -- p_module_type IN VARCHAR2 Default NULL.
521: --
522: -- Standard IN Parameters :
523: -- p_api_version IN NUMBER Required
524: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
525: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
526: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
527: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
528: -- p_module_type IN VARCHAR2 Default NULL.
529: --
522: -- Standard IN Parameters :
523: -- p_api_version IN NUMBER Required
524: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
525: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
526: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
527: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
528: -- p_module_type IN VARCHAR2 Default NULL.
529: --
530: -- Standard OUT Parameters :
523: -- p_api_version IN NUMBER Required
524: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
525: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
526: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
527: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
528: -- p_module_type IN VARCHAR2 Default NULL.
529: --
530: -- Standard OUT Parameters :
531: -- x_return_status OUT VARCHAR2 Required
560:
561: PROCEDURE Get_Plan_Resources
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
565: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
568: p_module_type IN VARCHAR2 := NULL,
561: PROCEDURE Get_Plan_Resources
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
565: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
568: p_module_type IN VARCHAR2 := NULL,
569: p_dept_id IN NUMBER,
562: (
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
565: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
568: p_module_type IN VARCHAR2 := NULL,
569: p_dept_id IN NUMBER,
570: p_dept_name IN VARCHAR2,
563: p_api_version IN NUMBER,
564: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
565: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
566: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
567: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
568: p_module_type IN VARCHAR2 := NULL,
569: p_dept_id IN NUMBER,
570: p_dept_name IN VARCHAR2,
571: p_org_name IN VARCHAR2,
606: -- Standard start of API savepoint
607: SAVEPOINT Get_Plan_Resources_pvt;
608:
609: -- Standard call to check for call compatibility
610: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
611: G_PKG_NAME) THEN
612: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
613: END IF;
614:
608:
609: -- Standard call to check for call compatibility
610: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
611: G_PKG_NAME) THEN
612: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
613: END IF;
614:
615: -- Initialize message list if p_init_msg_list is set to TRUE
616: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
612: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
613: END IF;
614:
615: -- Initialize message list if p_init_msg_list is set to TRUE
616: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
617: Fnd_Msg_Pub.Initialize;
618: END IF;
619:
620: -- Initialize API return status to success
617: Fnd_Msg_Pub.Initialize;
618: END IF;
619:
620: -- Initialize API return status to success
621: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
622:
623: -- Enable Debug (optional)
624: Ahl_Debug_Pub.enable_debug;
625:
634: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INVALID');
635: Fnd_Message.Set_Token('DEPT', p_dept_name);
636: Fnd_Msg_Pub.ADD;
637: CLOSE l_dept_id_csr;
638: RAISE Fnd_Api.G_EXC_ERROR;
639: END IF;
640: CLOSE l_dept_id_csr;
641: -- dbms_output.put_line('l_dept_id = ' || l_dept_id);
642: ELSE
643: -- Validate Dept Id
644: IF (p_dept_id IS NULL) THEN
645: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
646: Fnd_Msg_Pub.ADD;
647: RAISE Fnd_Api.G_EXC_ERROR;
648: ELSE
649: OPEN l_validate_dept_csr(p_dept_id);
650: FETCH l_validate_dept_csr INTO l_junk;
651: IF (l_validate_dept_csr%NOTFOUND) THEN
652: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_ID_INVALID');
653: Fnd_Message.Set_Token('DEPT', p_dept_id);
654: Fnd_Msg_Pub.ADD;
655: CLOSE l_validate_dept_csr;
656: RAISE Fnd_Api.G_EXC_ERROR;
657: END IF;
658: CLOSE l_validate_dept_csr;
659: END IF;
660: l_dept_id := p_dept_id;
664: -- Validate Plan Id
665: IF (p_plan_id IS NULL) THEN
666: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
667: Fnd_Msg_Pub.ADD;
668: RAISE Fnd_Api.G_EXC_ERROR;
669: ELSE
670: OPEN l_validate_plan_csr(p_plan_id);
671: FETCH l_validate_plan_csr INTO l_junk;
672: IF (l_validate_plan_csr%NOTFOUND) THEN
673: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
674: Fnd_Message.Set_Token('PLAN', p_plan_id);
675: Fnd_Msg_Pub.ADD;
676: CLOSE l_validate_plan_csr;
677: RAISE Fnd_Api.G_EXC_ERROR;
678: END IF;
679: CLOSE l_validate_plan_csr;
680: END IF;
681: -- dbms_output.put_line('p_plan_id = ' || p_plan_id);
685: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
686: Fnd_Message.Set_Token('STIME', p_start_time);
687: Fnd_Message.Set_Token('ETIME', p_end_time);
688: Fnd_Msg_Pub.ADD;
689: RAISE Fnd_Api.G_EXC_ERROR;
690: END IF;
691:
692: -- dbms_output.put_line('Completed Mapping. Calling Get_Plan_Tasks');
693: -- Get all the tasks for the given dept/plan
723: Ahl_Debug_Pub.debug('Completed Processing. Checking for errors', 'LTP');
724: -- Check Error Message stack.
725: x_msg_count := Fnd_Msg_Pub.count_msg;
726: IF x_msg_count > 0 THEN
727: RAISE Fnd_Api.G_EXC_ERROR;
728: END IF;
729:
730: -- Standard check of p_commit
731: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
727: RAISE Fnd_Api.G_EXC_ERROR;
728: END IF;
729:
730: -- Standard check of p_commit
731: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
732: COMMIT WORK;
733: END IF;
734:
735: -- Standard call to get message count and if count is 1, get message info
735: -- Standard call to get message count and if count is 1, get message info
736: Fnd_Msg_Pub.Count_And_Get
737: ( p_count => x_msg_count,
738: p_data => x_msg_data,
739: p_encoded => Fnd_Api.g_false
740: );
741:
742: -- Disable debug (if enabled)
743: Ahl_Debug_Pub.disable_debug;
742: -- Disable debug (if enabled)
743: Ahl_Debug_Pub.disable_debug;
744:
745: EXCEPTION
746: WHEN Fnd_Api.G_EXC_ERROR THEN
747: ROLLBACK TO Get_Plan_Resources_pvt;
748: x_return_status := Fnd_Api.G_RET_STS_ERROR;
749: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
750: p_data => x_msg_data,
744:
745: EXCEPTION
746: WHEN Fnd_Api.G_EXC_ERROR THEN
747: ROLLBACK TO Get_Plan_Resources_pvt;
748: x_return_status := Fnd_Api.G_RET_STS_ERROR;
749: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
750: p_data => x_msg_data,
751: p_encoded => Fnd_Api.g_false);
752:
747: ROLLBACK TO Get_Plan_Resources_pvt;
748: x_return_status := Fnd_Api.G_RET_STS_ERROR;
749: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
750: p_data => x_msg_data,
751: p_encoded => Fnd_Api.g_false);
752:
753: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
754: ROLLBACK TO Get_Plan_Resources_pvt;
755: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
749: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
750: p_data => x_msg_data,
751: p_encoded => Fnd_Api.g_false);
752:
753: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
754: ROLLBACK TO Get_Plan_Resources_pvt;
755: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
756: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
757: p_data => x_msg_data,
751: p_encoded => Fnd_Api.g_false);
752:
753: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
754: ROLLBACK TO Get_Plan_Resources_pvt;
755: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
756: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
757: p_data => x_msg_data,
758: p_encoded => Fnd_Api.g_false);
759:
754: ROLLBACK TO Get_Plan_Resources_pvt;
755: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
756: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
757: p_data => x_msg_data,
758: p_encoded => Fnd_Api.g_false);
759:
760: WHEN OTHERS THEN
761: ROLLBACK TO Get_Plan_Resources_pvt;
762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
758: p_encoded => Fnd_Api.g_false);
759:
760: WHEN OTHERS THEN
761: ROLLBACK TO Get_Plan_Resources_pvt;
762: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
763: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
764: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
765: p_procedure_name => 'Get_Plan_Resources',
766: p_error_text => SUBSTR(SQLERRM,1,240));
766: p_error_text => SUBSTR(SQLERRM,1,240));
767: END IF;
768: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
769: p_data => x_msg_data,
770: p_encoded => Fnd_Api.g_false);
771:
772: END Get_Plan_Resources;
773:
774: -- Start of Comments --
781: -- Parameters :
782: --
783: -- Standard IN Parameters :
784: -- p_api_version IN NUMBER Required
785: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
786: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
787: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
788: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
789: -- p_module_type IN VARCHAR2 Default NULL.
782: --
783: -- Standard IN Parameters :
784: -- p_api_version IN NUMBER Required
785: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
786: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
787: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
788: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
789: -- p_module_type IN VARCHAR2 Default NULL.
790: --
783: -- Standard IN Parameters :
784: -- p_api_version IN NUMBER Required
785: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
786: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
787: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
788: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
789: -- p_module_type IN VARCHAR2 Default NULL.
790: --
791: -- Standard OUT Parameters :
784: -- p_api_version IN NUMBER Required
785: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
786: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
787: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
788: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
789: -- p_module_type IN VARCHAR2 Default NULL.
790: --
791: -- Standard OUT Parameters :
792: -- x_return_status OUT VARCHAR2 Required
824:
825: PROCEDURE Get_Rsrc_Req_By_Period
826: (
827: p_api_version IN NUMBER,
828: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
829: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
830: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
831: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
832: p_module_type IN VARCHAR2 := NULL,
825: PROCEDURE Get_Rsrc_Req_By_Period
826: (
827: p_api_version IN NUMBER,
828: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
829: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
830: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
831: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
832: p_module_type IN VARCHAR2 := NULL,
833: p_dept_id IN NUMBER,
826: (
827: p_api_version IN NUMBER,
828: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
829: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
830: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
831: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
832: p_module_type IN VARCHAR2 := NULL,
833: p_dept_id IN NUMBER,
834: p_dept_name IN VARCHAR2,
827: p_api_version IN NUMBER,
828: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
829: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
830: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
831: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
832: p_module_type IN VARCHAR2 := NULL,
833: p_dept_id IN NUMBER,
834: p_dept_name IN VARCHAR2,
835: p_org_name IN VARCHAR2,
932: -- Standard start of API savepoint
933: SAVEPOINT Get_Rsrc_Req_By_Period_pvt;
934:
935: -- Standard call to check for call compatibility
936: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
937: G_PKG_NAME) THEN
938: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
934:
935: -- Standard call to check for call compatibility
936: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
937: G_PKG_NAME) THEN
938: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: -- Initialize message list if p_init_msg_list is set to TRUE
942: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
938: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: -- Initialize message list if p_init_msg_list is set to TRUE
942: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
943: Fnd_Msg_Pub.Initialize;
944: END IF;
945:
946: -- Initialize API return status to success
943: Fnd_Msg_Pub.Initialize;
944: END IF;
945:
946: -- Initialize API return status to success
947: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
948:
949: -- Enable Debug (optional)
950: Ahl_Debug_Pub.enable_debug;
951:
1002:
1003: IF (p_org_name IS NULL) THEN
1004: Fnd_Message.Set_Name('AHL','AHL_LTP_ORG_MAN_JSP');
1005: Fnd_Msg_Pub.ADD;
1006: RAISE Fnd_Api.G_EXC_ERROR;
1007: END IF;
1008:
1009: IF (p_start_time IS NULL) THEN
1010: Fnd_Message.Set_Name('AHL','AHL_LTP_STARTDATE_MAN_JSP');
1008:
1009: IF (p_start_time IS NULL) THEN
1010: Fnd_Message.Set_Name('AHL','AHL_LTP_STARTDATE_MAN_JSP');
1011: Fnd_Msg_Pub.ADD;
1012: RAISE Fnd_Api.G_EXC_ERROR;
1013: END IF;
1014:
1015: IF (p_end_time IS NULL) THEN
1016: Fnd_Message.Set_Name('AHL','AHL_LTP_ENDDATE_MAN_JSP');
1014:
1015: IF (p_end_time IS NULL) THEN
1016: Fnd_Message.Set_Name('AHL','AHL_LTP_ENDDATE_MAN_JSP');
1017: Fnd_Msg_Pub.ADD;
1018: RAISE Fnd_Api.G_EXC_ERROR;
1019: END IF;
1020:
1021: IF (TRUNC(p_start_time) < TRUNC(SYSDATE) ) THEN
1022: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_START_DATE');
1020:
1021: IF (TRUNC(p_start_time) < TRUNC(SYSDATE) ) THEN
1022: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_START_DATE');
1023: Fnd_Msg_Pub.ADD;
1024: RAISE Fnd_Api.G_EXC_ERROR;
1025: END IF;
1026:
1027: IF (TRUNC(p_end_time) < TRUNC(SYSDATE) ) THEN
1028: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_END_DATE');
1026:
1027: IF (TRUNC(p_end_time) < TRUNC(SYSDATE) ) THEN
1028: Fnd_Message.Set_Name('AHL','AHL_LTP_INVALID_END_DATE');
1029: Fnd_Msg_Pub.ADD;
1030: RAISE Fnd_Api.G_EXC_ERROR;
1031: END IF;
1032: -- yazhou 24Aug2005 ends
1033:
1034: -- Map Dept Name To Dept Id
1041: Fnd_Message.Set_Name('AHL','AHL_LTP_ORG_ID_INVALID');
1042: Fnd_Message.Set_Token('ORG', p_org_name);
1043: Fnd_Msg_Pub.ADD;
1044: CLOSE l_validate_org_csr;
1045: RAISE Fnd_Api.G_EXC_ERROR;
1046: END IF;
1047: --
1048: CLOSE l_validate_org_csr;
1049: -- Validate dept name
1053: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1054: Fnd_Message.Set_Token('DEPT', p_dept_name);
1055: Fnd_Msg_Pub.ADD;
1056: CLOSE l_dept_id_csr;
1057: RAISE Fnd_Api.G_EXC_ERROR;
1058: END IF;
1059: CLOSE l_dept_id_csr;
1060: --
1061: l_dept_name := p_dept_name;
1073: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1074: Fnd_Message.Set_Token('DEPT', p_dept_id);
1075: Fnd_Msg_Pub.ADD;
1076: CLOSE l_validate_dept_csr;
1077: RAISE Fnd_Api.G_EXC_ERROR;
1078: END IF;
1079: END IF;
1080:
1081: -- yazhou 24Aug2005 ends
1089: -- Validate Plan Id
1090: IF (p_plan_id IS NULL) THEN
1091: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
1092: Fnd_Msg_Pub.ADD;
1093: RAISE Fnd_Api.G_EXC_ERROR;
1094: ELSE
1095: OPEN l_validate_plan_csr(p_plan_id);
1096: FETCH l_validate_plan_csr INTO l_junk;
1097: IF (l_validate_plan_csr%NOTFOUND) THEN
1098: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1099: Fnd_Message.Set_Token('PLAN', p_plan_id);
1100: Fnd_Msg_Pub.ADD;
1101: CLOSE l_validate_plan_csr;
1102: RAISE Fnd_Api.G_EXC_ERROR;
1103: END IF;
1104: CLOSE l_validate_plan_csr;
1105: END IF;
1106:
1112: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1113: Fnd_Message.Set_Token('STIME', p_start_time);
1114: Fnd_Message.Set_Token('ETIME', p_end_time);
1115: Fnd_Msg_Pub.ADD;
1116: RAISE Fnd_Api.G_EXC_ERROR;
1117: END IF;
1118:
1119: -- yazhou 24Aug2005 ends
1120:
1422: -- Check Error Message stack.
1423:
1424: x_msg_count := Fnd_Msg_Pub.count_msg;
1425: IF x_msg_count > 0 THEN
1426: RAISE Fnd_Api.G_EXC_ERROR;
1427: END IF;
1428:
1429:
1430: -- Standard check of p_commit
1427: END IF;
1428:
1429:
1430: -- Standard check of p_commit
1431: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1432: COMMIT WORK;
1433: END IF;
1434:
1435: -- Standard call to get message count and if count is 1, get message info
1435: -- Standard call to get message count and if count is 1, get message info
1436: Fnd_Msg_Pub.Count_And_Get
1437: ( p_count => x_msg_count,
1438: p_data => x_msg_data,
1439: p_encoded => Fnd_Api.g_false
1440: );
1441:
1442: -- Disable debug (if enabled)
1443: Ahl_Debug_Pub.disable_debug;
1442: -- Disable debug (if enabled)
1443: Ahl_Debug_Pub.disable_debug;
1444:
1445: EXCEPTION
1446: WHEN Fnd_Api.G_EXC_ERROR THEN
1447: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1450: p_data => x_msg_data,
1444:
1445: EXCEPTION
1446: WHEN Fnd_Api.G_EXC_ERROR THEN
1447: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1450: p_data => x_msg_data,
1451: p_encoded => Fnd_Api.g_false);
1452:
1447: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1448: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1450: p_data => x_msg_data,
1451: p_encoded => Fnd_Api.g_false);
1452:
1453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1454: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1449: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1450: p_data => x_msg_data,
1451: p_encoded => Fnd_Api.g_false);
1452:
1453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1454: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1457: p_data => x_msg_data,
1451: p_encoded => Fnd_Api.g_false);
1452:
1453: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1454: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1457: p_data => x_msg_data,
1458: p_encoded => Fnd_Api.g_false);
1459:
1454: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1456: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1457: p_data => x_msg_data,
1458: p_encoded => Fnd_Api.g_false);
1459:
1460: WHEN OTHERS THEN
1461: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1462: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1458: p_encoded => Fnd_Api.g_false);
1459:
1460: WHEN OTHERS THEN
1461: ROLLBACK TO Get_Rsrc_Req_By_Period_pvt;
1462: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1463: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1464: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1465: p_procedure_name => 'Get_Rsrc_Req_By_Period',
1466: p_error_text => SUBSTR(SQLERRM,1,240));
1466: p_error_text => SUBSTR(SQLERRM,1,240));
1467: END IF;
1468: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1469: p_data => x_msg_data,
1470: p_encoded => Fnd_Api.g_false);
1471:
1472: END Get_Rsrc_Req_By_Period;
1473:
1474:
1482: -- Parameters :
1483: --
1484: -- Standard IN Parameters :
1485: -- p_api_version IN NUMBER Required
1486: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1487: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1488: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1489: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
1490: -- p_module_type IN VARCHAR2 Default NULL.
1483: --
1484: -- Standard IN Parameters :
1485: -- p_api_version IN NUMBER Required
1486: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1487: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1488: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1489: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
1490: -- p_module_type IN VARCHAR2 Default NULL.
1491: --
1484: -- Standard IN Parameters :
1485: -- p_api_version IN NUMBER Required
1486: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1487: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1488: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1489: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
1490: -- p_module_type IN VARCHAR2 Default NULL.
1491: --
1492: -- Standard OUT Parameters :
1485: -- p_api_version IN NUMBER Required
1486: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1487: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1488: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1489: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
1490: -- p_module_type IN VARCHAR2 Default NULL.
1491: --
1492: -- Standard OUT Parameters :
1493: -- x_return_status OUT VARCHAR2 Required
1522: -- End of Comments.
1523: PROCEDURE Get_Task_Requirements
1524: (
1525: p_api_version IN NUMBER,
1526: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1527: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1528: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1529: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
1530: p_module_type IN VARCHAR2 := NULL,
1523: PROCEDURE Get_Task_Requirements
1524: (
1525: p_api_version IN NUMBER,
1526: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1527: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1528: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1529: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
1530: p_module_type IN VARCHAR2 := NULL,
1531: p_dept_id IN NUMBER,
1524: (
1525: p_api_version IN NUMBER,
1526: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1527: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1528: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1529: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
1530: p_module_type IN VARCHAR2 := NULL,
1531: p_dept_id IN NUMBER,
1532: p_dept_name IN VARCHAR2,
1525: p_api_version IN NUMBER,
1526: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1527: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1528: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1529: p_default IN VARCHAR2 := Fnd_Api.G_TRUE,
1530: p_module_type IN VARCHAR2 := NULL,
1531: p_dept_id IN NUMBER,
1532: p_dept_name IN VARCHAR2,
1533: p_org_name IN VARCHAR2,
1582: -- Standard start of API savepoint
1583: SAVEPOINT Get_Task_Requirements_pvt;
1584:
1585: -- Standard call to check for call compatibility
1586: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1587: G_PKG_NAME) THEN
1588: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1584:
1585: -- Standard call to check for call compatibility
1586: IF NOT Fnd_Api.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
1587: G_PKG_NAME) THEN
1588: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1591: -- Initialize message list if p_init_msg_list is set to TRUE
1592: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
1588: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1591: -- Initialize message list if p_init_msg_list is set to TRUE
1592: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
1593: Fnd_Msg_Pub.Initialize;
1594: END IF;
1595:
1596: -- Initialize API return status to success
1593: Fnd_Msg_Pub.Initialize;
1594: END IF;
1595:
1596: -- Initialize API return status to success
1597: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1598:
1599: -- Enable Debug (optional)
1600: Ahl_Debug_Pub.enable_debug;
1601:
1610: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1611: Fnd_Message.Set_Token('DEPT', p_dept_name);
1612: Fnd_Msg_Pub.ADD;
1613: CLOSE l_dept_id_csr;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1615: END IF;
1616: CLOSE l_dept_id_csr;
1617: -- dbms_output.put_line('l_dept_id = ' || l_dept_id);
1618: ELSE
1619: -- Validate Dept Id
1620: IF (p_dept_id IS NULL) THEN
1621: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_NULL');
1622: Fnd_Msg_Pub.ADD;
1623: RAISE Fnd_Api.G_EXC_ERROR;
1624: ELSE
1625: OPEN l_validate_dept_csr(p_dept_id);
1626: FETCH l_validate_dept_csr INTO l_junk;
1627: IF (l_validate_dept_csr%NOTFOUND) THEN
1628: Fnd_Message.Set_Name('AHL','AHL_LTP_DEPT_INV_OR_NO_SFT');
1629: Fnd_Message.Set_Token('DEPT', p_dept_id);
1630: Fnd_Msg_Pub.ADD;
1631: CLOSE l_validate_dept_csr;
1632: RAISE Fnd_Api.G_EXC_ERROR;
1633: END IF;
1634: CLOSE l_validate_dept_csr;
1635: END IF;
1636: l_dept_id := p_dept_id;
1640: -- Validate Plan Id
1641: IF (p_plan_id IS NULL) THEN
1642: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_NULL');
1643: Fnd_Msg_Pub.ADD;
1644: RAISE Fnd_Api.G_EXC_ERROR;
1645: ELSE
1646: OPEN l_validate_plan_csr(p_plan_id);
1647: FETCH l_validate_plan_csr INTO l_junk;
1648: IF (l_validate_plan_csr%NOTFOUND) THEN
1649: Fnd_Message.Set_Name('AHL','AHL_LTP_PLAN_ID_INVALID');
1650: Fnd_Message.Set_Token('PLAN', p_plan_id);
1651: Fnd_Msg_Pub.ADD;
1652: CLOSE l_validate_plan_csr;
1653: RAISE Fnd_Api.G_EXC_ERROR;
1654: END IF;
1655: CLOSE l_validate_plan_csr;
1656: END IF;
1657: -- dbms_output.put_line('p_plan_id = ' || p_plan_id);
1661: Fnd_Message.Set_Name('AHL','AHL_LTP_STIME_GT_ETIME');
1662: Fnd_Message.Set_Token('STIME', p_start_time);
1663: Fnd_Message.Set_Token('ETIME', p_end_time);
1664: Fnd_Msg_Pub.ADD;
1665: RAISE Fnd_Api.G_EXC_ERROR;
1666: END IF;
1667:
1668: -- dbms_output.put_line('Completed Mapping. Calling Get_Plan_Tasks');
1669: -- l_start_time := trunc(p_start_time);
1712: Ahl_Debug_Pub.debug('Completed Processing. Checking FOR errors', 'LTP');
1713: -- Check Error Message stack.
1714: x_msg_count := Fnd_Msg_Pub.count_msg;
1715: IF x_msg_count > 0 THEN
1716: RAISE Fnd_Api.G_EXC_ERROR;
1717: END IF;
1718:
1719: -- Standard check of p_commit
1720: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1716: RAISE Fnd_Api.G_EXC_ERROR;
1717: END IF;
1718:
1719: -- Standard check of p_commit
1720: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1721: COMMIT WORK;
1722: END IF;
1723:
1724: -- Standard call to get message count and if count is 1, get message info
1724: -- Standard call to get message count and if count is 1, get message info
1725: Fnd_Msg_Pub.Count_And_Get
1726: ( p_count => x_msg_count,
1727: p_data => x_msg_data,
1728: p_encoded => Fnd_Api.g_false
1729: );
1730:
1731: -- Disable debug (if enabled)
1732: Ahl_Debug_Pub.disable_debug;
1731: -- Disable debug (if enabled)
1732: Ahl_Debug_Pub.disable_debug;
1733:
1734: EXCEPTION
1735: WHEN Fnd_Api.G_EXC_ERROR THEN
1736: ROLLBACK TO Get_Task_Requirements_pvt;
1737: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1738: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1739: p_data => x_msg_data,
1733:
1734: EXCEPTION
1735: WHEN Fnd_Api.G_EXC_ERROR THEN
1736: ROLLBACK TO Get_Task_Requirements_pvt;
1737: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1738: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1739: p_data => x_msg_data,
1740: p_encoded => Fnd_Api.g_false);
1741:
1736: ROLLBACK TO Get_Task_Requirements_pvt;
1737: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1738: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1739: p_data => x_msg_data,
1740: p_encoded => Fnd_Api.g_false);
1741:
1742: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1743: ROLLBACK TO Get_Task_Requirements_pvt;
1744: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1738: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1739: p_data => x_msg_data,
1740: p_encoded => Fnd_Api.g_false);
1741:
1742: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1743: ROLLBACK TO Get_Task_Requirements_pvt;
1744: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1745: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1746: p_data => x_msg_data,
1740: p_encoded => Fnd_Api.g_false);
1741:
1742: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1743: ROLLBACK TO Get_Task_Requirements_pvt;
1744: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1745: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1746: p_data => x_msg_data,
1747: p_encoded => Fnd_Api.g_false);
1748:
1743: ROLLBACK TO Get_Task_Requirements_pvt;
1744: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1745: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1746: p_data => x_msg_data,
1747: p_encoded => Fnd_Api.g_false);
1748:
1749: WHEN OTHERS THEN
1750: ROLLBACK TO Get_Task_Requirements_pvt;
1751: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1747: p_encoded => Fnd_Api.g_false);
1748:
1749: WHEN OTHERS THEN
1750: ROLLBACK TO Get_Task_Requirements_pvt;
1751: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1752: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR) THEN
1753: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1754: p_procedure_name => 'Get_Task_Requirements',
1755: p_error_text => SUBSTR(SQLERRM,1,240));
1755: p_error_text => SUBSTR(SQLERRM,1,240));
1756: END IF;
1757: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1758: p_data => x_msg_data,
1759: p_encoded => Fnd_Api.g_false);
1760:
1761: END Get_Task_Requirements;
1762:
1763: ----------------------------------------
2251: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_NULL');
2252: Fnd_Msg_Pub.ADD;
2253: CLOSE l_visit_details_csr;
2254: Ahl_Debug_Pub.debug('Invalid visit Id', 'LTP: Derive_Visit_Task_Times');
2255: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257: CLOSE l_visit_details_csr;
2258:
2259: -- yazhou 24Aug2005 starts
2472: IF l_get_bom_resources_csr%NOTFOUND THEN
2473: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_BOM_RESRC_ID');
2474: Fnd_Msg_Pub.ADD;
2475: CLOSE l_get_bom_resources_csr;
2476: RAISE Fnd_Api.G_EXC_ERROR;
2477: -- RETURN;
2478: END IF;
2479: CLOSE l_get_bom_resources_csr;
2480: --
2520: IF l_get_bom_resources_csr%NOTFOUND THEN
2521: Fnd_Message.Set_Name('AHL','AHL_LTP_NO_BOM_RESRC_ID');
2522: Fnd_Msg_Pub.ADD;
2523: CLOSE l_get_bom_resources_csr;
2524: RAISE Fnd_Api.G_EXC_ERROR;
2525: -- RETURN;
2526: END IF;
2527: CLOSE l_get_bom_resources_csr;
2528: --
2621: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2622: Fnd_Message.Set_Token('ASO_RSRC_ID', p_bom_resource_id);
2623: Fnd_Msg_Pub.ADD;
2624: CLOSE l_get_bom_rsrc_dtls_csr;
2625: RAISE Fnd_Api.G_EXC_ERROR;
2626: END IF;
2627: -- Check for shift capacity
2628: OPEN l_get_shift_dtls_csr(p_bom_resource_id,p_bom_department_id);
2629: FETCH l_get_shift_dtls_csr INTO l_shift_num,l_shift_capacity;
2713: Fnd_Message.Set_Name('AHL','AHL_LTP_BOM_RSRC_ID_INVALID');
2714: Fnd_Message.Set_Token('ASO_RSRC_ID', p_aso_resource_id);
2715: Fnd_Msg_Pub.ADD;
2716: CLOSE l_get_bom_rsrc_dtls_csr;
2717: RAISE Fnd_Api.G_EXC_ERROR;
2718: END IF;
2719:
2720: -- yazhou 17Aug2005 starts
2721: -- bug fix #4559462
3184: IF (p_resource_id IS NULL) THEN
3185: -- Error
3186: FND_MESSAGE.Set_Name('AHL','AHL_LTP_RSRC_ID_NULL');
3187: FND_MSG_PUB.ADD;
3188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3189: END IF;
3190:
3191: IF (l_log_statement >= l_log_current_level) THEN
3192: fnd_log.string
3324: IF (p_resource_id IS NULL) THEN
3325: -- Error
3326: Fnd_Message.Set_Name('AHL','AHL_LTP_RSRC_ID_NULL');
3327: Fnd_Msg_Pub.ADD;
3328: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3329: END IF;
3330:
3331: IF (p_aso_bom_type = G_ASO_RESOURCE) THEN
3332: -- ASO Resource
3354: -- Error
3355: Fnd_Message.Set_Name('AHL','AHL_LTP_RSRC_TYPE_INVALID');
3356: Fnd_Message.Set_Token('RSRC_TYPE', p_aso_bom_type);
3357: Fnd_Msg_Pub.ADD;
3358: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3359: END IF;
3360: -- Assign Local table to Output Parameter
3361: p_x_tp_dtls_tbl := l_temp_table;
3362: END Get_qty_By_Resource;
3451: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3452: Fnd_Msg_Pub.ADD;
3453: CLOSE l_dept_shift_csr;
3454: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3455: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3456: END IF;
3457: CLOSE l_dept_shift_csr;
3458: -- dbms_output.put_line('L_CALENDAR_CODE := ' || L_CALENDAR_CODE);
3459: -- dbms_output.put_line('L_SHIFT_NUM := ' || L_SHIFT_NUM);
3466: Fnd_Message.Set_Token('CAL_CODE', L_CALENDAR_CODE);
3467: Fnd_Msg_Pub.ADD;
3468: CLOSE l_calendar_csr;
3469: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || L_CALENDAR_CODE, 'LTP: Create_Time_Periods');
3470: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3471: END IF;
3472: CLOSE l_calendar_csr;
3473: -- Truncate the date values
3474: L_CAL_START := TRUNC(L_CAL_START);
3484: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3485: Fnd_Msg_Pub.ADD;
3486: CLOSE l_workday_pattern_csr;
3487: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3488: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3489: END IF;
3490: CLOSE l_workday_pattern_csr;
3491:
3492: -- Start processing based on UOM code
3500: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
3501: Fnd_Msg_Pub.ADD;
3502: CLOSE l_shift_times_csr;
3503: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_dept_id, 'LTP: Create_Time_Periods');
3504: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3505: END IF;
3506: CLOSE l_shift_times_csr;
3507: -- dbms_output.put_line('L_SHIFT_START := ' || L_SHIFT_START);
3508: -- dbms_output.put_line('L_SHIFT_END := ' || L_SHIFT_END);
3524: IF(l_temp_start > L_CAL_END) THEN
3525: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
3526: Fnd_Msg_Pub.ADD;
3527: Ahl_Debug_Pub.debug('Computed date (' || l_temp_start|| ') is outside calendar range', 'LTP: Init_Time_Vars');
3528: RAISE Fnd_Api.G_EXC_ERROR;
3529: END IF;
3530: l_working_day := TRUE;
3531: END IF; -- Not a holiday
3532: END IF; -- Not Day Off
3571: IF(l_temp_start > L_CAL_END) THEN
3572: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
3573: Fnd_Msg_Pub.ADD;
3574: Ahl_Debug_Pub.debug('Computed date (' || l_temp_start || ') is outside calendar range', 'LTP: Init_Time_Vars');
3575: RAISE Fnd_Api.G_EXC_ERROR;
3576: END IF;
3577: x_per_rsrc_tbl(l_temp_index).PERIOD_START := trunc(l_temp_start);
3578: -- //@@@@@ Remove Hardcoding
3579: x_per_rsrc_tbl(l_temp_index).PERIOD_STRING := TO_CHAR(l_temp_start, 'DD-MM-YYYY');
3635: -- Invalid UOM Code
3636: Fnd_Message.Set_Name('AHL','AHL_LTP_UOM_CODE_INVALID');
3637: Fnd_Message.Set_Token('UOM_CODE', p_UOM_code);
3638: Fnd_Msg_Pub.ADD;
3639: RAISE Fnd_Api.G_EXC_ERROR;
3640: END IF;
3641: -- Ensure that the end time of the last period does not exceed user given end time
3642: IF (l_temp_index > 1 AND (x_per_rsrc_tbl(l_temp_index - 1).PERIOD_END > l_temp_end)) THEN
3643: x_per_rsrc_tbl(l_temp_index - 1).PERIOD_END := l_temp_end;
3810: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3811: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3812: Fnd_Msg_Pub.ADD;
3813: CLOSE l_get_visit_name_csr;
3814: RAISE Fnd_Api.G_EXC_ERROR;
3815: END IF;
3816: CLOSE l_get_visit_name_csr;
3817: l_prev_visit_id := l_visit_id;
3818: END IF;
3829: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3830: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3831: Fnd_Msg_Pub.ADD;
3832: CLOSE l_get_task_name_csr;
3833: RAISE Fnd_Api.G_EXC_ERROR;
3834: END IF;
3835: CLOSE l_get_task_name_csr;
3836: x_task_req_tbl(l_new_index).VISIT_TASK_NAME := l_task_name;
3837: x_task_req_tbl(l_new_index).TASK_TYPE_CODE := l_task_type_code;
3870: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ID_INVALID');
3871: Fnd_Message.Set_Token('VISIT_ID', l_visit_id);
3872: Fnd_Msg_Pub.ADD;
3873: CLOSE l_get_visit_name_csr;
3874: RAISE Fnd_Api.G_EXC_ERROR;
3875: END IF;
3876: CLOSE l_get_visit_name_csr;
3877: END IF;
3878: x_task_req_tbl(l_new_index).VISIT_NAME := l_prev_visit_name;
3884: Fnd_Message.Set_Name('AHL','AHL_LTP_TASK_ID_INVALID');
3885: Fnd_Message.Set_Token('TASK_ID', l_task_id);
3886: Fnd_Msg_Pub.ADD;
3887: CLOSE l_get_task_name_csr;
3888: RAISE Fnd_Api.G_EXC_ERROR;
3889: END IF;
3890: CLOSE l_get_task_name_csr;
3891: x_task_req_tbl(l_new_index).VISIT_TASK_NAME := l_task_name;
3892: x_task_req_tbl(l_new_index).TASK_TYPE_CODE := l_task_type_code;
3938: Fnd_Message.Set_Token('ROUTE_ID', p_route_id);
3939: Fnd_Msg_Pub.ADD;
3940: CLOSE l_route_time_span_csr;
3941: Ahl_Debug_Pub.debug('Invalid route Id: ' || x_duration, 'LTP: Get_Route_Duration');
3942: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3943: END IF;
3944: CLOSE l_route_time_span_csr;
3945:
3946: CLOSE l_route_csr;
4099: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4100: Fnd_Msg_Pub.ADD;
4101: CLOSE l_dept_shift_csr;
4102: Ahl_Debug_Pub.debug('No shift/calendar code for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4103: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4104: END IF;
4105: CLOSE l_dept_shift_csr;
4106: -- dbms_output.put_line('G_CALENDAR_CODE := ' || G_CALENDAR_CODE);
4107: -- dbms_output.put_line('G_SHIFT_NUM := ' || G_SHIFT_NUM);
4114: Fnd_Message.Set_Token('CAL_CODE', G_CALENDAR_CODE);
4115: Fnd_Msg_Pub.ADD;
4116: CLOSE l_calendar_csr;
4117: Ahl_Debug_Pub.debug('No BOM_CALENDARS entry for calendar code: ' || G_CALENDAR_CODE, 'LTP: Init_Time_Vars');
4118: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4119: END IF;
4120: CLOSE l_calendar_csr;
4121: -- Truncate the date values
4122: G_CAL_START := TRUNC(G_CAL_START);
4132: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4133: Fnd_Msg_Pub.ADD;
4134: CLOSE l_shift_times_csr;
4135: Ahl_Debug_Pub.debug('No shift start and end times for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4136: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4137: END IF;
4138: CLOSE l_shift_times_csr;
4139: -- dbms_output.put_line('G_SHIFT_START := ' || G_SHIFT_START);
4140: -- dbms_output.put_line('G_SHIFT_END := ' || G_SHIFT_END);
4153: Fnd_Message.Set_Token('DEPT_ID', l_dept_name);
4154: Fnd_Msg_Pub.ADD;
4155: CLOSE l_workday_pattern_csr;
4156: Ahl_Debug_Pub.debug('No Work Day Pattern for department: ' || p_department_id, 'LTP: Init_Time_Vars');
4157: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4158: END IF;
4159: CLOSE l_workday_pattern_csr;
4160:
4161: -- Get the Exception (Holidays) days
4172: IF (p_visit_start_date IS NULL) THEN
4173: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_NULL');
4174: Fnd_Msg_Pub.ADD;
4175: Ahl_Debug_Pub.debug('Visit start date is null', 'LTP: Init_Time_Vars');
4176: RAISE Fnd_Api.G_EXC_ERROR;
4177: ELSIF (p_visit_start_date < G_CAL_START OR p_visit_start_date > G_CAL_END) THEN
4178: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_INVALID');
4179: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4180: Fnd_Msg_Pub.ADD;
4178: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_DATE_INVALID');
4179: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4180: Fnd_Msg_Pub.ADD;
4181: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is outside calendar range', 'LTP: Init_Time_Vars');
4182: RAISE Fnd_Api.G_EXC_ERROR;
4183: END IF;
4184:
4185: --Code fixed by shbhanda on 21st Oct'02
4186: -- Ensure that the visit start date falls on a working day
4209: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4210: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4211: Fnd_Msg_Pub.ADD;
4212: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4213: RAISE Fnd_Api.G_EXC_ERROR;
4214: ELSE
4215: -- Not Day Off: Check if Holiday
4216: IF(IS_DEPT_Holiday(l_visit_start_date)) THEN
4217: -- Holiday
4218: Fnd_Message.Set_Name('AHL','AHL_LTP_VISIT_ST_WDATE_INVALID');
4219: Fnd_Message.Set_Token('VISIT_ST_DATE', p_visit_start_date);
4220: Fnd_Msg_Pub.ADD;
4221: Ahl_Debug_Pub.debug('Visit start date (' || p_visit_start_date || ') is not a working day', 'LTP: Init_Time_Vars');
4222: RAISE Fnd_Api.G_EXC_ERROR;
4223: END IF;
4224: END IF;*/
4225:
4226:
4274: IF(l_curr_day > G_CAL_END) THEN
4275: Fnd_Message.Set_Name('AHL','AHL_LTP_INSUFFICIENT_CAL_RANGE');
4276: Fnd_Msg_Pub.ADD;
4277: Ahl_Debug_Pub.debug('Computed date (' || l_curr_day || ') is outside calendar range', 'LTP: Init_Time_Vars');
4278: RAISE Fnd_Api.G_EXC_ERROR;
4279: END IF;
4280: */
4281: -- yazhou 24Aug2005 ends
4282:
4365: Fnd_Message.Set_Token('RSRC_ID', p_resource_id);
4366: Fnd_Msg_Pub.ADD;
4367: CLOSE l_shift_details_csr;
4368: Ahl_Debug_Pub.debug('No Shift for Resource: ' || p_resource_id, 'LTP: Resource_In_Duty');
4369: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4370: END IF;
4371: CLOSE l_shift_details_csr;
4372:
4373: l_start_second := (p_start_date_time - TRUNC(p_start_date_time)) * G_SECS_IN_DAY;