[Home] [Help]
23: -- Hint: Primary key needs to be returned.
24:
25: PROCEDURE Create_Attribute_Code(
26: p_api_version_number IN NUMBER
27: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
29: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
30:
31: ,x_return_status OUT NOCOPY VARCHAR2
24:
25: PROCEDURE Create_Attribute_Code(
26: p_api_version_number IN NUMBER
27: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
29: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
30:
31: ,x_return_status OUT NOCOPY VARCHAR2
32: ,x_msg_count OUT NOCOPY NUMBER
25: PROCEDURE Create_Attribute_Code(
26: p_api_version_number IN NUMBER
27: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
29: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
30:
31: ,x_return_status OUT NOCOPY VARCHAR2
32: ,x_msg_count OUT NOCOPY NUMBER
33: ,x_msg_data OUT NOCOPY VARCHAR2
40: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
41: l_api_version_number CONSTANT NUMBER := 1.0;
42: l_return_status_full VARCHAR2(1);
43: l_object_version_number NUMBER := 1;
44: l_org_id NUMBER := FND_API.G_MISS_NUM;
45: l_attr_code_id NUMBER;
46: l_dummy NUMBER;
47: l_attribute_code_rec attribute_code_rec_type := p_attribute_code_rec;
48:
59: -- Standard Start of API savepoint
60: SAVEPOINT CREATE_Attribute_Code_PVT;
61:
62: -- Standard call to check for call compatibility.
63: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
64: p_api_version_number,
65: l_api_name,
66: G_PKG_NAME)
67: THEN
64: p_api_version_number,
65: l_api_name,
66: G_PKG_NAME)
67: THEN
68: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: -- Initialize message list if p_init_msg_list is set to TRUE.
72: IF FND_API.to_Boolean( p_init_msg_list )
68: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
69: END IF;
70:
71: -- Initialize message list if p_init_msg_list is set to TRUE.
72: IF FND_API.to_Boolean( p_init_msg_list )
73: THEN
74: FND_MSG_PUB.initialize;
75: END IF;
76:
80: end if;
81:
82:
83: -- Initialize API return status to SUCCESS
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86: -- Local variable initialization
87:
88: IF p_attribute_code_rec.attr_code_id IS NULL
85:
86: -- Local variable initialization
87:
88: IF p_attribute_code_rec.attr_code_id IS NULL
89: OR p_attribute_code_rec.attr_code_id = FND_API.g_miss_num THEN
90: LOOP
91: l_dummy := NULL;
92: OPEN c_id;
93: FETCH c_id INTO l_attr_code_id;
111: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
112: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
113: FND_MSG_PUB.add;
114: end if;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
119: THEN
114: end if;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
119: THEN
120: -- Debug message
121: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
122: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Validate_Attribute_Code');
135:
136: -- Invoke validation procedures
137: Validate_Attribute_Code(
138: p_api_version_number => 1.0
139: ,p_init_msg_list => FND_API.G_FALSE
140: ,p_validation_level => p_validation_level
141: ,p_validation_mode => JTF_PLSQL_API.g_create
142: ,p_attribute_code_rec => l_attribute_code_rec
143: ,x_return_status => x_return_status
147:
148: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Validate_attribute_code' );
149: END IF;
150:
151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Validate' );
148: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Validate_attribute_code' );
149: END IF;
150:
151: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154:
155: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Validate' );
156: -- Debug Message
177: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After' );
178:
179: x_ATTR_CODE_ID := l_attribute_code_rec.attr_code_id;
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: --
185: -- End of API body
178:
179: x_ATTR_CODE_ID := l_attribute_code_rec.attr_code_id;
180:
181: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184: --
185: -- End of API body
186: --
185: -- End of API body
186: --
187:
188: -- Standard check for p_commit
189: IF FND_API.to_Boolean( p_commit )
190: THEN
191: COMMIT WORK;
192: END IF;
193:
204: );
205: EXCEPTION
206: /*
207: WHEN PVX_Utility_PVT.resource_locked THEN
208: x_return_status := FND_API.g_ret_sts_error;
209: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
210: */
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO CREATE_Attribute_Code_PVT;
207: WHEN PVX_Utility_PVT.resource_locked THEN
208: x_return_status := FND_API.g_ret_sts_error;
209: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
210: */
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO CREATE_Attribute_Code_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: -- Standard call to get message count and if count=1, get the message
215: FND_MSG_PUB.Count_And_Get (
209: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
210: */
211: WHEN FND_API.G_EXC_ERROR THEN
212: ROLLBACK TO CREATE_Attribute_Code_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: -- Standard call to get message count and if count=1, get the message
215: FND_MSG_PUB.Count_And_Get (
216: p_encoded => FND_API.G_FALSE,
217: p_count => x_msg_count,
212: ROLLBACK TO CREATE_Attribute_Code_PVT;
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: -- Standard call to get message count and if count=1, get the message
215: FND_MSG_PUB.Count_And_Get (
216: p_encoded => FND_API.G_FALSE,
217: p_count => x_msg_count,
218: p_data => x_msg_data
219: );
220:
217: p_count => x_msg_count,
218: p_data => x_msg_data
219: );
220:
221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222: ROLLBACK TO CREATE_Attribute_Code_PVT;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: -- Standard call to get message count and if count=1, get the message
225: FND_MSG_PUB.Count_And_Get (
219: );
220:
221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222: ROLLBACK TO CREATE_Attribute_Code_PVT;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: -- Standard call to get message count and if count=1, get the message
225: FND_MSG_PUB.Count_And_Get (
226: p_encoded => FND_API.G_FALSE,
227: p_count => x_msg_count,
222: ROLLBACK TO CREATE_Attribute_Code_PVT;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: -- Standard call to get message count and if count=1, get the message
225: FND_MSG_PUB.Count_And_Get (
226: p_encoded => FND_API.G_FALSE,
227: p_count => x_msg_count,
228: p_data => x_msg_data
229: );
230:
229: );
230:
231: WHEN OTHERS THEN
232: ROLLBACK TO CREATE_Attribute_Code_PVT;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
235: THEN
236: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
237: END IF;
236: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
237: END IF;
238: -- Standard call to get message count and if count=1, get the message
239: FND_MSG_PUB.Count_And_Get (
240: p_encoded => FND_API.G_FALSE,
241: p_count => x_msg_count,
242: p_data => x_msg_data
243: );
244: End Create_Attribute_Code;
245:
246:
247: PROCEDURE Update_Attribute_Code(
248: p_api_version_number IN NUMBER
249: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
250: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
251: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
252:
253: ,x_return_status OUT NOCOPY VARCHAR2
246:
247: PROCEDURE Update_Attribute_Code(
248: p_api_version_number IN NUMBER
249: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
250: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
251: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
252:
253: ,x_return_status OUT NOCOPY VARCHAR2
254: ,x_msg_count OUT NOCOPY NUMBER
247: PROCEDURE Update_Attribute_Code(
248: p_api_version_number IN NUMBER
249: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
250: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
251: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
252:
253: ,x_return_status OUT NOCOPY VARCHAR2
254: ,x_msg_count OUT NOCOPY NUMBER
255: ,x_msg_data OUT NOCOPY VARCHAR2
317: -- Standard Start of API savepoint
318: SAVEPOINT UPDATE_Attribute_Code_PVT;
319:
320: -- Standard call to check for call compatibility.
321: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
322: p_api_version_number,
323: l_api_name,
324: G_PKG_NAME)
325: THEN
322: p_api_version_number,
323: l_api_name,
324: G_PKG_NAME)
325: THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328:
329: -- Initialize message list if p_init_msg_list is set to TRUE.
330: IF FND_API.to_Boolean( p_init_msg_list )
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328:
329: -- Initialize message list if p_init_msg_list is set to TRUE.
330: IF FND_API.to_Boolean( p_init_msg_list )
331: THEN
332: FND_MSG_PUB.initialize;
333: END IF;
334:
338: end if;
339:
340:
341: -- Initialize API return status to SUCCESS
342: x_return_status := FND_API.G_RET_STS_SUCCESS;
343:
344: -- Debug Message
345: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
346: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Open Cursor to Select');
358: FND_MESSAGE.set_token('ENTITY','Attribute_Code');
359: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_attribute_code_rec.attr_code_id));
360: FND_MSG_PUB.add;
361: end if;
362: RAISE FND_API.G_EXC_ERROR;
363: END IF;
364: -- Debug Message
365: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
366: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Close Cursor');
376: FND_MESSAGE.Set_Name('PV', 'PV_ATTRCODE_NOTDISABLED_SEEDED');
377: FND_MESSAGE.Set_Token('ATTRIBUTE_CODE',p_attribute_code_rec.attr_code );
378: FND_MSG_PUB.Add;
379: END IF;
380: RAISE FND_API.G_EXC_ERROR;
381: end if;
382: */
383:
384: --check for rules reference
398: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
399: FND_MSG_PUB.Add;
400: END IF;
401:
402: RAISE FND_API.G_EXC_ERROR;
403:
404: end if;
405:
406: l_being_used_list := '';
425: FND_MESSAGE.Set_Token('PROGRAMS_LIST',substr(l_being_used_list,2) );
426: FND_MSG_PUB.Add;
427: END IF;
428:
429: RAISE FND_API.G_EXC_ERROR;
430:
431: end if;
432: end if;
433:
456: FND_MESSAGE.Set_Token('ENTITY_LIST',substr(l_being_used_list,2) );
457: FND_MSG_PUB.Add;
458: END IF;
459:
460: RAISE FND_API.G_EXC_ERROR;
461:
462: end if;
463:
464: end if;
464: end if;
465:
466: end if;
467: IF (l_tar_attribute_code_rec.object_version_number is NULL or
468: l_tar_attribute_code_rec.object_version_number = FND_API.G_MISS_NUM ) Then
469:
470: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
471: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
472: FND_MESSAGE.set_token('COLUMN',TO_CHAR(l_tar_attribute_code_rec.last_update_date));
471: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
472: FND_MESSAGE.set_token('COLUMN',TO_CHAR(l_tar_attribute_code_rec.last_update_date));
473: FND_MSG_PUB.add;
474: end if;
475: RAISE FND_API.G_EXC_ERROR;
476: End if;
477:
478: -- Check Whether record has been changed by someone else
479: If (l_tar_attribute_code_rec.object_version_number <> l_ref_attribute_code_rec.object_version_number) Then
481: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
482: FND_MESSAGE.set_token('VALUE','Attribute_Code');
483: FND_MSG_PUB.add;
484: end if;
485: RAISE FND_API.G_EXC_ERROR;
486: End if;
487: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
488: THEN
489: -- Debug message
483: FND_MSG_PUB.add;
484: end if;
485: RAISE FND_API.G_EXC_ERROR;
486: End if;
487: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
488: THEN
489: -- Debug message
490: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
491: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - Validate_Attribute_Code');
493:
494: -- Invoke validation procedures
495: Validate_Attribute_Code(
496: p_api_version_number => 1.0
497: ,p_init_msg_list => FND_API.G_FALSE
498: ,p_validation_level => p_validation_level
499: ,p_validation_mode => JTF_PLSQL_API.g_update
500: ,p_attribute_code_rec => p_attribute_code_rec
501: ,x_return_status => x_return_status
504: );
505:
506: END IF;
507:
508: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512:
505:
506: END IF;
507:
508: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
509: RAISE FND_API.G_EXC_ERROR;
510: END IF;
511:
512:
513: -- Debug Message
537: -- End of API body.
538: --
539:
540: -- Standard check for p_commit
541: IF FND_API.to_Boolean( p_commit )
542: THEN
543: COMMIT WORK;
544: END IF;
545:
556: );
557: EXCEPTION
558: /*
559: WHEN PVX_Utility_PVT.resource_locked THEN
560: x_return_status := FND_API.g_ret_sts_error;
561: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
562: */
563: WHEN FND_API.G_EXC_ERROR THEN
564: ROLLBACK TO UPDATE_Attribute_Code_PVT;
559: WHEN PVX_Utility_PVT.resource_locked THEN
560: x_return_status := FND_API.g_ret_sts_error;
561: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
562: */
563: WHEN FND_API.G_EXC_ERROR THEN
564: ROLLBACK TO UPDATE_Attribute_Code_PVT;
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: -- Standard call to get message count and if count=1, get the message
567: FND_MSG_PUB.Count_And_Get (
561: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
562: */
563: WHEN FND_API.G_EXC_ERROR THEN
564: ROLLBACK TO UPDATE_Attribute_Code_PVT;
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: -- Standard call to get message count and if count=1, get the message
567: FND_MSG_PUB.Count_And_Get (
568: p_encoded => FND_API.G_FALSE,
569: p_count => x_msg_count,
564: ROLLBACK TO UPDATE_Attribute_Code_PVT;
565: x_return_status := FND_API.G_RET_STS_ERROR;
566: -- Standard call to get message count and if count=1, get the message
567: FND_MSG_PUB.Count_And_Get (
568: p_encoded => FND_API.G_FALSE,
569: p_count => x_msg_count,
570: p_data => x_msg_data
571: );
572:
569: p_count => x_msg_count,
570: p_data => x_msg_data
571: );
572:
573: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
574: ROLLBACK TO UPDATE_Attribute_Code_PVT;
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: -- Standard call to get message count and if count=1, get the message
577: FND_MSG_PUB.Count_And_Get (
571: );
572:
573: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
574: ROLLBACK TO UPDATE_Attribute_Code_PVT;
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: -- Standard call to get message count and if count=1, get the message
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.G_FALSE,
579: p_count => x_msg_count,
574: ROLLBACK TO UPDATE_Attribute_Code_PVT;
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: -- Standard call to get message count and if count=1, get the message
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.G_FALSE,
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
582:
581: );
582:
583: WHEN OTHERS THEN
584: ROLLBACK TO UPDATE_Attribute_Code_PVT;
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
587: THEN
588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
589: END IF;
588: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
589: END IF;
590: -- Standard call to get message count and if count=1, get the message
591: FND_MSG_PUB.Count_And_Get (
592: p_encoded => FND_API.G_FALSE,
593: p_count => x_msg_count,
594: p_data => x_msg_data
595: );
596: End Update_Attribute_Code;
597:
598:
599: PROCEDURE Delete_Attribute_Code(
600: p_api_version_number IN NUMBER
601: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
602: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
603: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
604:
605: ,x_return_status OUT NOCOPY VARCHAR2
598:
599: PROCEDURE Delete_Attribute_Code(
600: p_api_version_number IN NUMBER
601: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
602: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
603: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
604:
605: ,x_return_status OUT NOCOPY VARCHAR2
606: ,x_msg_count OUT NOCOPY NUMBER
599: PROCEDURE Delete_Attribute_Code(
600: p_api_version_number IN NUMBER
601: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
602: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
603: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
604:
605: ,x_return_status OUT NOCOPY VARCHAR2
606: ,x_msg_count OUT NOCOPY NUMBER
607: ,x_msg_data OUT NOCOPY VARCHAR2
659: -- Standard Start of API savepoint
660: SAVEPOINT DELETE_Attribute_Code_PVT;
661:
662: -- Standard call to check for call compatibility.
663: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
664: p_api_version_number,
665: l_api_name,
666: G_PKG_NAME)
667: THEN
664: p_api_version_number,
665: l_api_name,
666: G_PKG_NAME)
667: THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: -- Initialize message list if p_init_msg_list is set to TRUE.
672: IF FND_API.to_Boolean( p_init_msg_list )
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: -- Initialize message list if p_init_msg_list is set to TRUE.
672: IF FND_API.to_Boolean( p_init_msg_list )
673: THEN
674: FND_MSG_PUB.initialize;
675: END IF;
676:
680: end if;
681:
682:
683: -- Initialize API return status to SUCCESS
684: x_return_status := FND_API.G_RET_STS_SUCCESS;
685:
686: --
687: -- Api body
688: --
722: FND_MESSAGE.Set_Name('PV', 'PV_ATTRCODE_NOTDELETE_SEEDED');
723: FND_MESSAGE.Set_Token('ATTRIBUTE_CODE',l_attr_code );
724: FND_MSG_PUB.Add;
725: END IF;
726: RAISE FND_API.G_EXC_ERROR;
727: end if;
728:
729: --check attribute usage code if VAD_OF or RESELLERS if attribute_id=3 Partner Types attribute
730: --check attribute usages if attribute_id=3 Partner Types attribute
743: FND_MESSAGE.Set_Token('NAME',l_attribute_name );
744: FND_MSG_PUB.Add;
745: END IF;
746:
747: RAISE FND_API.G_EXC_ERROR;
748:
749: end if;
750:
751: for x in lc_attribute_usages (pc_attr_code_id =>p_attr_code_id)
763: FND_MESSAGE.Set_Token('ATTRIBUTE_CODE',l_attr_code );
764: FND_MSG_PUB.Add;
765: END IF;
766:
767: RAISE FND_API.G_EXC_ERROR;
768:
769: end if;
770: end if; -- end if(l_attribute_id=3)
771:
803: FND_MESSAGE.Set_Token('ENTITY_LIST',substr(l_being_used_list,2) );
804: FND_MSG_PUB.Add;
805: END IF;
806:
807: RAISE FND_API.G_EXC_ERROR;
808:
809: end if;
810:
811: --check for rules reference
825: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
826: FND_MSG_PUB.Add;
827: END IF;
828:
829: RAISE FND_API.G_EXC_ERROR;
830:
831: end if;
832:
833: -- Debug Message
847: -- End of API body
848: --
849:
850: -- Standard check for p_commit
851: IF FND_API.to_Boolean( p_commit )
852: THEN
853: COMMIT WORK;
854: END IF;
855:
866: );
867: EXCEPTION
868: /*
869: WHEN PVX_Utility_PVT.resource_locked THEN
870: x_return_status := FND_API.g_ret_sts_error;
871: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
872: */
873: WHEN FND_API.G_EXC_ERROR THEN
874: ROLLBACK TO DELETE_Attribute_Code_PVT;
869: WHEN PVX_Utility_PVT.resource_locked THEN
870: x_return_status := FND_API.g_ret_sts_error;
871: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
872: */
873: WHEN FND_API.G_EXC_ERROR THEN
874: ROLLBACK TO DELETE_Attribute_Code_PVT;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: -- Standard call to get message count and if count=1, get the message
877: FND_MSG_PUB.Count_And_Get (
871: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
872: */
873: WHEN FND_API.G_EXC_ERROR THEN
874: ROLLBACK TO DELETE_Attribute_Code_PVT;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: -- Standard call to get message count and if count=1, get the message
877: FND_MSG_PUB.Count_And_Get (
878: p_encoded => FND_API.G_FALSE,
879: p_count => x_msg_count,
874: ROLLBACK TO DELETE_Attribute_Code_PVT;
875: x_return_status := FND_API.G_RET_STS_ERROR;
876: -- Standard call to get message count and if count=1, get the message
877: FND_MSG_PUB.Count_And_Get (
878: p_encoded => FND_API.G_FALSE,
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882:
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882:
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO DELETE_Attribute_Code_PVT;
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: -- Standard call to get message count and if count=1, get the message
887: FND_MSG_PUB.Count_And_Get (
881: );
882:
883: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
884: ROLLBACK TO DELETE_Attribute_Code_PVT;
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: -- Standard call to get message count and if count=1, get the message
887: FND_MSG_PUB.Count_And_Get (
888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
884: ROLLBACK TO DELETE_Attribute_Code_PVT;
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: -- Standard call to get message count and if count=1, get the message
887: FND_MSG_PUB.Count_And_Get (
888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
890: p_data => x_msg_data
891: );
892:
891: );
892:
893: WHEN OTHERS THEN
894: ROLLBACK TO DELETE_Attribute_Code_PVT;
895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
896: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
897: THEN
898: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
899: END IF;
898: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
899: END IF;
900: -- Standard call to get message count and if count=1, get the message
901: FND_MSG_PUB.Count_And_Get (
902: p_encoded => FND_API.G_FALSE,
903: p_count => x_msg_count,
904: p_data => x_msg_data
905: );
906: End Delete_Attribute_Code;
909:
910: -- Hint: Primary key needs to be returned.
911: PROCEDURE Lock_Attribute_Code(
912: p_api_version_number IN NUMBER
913: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
914:
915: ,x_return_status OUT NOCOPY VARCHAR2
916: ,x_msg_count OUT NOCOPY NUMBER
917: ,x_msg_data OUT NOCOPY VARCHAR2
942: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - start');
943: END IF;
944:
945: -- Initialize message list if p_init_msg_list is set to TRUE.
946: IF FND_API.to_Boolean( p_init_msg_list )
947: THEN
948: FND_MSG_PUB.initialize;
949: END IF;
950:
948: FND_MSG_PUB.initialize;
949: END IF;
950:
951: -- Standard call to check for call compatibility.
952: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
953: p_api_version_number,
954: l_api_name,
955: G_PKG_NAME)
956: THEN
953: p_api_version_number,
954: l_api_name,
955: G_PKG_NAME)
956: THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960:
961: -- Initialize API return status to SUCCESS
958: END IF;
959:
960:
961: -- Initialize API return status to SUCCESS
962: x_return_status := FND_API.G_RET_STS_SUCCESS;
963:
964:
965: ------------------------ lock -------------------------
966:
974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
975: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_NOT_FOUND');
976: FND_MSG_PUB.add;
977: END IF;
978: RAISE FND_API.g_exc_error;
979: END IF;
980:
981: CLOSE c_Attribute_Code;
982:
981: CLOSE c_Attribute_Code;
982:
983: -------------------- finish --------------------------
984: FND_MSG_PUB.count_and_get(
985: p_encoded => FND_API.g_false,
986: p_count => x_msg_count,
987: p_data => x_msg_data);
988: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
989: PVX_Utility_PVT.debug_message(l_full_name ||': end');
990: END IF;
991: EXCEPTION
992: /*
993: WHEN PVX_Utility_PVT.resource_locked THEN
994: x_return_status := FND_API.g_ret_sts_error;
995: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
996: */
997: WHEN FND_API.G_EXC_ERROR THEN
998: ROLLBACK TO LOCK_Attribute_Code_PVT;
993: WHEN PVX_Utility_PVT.resource_locked THEN
994: x_return_status := FND_API.g_ret_sts_error;
995: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
996: */
997: WHEN FND_API.G_EXC_ERROR THEN
998: ROLLBACK TO LOCK_Attribute_Code_PVT;
999: x_return_status := FND_API.G_RET_STS_ERROR;
1000: -- Standard call to get message count and if count=1, get the message
1001: FND_MSG_PUB.Count_And_Get (
995: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
996: */
997: WHEN FND_API.G_EXC_ERROR THEN
998: ROLLBACK TO LOCK_Attribute_Code_PVT;
999: x_return_status := FND_API.G_RET_STS_ERROR;
1000: -- Standard call to get message count and if count=1, get the message
1001: FND_MSG_PUB.Count_And_Get (
1002: p_encoded => FND_API.G_FALSE,
1003: p_count => x_msg_count,
998: ROLLBACK TO LOCK_Attribute_Code_PVT;
999: x_return_status := FND_API.G_RET_STS_ERROR;
1000: -- Standard call to get message count and if count=1, get the message
1001: FND_MSG_PUB.Count_And_Get (
1002: p_encoded => FND_API.G_FALSE,
1003: p_count => x_msg_count,
1004: p_data => x_msg_data
1005: );
1006:
1003: p_count => x_msg_count,
1004: p_data => x_msg_data
1005: );
1006:
1007: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1008: ROLLBACK TO LOCK_Attribute_Code_PVT;
1009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: -- Standard call to get message count and if count=1, get the message
1011: FND_MSG_PUB.Count_And_Get (
1005: );
1006:
1007: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1008: ROLLBACK TO LOCK_Attribute_Code_PVT;
1009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: -- Standard call to get message count and if count=1, get the message
1011: FND_MSG_PUB.Count_And_Get (
1012: p_encoded => FND_API.G_FALSE,
1013: p_count => x_msg_count,
1008: ROLLBACK TO LOCK_Attribute_Code_PVT;
1009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: -- Standard call to get message count and if count=1, get the message
1011: FND_MSG_PUB.Count_And_Get (
1012: p_encoded => FND_API.G_FALSE,
1013: p_count => x_msg_count,
1014: p_data => x_msg_data
1015: );
1016:
1015: );
1016:
1017: WHEN OTHERS THEN
1018: ROLLBACK TO LOCK_Attribute_Code_PVT;
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1021: THEN
1022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1023: END IF;
1022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1023: END IF;
1024: -- Standard call to get message count and if count=1, get the message
1025: FND_MSG_PUB.Count_And_Get (
1026: p_encoded => FND_API.G_FALSE,
1027: p_count => x_msg_count,
1028: p_data => x_msg_data
1029: );
1030: End Lock_Attribute_Code;
1043:
1044:
1045:
1046: BEGIN
1047: x_return_status := FND_API.g_ret_sts_success;
1048: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1049: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1050: 'PV_ATTRIBUTE_CODES_B',
1051: 'ATTR_CODE_ID = ''' || p_attribute_code_rec.ATTR_CODE_ID ||''''
1058: );
1059: END IF;
1060:
1061:
1062: IF l_valid_flag = FND_API.g_false THEN
1063: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1064: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
1065: FND_MESSAGE.set_token('ID',to_char(p_attribute_code_rec.ATTR_CODE_ID) );
1066: FND_MESSAGE.set_token('ENTITY','Attribute_Code');
1065: FND_MESSAGE.set_token('ID',to_char(p_attribute_code_rec.ATTR_CODE_ID) );
1066: FND_MESSAGE.set_token('ENTITY','Attribute_Code');
1067: FND_MSG_PUB.add;
1068: END IF;
1069: x_return_status := FND_API.g_ret_sts_error;
1070: RETURN;
1071: END IF;
1072:
1073: --check for uniqueness of attribute_code
1082: --FND_MESSAGE.set_token('ID',to_char(p_attribute_code_rec.ATTR_CODE_ID) || ':::' || p_attribute_code_rec.ATTR_CODE);
1083: --FND_MESSAGE.set_token('ENTITY','Attribute_Code');
1084: FND_MSG_PUB.add;
1085: END IF;
1086: --x_return_status := FND_API.g_ret_sts_error;
1087: RAISE FND_API.G_EXC_ERROR;
1088: end if;
1089:
1090: end loop;
1083: --FND_MESSAGE.set_token('ENTITY','Attribute_Code');
1084: FND_MSG_PUB.add;
1085: END IF;
1086: --x_return_status := FND_API.g_ret_sts_error;
1087: RAISE FND_API.G_EXC_ERROR;
1088: end if;
1089:
1090: end loop;
1091: END IF;
1098: ,x_return_status OUT NOCOPY VARCHAR2
1099: )
1100: IS
1101: BEGIN
1102: x_return_status := FND_API.g_ret_sts_success;
1103:
1104: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1105:
1106: IF p_attribute_code_rec.attr_code_id = FND_API.G_MISS_NUM
1102: x_return_status := FND_API.g_ret_sts_success;
1103:
1104: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1105:
1106: IF p_attribute_code_rec.attr_code_id = FND_API.G_MISS_NUM
1107: OR p_attribute_code_rec.attr_code_id IS NULL THEN
1108: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1109: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1110: FND_MESSAGE.set_token('COLUMN','attr_code_id');
1109: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1110: FND_MESSAGE.set_token('COLUMN','attr_code_id');
1111: FND_MSG_PUB.add;
1112: END IF;
1113: x_return_status := FND_API.g_ret_sts_error;
1114: RETURN;
1115: END IF;
1116:
1117: IF p_attribute_code_rec.attr_code = FND_API.G_MISS_CHAR
1113: x_return_status := FND_API.g_ret_sts_error;
1114: RETURN;
1115: END IF;
1116:
1117: IF p_attribute_code_rec.attr_code = FND_API.G_MISS_CHAR
1118: OR p_attribute_code_rec.attr_code IS NULL THEN
1119: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1120: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1121: FND_MESSAGE.set_token('COLUMN','attr_code');
1120: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1121: FND_MESSAGE.set_token('COLUMN','attr_code');
1122: FND_MSG_PUB.add;
1123: END IF;
1124: x_return_status := FND_API.g_ret_sts_error;
1125: RETURN;
1126: END IF;
1127:
1128: IF p_attribute_code_rec.last_update_date = FND_API.G_MISS_DATE
1124: x_return_status := FND_API.g_ret_sts_error;
1125: RETURN;
1126: END IF;
1127:
1128: IF p_attribute_code_rec.last_update_date = FND_API.G_MISS_DATE
1129: OR p_attribute_code_rec.last_update_date IS NULL THEN
1130: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1131: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1132: FND_MESSAGE.set_token('COLUMN','last_update_date');
1131: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1132: FND_MESSAGE.set_token('COLUMN','last_update_date');
1133: FND_MSG_PUB.add;
1134: END IF;
1135: x_return_status := FND_API.g_ret_sts_error;
1136: RETURN;
1137: END IF;
1138:
1139: IF p_attribute_code_rec.last_updated_by = FND_API.G_MISS_NUM
1135: x_return_status := FND_API.g_ret_sts_error;
1136: RETURN;
1137: END IF;
1138:
1139: IF p_attribute_code_rec.last_updated_by = FND_API.G_MISS_NUM
1140: OR p_attribute_code_rec.last_updated_by IS NULL THEN
1141: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1142: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1143: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1142: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1143: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1144: FND_MSG_PUB.add;
1145: END IF;
1146: x_return_status := FND_API.g_ret_sts_error;
1147: RETURN;
1148: END IF;
1149:
1150: IF p_attribute_code_rec.creation_date = FND_API.G_MISS_DATE
1146: x_return_status := FND_API.g_ret_sts_error;
1147: RETURN;
1148: END IF;
1149:
1150: IF p_attribute_code_rec.creation_date = FND_API.G_MISS_DATE
1151: OR p_attribute_code_rec.creation_date IS NULL THEN
1152: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1153: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1154: FND_MESSAGE.set_token('COLUMN','creation_date');
1153: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1154: FND_MESSAGE.set_token('COLUMN','creation_date');
1155: FND_MSG_PUB.add;
1156: END IF;
1157: x_return_status := FND_API.g_ret_sts_error;
1158: RETURN;
1159: END IF;
1160:
1161: IF p_attribute_code_rec.created_by = FND_API.G_MISS_NUM
1157: x_return_status := FND_API.g_ret_sts_error;
1158: RETURN;
1159: END IF;
1160:
1161: IF p_attribute_code_rec.created_by = FND_API.G_MISS_NUM
1162: OR p_attribute_code_rec.created_by IS NULL THEN
1163: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1164: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1165: FND_MESSAGE.set_token('COLUMN','created_by');
1164: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1165: FND_MESSAGE.set_token('COLUMN','created_by');
1166: FND_MSG_PUB.add;
1167: END IF;
1168: x_return_status := FND_API.g_ret_sts_error;
1169: RETURN;
1170: END IF;
1171:
1172: IF p_attribute_code_rec.last_update_login = FND_API.G_MISS_NUM
1168: x_return_status := FND_API.g_ret_sts_error;
1169: RETURN;
1170: END IF;
1171:
1172: IF p_attribute_code_rec.last_update_login = FND_API.G_MISS_NUM
1173: OR p_attribute_code_rec.last_update_login IS NULL THEN
1174: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1175: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1176: FND_MESSAGE.set_token('COLUMN','last_update_login');
1175: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1176: FND_MESSAGE.set_token('COLUMN','last_update_login');
1177: FND_MSG_PUB.add;
1178: END IF;
1179: x_return_status := FND_API.g_ret_sts_error;
1180: RETURN;
1181: END IF;
1182:
1183: IF p_attribute_code_rec.object_version_number = FND_API.G_MISS_NUM
1179: x_return_status := FND_API.g_ret_sts_error;
1180: RETURN;
1181: END IF;
1182:
1183: IF p_attribute_code_rec.object_version_number = FND_API.G_MISS_NUM
1184: OR p_attribute_code_rec.object_version_number IS NULL THEN
1185: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1186: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1187: FND_MESSAGE.set_token('COLUMN','object_version_number');
1186: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1187: FND_MESSAGE.set_token('COLUMN','object_version_number');
1188: FND_MSG_PUB.add;
1189: END IF;
1190: x_return_status := FND_API.g_ret_sts_error;
1191: RETURN;
1192: END IF;
1193:
1194: IF p_attribute_code_rec.attribute_id = FND_API.G_MISS_NUM
1190: x_return_status := FND_API.g_ret_sts_error;
1191: RETURN;
1192: END IF;
1193:
1194: IF p_attribute_code_rec.attribute_id = FND_API.G_MISS_NUM
1195: OR p_attribute_code_rec.attribute_id IS NULL THEN
1196: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1197: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1198: FND_MESSAGE.set_token('COLUMN','attribute_id');
1197: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1198: FND_MESSAGE.set_token('COLUMN','attribute_id');
1199: FND_MSG_PUB.add;
1200: END IF;
1201: x_return_status := FND_API.g_ret_sts_error;
1202: RETURN;
1203: END IF;
1204:
1205: IF p_attribute_code_rec.enabled_flag = FND_API.G_MISS_CHAR
1201: x_return_status := FND_API.g_ret_sts_error;
1202: RETURN;
1203: END IF;
1204:
1205: IF p_attribute_code_rec.enabled_flag = FND_API.G_MISS_CHAR
1206: OR p_attribute_code_rec.enabled_flag IS NULL THEN
1207: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1208: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1209: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1208: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1209: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1210: FND_MSG_PUB.add;
1211: END IF;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: RETURN;
1214: END IF;
1215:
1216:
1213: RETURN;
1214: END IF;
1215:
1216:
1217: IF p_attribute_code_rec.description = FND_API.G_MISS_CHAR
1218: OR p_attribute_code_rec.description IS NULL THEN
1219: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1220: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1221: FND_MESSAGE.set_token('COLUMN','description');
1220: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1221: FND_MESSAGE.set_token('COLUMN','description');
1222: FND_MSG_PUB.add;
1223: END IF;
1224: x_return_status := FND_API.g_ret_sts_error;
1225: RETURN;
1226: END IF;
1227:
1228: ELSE
1232: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1233: FND_MESSAGE.set_token('COLUMN','attr_code_id');
1234: FND_MSG_PUB.add;
1235: END IF;
1236: x_return_status := FND_API.g_ret_sts_error;
1237: RETURN;
1238: END IF;
1239:
1240: IF p_attribute_code_rec.attr_code IS NULL THEN
1242: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1243: FND_MESSAGE.set_token('COLUMN','attr_code');
1244: FND_MSG_PUB.add;
1245: END IF;
1246: x_return_status := FND_API.g_ret_sts_error;
1247: RETURN;
1248: END IF;
1249:
1250: IF p_attribute_code_rec.last_update_date IS NULL THEN
1252: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1253: FND_MESSAGE.set_token('COLUMN','last_update_date');
1254: FND_MSG_PUB.add;
1255: END IF;
1256: x_return_status := FND_API.g_ret_sts_error;
1257: RETURN;
1258: END IF;
1259:
1260: IF p_attribute_code_rec.last_updated_by IS NULL THEN
1262: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1263: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1264: FND_MSG_PUB.add;
1265: END IF;
1266: x_return_status := FND_API.g_ret_sts_error;
1267: RETURN;
1268: END IF;
1269:
1270: IF p_attribute_code_rec.creation_date IS NULL THEN
1272: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1273: FND_MESSAGE.set_token('COLUMN','creation_date');
1274: FND_MSG_PUB.add;
1275: END IF;
1276: x_return_status := FND_API.g_ret_sts_error;
1277: RETURN;
1278: END IF;
1279:
1280: IF p_attribute_code_rec.created_by IS NULL THEN
1282: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1283: FND_MESSAGE.set_token('COLUMN','created_by');
1284: FND_MSG_PUB.add;
1285: END IF;
1286: x_return_status := FND_API.g_ret_sts_error;
1287: RETURN;
1288: END IF;
1289:
1290: IF p_attribute_code_rec.last_update_login IS NULL THEN
1292: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1293: FND_MESSAGE.set_token('COLUMN','last_update_login');
1294: FND_MSG_PUB.add;
1295: END IF;
1296: x_return_status := FND_API.g_ret_sts_error;
1297: RETURN;
1298: END IF;
1299:
1300: IF p_attribute_code_rec.object_version_number IS NULL THEN
1302: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1303: FND_MESSAGE.set_token('COLUMN','object_version_number');
1304: FND_MSG_PUB.add;
1305: END IF;
1306: x_return_status := FND_API.g_ret_sts_error;
1307: RETURN;
1308: END IF;
1309:
1310: IF p_attribute_code_rec.attribute_id IS NULL THEN
1312: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1313: FND_MESSAGE.set_token('COLUMN','attribute_id');
1314: FND_MSG_PUB.add;
1315: END IF;
1316: x_return_status := FND_API.g_ret_sts_error;
1317: RETURN;
1318: END IF;
1319:
1320: IF p_attribute_code_rec.enabled_flag IS NULL THEN
1322: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1323: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1324: FND_MSG_PUB.add;
1325: END IF;
1326: x_return_status := FND_API.g_ret_sts_error;
1327: RETURN;
1328: END IF;
1329:
1330:
1334: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1335: FND_MESSAGE.set_token('COLUMN','description');
1336: FND_MSG_PUB.add;
1337: END IF;
1338: x_return_status := FND_API.g_ret_sts_error;
1339: RETURN;
1340: END IF;
1341:
1342: END IF;
1348: x_return_status OUT NOCOPY VARCHAR2
1349: )
1350: IS
1351: BEGIN
1352: x_return_status := FND_API.g_ret_sts_success;
1353:
1354: -- Enter custom code here
1355:
1356: END check_FK_items;
1360: x_return_status OUT NOCOPY VARCHAR2
1361: )
1362: IS
1363: BEGIN
1364: x_return_status := FND_API.g_ret_sts_success;
1365:
1366: -- Enter custom code here
1367:
1368: END check_Lookup_items;
1384: p_attribute_code_rec => p_attribute_code_rec
1385: ,p_validation_mode => p_validation_mode
1386: ,x_return_status => x_return_status
1387: );
1388: IF x_return_status <> FND_API.g_ret_sts_success THEN
1389: RETURN;
1390: END IF;
1391:
1392: -- Check Items Required/NOT NULL API calls
1395: p_attribute_code_rec => p_attribute_code_rec
1396: ,p_validation_mode => p_validation_mode
1397: ,x_return_status => x_return_status
1398: );
1399: IF x_return_status <> FND_API.g_ret_sts_success THEN
1400: RETURN;
1401: END IF;
1402: -- Check Items Foreign Keys API calls
1403: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : Before check_FK_items' );
1404: check_FK_items(
1405: p_attribute_code_rec => p_attribute_code_rec
1406: ,x_return_status => x_return_status
1407: );
1408: IF x_return_status <> FND_API.g_ret_sts_success THEN
1409: RETURN;
1410: END IF;
1411: -- Check Items Lookups
1412: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : Before check_Lookup_items' );
1413: check_Lookup_items(
1414: p_attribute_code_rec => p_attribute_code_rec
1415: ,x_return_status => x_return_status
1416: );
1417: IF x_return_status <> FND_API.g_ret_sts_success THEN
1418: RETURN;
1419: END IF;
1420:
1421: END Check_Attr_Code_Items;
1439: FETCH c_complete INTO l_attribute_code_rec;
1440: CLOSE c_complete;
1441:
1442: -- attr_code_id
1443: IF p_attribute_code_rec.attr_code_id = FND_API.g_miss_num THEN
1444: x_complete_rec.attr_code_id := l_attribute_code_rec.attr_code_id;
1445: END IF;
1446:
1447: -- attr_code
1444: x_complete_rec.attr_code_id := l_attribute_code_rec.attr_code_id;
1445: END IF;
1446:
1447: -- attr_code
1448: IF p_attribute_code_rec.attr_code = FND_API.g_miss_char THEN
1449: x_complete_rec.attr_code := l_attribute_code_rec.attr_code;
1450: END IF;
1451:
1452: -- last_update_date
1449: x_complete_rec.attr_code := l_attribute_code_rec.attr_code;
1450: END IF;
1451:
1452: -- last_update_date
1453: IF p_attribute_code_rec.last_update_date = FND_API.g_miss_date THEN
1454: x_complete_rec.last_update_date := l_attribute_code_rec.last_update_date;
1455: END IF;
1456:
1457: -- last_updated_by
1454: x_complete_rec.last_update_date := l_attribute_code_rec.last_update_date;
1455: END IF;
1456:
1457: -- last_updated_by
1458: IF p_attribute_code_rec.last_updated_by = FND_API.g_miss_num THEN
1459: x_complete_rec.last_updated_by := l_attribute_code_rec.last_updated_by;
1460: END IF;
1461:
1462: -- creation_date
1459: x_complete_rec.last_updated_by := l_attribute_code_rec.last_updated_by;
1460: END IF;
1461:
1462: -- creation_date
1463: IF p_attribute_code_rec.creation_date = FND_API.g_miss_date THEN
1464: x_complete_rec.creation_date := l_attribute_code_rec.creation_date;
1465: END IF;
1466:
1467: -- created_by
1464: x_complete_rec.creation_date := l_attribute_code_rec.creation_date;
1465: END IF;
1466:
1467: -- created_by
1468: IF p_attribute_code_rec.created_by = FND_API.g_miss_num THEN
1469: x_complete_rec.created_by := l_attribute_code_rec.created_by;
1470: END IF;
1471:
1472: -- last_update_login
1469: x_complete_rec.created_by := l_attribute_code_rec.created_by;
1470: END IF;
1471:
1472: -- last_update_login
1473: IF p_attribute_code_rec.last_update_login = FND_API.g_miss_num THEN
1474: x_complete_rec.last_update_login := l_attribute_code_rec.last_update_login;
1475: END IF;
1476:
1477: -- object_version_number
1474: x_complete_rec.last_update_login := l_attribute_code_rec.last_update_login;
1475: END IF;
1476:
1477: -- object_version_number
1478: IF p_attribute_code_rec.object_version_number = FND_API.g_miss_num THEN
1479: x_complete_rec.object_version_number := l_attribute_code_rec.object_version_number;
1480: END IF;
1481:
1482: -- attribute_id
1479: x_complete_rec.object_version_number := l_attribute_code_rec.object_version_number;
1480: END IF;
1481:
1482: -- attribute_id
1483: IF p_attribute_code_rec.attribute_id = FND_API.g_miss_num THEN
1484: x_complete_rec.attribute_id := l_attribute_code_rec.attribute_id;
1485: END IF;
1486:
1487: -- enabled_flag
1484: x_complete_rec.attribute_id := l_attribute_code_rec.attribute_id;
1485: END IF;
1486:
1487: -- enabled_flag
1488: IF p_attribute_code_rec.enabled_flag = FND_API.g_miss_char THEN
1489: x_complete_rec.enabled_flag := l_attribute_code_rec.enabled_flag;
1490: END IF;
1491:
1492:
1491:
1492:
1493:
1494: -- security_group_id
1495: --IF p_attribute_code_rec.security_group_id = FND_API.g_miss_num THEN
1496: -- x_complete_rec.security_group_id := l_attribute_code_rec.security_group_id;
1497: --END IF;
1498: -- Note: Developers need to modify the procedure
1499: -- to handle any business specific requirements.
1504:
1505:
1506: PROCEDURE Validate_Attribute_Code(
1507: p_api_version_number IN NUMBER
1508: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1511: ,p_attribute_code_rec IN attribute_code_rec_type
1512: ,x_return_status OUT NOCOPY VARCHAR2
1505:
1506: PROCEDURE Validate_Attribute_Code(
1507: p_api_version_number IN NUMBER
1508: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1509: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1510: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.G_UPDATE
1511: ,p_attribute_code_rec IN attribute_code_rec_type
1512: ,x_return_status OUT NOCOPY VARCHAR2
1513: ,x_msg_count OUT NOCOPY NUMBER
1524: -- Standard Start of API savepoint
1525: SAVEPOINT Validate_Attribute_Code;
1526:
1527: -- Standard call to check for call compatibility.
1528: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1529: p_api_version_number,
1530: l_api_name,
1531: G_PKG_NAME)
1532: THEN
1529: p_api_version_number,
1530: l_api_name,
1531: G_PKG_NAME)
1532: THEN
1533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1534: END IF;
1535:
1536: -- Initialize message list if p_init_msg_list is set to TRUE.
1537: IF FND_API.to_Boolean( p_init_msg_list )
1533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1534: END IF;
1535:
1536: -- Initialize message list if p_init_msg_list is set to TRUE.
1537: IF FND_API.to_Boolean( p_init_msg_list )
1538: THEN
1539: FND_MSG_PUB.initialize;
1540: END IF;
1541: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1545: ,p_validation_mode => p_validation_mode
1546: ,x_return_status => x_return_status
1547: );
1548: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Check_Attr_Code_Items' );
1549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1550: RAISE FND_API.G_EXC_ERROR;
1551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1546: ,x_return_status => x_return_status
1547: );
1548: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Check_Attr_Code_Items' );
1549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1550: RAISE FND_API.G_EXC_ERROR;
1551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554: END IF;
1547: );
1548: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Check_Attr_Code_Items' );
1549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1550: RAISE FND_API.G_EXC_ERROR;
1551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554: END IF;
1555:
1548: --DBMS_OUTPUT.PUT_LINE(l_full_name||' : After Check_Attr_Code_Items' );
1549: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1550: RAISE FND_API.G_EXC_ERROR;
1551: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1553: END IF;
1554: END IF;
1555:
1556: Complete_attribute_code_rec(
1560:
1561: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1562: Validate_attr_code_rec(
1563: p_api_version_number => 1.0
1564: ,p_init_msg_list => FND_API.G_FALSE
1565: ,x_return_status => x_return_status
1566: ,x_msg_count => x_msg_count
1567: ,x_msg_data => x_msg_data
1568: ,p_attribute_code_rec => l_attribute_code_rec
1568: ,p_attribute_code_rec => l_attribute_code_rec
1569: ,p_validation_mode => p_validation_mode
1570: );
1571:
1572: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END IF;
1569: ,p_validation_mode => p_validation_mode
1570: );
1571:
1572: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END IF;
1577: END IF;
1570: );
1571:
1572: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END IF;
1577: END IF;
1578:
1571:
1572: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1573: RAISE FND_API.G_EXC_ERROR;
1574: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END IF;
1577: END IF;
1578:
1579:
1582: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1583: PVX_Utility_PVT.debug_message('Private API: '||l_full_name||' - start');
1584: END IF;
1585: -- Initialize API return status to SUCCESS
1586: x_return_status := FND_API.G_RET_STS_SUCCESS;
1587:
1588:
1589: -- Debug Message
1590: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1598: );
1599: EXCEPTION
1600: /*
1601: WHEN PVX_Utility_PVT.resource_locked THEN
1602: x_return_status := FND_API.g_ret_sts_error;
1603: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1604: */
1605: WHEN FND_API.G_EXC_ERROR THEN
1606: ROLLBACK TO Validate_Attribute_Code;
1601: WHEN PVX_Utility_PVT.resource_locked THEN
1602: x_return_status := FND_API.g_ret_sts_error;
1603: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1604: */
1605: WHEN FND_API.G_EXC_ERROR THEN
1606: ROLLBACK TO Validate_Attribute_Code;
1607: x_return_status := FND_API.G_RET_STS_ERROR;
1608: -- Standard call to get message count and if count=1, get the message
1609: FND_MSG_PUB.Count_And_Get (
1603: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1604: */
1605: WHEN FND_API.G_EXC_ERROR THEN
1606: ROLLBACK TO Validate_Attribute_Code;
1607: x_return_status := FND_API.G_RET_STS_ERROR;
1608: -- Standard call to get message count and if count=1, get the message
1609: FND_MSG_PUB.Count_And_Get (
1610: p_encoded => FND_API.G_FALSE,
1611: p_count => x_msg_count,
1606: ROLLBACK TO Validate_Attribute_Code;
1607: x_return_status := FND_API.G_RET_STS_ERROR;
1608: -- Standard call to get message count and if count=1, get the message
1609: FND_MSG_PUB.Count_And_Get (
1610: p_encoded => FND_API.G_FALSE,
1611: p_count => x_msg_count,
1612: p_data => x_msg_data
1613: );
1614:
1611: p_count => x_msg_count,
1612: p_data => x_msg_data
1613: );
1614:
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: ROLLBACK TO Validate_Attribute_Code;
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: -- Standard call to get message count and if count=1, get the message
1619: FND_MSG_PUB.Count_And_Get (
1613: );
1614:
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: ROLLBACK TO Validate_Attribute_Code;
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: -- Standard call to get message count and if count=1, get the message
1619: FND_MSG_PUB.Count_And_Get (
1620: p_encoded => FND_API.G_FALSE,
1621: p_count => x_msg_count,
1616: ROLLBACK TO Validate_Attribute_Code;
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: -- Standard call to get message count and if count=1, get the message
1619: FND_MSG_PUB.Count_And_Get (
1620: p_encoded => FND_API.G_FALSE,
1621: p_count => x_msg_count,
1622: p_data => x_msg_data
1623: );
1624:
1623: );
1624:
1625: WHEN OTHERS THEN
1626: ROLLBACK TO Validate_Attribute_Code;
1627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1628: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1629: THEN
1630: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1631: END IF;
1630: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1631: END IF;
1632: -- Standard call to get message count and if count=1, get the message
1633: FND_MSG_PUB.Count_And_Get (
1634: p_encoded => FND_API.G_FALSE,
1635: p_count => x_msg_count,
1636: p_data => x_msg_data
1637: );
1638: End Validate_Attribute_Code;
1639:
1640:
1641: PROCEDURE Validate_Attr_Code_Rec(
1642: p_api_version_number IN NUMBER
1643: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1644: ,x_return_status OUT NOCOPY VARCHAR2
1645: ,x_msg_count OUT NOCOPY NUMBER
1646: ,x_msg_data OUT NOCOPY VARCHAR2
1647: ,p_attribute_code_rec IN attribute_code_rec_type
1649: )
1650: IS
1651: BEGIN
1652: -- Initialize message list if p_init_msg_list is set to TRUE.
1653: IF FND_API.to_Boolean( p_init_msg_list )
1654: THEN
1655: FND_MSG_PUB.initialize;
1656: END IF;
1657:
1655: FND_MSG_PUB.initialize;
1656: END IF;
1657:
1658: -- Initialize API return status to SUCCESS
1659: x_return_status := FND_API.G_RET_STS_SUCCESS;
1660:
1661: -- Hint: Validate data
1662: -- If data not valid
1663: -- THEN
1660:
1661: -- Hint: Validate data
1662: -- If data not valid
1663: -- THEN
1664: -- x_return_status := FND_API.G_RET_STS_ERROR;
1665:
1666: -- Debug Message
1667: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1668: PVX_Utility_PVT.debug_message('Private API: Validate_dm_model_rec');