[Home] [Help]
22:
23: -- Hint: Primary key needs to be returned.
24: PROCEDURE Create_Attribute(
25: p_api_version_number IN NUMBER
26: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
27: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
28: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: ,x_return_status OUT NOCOPY VARCHAR2
23: -- Hint: Primary key needs to be returned.
24: PROCEDURE Create_Attribute(
25: p_api_version_number IN NUMBER
26: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
27: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
28: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: ,x_return_status OUT NOCOPY VARCHAR2
31: ,x_msg_count OUT NOCOPY NUMBER
24: PROCEDURE Create_Attribute(
25: p_api_version_number IN NUMBER
26: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
27: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
28: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
29:
30: ,x_return_status OUT NOCOPY VARCHAR2
31: ,x_msg_count OUT NOCOPY NUMBER
32: ,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_ATTRIBUTE_ID NUMBER;
46: l_dummy NUMBER;
47: l_attribute_rec attribute_rec_type := p_attribute_rec;
48: l_meaning VARCHAR2(80);
60: -- Standard Start of API savepoint
61: SAVEPOINT CREATE_Attribute_PVT;
62:
63: -- Standard call to check for call compatibility.
64: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
65: p_api_version_number,
66: l_api_name,
67: G_PKG_NAME)
68: THEN
65: p_api_version_number,
66: l_api_name,
67: G_PKG_NAME)
68: THEN
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list )
69: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70: END IF;
71:
72: -- Initialize message list if p_init_msg_list is set to TRUE.
73: IF FND_API.to_Boolean( p_init_msg_list )
74: THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77:
82: end if;
83:
84:
85: -- Initialize API return status to SUCCESS
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: -- Local variable initialization
89:
90: IF p_attribute_rec.ATTRIBUTE_ID IS NULL OR p_attribute_rec.ATTRIBUTE_ID = FND_API.g_miss_num THEN
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87:
88: -- Local variable initialization
89:
90: IF p_attribute_rec.ATTRIBUTE_ID IS NULL OR p_attribute_rec.ATTRIBUTE_ID = FND_API.g_miss_num THEN
91: LOOP
92: l_dummy := NULL;
93: OPEN c_id;
94: FETCH c_id INTO l_ATTRIBUTE_ID;
112: IF FND_GLOBAL.User_Id IS NULL
113: THEN
114: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
115: FND_MSG_PUB.add;
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
120: THEN
115: FND_MSG_PUB.add;
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
120: THEN
121: -- Debug message
122: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
123: PVX_UTILITY_PVT.debug_message('Private API: Validate_Attribute');
136:
137: -- Invoke validation procedures
138: Validate_attribute(
139: p_api_version_number => 1.0,
140: p_init_msg_list => FND_API.G_FALSE,
141: p_validation_level => p_validation_level,
142: p_validation_mode => JTF_PLSQL_API.g_create,
143: p_attribute_rec => l_attribute_rec,
144: x_return_status => x_return_status,
145: x_msg_count => x_msg_count,
146: x_msg_data => x_msg_data);
147: END IF;
148:
149: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
150: RAISE FND_API.G_EXC_ERROR;
151: END IF;
152:
153: --check for attribute types
146: x_msg_data => x_msg_data);
147: END IF;
148:
149: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
150: RAISE FND_API.G_EXC_ERROR;
151: END IF;
152:
153: --check for attribute types
154: IF((l_attribute_rec.attribute_type = 'TEXT' and l_attribute_rec.display_style not in ('CURRENCY','DATE','NUMBER','STRING','NULL_CHECK','PERCENTAGE')) OR
176: FND_MESSAGE.Set_Token('DISPLAY_STYLE',l_meaning );
177: FND_MSG_PUB.Add;
178: END IF;
179:
180: RAISE FND_API.G_EXC_ERROR;
181:
182: END IF;
183:
184:
226:
227:
228: x_attribute_id := l_attribute_id;
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: --
234: -- End of API body
227:
228: x_attribute_id := l_attribute_id;
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: --
234: -- End of API body
235: --
234: -- End of API body
235: --
236:
237: -- Standard check for p_commit
238: IF FND_API.to_Boolean( p_commit )
239: THEN
240: COMMIT WORK;
241: END IF;
242:
254: EXCEPTION
255:
256: /*
257: WHEN PVX_UTILITY_PVT.resource_locked THEN
258: x_return_status := FND_API.g_ret_sts_error;
259: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
260: */
261:
262: WHEN FND_API.G_EXC_ERROR THEN
258: x_return_status := FND_API.g_ret_sts_error;
259: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
260: */
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263: ROLLBACK TO CREATE_Attribute_PVT;
264: x_return_status := FND_API.G_RET_STS_ERROR;
265: -- Standard call to get message count and if count=1, get the message
266: FND_MSG_PUB.Count_And_Get (
260: */
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263: ROLLBACK TO CREATE_Attribute_PVT;
264: x_return_status := FND_API.G_RET_STS_ERROR;
265: -- Standard call to get message count and if count=1, get the message
266: FND_MSG_PUB.Count_And_Get (
267: p_encoded => FND_API.G_FALSE,
268: p_count => x_msg_count,
263: ROLLBACK TO CREATE_Attribute_PVT;
264: x_return_status := FND_API.G_RET_STS_ERROR;
265: -- Standard call to get message count and if count=1, get the message
266: FND_MSG_PUB.Count_And_Get (
267: p_encoded => FND_API.G_FALSE,
268: p_count => x_msg_count,
269: p_data => x_msg_data
270: );
271:
268: p_count => x_msg_count,
269: p_data => x_msg_data
270: );
271:
272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273: ROLLBACK TO CREATE_Attribute_PVT;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: -- Standard call to get message count and if count=1, get the message
276: FND_MSG_PUB.Count_And_Get (
270: );
271:
272: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273: ROLLBACK TO CREATE_Attribute_PVT;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: -- Standard call to get message count and if count=1, get the message
276: FND_MSG_PUB.Count_And_Get (
277: p_encoded => FND_API.G_FALSE,
278: p_count => x_msg_count,
273: ROLLBACK TO CREATE_Attribute_PVT;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: -- Standard call to get message count and if count=1, get the message
276: FND_MSG_PUB.Count_And_Get (
277: p_encoded => FND_API.G_FALSE,
278: p_count => x_msg_count,
279: p_data => x_msg_data
280: );
281:
280: );
281:
282: WHEN OTHERS THEN
283: ROLLBACK TO CREATE_Attribute_PVT;
284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
286: THEN
287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
288: END IF;
287: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
288: END IF;
289: -- Standard call to get message count and if count=1, get the message
290: FND_MSG_PUB.Count_And_Get (
291: p_encoded => FND_API.G_FALSE,
292: p_count => x_msg_count,
293: p_data => x_msg_data
294: );
295: End Create_Attribute;
296:
297:
298: PROCEDURE Update_Attribute(
299: p_api_version_number IN NUMBER
300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
302: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
303:
304: ,x_return_status OUT NOCOPY VARCHAR2
297:
298: PROCEDURE Update_Attribute(
299: p_api_version_number IN NUMBER
300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
302: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
303:
304: ,x_return_status OUT NOCOPY VARCHAR2
305: ,x_msg_count OUT NOCOPY NUMBER
298: PROCEDURE Update_Attribute(
299: p_api_version_number IN NUMBER
300: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
301: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
302: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
303:
304: ,x_return_status OUT NOCOPY VARCHAR2
305: ,x_msg_count OUT NOCOPY NUMBER
306: ,x_msg_data OUT NOCOPY VARCHAR2
351: -- Standard Start of API savepoint
352: SAVEPOINT UPDATE_Attribute_PVT;
353:
354: -- Standard call to check for call compatibility.
355: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
356: p_api_version_number,
357: l_api_name,
358: G_PKG_NAME)
359: THEN
356: p_api_version_number,
357: l_api_name,
358: G_PKG_NAME)
359: THEN
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
362:
363: -- Initialize message list if p_init_msg_list is set to TRUE.
364: IF FND_API.to_Boolean( p_init_msg_list )
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
362:
363: -- Initialize message list if p_init_msg_list is set to TRUE.
364: IF FND_API.to_Boolean( p_init_msg_list )
365: THEN
366: FND_MSG_PUB.initialize;
367: END IF;
368:
372: END IF;
373:
374:
375: -- Initialize API return status to SUCCESS
376: x_return_status := FND_API.G_RET_STS_SUCCESS;
377:
378: -- Debug Message
379: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
380: PVX_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
393: FND_MESSAGE.set_token('ENTITY','Attribute');
394: FND_MESSAGE.set_token('ID',TO_CHAR(l_tar_attribute_rec.attribute_id));
395: FND_MSG_PUB.add;
396: END IF;
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;
399:
400: -- Debug Message
401: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
427: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
428: FND_MSG_PUB.Add;
429: END IF;
430:
431: RAISE FND_API.G_EXC_ERROR;
432:
433: end if;
434:
435: --check it is updatable or not by checkiong matching reference
449: FND_MESSAGE.Set_Token('RESPONSIBILITY_LIST',substr(l_being_used_list,2) );
450: FND_MSG_PUB.Add;
451: END IF;
452:
453: RAISE FND_API.G_EXC_ERROR;
454:
455: end if;
456: end if;
457:
473: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
474: FND_MSG_PUB.Add;
475: END IF;
476:
477: RAISE FND_API.G_EXC_ERROR;
478:
479: end if;
480: end if;
481:
497: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
498: FND_MSG_PUB.Add;
499: END IF;
500:
501: RAISE FND_API.G_EXC_ERROR;
502:
503: end if;
504:
505: for x in lc_check_matching (pc_attribute_id =>p_attribute_rec.attribute_id)
517: FND_MESSAGE.Set_Token('RESPONSIBILITY_LIST',substr(l_being_used_list,2) );
518: FND_MSG_PUB.Add;
519: END IF;
520:
521: RAISE FND_API.G_EXC_ERROR;
522:
523: end if;
524:
525: end if;
566: -- FND_MESSAGE.set_token('TO',l_meaning);
567: -- FND_MSG_PUB.add;
568:
569: -- END IF;
570: -- RAISE FND_API.G_EXC_ERROR;
571:
572:
573: -- end if;
574:
629: FND_MESSAGE.set_token('TO',l_meaning);
630: FND_MSG_PUB.add;
631:
632: END IF;
633: RAISE FND_API.G_EXC_ERROR;
634:
635:
636:
637: END IF;
645:
646:
647:
648: If (l_tar_attribute_rec.object_version_number is NULL or
649: l_tar_attribute_rec.object_version_number = FND_API.G_MISS_NUM ) Then
650:
651: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
652: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
653: FND_MESSAGE.set_token('COLUMN', TO_CHAR(l_tar_attribute_rec.last_update_date));
652: FND_MESSAGE.set_name('PV', 'PV_API_VERSION_MISSING');
653: FND_MESSAGE.set_token('COLUMN', TO_CHAR(l_tar_attribute_rec.last_update_date));
654: FND_MSG_PUB.add;
655: END IF;
656: RAISE FND_API.G_EXC_ERROR;
657: End if;
658: -- Check Whether record has been changed by someone else
659: If (l_tar_attribute_rec.object_version_number <> l_ref_attribute_rec.object_version_number) Then
660: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
661: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_CHANGED');
662: FND_MESSAGE.set_token('VALUE','Attribute');
663: FND_MSG_PUB.add;
664: END IF;
665: RAISE FND_API.G_EXC_ERROR;
666: End if;
667: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
668: THEN
669: -- Debug message
663: FND_MSG_PUB.add;
664: END IF;
665: RAISE FND_API.G_EXC_ERROR;
666: End if;
667: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
668: THEN
669: -- Debug message
670: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
671: PVX_UTILITY_PVT.debug_message('Private API: Validate_Attribute');
673: --dbms_output.put_line('Before Validate_attribute');
674: -- Invoke validation procedures
675: Validate_attribute(
676: p_api_version_number => 1.0,
677: p_init_msg_list => FND_API.G_FALSE,
678: p_validation_level => p_validation_level,
679: p_validation_mode => JTF_PLSQL_API.g_update,
680: p_attribute_rec => p_attribute_rec,
681: x_return_status => x_return_status,
685:
686:
687: --DBMS_output.put_line('Before update_row');
688:
689: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
693: -- Debug Message
686:
687: --DBMS_output.put_line('Before update_row');
688:
689: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
693: -- Debug Message
694: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
738: -- End of API body.
739: --
740:
741: -- Standard check for p_commit
742: IF FND_API.to_Boolean( p_commit )
743: THEN
744: COMMIT WORK;
745: END IF;
746:
758: EXCEPTION
759:
760: /*
761: WHEN PVX_UTILITY_PVT.resource_locked THEN
762: x_return_status := FND_API.g_ret_sts_error;
763: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
764: */
765:
766: WHEN FND_API.G_EXC_ERROR THEN
762: x_return_status := FND_API.g_ret_sts_error;
763: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
764: */
765:
766: WHEN FND_API.G_EXC_ERROR THEN
767: ROLLBACK TO UPDATE_Attribute_PVT;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: -- Standard call to get message count and if count=1, get the message
770: FND_MSG_PUB.Count_And_Get (
764: */
765:
766: WHEN FND_API.G_EXC_ERROR THEN
767: ROLLBACK TO UPDATE_Attribute_PVT;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: -- Standard call to get message count and if count=1, get the message
770: FND_MSG_PUB.Count_And_Get (
771: p_encoded => FND_API.G_FALSE,
772: p_count => x_msg_count,
767: ROLLBACK TO UPDATE_Attribute_PVT;
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: -- Standard call to get message count and if count=1, get the message
770: FND_MSG_PUB.Count_And_Get (
771: p_encoded => FND_API.G_FALSE,
772: p_count => x_msg_count,
773: p_data => x_msg_data
774: );
775:
772: p_count => x_msg_count,
773: p_data => x_msg_data
774: );
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777: ROLLBACK TO UPDATE_Attribute_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: -- Standard call to get message count and if count=1, get the message
780: FND_MSG_PUB.Count_And_Get (
774: );
775:
776: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
777: ROLLBACK TO UPDATE_Attribute_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: -- Standard call to get message count and if count=1, get the message
780: FND_MSG_PUB.Count_And_Get (
781: p_encoded => FND_API.G_FALSE,
782: p_count => x_msg_count,
777: ROLLBACK TO UPDATE_Attribute_PVT;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: -- Standard call to get message count and if count=1, get the message
780: FND_MSG_PUB.Count_And_Get (
781: p_encoded => FND_API.G_FALSE,
782: p_count => x_msg_count,
783: p_data => x_msg_data
784: );
785:
784: );
785:
786: WHEN OTHERS THEN
787: ROLLBACK TO UPDATE_Attribute_PVT;
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
790: THEN
791: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
792: END IF;
791: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
792: END IF;
793: -- Standard call to get message count and if count=1, get the message
794: FND_MSG_PUB.Count_And_Get (
795: p_encoded => FND_API.G_FALSE,
796: p_count => x_msg_count,
797: p_data => x_msg_data
798: );
799: End Update_Attribute;
800:
801:
802: PROCEDURE Delete_Attribute(
803: p_api_version_number IN NUMBER
804: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
805: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
806: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
807: ,x_return_status OUT NOCOPY VARCHAR2
808: ,x_msg_count OUT NOCOPY NUMBER
801:
802: PROCEDURE Delete_Attribute(
803: p_api_version_number IN NUMBER
804: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
805: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
806: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
807: ,x_return_status OUT NOCOPY VARCHAR2
808: ,x_msg_count OUT NOCOPY NUMBER
809: ,x_msg_data OUT NOCOPY VARCHAR2
802: PROCEDURE Delete_Attribute(
803: p_api_version_number IN NUMBER
804: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
805: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
806: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
807: ,x_return_status OUT NOCOPY VARCHAR2
808: ,x_msg_count OUT NOCOPY NUMBER
809: ,x_msg_data OUT NOCOPY VARCHAR2
810: ,p_attribute_id IN NUMBER
887: -- Standard Start of API savepoint
888: SAVEPOINT DELETE_Attribute_PVT;
889:
890: -- Standard call to check for call compatibility.
891: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
892: p_api_version_number,
893: l_api_name,
894: G_PKG_NAME)
895: THEN
892: p_api_version_number,
893: l_api_name,
894: G_PKG_NAME)
895: THEN
896: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
897: END IF;
898:
899: -- Initialize message list if p_init_msg_list is set to TRUE.
900: IF FND_API.to_Boolean( p_init_msg_list )
896: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
897: END IF;
898:
899: -- Initialize message list if p_init_msg_list is set to TRUE.
900: IF FND_API.to_Boolean( p_init_msg_list )
901: THEN
902: FND_MSG_PUB.initialize;
903: END IF;
904:
907: PVX_UTILITY_PVT.debug_message('Private API: ' || L_FULL_NAME || ' start');
908: END IF;
909:
910: -- Initialize API return status to SUCCESS
911: x_return_status := FND_API.G_RET_STS_SUCCESS;
912:
913: --
914: -- Api body
915: --
948:
949: FND_MSG_PUB.Add;
950: END IF;
951:
952: RAISE FND_API.G_EXC_ERROR;
953:
954: end if;
955:
956: --check for entity reference
988: FND_MESSAGE.Set_Token('ENTITY_LIST',substr(l_being_used_list,2) );
989: FND_MSG_PUB.Add;
990: END IF;
991:
992: RAISE FND_API.G_EXC_ERROR;
993:
994: end if;
995:
996: --check for rule reference
1011: FND_MESSAGE.Set_Token('RULES_LIST',substr(l_being_used_list,2) );
1012: FND_MSG_PUB.Add;
1013: END IF;
1014:
1015: RAISE FND_API.G_EXC_ERROR;
1016:
1017: end if;
1018:
1019: --check for manual matching reference
1034: FND_MESSAGE.Set_Token('RESPONSIBILITY_LIST',substr(l_being_used_list,2) );
1035: FND_MSG_PUB.Add;
1036: END IF;
1037:
1038: RAISE FND_API.G_EXC_ERROR;
1039:
1040: end if;
1041:
1042: --check for responsibilites mappings reference
1057: FND_MESSAGE.Set_Token('MAP_LIST',substr(l_being_used_list,2) );
1058: FND_MSG_PUB.Add;
1059: END IF;
1060:
1061: RAISE FND_API.G_EXC_ERROR;
1062:
1063: end if;
1064:
1065:
1151: --
1152:
1153:
1154: -- Standard check for p_commit
1155: IF FND_API.to_Boolean( p_commit )
1156: THEN
1157: COMMIT WORK;
1158: END IF;
1159:
1171: EXCEPTION
1172:
1173: /*
1174: WHEN PVX_UTILITY_PVT.resource_locked THEN
1175: x_return_status := FND_API.g_ret_sts_error;
1176: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1177: */
1178:
1179: WHEN FND_API.G_EXC_ERROR THEN
1175: x_return_status := FND_API.g_ret_sts_error;
1176: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1177: */
1178:
1179: WHEN FND_API.G_EXC_ERROR THEN
1180: ROLLBACK TO DELETE_Attribute_PVT;
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- Standard call to get message count and if count=1, get the message
1183: FND_MSG_PUB.Count_And_Get (
1177: */
1178:
1179: WHEN FND_API.G_EXC_ERROR THEN
1180: ROLLBACK TO DELETE_Attribute_PVT;
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- Standard call to get message count and if count=1, get the message
1183: FND_MSG_PUB.Count_And_Get (
1184: p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1180: ROLLBACK TO DELETE_Attribute_PVT;
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182: -- Standard call to get message count and if count=1, get the message
1183: FND_MSG_PUB.Count_And_Get (
1184: p_encoded => FND_API.G_FALSE,
1185: p_count => x_msg_count,
1186: p_data => x_msg_data
1187: );
1188:
1185: p_count => x_msg_count,
1186: p_data => x_msg_data
1187: );
1188:
1189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1190: ROLLBACK TO DELETE_Attribute_PVT;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: -- Standard call to get message count and if count=1, get the message
1193: FND_MSG_PUB.Count_And_Get (
1187: );
1188:
1189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1190: ROLLBACK TO DELETE_Attribute_PVT;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: -- Standard call to get message count and if count=1, get the message
1193: FND_MSG_PUB.Count_And_Get (
1194: p_encoded => FND_API.G_FALSE,
1195: p_count => x_msg_count,
1190: ROLLBACK TO DELETE_Attribute_PVT;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: -- Standard call to get message count and if count=1, get the message
1193: FND_MSG_PUB.Count_And_Get (
1194: p_encoded => FND_API.G_FALSE,
1195: p_count => x_msg_count,
1196: p_data => x_msg_data
1197: );
1198:
1197: );
1198:
1199: WHEN OTHERS THEN
1200: ROLLBACK TO DELETE_Attribute_PVT;
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1203: THEN
1204: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1205: END IF;
1204: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1205: END IF;
1206: -- Standard call to get message count and if count=1, get the message
1207: FND_MSG_PUB.Count_And_Get (
1208: p_encoded => FND_API.G_FALSE,
1209: p_count => x_msg_count,
1210: p_data => x_msg_data
1211: );
1212: End Delete_Attribute;
1215:
1216: -- Hint: Primary key needs to be returned.
1217: PROCEDURE Lock_Attribute(
1218: p_api_version_number IN NUMBER
1219: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1220:
1221: ,x_return_status OUT NOCOPY VARCHAR2
1222: ,x_msg_count OUT NOCOPY NUMBER
1223: ,x_msg_data OUT NOCOPY VARCHAR2
1247: PVX_UTILITY_PVT.debug_message('Private API: ' || L_FULL_NAME || 'start');
1248: END IF;
1249:
1250: -- Initialize message list if p_init_msg_list is set to TRUE.
1251: IF FND_API.to_Boolean( p_init_msg_list )
1252: THEN
1253: FND_MSG_PUB.initialize;
1254: END IF;
1255:
1253: FND_MSG_PUB.initialize;
1254: END IF;
1255:
1256: -- Standard call to check for call compatibility.
1257: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1258: p_api_version_number,
1259: l_api_name,
1260: G_PKG_NAME)
1261: THEN
1258: p_api_version_number,
1259: l_api_name,
1260: G_PKG_NAME)
1261: THEN
1262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1263: END IF;
1264:
1265:
1266: -- Initialize API return status to SUCCESS
1263: END IF;
1264:
1265:
1266: -- Initialize API return status to SUCCESS
1267: x_return_status := FND_API.G_RET_STS_SUCCESS;
1268:
1269:
1270: ------------------------ lock -------------------------
1271:
1279: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1280: FND_MESSAGE.set_name('PV', 'PV_API_RECORD_NOT_FOUND');
1281: FND_MSG_PUB.add;
1282: END IF;
1283: RAISE FND_API.g_exc_error;
1284: END IF;
1285:
1286: CLOSE c_Attribute;
1287:
1286: CLOSE c_Attribute;
1287:
1288: -------------------- finish --------------------------
1289: FND_MSG_PUB.count_and_get(
1290: p_encoded => FND_API.g_false,
1291: p_count => x_msg_count,
1292: p_data => x_msg_data);
1293: PVX_UTILITY_PVT.debug_message(l_full_name ||': end');
1294: EXCEPTION
1293: PVX_UTILITY_PVT.debug_message(l_full_name ||': end');
1294: EXCEPTION
1295:
1296: WHEN PVX_UTILITY_PVT.resource_locked THEN
1297: x_return_status := FND_API.g_ret_sts_error;
1298: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1299:
1300: WHEN FND_API.G_EXC_ERROR THEN
1301: ROLLBACK TO LOCK_Attribute_PVT;
1296: WHEN PVX_UTILITY_PVT.resource_locked THEN
1297: x_return_status := FND_API.g_ret_sts_error;
1298: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1299:
1300: WHEN FND_API.G_EXC_ERROR THEN
1301: ROLLBACK TO LOCK_Attribute_PVT;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: -- Standard call to get message count and if count=1, get the message
1304: FND_MSG_PUB.Count_And_Get (
1298: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1299:
1300: WHEN FND_API.G_EXC_ERROR THEN
1301: ROLLBACK TO LOCK_Attribute_PVT;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: -- Standard call to get message count and if count=1, get the message
1304: FND_MSG_PUB.Count_And_Get (
1305: p_encoded => FND_API.G_FALSE,
1306: p_count => x_msg_count,
1301: ROLLBACK TO LOCK_Attribute_PVT;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: -- Standard call to get message count and if count=1, get the message
1304: FND_MSG_PUB.Count_And_Get (
1305: p_encoded => FND_API.G_FALSE,
1306: p_count => x_msg_count,
1307: p_data => x_msg_data
1308: );
1309:
1306: p_count => x_msg_count,
1307: p_data => x_msg_data
1308: );
1309:
1310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1311: ROLLBACK TO LOCK_Attribute_PVT;
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: -- Standard call to get message count and if count=1, get the message
1314: FND_MSG_PUB.Count_And_Get (
1308: );
1309:
1310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1311: ROLLBACK TO LOCK_Attribute_PVT;
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: -- Standard call to get message count and if count=1, get the message
1314: FND_MSG_PUB.Count_And_Get (
1315: p_encoded => FND_API.G_FALSE,
1316: p_count => x_msg_count,
1311: ROLLBACK TO LOCK_Attribute_PVT;
1312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: -- Standard call to get message count and if count=1, get the message
1314: FND_MSG_PUB.Count_And_Get (
1315: p_encoded => FND_API.G_FALSE,
1316: p_count => x_msg_count,
1317: p_data => x_msg_data
1318: );
1319:
1318: );
1319:
1320: WHEN OTHERS THEN
1321: ROLLBACK TO LOCK_Attribute_PVT;
1322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1323: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1324: THEN
1325: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1326: END IF;
1325: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1326: END IF;
1327: -- Standard call to get message count and if count=1, get the message
1328: FND_MSG_PUB.Count_And_Get (
1329: p_encoded => FND_API.G_FALSE,
1330: p_count => x_msg_count,
1331: p_data => x_msg_data
1332: );
1333: End Lock_Attribute;
1346:
1347:
1348: BEGIN
1349:
1350: x_return_status := FND_API.g_ret_sts_success;
1351: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1352: l_valid_flag := PVX_UTILITY_PVT.check_uniqueness(
1353: 'PV_ATTRIBUTES_B',
1354: 'ATTRIBUTE_ID = ''' || p_attribute_rec.ATTRIBUTE_ID ||''''
1360: ''' AND ATTRIBUTE_ID <> ' || p_attribute_rec.ATTRIBUTE_ID
1361: );
1362: END IF;
1363:
1364: IF l_valid_flag = FND_API.g_false THEN
1365: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1366: FND_MESSAGE.set_name('PV', 'PV_API_DUPLICATE_ENTITY');
1367: FND_MESSAGE.set_token('ID',to_char(p_attribute_rec.ATTRIBUTE_ID) );
1368: FND_MESSAGE.set_token('ENTITY','Attribute');
1367: FND_MESSAGE.set_token('ID',to_char(p_attribute_rec.ATTRIBUTE_ID) );
1368: FND_MESSAGE.set_token('ENTITY','Attribute');
1369: FND_MSG_PUB.add;
1370: END IF;
1371: x_return_status := FND_API.g_ret_sts_error;
1372: RETURN;
1373: END IF;
1374:
1375:
1389: --FND_MESSAGE.set_token('ID',to_char(p_attribute_rec.ATTRIBUTE_ID) || ':::' || p_attribute_rec.name);
1390: --FND_MESSAGE.set_token('ENTITY','Attribute');
1391: FND_MSG_PUB.add;
1392: END IF;
1393: --x_return_status := FND_API.g_ret_sts_error;
1394: RAISE FND_API.G_EXC_ERROR;
1395: end if;
1396:
1397: end loop;
1390: --FND_MESSAGE.set_token('ENTITY','Attribute');
1391: FND_MSG_PUB.add;
1392: END IF;
1393: --x_return_status := FND_API.g_ret_sts_error;
1394: RAISE FND_API.G_EXC_ERROR;
1395: end if;
1396:
1397: end loop;
1398: END IF;
1404: 'PV_ATTRIBUTES_TL','SHORT_NAME = ''' || p_attribute_rec.SHORT_NAME
1405: ||''' AND LANGUAGE = ' || userenv('LANG') );
1406: END IF ;
1407:
1408: IF l_valid_tl_flag = FND_API.g_false THEN
1409: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1410: FND_MESSAGE.set_name('PV', 'PV_DUPLICATE_RECORD');
1411: FND_MSG_PUB.add;
1412: END IF;
1409: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1410: FND_MESSAGE.set_name('PV', 'PV_DUPLICATE_RECORD');
1411: FND_MSG_PUB.add;
1412: END IF;
1413: x_return_status := FND_API.g_ret_sts_error;
1414: RETURN;
1415: END IF;
1416:
1417: -- End
1424: x_return_status OUT NOCOPY VARCHAR2
1425: )
1426: IS
1427: BEGIN
1428: x_return_status := FND_API.g_ret_sts_success;
1429:
1430: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1431:
1432: IF p_attribute_rec.attribute_id = FND_API.g_miss_num OR p_attribute_rec.attribute_id IS NULL THEN
1428: x_return_status := FND_API.g_ret_sts_success;
1429:
1430: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1431:
1432: IF p_attribute_rec.attribute_id = FND_API.g_miss_num OR p_attribute_rec.attribute_id IS NULL THEN
1433: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1434: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1435: FND_MESSAGE.set_token('COLUMN','attribute_id');
1436: FND_MSG_PUB.add;
1434: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1435: FND_MESSAGE.set_token('COLUMN','attribute_id');
1436: FND_MSG_PUB.add;
1437: END IF;
1438: x_return_status := FND_API.g_ret_sts_error;
1439: RETURN;
1440: END IF;
1441:
1442:
1439: RETURN;
1440: END IF;
1441:
1442:
1443: IF p_attribute_rec.last_update_date = FND_API.g_miss_date OR p_attribute_rec.last_update_date IS NULL THEN
1444: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1445: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1446: FND_MESSAGE.set_token('COLUMN','last_update_date');
1447: FND_MSG_PUB.add;
1445: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1446: FND_MESSAGE.set_token('COLUMN','last_update_date');
1447: FND_MSG_PUB.add;
1448: END IF;
1449: x_return_status := FND_API.g_ret_sts_error;
1450: RETURN;
1451: END IF;
1452:
1453:
1450: RETURN;
1451: END IF;
1452:
1453:
1454: IF p_attribute_rec.last_updated_by = FND_API.g_miss_num OR p_attribute_rec.last_updated_by IS NULL THEN
1455: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1456: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1457: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1458: FND_MSG_PUB.add;
1456: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1457: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1458: FND_MSG_PUB.add;
1459: END IF;
1460: x_return_status := FND_API.g_ret_sts_error;
1461: RETURN;
1462: END IF;
1463:
1464:
1461: RETURN;
1462: END IF;
1463:
1464:
1465: IF p_attribute_rec.creation_date = FND_API.g_miss_date OR p_attribute_rec.creation_date IS NULL THEN
1466: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1467: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1468: FND_MESSAGE.set_token('COLUMN','creation_date');
1469: FND_MSG_PUB.add;
1467: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1468: FND_MESSAGE.set_token('COLUMN','creation_date');
1469: FND_MSG_PUB.add;
1470: END IF;
1471: x_return_status := FND_API.g_ret_sts_error;
1472: RETURN;
1473: END IF;
1474:
1475:
1472: RETURN;
1473: END IF;
1474:
1475:
1476: IF p_attribute_rec.created_by = FND_API.g_miss_num OR p_attribute_rec.created_by IS NULL THEN
1477: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1478: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1479: FND_MESSAGE.set_token('COLUMN','created_by');
1480: FND_MSG_PUB.add;
1478: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1479: FND_MESSAGE.set_token('COLUMN','created_by');
1480: FND_MSG_PUB.add;
1481: END IF;
1482: x_return_status := FND_API.g_ret_sts_error;
1483: RETURN;
1484: END IF;
1485:
1486:
1483: RETURN;
1484: END IF;
1485:
1486:
1487: IF p_attribute_rec.last_update_login = FND_API.g_miss_num OR p_attribute_rec.last_update_login IS NULL THEN
1488: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1489: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1490: FND_MESSAGE.set_token('COLUMN','last_update_login');
1491: FND_MSG_PUB.add;
1489: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1490: FND_MESSAGE.set_token('COLUMN','last_update_login');
1491: FND_MSG_PUB.add;
1492: END IF;
1493: x_return_status := FND_API.g_ret_sts_error;
1494: RETURN;
1495: END IF;
1496:
1497:
1494: RETURN;
1495: END IF;
1496:
1497:
1498: IF p_attribute_rec.object_version_number = FND_API.g_miss_num OR p_attribute_rec.object_version_number IS NULL THEN
1499: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1500: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1501: FND_MESSAGE.set_token('COLUMN','object_version_number');
1502: FND_MSG_PUB.add;
1500: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1501: FND_MESSAGE.set_token('COLUMN','object_version_number');
1502: FND_MSG_PUB.add;
1503: END IF;
1504: x_return_status := FND_API.g_ret_sts_error;
1505: RETURN;
1506: END IF;
1507:
1508:
1505: RETURN;
1506: END IF;
1507:
1508:
1509: IF p_attribute_rec.enabled_flag = FND_API.g_miss_char OR p_attribute_rec.enabled_flag IS NULL THEN
1510: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1511: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1512: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1513: FND_MSG_PUB.add;
1511: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1512: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1513: FND_MSG_PUB.add;
1514: END IF;
1515: x_return_status := FND_API.g_ret_sts_error;
1516: RETURN;
1517: END IF;
1518:
1519: IF p_attribute_rec.short_name = FND_API.g_miss_char OR p_attribute_rec.short_name IS NULL THEN
1515: x_return_status := FND_API.g_ret_sts_error;
1516: RETURN;
1517: END IF;
1518:
1519: IF p_attribute_rec.short_name = FND_API.g_miss_char OR p_attribute_rec.short_name IS NULL THEN
1520: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1521: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1522: FND_MESSAGE.set_token('COLUMN','short_name');
1523: FND_MSG_PUB.add;
1521: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1522: FND_MESSAGE.set_token('COLUMN','short_name');
1523: FND_MSG_PUB.add;
1524: END IF;
1525: x_return_status := FND_API.g_ret_sts_error;
1526: RETURN;
1527: END IF;
1528:
1529: ELSE
1534: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1535: FND_MESSAGE.set_token('COLUMN','attribute_id');
1536: FND_MSG_PUB.add;
1537: END IF;
1538: x_return_status := FND_API.g_ret_sts_error;
1539: RETURN;
1540: END IF;
1541:
1542:
1545: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1546: FND_MESSAGE.set_token('COLUMN','last_update_date');
1547: FND_MSG_PUB.add;
1548: END IF;
1549: x_return_status := FND_API.g_ret_sts_error;
1550: RETURN;
1551: END IF;
1552:
1553:
1556: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1557: FND_MESSAGE.set_token('COLUMN','last_updated_by');
1558: FND_MSG_PUB.add;
1559: end if;
1560: x_return_status := FND_API.g_ret_sts_error;
1561: RETURN;
1562: END IF;
1563:
1564:
1567: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1568: FND_MESSAGE.set_token('COLUMN','creation_date');
1569: FND_MSG_PUB.add;
1570: end if;
1571: x_return_status := FND_API.g_ret_sts_error;
1572: RETURN;
1573: END IF;
1574:
1575:
1578: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1579: FND_MESSAGE.set_token('COLUMN','created_by');
1580: FND_MSG_PUB.add;
1581: end if;
1582: x_return_status := FND_API.g_ret_sts_error;
1583: RETURN;
1584: END IF;
1585:
1586:
1589: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1590: FND_MESSAGE.set_token('COLUMN','last_update_login');
1591: FND_MSG_PUB.add;
1592: end if;
1593: x_return_status := FND_API.g_ret_sts_error;
1594: RETURN;
1595: END IF;
1596:
1597:
1600: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1601: FND_MESSAGE.set_token('COLUMN','object_version_number');
1602: FND_MSG_PUB.add;
1603: end if;
1604: x_return_status := FND_API.g_ret_sts_error;
1605: RETURN;
1606: END IF;
1607:
1608:
1611: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1612: FND_MESSAGE.set_token('COLUMN','enabled_flag');
1613: FND_MSG_PUB.add;
1614: end if;
1615: x_return_status := FND_API.g_ret_sts_error;
1616: RETURN;
1617: END IF;
1618: END IF;
1619:
1623: FND_MESSAGE.set_name('PV', 'PV_API_MISSING_REQ_COLUMN');
1624: FND_MESSAGE.set_token('COLUMN','short_name');
1625: FND_MSG_PUB.add;
1626: end if;
1627: x_return_status := FND_API.g_ret_sts_error;
1628: RETURN;
1629: END IF;
1630:
1631:
1637: x_return_status OUT NOCOPY VARCHAR2
1638: )
1639: IS
1640: BEGIN
1641: x_return_status := FND_API.g_ret_sts_success;
1642:
1643: -- Enter custom code here
1644:
1645: END check_fk_items;
1649: x_return_status OUT NOCOPY VARCHAR2
1650: )
1651: IS
1652: BEGIN
1653: x_return_status := FND_API.g_ret_sts_success;
1654:
1655: -- Enter custom code here
1656:
1657: END check_lookup_items;
1671: check_uk_items(
1672: p_attribute_rec => p_attribute_rec,
1673: p_validation_mode => p_validation_mode,
1674: x_return_status => x_return_status);
1675: IF x_return_status <> FND_API.g_ret_sts_success THEN
1676: RETURN;
1677: END IF;
1678:
1679: -- Check Items Required/NOT NULL API calls
1683: check_req_items(
1684: p_attribute_rec => p_attribute_rec,
1685: p_validation_mode => p_validation_mode,
1686: x_return_status => x_return_status);
1687: IF x_return_status <> FND_API.g_ret_sts_success THEN
1688: RETURN;
1689: END IF;
1690: -- Check Items Foreign Keys API calls
1691:
1693:
1694: check_fk_items(
1695: p_attribute_rec => p_attribute_rec,
1696: x_return_status => x_return_status);
1697: IF x_return_status <> FND_API.g_ret_sts_success THEN
1698: RETURN;
1699: END IF;
1700: -- Check Items Lookups
1701:
1703:
1704: check_lookup_items(
1705: p_attribute_rec => p_attribute_rec,
1706: x_return_status => x_return_status);
1707: IF x_return_status <> FND_API.g_ret_sts_success THEN
1708: RETURN;
1709: END IF;
1710:
1711:
1733: FETCH c_complete INTO l_attribute_rec;
1734: CLOSE c_complete;
1735:
1736: -- attribute_id
1737: IF p_attribute_rec.attribute_id = FND_API.g_miss_num THEN
1738: x_complete_rec.attribute_id := l_attribute_rec.attribute_id;
1739: END IF;
1740:
1741: -- last_update_date
1738: x_complete_rec.attribute_id := l_attribute_rec.attribute_id;
1739: END IF;
1740:
1741: -- last_update_date
1742: IF p_attribute_rec.last_update_date = FND_API.g_miss_date THEN
1743: x_complete_rec.last_update_date := l_attribute_rec.last_update_date;
1744: END IF;
1745:
1746: -- last_updated_by
1743: x_complete_rec.last_update_date := l_attribute_rec.last_update_date;
1744: END IF;
1745:
1746: -- last_updated_by
1747: IF p_attribute_rec.last_updated_by = FND_API.g_miss_num THEN
1748: x_complete_rec.last_updated_by := l_attribute_rec.last_updated_by;
1749: END IF;
1750:
1751: -- creation_date
1748: x_complete_rec.last_updated_by := l_attribute_rec.last_updated_by;
1749: END IF;
1750:
1751: -- creation_date
1752: IF p_attribute_rec.creation_date = FND_API.g_miss_date THEN
1753: x_complete_rec.creation_date := l_attribute_rec.creation_date;
1754: END IF;
1755:
1756: -- created_by
1753: x_complete_rec.creation_date := l_attribute_rec.creation_date;
1754: END IF;
1755:
1756: -- created_by
1757: IF p_attribute_rec.created_by = FND_API.g_miss_num THEN
1758: x_complete_rec.created_by := l_attribute_rec.created_by;
1759: END IF;
1760:
1761: -- last_update_login
1758: x_complete_rec.created_by := l_attribute_rec.created_by;
1759: END IF;
1760:
1761: -- last_update_login
1762: IF p_attribute_rec.last_update_login = FND_API.g_miss_num THEN
1763: x_complete_rec.last_update_login := l_attribute_rec.last_update_login;
1764: END IF;
1765:
1766: -- object_version_number
1763: x_complete_rec.last_update_login := l_attribute_rec.last_update_login;
1764: END IF;
1765:
1766: -- object_version_number
1767: IF p_attribute_rec.object_version_number = FND_API.g_miss_num THEN
1768: x_complete_rec.object_version_number := l_attribute_rec.object_version_number;
1769: END IF;
1770:
1771: -- security_group_id
1769: END IF;
1770:
1771: -- security_group_id
1772: /*
1773: IF p_attribute_rec.security_group_id = FND_API.g_miss_num THEN
1774: x_complete_rec.security_group_id := l_attribute_rec.security_group_id;
1775: END IF;
1776: */
1777:
1775: END IF;
1776: */
1777:
1778: -- enabled_flag
1779: IF p_attribute_rec.enabled_flag = FND_API.g_miss_char THEN
1780: x_complete_rec.enabled_flag := l_attribute_rec.enabled_flag;
1781: END IF;
1782:
1783: -- attribute_type
1780: x_complete_rec.enabled_flag := l_attribute_rec.enabled_flag;
1781: END IF;
1782:
1783: -- attribute_type
1784: IF p_attribute_rec.attribute_type = FND_API.g_miss_char THEN
1785: x_complete_rec.attribute_type := l_attribute_rec.attribute_type;
1786: END IF;
1787:
1788: -- attribute_category
1785: x_complete_rec.attribute_type := l_attribute_rec.attribute_type;
1786: END IF;
1787:
1788: -- attribute_category
1789: IF p_attribute_rec.attribute_category = FND_API.g_miss_char THEN
1790: x_complete_rec.attribute_category := l_attribute_rec.attribute_category;
1791: END IF;
1792:
1793: -- seeded_flag
1790: x_complete_rec.attribute_category := l_attribute_rec.attribute_category;
1791: END IF;
1792:
1793: -- seeded_flag
1794: IF p_attribute_rec.seeded_flag = FND_API.g_miss_char THEN
1795: x_complete_rec.seeded_flag := l_attribute_rec.seeded_flag;
1796: END IF;
1797:
1798: -- lov_function_name
1795: x_complete_rec.seeded_flag := l_attribute_rec.seeded_flag;
1796: END IF;
1797:
1798: -- lov_function_name
1799: IF p_attribute_rec.lov_function_name = FND_API.g_miss_char THEN
1800: x_complete_rec.lov_function_name := l_attribute_rec.lov_function_name;
1801: END IF;
1802:
1803: -- return_type
1800: x_complete_rec.lov_function_name := l_attribute_rec.lov_function_name;
1801: END IF;
1802:
1803: -- return_type
1804: IF p_attribute_rec.return_type = FND_API.g_miss_char THEN
1805: x_complete_rec.return_type := l_attribute_rec.return_type;
1806: END IF;
1807:
1808: -- max_value_flag
1805: x_complete_rec.return_type := l_attribute_rec.return_type;
1806: END IF;
1807:
1808: -- max_value_flag
1809: IF p_attribute_rec.max_value_flag = FND_API.g_miss_char THEN
1810: x_complete_rec.max_value_flag := l_attribute_rec.max_value_flag;
1811: END IF;
1812:
1813: -- name
1810: x_complete_rec.max_value_flag := l_attribute_rec.max_value_flag;
1811: END IF;
1812:
1813: -- name
1814: IF p_attribute_rec.name = FND_API.g_miss_char THEN
1815: x_complete_rec.name := l_attribute_rec.name;
1816: END IF;
1817:
1818: -- description
1815: x_complete_rec.name := l_attribute_rec.name;
1816: END IF;
1817:
1818: -- description
1819: IF p_attribute_rec.description = FND_API.g_miss_char THEN
1820: x_complete_rec.description := l_attribute_rec.description;
1821: END IF;
1822:
1823: -- short_name
1820: x_complete_rec.description := l_attribute_rec.description;
1821: END IF;
1822:
1823: -- short_name
1824: IF p_attribute_rec.short_name = FND_API.g_miss_char THEN
1825: x_complete_rec.short_name := l_attribute_rec.short_name;
1826: END IF;
1827:
1828: -- dispaly_style
1825: x_complete_rec.short_name := l_attribute_rec.short_name;
1826: END IF;
1827:
1828: -- dispaly_style
1829: IF p_attribute_rec.display_style = FND_API.g_miss_char THEN
1830: x_complete_rec.display_style := l_attribute_rec.display_style;
1831: END IF;
1832:
1833: -- character_width
1830: x_complete_rec.display_style := l_attribute_rec.display_style;
1831: END IF;
1832:
1833: -- character_width
1834: IF p_attribute_rec.character_width = FND_API.g_miss_num THEN
1835: x_complete_rec.character_width := l_attribute_rec.character_width;
1836: END IF;
1837:
1838: -- decimal_points
1835: x_complete_rec.character_width := l_attribute_rec.character_width;
1836: END IF;
1837:
1838: -- decimal_points
1839: IF p_attribute_rec.decimal_points = FND_API.g_miss_num THEN
1840: x_complete_rec.decimal_points := l_attribute_rec.decimal_points;
1841: END IF;
1842:
1843: -- no_of_lines
1840: x_complete_rec.decimal_points := l_attribute_rec.decimal_points;
1841: END IF;
1842:
1843: -- no_of_lines
1844: IF p_attribute_rec.no_of_lines = FND_API.g_miss_num THEN
1845: x_complete_rec.no_of_lines := l_attribute_rec.no_of_lines;
1846: END IF;
1847:
1848: -- expose_to_partner_flag
1845: x_complete_rec.no_of_lines := l_attribute_rec.no_of_lines;
1846: END IF;
1847:
1848: -- expose_to_partner_flag
1849: IF p_attribute_rec.expose_to_partner_flag = FND_API.g_miss_char THEN
1850: x_complete_rec.expose_to_partner_flag := l_attribute_rec.expose_to_partner_flag;
1851: END IF;
1852:
1853: -- value_extn_return_type
1850: x_complete_rec.expose_to_partner_flag := l_attribute_rec.expose_to_partner_flag;
1851: END IF;
1852:
1853: -- value_extn_return_type
1854: IF p_attribute_rec.value_extn_return_type = FND_API.g_miss_char THEN
1855: x_complete_rec.value_extn_return_type := l_attribute_rec.value_extn_return_type;
1856: END IF;
1857:
1858: -- enable_matching_flag
1855: x_complete_rec.value_extn_return_type := l_attribute_rec.value_extn_return_type;
1856: END IF;
1857:
1858: -- enable_matching_flag
1859: IF p_attribute_rec.enable_matching_flag = FND_API.g_miss_char THEN
1860: x_complete_rec.enable_matching_flag := l_attribute_rec.enable_matching_flag;
1861:
1862: END IF;
1863:
1861:
1862: END IF;
1863:
1864: -- PErformance flag
1865: IF p_attribute_rec.performance_flag = FND_API.g_miss_char THEN
1866: x_complete_rec.performance_flag := l_attribute_rec.performance_flag;
1867:
1868: END IF;
1869:
1867:
1868: END IF;
1869:
1870: -- Additive flag
1871: IF p_attribute_rec.additive_flag = FND_API.g_miss_char THEN
1872: x_complete_rec.additive_flag := l_attribute_rec.additive_flag;
1873:
1874: END IF;
1875:
1873:
1874: END IF;
1875:
1876: -- sequence_number
1877: IF p_attribute_rec.sequence_number = FND_API.g_miss_num THEN
1878: x_complete_rec.sequence_number := l_attribute_rec.sequence_number;
1879:
1880: END IF;
1881:
1886: END Complete_attribute_Rec;
1887:
1888: PROCEDURE Validate_attribute(
1889: p_api_version_number IN NUMBER
1890: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1891: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1892: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_update
1893: ,p_attribute_rec IN attribute_rec_type
1894: ,x_return_status OUT NOCOPY VARCHAR2
1887:
1888: PROCEDURE Validate_attribute(
1889: p_api_version_number IN NUMBER
1890: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1891: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1892: ,p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_update
1893: ,p_attribute_rec IN attribute_rec_type
1894: ,x_return_status OUT NOCOPY VARCHAR2
1895: ,x_msg_count OUT NOCOPY NUMBER
1909: --DBMS_output.put_line('Begin Validate_attribute');
1910:
1911:
1912: -- Standard call to check for call compatibility.
1913: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1914: p_api_version_number,
1915: l_api_name,
1916: G_PKG_NAME)
1917: THEN
1914: p_api_version_number,
1915: l_api_name,
1916: G_PKG_NAME)
1917: THEN
1918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1919: END IF;
1920:
1921: -- Initialize message list if p_init_msg_list is set to TRUE.
1922: IF FND_API.to_Boolean( p_init_msg_list )
1918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1919: END IF;
1920:
1921: -- Initialize message list if p_init_msg_list is set to TRUE.
1922: IF FND_API.to_Boolean( p_init_msg_list )
1923: THEN
1924: FND_MSG_PUB.initialize;
1925: END IF;
1926: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1932: p_validation_mode => p_validation_mode,
1933: x_return_status => x_return_status
1934: );
1935:
1936: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1937: RAISE FND_API.G_EXC_ERROR;
1938: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1933: x_return_status => x_return_status
1934: );
1935:
1936: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1937: RAISE FND_API.G_EXC_ERROR;
1938: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941: END IF;
1934: );
1935:
1936: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1937: RAISE FND_API.G_EXC_ERROR;
1938: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941: END IF;
1942:
1935:
1936: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1937: RAISE FND_API.G_EXC_ERROR;
1938: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1940: END IF;
1941: END IF;
1942:
1943: --DBMS_output.put_line('Before Complete_attribute_Rec');
1952: --DBMS_output.put_line('Before Validate_attribute_Rec');
1953:
1954: Validate_attribute_Rec(
1955: p_api_version_number => 1.0
1956: ,p_init_msg_list => FND_API.G_FALSE
1957: ,x_return_status => x_return_status
1958: ,x_msg_count => x_msg_count
1959: ,x_msg_data => x_msg_data
1960: ,p_attribute_rec => l_attribute_rec
1960: ,p_attribute_rec => l_attribute_rec
1961: ,p_validation_mode => p_validation_mode
1962: );
1963:
1964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1965: RAISE FND_API.G_EXC_ERROR;
1966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1961: ,p_validation_mode => p_validation_mode
1962: );
1963:
1964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1965: RAISE FND_API.G_EXC_ERROR;
1966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1969: END IF;
1962: );
1963:
1964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1965: RAISE FND_API.G_EXC_ERROR;
1966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1969: END IF;
1970:
1963:
1964: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1965: RAISE FND_API.G_EXC_ERROR;
1966: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1968: END IF;
1969: END IF;
1970:
1971: -- Debug Message
1974: END IF;
1975:
1976:
1977: -- Initialize API return status to SUCCESS
1978: x_return_status := FND_API.G_RET_STS_SUCCESS;
1979:
1980: -- Debug Message
1981: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
1982: PVX_UTILITY_PVT.debug_message('Private API: ' || L_FULL_NAME || 'end');
1990: EXCEPTION
1991:
1992: WHEN PVX_UTILITY_PVT.resource_locked THEN
1993:
1994: x_return_status := FND_API.g_ret_sts_error;
1995: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1996:
1997: WHEN FND_API.G_EXC_ERROR THEN
1998: ROLLBACK TO VALIDATE_Attribute_PVT;
1993:
1994: x_return_status := FND_API.g_ret_sts_error;
1995: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1996:
1997: WHEN FND_API.G_EXC_ERROR THEN
1998: ROLLBACK TO VALIDATE_Attribute_PVT;
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000: -- Standard call to get message count and if count=1, get the message
2001: FND_MSG_PUB.Count_And_Get (
1995: PVX_UTILITY_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1996:
1997: WHEN FND_API.G_EXC_ERROR THEN
1998: ROLLBACK TO VALIDATE_Attribute_PVT;
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000: -- Standard call to get message count and if count=1, get the message
2001: FND_MSG_PUB.Count_And_Get (
2002: p_encoded => FND_API.G_FALSE,
2003: p_count => x_msg_count,
1998: ROLLBACK TO VALIDATE_Attribute_PVT;
1999: x_return_status := FND_API.G_RET_STS_ERROR;
2000: -- Standard call to get message count and if count=1, get the message
2001: FND_MSG_PUB.Count_And_Get (
2002: p_encoded => FND_API.G_FALSE,
2003: p_count => x_msg_count,
2004: p_data => x_msg_data
2005: );
2006:
2003: p_count => x_msg_count,
2004: p_data => x_msg_data
2005: );
2006:
2007: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2008: ROLLBACK TO VALIDATE_Attribute_PVT;
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010: -- Standard call to get message count and if count=1, get the message
2011: FND_MSG_PUB.Count_And_Get (
2005: );
2006:
2007: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2008: ROLLBACK TO VALIDATE_Attribute_PVT;
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010: -- Standard call to get message count and if count=1, get the message
2011: FND_MSG_PUB.Count_And_Get (
2012: p_encoded => FND_API.G_FALSE,
2013: p_count => x_msg_count,
2008: ROLLBACK TO VALIDATE_Attribute_PVT;
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010: -- Standard call to get message count and if count=1, get the message
2011: FND_MSG_PUB.Count_And_Get (
2012: p_encoded => FND_API.G_FALSE,
2013: p_count => x_msg_count,
2014: p_data => x_msg_data
2015: );
2016:
2015: );
2016:
2017: WHEN OTHERS THEN
2018: ROLLBACK TO VALIDATE_Attribute_PVT;
2019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2020: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2021: THEN
2022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2023: END IF;
2022: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2023: END IF;
2024: -- Standard call to get message count and if count=1, get the message
2025: FND_MSG_PUB.Count_And_Get (
2026: p_encoded => FND_API.G_FALSE,
2027: p_count => x_msg_count,
2028: p_data => x_msg_data
2029: );
2030:
2032:
2033:
2034: PROCEDURE Validate_attribute_rec(
2035: p_api_version_number IN NUMBER
2036: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2037: ,x_return_status OUT NOCOPY VARCHAR2
2038: ,x_msg_count OUT NOCOPY NUMBER
2039: ,x_msg_data OUT NOCOPY VARCHAR2
2040: ,p_attribute_rec IN attribute_rec_type
2045:
2046: --DBMS_output.put_line('validate_attribute_rec');
2047:
2048: -- Initialize message list if p_init_msg_list is set to TRUE.
2049: IF FND_API.to_Boolean( p_init_msg_list )
2050: THEN
2051: FND_MSG_PUB.initialize;
2052: END IF;
2053:
2051: FND_MSG_PUB.initialize;
2052: END IF;
2053:
2054: -- Initialize API return status to SUCCESS
2055: x_return_status := FND_API.G_RET_STS_SUCCESS;
2056:
2057: -- Hint: Validate data
2058: -- If data not valid
2059: -- THEN
2056:
2057: -- Hint: Validate data
2058: -- If data not valid
2059: -- THEN
2060: -- x_return_status := FND_API.G_RET_STS_ERROR;
2061:
2062: -- Debug Message
2063: IF (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)) THEN
2064: PVX_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');