[Home] [Help]
23:
24: PROCEDURE create_code_conversion
25: (
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
24: PROCEDURE create_code_conversion
25: (
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
25: (
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
33: p_code_conversion_tbl IN code_conversion_tbl_type,
48: -- Standard Start of API savepoint
49: SAVEPOINT create_code_conversion_pvt;
50:
51: -- Standard call to check for call compatibility.
52: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
53: p_api_version_number,
54: l_api_name,
55: G_PKG_NAME)
56: THEN
53: p_api_version_number,
54: l_api_name,
55: G_PKG_NAME)
56: THEN
57: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
57: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
73: THEN
74: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
75: FND_MSG_PUB.ADD;
76: END IF;
77: RAISE FND_API.G_EXC_ERROR;
78: END IF;
79:
80: -- Debug Message
81: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
82: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
83: END IF;
84:
85: -- Initialize API return status to SUCCESS
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
89: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_code_conversion_tbl.count);
90: END IF;
88: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
89: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_code_conversion_tbl.count);
90: END IF;
91:
92: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
93: -- Debug message
94: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
95: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
96: END IF;
97:
98: -- Invoke validation procedures
99: Validate_Code_Conversion(
100: p_api_version_number => 1.0,
101: p_init_msg_list => FND_API.G_FALSE,
102: p_validation_level => p_validation_level,
103: p_validation_mode => JTF_PLSQL_API.G_CREATE,
104: p_code_conversion_tbl => p_code_conversion_tbl,
105: x_return_status => x_return_status,
107: x_msg_data => x_msg_data);
108: END IF;
109:
110:
111: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: -- Debug Message
108: END IF;
109:
110:
111: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: -- Debug Message
116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
189:
190: EXCEPTION
191: WHEN OTHERS THEN
192: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating code conversion map');
193: RAISE FND_API.G_EXC_ERROR;
194: END;
195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
196: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - code conversion id' || l_code_conversion_id);
197: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_code_conversion_rec.Object_Version_Number);
202:
203: end loop;
204:
205: -- Standard check for p_commit
206: IF FND_API.to_Boolean( p_commit )
207: THEN
208: COMMIT WORK;
209: END IF;
210:
222:
223:
224: EXCEPTION
225: WHEN OZF_UTILITY_PVT.resource_locked THEN
226: x_return_status := FND_API.g_ret_sts_error;
227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
228: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
229: FND_MSG_PUB.add;
230: END IF;
227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
228: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
229: FND_MSG_PUB.add;
230: END IF;
231: WHEN FND_API.G_EXC_ERROR THEN
232: ROLLBACK TO create_code_conversion_pvt;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
229: FND_MSG_PUB.add;
230: END IF;
231: WHEN FND_API.G_EXC_ERROR THEN
232: ROLLBACK TO create_code_conversion_pvt;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
236: p_encoded => FND_API.G_FALSE,
237: p_count => x_msg_count,
232: ROLLBACK TO create_code_conversion_pvt;
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
236: p_encoded => FND_API.G_FALSE,
237: p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236: p_encoded => FND_API.G_FALSE,
237: p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
241: ROLLBACK TO create_code_conversion_pvt;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: -- Standard call to get message count and if count=1, get the message
244: FND_MSG_PUB.Count_And_Get (
238: p_data => x_msg_data
239: );
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
241: ROLLBACK TO create_code_conversion_pvt;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: -- Standard call to get message count and if count=1, get the message
244: FND_MSG_PUB.Count_And_Get (
245: p_encoded => FND_API.G_FALSE,
246: p_count => x_msg_count,
241: ROLLBACK TO create_code_conversion_pvt;
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: -- Standard call to get message count and if count=1, get the message
244: FND_MSG_PUB.Count_And_Get (
245: p_encoded => FND_API.G_FALSE,
246: p_count => x_msg_count,
247: p_data => x_msg_data
248: );
249: WHEN OTHERS THEN
247: p_data => x_msg_data
248: );
249: WHEN OTHERS THEN
250: ROLLBACK TO create_code_conversion_pvt;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
253: THEN
254: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
255: END IF;
254: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
255: END IF;
256: -- Standard call to get message count and if count=1, get the message
257: FND_MSG_PUB.Count_And_Get (
258: p_encoded => FND_API.G_FALSE,
259: p_count => x_msg_count,
260: p_data => x_msg_data
261: );
262:
265:
266: PROCEDURE Update_code_conversion
267: (
268: p_api_version_number IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: x_return_status OUT NOCOPY VARCHAR2,
273: x_msg_count OUT NOCOPY NUMBER,
266: PROCEDURE Update_code_conversion
267: (
268: p_api_version_number IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: x_return_status OUT NOCOPY VARCHAR2,
273: x_msg_count OUT NOCOPY NUMBER,
274: x_msg_data OUT NOCOPY VARCHAR2,
267: (
268: p_api_version_number IN NUMBER,
269: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
270: p_commit IN VARCHAR2 := FND_API.G_FALSE,
271: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
272: x_return_status OUT NOCOPY VARCHAR2,
273: x_msg_count OUT NOCOPY NUMBER,
274: x_msg_data OUT NOCOPY VARCHAR2,
275: p_code_conversion_tbl IN code_conversion_tbl_type ,
334: -- Standard Start of API savepoint
335: SAVEPOINT update_code_conversion_pvt;
336:
337: -- Standard call to check for call compatibility.
338: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
339: p_api_version_number,
340: l_api_name,
341: G_PKG_NAME)
342: THEN
339: p_api_version_number,
340: l_api_name,
341: G_PKG_NAME)
342: THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: -- Initialize message list if p_init_msg_list is set to TRUE.
347: IF FND_API.to_Boolean( p_init_msg_list )
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: -- Initialize message list if p_init_msg_list is set to TRUE.
347: IF FND_API.to_Boolean( p_init_msg_list )
348: THEN
349: FND_MSG_PUB.initialize;
350: END IF;
351:
358: THEN
359: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
360: FND_MSG_PUB.ADD;
361: END IF;
362: RAISE FND_API.G_EXC_ERROR;
363: END IF;
364:
365: -- Debug Message
366: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
367: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
368: END IF;
369:
370: -- Initialize API return status to SUCCESS
371: x_return_status := FND_API.G_RET_STS_SUCCESS;
372: x_object_version_number := JTF_NUMBER_TABLE();
373:
374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
375: OZF_UTILITY_PVT.debug_message('p_code_conversion_tbl(1).description: ' || p_code_conversion_tbl(1).description );
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
434: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
435: FND_MSG_PUB.add;
436: END IF;
437: RAISE FND_API.G_EXC_ERROR;
438: END IF;
439: CLOSE csr_code_conversion;
440:
441:
456: THEN
457: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
458: FND_MSG_PUB.ADD;
459: END IF;
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463: -- Update internal code only when it is NUll
464: IF l_code_conversion_rec.internal_code IS NOT NULL AND
468: THEN
469: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_INTLCODE');
470: FND_MSG_PUB.ADD;
471: END IF;
472: RAISE FND_API.G_EXC_ERROR;
473: END IF;
474:
475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
476: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_code_conversion_rec.End_Date_Active);
486: THEN
487: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_ENDDATE');
488: FND_MSG_PUB.ADD;
489: END IF;
490: RAISE FND_API.G_EXC_ERROR;
491: END IF;
492:
493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
494: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_code_conversion_rec.Start_Date_Active);
505: THEN
506: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_STARTDATE');
507: FND_MSG_PUB.ADD;
508: END IF;
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512: IF l_code_conversion_Rec.end_date_active < p_code_conversion_Rec.Start_Date_Active THEN
513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
514: THEN
515: OZF_UTILITY_PVT.debug_message ('Cannot update an end dated code conversion map');
516: END IF;
517: raise FND_API.G_EXC_ERROR;
518: END IF;
519:
520: END IF;
521:
526: THEN
527: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_EXTCD');
528: FND_MSG_PUB.ADD;
529: END IF;
530: RAISE FND_API.G_EXC_ERROR;
531: END IF;
532:
533: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
534: -- Debug message
529: END IF;
530: RAISE FND_API.G_EXC_ERROR;
531: END IF;
532:
533: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
534: -- Debug message
535: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
536: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
537: END IF;
537: END IF;
538: -- Invoke validation procedures
539: Validate_Code_Conversion(
540: p_api_version_number => 1.0,
541: p_init_msg_list => FND_API.G_FALSE,
542: p_validation_level => p_validation_level,
543: p_validation_mode => JTF_PLSQL_API.G_UPDATE,
544: p_code_conversion_tbl => p_code_conversion_tbl,
545: x_return_status => x_return_status,
546: x_msg_count => x_msg_count,
547: x_msg_data => x_msg_data);
548: END IF;
549:
550: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553:
554: IF (l_code_conversion_rec.org_id IS NULL) THEN
547: x_msg_data => x_msg_data);
548: END IF;
549:
550: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
551: RAISE FND_API.G_EXC_ERROR;
552: END IF;
553:
554: IF (l_code_conversion_rec.org_id IS NULL) THEN
555: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID(); -- R12 Enhancements
600:
601: EXCEPTION
602: WHEN OTHERS THEN
603: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in updating code conversion map');
604: RAISE FND_API.G_EXC_ERROR;
605: END;
606:
607: x_object_version_number.EXTEND;
608: x_object_Version_number(x_object_version_number.count) := p_code_conversion_rec.Object_Version_Number;
610: END LOOP;
611:
612:
613: -- Standard check for p_commit
614: IF FND_API.to_Boolean( p_commit )
615: THEN
616: COMMIT WORK;
617: END IF;
618:
626: (p_count => x_msg_count,
627: p_data => x_msg_data
628: );
629: EXCEPTION
630: WHEN FND_API.G_EXC_ERROR THEN
631: ROLLBACK TO update_code_conversion_pvt;
632: x_return_status := FND_API.G_RET_STS_ERROR;
633: -- Standard call to get message count and if count=1, get the message
634: FND_MSG_PUB.Count_And_Get (
628: );
629: EXCEPTION
630: WHEN FND_API.G_EXC_ERROR THEN
631: ROLLBACK TO update_code_conversion_pvt;
632: x_return_status := FND_API.G_RET_STS_ERROR;
633: -- Standard call to get message count and if count=1, get the message
634: FND_MSG_PUB.Count_And_Get (
635: p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
631: ROLLBACK TO update_code_conversion_pvt;
632: x_return_status := FND_API.G_RET_STS_ERROR;
633: -- Standard call to get message count and if count=1, get the message
634: FND_MSG_PUB.Count_And_Get (
635: p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data
638: );
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data
638: );
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK TO update_code_conversion_pvt;
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: -- Standard call to get message count and if count=1, get the message
643: FND_MSG_PUB.Count_And_Get (
637: p_data => x_msg_data
638: );
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: ROLLBACK TO update_code_conversion_pvt;
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: -- Standard call to get message count and if count=1, get the message
643: FND_MSG_PUB.Count_And_Get (
644: p_encoded => FND_API.G_FALSE,
645: p_count => x_msg_count,
640: ROLLBACK TO update_code_conversion_pvt;
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: -- Standard call to get message count and if count=1, get the message
643: FND_MSG_PUB.Count_And_Get (
644: p_encoded => FND_API.G_FALSE,
645: p_count => x_msg_count,
646: p_data => x_msg_data
647: );
648: WHEN OTHERS THEN
646: p_data => x_msg_data
647: );
648: WHEN OTHERS THEN
649: ROLLBACK TO update_code_conversion_pvt;
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
651: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
652: THEN
653: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
654: END IF;
653: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
654: END IF;
655: -- Standard call to get message count and if count=1, get the message
656: FND_MSG_PUB.Count_And_Get (
657: p_encoded => FND_API.G_FALSE,
658: p_count => x_msg_count,
659: p_data => x_msg_data
660: );
661:
664:
665:
666: PROCEDURE Update_Code_Conversion_Tbl(
667: P_Api_Version_Number IN NUMBER,
668: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
669: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
671: X_Return_Status OUT NOCOPY VARCHAR2,
672: X_Msg_Count OUT NOCOPY NUMBER,
665:
666: PROCEDURE Update_Code_Conversion_Tbl(
667: P_Api_Version_Number IN NUMBER,
668: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
669: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
671: X_Return_Status OUT NOCOPY VARCHAR2,
672: X_Msg_Count OUT NOCOPY NUMBER,
673: X_Msg_Data OUT NOCOPY VARCHAR2,
666: PROCEDURE Update_Code_Conversion_Tbl(
667: P_Api_Version_Number IN NUMBER,
668: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
669: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
671: X_Return_Status OUT NOCOPY VARCHAR2,
672: X_Msg_Count OUT NOCOPY NUMBER,
673: X_Msg_Data OUT NOCOPY VARCHAR2,
674: P_code_conversion_Tbl IN code_conversion_tbl_type
699: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
700: END IF;
701:
702: -- Standard call to check for call compatibility.
703: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
704: p_api_version_number,
705: l_api_name,
706: G_PKG_NAME)
707: THEN
704: p_api_version_number,
705: l_api_name,
706: G_PKG_NAME)
707: THEN
708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710:
711: -- Initialize message list if p_init_msg_list is set to TRUE.
712: IF FND_API.to_Boolean( p_init_msg_list )
708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
709: END IF;
710:
711: -- Initialize message list if p_init_msg_list is set to TRUE.
712: IF FND_API.to_Boolean( p_init_msg_list )
713: THEN
714: FND_MSG_PUB.initialize;
715: END IF;
716:
723: THEN
724: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
725: FND_MSG_PUB.ADD;
726: END IF;
727: RAISE FND_API.G_EXC_ERROR;
728: END IF;
729:
730: -- Debug Message
731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
732: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
733: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_code_conversion_Tbl.count);
734: END IF;
735: -- Initialize API return status to SUCCESS
736: x_return_status := FND_API.G_RET_STS_SUCCESS;
737:
738: v_code_conversion_id := JTF_NUMBER_TABLE();
739: v_object_version_number := JTF_NUMBER_TABLE();
740:
745: P_code_conversion_Rec := P_code_conversion_Tbl(i);
746:
747: -- Fix for 3928270
748:
749: -- IF p_code_conversion_rec.end_date_active = FND_API.g_miss_date
750: -- THEN
751: -- p_code_conversion_rec.end_date_active := NULL;
752: -- END IF;
753:
790: p_code_conversion_tbl => l_create_code_conv_tbl,
791: x_code_conversion_id_tbl => v_code_conversion_id
792: );
793:
794: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
795: RAISE FND_API.G_EXC_ERROR;
796: END IF;
797: END IF;
798:
791: x_code_conversion_id_tbl => v_code_conversion_id
792: );
793:
794: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
795: RAISE FND_API.G_EXC_ERROR;
796: END IF;
797: END IF;
798:
799: IF l_up_cnt > 0 THEN
809: p_code_conversion_tbl => l_update_code_conv_tbl,
810: x_object_version_number => v_object_version_number
811: );
812:
813: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: END IF;
817:
810: x_object_version_number => v_object_version_number
811: );
812:
813: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: END IF;
817:
818: -- Standard check for p_commit
815: END IF;
816: END IF;
817:
818: -- Standard check for p_commit
819: IF FND_API.to_Boolean( p_commit )
820: THEN
821: COMMIT WORK;
822: END IF;
823:
830: (p_count => x_msg_count,
831: p_data => x_msg_data
832: );
833: EXCEPTION
834: WHEN FND_API.G_EXC_ERROR THEN
835: ROLLBACK TO update_code_conversion_tbl_pvt;
836: x_return_status := FND_API.G_RET_STS_ERROR;
837: -- Standard call to get message count and if count=1, get the message
838: FND_MSG_PUB.Count_And_Get (
832: );
833: EXCEPTION
834: WHEN FND_API.G_EXC_ERROR THEN
835: ROLLBACK TO update_code_conversion_tbl_pvt;
836: x_return_status := FND_API.G_RET_STS_ERROR;
837: -- Standard call to get message count and if count=1, get the message
838: FND_MSG_PUB.Count_And_Get (
839: p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
835: ROLLBACK TO update_code_conversion_tbl_pvt;
836: x_return_status := FND_API.G_RET_STS_ERROR;
837: -- Standard call to get message count and if count=1, get the message
838: FND_MSG_PUB.Count_And_Get (
839: p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
841: p_data => x_msg_data
842: );
843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
839: p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
841: p_data => x_msg_data
842: );
843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
844: ROLLBACK TO update_code_conversion_tbl_pvt;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: -- Standard call to get message count and if count=1, get the message
847: FND_MSG_PUB.Count_And_Get (
841: p_data => x_msg_data
842: );
843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
844: ROLLBACK TO update_code_conversion_tbl_pvt;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: -- Standard call to get message count and if count=1, get the message
847: FND_MSG_PUB.Count_And_Get (
848: p_encoded => FND_API.G_FALSE,
849: p_count => x_msg_count,
844: ROLLBACK TO update_code_conversion_tbl_pvt;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: -- Standard call to get message count and if count=1, get the message
847: FND_MSG_PUB.Count_And_Get (
848: p_encoded => FND_API.G_FALSE,
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
852: WHEN OTHERS THEN
850: p_data => x_msg_data
851: );
852: WHEN OTHERS THEN
853: ROLLBACK TO update_code_conversion_tbl_pvt;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
855: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
856: THEN
857: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
858: END IF;
857: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
858: END IF;
859: -- Standard call to get message count and if count=1, get the message
860: FND_MSG_PUB.Count_And_Get (
861: p_encoded => FND_API.G_FALSE,
862: p_count => x_msg_count,
863: p_data => x_msg_data
864: );
865:
869:
870: PROCEDURE Delete_Code_Conversion_Tbl
871: (
872: p_api_version_number IN NUMBER,
873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
876: x_return_status OUT NOCOPY VARCHAR2,
877: x_msg_count OUT NOCOPY NUMBER,
870: PROCEDURE Delete_Code_Conversion_Tbl
871: (
872: p_api_version_number IN NUMBER,
873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
876: x_return_status OUT NOCOPY VARCHAR2,
877: x_msg_count OUT NOCOPY NUMBER,
878: x_msg_data OUT NOCOPY VARCHAR2,
871: (
872: p_api_version_number IN NUMBER,
873: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
874: p_commit IN VARCHAR2 := FND_API.G_FALSE,
875: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
876: x_return_status OUT NOCOPY VARCHAR2,
877: x_msg_count OUT NOCOPY NUMBER,
878: x_msg_data OUT NOCOPY VARCHAR2,
879: p_code_conversion_tbl IN code_conversion_Tbl_Type
896: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
897: END IF;
898:
899: -- Standard call to check for call compatibility.
900: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
901: p_api_version_number,
902: l_api_name,
903: G_PKG_NAME)
904: THEN
901: p_api_version_number,
902: l_api_name,
903: G_PKG_NAME)
904: THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: -- Initialize message list if p_init_msg_list is set to TRUE.
909: IF FND_API.to_Boolean( p_init_msg_list )
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END IF;
907:
908: -- Initialize message list if p_init_msg_list is set to TRUE.
909: IF FND_API.to_Boolean( p_init_msg_list )
910: THEN
911: FND_MSG_PUB.initialize;
912: END IF;
913:
920: THEN
921: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
922: FND_MSG_PUB.ADD;
923: END IF;
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926:
927: -- Debug Message
928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
930: END IF;
931:
932:
933: -- Initialize API return status to SUCCESS
934: x_return_status := FND_API.G_RET_STS_SUCCESS;
935:
936: FOR i IN P_code_conversion_Tbl.first .. P_code_conversion_Tbl.last
937: LOOP
938:
953: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
954: FND_MESSAGE.set_name('OZF', 'OZF_REQ_PARAMETERS_MISSING');
955: FND_MSG_PUB.add;
956: END IF;
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958:
959:
960: ELSE
961:
971: END IF;
972:
973: Delete_Code_Conversion(
974: p_api_version_number => 1.0,
975: p_init_msg_list => FND_API.G_FALSE,
976: p_commit => FND_API.G_FALSE,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: x_return_status => X_Return_Status ,
979: x_msg_count => X_Msg_Count ,
972:
973: Delete_Code_Conversion(
974: p_api_version_number => 1.0,
975: p_init_msg_list => FND_API.G_FALSE,
976: p_commit => FND_API.G_FALSE,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: x_return_status => X_Return_Status ,
979: x_msg_count => X_Msg_Count ,
980: x_msg_data => X_Msg_Data ,
973: Delete_Code_Conversion(
974: p_api_version_number => 1.0,
975: p_init_msg_list => FND_API.G_FALSE,
976: p_commit => FND_API.G_FALSE,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: x_return_status => X_Return_Status ,
979: x_msg_count => X_Msg_Count ,
980: x_msg_data => X_Msg_Data ,
981: p_code_conversion_id => l_code_conversion_id,
983: p_external_code => P_code_conversion_Tbl(i).external_code ,
984: p_code_conversion_type => P_code_conversion_Tbl(i).code_conversion_type);
985:
986:
987: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
988: RAISE FND_API.G_EXC_ERROR;
989: END IF;
990:
991: END IF;
984: p_code_conversion_type => P_code_conversion_Tbl(i).code_conversion_type);
985:
986:
987: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
988: RAISE FND_API.G_EXC_ERROR;
989: END IF;
990:
991: END IF;
992:
993: END LOOP;
994:
995:
996: -- Standard check for p_commit
997: IF FND_API.to_Boolean( p_commit )
998: THEN
999: COMMIT WORK;
1000: END IF;
1001:
1008: (p_count => x_msg_count,
1009: p_data => x_msg_data
1010: );
1011: EXCEPTION
1012: WHEN FND_API.G_EXC_ERROR THEN
1013: ROLLBACK TO delete_code_conversion_tbl_pvt;
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: -- Standard call to get message count and if count=1, get the message
1016: FND_MSG_PUB.Count_And_Get (
1010: );
1011: EXCEPTION
1012: WHEN FND_API.G_EXC_ERROR THEN
1013: ROLLBACK TO delete_code_conversion_tbl_pvt;
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: -- Standard call to get message count and if count=1, get the message
1016: FND_MSG_PUB.Count_And_Get (
1017: p_encoded => FND_API.G_FALSE,
1018: p_count => x_msg_count,
1013: ROLLBACK TO delete_code_conversion_tbl_pvt;
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: -- Standard call to get message count and if count=1, get the message
1016: FND_MSG_PUB.Count_And_Get (
1017: p_encoded => FND_API.G_FALSE,
1018: p_count => x_msg_count,
1019: p_data => x_msg_data
1020: );
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1017: p_encoded => FND_API.G_FALSE,
1018: p_count => x_msg_count,
1019: p_data => x_msg_data
1020: );
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1022: ROLLBACK TO delete_code_conversion_tbl_pvt;
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1019: p_data => x_msg_data
1020: );
1021: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1022: ROLLBACK TO delete_code_conversion_tbl_pvt;
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1022: ROLLBACK TO delete_code_conversion_tbl_pvt;
1023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1028: p_data => x_msg_data
1029: );
1030: WHEN OTHERS THEN
1028: p_data => x_msg_data
1029: );
1030: WHEN OTHERS THEN
1031: ROLLBACK TO delete_code_conversion_tbl_pvt;
1032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1034: THEN
1035: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1036: END IF;
1035: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1036: END IF;
1037: -- Standard call to get message count and if count=1, get the message
1038: FND_MSG_PUB.Count_And_Get (
1039: p_encoded => FND_API.G_FALSE,
1040: p_count => x_msg_count,
1041: p_data => x_msg_data
1042: );
1043:
1049:
1050: PROCEDURE Delete_Code_Conversion
1051: (
1052: p_api_version_number IN NUMBER,
1053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1056: x_return_status OUT NOCOPY VARCHAR2,
1057: x_msg_count OUT NOCOPY NUMBER,
1050: PROCEDURE Delete_Code_Conversion
1051: (
1052: p_api_version_number IN NUMBER,
1053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1056: x_return_status OUT NOCOPY VARCHAR2,
1057: x_msg_count OUT NOCOPY NUMBER,
1058: x_msg_data OUT NOCOPY VARCHAR2,
1051: (
1052: p_api_version_number IN NUMBER,
1053: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1054: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1055: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1056: x_return_status OUT NOCOPY VARCHAR2,
1057: x_msg_count OUT NOCOPY NUMBER,
1058: x_msg_data OUT NOCOPY VARCHAR2,
1059: p_code_conversion_id IN NUMBER,
1159: -- Standard Start of API savepoint
1160: SAVEPOINT delete_code_conversion_pvt;
1161:
1162: -- Standard call to check for call compatibility.
1163: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1164: p_api_version_number,
1165: l_api_name,
1166: G_PKG_NAME)
1167: THEN
1164: p_api_version_number,
1165: l_api_name,
1166: G_PKG_NAME)
1167: THEN
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: -- Initialize message list if p_init_msg_list is set to TRUE.
1172: IF FND_API.to_Boolean( p_init_msg_list )
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: -- Initialize message list if p_init_msg_list is set to TRUE.
1172: IF FND_API.to_Boolean( p_init_msg_list )
1173: THEN
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1180: END IF;
1181:
1182:
1183: -- Initialize API return status to SUCCESS
1184: x_return_status := FND_API.G_RET_STS_SUCCESS;
1185:
1186: -- Validate the Delete Condition
1187: --
1188:
1203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1204: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_RSNMAP_DELETE');
1205: FND_MSG_PUB.ADD;
1206: END IF;
1207: RAISE FND_API.G_EXC_ERROR;
1208: END IF;
1209:
1210: ELSIF p_code_conversion_type = 'OZF_UOM_CODES' THEN
1211:
1313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1314: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_UOM_DELETE');
1315: FND_MSG_PUB.ADD;
1316: END IF;
1317: RAISE FND_API.G_EXC_ERROR;
1318: ELSE
1319: IF g_party_id IS NOT NULL THEN
1320: OPEN csr_code_conv_agrmt_uom ( p_external_code
1321: ,g_party_id
1327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1328: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_UOM_DELETE');
1329: FND_MSG_PUB.ADD;
1330: END IF;
1331: RAISE FND_API.G_EXC_ERROR;
1332: END IF;
1333: ELSE
1334: OPEN csr_code_conv_agmt_uom ( p_external_code);
1335: FETCH csr_code_conv_agmt_uom INTO l_dummy;
1339: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1340: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_UOM_DELETE');
1341: FND_MSG_PUB.ADD;
1342: END IF;
1343: RAISE FND_API.G_EXC_ERROR;
1344: END IF;
1345: END IF;
1346: END IF;
1347:
1370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1371: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_AGREEMENT_DELETE');
1372: FND_MSG_PUB.ADD;
1373: END IF;
1374: raise FND_API.G_EXC_ERROR;
1375: END IF;
1376: ELSIF p_code_conversion_type = 'OZF_PRODUCT_CODES' THEN
1377: l_dummy := null;
1378: -- Delete from Trade Profile at Party or Account level
1397: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1398: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_PRODUCT_DELETE');
1399: FND_MSG_PUB.ADD;
1400: END IF;
1401: raise FND_API.G_EXC_ERROR;
1402: END IF;
1403: ELSIF p_code_conversion_type = 'OZF_PARTY_CODES' THEN
1404: l_dummy := null;
1405: -- Make this cursor static when application is upgraded to 9i
1488: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1489: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_PARTY_DELETE');
1490: FND_MSG_PUB.ADD;
1491: END IF;
1492: RAISE FND_API.G_EXC_ERROR;
1493: END IF;
1494:
1495:
1496: ELSIF p_code_conversion_type = 'OZF_PARTY_SITE_CODES' THEN
1578: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1579: FND_MESSAGE.Set_Name('OZF', 'OZF_RESALE_PARTY_SITE_DELETE');
1580: FND_MSG_PUB.ADD;
1581: END IF;
1582: RAISE FND_API.G_EXC_ERROR;
1583: END IF;
1584: END IF; -- p_code_conversion_type
1585:
1586: END IF; -- p_external_code is not null
1596: OZF_CODE_CONVERSION_PKG.Delete_Row( p_code_conversion_id => p_code_conversion_id,
1597: p_object_version_number => p_object_version_number );
1598: EXCEPTION
1599: WHEN OTHERS THEN
1600: RAISE FND_API.G_EXC_ERROR;
1601: END;
1602:
1603: -- Standard check for p_commit
1604: IF FND_API.to_Boolean( p_commit )
1600: RAISE FND_API.G_EXC_ERROR;
1601: END;
1602:
1603: -- Standard check for p_commit
1604: IF FND_API.to_Boolean( p_commit )
1605: THEN
1606: COMMIT WORK;
1607: END IF;
1608:
1616: (p_count => x_msg_count,
1617: p_data => x_msg_data
1618: );
1619: EXCEPTION
1620: WHEN FND_API.G_EXC_ERROR THEN
1621: ROLLBACK TO delete_code_conversion_pvt;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: -- Standard call to get message count and if count=1, get the message
1624: FND_MSG_PUB.Count_And_Get (
1618: );
1619: EXCEPTION
1620: WHEN FND_API.G_EXC_ERROR THEN
1621: ROLLBACK TO delete_code_conversion_pvt;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: -- Standard call to get message count and if count=1, get the message
1624: FND_MSG_PUB.Count_And_Get (
1625: p_encoded => FND_API.G_FALSE,
1626: p_count => x_msg_count,
1621: ROLLBACK TO delete_code_conversion_pvt;
1622: x_return_status := FND_API.G_RET_STS_ERROR;
1623: -- Standard call to get message count and if count=1, get the message
1624: FND_MSG_PUB.Count_And_Get (
1625: p_encoded => FND_API.G_FALSE,
1626: p_count => x_msg_count,
1627: p_data => x_msg_data
1628: );
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1625: p_encoded => FND_API.G_FALSE,
1626: p_count => x_msg_count,
1627: p_data => x_msg_data
1628: );
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1630: ROLLBACK TO delete_code_conversion_pvt;
1631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1632: -- Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1627: p_data => x_msg_data
1628: );
1629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1630: ROLLBACK TO delete_code_conversion_pvt;
1631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1632: -- Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1630: ROLLBACK TO delete_code_conversion_pvt;
1631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1632: -- Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638: WHEN OTHERS THEN
1636: p_data => x_msg_data
1637: );
1638: WHEN OTHERS THEN
1639: ROLLBACK TO delete_code_conversion_pvt;
1640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1641: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1642: THEN
1643: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1644: END IF;
1643: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1644: END IF;
1645: -- Standard call to get message count and if count=1, get the message
1646: FND_MSG_PUB.Count_And_Get (
1647: p_encoded => FND_API.G_FALSE,
1648: p_count => x_msg_count,
1649: p_data => x_msg_data
1650: );
1651:
1721:
1722:
1723: BEGIN
1724:
1725: x_return_status := FND_API.g_ret_sts_success;
1726: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1727: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1728: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_org_dummy);
1729: END IF;
1728: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_org_dummy);
1729: END IF;
1730: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1731:
1732: IF p_code_conversion_rec.cust_account_id = FND_API.g_miss_num OR
1733: p_code_conversion_rec.cust_account_id IS NULL
1734: THEN
1735: IF p_code_conversion_rec.party_id = FND_API.g_miss_num OR
1736: p_code_conversion_rec.party_id IS NULL
1731:
1732: IF p_code_conversion_rec.cust_account_id = FND_API.g_miss_num OR
1733: p_code_conversion_rec.cust_account_id IS NULL
1734: THEN
1735: IF p_code_conversion_rec.party_id = FND_API.g_miss_num OR
1736: p_code_conversion_rec.party_id IS NULL
1737: THEN
1738: l_org_dummy := 0;
1739:
1762: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
1763: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1764: END IF;
1765: IF l_org_dummy > 0 THEN
1766: l_valid_flag := FND_API.g_false;
1767: END IF;
1768: ELSE
1769: l_party_dummy := NULL;
1770: OPEN csr_code_conv_4party(p_code_conversion_rec.party_id,
1785: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1786: END IF;
1787:
1788: IF l_party_dummy > 0 THEN
1789: l_valid_flag := FND_API.g_false;
1790: END IF;
1791:
1792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1793: OZF_UTILITY_PVT.debug_message('Count of code map for party ' || l_party_dummy);
1812: OZF_UTILITY_PVT.debug_message('Count of code map for account ' || l_acct_dummy);
1813: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1814: END IF;
1815: IF l_acct_dummy > 0 THEN
1816: l_valid_flag := FND_API.g_false;
1817: END IF;
1818: END IF;
1819: ELSE
1820: l_valid_flag := FND_API.g_true;
1816: l_valid_flag := FND_API.g_false;
1817: END IF;
1818: END IF;
1819: ELSE
1820: l_valid_flag := FND_API.g_true;
1821: END IF;
1822:
1823: IF l_valid_flag = FND_API.g_false THEN
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1819: ELSE
1820: l_valid_flag := FND_API.g_true;
1821: END IF;
1822:
1823: IF l_valid_flag = FND_API.g_false THEN
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1825: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONVERSION_DUPLICATE');
1826: FND_MSG_PUB.add;
1827: END IF;
1824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1825: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONVERSION_DUPLICATE');
1826: FND_MSG_PUB.add;
1827: END IF;
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829: END IF;
1830:
1831: END Check_Uniq_Code_Conversion;
1832:
1850: l_api_version_number CONSTANT NUMBER := 1.0;
1851:
1852: BEGIN
1853:
1854: x_return_status := FND_API.g_ret_sts_success;
1855:
1856: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1857: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1858: END IF;
1856: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1857: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1858: END IF;
1859:
1860: IF p_code_conversion_rec.external_code = FND_API.g_miss_char OR
1861: p_code_conversion_rec.external_code IS NULL
1862: THEN
1863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1864: FND_MESSAGE.set_name('OZF', 'OZF_EXTERNAL_CODE_MISSING'||NVL(p_code_conversion_rec.external_code,'NULL'));
1863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1864: FND_MESSAGE.set_name('OZF', 'OZF_EXTERNAL_CODE_MISSING'||NVL(p_code_conversion_rec.external_code,'NULL'));
1865: FND_MSG_PUB.add;
1866: END IF;
1867: x_return_status := FND_API.G_RET_STS_ERROR;
1868: RETURN;
1869: END IF;
1870:
1871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1892: l_api_version_number CONSTANT NUMBER := 1.0;
1893:
1894: BEGIN
1895:
1896: x_return_status := FND_API.g_ret_sts_success;
1897:
1898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1899: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1900: END IF;
1906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1907: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_STDATE_BKDATED');
1908: FND_MSG_PUB.add;
1909: END IF;
1910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1911: END IF;
1912: END IF;
1913:
1914: -- Fix for 3928270
1919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1920: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_ENDDATE_BKDATED');
1921: FND_MSG_PUB.add;
1922: END IF;
1923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1924: END IF;
1925:
1926: -- Fix for 3928270
1927:
1933: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1934: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_STDATE_GREATE');
1935: FND_MSG_PUB.add;
1936: END IF;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1938: END IF;
1939:
1940: END check_code_conversion_dt;
1941:
1951: l_api_version_number CONSTANT NUMBER := 1.0;
1952:
1953: BEGIN
1954:
1955: x_return_status := FND_API.g_ret_sts_success;
1956:
1957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1958: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
1959: END IF;
1961: check_code_conv_req_items( p_code_conversion_rec,
1962: p_validation_mode,
1963: x_return_status
1964: );
1965: IF x_return_status <> FND_API.g_ret_sts_success THEN
1966: RETURN;
1967: END IF;
1968:
1969: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1974: check_uniq_code_conversion( p_code_conversion_rec,
1975: p_validation_mode,
1976: x_return_status
1977: );
1978: IF x_return_status <> FND_API.g_ret_sts_success THEN
1979: RETURN;
1980: END IF;
1981:
1982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1986: check_code_conversion_dt (p_code_conversion_rec,
1987: p_validation_mode,
1988: x_return_status
1989: );
1990: IF x_return_status <> FND_API.g_ret_sts_success Then
1991: RETURN;
1992: END IF;
1993:
1994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2005: -- End of Comments
2006:
2007: PROCEDURE Validate_Code_Conversion(
2008: p_api_version_number IN NUMBER,
2009: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2011: p_validation_mode IN VARCHAR2,
2012: p_code_conversion_tbl IN code_conversion_tbl_type,
2013: x_return_status OUT NOCOPY VARCHAR2,
2006:
2007: PROCEDURE Validate_Code_Conversion(
2008: p_api_version_number IN NUMBER,
2009: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2011: p_validation_mode IN VARCHAR2,
2012: p_code_conversion_tbl IN code_conversion_tbl_type,
2013: x_return_status OUT NOCOPY VARCHAR2,
2014: x_msg_count OUT NOCOPY NUMBER,
2027: -- Standard Start of API savepoint
2028: SAVEPOINT validate_code_conversion_pvt;
2029:
2030: -- Standard call to check for call compatibility.
2031: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2032: p_api_version_number,
2033: l_api_name,
2034: G_PKG_NAME)
2035: THEN
2032: p_api_version_number,
2033: l_api_name,
2034: G_PKG_NAME)
2035: THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: -- Initialize message list if p_init_msg_list is set to TRUE.
2040: IF FND_API.to_Boolean( p_init_msg_list )
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038:
2039: -- Initialize message list if p_init_msg_list is set to TRUE.
2040: IF FND_API.to_Boolean( p_init_msg_list )
2041: THEN
2042: FND_MSG_PUB.initialize;
2043: END IF;
2044: -- Call the Validate Item procedure for the item(field level validations )
2044: -- Call the Validate Item procedure for the item(field level validations )
2045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2046: OZF_UTILITY_PVT.debug_message('in '||l_api_name );
2047: END IF;
2048: x_return_status := FND_API.g_ret_sts_success;
2049:
2050: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2051:
2052: FOR i in 1 .. p_code_conversion_tbl.count
2067: p_validation_mode => p_validation_mode,
2068: x_return_status => x_return_status);
2069:
2070:
2071: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2072: RAISE FND_API.G_EXC_ERROR;
2073: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2068: x_return_status => x_return_status);
2069:
2070:
2071: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2072: RAISE FND_API.G_EXC_ERROR;
2073: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076: END LOOP;
2069:
2070:
2071: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2072: RAISE FND_API.G_EXC_ERROR;
2073: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076: END LOOP;
2077:
2070:
2071: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2072: RAISE FND_API.G_EXC_ERROR;
2073: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076: END LOOP;
2077:
2078: END IF;
2076: END LOOP;
2077:
2078: END IF;
2079: -- Initialize API return status to SUCCESS
2080: x_return_status := FND_API.G_RET_STS_SUCCESS;
2081: -- Standard call to get message count and if count is 1, get message info.
2082: FND_MSG_PUB.Count_And_Get
2083: (p_count => x_msg_count,
2084: p_data => x_msg_data
2084: p_data => x_msg_data
2085: );
2086: EXCEPTION
2087: WHEN OZF_Utility_PVT.resource_locked THEN
2088: x_return_status := FND_API.g_ret_sts_error;
2089: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2090: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2091: FND_MSG_PUB.add;
2092: END IF;
2089: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2090: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2091: FND_MSG_PUB.add;
2092: END IF;
2093: WHEN FND_API.G_EXC_ERROR THEN
2094: ROLLBACK TO validate_code_conversion_pvt;
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: -- Standard call to get message count and if count=1, get the message
2097: FND_MSG_PUB.Count_And_Get (
2091: FND_MSG_PUB.add;
2092: END IF;
2093: WHEN FND_API.G_EXC_ERROR THEN
2094: ROLLBACK TO validate_code_conversion_pvt;
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: -- Standard call to get message count and if count=1, get the message
2097: FND_MSG_PUB.Count_And_Get (
2098: p_encoded => FND_API.G_FALSE,
2099: p_count => x_msg_count,
2094: ROLLBACK TO validate_code_conversion_pvt;
2095: x_return_status := FND_API.G_RET_STS_ERROR;
2096: -- Standard call to get message count and if count=1, get the message
2097: FND_MSG_PUB.Count_And_Get (
2098: p_encoded => FND_API.G_FALSE,
2099: p_count => x_msg_count,
2100: p_data => x_msg_data
2101: );
2102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2098: p_encoded => FND_API.G_FALSE,
2099: p_count => x_msg_count,
2100: p_data => x_msg_data
2101: );
2102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2103: ROLLBACK TO validate_code_conversion_pvt;
2104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2105: -- Standard call to get message count and if count=1, get the message
2106: FND_MSG_PUB.Count_And_Get (
2100: p_data => x_msg_data
2101: );
2102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2103: ROLLBACK TO validate_code_conversion_pvt;
2104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2105: -- Standard call to get message count and if count=1, get the message
2106: FND_MSG_PUB.Count_And_Get (
2107: p_encoded => FND_API.G_FALSE,
2108: p_count => x_msg_count,
2103: ROLLBACK TO validate_code_conversion_pvt;
2104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2105: -- Standard call to get message count and if count=1, get the message
2106: FND_MSG_PUB.Count_And_Get (
2107: p_encoded => FND_API.G_FALSE,
2108: p_count => x_msg_count,
2109: p_data => x_msg_data
2110: );
2111: WHEN OTHERS THEN
2109: p_data => x_msg_data
2110: );
2111: WHEN OTHERS THEN
2112: ROLLBACK TO validate_code_conversion_pvt;
2113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2114: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2115: THEN
2116: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2117: END IF;
2116: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2117: END IF;
2118: -- Standard call to get message count and if count=1, get the message
2119: FND_MSG_PUB.Count_And_Get (
2120: p_encoded => FND_API.G_FALSE,
2121: p_count => x_msg_count,
2122: p_data => x_msg_data
2123: );
2124:
2193:
2194:
2195: BEGIN
2196:
2197: X_Return_Status := FND_API.g_ret_sts_success;
2198:
2199: --- in case of multiple rows what will be the result? error out or get the first record.
2200:
2201: OPEN csr_get_internal_code_Acct(p_cust_account_id
2236:
2237: EXCEPTION
2238: WHEN OTHERS THEN
2239:
2240: x_return_status := FND_API.g_ret_sts_unexp_error;
2241:
2242: IF csr_get_internal_code_acct%ISOPEN THEN
2243: CLOSE csr_get_internal_code_acct;
2244: END IF;
2255: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2256: END IF;
2257: -- Standard call to get message count and if count=1, get the message
2258: FND_MSG_PUB.Count_And_Get (
2259: p_encoded => FND_API.G_FALSE,
2260: p_count => x_msg_count,
2261: p_data => x_msg_data
2262: );
2263:
2304: BEGIN
2305: /* 3/25/2008 -gdeepika- Bug 6832508 */
2306: /* For the code conversions at a supplier site , only one valid internal code
2307: should exist for a particular external code on a particular date.*/
2308: x_return_status := FND_API.g_ret_sts_success;
2309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2310: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2311: OZF_UTILITY_PVT.debug_message('Dummy value ' || l_dummy);
2312: END IF;
2340: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
2341: OZF_UTILITY_PVT.debug_message('External Code ' || l_external_code);
2342: END IF;
2343: IF l_dummy > 0 THEN
2344: l_valid_flag := FND_API.g_false;
2345:
2346: ELSE
2347: l_valid_flag := FND_API.g_true;
2348:
2343: IF l_dummy > 0 THEN
2344: l_valid_flag := FND_API.g_false;
2345:
2346: ELSE
2347: l_valid_flag := FND_API.g_true;
2348:
2349: END IF;
2350:
2351: IF l_valid_flag = FND_API.g_false THEN
2347: l_valid_flag := FND_API.g_true;
2348:
2349: END IF;
2350:
2351: IF l_valid_flag = FND_API.g_false THEN
2352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2353: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONVERSION_DUPLICATE');
2354: FND_MSG_PUB.add;
2355: END IF;
2352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2353: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONVERSION_DUPLICATE');
2354: FND_MSG_PUB.add;
2355: END IF;
2356: x_return_status := FND_API.G_RET_STS_ERROR;
2357: RETURN;
2358: END IF;
2359:
2360:
2379: l_api_version_number CONSTANT NUMBER := 1.0;
2380:
2381: BEGIN
2382:
2383: x_return_status := FND_API.g_ret_sts_success;
2384:
2385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2386: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2387: END IF;
2385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2386: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2387: END IF;
2388:
2389: IF p_supp_code_conversion_rec.external_code = FND_API.g_miss_char OR
2390: p_supp_code_conversion_rec.external_code IS NULL
2391: THEN
2392: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2393: FND_MESSAGE.set_name('OZF', 'OZF_EXTERNAL_CODE_MISSING'||NVL(p_supp_code_conversion_rec.external_code,'NULL'));
2392: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2393: FND_MESSAGE.set_name('OZF', 'OZF_EXTERNAL_CODE_MISSING'||NVL(p_supp_code_conversion_rec.external_code,'NULL'));
2394: FND_MSG_PUB.add;
2395: END IF;
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2397: RETURN;
2398: END IF;
2399:
2400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2421: l_api_version_number CONSTANT NUMBER := 1.0;
2422:
2423: BEGIN
2424:
2425: x_return_status := FND_API.g_ret_sts_success;
2426:
2427: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2428: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2429: END IF;
2435: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2436: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_STDATE_BKDATED');
2437: FND_MSG_PUB.add;
2438: END IF;
2439: x_return_status := FND_API.G_RET_STS_ERROR;
2440: RETURN;
2441: END IF;
2442: END IF;
2443:
2449: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2450: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_ENDDATE_BKDATED');
2451: FND_MSG_PUB.add;
2452: END IF;
2453: x_return_status := FND_API.G_RET_STS_ERROR;
2454: RETURN;
2455: END IF;
2456:
2457:
2461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2462: FND_MESSAGE.set_name('OZF', 'OZF_CODE_CONV_STDATE_GREATE');
2463: FND_MSG_PUB.add;
2464: END IF;
2465: x_return_status := FND_API.G_RET_STS_ERROR;
2466: RETURN;
2467: END IF;
2468:
2469: END check_supp_code_conversion_dt;
2518:
2519:
2520: BEGIN
2521:
2522: X_Return_Status := FND_API.g_ret_sts_success;
2523:
2524:
2525: OPEN csr_get_internal_code( p_supp_trade_profile_id
2526: ,p_external_code
2537:
2538: EXCEPTION
2539: WHEN OTHERS THEN
2540:
2541: x_return_status := FND_API.g_ret_sts_unexp_error;
2542:
2543: IF csr_get_internal_code%ISOPEN THEN
2544: CLOSE csr_get_internal_code;
2545: END IF;
2548: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2549: END IF;
2550: -- Standard call to get message count and if count=1, get the message
2551: FND_MSG_PUB.Count_And_Get (
2552: p_encoded => FND_API.G_FALSE,
2553: p_count => x_msg_count,
2554: p_data => x_msg_data
2555: );
2556:
2569: l_api_version_number CONSTANT NUMBER := 1.0;
2570:
2571: BEGIN
2572:
2573: x_return_status := FND_API.g_ret_sts_success;
2574:
2575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2576: OZF_UTILITY_PVT.debug_message('in '||l_api_name);
2577: END IF;
2579: check_supp_code_conv_req_items( p_supp_code_conversion_rec,
2580: p_validation_mode,
2581: x_return_status
2582: );
2583: IF x_return_status <> FND_API.g_ret_sts_success THEN
2584: RETURN;
2585: END IF;
2586:
2587: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2592: check_uniq_supp_code_conv( p_supp_code_conversion_rec,
2593: p_validation_mode,
2594: x_return_status
2595: );
2596: IF x_return_status <> FND_API.g_ret_sts_success THEN
2597: RETURN;
2598: END IF;
2599:
2600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2604: check_supp_code_conversion_dt (p_supp_code_conversion_rec,
2605: p_validation_mode,
2606: x_return_status
2607: );
2608: IF x_return_status <> FND_API.g_ret_sts_success Then
2609: RETURN;
2610: END IF;
2611:
2612: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2615:
2616: END check_supp_code_conv_items;
2617: PROCEDURE Validate_supp_code_Conv(
2618: p_api_version_number IN NUMBER,
2619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2620: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2621: p_validation_mode IN VARCHAR2,
2622: p_supp_code_conversion_tbl IN supp_code_conversion_tbl_type,
2623: x_return_status OUT NOCOPY VARCHAR2,
2616: END check_supp_code_conv_items;
2617: PROCEDURE Validate_supp_code_Conv(
2618: p_api_version_number IN NUMBER,
2619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2620: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2621: p_validation_mode IN VARCHAR2,
2622: p_supp_code_conversion_tbl IN supp_code_conversion_tbl_type,
2623: x_return_status OUT NOCOPY VARCHAR2,
2624: x_msg_count OUT NOCOPY NUMBER,
2637: -- Standard Start of API savepoint
2638: SAVEPOINT validate_supp_code_conv_pvt;
2639:
2640: -- Standard call to check for call compatibility.
2641: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2642: p_api_version_number,
2643: l_api_name,
2644: G_PKG_NAME)
2645: THEN
2642: p_api_version_number,
2643: l_api_name,
2644: G_PKG_NAME)
2645: THEN
2646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2647: END IF;
2648:
2649: -- Initialize message list if p_init_msg_list is set to TRUE.
2650: IF FND_API.to_Boolean( p_init_msg_list )
2646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2647: END IF;
2648:
2649: -- Initialize message list if p_init_msg_list is set to TRUE.
2650: IF FND_API.to_Boolean( p_init_msg_list )
2651: THEN
2652: FND_MSG_PUB.initialize;
2653: END IF;
2654: -- Call the Validate Item procedure for the item(field level validations )
2654: -- Call the Validate Item procedure for the item(field level validations )
2655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2656: OZF_UTILITY_PVT.debug_message('in '||l_api_name );
2657: END IF;
2658: x_return_status := FND_API.g_ret_sts_success;
2659:
2660: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2661:
2662: FOR i in 1 .. p_supp_code_conversion_tbl.count
2676: p_supp_code_conversion_rec => l_supp_code_conversion_rec,
2677: p_validation_mode => p_validation_mode,
2678: x_return_status => x_return_status);
2679:
2680: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2677: p_validation_mode => p_validation_mode,
2678: x_return_status => x_return_status);
2679:
2680: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685: END LOOP;
2678: x_return_status => x_return_status);
2679:
2680: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685: END LOOP;
2686:
2679:
2680: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2684: END IF;
2685: END LOOP;
2686:
2687: END IF;
2685: END LOOP;
2686:
2687: END IF;
2688: -- Initialize API return status to SUCCESS
2689: x_return_status := FND_API.G_RET_STS_SUCCESS;
2690: -- Standard call to get message count and if count is 1, get message info.
2691: FND_MSG_PUB.Count_And_Get
2692: (p_count => x_msg_count,
2693: p_data => x_msg_data
2693: p_data => x_msg_data
2694: );
2695: EXCEPTION
2696: WHEN OZF_Utility_PVT.resource_locked THEN
2697: x_return_status := FND_API.g_ret_sts_error;
2698: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2699: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2700: FND_MSG_PUB.add;
2701: END IF;
2698: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2699: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
2700: FND_MSG_PUB.add;
2701: END IF;
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: ROLLBACK TO validate_supp_code_conv_pvt;
2704: x_return_status := FND_API.G_RET_STS_ERROR;
2705: -- Standard call to get message count and if count=1, get the message
2706: FND_MSG_PUB.Count_And_Get (
2700: FND_MSG_PUB.add;
2701: END IF;
2702: WHEN FND_API.G_EXC_ERROR THEN
2703: ROLLBACK TO validate_supp_code_conv_pvt;
2704: x_return_status := FND_API.G_RET_STS_ERROR;
2705: -- Standard call to get message count and if count=1, get the message
2706: FND_MSG_PUB.Count_And_Get (
2707: p_encoded => FND_API.G_FALSE,
2708: p_count => x_msg_count,
2703: ROLLBACK TO validate_supp_code_conv_pvt;
2704: x_return_status := FND_API.G_RET_STS_ERROR;
2705: -- Standard call to get message count and if count=1, get the message
2706: FND_MSG_PUB.Count_And_Get (
2707: p_encoded => FND_API.G_FALSE,
2708: p_count => x_msg_count,
2709: p_data => x_msg_data
2710: );
2711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2707: p_encoded => FND_API.G_FALSE,
2708: p_count => x_msg_count,
2709: p_data => x_msg_data
2710: );
2711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2712: ROLLBACK TO validate_supp_code_conv_pvt;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: -- Standard call to get message count and if count=1, get the message
2715: FND_MSG_PUB.Count_And_Get (
2709: p_data => x_msg_data
2710: );
2711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2712: ROLLBACK TO validate_supp_code_conv_pvt;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: -- Standard call to get message count and if count=1, get the message
2715: FND_MSG_PUB.Count_And_Get (
2716: p_encoded => FND_API.G_FALSE,
2717: p_count => x_msg_count,
2712: ROLLBACK TO validate_supp_code_conv_pvt;
2713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2714: -- Standard call to get message count and if count=1, get the message
2715: FND_MSG_PUB.Count_And_Get (
2716: p_encoded => FND_API.G_FALSE,
2717: p_count => x_msg_count,
2718: p_data => x_msg_data
2719: );
2720: WHEN OTHERS THEN
2718: p_data => x_msg_data
2719: );
2720: WHEN OTHERS THEN
2721: ROLLBACK TO validate_supp_code_conv_pvt;
2722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2723: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2724: THEN
2725: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2726: END IF;
2725: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2726: END IF;
2727: -- Standard call to get message count and if count=1, get the message
2728: FND_MSG_PUB.Count_And_Get (
2729: p_encoded => FND_API.G_FALSE,
2730: p_count => x_msg_count,
2731: p_data => x_msg_data
2732: );
2733:
2735:
2736: PROCEDURE create_supp_code_conversion
2737: (
2738: p_api_version_number IN NUMBER,
2739: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2740: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2741: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2742: x_return_status OUT NOCOPY VARCHAR2,
2743: x_msg_count OUT NOCOPY NUMBER,
2736: PROCEDURE create_supp_code_conversion
2737: (
2738: p_api_version_number IN NUMBER,
2739: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2740: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2741: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2742: x_return_status OUT NOCOPY VARCHAR2,
2743: x_msg_count OUT NOCOPY NUMBER,
2744: x_msg_data OUT NOCOPY VARCHAR2,
2737: (
2738: p_api_version_number IN NUMBER,
2739: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2740: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
2741: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2742: x_return_status OUT NOCOPY VARCHAR2,
2743: x_msg_count OUT NOCOPY NUMBER,
2744: x_msg_data OUT NOCOPY VARCHAR2,
2745: p_supp_code_conversion_tbl IN supp_code_conversion_tbl_type,
2760: -- Standard Start of API savepoint
2761: SAVEPOINT create_supp_code_conv_pvt;
2762:
2763: -- Standard call to check for call compatibility.
2764: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2765: p_api_version_number,
2766: l_api_name,
2767: G_PKG_NAME)
2768: THEN
2765: p_api_version_number,
2766: l_api_name,
2767: G_PKG_NAME)
2768: THEN
2769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2770: END IF;
2771:
2772: -- Initialize message list if p_init_msg_list is set to TRUE.
2773: IF FND_API.to_Boolean( p_init_msg_list )
2769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2770: END IF;
2771:
2772: -- Initialize message list if p_init_msg_list is set to TRUE.
2773: IF FND_API.to_Boolean( p_init_msg_list )
2774: THEN
2775: FND_MSG_PUB.initialize;
2776: END IF;
2777:
2785: THEN
2786: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
2787: FND_MSG_PUB.ADD;
2788: END IF;
2789: RAISE FND_API.G_EXC_ERROR;
2790: END IF;
2791:
2792: -- Debug Message
2793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2794: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2795: END IF;
2796:
2797: -- Initialize API return status to SUCCESS
2798: x_return_status := FND_API.G_RET_STS_SUCCESS;
2799:
2800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2801: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_supp_code_conversion_tbl.count);
2802: END IF;
2800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2801: OZF_UTILITY_PVT.debug_message( 'No of records to be created'||p_supp_code_conversion_tbl.count);
2802: END IF;
2803:
2804: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
2805: -- Debug message
2806: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
2807: -- Invoke validation procedures
2808: Validate_supp_code_Conv(
2806: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
2807: -- Invoke validation procedures
2808: Validate_supp_code_Conv(
2809: p_api_version_number => 1.0,
2810: p_init_msg_list => FND_API.G_FALSE,
2811: p_validation_level => p_validation_level,
2812: p_validation_mode => JTF_PLSQL_API.G_CREATE,
2813: p_supp_code_conversion_tbl => p_supp_code_conversion_tbl,
2814: x_return_status => x_return_status,
2815: x_msg_count => x_msg_count,
2816: x_msg_data => x_msg_data);
2817: END IF;
2818:
2819: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF;
2822:
2823: -- Debug Message
2816: x_msg_data => x_msg_data);
2817: END IF;
2818:
2819: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF;
2822:
2823: -- Debug Message
2824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2889:
2890: EXCEPTION
2891: WHEN OTHERS THEN
2892: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in creating supp_code conversion map');
2893: RAISE FND_API.G_EXC_ERROR;
2894: END;
2895: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2896: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - supp_code conversion id' || l_code_conversion_id);
2897: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' after insert call - obj version no ' || l_supp_code_conversion_rec.Object_Version_Number);
2902:
2903: end loop;
2904:
2905: -- Standard check for p_commit
2906: IF FND_API.to_Boolean( p_commit )
2907: THEN
2908: COMMIT WORK;
2909: END IF;
2910:
2922:
2923:
2924: EXCEPTION
2925: WHEN OZF_UTILITY_PVT.resource_locked THEN
2926: x_return_status := FND_API.g_ret_sts_error;
2927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2928: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
2929: FND_MSG_PUB.add;
2930: END IF;
2927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2928: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
2929: FND_MSG_PUB.add;
2930: END IF;
2931: WHEN FND_API.G_EXC_ERROR THEN
2932: ROLLBACK TO create_supp_code_conv_pvt;
2933: x_return_status := FND_API.G_RET_STS_ERROR;
2934: -- Standard call to get message count and if count=1, get the message
2935: FND_MSG_PUB.Count_And_Get (
2929: FND_MSG_PUB.add;
2930: END IF;
2931: WHEN FND_API.G_EXC_ERROR THEN
2932: ROLLBACK TO create_supp_code_conv_pvt;
2933: x_return_status := FND_API.G_RET_STS_ERROR;
2934: -- Standard call to get message count and if count=1, get the message
2935: FND_MSG_PUB.Count_And_Get (
2936: p_encoded => FND_API.G_FALSE,
2937: p_count => x_msg_count,
2932: ROLLBACK TO create_supp_code_conv_pvt;
2933: x_return_status := FND_API.G_RET_STS_ERROR;
2934: -- Standard call to get message count and if count=1, get the message
2935: FND_MSG_PUB.Count_And_Get (
2936: p_encoded => FND_API.G_FALSE,
2937: p_count => x_msg_count,
2938: p_data => x_msg_data
2939: );
2940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2936: p_encoded => FND_API.G_FALSE,
2937: p_count => x_msg_count,
2938: p_data => x_msg_data
2939: );
2940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2941: ROLLBACK TO create_code_conversion_pvt;
2942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2943: -- Standard call to get message count and if count=1, get the message
2944: FND_MSG_PUB.Count_And_Get (
2938: p_data => x_msg_data
2939: );
2940: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2941: ROLLBACK TO create_code_conversion_pvt;
2942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2943: -- Standard call to get message count and if count=1, get the message
2944: FND_MSG_PUB.Count_And_Get (
2945: p_encoded => FND_API.G_FALSE,
2946: p_count => x_msg_count,
2941: ROLLBACK TO create_code_conversion_pvt;
2942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2943: -- Standard call to get message count and if count=1, get the message
2944: FND_MSG_PUB.Count_And_Get (
2945: p_encoded => FND_API.G_FALSE,
2946: p_count => x_msg_count,
2947: p_data => x_msg_data
2948: );
2949: WHEN OTHERS THEN
2947: p_data => x_msg_data
2948: );
2949: WHEN OTHERS THEN
2950: ROLLBACK TO create_supp_code_conv_pvt;
2951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2952: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2953: THEN
2954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2955: END IF;
2954: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2955: END IF;
2956: -- Standard call to get message count and if count=1, get the message
2957: FND_MSG_PUB.Count_And_Get (
2958: p_encoded => FND_API.G_FALSE,
2959: p_count => x_msg_count,
2960: p_data => x_msg_data
2961: );
2962:
2965:
2966: PROCEDURE Update_supp_code_conversion
2967: (
2968: p_api_version_number IN NUMBER,
2969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2966: PROCEDURE Update_supp_code_conversion
2967: (
2968: p_api_version_number IN NUMBER,
2969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2967: (
2968: p_api_version_number IN NUMBER,
2969: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2970: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2971: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2975: p_supp_code_conversion_tbl IN supp_code_conversion_tbl_type ,
3033: -- Standard Start of API savepoint
3034: SAVEPOINT update_supp_code_conv_pvt;
3035:
3036: -- Standard call to check for call compatibility.
3037: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3038: p_api_version_number,
3039: l_api_name,
3040: G_PKG_NAME)
3041: THEN
3038: p_api_version_number,
3039: l_api_name,
3040: G_PKG_NAME)
3041: THEN
3042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3043: END IF;
3044:
3045: -- Initialize message list if p_init_msg_list is set to TRUE.
3046: IF FND_API.to_Boolean( p_init_msg_list )
3042: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3043: END IF;
3044:
3045: -- Initialize message list if p_init_msg_list is set to TRUE.
3046: IF FND_API.to_Boolean( p_init_msg_list )
3047: THEN
3048: FND_MSG_PUB.initialize;
3049: END IF;
3050:
3057: THEN
3058: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3059: FND_MSG_PUB.ADD;
3060: END IF;
3061: RAISE FND_API.G_EXC_ERROR;
3062: END IF;
3063:
3064: -- Debug Message
3065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3066: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3067: END IF;
3068:
3069: -- Initialize API return status to SUCCESS
3070: x_return_status := FND_API.G_RET_STS_SUCCESS;
3071: x_object_version_number := JTF_NUMBER_TABLE();
3072:
3073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3074: OZF_UTILITY_PVT.debug_message('p_supp_code_conversion_tbl(1).description: ' || p_supp_code_conversion_tbl(1).description );
3131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3132: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3133: FND_MSG_PUB.add;
3134: END IF;
3135: RAISE FND_API.G_EXC_ERROR;
3136: END IF;
3137: CLOSE csr_supp_code_conversion;
3138:
3139:
3154: THEN
3155: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
3156: FND_MSG_PUB.ADD;
3157: END IF;
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160:
3161:
3162: -- Update internal code only when it is NUll
3167: THEN
3168: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_INTLCODE');
3169: FND_MSG_PUB.ADD;
3170: END IF;
3171: RAISE FND_API.G_EXC_ERROR;
3172: END IF;
3173:
3174: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3175: OZF_UTILITY_PVT.debug_message( 'Existing End Date' || l_supp_code_conversion_rec.End_Date_Active);
3185: THEN
3186: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_ENDDATE');
3187: FND_MSG_PUB.ADD;
3188: END IF;
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191:
3192: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3193: OZF_UTILITY_PVT.debug_message( 'Existing Start Date' || l_supp_code_conversion_rec.Start_Date_Active);
3204: THEN
3205: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_STARTDATE');
3206: FND_MSG_PUB.ADD;
3207: END IF;
3208: RAISE FND_API.G_EXC_ERROR;
3209: END IF;
3210:
3211: IF l_supp_code_conversion_Rec.end_date_active < p_supp_code_conversion_Rec.Start_Date_Active THEN
3212: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3212: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3213: THEN
3214: OZF_UTILITY_PVT.debug_message ('Cannot update an end dated code conversion map');
3215: END IF;
3216: raise FND_API.G_EXC_ERROR;
3217: END IF;
3218:
3219: END IF;
3220:
3225: THEN
3226: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_EXTCD');
3227: FND_MSG_PUB.ADD;
3228: END IF;
3229: RAISE FND_API.G_EXC_ERROR;
3230: END IF;
3231:
3232: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
3233: -- Debug message
3228: END IF;
3229: RAISE FND_API.G_EXC_ERROR;
3230: END IF;
3231:
3232: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
3233: -- Debug message
3234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3235: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name);
3236: END IF;
3236: END IF;
3237: -- Invoke validation procedures
3238: Validate_supp_code_Conv(
3239: p_api_version_number => 1.0,
3240: p_init_msg_list => FND_API.G_FALSE,
3241: p_validation_level => p_validation_level,
3242: p_validation_mode => JTF_PLSQL_API.G_UPDATE,
3243: p_supp_code_conversion_tbl => p_supp_code_conversion_tbl,
3244: x_return_status => x_return_status,
3245: x_msg_count => x_msg_count,
3246: x_msg_data => x_msg_data);
3247: END IF;
3248:
3249: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3250: RAISE FND_API.G_EXC_ERROR;
3251: END IF;
3252:
3253: IF (l_supp_code_conversion_rec.org_id IS NULL) THEN
3246: x_msg_data => x_msg_data);
3247: END IF;
3248:
3249: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3250: RAISE FND_API.G_EXC_ERROR;
3251: END IF;
3252:
3253: IF (l_supp_code_conversion_rec.org_id IS NULL) THEN
3254: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID(); -- R12 Enhancements
3298:
3299: EXCEPTION
3300: WHEN OTHERS THEN
3301: OZF_UTILITY_PVT.debug_message (SQLERRM ||' Error in updating code conversion map');
3302: RAISE FND_API.G_EXC_ERROR;
3303: END;
3304:
3305: x_object_version_number.EXTEND;
3306: x_object_Version_number(x_object_version_number.count) := p_supp_code_conversion_rec.Object_Version_Number;
3308: END LOOP;
3309:
3310:
3311: -- Standard check for p_commit
3312: IF FND_API.to_Boolean( p_commit )
3313: THEN
3314: COMMIT WORK;
3315: END IF;
3316:
3324: (p_count => x_msg_count,
3325: p_data => x_msg_data
3326: );
3327: EXCEPTION
3328: WHEN FND_API.G_EXC_ERROR THEN
3329: ROLLBACK TO update_supp_code_conv_pvt;
3330: x_return_status := FND_API.G_RET_STS_ERROR;
3331: -- Standard call to get message count and if count=1, get the message
3332: FND_MSG_PUB.Count_And_Get (
3326: );
3327: EXCEPTION
3328: WHEN FND_API.G_EXC_ERROR THEN
3329: ROLLBACK TO update_supp_code_conv_pvt;
3330: x_return_status := FND_API.G_RET_STS_ERROR;
3331: -- Standard call to get message count and if count=1, get the message
3332: FND_MSG_PUB.Count_And_Get (
3333: p_encoded => FND_API.G_FALSE,
3334: p_count => x_msg_count,
3329: ROLLBACK TO update_supp_code_conv_pvt;
3330: x_return_status := FND_API.G_RET_STS_ERROR;
3331: -- Standard call to get message count and if count=1, get the message
3332: FND_MSG_PUB.Count_And_Get (
3333: p_encoded => FND_API.G_FALSE,
3334: p_count => x_msg_count,
3335: p_data => x_msg_data
3336: );
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3333: p_encoded => FND_API.G_FALSE,
3334: p_count => x_msg_count,
3335: p_data => x_msg_data
3336: );
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3338: ROLLBACK TO update_supp_code_conv_pvt;
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3340: -- Standard call to get message count and if count=1, get the message
3341: FND_MSG_PUB.Count_And_Get (
3335: p_data => x_msg_data
3336: );
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3338: ROLLBACK TO update_supp_code_conv_pvt;
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3340: -- Standard call to get message count and if count=1, get the message
3341: FND_MSG_PUB.Count_And_Get (
3342: p_encoded => FND_API.G_FALSE,
3343: p_count => x_msg_count,
3338: ROLLBACK TO update_supp_code_conv_pvt;
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3340: -- Standard call to get message count and if count=1, get the message
3341: FND_MSG_PUB.Count_And_Get (
3342: p_encoded => FND_API.G_FALSE,
3343: p_count => x_msg_count,
3344: p_data => x_msg_data
3345: );
3346: WHEN OTHERS THEN
3344: p_data => x_msg_data
3345: );
3346: WHEN OTHERS THEN
3347: ROLLBACK TO update_supp_code_conv_pvt;
3348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3349: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3350: THEN
3351: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3352: END IF;
3351: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3352: END IF;
3353: -- Standard call to get message count and if count=1, get the message
3354: FND_MSG_PUB.Count_And_Get (
3355: p_encoded => FND_API.G_FALSE,
3356: p_count => x_msg_count,
3357: p_data => x_msg_data
3358: );
3359:
3362:
3363:
3364: PROCEDURE Update_supp_code_Conv_Tbl(
3365: P_Api_Version_Number IN NUMBER,
3366: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3367: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3368: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3369: X_Return_Status OUT NOCOPY VARCHAR2,
3370: X_Msg_Count OUT NOCOPY NUMBER,
3363:
3364: PROCEDURE Update_supp_code_Conv_Tbl(
3365: P_Api_Version_Number IN NUMBER,
3366: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3367: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3368: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3369: X_Return_Status OUT NOCOPY VARCHAR2,
3370: X_Msg_Count OUT NOCOPY NUMBER,
3371: X_Msg_Data OUT NOCOPY VARCHAR2,
3364: PROCEDURE Update_supp_code_Conv_Tbl(
3365: P_Api_Version_Number IN NUMBER,
3366: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3367: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3368: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3369: X_Return_Status OUT NOCOPY VARCHAR2,
3370: X_Msg_Count OUT NOCOPY NUMBER,
3371: X_Msg_Data OUT NOCOPY VARCHAR2,
3372: P_supp_code_conversion_Tbl IN supp_code_conversion_tbl_type
3397: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3398: END IF;
3399:
3400: -- Standard call to check for call compatibility.
3401: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3402: p_api_version_number,
3403: l_api_name,
3404: G_PKG_NAME)
3405: THEN
3402: p_api_version_number,
3403: l_api_name,
3404: G_PKG_NAME)
3405: THEN
3406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3407: END IF;
3408:
3409: -- Initialize message list if p_init_msg_list is set to TRUE.
3410: IF FND_API.to_Boolean( p_init_msg_list )
3406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3407: END IF;
3408:
3409: -- Initialize message list if p_init_msg_list is set to TRUE.
3410: IF FND_API.to_Boolean( p_init_msg_list )
3411: THEN
3412: FND_MSG_PUB.initialize;
3413: END IF;
3414:
3421: THEN
3422: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3423: FND_MSG_PUB.ADD;
3424: END IF;
3425: RAISE FND_API.G_EXC_ERROR;
3426: END IF;
3427:
3428: -- Debug Message
3429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3430: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3431: OZF_UTILITY_PVT.debug_message('Total Number of records '||P_supp_code_conversion_Tbl.count);
3432: END IF;
3433: -- Initialize API return status to SUCCESS
3434: x_return_status := FND_API.G_RET_STS_SUCCESS;
3435:
3436: v_code_conversion_id := JTF_NUMBER_TABLE();
3437: v_object_version_number := JTF_NUMBER_TABLE();
3438:
3443: P_supp_code_conversion_Rec := P_supp_code_conversion_Tbl(i);
3444:
3445: -- Fix for 3928270
3446:
3447: -- IF p_supp_code_conversion_rec.end_date_active = FND_API.g_miss_date
3448: -- THEN
3449: -- p_supp_code_conversion_rec.end_date_active := NULL;
3450: -- END IF;
3451:
3488: p_supp_code_conversion_tbl => l_create_supp_code_conv_tbl,
3489: x_supp_code_conversion_id_tbl => v_code_conversion_id
3490: );
3491:
3492: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3493: RAISE FND_API.G_EXC_ERROR;
3494: END IF;
3495: END IF;
3496:
3489: x_supp_code_conversion_id_tbl => v_code_conversion_id
3490: );
3491:
3492: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3493: RAISE FND_API.G_EXC_ERROR;
3494: END IF;
3495: END IF;
3496:
3497: IF l_up_cnt > 0 THEN
3507: p_supp_code_conversion_tbl => l_update_supp_code_conv_tbl,
3508: x_object_version_number => v_object_version_number
3509: );
3510:
3511: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3512: RAISE FND_API.G_EXC_ERROR;
3513: END IF;
3514: END IF;
3515:
3508: x_object_version_number => v_object_version_number
3509: );
3510:
3511: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3512: RAISE FND_API.G_EXC_ERROR;
3513: END IF;
3514: END IF;
3515:
3516: -- Standard check for p_commit
3513: END IF;
3514: END IF;
3515:
3516: -- Standard check for p_commit
3517: IF FND_API.to_Boolean( p_commit )
3518: THEN
3519: COMMIT WORK;
3520: END IF;
3521:
3528: (p_count => x_msg_count,
3529: p_data => x_msg_data
3530: );
3531: EXCEPTION
3532: WHEN FND_API.G_EXC_ERROR THEN
3533: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3534: x_return_status := FND_API.G_RET_STS_ERROR;
3535: -- Standard call to get message count and if count=1, get the message
3536: FND_MSG_PUB.Count_And_Get (
3530: );
3531: EXCEPTION
3532: WHEN FND_API.G_EXC_ERROR THEN
3533: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3534: x_return_status := FND_API.G_RET_STS_ERROR;
3535: -- Standard call to get message count and if count=1, get the message
3536: FND_MSG_PUB.Count_And_Get (
3537: p_encoded => FND_API.G_FALSE,
3538: p_count => x_msg_count,
3533: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3534: x_return_status := FND_API.G_RET_STS_ERROR;
3535: -- Standard call to get message count and if count=1, get the message
3536: FND_MSG_PUB.Count_And_Get (
3537: p_encoded => FND_API.G_FALSE,
3538: p_count => x_msg_count,
3539: p_data => x_msg_data
3540: );
3541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3537: p_encoded => FND_API.G_FALSE,
3538: p_count => x_msg_count,
3539: p_data => x_msg_data
3540: );
3541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3542: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3544: -- Standard call to get message count and if count=1, get the message
3545: FND_MSG_PUB.Count_And_Get (
3539: p_data => x_msg_data
3540: );
3541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3542: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3544: -- Standard call to get message count and if count=1, get the message
3545: FND_MSG_PUB.Count_And_Get (
3546: p_encoded => FND_API.G_FALSE,
3547: p_count => x_msg_count,
3542: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3544: -- Standard call to get message count and if count=1, get the message
3545: FND_MSG_PUB.Count_And_Get (
3546: p_encoded => FND_API.G_FALSE,
3547: p_count => x_msg_count,
3548: p_data => x_msg_data
3549: );
3550: WHEN OTHERS THEN
3548: p_data => x_msg_data
3549: );
3550: WHEN OTHERS THEN
3551: ROLLBACK TO update_supp_code_conv_tbl_pvt;
3552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3554: THEN
3555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3556: END IF;
3555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3556: END IF;
3557: -- Standard call to get message count and if count=1, get the message
3558: FND_MSG_PUB.Count_And_Get (
3559: p_encoded => FND_API.G_FALSE,
3560: p_count => x_msg_count,
3561: p_data => x_msg_data
3562: );
3563:
3567:
3568: PROCEDURE Delete_Supp_Code_Conv_Tbl
3569: (
3570: p_api_version_number IN NUMBER,
3571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3574: x_return_status OUT NOCOPY VARCHAR2,
3575: x_msg_count OUT NOCOPY NUMBER,
3568: PROCEDURE Delete_Supp_Code_Conv_Tbl
3569: (
3570: p_api_version_number IN NUMBER,
3571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3574: x_return_status OUT NOCOPY VARCHAR2,
3575: x_msg_count OUT NOCOPY NUMBER,
3576: x_msg_data OUT NOCOPY VARCHAR2,
3569: (
3570: p_api_version_number IN NUMBER,
3571: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3572: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3573: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3574: x_return_status OUT NOCOPY VARCHAR2,
3575: x_msg_count OUT NOCOPY NUMBER,
3576: x_msg_data OUT NOCOPY VARCHAR2,
3577: p_supp_code_conversion_tbl IN supp_code_conversion_Tbl_Type
3594: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3595: END IF;
3596:
3597: -- Standard call to check for call compatibility.
3598: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3599: p_api_version_number,
3600: l_api_name,
3601: G_PKG_NAME)
3602: THEN
3599: p_api_version_number,
3600: l_api_name,
3601: G_PKG_NAME)
3602: THEN
3603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3604: END IF;
3605:
3606: -- Initialize message list if p_init_msg_list is set to TRUE.
3607: IF FND_API.to_Boolean( p_init_msg_list )
3603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3604: END IF;
3605:
3606: -- Initialize message list if p_init_msg_list is set to TRUE.
3607: IF FND_API.to_Boolean( p_init_msg_list )
3608: THEN
3609: FND_MSG_PUB.initialize;
3610: END IF;
3611:
3618: THEN
3619: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3620: FND_MSG_PUB.ADD;
3621: END IF;
3622: RAISE FND_API.G_EXC_ERROR;
3623: END IF;
3624:
3625: -- Debug Message
3626: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3628: END IF;
3629:
3630:
3631: -- Initialize API return status to SUCCESS
3632: x_return_status := FND_API.G_RET_STS_SUCCESS;
3633:
3634: FOR i IN P_supp_code_conversion_Tbl.first .. P_supp_code_conversion_Tbl.last
3635: LOOP
3636:
3651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3652: FND_MESSAGE.set_name('OZF', 'OZF_REQ_PARAMETERS_MISSING');
3653: FND_MSG_PUB.add;
3654: END IF;
3655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3656: ELSE
3657: Delete_supp_code_Conversion(
3658: p_api_version_number => 1.0,
3659: p_init_msg_list => FND_API.G_FALSE,
3655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3656: ELSE
3657: Delete_supp_code_Conversion(
3658: p_api_version_number => 1.0,
3659: p_init_msg_list => FND_API.G_FALSE,
3660: p_commit => FND_API.G_FALSE,
3661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3662: x_return_status => X_Return_Status ,
3663: x_msg_count => X_Msg_Count ,
3656: ELSE
3657: Delete_supp_code_Conversion(
3658: p_api_version_number => 1.0,
3659: p_init_msg_list => FND_API.G_FALSE,
3660: p_commit => FND_API.G_FALSE,
3661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3662: x_return_status => X_Return_Status ,
3663: x_msg_count => X_Msg_Count ,
3664: x_msg_data => X_Msg_Data ,
3657: Delete_supp_code_Conversion(
3658: p_api_version_number => 1.0,
3659: p_init_msg_list => FND_API.G_FALSE,
3660: p_commit => FND_API.G_FALSE,
3661: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3662: x_return_status => X_Return_Status ,
3663: x_msg_count => X_Msg_Count ,
3664: x_msg_data => X_Msg_Data ,
3665: p_code_conversion_id => l_code_conversion_id,
3666: p_object_version_number => l_object_version_number
3667: );
3668:
3669:
3670: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: END IF;
3673:
3674: END IF;
3667: );
3668:
3669:
3670: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3671: RAISE FND_API.G_EXC_ERROR;
3672: END IF;
3673:
3674: END IF;
3675:
3676: END LOOP;
3677:
3678:
3679: -- Standard check for p_commit
3680: IF FND_API.to_Boolean( p_commit )
3681: THEN
3682: COMMIT WORK;
3683: END IF;
3684:
3691: (p_count => x_msg_count,
3692: p_data => x_msg_data
3693: );
3694: EXCEPTION
3695: WHEN FND_API.G_EXC_ERROR THEN
3696: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3697: x_return_status := FND_API.G_RET_STS_ERROR;
3698: -- Standard call to get message count and if count=1, get the message
3699: FND_MSG_PUB.Count_And_Get (
3693: );
3694: EXCEPTION
3695: WHEN FND_API.G_EXC_ERROR THEN
3696: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3697: x_return_status := FND_API.G_RET_STS_ERROR;
3698: -- Standard call to get message count and if count=1, get the message
3699: FND_MSG_PUB.Count_And_Get (
3700: p_encoded => FND_API.G_FALSE,
3701: p_count => x_msg_count,
3696: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3697: x_return_status := FND_API.G_RET_STS_ERROR;
3698: -- Standard call to get message count and if count=1, get the message
3699: FND_MSG_PUB.Count_And_Get (
3700: p_encoded => FND_API.G_FALSE,
3701: p_count => x_msg_count,
3702: p_data => x_msg_data
3703: );
3704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3700: p_encoded => FND_API.G_FALSE,
3701: p_count => x_msg_count,
3702: p_data => x_msg_data
3703: );
3704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3705: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3707: -- Standard call to get message count and if count=1, get the message
3708: FND_MSG_PUB.Count_And_Get (
3702: p_data => x_msg_data
3703: );
3704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3705: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3707: -- Standard call to get message count and if count=1, get the message
3708: FND_MSG_PUB.Count_And_Get (
3709: p_encoded => FND_API.G_FALSE,
3710: p_count => x_msg_count,
3705: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3707: -- Standard call to get message count and if count=1, get the message
3708: FND_MSG_PUB.Count_And_Get (
3709: p_encoded => FND_API.G_FALSE,
3710: p_count => x_msg_count,
3711: p_data => x_msg_data
3712: );
3713: WHEN OTHERS THEN
3711: p_data => x_msg_data
3712: );
3713: WHEN OTHERS THEN
3714: ROLLBACK TO delete_supp_code_conv_tbl_pvt;
3715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3716: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3717: THEN
3718: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3719: END IF;
3718: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3719: END IF;
3720: -- Standard call to get message count and if count=1, get the message
3721: FND_MSG_PUB.Count_And_Get (
3722: p_encoded => FND_API.G_FALSE,
3723: p_count => x_msg_count,
3724: p_data => x_msg_data
3725: );
3726:
3732:
3733: PROCEDURE Delete_supp_code_Conversion
3734: (
3735: p_api_version_number IN NUMBER,
3736: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3737: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3738: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3739: x_return_status OUT NOCOPY VARCHAR2,
3740: x_msg_count OUT NOCOPY NUMBER,
3733: PROCEDURE Delete_supp_code_Conversion
3734: (
3735: p_api_version_number IN NUMBER,
3736: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3737: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3738: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3739: x_return_status OUT NOCOPY VARCHAR2,
3740: x_msg_count OUT NOCOPY NUMBER,
3741: x_msg_data OUT NOCOPY VARCHAR2,
3734: (
3735: p_api_version_number IN NUMBER,
3736: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3737: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3738: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3739: x_return_status OUT NOCOPY VARCHAR2,
3740: x_msg_count OUT NOCOPY NUMBER,
3741: x_msg_data OUT NOCOPY VARCHAR2,
3742: p_code_conversion_id IN NUMBER,
3753: -- Standard Start of API savepoint
3754: SAVEPOINT delete_supp_code_conv_pvt;
3755:
3756: -- Standard call to check for call compatibility.
3757: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3758: p_api_version_number,
3759: l_api_name,
3760: G_PKG_NAME)
3761: THEN
3758: p_api_version_number,
3759: l_api_name,
3760: G_PKG_NAME)
3761: THEN
3762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3763: END IF;
3764:
3765: -- Initialize message list if p_init_msg_list is set to TRUE.
3766: IF FND_API.to_Boolean( p_init_msg_list )
3762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3763: END IF;
3764:
3765: -- Initialize message list if p_init_msg_list is set to TRUE.
3766: IF FND_API.to_Boolean( p_init_msg_list )
3767: THEN
3768: FND_MSG_PUB.initialize;
3769: END IF;
3770:
3774: END IF;
3775:
3776:
3777: -- Initialize API return status to SUCCESS
3778: x_return_status := FND_API.G_RET_STS_SUCCESS;
3779:
3780:
3781:
3782:
3791: OZF_CODE_CONVERSION_PKG.Delete_Supp_Code_Conv_Row( p_code_conversion_id => p_code_conversion_id,
3792: p_object_version_number => p_object_version_number );
3793: EXCEPTION
3794: WHEN OTHERS THEN
3795: RAISE FND_API.G_EXC_ERROR;
3796: END;
3797:
3798: -- Standard check for p_commit
3799: IF FND_API.to_Boolean( p_commit )
3795: RAISE FND_API.G_EXC_ERROR;
3796: END;
3797:
3798: -- Standard check for p_commit
3799: IF FND_API.to_Boolean( p_commit )
3800: THEN
3801: COMMIT WORK;
3802: END IF;
3803:
3811: (p_count => x_msg_count,
3812: p_data => x_msg_data
3813: );
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3816: ROLLBACK TO delete_supp_code_conv_pvt;
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- Standard call to get message count and if count=1, get the message
3819: FND_MSG_PUB.Count_And_Get (
3813: );
3814: EXCEPTION
3815: WHEN FND_API.G_EXC_ERROR THEN
3816: ROLLBACK TO delete_supp_code_conv_pvt;
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- Standard call to get message count and if count=1, get the message
3819: FND_MSG_PUB.Count_And_Get (
3820: p_encoded => FND_API.G_FALSE,
3821: p_count => x_msg_count,
3816: ROLLBACK TO delete_supp_code_conv_pvt;
3817: x_return_status := FND_API.G_RET_STS_ERROR;
3818: -- Standard call to get message count and if count=1, get the message
3819: FND_MSG_PUB.Count_And_Get (
3820: p_encoded => FND_API.G_FALSE,
3821: p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3820: p_encoded => FND_API.G_FALSE,
3821: p_count => x_msg_count,
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: ROLLBACK TO delete_supp_code_conv_pvt;
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: -- Standard call to get message count and if count=1, get the message
3828: FND_MSG_PUB.Count_And_Get (
3822: p_data => x_msg_data
3823: );
3824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3825: ROLLBACK TO delete_supp_code_conv_pvt;
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: -- Standard call to get message count and if count=1, get the message
3828: FND_MSG_PUB.Count_And_Get (
3829: p_encoded => FND_API.G_FALSE,
3830: p_count => x_msg_count,
3825: ROLLBACK TO delete_supp_code_conv_pvt;
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: -- Standard call to get message count and if count=1, get the message
3828: FND_MSG_PUB.Count_And_Get (
3829: p_encoded => FND_API.G_FALSE,
3830: p_count => x_msg_count,
3831: p_data => x_msg_data
3832: );
3833: WHEN OTHERS THEN
3831: p_data => x_msg_data
3832: );
3833: WHEN OTHERS THEN
3834: ROLLBACK TO delete_supp_code_conv_pvt;
3835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3836: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3837: THEN
3838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3839: END IF;
3838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3839: END IF;
3840: -- Standard call to get message count and if count=1, get the message
3841: FND_MSG_PUB.Count_And_Get (
3842: p_encoded => FND_API.G_FALSE,
3843: p_count => x_msg_count,
3844: p_data => x_msg_data
3845: );
3846: