105: --------------------Initialize ----------------------------------
106: -- Standard Start of API savepoint
107: SAVEPOINT check_availability;
108: -- Initialize API return status to success
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110: -- Initialize message list if p_init_msg_list is set to TRUE.
111: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
112: l_api_version,
113: l_api_name,G_PKG_NAME)
107: SAVEPOINT check_availability;
108: -- Initialize API return status to success
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110: -- Initialize message list if p_init_msg_list is set to TRUE.
111: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
112: l_api_version,
113: l_api_name,G_PKG_NAME)
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
112: l_api_version,
113: l_api_name,G_PKG_NAME)
114: THEN
115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116: END IF;
117: --
118:
119: -- Get Session ID
133: IF Instance_Id_Cur%NOTFOUND THEN
134: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_ATP_INS_ENABLE' );
135: FND_MSG_PUB.add;
136: CLOSE Instance_Id_Cur;
137: RAISE FND_API.G_EXC_ERROR;
138: END IF;
139: CLOSE Instance_Id_Cur;
140: --
141: IF (l_log_statement >= l_log_current_level) THEN
225: 'After calling Mrp Atp Pub.Call_ATP. Return Status : '|| l_return_status);
226: END IF;
227:
228: -- Check Error Message stack.
229: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
230: l_msg_count := FND_MSG_PUB.count_msg;
231: IF l_msg_count > 0 THEN
232: RAISE FND_API.G_EXC_ERROR;
233: END IF;
228: -- Check Error Message stack.
229: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
230: l_msg_count := FND_MSG_PUB.count_msg;
231: IF l_msg_count > 0 THEN
232: RAISE FND_API.G_EXC_ERROR;
233: END IF;
234: END IF;
235:
236: MSC_ATP_GLOBAL.Extend_ATP(x_atp_table, x_return_status);
270: L_DEBUG_KEY,
271: 'Pub Message : '||x_atp_table.Message(1));
272: END IF;
273:
274: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
275:
276: MSC_ATP_GLOBAL.Extend_ATP(x_atp_table, l_return_status);
277:
278: x_available_date := to_char(x_atp_table.Ship_Date(1));
343: 'Derived from Mrp Atp Pub Available Quantity : '||x_available_qty);
344: END IF;
345:
346: -- Check Error Message stack.
347: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
348: l_msg_count := FND_MSG_PUB.count_msg;
349: IF l_msg_count > 0 THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
346: -- Check Error Message stack.
347: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
348: l_msg_count := FND_MSG_PUB.count_msg;
349: IF l_msg_count > 0 THEN
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352: END IF;
353:
354: IF (l_log_procedure >= l_log_current_level) THEN
357: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
358: END IF;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: ROLLBACK TO check_availability;
363: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
365: p_count => l_msg_count,
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: ROLLBACK TO check_availability;
363: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
365: p_count => l_msg_count,
366: p_data => l_msg_data);
367:
360: EXCEPTION
361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
362: ROLLBACK TO check_availability;
363: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
364: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
365: p_count => l_msg_count,
366: p_data => l_msg_data);
367:
368: WHEN FND_API.G_EXC_ERROR THEN
364: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
365: p_count => l_msg_count,
366: p_data => l_msg_data);
367:
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO check_availability;
370: X_return_status := FND_API.G_RET_STS_ERROR;
371: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
372: p_count => l_msg_count,
366: p_data => l_msg_data);
367:
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO check_availability;
370: X_return_status := FND_API.G_RET_STS_ERROR;
371: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
372: p_count => l_msg_count,
373: p_data => l_msg_data);
374:
367:
368: WHEN FND_API.G_EXC_ERROR THEN
369: ROLLBACK TO check_availability;
370: X_return_status := FND_API.G_RET_STS_ERROR;
371: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
372: p_count => l_msg_count,
373: p_data => l_msg_data);
374:
375: WHEN OTHERS THEN
373: p_data => l_msg_data);
374:
375: WHEN OTHERS THEN
376: ROLLBACK TO check_availability;
377: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
379: THEN
380: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
381: p_procedure_name => 'CHECK_AVAILABILITY',
380: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
381: p_procedure_name => 'CHECK_AVAILABILITY',
382: p_error_text => SUBSTR(SQLERRM,1,240));
383: END IF;
384: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
385: p_count => l_msg_count,
386: p_data => l_msg_data);
387:
388: END Check_Availability;
395: -- Parameters :
396: --
397: -- Standard IN Parameters :
398: -- p_api_version IN NUMBER Required
399: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
400: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
401: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
402: -- Based on this flag, the API will set the default attributes.
403: -- p_module_type In VARCHAR2 Default NULL
396: --
397: -- Standard IN Parameters :
398: -- p_api_version IN NUMBER Required
399: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
400: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
401: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
402: -- Based on this flag, the API will set the default attributes.
403: -- p_module_type In VARCHAR2 Default NULL
404: -- This will be null.
397: -- Standard IN Parameters :
398: -- p_api_version IN NUMBER Required
399: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
400: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
401: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
402: -- Based on this flag, the API will set the default attributes.
403: -- p_module_type In VARCHAR2 Default NULL
404: -- This will be null.
405: -- Standard OUT Parameters :
412: -- List of item attributes associated to visit task
413: --
414: PROCEDURE Check_Material_Aval (
415: p_api_version IN NUMBER,
416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
417: p_commit IN VARCHAR2 := FND_API.g_false,
418: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
419: p_module_type IN VARCHAR2 := 'JSP',
420: p_x_material_avl_tbl IN OUT NOCOPY ahl_ltp_matrl_aval_pub.Material_Availability_Tbl,
413: --
414: PROCEDURE Check_Material_Aval (
415: p_api_version IN NUMBER,
416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
417: p_commit IN VARCHAR2 := FND_API.g_false,
418: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
419: p_module_type IN VARCHAR2 := 'JSP',
420: p_x_material_avl_tbl IN OUT NOCOPY ahl_ltp_matrl_aval_pub.Material_Availability_Tbl,
421: x_return_status OUT NOCOPY VARCHAR2,
414: PROCEDURE Check_Material_Aval (
415: p_api_version IN NUMBER,
416: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
417: p_commit IN VARCHAR2 := FND_API.g_false,
418: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
419: p_module_type IN VARCHAR2 := 'JSP',
420: p_x_material_avl_tbl IN OUT NOCOPY ahl_ltp_matrl_aval_pub.Material_Availability_Tbl,
421: x_return_status OUT NOCOPY VARCHAR2,
422: x_msg_count OUT NOCOPY NUMBER,
468: --------------------Initialize ----------------------------------
469: -- Standard Start of API savepoint
470: SAVEPOINT check_material_aval;
471: -- Standard call to check for call compatibility.
472: IF FND_API.to_boolean(p_init_msg_list)
473: THEN
474: FND_MSG_PUB.initialize;
475: END IF;
476: -- Initialize API return status to success
473: THEN
474: FND_MSG_PUB.initialize;
475: END IF;
476: -- Initialize API return status to success
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478: -- Initialize message list if p_init_msg_list is set to TRUE.
479: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
480: p_api_version,
481: l_api_name,G_PKG_NAME)
475: END IF;
476: -- Initialize API return status to success
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478: -- Initialize message list if p_init_msg_list is set to TRUE.
479: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
480: p_api_version,
481: l_api_name,G_PKG_NAME)
482: THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
480: p_api_version,
481: l_api_name,G_PKG_NAME)
482: THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485:
486: IF (l_log_statement >= l_log_current_level)THEN
487: fnd_log.string(l_log_statement,
496: IF Check_Sch_Visit_cur%FOUND THEN
497: Fnd_Message.SET_NAME('AHL','AHL_VISIT_UNSCHEDULED');
498: Fnd_Msg_Pub.ADD;
499: CLOSE Check_Sch_Visit_cur;
500: RAISE Fnd_Api.G_EXC_ERROR;
501: END IF;
502: CLOSE Check_Sch_Visit_cur;
503: --
504: IF (l_log_statement >= l_log_current_level)THEN
525: IF Schedule_Matrl_cur%NOTFOUND THEN
526: Fnd_Message.SET_NAME('AHL','AHL_LTP_ORG_ID_NOT_EXISTS');
527: Fnd_Msg_Pub.ADD;
528: CLOSE Schedule_Matrl_cur;
529: RAISE Fnd_Api.G_EXC_ERROR;
530: END IF;
531: CLOSE Schedule_Matrl_cur;
532:
533: --Added by sowsubra - starts
533: --Added by sowsubra - starts
534: IF l_Schedule_Matrl_Rec.status = 'IN-SERVICE' THEN
535: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
536: Fnd_Msg_Pub.ADD;
537: RAISE Fnd_Api.G_EXC_ERROR;
538: END IF;
539: --Added by sowsubra - ends
540:
541: --Get Item description
571: 'After calling Check Availability, Return Status : '|| l_return_status);
572: END IF;
573:
574: -- Check Error Message stack.
575: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
576: l_msg_count := FND_MSG_PUB.count_msg;
577: IF l_msg_count > 0 THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
574: -- Check Error Message stack.
575: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
576: l_msg_count := FND_MSG_PUB.count_msg;
577: IF l_msg_count > 0 THEN
578: RAISE FND_API.G_EXC_ERROR;
579: END IF;
580: END IF;
581: --Assign derived values
582: p_x_material_avl_tbl(i).quantity_available:= l_available_quantity;
614: END LOOP;
615: END IF;
616:
617: -- Check Error Message stack.
618: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
619: l_msg_count := FND_MSG_PUB.count_msg;
620: IF l_msg_count > 0 THEN
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
617: -- Check Error Message stack.
618: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
619: l_msg_count := FND_MSG_PUB.count_msg;
620: IF l_msg_count > 0 THEN
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623: END IF;
624:
625: IF (l_log_procedure >= l_log_current_level) THEN
628: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
629: END IF;
630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO check_material_aval;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => l_msg_count,
630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO check_material_aval;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => l_msg_count,
637: p_data => l_msg_data);
638:
631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO check_material_aval;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => l_msg_count,
637: p_data => l_msg_data);
638:
639: WHEN FND_API.G_EXC_ERROR THEN
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => l_msg_count,
637: p_data => l_msg_data);
638:
639: WHEN FND_API.G_EXC_ERROR THEN
640: ROLLBACK TO check_material_aval;
641: X_return_status := FND_API.G_RET_STS_ERROR;
642: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
643: p_count => l_msg_count,
637: p_data => l_msg_data);
638:
639: WHEN FND_API.G_EXC_ERROR THEN
640: ROLLBACK TO check_material_aval;
641: X_return_status := FND_API.G_RET_STS_ERROR;
642: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
643: p_count => l_msg_count,
644: p_data => l_msg_data);
645:
638:
639: WHEN FND_API.G_EXC_ERROR THEN
640: ROLLBACK TO check_material_aval;
641: X_return_status := FND_API.G_RET_STS_ERROR;
642: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
643: p_count => l_msg_count,
644: p_data => l_msg_data);
645:
646: WHEN OTHERS THEN
644: p_data => l_msg_data);
645:
646: WHEN OTHERS THEN
647: ROLLBACK TO check_material_aval;
648: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
650: THEN
651: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
652: p_procedure_name => 'CHECK_MATERIAL_AVAL',
651: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
652: p_procedure_name => 'CHECK_MATERIAL_AVAL',
653: p_error_text => SUBSTR(SQLERRM,1,240));
654: END IF;
655: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
656: p_count => l_msg_count,
657: p_data => l_msg_data);
658:
659: END Check_Material_Aval;
667: -- Parameters :
668: --
669: -- Standard IN Parameters :
670: -- p_api_version IN NUMBER Required
671: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
672: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
673: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
674: -- Based on this flag, the API will set the default attributes.
675: -- p_module_type In VARCHAR2 Default NULL
668: --
669: -- Standard IN Parameters :
670: -- p_api_version IN NUMBER Required
671: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
672: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
673: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
674: -- Based on this flag, the API will set the default attributes.
675: -- p_module_type In VARCHAR2 Default NULL
676: -- This will be null.
669: -- Standard IN Parameters :
670: -- p_api_version IN NUMBER Required
671: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
672: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
673: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
674: -- Based on this flag, the API will set the default attributes.
675: -- p_module_type In VARCHAR2 Default NULL
676: -- This will be null.
677: -- Standard OUT Parameters :
684: -- x_task_req_matrl_tbl OUT NOCOPY Task_Req_Matrl_Tbl,
685: --
686: PROCEDURE Get_Visit_Task_Materials (
687: p_api_version IN NUMBER,
688: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
689: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
690: p_visit_id IN NUMBER,
691: x_task_req_matrl_tbl OUT NOCOPY ahl_ltp_matrl_aval_pub.task_req_matrl_tbl,
692: x_return_status OUT NOCOPY VARCHAR2,
685: --
686: PROCEDURE Get_Visit_Task_Materials (
687: p_api_version IN NUMBER,
688: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
689: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
690: p_visit_id IN NUMBER,
691: x_task_req_matrl_tbl OUT NOCOPY ahl_ltp_matrl_aval_pub.task_req_matrl_tbl,
692: x_return_status OUT NOCOPY VARCHAR2,
693: x_msg_count OUT NOCOPY NUMBER,
737: END IF;
738: -- Standard Start of API savepoint
739: SAVEPOINT Get_Visit_Task_Materials;
740: -- Initialize message list if p_init_msg_list is set to TRUE.
741: IF FND_API.to_boolean(p_init_msg_list) THEN
742: FND_MSG_PUB.initialize;
743: END IF;
744: -- Initialize API return status to success
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
741: IF FND_API.to_boolean(p_init_msg_list) THEN
742: FND_MSG_PUB.initialize;
743: END IF;
744: -- Initialize API return status to success
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: -- Standard call to check for call compatibility.
747: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
748: l_api_version,
749: l_api_name,G_PKG_NAME)
743: END IF;
744: -- Initialize API return status to success
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746: -- Standard call to check for call compatibility.
747: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
748: l_api_version,
749: l_api_name,G_PKG_NAME)
750: THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
748: l_api_version,
749: l_api_name,G_PKG_NAME)
750: THEN
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: END IF;
753:
754: --
755: IF p_visit_id IS NOT NULL THEN
779: CLOSE Visit_Task_Matrl_Cur;
780: END IF;
781:
782: -- Check Error Message stack.
783: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
784: l_msg_count := FND_MSG_PUB.count_msg;
785: IF l_msg_count > 0 THEN
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
782: -- Check Error Message stack.
783: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
784: l_msg_count := FND_MSG_PUB.count_msg;
785: IF l_msg_count > 0 THEN
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788: END IF;
789:
790: IF (l_log_procedure >= l_log_current_level) THEN
793: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
794: END IF;
795:
796: EXCEPTION
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO Get_Visit_Task_Materials;
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
801: p_count => l_msg_count,
795:
796: EXCEPTION
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO Get_Visit_Task_Materials;
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
801: p_count => l_msg_count,
802: p_data => l_msg_data);
803: WHEN FND_API.G_EXC_ERROR THEN
796: EXCEPTION
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO Get_Visit_Task_Materials;
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
801: p_count => l_msg_count,
802: p_data => l_msg_data);
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO Get_Visit_Task_Materials;
799: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
801: p_count => l_msg_count,
802: p_data => l_msg_data);
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO Get_Visit_Task_Materials;
805: X_return_status := FND_API.G_RET_STS_ERROR;
806: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
807: p_count => l_msg_count,
801: p_count => l_msg_count,
802: p_data => l_msg_data);
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO Get_Visit_Task_Materials;
805: X_return_status := FND_API.G_RET_STS_ERROR;
806: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
807: p_count => l_msg_count,
808: p_data => l_msg_data);
809: WHEN OTHERS THEN
802: p_data => l_msg_data);
803: WHEN FND_API.G_EXC_ERROR THEN
804: ROLLBACK TO Get_Visit_Task_Materials;
805: X_return_status := FND_API.G_RET_STS_ERROR;
806: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
807: p_count => l_msg_count,
808: p_data => l_msg_data);
809: WHEN OTHERS THEN
810: ROLLBACK TO Get_Visit_Task_Materials;
807: p_count => l_msg_count,
808: p_data => l_msg_data);
809: WHEN OTHERS THEN
810: ROLLBACK TO Get_Visit_Task_Materials;
811: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
813: THEN
814: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
815: p_procedure_name => 'GET_VISIT_TASK_MATERIALS',
814: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
815: p_procedure_name => 'GET_VISIT_TASK_MATERIALS',
816: p_error_text => SUBSTR(SQLERRM,1,240));
817: END IF;
818: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
819: p_count => l_msg_count,
820: p_data => l_msg_data);
821: END Get_Visit_Task_Materials;
822: --
834: L_DEBUG_KEY ||'.begin',
835: 'At the start of PL SQL procedure.');
836: END IF;
837:
838: x_return_status := FND_API.G_RET_STS_SUCCESS;
839: --
840: p_atp_table.Row_Id.Extend;
841: P_ATP_TABLE.INSTANCE_ID.EXTEND;
842: P_ATP_TABLE.INVENTORY_ITEM_ID.EXTEND;
900: -- Parameters :
901: --
902: -- Standard IN Parameters :
903: -- p_api_version IN NUMBER Required
904: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
905: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
906: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
907: -- Based on this flag, the API will set the default attributes.
908: -- p_module_type In VARCHAR2 Default NULL
901: --
902: -- Standard IN Parameters :
903: -- p_api_version IN NUMBER Required
904: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
905: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
906: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
907: -- Based on this flag, the API will set the default attributes.
908: -- p_module_type In VARCHAR2 Default NULL
909: -- This will be null.
902: -- Standard IN Parameters :
903: -- p_api_version IN NUMBER Required
904: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
905: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
906: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
907: -- Based on this flag, the API will set the default attributes.
908: -- p_module_type In VARCHAR2 Default NULL
909: -- This will be null.
910: -- Standard OUT Parameters :
917: -- List of item attributes associated to visit task
918: --
919: PROCEDURE Call_ATP (
920: p_api_version IN NUMBER,
921: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
922: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
923: p_x_planned_matrl_tbl IN OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
924: x_return_status OUT NOCOPY VARCHAR2,
925: x_msg_count OUT NOCOPY NUMBER,
918: --
919: PROCEDURE Call_ATP (
920: p_api_version IN NUMBER,
921: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
922: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
923: p_x_planned_matrl_tbl IN OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
924: x_return_status OUT NOCOPY VARCHAR2,
925: x_msg_count OUT NOCOPY NUMBER,
926: x_msg_data OUT NOCOPY VARCHAR2)
1006: END IF;
1007: -- Standard Start of API savepoint
1008: SAVEPOINT Call_ATP;
1009: -- Initialize message list if p_init_msg_list is set to TRUE.
1010: IF FND_API.to_boolean(p_init_msg_list) THEN
1011: FND_MSG_PUB.initialize;
1012: END IF;
1013: -- Initialize API return status to success
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1010: IF FND_API.to_boolean(p_init_msg_list) THEN
1011: FND_MSG_PUB.initialize;
1012: END IF;
1013: -- Initialize API return status to success
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015: -- Standard call to check for call compatibility.
1016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1017: l_api_version,
1018: l_api_name,G_PKG_NAME)
1012: END IF;
1013: -- Initialize API return status to success
1014: x_return_status := FND_API.G_RET_STS_SUCCESS;
1015: -- Standard call to check for call compatibility.
1016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1017: l_api_version,
1018: l_api_name,G_PKG_NAME)
1019: THEN
1020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1017: l_api_version,
1018: l_api_name,G_PKG_NAME)
1019: THEN
1020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1021: END IF;
1022:
1023: --Get session id
1024: SELECT MRP_ATP_SCHEDULE_TEMP_S.NEXTVAL
1037: IF Instance_Id_Cur%NOTFOUND THEN
1038: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_ATP_INS_ENABLE' );
1039: FND_MSG_PUB.add;
1040: CLOSE Instance_Id_Cur;
1041: RAISE FND_API.G_EXC_ERROR;
1042: END IF;
1043: --
1044: CLOSE Instance_Id_Cur;
1045:
1080: --Added by sowsubra - start
1081: IF l_Planned_Order_Rec.status = 'IN-SERVICE' THEN
1082: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
1083: Fnd_Msg_Pub.ADD;
1084: RAISE Fnd_Api.G_EXC_ERROR;
1085: END IF;
1086: --Added by sowsubra - end
1087:
1088: --Get Concatenated visit number, task number
1161: 'After calling Mrp Atp Pub.Call_ATP. Return Status : '|| x_return_status);
1162: END IF;
1163:
1164: -- Check Error Message stack.
1165: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1166: l_msg_count := FND_MSG_PUB.count_msg;
1167: IF l_msg_count > 0 THEN
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1164: -- Check Error Message stack.
1165: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1166: l_msg_count := FND_MSG_PUB.count_msg;
1167: IF l_msg_count > 0 THEN
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1170: END IF;
1171:
1172: --Check for error code
1256: END LOOP;
1257: END IF;
1258:
1259: -- Check Error Message stack.
1260: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1261: l_msg_count := FND_MSG_PUB.count_msg;
1262: IF l_msg_count > 0 THEN
1263: RAISE FND_API.G_EXC_ERROR;
1264: END IF;
1259: -- Check Error Message stack.
1260: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1261: l_msg_count := FND_MSG_PUB.count_msg;
1262: IF l_msg_count > 0 THEN
1263: RAISE FND_API.G_EXC_ERROR;
1264: END IF;
1265: END IF;
1266: --Need to fix error messages
1267:
1270: L_DEBUG_KEY ||'.end',
1271: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1272: END IF;
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: ROLLBACK TO Call_ATP;
1276: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1278: p_count => l_msg_count,
1272: END IF;
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: ROLLBACK TO Call_ATP;
1276: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1278: p_count => l_msg_count,
1279: p_data => l_msg_data);
1280:
1273: EXCEPTION
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: ROLLBACK TO Call_ATP;
1276: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1277: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1278: p_count => l_msg_count,
1279: p_data => l_msg_data);
1280:
1281: WHEN FND_API.G_EXC_ERROR THEN
1277: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1278: p_count => l_msg_count,
1279: p_data => l_msg_data);
1280:
1281: WHEN FND_API.G_EXC_ERROR THEN
1282: ROLLBACK TO Call_ATP;
1283: X_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1285: p_count => l_msg_count,
1279: p_data => l_msg_data);
1280:
1281: WHEN FND_API.G_EXC_ERROR THEN
1282: ROLLBACK TO Call_ATP;
1283: X_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1285: p_count => l_msg_count,
1286: p_data => l_msg_data);
1287:
1280:
1281: WHEN FND_API.G_EXC_ERROR THEN
1282: ROLLBACK TO Call_ATP;
1283: X_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1285: p_count => l_msg_count,
1286: p_data => l_msg_data);
1287:
1288: WHEN OTHERS THEN
1286: p_data => l_msg_data);
1287:
1288: WHEN OTHERS THEN
1289: ROLLBACK TO Call_ATP;
1290: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1292: THEN
1293: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1294: p_procedure_name => 'CALL_ATP',
1293: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1294: p_procedure_name => 'CALL_ATP',
1295: p_error_text => SUBSTR(SQLERRM,1,240));
1296: END IF;
1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1298: p_count => l_msg_count,
1299: p_data => l_msg_data);
1300:
1301: END Call_ATP;
1309: -- Parameters :
1310: --
1311: -- Standard IN Parameters :
1312: -- p_api_version IN NUMBER Required
1313: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1314: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1315: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1316: -- Based on this flag, the API will set the default attributes.
1317: -- p_module_type In VARCHAR2 Default NULL
1310: --
1311: -- Standard IN Parameters :
1312: -- p_api_version IN NUMBER Required
1313: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1314: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1315: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1316: -- Based on this flag, the API will set the default attributes.
1317: -- p_module_type In VARCHAR2 Default NULL
1318: -- This will be null.
1311: -- Standard IN Parameters :
1312: -- p_api_version IN NUMBER Required
1313: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1314: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1315: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1316: -- Based on this flag, the API will set the default attributes.
1317: -- p_module_type In VARCHAR2 Default NULL
1318: -- This will be null.
1319: -- Standard OUT Parameters :
1326: -- List of item attributes associated to visit task
1327: --
1328: PROCEDURE Schedule_Planned_Matrls (
1329: p_api_version IN NUMBER,
1330: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1331: p_commit IN VARCHAR2 := FND_API.g_false,
1332: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1333: p_x_planned_matrl_tbl IN OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1334: x_return_status OUT NOCOPY VARCHAR2,
1327: --
1328: PROCEDURE Schedule_Planned_Matrls (
1329: p_api_version IN NUMBER,
1330: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1331: p_commit IN VARCHAR2 := FND_API.g_false,
1332: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1333: p_x_planned_matrl_tbl IN OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1334: x_return_status OUT NOCOPY VARCHAR2,
1335: x_msg_count OUT NOCOPY NUMBER,
1328: PROCEDURE Schedule_Planned_Matrls (
1329: p_api_version IN NUMBER,
1330: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1331: p_commit IN VARCHAR2 := FND_API.g_false,
1332: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1333: p_x_planned_matrl_tbl IN OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1334: x_return_status OUT NOCOPY VARCHAR2,
1335: x_msg_count OUT NOCOPY NUMBER,
1336: x_msg_data OUT NOCOPY VARCHAR2)
1389: END IF;
1390: -- Standard Start of API savepoint
1391: SAVEPOINT schedule_planned_matrls;
1392: -- Initialize message list if p_init_msg_list is set to TRUE.
1393: IF FND_API.to_boolean(p_init_msg_list) THEN
1394: FND_MSG_PUB.initialize;
1395: END IF;
1396: -- Initialize API return status to success
1397: x_return_status := FND_API.G_RET_STS_SUCCESS;
1393: IF FND_API.to_boolean(p_init_msg_list) THEN
1394: FND_MSG_PUB.initialize;
1395: END IF;
1396: -- Initialize API return status to success
1397: x_return_status := FND_API.G_RET_STS_SUCCESS;
1398: -- Standard call to check for call compatibility.
1399: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1400: l_api_version,
1401: l_api_name,G_PKG_NAME)
1395: END IF;
1396: -- Initialize API return status to success
1397: x_return_status := FND_API.G_RET_STS_SUCCESS;
1398: -- Standard call to check for call compatibility.
1399: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1400: l_api_version,
1401: l_api_name,G_PKG_NAME)
1402: THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1400: l_api_version,
1401: l_api_name,G_PKG_NAME)
1402: THEN
1403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1404: END IF;
1405:
1406: --
1407: IF l_planned_matrl_tbl.COUNT > 0 THEN
1422: --Added by sowsubra - starts
1423: IF l_planned_matrl_tbl(i).mat_status = 'IN-SERVICE' THEN
1424: Fnd_Message.SET_NAME('AHL','AHL_MAT_STS_INSERVICE');
1425: Fnd_Msg_Pub.ADD;
1426: RAISE Fnd_Api.G_EXC_ERROR;
1427: END IF;
1428: --Added by sowsubra - ends
1429: END LOOP;
1430: END IF;
1472: ', Returned Final Records : '||l_temp_planned_matrl_tbl.COUNT);
1473: END IF;
1474:
1475: -- Check Error Message stack.
1476: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1477: l_msg_count := FND_MSG_PUB.count_msg;
1478: IF l_msg_count > 0 THEN
1479: RAISE FND_API.G_EXC_ERROR;
1480: END IF;
1475: -- Check Error Message stack.
1476: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1477: l_msg_count := FND_MSG_PUB.count_msg;
1478: IF l_msg_count > 0 THEN
1479: RAISE FND_API.G_EXC_ERROR;
1480: END IF;
1481: END IF;
1482:
1483: --Assign out parameter
1527: END LOOP;
1528: END IF;
1529:
1530: -- Standard check of p_commit
1531: IF FND_API.TO_BOOLEAN(p_commit) THEN
1532: COMMIT WORK;
1533: END IF;
1534:
1535: IF (l_log_procedure >= l_log_current_level) THEN
1538: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1539: END IF;
1540:
1541: EXCEPTION
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO Schedule_Planned_Matrls;
1544: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1546: p_count => l_msg_count,
1540:
1541: EXCEPTION
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO Schedule_Planned_Matrls;
1544: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1546: p_count => l_msg_count,
1547: p_data => l_msg_data);
1548:
1541: EXCEPTION
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO Schedule_Planned_Matrls;
1544: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1546: p_count => l_msg_count,
1547: p_data => l_msg_data);
1548:
1549: WHEN FND_API.G_EXC_ERROR THEN
1545: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1546: p_count => l_msg_count,
1547: p_data => l_msg_data);
1548:
1549: WHEN FND_API.G_EXC_ERROR THEN
1550: ROLLBACK TO Schedule_Planned_Matrls;
1551: X_return_status := FND_API.G_RET_STS_ERROR;
1552: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1553: p_count => l_msg_count,
1547: p_data => l_msg_data);
1548:
1549: WHEN FND_API.G_EXC_ERROR THEN
1550: ROLLBACK TO Schedule_Planned_Matrls;
1551: X_return_status := FND_API.G_RET_STS_ERROR;
1552: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1553: p_count => l_msg_count,
1554: p_data => l_msg_data);
1555:
1548:
1549: WHEN FND_API.G_EXC_ERROR THEN
1550: ROLLBACK TO Schedule_Planned_Matrls;
1551: X_return_status := FND_API.G_RET_STS_ERROR;
1552: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1553: p_count => l_msg_count,
1554: p_data => l_msg_data);
1555:
1556: WHEN OTHERS THEN
1554: p_data => l_msg_data);
1555:
1556: WHEN OTHERS THEN
1557: ROLLBACK TO Schedule_Planned_Matrls;
1558: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1560: THEN
1561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1562: p_procedure_name => 'SCHEDULE_PLANNED_MATRLS',
1561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1562: p_procedure_name => 'SCHEDULE_PLANNED_MATRLS',
1563: p_error_text => SUBSTR(SQLERRM,1,240));
1564: END IF;
1565: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1566: p_count => l_msg_count,
1567: p_data => l_msg_data);
1568:
1569: END Schedule_Planned_Matrls;
1577: -- Parameters :
1578: --
1579: -- Standard IN Parameters :
1580: -- p_api_version IN NUMBER Required
1581: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1582: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1584: -- Based on this flag, the API will set the default attributes.
1585: -- p_module_type In VARCHAR2 Default NULL
1578: --
1579: -- Standard IN Parameters :
1580: -- p_api_version IN NUMBER Required
1581: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1582: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1584: -- Based on this flag, the API will set the default attributes.
1585: -- p_module_type In VARCHAR2 Default NULL
1586: -- This will be null.
1579: -- Standard IN Parameters :
1580: -- p_api_version IN NUMBER Required
1581: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1582: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1584: -- Based on this flag, the API will set the default attributes.
1585: -- p_module_type In VARCHAR2 Default NULL
1586: -- This will be null.
1587: -- Standard OUT Parameters :
1594: -- List of item attributes associated to visit task
1595: --
1596: PROCEDURE Schedule_All_Materials (
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1599: p_commit IN VARCHAR2 := FND_API.g_false,
1600: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1601: p_visit_id IN NUMBER,
1602: x_planned_matrl_tbl OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1595: --
1596: PROCEDURE Schedule_All_Materials (
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1599: p_commit IN VARCHAR2 := FND_API.g_false,
1600: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1601: p_visit_id IN NUMBER,
1602: x_planned_matrl_tbl OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1603: x_return_status OUT NOCOPY VARCHAR2,
1596: PROCEDURE Schedule_All_Materials (
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1599: p_commit IN VARCHAR2 := FND_API.g_false,
1600: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1601: p_visit_id IN NUMBER,
1602: x_planned_matrl_tbl OUT NOCOPY AHL_LTP_MATRL_AVAL_PUB.Planned_Matrl_Tbl,
1603: x_return_status OUT NOCOPY VARCHAR2,
1604: x_msg_count OUT NOCOPY NUMBER,
1648: END IF;
1649: -- Standard Start of API savepoint
1650: SAVEPOINT Schedule_All_Materials;
1651: -- Initialize message list if p_init_msg_list is set to TRUE.
1652: IF FND_API.to_boolean(p_init_msg_list) THEN
1653: FND_MSG_PUB.initialize;
1654: END IF;
1655: -- Initialize API return status to success
1656: x_return_status := FND_API.G_RET_STS_SUCCESS;
1652: IF FND_API.to_boolean(p_init_msg_list) THEN
1653: FND_MSG_PUB.initialize;
1654: END IF;
1655: -- Initialize API return status to success
1656: x_return_status := FND_API.G_RET_STS_SUCCESS;
1657: -- Standard call to check for call compatibility.
1658: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1659: l_api_version,
1660: l_api_name,G_PKG_NAME)
1654: END IF;
1655: -- Initialize API return status to success
1656: x_return_status := FND_API.G_RET_STS_SUCCESS;
1657: -- Standard call to check for call compatibility.
1658: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1659: l_api_version,
1660: l_api_name,G_PKG_NAME)
1661: THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1658: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1659: l_api_version,
1660: l_api_name,G_PKG_NAME)
1661: THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: END IF;
1664:
1665: IF p_visit_id IS NOT NULL THEN
1666: OPEN Get_Visit_Task_Matrl_Cur(p_visit_id);
1707: 'After calling Call ATP, Return Status : '|| l_return_status);
1708: END IF;
1709:
1710: -- Check Error Message stack.
1711: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1712: l_msg_count := FND_MSG_PUB.count_msg;
1713: IF l_msg_count > 0 THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1710: -- Check Error Message stack.
1711: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1712: l_msg_count := FND_MSG_PUB.count_msg;
1713: IF l_msg_count > 0 THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716: END IF;
1717: --Assign to out variable
1718: IF l_Planned_Matrl_Tbl.COUNT > 0 THEN
1748: END IF;
1749: END LOOP;
1750: END IF;
1751: -- Standard check of p_commit
1752: IF FND_API.TO_BOOLEAN(p_commit) THEN
1753: COMMIT WORK;
1754: END IF;
1755:
1756: IF (l_log_procedure >= l_log_current_level) THEN
1759: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1760: END IF;
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1764: ROLLBACK TO Schedule_All_Materials;
1765: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1767: p_count => l_msg_count,
1761:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1764: ROLLBACK TO Schedule_All_Materials;
1765: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1767: p_count => l_msg_count,
1768: p_data => l_msg_data);
1769:
1762: EXCEPTION
1763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1764: ROLLBACK TO Schedule_All_Materials;
1765: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1767: p_count => l_msg_count,
1768: p_data => l_msg_data);
1769:
1770: WHEN FND_API.G_EXC_ERROR THEN
1766: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1767: p_count => l_msg_count,
1768: p_data => l_msg_data);
1769:
1770: WHEN FND_API.G_EXC_ERROR THEN
1771: ROLLBACK TO Schedule_All_Materials;
1772: X_return_status := FND_API.G_RET_STS_ERROR;
1773: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1774: p_count => l_msg_count,
1768: p_data => l_msg_data);
1769:
1770: WHEN FND_API.G_EXC_ERROR THEN
1771: ROLLBACK TO Schedule_All_Materials;
1772: X_return_status := FND_API.G_RET_STS_ERROR;
1773: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1774: p_count => l_msg_count,
1775: p_data => l_msg_data);
1776:
1769:
1770: WHEN FND_API.G_EXC_ERROR THEN
1771: ROLLBACK TO Schedule_All_Materials;
1772: X_return_status := FND_API.G_RET_STS_ERROR;
1773: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1774: p_count => l_msg_count,
1775: p_data => l_msg_data);
1776:
1777: WHEN OTHERS THEN
1775: p_data => l_msg_data);
1776:
1777: WHEN OTHERS THEN
1778: ROLLBACK TO Schedule_All_Materials;
1779: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1781: THEN
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1783: p_procedure_name => 'SCHEDULE_ALL_MATERIALS',
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_MATRL_AVAL_PVT',
1783: p_procedure_name => 'SCHEDULE_ALL_MATERIALS',
1784: p_error_text => SUBSTR(SQLERRM,1,240));
1785: END IF;
1786: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1787: p_count => l_msg_count,
1788: p_data => l_msg_data);
1789:
1790: END Schedule_All_Materials;