247: l_api_name constant varchar2(30) := 'do_bulk_insert';
248: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
249: BEGIN
250:
251: x_return_status := FND_API.G_RET_STS_SUCCESS ;
252: IF (AMS_LOG_PROCEDURE_ON) THEN
253: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,l_full_name||':Start');
254: END IF;
255:
289: END IF;
290:
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: x_return_status := FND_API.g_ret_sts_error ;
295: FND_MSG_PUB.Count_AND_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data,
290:
291:
292: EXCEPTION
293: WHEN FND_API.G_EXC_ERROR THEN
294: x_return_status := FND_API.g_ret_sts_error ;
295: FND_MSG_PUB.Count_AND_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data,
298: p_encoded => FND_API.G_FALSE
294: x_return_status := FND_API.g_ret_sts_error ;
295: FND_MSG_PUB.Count_AND_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data,
298: p_encoded => FND_API.G_FALSE
299: );
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: x_return_status := FND_API.g_ret_sts_unexp_error ;
302: FND_MSG_PUB.Count_AND_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data,
298: p_encoded => FND_API.G_FALSE
299: );
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: x_return_status := FND_API.g_ret_sts_unexp_error ;
302: FND_MSG_PUB.Count_AND_Get
303: ( p_count => x_msg_count,
304: p_data => x_msg_data,
297: p_data => x_msg_data,
298: p_encoded => FND_API.G_FALSE
299: );
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: x_return_status := FND_API.g_ret_sts_unexp_error ;
302: FND_MSG_PUB.Count_AND_Get
303: ( p_count => x_msg_count,
304: p_data => x_msg_data,
305: p_encoded => FND_API.G_FALSE
301: x_return_status := FND_API.g_ret_sts_unexp_error ;
302: FND_MSG_PUB.Count_AND_Get
303: ( p_count => x_msg_count,
304: p_data => x_msg_data,
305: p_encoded => FND_API.G_FALSE
306: );
307: WHEN OTHERS THEN
308: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
309: IF (AMS_LOG_PROCEDURE_ON) THEN
304: p_data => x_msg_data,
305: p_encoded => FND_API.G_FALSE
306: );
307: WHEN OTHERS THEN
308: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
309: IF (AMS_LOG_PROCEDURE_ON) THEN
310: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,' In Others exception handling ');
311: END IF;
312:
321: END IF;
322: FND_MSG_PUB.Count_AND_Get
323: ( p_count => x_msg_count,
324: p_data => x_msg_data,
325: p_encoded => FND_API.G_FALSE
326: );
327:
328: END do_bulk_insert;
329: --- manual entries changes start: musman
328: END do_bulk_insert;
329: --- manual entries changes start: musman
330: PROCEDURE process_manual_list(
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
333: p_commit IN VARCHAR2 := FND_API.g_false,
334: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
335: x_return_status OUT NOCOPY VARCHAR2,
336: x_msg_count OUT NOCOPY NUMBER,
329: --- manual entries changes start: musman
330: PROCEDURE process_manual_list(
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
333: p_commit IN VARCHAR2 := FND_API.g_false,
334: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
335: x_return_status OUT NOCOPY VARCHAR2,
336: x_msg_count OUT NOCOPY NUMBER,
337: x_msg_data OUT NOCOPY VARCHAR2,
330: PROCEDURE process_manual_list(
331: p_api_version IN NUMBER,
332: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
333: p_commit IN VARCHAR2 := FND_API.g_false,
334: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
335: x_return_status OUT NOCOPY VARCHAR2,
336: x_msg_count OUT NOCOPY NUMBER,
337: x_msg_data OUT NOCOPY VARCHAR2,
338: p_list_header_id in NUMBER,
435:
436: SAVEPOINT process_manual_list;
437: g_list_header_id := p_list_header_id;
438:
439: IF FND_API.to_boolean(p_init_msg_list) THEN
440: FND_MSG_PUB.initialize;
441: END IF;
442:
443: IF (AMS_LOG_PROCEDURE_ON) THEN
444: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,l_full_name||':Start');
445: END IF;
446:
447:
448: IF NOT FND_API.compatible_api_call
449: (
450: l_api_version,
451: p_api_version,
452: l_api_name,
451: p_api_version,
452: l_api_name,
453: g_pkg_name
454: )THEN
455: RAISE FND_API.g_exc_unexpected_error;
456: END IF;
457: x_return_status := FND_API.G_RET_STS_SUCCESS;
458:
459: update ams_list_entries
453: g_pkg_name
454: )THEN
455: RAISE FND_API.g_exc_unexpected_error;
456: END IF;
457: x_return_status := FND_API.G_RET_STS_SUCCESS;
458:
459: update ams_list_entries
460: set marked_flag = null
461: where list_header_id = p_list_header_id ;
698:
699:
700: END IF;
701:
702: IF x_return_status = fnd_api.g_ret_sts_error THEN
703: RAISE FND_API.g_exc_error;
704: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
705: RAISE FND_API.g_exc_unexpected_error;
706: END IF;
699:
700: END IF;
701:
702: IF x_return_status = fnd_api.g_ret_sts_error THEN
703: RAISE FND_API.g_exc_error;
704: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
705: RAISE FND_API.g_exc_unexpected_error;
706: END IF;
707: IF p_commit = FND_API.g_true then
700: END IF;
701:
702: IF x_return_status = fnd_api.g_ret_sts_error THEN
703: RAISE FND_API.g_exc_error;
704: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
705: RAISE FND_API.g_exc_unexpected_error;
706: END IF;
707: IF p_commit = FND_API.g_true then
708: COMMIT WORK;
701:
702: IF x_return_status = fnd_api.g_ret_sts_error THEN
703: RAISE FND_API.g_exc_error;
704: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
705: RAISE FND_API.g_exc_unexpected_error;
706: END IF;
707: IF p_commit = FND_API.g_true then
708: COMMIT WORK;
709: END IF;
703: RAISE FND_API.g_exc_error;
704: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
705: RAISE FND_API.g_exc_unexpected_error;
706: END IF;
707: IF p_commit = FND_API.g_true then
708: COMMIT WORK;
709: END IF;
710:
711: FND_MSG_PUB.Count_AND_Get
710:
711: FND_MSG_PUB.Count_AND_Get
712: ( p_count => x_msg_count,
713: p_data => x_msg_data,
714: p_encoded => FND_API.G_FALSE );
715:
716: IF (AMS_LOG_PROCEDURE_ON) THEN
717: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,l_full_name||': END ');
718: END IF;
717: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name,l_full_name||': END ');
718: END IF;
719:
720: EXCEPTION
721: WHEN FND_API.G_EXC_ERROR THEN
722: x_return_status := FND_API.g_ret_sts_error ;
723: ROLLBACK TO process_manual_list;
724: FND_MSG_PUB.Count_AND_Get
725: ( p_count => x_msg_count,
718: END IF;
719:
720: EXCEPTION
721: WHEN FND_API.G_EXC_ERROR THEN
722: x_return_status := FND_API.g_ret_sts_error ;
723: ROLLBACK TO process_manual_list;
724: FND_MSG_PUB.Count_AND_Get
725: ( p_count => x_msg_count,
726: p_data => x_msg_data,
723: ROLLBACK TO process_manual_list;
724: FND_MSG_PUB.Count_AND_Get
725: ( p_count => x_msg_count,
726: p_data => x_msg_data,
727: p_encoded => FND_API.G_FALSE
728: );
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: x_return_status := FND_API.g_ret_sts_unexp_error ;
731: ROLLBACK TO process_manual_list;
725: ( p_count => x_msg_count,
726: p_data => x_msg_data,
727: p_encoded => FND_API.G_FALSE
728: );
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: x_return_status := FND_API.g_ret_sts_unexp_error ;
731: ROLLBACK TO process_manual_list;
732: FND_MSG_PUB.Count_AND_Get
733: ( p_count => x_msg_count,
726: p_data => x_msg_data,
727: p_encoded => FND_API.G_FALSE
728: );
729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
730: x_return_status := FND_API.g_ret_sts_unexp_error ;
731: ROLLBACK TO process_manual_list;
732: FND_MSG_PUB.Count_AND_Get
733: ( p_count => x_msg_count,
734: p_data => x_msg_data,
731: ROLLBACK TO process_manual_list;
732: FND_MSG_PUB.Count_AND_Get
733: ( p_count => x_msg_count,
734: p_data => x_msg_data,
735: p_encoded => FND_API.G_FALSE
736: );
737: WHEN OTHERS THEN
738: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
739: ROLLBACK TO process_manual_list;
734: p_data => x_msg_data,
735: p_encoded => FND_API.G_FALSE
736: );
737: WHEN OTHERS THEN
738: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
739: ROLLBACK TO process_manual_list;
740: IF (AMS_LOG_PROCEDURE_ON) THEN
741: AMS_UTILITY_PVT.debug_message(AMS_LOG_PROCEDURE,g_module_name||'.'||l_api_name
742: ,' In Others exception handling ');
752: END IF;
753: FND_MSG_PUB.Count_AND_Get
754: ( p_count => x_msg_count,
755: p_data => x_msg_data,
756: p_encoded => FND_API.G_FALSE
757: );
758:
759: END;
760:
761: --Wrapper API added for supporting contact list created from OSO
762: --bug 4348939
763: PROCEDURE process_manual_list(
764: p_api_version IN NUMBER,
765: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
766: p_commit IN VARCHAR2 := FND_API.g_false,
767: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
768: x_return_status OUT NOCOPY VARCHAR2,
769: x_msg_count OUT NOCOPY NUMBER,
762: --bug 4348939
763: PROCEDURE process_manual_list(
764: p_api_version IN NUMBER,
765: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
766: p_commit IN VARCHAR2 := FND_API.g_false,
767: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
768: x_return_status OUT NOCOPY VARCHAR2,
769: x_msg_count OUT NOCOPY NUMBER,
770: x_msg_data OUT NOCOPY VARCHAR2,
763: PROCEDURE process_manual_list(
764: p_api_version IN NUMBER,
765: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
766: p_commit IN VARCHAR2 := FND_API.g_false,
767: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
768: x_return_status OUT NOCOPY VARCHAR2,
769: x_msg_count OUT NOCOPY NUMBER,
770: x_msg_data OUT NOCOPY VARCHAR2,
771: p_list_header_id in NUMBER,
796:
797:
798: PROCEDURE process_employee_list(
799: p_api_version IN NUMBER,
800: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
801: p_commit IN VARCHAR2 := FND_API.g_false,
802: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
803: x_return_status OUT NOCOPY VARCHAR2,
804: x_msg_count OUT NOCOPY NUMBER,
797:
798: PROCEDURE process_employee_list(
799: p_api_version IN NUMBER,
800: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
801: p_commit IN VARCHAR2 := FND_API.g_false,
802: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
803: x_return_status OUT NOCOPY VARCHAR2,
804: x_msg_count OUT NOCOPY NUMBER,
805: x_msg_data OUT NOCOPY VARCHAR2,
798: PROCEDURE process_employee_list(
799: p_api_version IN NUMBER,
800: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
801: p_commit IN VARCHAR2 := FND_API.g_false,
802: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
803: x_return_status OUT NOCOPY VARCHAR2,
804: x_msg_count OUT NOCOPY NUMBER,
805: x_msg_data OUT NOCOPY VARCHAR2,
806: p_list_header_id in NUMBER,
854: BEGIN
855:
856: SAVEPOINT process_employee_list;
857:
858: IF FND_API.to_boolean(p_init_msg_list) THEN
859: FND_MSG_PUB.initialize;
860: END IF;
861:
862: IF NOT FND_API.compatible_api_call
858: IF FND_API.to_boolean(p_init_msg_list) THEN
859: FND_MSG_PUB.initialize;
860: END IF;
861:
862: IF NOT FND_API.compatible_api_call
863: (
864: l_api_version,
865: p_api_version,
866: l_api_name,
866: l_api_name,
867: g_pkg_name
868: )
869: THEN
870: RAISE FND_API.g_exc_unexpected_error;
871: END IF;
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: -- batoleti coding starts for bug# 6688996
868: )
869: THEN
870: RAISE FND_API.g_exc_unexpected_error;
871: END IF;
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: -- batoleti coding starts for bug# 6688996
875: l_created_by := 0;
876:
985: status_date = sysdate
986: WHERE list_header_id = p_list_header_id;
987:
988:
989: IF x_return_status = fnd_api.g_ret_sts_error THEN
990: RAISE FND_API.g_exc_error;
991: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
992: RAISE FND_API.g_exc_unexpected_error;
993: END IF;
986: WHERE list_header_id = p_list_header_id;
987:
988:
989: IF x_return_status = fnd_api.g_ret_sts_error THEN
990: RAISE FND_API.g_exc_error;
991: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
992: RAISE FND_API.g_exc_unexpected_error;
993: END IF;
994: IF p_commit = FND_API.g_true then
987:
988:
989: IF x_return_status = fnd_api.g_ret_sts_error THEN
990: RAISE FND_API.g_exc_error;
991: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
992: RAISE FND_API.g_exc_unexpected_error;
993: END IF;
994: IF p_commit = FND_API.g_true then
995: COMMIT WORK;
988:
989: IF x_return_status = fnd_api.g_ret_sts_error THEN
990: RAISE FND_API.g_exc_error;
991: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
992: RAISE FND_API.g_exc_unexpected_error;
993: END IF;
994: IF p_commit = FND_API.g_true then
995: COMMIT WORK;
996: END IF;
990: RAISE FND_API.g_exc_error;
991: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
992: RAISE FND_API.g_exc_unexpected_error;
993: END IF;
994: IF p_commit = FND_API.g_true then
995: COMMIT WORK;
996: END IF;
997:
998: FND_MSG_PUB.Count_AND_Get
997:
998: FND_MSG_PUB.Count_AND_Get
999: ( p_count => x_msg_count,
1000: p_data => x_msg_data,
1001: p_encoded => FND_API.G_FALSE );
1002:
1003: EXCEPTION
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: x_return_status := FND_API.g_ret_sts_error ;
1000: p_data => x_msg_data,
1001: p_encoded => FND_API.G_FALSE );
1002:
1003: EXCEPTION
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: x_return_status := FND_API.g_ret_sts_error ;
1006: ROLLBACK TO process_employee_list;
1007: FND_MSG_PUB.Count_AND_Get
1008: ( p_count => x_msg_count,
1001: p_encoded => FND_API.G_FALSE );
1002:
1003: EXCEPTION
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: x_return_status := FND_API.g_ret_sts_error ;
1006: ROLLBACK TO process_employee_list;
1007: FND_MSG_PUB.Count_AND_Get
1008: ( p_count => x_msg_count,
1009: p_data => x_msg_data,
1006: ROLLBACK TO process_employee_list;
1007: FND_MSG_PUB.Count_AND_Get
1008: ( p_count => x_msg_count,
1009: p_data => x_msg_data,
1010: p_encoded => FND_API.G_FALSE
1011: );
1012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: x_return_status := FND_API.g_ret_sts_unexp_error ;
1014: ROLLBACK TO process_employee_list;
1008: ( p_count => x_msg_count,
1009: p_data => x_msg_data,
1010: p_encoded => FND_API.G_FALSE
1011: );
1012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: x_return_status := FND_API.g_ret_sts_unexp_error ;
1014: ROLLBACK TO process_employee_list;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1009: p_data => x_msg_data,
1010: p_encoded => FND_API.G_FALSE
1011: );
1012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: x_return_status := FND_API.g_ret_sts_unexp_error ;
1014: ROLLBACK TO process_employee_list;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1014: ROLLBACK TO process_employee_list;
1015: FND_MSG_PUB.Count_AND_Get
1016: ( p_count => x_msg_count,
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1019: );
1020: WHEN OTHERS THEN
1021: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
1022: ROLLBACK TO process_employee_list;
1017: p_data => x_msg_data,
1018: p_encoded => FND_API.G_FALSE
1019: );
1020: WHEN OTHERS THEN
1021: x_return_status := FND_API.g_ret_sts_unexp_erroR ;
1022: ROLLBACK TO process_employee_list;
1023: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1024: THEN
1025: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1026: END IF;
1027: FND_MSG_PUB.Count_AND_Get
1028: ( p_count => x_msg_count,
1029: p_data => x_msg_data,
1030: p_encoded => FND_API.G_FALSE
1031: );
1032:
1033: END;
1034: END AMS_MANUAL_LIST_GEN ;