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:
66:
67: -- ******************************************************************
68: -- Validate Environment
69: -- ******************************************************************
70: IF FND_GLOBAL.User_Id IS NULL
71: THEN
72: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
73: THEN
74: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
75: FND_MSG_PUB.ADD;
76: END IF;
71: THEN
72: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
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;
91:
92: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
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
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
117: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
118: END IF;
119:
120: l_code_conversion_id := NULL;
121: l_object_version_number := NULL;
122:
123: x_code_conversion_id_tbl := JTF_NUMBER_TABLE();
124:
125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
126: OZF_UTILITY_PVT.debug_message( 'No of rows to be created '|| p_code_conversion_tbl.count);
127: END IF;
128:
129: FOR i IN 1 .. p_code_conversion_tbl.count
144:
145:
146: SELECT ozf_code_conversions_all_s.nextval INTO l_code_conversion_id FROM DUAL;
147:
148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
149: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
150: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
151: END IF;
152:
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);
198: END IF;
199:
208: COMMIT WORK;
209: END IF;
210:
211: -- Debug Message
212: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
213: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
214: END IF;
215:
216: -- Standard call to get message count and if count is 1, get message info.
213: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
214: END IF;
215:
216: -- Standard call to get message count and if count is 1, get message info.
217: FND_MSG_PUB.Count_And_Get
218: (p_count => x_msg_count,
219: p_data => x_msg_data
220: );
221:
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;
231: WHEN FND_API.G_EXC_ERROR THEN
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;
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;
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,
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,
247: p_data => x_msg_data
248: );
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;
256: -- Standard call to get message count and if count=1, get the message
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;
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,
253: THEN
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: );
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:
352: -- ******************************************************************
353: -- Validate Environment
353: -- Validate Environment
354: -- ******************************************************************
355: IF FND_GLOBAL.User_Id IS NULL
356: THEN
357: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
358: THEN
359: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
360: FND_MSG_PUB.ADD;
361: END IF;
356: THEN
357: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
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 );
376: END IF;
377:
378: FOR i in 1 .. p_code_conversion_tbl.count
379: LOOP
380: p_code_conversion_rec := p_code_conversion_tbl(i);
381: l_code_conversion_id := p_code_conversion_rec.code_conversion_id;
382:
383: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
384: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID' || l_code_conversion_id);
385: END IF;
386:
387: -- Check for the existance of the record
420: ,l_code_conversion_rec.attribute14
421: ,l_code_conversion_rec.attribute15
422: ,l_code_conversion_rec.security_group_id;
423:
424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
425: OZF_UTILITY_PVT.debug_message('Existing description '|| l_code_conversion_rec.description);
426: END IF;
427:
428: IF ( csr_code_conversion%NOTFOUND) THEN
425: OZF_UTILITY_PVT.debug_message('Existing description '|| l_code_conversion_rec.description);
426: END IF;
427:
428: IF ( csr_code_conversion%NOTFOUND) THEN
429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
430: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
431: END IF;
432:
433: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
430: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
431: END IF;
432:
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;
431: END IF;
432:
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;
438: END IF;
439: CLOSE csr_code_conversion;
440:
441:
442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
443: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_code_conversion_rec.object_version_number);
444: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_code_conversion_rec.object_version_number);
445: END IF;
446:
446:
447: --- Check the Version Number for Locking
448: IF l_code_conversion_rec.object_version_number <> P_code_conversion_rec.Object_Version_number
449: THEN
450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
451: OZF_UTILITY_PVT.debug_message( 'dbver' || l_code_conversion_rec.object_version_number);
452: OZF_UTILITY_PVT.debug_message( 'reqver' || P_code_conversion_rec.object_version_number);
453: END IF;
454:
451: OZF_UTILITY_PVT.debug_message( 'dbver' || l_code_conversion_rec.object_version_number);
452: OZF_UTILITY_PVT.debug_message( 'reqver' || P_code_conversion_rec.object_version_number);
453: END IF;
454:
455: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
456: THEN
457: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
458: FND_MSG_PUB.ADD;
459: END IF;
454:
455: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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
465: l_code_conversion_rec.internal_code <> P_code_conversion_rec.internal_code
466: THEN
467: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
468: THEN
469: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_INTLCODE');
470: FND_MSG_PUB.ADD;
471: END IF;
466: THEN
467: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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);
477: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_code_conversion_rec.End_Date_Active);
478: END IF;
479:
481: IF trunc(nvl(l_code_conversion_Rec.End_Date_Active,sysdate+1)) <= TRUNC(SYSDATE)
482: AND
483: Trunc(l_code_conversion_Rec.End_Date_Active) <> Trunc(P_code_conversion_Rec.End_Date_Active)
484: THEN
485: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
486: THEN
487: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_ENDDATE');
488: FND_MSG_PUB.ADD;
489: END IF;
484: THEN
485: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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);
495: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_code_conversion_rec.Start_Date_Active);
496: END IF;
497:
500: <> trunc(P_code_conversion_Rec.Start_Date_Active)
501: THEN
502: IF p_code_conversion_Rec.Start_Date_Active < TRUNC(SYSDATE)
503: THEN
504: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
505: THEN
506: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_STARTDATE');
507: FND_MSG_PUB.ADD;
508: END IF;
503: THEN
504: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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)
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;
521:
522: -- Update not allowed for External Code
523: IF l_code_conversion_Rec.external_Code <> P_code_conversion_Rec.external_Code
524: THEN
525: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
526: THEN
527: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_EXTCD');
528: FND_MSG_PUB.ADD;
529: END IF;
524: THEN
525: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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;
538: -- Invoke validation procedures
539: Validate_Code_Conversion(
559:
560:
561: -- Call Update Table Handler
562: -- Debug Message
563: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
564: OZF_UTILITY_PVT.debug_message( 'Private API: Calling Update table handler');
565: END IF;
566: BEGIN
567: OZF_CODE_CONVERSION_PKG.Update_Row(
617: END IF;
618:
619:
620: -- Debug Message
621: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
622: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
623: END IF;
624: -- Standard call to get message count and if count is 1, get message info.
625: FND_MSG_PUB.Count_And_Get
621: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
622: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
623: END IF;
624: -- Standard call to get message count and if count is 1, get message info.
625: FND_MSG_PUB.Count_And_Get
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 (
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 (
644: p_encoded => FND_API.G_FALSE,
645: p_count => x_msg_count,
646: p_data => x_msg_data
647: );
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;
655: -- Standard call to get message count and if count=1, get the message
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;
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,
652: THEN
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: );
694: BEGIN
695: -- Standard Start of API savepoint
696: SAVEPOINT update_code_conversion_tbl_pvt;
697:
698: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
699: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
700: END IF;
701:
702: -- Standard call to check for call compatibility.
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:
717: -- ******************************************************************
718: -- Validate Environment
718: -- Validate Environment
719: -- ******************************************************************
720: IF FND_GLOBAL.User_Id IS NULL
721: THEN
722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
723: THEN
724: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
725: FND_MSG_PUB.ADD;
726: END IF;
721: THEN
722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
764: l_update_code_conv_tbl.extend;
765: l_update_code_conv_tbl(l_up_cnt) := P_code_conversion_Rec;
766: END IF;
767:
768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
769: OZF_UTILITY_PVT.debug_message('End Date '||P_code_conversion_Rec.end_date_active);
770: END IF;
771:
772: END LOOP;
770: END IF;
771:
772: END LOOP;
773:
774: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
775: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
776: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
777: END IF;
778:
821: COMMIT WORK;
822: END IF;
823:
824: -- Debug Message
825: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
826: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
827: END IF;
828: -- Standard call to get message count and if count is 1, get message info.
829: FND_MSG_PUB.Count_And_Get
825: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
826: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
827: END IF;
828: -- Standard call to get message count and if count is 1, get message info.
829: FND_MSG_PUB.Count_And_Get
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 (
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 (
848: p_encoded => FND_API.G_FALSE,
849: p_count => x_msg_count,
850: p_data => x_msg_data
851: );
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;
859: -- Standard call to get message count and if count=1, get the message
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;
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,
856: THEN
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: );
891: BEGIN
892: -- Standard Start of API savepoint
893: SAVEPOINT delete_code_conversion_tbl_pvt;
894:
895: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
896: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
897: END IF;
898:
899: -- Standard call to check for call compatibility.
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:
914: -- ******************************************************************
915: -- Validate Environment
915: -- Validate Environment
916: -- ******************************************************************
917: IF FND_GLOBAL.User_Id IS NULL
918: THEN
919: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
920: THEN
921: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
922: FND_MSG_PUB.ADD;
923: END IF;
918: THEN
919: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
929: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
930: END IF;
931:
932:
938:
939: l_code_conversion_id := P_code_conversion_Tbl(i).code_conversion_id;
940: l_object_version_number := P_code_conversion_Tbl(i).object_version_number;
941:
942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
943: OZF_UTILITY_PVT.debug_message('Code Conversion ID ' || l_code_conversion_id);
944: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
945: END IF;
946:
946:
947: IF l_object_version_number IS NULL
948: OR l_code_conversion_id IS NULL THEN
949:
950: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
951: OZF_UTILITY_PVT.debug_message('In If block');
952: END IF;
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');
949:
950: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
951: OZF_UTILITY_PVT.debug_message('In If block');
952: END IF;
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;
951: OZF_UTILITY_PVT.debug_message('In If block');
952: END IF;
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:
999: COMMIT WORK;
1000: END IF;
1001:
1002: -- Debug Message
1003: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1004: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1005: END IF;
1006: -- Standard call to get message count and if count is 1, get message info.
1007: FND_MSG_PUB.Count_And_Get
1003: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1004: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1005: END IF;
1006: -- Standard call to get message count and if count is 1, get message info.
1007: FND_MSG_PUB.Count_And_Get
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 (
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 (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1028: p_data => x_msg_data
1029: );
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;
1037: -- Standard call to get message count and if count=1, get the message
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;
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,
1034: THEN
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: );
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:
1177: -- Debug Message
1178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- Debug Message
1178: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1179: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1180: END IF;
1181:
1182:
1185:
1186: -- Validate the Delete Condition
1187: --
1188:
1189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1190: OZF_UTILITY_PVT.debug_message('Party ID in delete code conersion: ' || l_party_id);
1191: END IF;
1192: IF p_external_code IS NOT NULL THEN
1193:
1199: FETCH csr_code_conv_reason INTO l_dummy;
1200: CLOSE csr_code_conv_reason;
1201:
1202: IF l_dummy <> 0 Then
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;
1201:
1202: IF l_dummy <> 0 Then
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:
1251:
1252: END IF;
1253:
1254: for i in 1..ceil((length(l_sql)/100)) loop
1255: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1256: OZF_UTILITY_PVT.debug_message(substr(l_sql, (i-1)*100+1, 100));
1257: END IF;
1258: end loop;
1259: IF g_party_id IS NULL THEN
1309: FETCH csr_code_conv_uom INTO l_dummy;
1310: CLOSE csr_code_conv_uom;
1311: END IF;
1312: IF l_dummy <> 0 THEN
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;
1311: END IF;
1312: IF l_dummy <> 0 THEN
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
1323: FETCH csr_code_conv_agrmt_uom INTO l_dummy;
1324: CLOSE csr_code_conv_agrmt_uom;
1325:
1326: IF l_dummy <> 0 THEN
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;
1325:
1326: IF l_dummy <> 0 THEN
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
1335: FETCH csr_code_conv_agmt_uom INTO l_dummy;
1336: CLOSE csr_code_conv_agmt_uom;
1337:
1338: IF l_dummy <> 0 THEN
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;
1337:
1338: IF l_dummy <> 0 THEN
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;
1356: , g_account_id);
1357: FETCH csr_code_conv_agreement_pt INTO l_dummy;
1358: CLOSE csr_code_conv_agreement_pt;
1359:
1360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1361: OZF_UTILITY_PVT.debug_message('l_dummy in delete code conersion: ' || l_dummy);
1362: END IF;
1363: END IF;
1364: IF G_PARTY_ID IS NULL AND G_ACCOUNT_ID IS NULL THEN
1366: FETCH csr_code_conv_agreement INTO l_dummy;
1367: CLOSE csr_code_conv_agreement;
1368: END IF;
1369: IF l_dummy <> 0 THEN
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;
1368: END IF;
1369: IF l_dummy <> 0 THEN
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
1382: ,g_party_id
1383: ,g_account_id);
1384: FETCH csr_code_conv_product_pt INTO l_dummy;
1385: CLOSE csr_code_conv_product_pt;
1386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1387: OZF_UTILITY_PVT.debug_message('l_dummy in delete code conersion: ' || l_dummy);
1388: END IF;
1389: END IF;
1390: -- Delete from site Profile
1393: FETCH csr_code_conv_product INTO l_dummy;
1394: CLOSE csr_code_conv_product;
1395: END IF;
1396: IF l_dummy <> 0 THEN
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;
1395: END IF;
1396: IF l_dummy <> 0 THEN
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
1433: l_sql := l_sql || l_where;
1434: l_interface_sql := l_interface_sql || l_where;
1435: END IF;
1436: for i in 1..ceil((length(l_sql)/100)) loop
1437: IF fnd_msg_pub.Check_Msg_Level (fnd_msg_pub.G_MSG_LVL_DEBUG_LOW) THEN
1438: OZF_UTILITY_PVT.debug_message(substr(l_sql, (i-1)*100+1, 100));
1439: END IF;
1440: end loop;
1441: IF g_party_id IS NULL THEN
1484: FETCH csr_code_conv_party INTO l_dummy;
1485: CLOSE csr_code_conv_party;
1486: END IF;
1487: IF l_dummy <> 0 THEN
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;
1486: END IF;
1487: IF l_dummy <> 0 THEN
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:
1574: FETCH csr_code_conv_party INTO l_dummy;
1575: CLOSE csr_code_conv_party;
1576: END IF;
1577: IF l_dummy <> 0 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;
1576: END IF;
1577: IF l_dummy <> 0 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
1587:
1588: -- Api body
1589: --
1590: -- Debug Message
1591: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1592: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
1593: END IF;
1594:
1595: BEGIN
1606: COMMIT WORK;
1607: END IF;
1608:
1609: -- Debug Message
1610: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1611: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1612: END IF;
1613:
1614: -- Standard call to get message count and if count is 1, get message info.
1611: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1612: END IF;
1613:
1614: -- Standard call to get message count and if count is 1, get message info.
1615: FND_MSG_PUB.Count_And_Get
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 (
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 (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
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;
1645: -- Standard call to get message count and if count=1, get the message
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;
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,
1642: THEN
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: );
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;
1730: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1736: p_code_conversion_rec.party_id IS NULL
1737: THEN
1738: l_org_dummy := 0;
1739:
1740: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1741: OZF_UTILITY_PVT.debug_message('External code ' ||p_code_conversion_rec.external_code );
1742: OZF_UTILITY_PVT.debug_message('Start date active '|| p_code_conversion_rec.start_date_active );
1743: OZF_UTILITY_PVT.debug_message('End date active ' || p_code_conversion_rec.end_date_active );
1744: OZF_UTILITY_PVT.debug_message('Org ID ' || p_code_conversion_rec.org_id );
1753: INTO l_org_dummy;
1754: CLOSE csr_code_conv_4org;
1755:
1756:
1757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1758: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for org ' || p_code_conversion_rec.org_id );
1759: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1760: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1761: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
1776: FETCH csr_code_conv_4party
1777: INTO l_party_dummy;
1778: CLOSE csr_code_conv_4party;
1779:
1780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1781: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for party ' || p_code_conversion_rec.party_id );
1782: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1783: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1784: OZF_UTILITY_PVT.debug_message('and end date active ' || p_code_conversion_rec.end_date_active );
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);
1794: END IF;
1795: END IF;
1796: ELSE
1803: p_code_conversion_rec.org_id);
1804: FETCH csr_code_conv_4acct INTO l_acct_dummy;
1805: CLOSE csr_code_conv_4acct;
1806:
1807: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
1808: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_code_conversion_rec.external_code || ' for account ' || p_code_conversion_rec.cust_account_id );
1809: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_code_conversion_rec.internal_code );
1810: OZF_UTILITY_PVT.debug_message('with start date active '|| p_code_conversion_rec.start_date_active );
1811: OZF_UTILITY_PVT.debug_message('and end date active ' ||nvl(p_code_conversion_rec.end_date_active,sysdate) );
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;
1828: x_return_status := FND_API.G_RET_STS_ERROR;
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;
1828: x_return_status := FND_API.G_RET_STS_ERROR;
1829: END IF;
1830:
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;
1859:
1860: IF p_code_conversion_rec.external_code = FND_API.g_miss_char OR
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'));
1865: FND_MSG_PUB.add;
1866: END IF;
1867: x_return_status := FND_API.G_RET_STS_ERROR;
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'));
1865: FND_MSG_PUB.add;
1866: END IF;
1867: x_return_status := FND_API.G_RET_STS_ERROR;
1868: RETURN;
1869: 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
1872: OZF_UTILITY_PVT.debug_message('external code '||p_code_conversion_rec.external_code);
1873: OZF_UTILITY_PVT.debug_message('end of check_code_conv_req_items');
1874: END IF;
1875:
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;
1901:
1902: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1902: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1903:
1904: IF NVL(p_code_conversion_rec.start_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
1905: THEN
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;
1904: IF NVL(p_code_conversion_rec.start_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
1905: THEN
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;
1915:
1916: -- IF NVL(p_code_conversion_rec.end_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
1917: IF (TO_DATE(TO_CHAR(NVL(p_code_conversion_rec.end_date_active,TRUNC(SYSDATE)), 'DD/MM/YYYY'),'DD/MM/YYYY') < TRUNC(SYSDATE))
1918: THEN
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;
1917: IF (TO_DATE(TO_CHAR(NVL(p_code_conversion_rec.end_date_active,TRUNC(SYSDATE)), 'DD/MM/YYYY'),'DD/MM/YYYY') < TRUNC(SYSDATE))
1918: THEN
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:
1929: -- NVL(p_code_conversion_rec.end_date_active,NVL(p_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)) + 1)
1930: IF (TO_DATE(TO_CHAR(NVL(p_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)),'DD/MM/YYYY'),'DD/MM/YYYY') >
1931: TO_DATE(TO_CHAR(NVL(p_code_conversion_rec.end_date_active, NVL(p_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)) +1 ), 'DD/MM/YYYY'),'DD/MM/YYYY'))
1932: THEN
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;
1931: TO_DATE(TO_CHAR(NVL(p_code_conversion_rec.end_date_active, NVL(p_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)) +1 ), 'DD/MM/YYYY'),'DD/MM/YYYY'))
1932: THEN
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:
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;
1960:
1961: check_code_conv_req_items( p_code_conversion_rec,
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
1970: OZF_UTILITY_PVT.debug_message('after check_code_conv_req_items ' );
1971: END IF;
1972:
1973:
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
1983: OZF_UTILITY_PVT.debug_message('after check_uniq_code_conversion ' );
1984: END IF;
1985:
1986: check_code_conversion_dt (p_code_conversion_rec,
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
1995: OZF_UTILITY_PVT.debug_message('after check_code_conversion_dt ' );
1996: END IF;
1997:
1998: END check_code_conversion_items;
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 )
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 );
2041: THEN
2042: FND_MSG_PUB.initialize;
2043: END IF;
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
2053: LOOP
2054: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2055: OZF_UTILITY_PVT.debug_message('inside the loop p_code_conversion_tbl ' );
2056: END IF;
2057: l_code_conversion_rec := p_code_conversion_tbl(i);
2058:
2055: OZF_UTILITY_PVT.debug_message('inside the loop p_code_conversion_tbl ' );
2056: END IF;
2057: l_code_conversion_rec := p_code_conversion_tbl(i);
2058:
2059: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2060: OZF_UTILITY_PVT.debug_message('External code ' || l_code_conversion_rec.external_code );
2061: OZF_UTILITY_PVT.debug_message('Start date active '|| l_code_conversion_rec.start_date_active );
2062: OZF_UTILITY_PVT.debug_message('End date active ' || l_code_conversion_rec.end_date_active );
2063: END IF;
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
2085: );
2086: EXCEPTION
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;
2093: WHEN FND_API.G_EXC_ERROR THEN
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;
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;
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,
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,
2109: p_data => x_msg_data
2110: );
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;
2118: -- Standard call to get message count and if count=1, get the message
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;
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,
2115: THEN
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: );
2228:
2229: CLOSE csr_get_internal_code_party;
2230: END IF;
2231:
2232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2233: OZF_UTILITY_PVT.debug_message(' Internal Code ' || l_internal_code);
2234: END IF;
2235: x_internal_code := l_internal_code;
2236:
2249:
2250: IF csr_get_internal_code%ISOPEN THEN
2251: CLOSE csr_get_internal_code;
2252: END IF;
2253: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2254: THEN
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
2251: CLOSE csr_get_internal_code;
2252: END IF;
2253: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2254: THEN
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,
2254: THEN
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: );
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;
2313:
2332: FETCH csr_code_conv
2333: INTO l_dummy;
2334: CLOSE csr_code_conv;
2335:
2336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2337: OZF_UTILITY_PVT.debug_message('Duplicate code map value ' || p_supp_code_conversion_rec.external_code || ' for org ' || p_supp_code_conversion_rec.org_id );
2338: OZF_UTILITY_PVT.debug_message('and internal code ' ||p_supp_code_conversion_rec.internal_code );
2339: OZF_UTILITY_PVT.debug_message('with start date active '|| p_supp_code_conversion_rec.start_date_active );
2340: OZF_UTILITY_PVT.debug_message('and end date active ' || p_supp_code_conversion_rec.end_date_active );
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;
2356: x_return_status := FND_API.G_RET_STS_ERROR;
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;
2356: x_return_status := FND_API.G_RET_STS_ERROR;
2357: RETURN;
2358: END IF;
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;
2388:
2389: IF p_supp_code_conversion_rec.external_code = FND_API.g_miss_char OR
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'));
2394: FND_MSG_PUB.add;
2395: END IF;
2396: x_return_status := FND_API.G_RET_STS_ERROR;
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'));
2394: FND_MSG_PUB.add;
2395: END IF;
2396: x_return_status := FND_API.G_RET_STS_ERROR;
2397: RETURN;
2398: 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
2401: OZF_UTILITY_PVT.debug_message('external code '||p_supp_code_conversion_rec.external_code);
2402: OZF_UTILITY_PVT.debug_message('end of check_supp_code_conv_req_items');
2403: END IF;
2404:
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;
2430:
2431: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2431: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2432:
2433: IF NVL(p_supp_code_conversion_rec.start_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
2434: THEN
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;
2433: IF NVL(p_supp_code_conversion_rec.start_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
2434: THEN
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;
2445:
2446: -- IF NVL(p_supp_code_conversion_rec.end_date_active,TRUNC(SYSDATE)) < TRUNC(SYSDATE)
2447: IF (TO_DATE(TO_CHAR(NVL(p_supp_code_conversion_rec.end_date_active,TRUNC(SYSDATE)), 'DD/MM/YYYY'),'DD/MM/YYYY') < TRUNC(SYSDATE))
2448: THEN
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;
2447: IF (TO_DATE(TO_CHAR(NVL(p_supp_code_conversion_rec.end_date_active,TRUNC(SYSDATE)), 'DD/MM/YYYY'),'DD/MM/YYYY') < TRUNC(SYSDATE))
2448: THEN
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;
2457:
2458: IF (TO_DATE(TO_CHAR(NVL(p_supp_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)),'DD/MM/YYYY'),'DD/MM/YYYY') >
2459: TO_DATE(TO_CHAR(NVL(p_supp_code_conversion_rec.end_date_active, NVL(p_supp_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)) +1 ), 'DD/MM/YYYY'),'DD/MM/YYYY'))
2460: THEN
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;
2459: TO_DATE(TO_CHAR(NVL(p_supp_code_conversion_rec.end_date_active, NVL(p_supp_code_conversion_rec.Start_Date_Active,TRUNC(SYSDATE)) +1 ), 'DD/MM/YYYY'),'DD/MM/YYYY'))
2460: THEN
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;
2542:
2543: IF csr_get_internal_code%ISOPEN THEN
2544: CLOSE csr_get_internal_code;
2545: END IF;
2546: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2547: THEN
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
2544: CLOSE csr_get_internal_code;
2545: END IF;
2546: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2547: THEN
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,
2547: THEN
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: );
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;
2578:
2579: check_supp_code_conv_req_items( p_supp_code_conversion_rec,
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
2588: OZF_UTILITY_PVT.debug_message('after check_supp_code_conv_req_items ' );
2589: END IF;
2590:
2591:
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
2601: OZF_UTILITY_PVT.debug_message('after check_uniq_supp_code_conversion ' );
2602: END IF;
2603:
2604: check_supp_code_conversion_dt (p_supp_code_conversion_rec,
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
2613: OZF_UTILITY_PVT.debug_message('after check_supp_code_conversion_dt ' );
2614: END IF;
2615:
2616: END check_supp_code_conv_items;
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 )
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 );
2651: THEN
2652: FND_MSG_PUB.initialize;
2653: END IF;
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
2663: LOOP
2664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2665: OZF_UTILITY_PVT.debug_message('inside the loop p_supp_code_conversion_tbl ' );
2666: END IF;
2667: l_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
2668:
2665: OZF_UTILITY_PVT.debug_message('inside the loop p_supp_code_conversion_tbl ' );
2666: END IF;
2667: l_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
2668:
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2670: OZF_UTILITY_PVT.debug_message('External code ' || l_supp_code_conversion_rec.external_code );
2671: OZF_UTILITY_PVT.debug_message('Start date active '|| l_supp_code_conversion_rec.start_date_active );
2672: OZF_UTILITY_PVT.debug_message('End date active ' || l_supp_code_conversion_rec.end_date_active );
2673: END IF;
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
2694: );
2695: EXCEPTION
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;
2702: WHEN FND_API.G_EXC_ERROR THEN
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;
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;
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,
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,
2718: p_data => x_msg_data
2719: );
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;
2727: -- Standard call to get message count and if count=1, get the message
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;
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,
2724: THEN
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: );
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:
2778:
2779: -- ******************************************************************
2780: -- Validate Environment
2781: -- ******************************************************************
2782: IF FND_GLOBAL.User_Id IS NULL
2783: THEN
2784: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2785: THEN
2786: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
2787: FND_MSG_PUB.ADD;
2788: END IF;
2783: THEN
2784: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
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;
2803:
2804: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) 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
2825: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
2826: END IF;
2827:
2828: l_code_conversion_id := NULL;
2829: l_object_version_number := NULL;
2830:
2831: x_supp_code_conversion_id_tbl := JTF_NUMBER_TABLE();
2832:
2833: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2834: OZF_UTILITY_PVT.debug_message( 'No of rows to be created '|| p_supp_code_conversion_tbl.count);
2835: END IF;
2836:
2837: FOR i IN 1 .. p_supp_code_conversion_tbl.count
2845: l_org_id := l_supp_code_conversion_rec.org_id;
2846: END IF;
2847: SELECT ozf_supp_code_conv_all_s.nextval INTO l_code_conversion_id FROM DUAL;
2848:
2849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2850: OZF_UTILITY_PVT.debug_message( 'l_org_id ' || l_org_id);
2851: OZF_UTILITY_PVT.debug_message( 'Code Conversion ID '|| l_code_conversion_id);
2852: END IF;
2853:
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);
2898: END IF;
2899:
2908: COMMIT WORK;
2909: END IF;
2910:
2911: -- Debug Message
2912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
2913: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2914: END IF;
2915:
2916: -- Standard call to get message count and if count is 1, get message info.
2913: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2914: END IF;
2915:
2916: -- Standard call to get message count and if count is 1, get message info.
2917: FND_MSG_PUB.Count_And_Get
2918: (p_count => x_msg_count,
2919: p_data => x_msg_data
2920: );
2921:
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;
2931: WHEN FND_API.G_EXC_ERROR THEN
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;
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;
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,
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,
2947: p_data => x_msg_data
2948: );
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;
2956: -- Standard call to get message count and if count=1, get the message
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;
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,
2953: THEN
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: );
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:
3051: -- ******************************************************************
3052: -- Validate Environment
3052: -- Validate Environment
3053: -- ******************************************************************
3054: IF FND_GLOBAL.User_Id IS NULL
3055: THEN
3056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3057: THEN
3058: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3059: FND_MSG_PUB.ADD;
3060: END IF;
3055: THEN
3056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
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 );
3075: END IF;
3076:
3077: FOR i in 1 .. p_supp_code_conversion_tbl.count
3078: LOOP
3079: p_supp_code_conversion_rec := p_supp_code_conversion_tbl(i);
3080: l_code_conversion_id := p_supp_code_conversion_rec.code_conversion_id;
3081:
3082: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3083: OZF_UTILITY_PVT.debug_message( 'supp_code Conversion ID' || l_code_conversion_id);
3084: END IF;
3085:
3086: -- Check for the existance of the record
3118: ,l_supp_code_conversion_rec.attribute14
3119: ,l_supp_code_conversion_rec.attribute15
3120: ,l_supp_code_conversion_rec.security_group_id;
3121:
3122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3123: OZF_UTILITY_PVT.debug_message('Existing description '|| l_supp_code_conversion_rec.description);
3124: END IF;
3125:
3126: IF ( csr_supp_code_conversion%NOTFOUND) THEN
3123: OZF_UTILITY_PVT.debug_message('Existing description '|| l_supp_code_conversion_rec.description);
3124: END IF;
3125:
3126: IF ( csr_supp_code_conversion%NOTFOUND) THEN
3127: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3128: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
3129: END IF;
3130:
3131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3127: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3128: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'nodata for upd');
3129: END IF;
3130:
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;
3129: END IF;
3130:
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;
3136: END IF;
3137: CLOSE csr_supp_code_conversion;
3138:
3139:
3140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3141: OZF_UTILITY_PVT.debug_message( 'Pre Object Version Number ' || l_supp_code_conversion_rec.object_version_number);
3142: OZF_UTILITY_PVT.debug_message( 'Post Object Version Number' || P_supp_code_conversion_rec.object_version_number);
3143: END IF;
3144:
3144:
3145: --- Check the Version Number for Locking
3146: IF l_supp_code_conversion_rec.object_version_number <> P_supp_code_conversion_rec.Object_Version_number
3147: THEN
3148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3149: OZF_UTILITY_PVT.debug_message( 'dbver' || l_supp_code_conversion_rec.object_version_number);
3150: OZF_UTILITY_PVT.debug_message( 'reqver' || P_supp_code_conversion_rec.object_version_number);
3151: END IF;
3152:
3149: OZF_UTILITY_PVT.debug_message( 'dbver' || l_supp_code_conversion_rec.object_version_number);
3150: OZF_UTILITY_PVT.debug_message( 'reqver' || P_supp_code_conversion_rec.object_version_number);
3151: END IF;
3152:
3153: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3154: THEN
3155: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
3156: FND_MSG_PUB.ADD;
3157: END IF;
3152:
3153: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
3162: -- Update internal code only when it is NUll
3163: IF l_supp_code_conversion_rec.internal_code IS NOT NULL AND
3164: l_supp_code_conversion_rec.internal_code <> P_supp_code_conversion_rec.internal_code
3165: THEN
3166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3167: THEN
3168: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_INTLCODE');
3169: FND_MSG_PUB.ADD;
3170: END IF;
3165: THEN
3166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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);
3176: OZF_UTILITY_PVT.debug_message( 'Updated End Date' || p_supp_code_conversion_rec.End_Date_Active);
3177: END IF;
3178:
3180: IF trunc(nvl(l_supp_code_conversion_Rec.End_Date_Active,sysdate+1)) <= TRUNC(SYSDATE)
3181: AND
3182: Trunc(l_supp_code_conversion_Rec.End_Date_Active) <> Trunc(P_supp_code_conversion_Rec.End_Date_Active)
3183: THEN
3184: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3185: THEN
3186: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_ENDDATE');
3187: FND_MSG_PUB.ADD;
3188: END IF;
3183: THEN
3184: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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);
3194: OZF_UTILITY_PVT.debug_message( 'Updated Start Date' || p_supp_code_conversion_rec.Start_Date_Active);
3195: END IF;
3196:
3199: <> trunc(P_supp_code_conversion_Rec.Start_Date_Active)
3200: THEN
3201: IF p_supp_code_conversion_Rec.Start_Date_Active < TRUNC(SYSDATE)
3202: THEN
3203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3204: THEN
3205: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_STARTDATE');
3206: FND_MSG_PUB.ADD;
3207: END IF;
3202: THEN
3203: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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)
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;
3220:
3221: -- Update not allowed for External Code
3222: IF l_supp_code_conversion_Rec.external_Code <> P_supp_code_conversion_Rec.external_Code
3223: THEN
3224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3225: THEN
3226: FND_MESSAGE.Set_Name('OZF', 'OZF_CODE_CONV_UPD_EXTCD');
3227: FND_MSG_PUB.ADD;
3228: END IF;
3223: THEN
3224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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;
3237: -- Invoke validation procedures
3238: Validate_supp_code_Conv(
3258:
3259:
3260: -- Call Update Table Handler
3261: -- Debug Message
3262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3263: OZF_UTILITY_PVT.debug_message( 'Private API: Calling Update table handler');
3264: END IF;
3265: BEGIN
3266: OZF_CODE_CONVERSION_PKG.Update_Supp_Code_Conv_Row(
3315: END IF;
3316:
3317:
3318: -- Debug Message
3319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3320: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3321: END IF;
3322: -- Standard call to get message count and if count is 1, get message info.
3323: FND_MSG_PUB.Count_And_Get
3319: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3320: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3321: END IF;
3322: -- Standard call to get message count and if count is 1, get message info.
3323: FND_MSG_PUB.Count_And_Get
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 (
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 (
3342: p_encoded => FND_API.G_FALSE,
3343: p_count => x_msg_count,
3344: p_data => x_msg_data
3345: );
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;
3353: -- Standard call to get message count and if count=1, get the message
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;
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,
3350: THEN
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: );
3392: BEGIN
3393: -- Standard Start of API savepoint
3394: SAVEPOINT update_supp_code_conv_tbl_pvt;
3395:
3396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3397: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3398: END IF;
3399:
3400: -- Standard call to check for call compatibility.
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:
3415: -- ******************************************************************
3416: -- Validate Environment
3416: -- Validate Environment
3417: -- ******************************************************************
3418: IF FND_GLOBAL.User_Id IS NULL
3419: THEN
3420: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3421: THEN
3422: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3423: FND_MSG_PUB.ADD;
3424: END IF;
3419: THEN
3420: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
3462: l_update_supp_code_conv_tbl.extend;
3463: l_update_supp_code_conv_tbl(l_up_cnt) := P_supp_code_conversion_Rec;
3464: END IF;
3465:
3466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3467: OZF_UTILITY_PVT.debug_message('End Date '||P_supp_code_conversion_Rec.end_date_active);
3468: END IF;
3469:
3470: END LOOP;
3468: END IF;
3469:
3470: END LOOP;
3471:
3472: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3473: OZF_UTILITY_PVT.debug_message('No of rows to be created: ' || l_cc_cnt);
3474: OZF_UTILITY_PVT.debug_message('No of rows to be updated: ' || l_up_cnt);
3475: END IF;
3476:
3519: COMMIT WORK;
3520: END IF;
3521:
3522: -- Debug Message
3523: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3524: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3525: END IF;
3526: -- Standard call to get message count and if count is 1, get message info.
3527: FND_MSG_PUB.Count_And_Get
3523: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3524: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3525: END IF;
3526: -- Standard call to get message count and if count is 1, get message info.
3527: FND_MSG_PUB.Count_And_Get
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 (
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 (
3546: p_encoded => FND_API.G_FALSE,
3547: p_count => x_msg_count,
3548: p_data => x_msg_data
3549: );
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;
3557: -- Standard call to get message count and if count=1, get the message
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;
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,
3554: THEN
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: );
3589: BEGIN
3590: -- Standard Start of API savepoint
3591: SAVEPOINT delete_supp_code_conv_tbl_pvt;
3592:
3593: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3594: OZF_UTILITY_PVT.debug_message('Entered the proc tbl');
3595: END IF;
3596:
3597: -- Standard call to check for call compatibility.
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:
3612: -- ******************************************************************
3613: -- Validate Environment
3613: -- Validate Environment
3614: -- ******************************************************************
3615: IF FND_GLOBAL.User_Id IS NULL
3616: THEN
3617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3618: THEN
3619: FND_MESSAGE.Set_Name('OZF', 'OZF_USER_PROFILE_MISSING');
3620: FND_MSG_PUB.ADD;
3621: END IF;
3616: THEN
3617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
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:
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
3627: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3628: END IF;
3629:
3630:
3636:
3637: l_code_conversion_id := P_supp_code_conversion_Tbl(i).code_conversion_id;
3638: l_object_version_number := P_supp_code_conversion_Tbl(i).object_version_number;
3639:
3640: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3641: OZF_UTILITY_PVT.debug_message('supp_code Conversion ID ' || l_code_conversion_id);
3642: OZF_UTILITY_PVT.debug_message('Object Version Number ' || l_object_version_number);
3643: END IF;
3644:
3644:
3645: IF l_object_version_number IS NULL
3646: OR l_code_conversion_id IS NULL THEN
3647:
3648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3649: OZF_UTILITY_PVT.debug_message('In If block');
3650: END IF;
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');
3647:
3648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3649: OZF_UTILITY_PVT.debug_message('In If block');
3650: END IF;
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;
3649: OZF_UTILITY_PVT.debug_message('In If block');
3650: END IF;
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(
3682: COMMIT WORK;
3683: END IF;
3684:
3685: -- Debug Message
3686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3687: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3688: END IF;
3689: -- Standard call to get message count and if count is 1, get message info.
3690: FND_MSG_PUB.Count_And_Get
3686: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3687: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3688: END IF;
3689: -- Standard call to get message count and if count is 1, get message info.
3690: FND_MSG_PUB.Count_And_Get
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 (
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 (
3709: p_encoded => FND_API.G_FALSE,
3710: p_count => x_msg_count,
3711: p_data => x_msg_data
3712: );
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;
3720: -- Standard call to get message count and if count=1, get the message
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;
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,
3717: THEN
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: );
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:
3771: -- Debug Message
3772: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3768: FND_MSG_PUB.initialize;
3769: END IF;
3770:
3771: -- Debug Message
3772: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3773: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3774: END IF;
3775:
3776:
3782:
3783: -- Api body
3784: --
3785: -- Debug Message
3786: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3787: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
3788: END IF;
3789:
3790: BEGIN
3801: COMMIT WORK;
3802: END IF;
3803:
3804: -- Debug Message
3805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low) THEN
3806: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3807: END IF;
3808:
3809: -- Standard call to get message count and if count is 1, get message info.
3806: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
3807: END IF;
3808:
3809: -- Standard call to get message count and if count is 1, get message info.
3810: FND_MSG_PUB.Count_And_Get
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 (
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 (
3829: p_encoded => FND_API.G_FALSE,
3830: p_count => x_msg_count,
3831: p_data => x_msg_data
3832: );
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;
3840: -- Standard call to get message count and if count=1, get the message
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;
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,
3837: THEN
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: );