57: -- Parameters
58: --
59: -- IN
60: -- p_api_version_number IN NUMBER Required
61: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
62: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
63: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
64: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
65: --
58: --
59: -- IN
60: -- p_api_version_number IN NUMBER Required
61: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
62: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
63: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
64: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
65: --
66: -- OUT
59: -- IN
60: -- p_api_version_number IN NUMBER Required
61: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
62: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
63: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
64: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
65: --
66: -- OUT
67: -- x_return_status OUT VARCHAR2
83: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
84:
85: PROCEDURE Create_Gq_Elements(
86: p_api_version_number IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90:
91: x_return_status OUT NOCOPY VARCHAR2,
84:
85: PROCEDURE Create_Gq_Elements(
86: p_api_version_number IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90:
91: x_return_status OUT NOCOPY VARCHAR2,
92: x_msg_count OUT NOCOPY NUMBER,
85: PROCEDURE Create_Gq_Elements(
86: p_api_version_number IN NUMBER,
87: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88: p_commit IN VARCHAR2 := FND_API.G_FALSE,
89: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90:
91: x_return_status OUT NOCOPY VARCHAR2,
92: x_msg_count OUT NOCOPY NUMBER,
93: x_msg_data OUT NOCOPY VARCHAR2,
100: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Gq_Elements';
101: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
102: l_return_status_full VARCHAR2(1);
103: l_object_version_number NUMBER := 1;
104: l_org_id NUMBER := FND_API.G_MISS_NUM;
105: l_qsnr_element_id NUMBER;
106: l_dummy NUMBER;
107: l_qsnr_element_rec qsnr_element_rec_type := p_qsnr_element_rec;
108:
118: -- Standard Start of API savepoint
119: SAVEPOINT create_gq_elements_pvt;
120:
121: -- Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
123: p_api_version_number,
124: l_api_name,
125: G_PKG_NAME)
126: THEN
123: p_api_version_number,
124: l_api_name,
125: G_PKG_NAME)
126: THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
129:
130:
131: -- Initialize message list if p_init_msg_list is set to TRUE.
128: END IF;
129:
130:
131: -- Initialize message list if p_init_msg_list is set to TRUE.
132: IF FND_API.to_Boolean( p_init_msg_list )
133: THEN
134: FND_MSG_PUB.initialize;
135: END IF;
136:
144:
145:
146:
147: -- Initialize API return status to SUCCESS
148: x_return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: -- Local variable initialization
151:
152: IF p_qsnr_element_rec.qsnr_element_id IS NULL OR p_qsnr_element_rec.qsnr_element_id = FND_API.g_miss_num THEN
148: x_return_status := FND_API.G_RET_STS_SUCCESS;
149:
150: -- Local variable initialization
151:
152: IF p_qsnr_element_rec.qsnr_element_id IS NULL OR p_qsnr_element_rec.qsnr_element_id = FND_API.g_miss_num THEN
153: LOOP
154: l_dummy := NULL;
155: OPEN c_id;
156: FETCH c_id INTO l_qsnr_element_id;
172:
173: IF FND_GLOBAL.USER_ID IS NULL
174: THEN
175: PVX_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178:
179:
180:
177: END IF;
178:
179:
180:
181: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
182: THEN
183: -- Debug message
184: IF (PV_DEBUG_HIGH_ON) THEN
185:
196:
197: -- Invoke validation procedures
198: Validate_gq_elements(
199: p_api_version_number => 1.0,
200: p_init_msg_list => FND_API.G_FALSE,
201: p_validation_level => p_validation_level,
202: p_validation_mode => JTF_PLSQL_API.g_create,
203: p_qsnr_element_rec => l_qsnr_element_rec,
204: x_return_status => x_return_status,
205: x_msg_count => x_msg_count,
206: x_msg_data => x_msg_data);
207: END IF;
208:
209: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212:
213:
206: x_msg_data => x_msg_data);
207: END IF;
208:
209: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
210: RAISE FND_API.G_EXC_ERROR;
211: END IF;
212:
213:
214: -- Debug Message
237: p_elmt_content => l_qsnr_element_rec.elmt_content
238: );
239:
240: x_qsnr_element_id := l_qsnr_element_id;
241: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
242: RAISE FND_API.G_EXC_ERROR;
243: END IF;
244: --
245: -- End of API body
238: );
239:
240: x_qsnr_element_id := l_qsnr_element_id;
241: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
242: RAISE FND_API.G_EXC_ERROR;
243: END IF;
244: --
245: -- End of API body
246: --
245: -- End of API body
246: --
247:
248: -- Standard check for p_commit
249: IF FND_API.to_Boolean( p_commit )
250: THEN
251: COMMIT WORK;
252: END IF;
253:
266: );
267: EXCEPTION
268:
269: WHEN PVX_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Gq_Elements_PVT;
269: WHEN PVX_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Gq_Elements_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
271: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Gq_Elements_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
278: p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
274: ROLLBACK TO CREATE_Gq_Elements_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
278: p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282:
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: ROLLBACK TO CREATE_Gq_Elements_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
281: );
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: ROLLBACK TO CREATE_Gq_Elements_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
288: p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
284: ROLLBACK TO CREATE_Gq_Elements_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
288: p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
290: p_data => x_msg_data
291: );
292:
291: );
292:
293: WHEN OTHERS THEN
294: ROLLBACK TO CREATE_Gq_Elements_PVT;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
297: THEN
298: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
299: END IF;
298: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
299: END IF;
300: -- Standard call to get message count and if count=1, get the message
301: FND_MSG_PUB.Count_And_Get (
302: p_encoded => FND_API.G_FALSE,
303: p_count => x_msg_count,
304: p_data => x_msg_data
305: );
306: End Create_Gq_Elements;
319: *********************/
320: PROCEDURE Copy_Row
321: (
322: p_api_version_number IN NUMBER
323: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
325: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
326: ,x_return_status OUT NOCOPY VARCHAR2
327: ,x_msg_count OUT NOCOPY NUMBER
320: PROCEDURE Copy_Row
321: (
322: p_api_version_number IN NUMBER
323: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
325: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
326: ,x_return_status OUT NOCOPY VARCHAR2
327: ,x_msg_count OUT NOCOPY NUMBER
328: ,x_msg_data OUT NOCOPY VARCHAR2
321: (
322: p_api_version_number IN NUMBER
323: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
325: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
326: ,x_return_status OUT NOCOPY VARCHAR2
327: ,x_msg_count OUT NOCOPY NUMBER
328: ,x_msg_data OUT NOCOPY VARCHAR2
329: ,p_src_object_id IN NUMBER
394: -- Standard Start of API savepoint
395: SAVEPOINT Copy_Row;
396:
397: -- Standard call to check for call compatibility.
398: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
399: p_api_version_number,
400: l_api_name,
401: G_PKG_NAME)
402: THEN
399: p_api_version_number,
400: l_api_name,
401: G_PKG_NAME)
402: THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: END IF;
405:
406:
407: -- Debug Message
409: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
410: END IF;
411:
412: -- Initialize message list if p_init_msg_list is set to TRUE.
413: IF FND_API.to_Boolean( p_init_msg_list )
414: THEN
415: FND_MSG_PUB.initialize;
416: END IF;
417:
415: FND_MSG_PUB.initialize;
416: END IF;
417:
418: -- Initialize API return status to SUCCESS
419: x_return_status := FND_API.G_RET_STS_SUCCESS;
420:
421:
422: IF (PV_DEBUG_HIGH_ON) THEN
423: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' : before open cursor');
576: CLOSE c_get_additional_tl_info;
577:
578:
579: -- Check for commit
580: IF FND_API.to_boolean(p_commit) THEN
581: COMMIT;
582: END IF;
583:
584: FND_MSG_PUB.count_and_get(
581: COMMIT;
582: END IF;
583:
584: FND_MSG_PUB.count_and_get(
585: p_encoded => FND_API.g_false
586: ,p_count => x_msg_count
587: ,p_data => x_msg_data
588: );
589:
589:
590: EXCEPTION
591:
592: WHEN PVX_Utility_PVT.resource_locked THEN
593: x_return_status := FND_API.g_ret_sts_error;
594: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
595:
596: WHEN FND_API.G_EXC_ERROR THEN
597: ROLLBACK TO Copy_Row;
592: WHEN PVX_Utility_PVT.resource_locked THEN
593: x_return_status := FND_API.g_ret_sts_error;
594: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
595:
596: WHEN FND_API.G_EXC_ERROR THEN
597: ROLLBACK TO Copy_Row;
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: -- Standard call to get message count and if count=1, get the message
600: FND_MSG_PUB.Count_And_Get (
594: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
595:
596: WHEN FND_API.G_EXC_ERROR THEN
597: ROLLBACK TO Copy_Row;
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: -- Standard call to get message count and if count=1, get the message
600: FND_MSG_PUB.Count_And_Get (
601: p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
597: ROLLBACK TO Copy_Row;
598: x_return_status := FND_API.G_RET_STS_ERROR;
599: -- Standard call to get message count and if count=1, get the message
600: FND_MSG_PUB.Count_And_Get (
601: p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data
604: );
605:
602: p_count => x_msg_count,
603: p_data => x_msg_data
604: );
605:
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: ROLLBACK TO Copy_Row;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
604: );
605:
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: ROLLBACK TO Copy_Row;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
611: p_encoded => FND_API.G_FALSE,
612: p_count => x_msg_count,
607: ROLLBACK TO Copy_Row;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
611: p_encoded => FND_API.G_FALSE,
612: p_count => x_msg_count,
613: p_data => x_msg_data
614: );
615:
614: );
615:
616: WHEN OTHERS THEN
617: ROLLBACK TO Copy_Row;
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
620: THEN
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
622: END IF;
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
622: END IF;
623: -- Standard call to get message count and if count=1, get the message
624: FND_MSG_PUB.Count_And_Get (
625: p_encoded => FND_API.G_FALSE,
626: p_count => x_msg_count,
627: p_data => x_msg_data
628: );
629:
643: -- Parameters
644: --
645: -- IN
646: -- p_api_version_number IN NUMBER Required
647: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
648: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
649: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
650: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
651: --
644: --
645: -- IN
646: -- p_api_version_number IN NUMBER Required
647: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
648: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
649: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
650: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
651: --
652: -- OUT
645: -- IN
646: -- p_api_version_number IN NUMBER Required
647: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
648: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
649: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
650: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
651: --
652: -- OUT
653: -- x_return_status OUT VARCHAR2
665: -- ==============================================================================
666:
667: PROCEDURE Update_Gq_Elements(
668: p_api_version_number IN NUMBER,
669: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
670: p_commit IN VARCHAR2 := FND_API.G_FALSE,
671: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672:
673: x_return_status OUT NOCOPY VARCHAR2,
666:
667: PROCEDURE Update_Gq_Elements(
668: p_api_version_number IN NUMBER,
669: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
670: p_commit IN VARCHAR2 := FND_API.G_FALSE,
671: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672:
673: x_return_status OUT NOCOPY VARCHAR2,
674: x_msg_count OUT NOCOPY NUMBER,
667: PROCEDURE Update_Gq_Elements(
668: p_api_version_number IN NUMBER,
669: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
670: p_commit IN VARCHAR2 := FND_API.G_FALSE,
671: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672:
673: x_return_status OUT NOCOPY VARCHAR2,
674: x_msg_count OUT NOCOPY NUMBER,
675: x_msg_data OUT NOCOPY VARCHAR2,
702: -- Standard Start of API savepoint
703: SAVEPOINT update_gq_elements_pvt;
704:
705: -- Standard call to check for call compatibility.
706: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
707: p_api_version_number,
708: l_api_name,
709: G_PKG_NAME)
710: THEN
707: p_api_version_number,
708: l_api_name,
709: G_PKG_NAME)
710: THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713:
714:
715: -- Initialize message list if p_init_msg_list is set to TRUE.
712: END IF;
713:
714:
715: -- Initialize message list if p_init_msg_list is set to TRUE.
716: IF FND_API.to_Boolean( p_init_msg_list )
717: THEN
718: FND_MSG_PUB.initialize;
719: END IF;
720:
728:
729:
730:
731: -- Initialize API return status to SUCCESS
732: x_return_status := FND_API.G_RET_STS_SUCCESS;
733:
734: -- Debug Message
735: IF (PV_DEBUG_HIGH_ON) THEN
736:
744: If ( c_get_Gq_Elements%NOTFOUND) THEN
745: PVX_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
746: p_token_name => 'INFO',
747: p_token_value => 'Gq_Elements') ;
748: RAISE FND_API.G_EXC_ERROR;
749: END IF;
750: -- Debug Message
751: IF (PV_DEBUG_HIGH_ON) THEN
752:
755: CLOSE c_get_Gq_Elements;
756:
757:
758: If (l_tar_qsnr_element_rec.object_version_number is NULL or
759: l_tar_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
760: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_VERSION_MISSING',
761: p_token_name => 'COLUMN',
762: p_token_value => 'Object_Version_Number') ;
763: raise FND_API.G_EXC_ERROR;
759: l_tar_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
760: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_VERSION_MISSING',
761: p_token_name => 'COLUMN',
762: p_token_value => 'Object_Version_Number') ;
763: raise FND_API.G_EXC_ERROR;
764: End if;
765: -- Check Whether record has been changed by someone else
766: IF (PV_DEBUG_HIGH_ON) THEN
767:
775: If (l_tar_qsnr_element_rec.object_version_number <> l_ref_qsnr_element_rec.object_version_number) Then
776: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RECORD_CHANGED',
777: p_token_name => 'VALUE',
778: p_token_value => 'Gq_Elements') ;
779: raise FND_API.G_EXC_ERROR;
780: End if;
781:
782:
783: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
779: raise FND_API.G_EXC_ERROR;
780: End if;
781:
782:
783: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
784: THEN
785: -- Debug message
786: IF (PV_DEBUG_HIGH_ON) THEN
787:
790:
791: -- Invoke validation procedures
792: Validate_gq_elements(
793: p_api_version_number => 1.0,
794: p_init_msg_list => FND_API.G_FALSE,
795: p_validation_level => p_validation_level,
796: p_validation_mode => JTF_PLSQL_API.g_update,
797: p_qsnr_element_rec => p_qsnr_element_rec,
798: x_return_status => x_return_status,
799: x_msg_count => x_msg_count,
800: x_msg_data => x_msg_data);
801: END IF;
802:
803: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806:
807: -- Debug Message
800: x_msg_data => x_msg_data);
801: END IF;
802:
803: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806:
807: -- Debug Message
808: IF (PV_DEBUG_HIGH_ON) THEN
822: END IF;
823:
824: IF (PV_DEBUG_HIGH_ON) THEN
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
826: IF (p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM) THEN
827: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM');
828: ELSIF (p_qsnr_element_rec.entity_attr_id is NULL) THEN
829: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id is NULL');
830: END IF;
823:
824: IF (PV_DEBUG_HIGH_ON) THEN
825: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = ' || p_qsnr_element_rec.entity_attr_id);
826: IF (p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM) THEN
827: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM');
828: ELSIF (p_qsnr_element_rec.entity_attr_id is NULL) THEN
829: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.entity_attr_id is NULL');
830: END IF;
831: END IF;
834: PVX_UTILITY_PVT.debug_message('p_qsnr_element_rec.is_required_flag = ' || p_qsnr_element_rec.is_required_flag);
835: END IF;
836:
837:
838: IF ((p_qsnr_element_rec.entity_attr_id is NULL or p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM)
839: and p_qsnr_element_rec.is_required_flag = 'Y') THEN
840: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_MANDATORY_NO_ATTR');
841: raise FND_API.G_EXC_ERROR;
842: End if;
837:
838: IF ((p_qsnr_element_rec.entity_attr_id is NULL or p_qsnr_element_rec.entity_attr_id = FND_API.G_MISS_NUM)
839: and p_qsnr_element_rec.is_required_flag = 'Y') THEN
840: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_MANDATORY_NO_ATTR');
841: raise FND_API.G_EXC_ERROR;
842: End if;
843:
844: -- Invoke table handler(Pv_Gq_Elements_Pkg.Update_Row)
845: Pv_Gq_Elements_Pkg.Update_Row(
862: -- End of API body.
863: --
864:
865: -- Standard check for p_commit
866: IF FND_API.to_Boolean( p_commit )
867: THEN
868: COMMIT WORK;
869: END IF;
870:
883: );
884: EXCEPTION
885:
886: WHEN PVX_Utility_PVT.resource_locked THEN
887: x_return_status := FND_API.g_ret_sts_error;
888: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO UPDATE_Gq_Elements_PVT;
886: WHEN PVX_Utility_PVT.resource_locked THEN
887: x_return_status := FND_API.g_ret_sts_error;
888: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO UPDATE_Gq_Elements_PVT;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: -- Standard call to get message count and if count=1, get the message
894: FND_MSG_PUB.Count_And_Get (
888: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
889:
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO UPDATE_Gq_Elements_PVT;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: -- Standard call to get message count and if count=1, get the message
894: FND_MSG_PUB.Count_And_Get (
895: p_encoded => FND_API.G_FALSE,
896: p_count => x_msg_count,
891: ROLLBACK TO UPDATE_Gq_Elements_PVT;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: -- Standard call to get message count and if count=1, get the message
894: FND_MSG_PUB.Count_And_Get (
895: p_encoded => FND_API.G_FALSE,
896: p_count => x_msg_count,
897: p_data => x_msg_data
898: );
899:
896: p_count => x_msg_count,
897: p_data => x_msg_data
898: );
899:
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: ROLLBACK TO UPDATE_Gq_Elements_PVT;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
898: );
899:
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: ROLLBACK TO UPDATE_Gq_Elements_PVT;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
901: ROLLBACK TO UPDATE_Gq_Elements_PVT;
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909:
908: );
909:
910: WHEN OTHERS THEN
911: ROLLBACK TO UPDATE_Gq_Elements_PVT;
912: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
913: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
914: THEN
915: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
916: END IF;
915: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
916: END IF;
917: -- Standard call to get message count and if count=1, get the message
918: FND_MSG_PUB.Count_And_Get (
919: p_encoded => FND_API.G_FALSE,
920: p_count => x_msg_count,
921: p_data => x_msg_data
922: );
923: End Update_Gq_Elements;
935: -- Parameters
936: --
937: -- IN
938: -- p_api_version_number IN NUMBER Required
939: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
940: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
941: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
942: -- p_qsnr_element_id IN NUMBER
943: -- p_object_version_number IN NUMBER Optional Default = NULL
936: --
937: -- IN
938: -- p_api_version_number IN NUMBER Required
939: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
940: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
941: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
942: -- p_qsnr_element_id IN NUMBER
943: -- p_object_version_number IN NUMBER Optional Default = NULL
944: --
937: -- IN
938: -- p_api_version_number IN NUMBER Required
939: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
940: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
941: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
942: -- p_qsnr_element_id IN NUMBER
943: -- p_object_version_number IN NUMBER Optional Default = NULL
944: --
945: -- OUT
958: -- ==============================================================================
959:
960: PROCEDURE Delete_Gq_Elements(
961: p_api_version_number IN NUMBER,
962: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
963: p_commit IN VARCHAR2 := FND_API.G_FALSE,
964: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
965: x_return_status OUT NOCOPY VARCHAR2,
966: x_msg_count OUT NOCOPY NUMBER,
959:
960: PROCEDURE Delete_Gq_Elements(
961: p_api_version_number IN NUMBER,
962: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
963: p_commit IN VARCHAR2 := FND_API.G_FALSE,
964: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
965: x_return_status OUT NOCOPY VARCHAR2,
966: x_msg_count OUT NOCOPY NUMBER,
967: x_msg_data OUT NOCOPY VARCHAR2,
960: PROCEDURE Delete_Gq_Elements(
961: p_api_version_number IN NUMBER,
962: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
963: p_commit IN VARCHAR2 := FND_API.G_FALSE,
964: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
965: x_return_status OUT NOCOPY VARCHAR2,
966: x_msg_count OUT NOCOPY NUMBER,
967: x_msg_data OUT NOCOPY VARCHAR2,
968: p_qsnr_element_id IN NUMBER,
991: -- Standard Start of API savepoint
992: SAVEPOINT delete_gq_elements_pvt;
993:
994: -- Standard call to check for call compatibility.
995: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
996: p_api_version_number,
997: l_api_name,
998: G_PKG_NAME)
999: THEN
996: p_api_version_number,
997: l_api_name,
998: G_PKG_NAME)
999: THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: END IF;
1002:
1003:
1004: -- Initialize message list if p_init_msg_list is set to TRUE.
1001: END IF;
1002:
1003:
1004: -- Initialize message list if p_init_msg_list is set to TRUE.
1005: IF FND_API.to_Boolean( p_init_msg_list )
1006: THEN
1007: FND_MSG_PUB.initialize;
1008: END IF;
1009:
1017:
1018:
1019:
1020: -- Initialize API return status to SUCCESS
1021: x_return_status := FND_API.G_RET_STS_SUCCESS;
1022:
1023: --
1024: -- Api body
1025: --
1072: -- End of API body
1073: --
1074:
1075: -- Standard check for p_commit
1076: IF FND_API.to_Boolean( p_commit )
1077: THEN
1078: COMMIT WORK;
1079: END IF;
1080:
1093: );
1094: EXCEPTION
1095:
1096: WHEN PVX_Utility_PVT.resource_locked THEN
1097: x_return_status := FND_API.g_ret_sts_error;
1098: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1101: ROLLBACK TO DELETE_Gq_Elements_PVT;
1096: WHEN PVX_Utility_PVT.resource_locked THEN
1097: x_return_status := FND_API.g_ret_sts_error;
1098: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1101: ROLLBACK TO DELETE_Gq_Elements_PVT;
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: -- Standard call to get message count and if count=1, get the message
1104: FND_MSG_PUB.Count_And_Get (
1098: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1101: ROLLBACK TO DELETE_Gq_Elements_PVT;
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: -- Standard call to get message count and if count=1, get the message
1104: FND_MSG_PUB.Count_And_Get (
1105: p_encoded => FND_API.G_FALSE,
1106: p_count => x_msg_count,
1101: ROLLBACK TO DELETE_Gq_Elements_PVT;
1102: x_return_status := FND_API.G_RET_STS_ERROR;
1103: -- Standard call to get message count and if count=1, get the message
1104: FND_MSG_PUB.Count_And_Get (
1105: p_encoded => FND_API.G_FALSE,
1106: p_count => x_msg_count,
1107: p_data => x_msg_data
1108: );
1109:
1106: p_count => x_msg_count,
1107: p_data => x_msg_data
1108: );
1109:
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: ROLLBACK TO DELETE_Gq_Elements_PVT;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: -- Standard call to get message count and if count=1, get the message
1114: FND_MSG_PUB.Count_And_Get (
1108: );
1109:
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: ROLLBACK TO DELETE_Gq_Elements_PVT;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: -- Standard call to get message count and if count=1, get the message
1114: FND_MSG_PUB.Count_And_Get (
1115: p_encoded => FND_API.G_FALSE,
1116: p_count => x_msg_count,
1111: ROLLBACK TO DELETE_Gq_Elements_PVT;
1112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: -- Standard call to get message count and if count=1, get the message
1114: FND_MSG_PUB.Count_And_Get (
1115: p_encoded => FND_API.G_FALSE,
1116: p_count => x_msg_count,
1117: p_data => x_msg_data
1118: );
1119:
1118: );
1119:
1120: WHEN OTHERS THEN
1121: ROLLBACK TO DELETE_Gq_Elements_PVT;
1122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1123: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1124: THEN
1125: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1126: END IF;
1125: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1126: END IF;
1127: -- Standard call to get message count and if count=1, get the message
1128: FND_MSG_PUB.Count_And_Get (
1129: p_encoded => FND_API.G_FALSE,
1130: p_count => x_msg_count,
1131: p_data => x_msg_data
1132: );
1133: End Delete_Gq_Elements;
1145: -- Parameters
1146: --
1147: -- IN
1148: -- p_api_version_number IN NUMBER Required
1149: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1150: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1151: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1152: -- p_qsnr_element_id IN NUMBER
1153: -- p_object_version_number IN NUMBER Optional Default = NULL
1146: --
1147: -- IN
1148: -- p_api_version_number IN NUMBER Required
1149: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1150: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1151: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1152: -- p_qsnr_element_id IN NUMBER
1153: -- p_object_version_number IN NUMBER Optional Default = NULL
1154: --
1147: -- IN
1148: -- p_api_version_number IN NUMBER Required
1149: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1150: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1151: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1152: -- p_qsnr_element_id IN NUMBER
1153: -- p_object_version_number IN NUMBER Optional Default = NULL
1154: --
1155: -- OUT
1168: -- ==============================================================================
1169:
1170: PROCEDURE Delete_Gq_PB_Elements(
1171: p_api_version_number IN NUMBER,
1172: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1173: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1174: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1175: x_return_status OUT NOCOPY VARCHAR2,
1176: x_msg_count OUT NOCOPY NUMBER,
1169:
1170: PROCEDURE Delete_Gq_PB_Elements(
1171: p_api_version_number IN NUMBER,
1172: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1173: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1174: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1175: x_return_status OUT NOCOPY VARCHAR2,
1176: x_msg_count OUT NOCOPY NUMBER,
1177: x_msg_data OUT NOCOPY VARCHAR2,
1170: PROCEDURE Delete_Gq_PB_Elements(
1171: p_api_version_number IN NUMBER,
1172: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1173: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1174: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1175: x_return_status OUT NOCOPY VARCHAR2,
1176: x_msg_count OUT NOCOPY NUMBER,
1177: x_msg_data OUT NOCOPY VARCHAR2,
1178: p_qsnr_element_id IN NUMBER,
1201: -- Standard Start of API savepoint
1202: SAVEPOINT Delete_Gq_PB_Elements_pvt;
1203:
1204: -- Standard call to check for call compatibility.
1205: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1206: p_api_version_number,
1207: l_api_name,
1208: G_PKG_NAME)
1209: THEN
1206: p_api_version_number,
1207: l_api_name,
1208: G_PKG_NAME)
1209: THEN
1210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1211: END IF;
1212:
1213:
1214: -- Initialize message list if p_init_msg_list is set to TRUE.
1211: END IF;
1212:
1213:
1214: -- Initialize message list if p_init_msg_list is set to TRUE.
1215: IF FND_API.to_Boolean( p_init_msg_list )
1216: THEN
1217: FND_MSG_PUB.initialize;
1218: END IF;
1219:
1227:
1228:
1229:
1230: -- Initialize API return status to SUCCESS
1231: x_return_status := FND_API.G_RET_STS_SUCCESS;
1232:
1233: --
1234: -- Api body
1235: --
1300: -- End of API body
1301: --
1302:
1303: -- Standard check for p_commit
1304: IF FND_API.to_Boolean( p_commit )
1305: THEN
1306: COMMIT WORK;
1307: END IF;
1308:
1321: );
1322: EXCEPTION
1323:
1324: WHEN PVX_Utility_PVT.resource_locked THEN
1325: x_return_status := FND_API.g_ret_sts_error;
1326: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1329: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1324: WHEN PVX_Utility_PVT.resource_locked THEN
1325: x_return_status := FND_API.g_ret_sts_error;
1326: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1329: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1326: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1327:
1328: WHEN FND_API.G_EXC_ERROR THEN
1329: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1333: p_encoded => FND_API.G_FALSE,
1334: p_count => x_msg_count,
1329: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: -- Standard call to get message count and if count=1, get the message
1332: FND_MSG_PUB.Count_And_Get (
1333: p_encoded => FND_API.G_FALSE,
1334: p_count => x_msg_count,
1335: p_data => x_msg_data
1336: );
1337:
1334: p_count => x_msg_count,
1335: p_data => x_msg_data
1336: );
1337:
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: -- Standard call to get message count and if count=1, get the message
1342: FND_MSG_PUB.Count_And_Get (
1336: );
1337:
1338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1339: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: -- Standard call to get message count and if count=1, get the message
1342: FND_MSG_PUB.Count_And_Get (
1343: p_encoded => FND_API.G_FALSE,
1344: p_count => x_msg_count,
1339: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: -- Standard call to get message count and if count=1, get the message
1342: FND_MSG_PUB.Count_And_Get (
1343: p_encoded => FND_API.G_FALSE,
1344: p_count => x_msg_count,
1345: p_data => x_msg_data
1346: );
1347:
1346: );
1347:
1348: WHEN OTHERS THEN
1349: ROLLBACK TO Delete_Gq_PB_Elements_PVT;
1350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1352: THEN
1353: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1354: END IF;
1353: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1354: END IF;
1355: -- Standard call to get message count and if count=1, get the message
1356: FND_MSG_PUB.Count_And_Get (
1357: p_encoded => FND_API.G_FALSE,
1358: p_count => x_msg_count,
1359: p_data => x_msg_data
1360: );
1361: End Delete_Gq_PB_Elements;
1375: -- Parameters
1376: --
1377: -- IN
1378: -- p_api_version_number IN NUMBER Required
1379: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1380: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1381: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1382: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
1383: --
1376: --
1377: -- IN
1378: -- p_api_version_number IN NUMBER Required
1379: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1380: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1381: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1382: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
1383: --
1384: -- OUT
1377: -- IN
1378: -- p_api_version_number IN NUMBER Required
1379: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
1380: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
1381: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
1382: -- p_qsnr_element_rec IN qsnr_element_rec_type Required
1383: --
1384: -- OUT
1385: -- x_return_status OUT VARCHAR2
1397: -- ==============================================================================
1398:
1399: PROCEDURE Lock_Gq_Elements(
1400: p_api_version_number IN NUMBER,
1401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1402:
1403: x_return_status OUT NOCOPY VARCHAR2,
1404: x_msg_count OUT NOCOPY NUMBER,
1405: x_msg_data OUT NOCOPY VARCHAR2,
1423: END IF;
1424:
1425:
1426: -- Initialize message list if p_init_msg_list is set to TRUE.
1427: IF FND_API.to_Boolean( p_init_msg_list )
1428: THEN
1429: FND_MSG_PUB.initialize;
1430: END IF;
1431:
1431:
1432:
1433:
1434: -- Standard call to check for call compatibility.
1435: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1436: p_api_version_number,
1437: l_api_name,
1438: G_PKG_NAME)
1439: THEN
1436: p_api_version_number,
1437: l_api_name,
1438: G_PKG_NAME)
1439: THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1443:
1444:
1442:
1443:
1444:
1445: -- Initialize API return status to SUCCESS
1446: x_return_status := FND_API.G_RET_STS_SUCCESS;
1447:
1448:
1449: ------------------------ lock -------------------------
1450: Pv_Gq_Elements_Pkg.Lock_Row(l_qsnr_element_id,p_object_version);
1451:
1452:
1453: -------------------- finish --------------------------
1454: FND_MSG_PUB.count_and_get(
1455: p_encoded => FND_API.g_false,
1456: p_count => x_msg_count,
1457: p_data => x_msg_data);
1458: IF (PV_DEBUG_HIGH_ON) THEN
1459:
1461: END IF;
1462: EXCEPTION
1463:
1464: WHEN PVX_Utility_PVT.resource_locked THEN
1465: x_return_status := FND_API.g_ret_sts_error;
1466: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1467:
1468: WHEN FND_API.G_EXC_ERROR THEN
1469: ROLLBACK TO LOCK_Gq_Elements_PVT;
1464: WHEN PVX_Utility_PVT.resource_locked THEN
1465: x_return_status := FND_API.g_ret_sts_error;
1466: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1467:
1468: WHEN FND_API.G_EXC_ERROR THEN
1469: ROLLBACK TO LOCK_Gq_Elements_PVT;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: -- Standard call to get message count and if count=1, get the message
1472: FND_MSG_PUB.Count_And_Get (
1466: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
1467:
1468: WHEN FND_API.G_EXC_ERROR THEN
1469: ROLLBACK TO LOCK_Gq_Elements_PVT;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: -- Standard call to get message count and if count=1, get the message
1472: FND_MSG_PUB.Count_And_Get (
1473: p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1469: ROLLBACK TO LOCK_Gq_Elements_PVT;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: -- Standard call to get message count and if count=1, get the message
1472: FND_MSG_PUB.Count_And_Get (
1473: p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data
1476: );
1477:
1474: p_count => x_msg_count,
1475: p_data => x_msg_data
1476: );
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO LOCK_Gq_Elements_PVT;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: -- Standard call to get message count and if count=1, get the message
1482: FND_MSG_PUB.Count_And_Get (
1476: );
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO LOCK_Gq_Elements_PVT;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: -- Standard call to get message count and if count=1, get the message
1482: FND_MSG_PUB.Count_And_Get (
1483: p_encoded => FND_API.G_FALSE,
1484: p_count => x_msg_count,
1479: ROLLBACK TO LOCK_Gq_Elements_PVT;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: -- Standard call to get message count and if count=1, get the message
1482: FND_MSG_PUB.Count_And_Get (
1483: p_encoded => FND_API.G_FALSE,
1484: p_count => x_msg_count,
1485: p_data => x_msg_data
1486: );
1487:
1486: );
1487:
1488: WHEN OTHERS THEN
1489: ROLLBACK TO LOCK_Gq_Elements_PVT;
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1492: THEN
1493: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1494: END IF;
1493: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1494: END IF;
1495: -- Standard call to get message count and if count=1, get the message
1496: FND_MSG_PUB.Count_And_Get (
1497: p_encoded => FND_API.G_FALSE,
1498: p_count => x_msg_count,
1499: p_data => x_msg_data
1500: );
1501: End Lock_Gq_Elements;
1510: IS
1511: l_valid_flag VARCHAR2(1);
1512:
1513: BEGIN
1514: x_return_status := FND_API.g_ret_sts_success;
1515: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1516: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1517: 'pv_ge_qsnr_elements_b',
1518: 'qsnr_element_id = ''' || p_qsnr_element_rec.qsnr_element_id ||''''
1517: 'pv_ge_qsnr_elements_b',
1518: 'qsnr_element_id = ''' || p_qsnr_element_rec.qsnr_element_id ||''''
1519: );
1520:
1521: IF l_valid_flag = FND_API.g_false THEN
1522: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_qsnr_element_id_DUPLICATE');
1523: x_return_status := FND_API.g_ret_sts_error;
1524: END IF;
1525: END IF;
1519: );
1520:
1521: IF l_valid_flag = FND_API.g_false THEN
1522: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_qsnr_element_id_DUPLICATE');
1523: x_return_status := FND_API.g_ret_sts_error;
1524: END IF;
1525: END IF;
1526:
1527: -- Fixed for bug #3380368
1531: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1532: 'pv_ge_qsnr_elements_b',
1533: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || '''');
1534:
1535: IF l_valid_flag = FND_API.g_false THEN
1536: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1537: x_return_status := FND_API.g_ret_sts_error;
1538: END IF;
1539: ELSIF p_validation_mode = JTF_PLSQL_API.g_update THEN
1533: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || '''');
1534:
1535: IF l_valid_flag = FND_API.g_false THEN
1536: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1537: x_return_status := FND_API.g_ret_sts_error;
1538: END IF;
1539: ELSIF p_validation_mode = JTF_PLSQL_API.g_update THEN
1540: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1541: 'pv_ge_qsnr_elements_b',
1540: l_valid_flag := PVX_Utility_PVT.check_uniqueness(
1541: 'pv_ge_qsnr_elements_b',
1542: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || ''' AND QSNR_ELEMENT_ID <> ''' || p_qsnr_element_rec.QSNR_ELEMENT_ID || '''');
1543:
1544: IF l_valid_flag = FND_API.g_false THEN
1545: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1546: x_return_status := FND_API.g_ret_sts_error;
1547: END IF;
1548: END IF;
1542: 'used_by_entity_id = ''' || p_qsnr_element_rec.used_by_entity_id ||''' AND entity_attr_id = ''' || p_qsnr_element_rec.entity_attr_id || ''' AND QSNR_ELEMENT_ID <> ''' || p_qsnr_element_rec.QSNR_ELEMENT_ID || '''');
1543:
1544: IF l_valid_flag = FND_API.g_false THEN
1545: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_QSNR_PROFILE_ATTR_DUPLICATE');
1546: x_return_status := FND_API.g_ret_sts_error;
1547: END IF;
1548: END IF;
1549: END IF;
1550:
1558: x_return_status OUT NOCOPY VARCHAR2
1559: )
1560: IS
1561: BEGIN
1562: x_return_status := FND_API.g_ret_sts_success;
1563:
1564: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1565:
1566:
1563:
1564: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1565:
1566:
1567: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_element_id IS NULL THEN
1568: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1569: x_return_status := FND_API.g_ret_sts_error;
1570: END IF;
1571:
1565:
1566:
1567: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_element_id IS NULL THEN
1568: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1569: x_return_status := FND_API.g_ret_sts_error;
1570: END IF;
1571:
1572:
1573: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM OR p_qsnr_element_rec.object_version_number IS NULL THEN
1569: x_return_status := FND_API.g_ret_sts_error;
1570: END IF;
1571:
1572:
1573: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM OR p_qsnr_element_rec.object_version_number IS NULL THEN
1574: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1575: x_return_status := FND_API.g_ret_sts_error;
1576: END IF;
1577:
1571:
1572:
1573: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM OR p_qsnr_element_rec.object_version_number IS NULL THEN
1574: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1575: x_return_status := FND_API.g_ret_sts_error;
1576: END IF;
1577:
1578:
1579: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char OR p_qsnr_element_rec.arc_used_by_entity_code IS NULL THEN
1575: x_return_status := FND_API.g_ret_sts_error;
1576: END IF;
1577:
1578:
1579: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char OR p_qsnr_element_rec.arc_used_by_entity_code IS NULL THEN
1580: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1581: x_return_status := FND_API.g_ret_sts_error;
1582: END IF;
1583:
1577:
1578:
1579: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char OR p_qsnr_element_rec.arc_used_by_entity_code IS NULL THEN
1580: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1581: x_return_status := FND_API.g_ret_sts_error;
1582: END IF;
1583:
1584:
1585: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.used_by_entity_id IS NULL THEN
1581: x_return_status := FND_API.g_ret_sts_error;
1582: END IF;
1583:
1584:
1585: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.used_by_entity_id IS NULL THEN
1586: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1587: x_return_status := FND_API.g_ret_sts_error;
1588: END IF;
1589:
1583:
1584:
1585: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM OR p_qsnr_element_rec.used_by_entity_id IS NULL THEN
1586: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1587: x_return_status := FND_API.g_ret_sts_error;
1588: END IF;
1589:
1590:
1591: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_seq_num IS NULL THEN
1587: x_return_status := FND_API.g_ret_sts_error;
1588: END IF;
1589:
1590:
1591: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_seq_num IS NULL THEN
1592: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1593: x_return_status := FND_API.g_ret_sts_error;
1594: END IF;
1595:
1589:
1590:
1591: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_seq_num IS NULL THEN
1592: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1593: x_return_status := FND_API.g_ret_sts_error;
1594: END IF;
1595:
1596:
1597: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char OR p_qsnr_element_rec.qsnr_elmt_type IS NULL THEN
1593: x_return_status := FND_API.g_ret_sts_error;
1594: END IF;
1595:
1596:
1597: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char OR p_qsnr_element_rec.qsnr_elmt_type IS NULL THEN
1598: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1599: x_return_status := FND_API.g_ret_sts_error;
1600: END IF;
1601:
1595:
1596:
1597: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char OR p_qsnr_element_rec.qsnr_elmt_type IS NULL THEN
1598: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1599: x_return_status := FND_API.g_ret_sts_error;
1600: END IF;
1601:
1602:
1603: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_page_num IS NULL THEN
1599: x_return_status := FND_API.g_ret_sts_error;
1600: END IF;
1601:
1602:
1603: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_page_num IS NULL THEN
1604: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1605: x_return_status := FND_API.g_ret_sts_error;
1606: END IF;
1607:
1601:
1602:
1603: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM OR p_qsnr_element_rec.qsnr_elmt_page_num IS NULL THEN
1604: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1605: x_return_status := FND_API.g_ret_sts_error;
1606: END IF;
1607:
1608:
1609: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char OR p_qsnr_element_rec.is_required_flag IS NULL THEN
1605: x_return_status := FND_API.g_ret_sts_error;
1606: END IF;
1607:
1608:
1609: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char OR p_qsnr_element_rec.is_required_flag IS NULL THEN
1610: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1611: x_return_status := FND_API.g_ret_sts_error;
1612: END IF;
1613:
1607:
1608:
1609: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char OR p_qsnr_element_rec.is_required_flag IS NULL THEN
1610: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1611: x_return_status := FND_API.g_ret_sts_error;
1612: END IF;
1613:
1614:
1615: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.created_by IS NULL THEN
1611: x_return_status := FND_API.g_ret_sts_error;
1612: END IF;
1613:
1614:
1615: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.created_by IS NULL THEN
1616: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1617: x_return_status := FND_API.g_ret_sts_error;
1618: END IF;
1619:
1613:
1614:
1615: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.created_by IS NULL THEN
1616: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1617: x_return_status := FND_API.g_ret_sts_error;
1618: END IF;
1619:
1620:
1621: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.creation_date IS NULL THEN
1617: x_return_status := FND_API.g_ret_sts_error;
1618: END IF;
1619:
1620:
1621: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.creation_date IS NULL THEN
1622: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1623: x_return_status := FND_API.g_ret_sts_error;
1624: END IF;
1625:
1619:
1620:
1621: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.creation_date IS NULL THEN
1622: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1623: x_return_status := FND_API.g_ret_sts_error;
1624: END IF;
1625:
1626:
1627: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.last_updated_by IS NULL THEN
1623: x_return_status := FND_API.g_ret_sts_error;
1624: END IF;
1625:
1626:
1627: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.last_updated_by IS NULL THEN
1628: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1629: x_return_status := FND_API.g_ret_sts_error;
1630: END IF;
1631:
1625:
1626:
1627: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM OR p_qsnr_element_rec.last_updated_by IS NULL THEN
1628: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1629: x_return_status := FND_API.g_ret_sts_error;
1630: END IF;
1631:
1632:
1633: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.last_update_date IS NULL THEN
1629: x_return_status := FND_API.g_ret_sts_error;
1630: END IF;
1631:
1632:
1633: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.last_update_date IS NULL THEN
1634: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1635: x_return_status := FND_API.g_ret_sts_error;
1636: END IF;
1637:
1631:
1632:
1633: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE OR p_qsnr_element_rec.last_update_date IS NULL THEN
1634: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1635: x_return_status := FND_API.g_ret_sts_error;
1636: END IF;
1637:
1638:
1639: ELSE
1638:
1639: ELSE
1640:
1641:
1642: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM THEN
1643: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1644: x_return_status := FND_API.g_ret_sts_error;
1645: END IF;
1646:
1640:
1641:
1642: IF p_qsnr_element_rec.qsnr_element_id = FND_API.G_MISS_NUM THEN
1643: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELEMENT_ID' );
1644: x_return_status := FND_API.g_ret_sts_error;
1645: END IF;
1646:
1647:
1648: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM THEN
1644: x_return_status := FND_API.g_ret_sts_error;
1645: END IF;
1646:
1647:
1648: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM THEN
1649: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1650: x_return_status := FND_API.g_ret_sts_error;
1651: END IF;
1652:
1646:
1647:
1648: IF p_qsnr_element_rec.object_version_number = FND_API.G_MISS_NUM THEN
1649: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
1650: x_return_status := FND_API.g_ret_sts_error;
1651: END IF;
1652:
1653: /*
1654: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char THEN
1650: x_return_status := FND_API.g_ret_sts_error;
1651: END IF;
1652:
1653: /*
1654: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char THEN
1655: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1656: x_return_status := FND_API.g_ret_sts_error;
1657: END IF;
1658:
1652:
1653: /*
1654: IF p_qsnr_element_rec.arc_used_by_entity_code = FND_API.g_miss_char THEN
1655: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'ARC_USED_BY_ENTITY_CODE' );
1656: x_return_status := FND_API.g_ret_sts_error;
1657: END IF;
1658:
1659:
1660: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM THEN
1656: x_return_status := FND_API.g_ret_sts_error;
1657: END IF;
1658:
1659:
1660: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM THEN
1661: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1662: x_return_status := FND_API.g_ret_sts_error;
1663: END IF;
1664:
1658:
1659:
1660: IF p_qsnr_element_rec.used_by_entity_id = FND_API.G_MISS_NUM THEN
1661: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'USED_BY_ENTITY_ID' );
1662: x_return_status := FND_API.g_ret_sts_error;
1663: END IF;
1664:
1665:
1666: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM THEN
1662: x_return_status := FND_API.g_ret_sts_error;
1663: END IF;
1664:
1665:
1666: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM THEN
1667: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1668: x_return_status := FND_API.g_ret_sts_error;
1669: END IF;
1670:
1664:
1665:
1666: IF p_qsnr_element_rec.qsnr_elmt_seq_num = FND_API.G_MISS_NUM THEN
1667: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_SEQ_NUM' );
1668: x_return_status := FND_API.g_ret_sts_error;
1669: END IF;
1670:
1671:
1672: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char THEN
1668: x_return_status := FND_API.g_ret_sts_error;
1669: END IF;
1670:
1671:
1672: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char THEN
1673: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1674: x_return_status := FND_API.g_ret_sts_error;
1675: END IF;
1676:
1670:
1671:
1672: IF p_qsnr_element_rec.qsnr_elmt_type = FND_API.g_miss_char THEN
1673: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_TYPE' );
1674: x_return_status := FND_API.g_ret_sts_error;
1675: END IF;
1676:
1677:
1678: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM THEN
1674: x_return_status := FND_API.g_ret_sts_error;
1675: END IF;
1676:
1677:
1678: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM THEN
1679: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1680: x_return_status := FND_API.g_ret_sts_error;
1681: END IF;
1682:
1676:
1677:
1678: IF p_qsnr_element_rec.qsnr_elmt_page_num = FND_API.G_MISS_NUM THEN
1679: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'QSNR_ELMT_PAGE_NUM' );
1680: x_return_status := FND_API.g_ret_sts_error;
1681: END IF;
1682:
1683:
1684: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char THEN
1680: x_return_status := FND_API.g_ret_sts_error;
1681: END IF;
1682:
1683:
1684: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char THEN
1685: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1686: x_return_status := FND_API.g_ret_sts_error;
1687: END IF;
1688:
1682:
1683:
1684: IF p_qsnr_element_rec.is_required_flag = FND_API.g_miss_char THEN
1685: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'IS_REQUIRED_FLAG' );
1686: x_return_status := FND_API.g_ret_sts_error;
1687: END IF;
1688:
1689:
1690: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM THEN
1686: x_return_status := FND_API.g_ret_sts_error;
1687: END IF;
1688:
1689:
1690: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM THEN
1691: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1692: x_return_status := FND_API.g_ret_sts_error;
1693: END IF;
1694:
1688:
1689:
1690: IF p_qsnr_element_rec.created_by = FND_API.G_MISS_NUM THEN
1691: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1692: x_return_status := FND_API.g_ret_sts_error;
1693: END IF;
1694:
1695:
1696: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE THEN
1692: x_return_status := FND_API.g_ret_sts_error;
1693: END IF;
1694:
1695:
1696: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE THEN
1697: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1698: x_return_status := FND_API.g_ret_sts_error;
1699: END IF;
1700:
1694:
1695:
1696: IF p_qsnr_element_rec.creation_date = FND_API.G_MISS_DATE THEN
1697: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1698: x_return_status := FND_API.g_ret_sts_error;
1699: END IF;
1700:
1701:
1702: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1698: x_return_status := FND_API.g_ret_sts_error;
1699: END IF;
1700:
1701:
1702: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1703: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1704: x_return_status := FND_API.g_ret_sts_error;
1705: END IF;
1706:
1700:
1701:
1702: IF p_qsnr_element_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1703: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
1704: x_return_status := FND_API.g_ret_sts_error;
1705: END IF;
1706:
1707:
1708: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE THEN
1704: x_return_status := FND_API.g_ret_sts_error;
1705: END IF;
1706:
1707:
1708: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE THEN
1709: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1710: x_return_status := FND_API.g_ret_sts_error;
1711: END IF;
1712: */
1706:
1707:
1708: IF p_qsnr_element_rec.last_update_date = FND_API.G_MISS_DATE THEN
1709: PVX_Utility_PVT.Error_Message('AMS_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
1710: x_return_status := FND_API.g_ret_sts_error;
1711: END IF;
1712: */
1713: END IF;
1714:
1721: x_return_status OUT NOCOPY VARCHAR2
1722: )
1723: IS
1724: BEGIN
1725: x_return_status := FND_API.g_ret_sts_success;
1726:
1727: -- Enter custom code here
1728:
1729: END check_Qsnr_Element_Fk_Items;
1735: x_return_status OUT NOCOPY VARCHAR2
1736: )
1737: IS
1738: BEGIN
1739: x_return_status := FND_API.g_ret_sts_success;
1740:
1741: ----------------------- PV_QUESTIONNAIRE_ENTITY_CODE LOOKUP ------------------------
1742: IF p_qsnr_element_rec.arc_used_by_entity_code <> FND_API.g_miss_char THEN
1743:
1738: BEGIN
1739: x_return_status := FND_API.g_ret_sts_success;
1740:
1741: ----------------------- PV_QUESTIONNAIRE_ENTITY_CODE LOOKUP ------------------------
1742: IF p_qsnr_element_rec.arc_used_by_entity_code <> FND_API.g_miss_char THEN
1743:
1744: IF PVX_Utility_PVT.check_lookup_exists(
1745: 'PV_LOOKUPS', -- Look up Table Name
1746: 'PV_QUESTIONNAIRE_ENTITY_CODE', -- Lookup Type
1744: IF PVX_Utility_PVT.check_lookup_exists(
1745: 'PV_LOOKUPS', -- Look up Table Name
1746: 'PV_QUESTIONNAIRE_ENTITY_CODE', -- Lookup Type
1747: p_qsnr_element_rec.arc_used_by_entity_code -- Lookup Code
1748: ) = FND_API.g_false
1749: THEN
1750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1751: THEN
1752: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_ENTITY_CODE');
1751: THEN
1752: FND_MESSAGE.set_name('PV', 'PV_NOT_A_VALID_ENTITY_CODE');
1753: FND_MSG_PUB.add;
1754: END IF;
1755: x_return_status := FND_API.g_ret_sts_error;
1756: RETURN;
1757:
1758: END IF;
1759: END IF;
1775: IS
1776: l_return_status VARCHAR2(1);
1777: BEGIN
1778:
1779: l_return_status := FND_API.g_ret_sts_success;
1780: -- Check Items Uniqueness API calls
1781:
1782: IF (PV_DEBUG_HIGH_ON) THEN
1783: PVX_UTILITY_PVT.debug_message('check_Qsnr_element_Uk_Items');
1786: check_Qsnr_element_Uk_Items(
1787: p_qsnr_element_rec => p_qsnr_element_rec,
1788: p_validation_mode => p_validation_mode,
1789: x_return_status => x_return_status);
1790: IF x_return_status <> FND_API.g_ret_sts_success THEN
1791: return;
1792: END IF;
1793:
1794: -- Check Items Required/NOT NULL API calls
1800: check_qsnr_element_req_items(
1801: p_qsnr_element_rec => p_qsnr_element_rec,
1802: p_validation_mode => p_validation_mode,
1803: x_return_status => x_return_status);
1804: IF x_return_status <> FND_API.g_ret_sts_success THEN
1805: return;
1806: END IF;
1807: -- Check Items Foreign Keys API calls
1808:
1812:
1813: check_qsnr_element_FK_items(
1814: p_qsnr_element_rec => p_qsnr_element_rec,
1815: x_return_status => x_return_status);
1816: IF x_return_status <> FND_API.g_ret_sts_success THEN
1817: return;
1818: END IF;
1819: -- Check Items Lookups
1820:
1824:
1825: check_qs_elemnt_Lookup_items(
1826: p_qsnr_element_rec => p_qsnr_element_rec,
1827: x_return_status => x_return_status);
1828: IF x_return_status <> FND_API.g_ret_sts_success THEN
1829: return;
1830: END IF;
1831: END Check_qsnr_element_Items;
1832:
1935: l_qsnr_element_rec qsnr_element_rec_type := p_qsnr_element_rec;
1936: BEGIN
1937: -- Developers should put their code to default the record type
1938: -- e.g. IF p_campaign_rec.status_code IS NULL
1939: -- OR p_campaign_rec.status_code = FND_API.G_MISS_CHAR THEN
1940: -- l_campaign_rec.status_code := 'NEW' ;
1941: -- END IF ;
1942: --
1943: NULL ;
1947:
1948:
1949: PROCEDURE Validate_Gq_Elements(
1950: p_api_version_number IN NUMBER,
1951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1952: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1953: p_qsnr_element_rec IN qsnr_element_rec_type,
1954: p_validation_mode IN VARCHAR2,
1955: x_return_status OUT NOCOPY VARCHAR2,
1948:
1949: PROCEDURE Validate_Gq_Elements(
1950: p_api_version_number IN NUMBER,
1951: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1952: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1953: p_qsnr_element_rec IN qsnr_element_rec_type,
1954: p_validation_mode IN VARCHAR2,
1955: x_return_status OUT NOCOPY VARCHAR2,
1956: x_msg_count OUT NOCOPY NUMBER,
1967: -- Standard Start of API savepoint
1968: SAVEPOINT validate_gq_elements_;
1969:
1970: -- Standard call to check for call compatibility.
1971: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1972: p_api_version_number,
1973: l_api_name,
1974: G_PKG_NAME)
1975: THEN
1972: p_api_version_number,
1973: l_api_name,
1974: G_PKG_NAME)
1975: THEN
1976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1977: END IF;
1978:
1979:
1980: -- Initialize message list if p_init_msg_list is set to TRUE.
1977: END IF;
1978:
1979:
1980: -- Initialize message list if p_init_msg_list is set to TRUE.
1981: IF FND_API.to_Boolean( p_init_msg_list )
1982: THEN
1983: FND_MSG_PUB.initialize;
1984: END IF;
1985:
1997: p_validation_mode => p_validation_mode,
1998: x_return_status => x_return_status
1999: );
2000:
2001: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2002: RAISE FND_API.G_EXC_ERROR;
2003: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
1998: x_return_status => x_return_status
1999: );
2000:
2001: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2002: RAISE FND_API.G_EXC_ERROR;
2003: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006: END IF;
1999: );
2000:
2001: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2002: RAISE FND_API.G_EXC_ERROR;
2003: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006: END IF;
2007:
2000:
2001: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2002: RAISE FND_API.G_EXC_ERROR;
2003: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2005: END IF;
2006: END IF;
2007:
2008: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
2035:
2036: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2037: Validate_qsnr_element_Rec(
2038: p_api_version_number => 1.0,
2039: p_init_msg_list => FND_API.G_FALSE,
2040: x_return_status => x_return_status,
2041: x_msg_count => x_msg_count,
2042: x_msg_data => x_msg_data,
2043: p_qsnr_element_rec => l_qsnr_element_rec);
2045:
2046: PVX_UTILITY_PVT.debug_message('Validate_qsnr_element_Rec end.....');
2047: END IF;
2048:
2049: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2053: END IF;
2046: PVX_UTILITY_PVT.debug_message('Validate_qsnr_element_Rec end.....');
2047: END IF;
2048:
2049: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2053: END IF;
2054: END IF;
2047: END IF;
2048:
2049: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2053: END IF;
2054: END IF;
2055:
2048:
2049: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2053: END IF;
2054: END IF;
2055:
2056:
2062:
2063:
2064:
2065: -- Initialize API return status to SUCCESS
2066: x_return_status := FND_API.G_RET_STS_SUCCESS;
2067:
2068:
2069: -- Debug Message
2070: IF (PV_DEBUG_HIGH_ON) THEN
2080: );
2081: EXCEPTION
2082:
2083: WHEN PVX_Utility_PVT.resource_locked THEN
2084: x_return_status := FND_API.g_ret_sts_error;
2085: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2086:
2087: WHEN FND_API.G_EXC_ERROR THEN
2088: ROLLBACK TO VALIDATE_Gq_Elements_;
2083: WHEN PVX_Utility_PVT.resource_locked THEN
2084: x_return_status := FND_API.g_ret_sts_error;
2085: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2086:
2087: WHEN FND_API.G_EXC_ERROR THEN
2088: ROLLBACK TO VALIDATE_Gq_Elements_;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2090: -- Standard call to get message count and if count=1, get the message
2091: FND_MSG_PUB.Count_And_Get (
2085: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2086:
2087: WHEN FND_API.G_EXC_ERROR THEN
2088: ROLLBACK TO VALIDATE_Gq_Elements_;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2090: -- Standard call to get message count and if count=1, get the message
2091: FND_MSG_PUB.Count_And_Get (
2092: p_encoded => FND_API.G_FALSE,
2093: p_count => x_msg_count,
2088: ROLLBACK TO VALIDATE_Gq_Elements_;
2089: x_return_status := FND_API.G_RET_STS_ERROR;
2090: -- Standard call to get message count and if count=1, get the message
2091: FND_MSG_PUB.Count_And_Get (
2092: p_encoded => FND_API.G_FALSE,
2093: p_count => x_msg_count,
2094: p_data => x_msg_data
2095: );
2096:
2093: p_count => x_msg_count,
2094: p_data => x_msg_data
2095: );
2096:
2097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2098: ROLLBACK TO VALIDATE_Gq_Elements_;
2099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100: -- Standard call to get message count and if count=1, get the message
2101: FND_MSG_PUB.Count_And_Get (
2095: );
2096:
2097: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2098: ROLLBACK TO VALIDATE_Gq_Elements_;
2099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100: -- Standard call to get message count and if count=1, get the message
2101: FND_MSG_PUB.Count_And_Get (
2102: p_encoded => FND_API.G_FALSE,
2103: p_count => x_msg_count,
2098: ROLLBACK TO VALIDATE_Gq_Elements_;
2099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100: -- Standard call to get message count and if count=1, get the message
2101: FND_MSG_PUB.Count_And_Get (
2102: p_encoded => FND_API.G_FALSE,
2103: p_count => x_msg_count,
2104: p_data => x_msg_data
2105: );
2106:
2105: );
2106:
2107: WHEN OTHERS THEN
2108: ROLLBACK TO VALIDATE_Gq_Elements_;
2109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2110: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2111: THEN
2112: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2113: END IF;
2112: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2113: END IF;
2114: -- Standard call to get message count and if count=1, get the message
2115: FND_MSG_PUB.Count_And_Get (
2116: p_encoded => FND_API.G_FALSE,
2117: p_count => x_msg_count,
2118: p_data => x_msg_data
2119: );
2120: End Validate_Gq_Elements;
2121:
2122:
2123: PROCEDURE Validate_Qsnr_Element_Rec (
2124: p_api_version_number IN NUMBER,
2125: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2126: x_return_status OUT NOCOPY VARCHAR2,
2127: x_msg_count OUT NOCOPY NUMBER,
2128: x_msg_data OUT NOCOPY VARCHAR2,
2129: p_qsnr_element_rec IN qsnr_element_rec_type
2130: )
2131: IS
2132: BEGIN
2133: -- Initialize message list if p_init_msg_list is set to TRUE.
2134: IF FND_API.to_Boolean( p_init_msg_list )
2135: THEN
2136: FND_MSG_PUB.initialize;
2137: END IF;
2138:
2138:
2139:
2140:
2141: -- Initialize API return status to SUCCESS
2142: x_return_status := FND_API.G_RET_STS_SUCCESS;
2143:
2144: -- Hint: Validate data
2145: -- If data not valid
2146: -- THEN
2143:
2144: -- Hint: Validate data
2145: -- If data not valid
2146: -- THEN
2147: -- x_return_status := FND_API.G_RET_STS_ERROR;
2148:
2149: -- Debug Message
2150: IF (PV_DEBUG_HIGH_ON) THEN
2151:
2170: -- Parameters
2171: --
2172: -- IN
2173: -- p_api_version_number IN NUMBER Required
2174: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2175: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2176: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2177: -- p_qsnr_element_id IN NUMBER
2178: -- p_object_version_number IN NUMBER
2171: --
2172: -- IN
2173: -- p_api_version_number IN NUMBER Required
2174: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2175: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2176: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2177: -- p_qsnr_element_id IN NUMBER
2178: -- p_object_version_number IN NUMBER
2179: --
2172: -- IN
2173: -- p_api_version_number IN NUMBER Required
2174: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
2175: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
2176: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
2177: -- p_qsnr_element_id IN NUMBER
2178: -- p_object_version_number IN NUMBER
2179: --
2180: -- OUT
2191: -- ==============================================================================
2192:
2193: PROCEDURE Move_Qsnr_Element (
2194: p_api_version_number IN NUMBER
2195: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
2196: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
2197: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
2198:
2199: ,x_return_status OUT NOCOPY VARCHAR2
2192:
2193: PROCEDURE Move_Qsnr_Element (
2194: p_api_version_number IN NUMBER
2195: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
2196: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
2197: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
2198:
2199: ,x_return_status OUT NOCOPY VARCHAR2
2200: ,x_msg_count OUT NOCOPY NUMBER
2193: PROCEDURE Move_Qsnr_Element (
2194: p_api_version_number IN NUMBER
2195: ,p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE
2196: ,p_commit IN VARCHAR2 := Fnd_Api.G_FALSE
2197: ,p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL
2198:
2199: ,x_return_status OUT NOCOPY VARCHAR2
2200: ,x_msg_count OUT NOCOPY NUMBER
2201: ,x_msg_data OUT NOCOPY VARCHAR2
2245: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
2246: END IF;
2247:
2248: -- Standard call to check for call compatibility.
2249: IF NOT FND_API.Compatible_API_Call (l_api_version_number
2250: ,p_api_version_number
2251: ,l_api_name
2252: ,G_PKG_NAME
2253: )
2251: ,l_api_name
2252: ,G_PKG_NAME
2253: )
2254: THEN
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257:
2258: -- Initialize message list if p_init_msg_list is set to TRUE.
2259: IF FND_API.to_Boolean( p_init_msg_list )
2255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2256: END IF;
2257:
2258: -- Initialize message list if p_init_msg_list is set to TRUE.
2259: IF FND_API.to_Boolean( p_init_msg_list )
2260: THEN
2261: FND_MSG_PUB.initialize;
2262: END IF;
2263:
2261: FND_MSG_PUB.initialize;
2262: END IF;
2263:
2264: -- Initialize API return status to SUCCESS
2265: x_return_status := FND_API.G_RET_STS_SUCCESS;
2266:
2267: -- Debug Message
2268: IF (PV_DEBUG_HIGH_ON) THEN
2269:
2343: l_up_qsnr_element_rec.qsnr_elmt_seq_num := l_current_qsnr_rec.qsnr_elmt_seq_num;
2344: l_current_qsnr_element_rec.qsnr_elmt_seq_num := l_up_qsnr_rec.qsnr_elmt_seq_num;
2345:
2346: Update_Gq_Elements( p_api_version_number => 1.0,
2347: p_init_msg_list => FND_API.G_FALSE,
2348: p_validation_level => p_validation_level,
2349: p_commit => p_commit,
2350: x_return_status => x_return_status,
2351: x_msg_count => x_msg_count,
2353: p_qsnr_element_rec => l_current_qsnr_element_rec,
2354: x_object_version_number => l_object_version_number
2355: );
2356:
2357: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2354: x_object_version_number => l_object_version_number
2355: );
2356:
2357: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2362: RAISE FND_API.g_exc_error;
2357: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2362: RAISE FND_API.g_exc_error;
2363: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2364: RAISE FND_API.g_exc_unexpected_error;
2365: END IF;
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2362: RAISE FND_API.g_exc_error;
2363: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2364: RAISE FND_API.g_exc_unexpected_error;
2365: END IF;
2366:
2359: END IF;
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2362: RAISE FND_API.g_exc_error;
2363: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2364: RAISE FND_API.g_exc_unexpected_error;
2365: END IF;
2366:
2367: Update_Gq_Elements( p_api_version_number => 1.0,
2360:
2361: IF x_return_status = FND_API.g_ret_sts_error THEN
2362: RAISE FND_API.g_exc_error;
2363: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2364: RAISE FND_API.g_exc_unexpected_error;
2365: END IF;
2366:
2367: Update_Gq_Elements( p_api_version_number => 1.0,
2368: p_init_msg_list => FND_API.G_FALSE,
2364: RAISE FND_API.g_exc_unexpected_error;
2365: END IF;
2366:
2367: Update_Gq_Elements( p_api_version_number => 1.0,
2368: p_init_msg_list => FND_API.G_FALSE,
2369: p_validation_level => p_validation_level,
2370: p_commit => p_commit,
2371: x_return_status => x_return_status,
2372: x_msg_count => x_msg_count,
2374: p_qsnr_element_rec => l_up_qsnr_element_rec,
2375: x_object_version_number => l_object_version_number
2376: );
2377:
2378: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2379: RAISE FND_API.G_EXC_ERROR;
2380: END IF;
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2375: x_object_version_number => l_object_version_number
2376: );
2377:
2378: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2379: RAISE FND_API.G_EXC_ERROR;
2380: END IF;
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2378: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2379: RAISE FND_API.G_EXC_ERROR;
2380: END IF;
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2385: RAISE FND_API.g_exc_unexpected_error;
2386: END IF;
2379: RAISE FND_API.G_EXC_ERROR;
2380: END IF;
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2385: RAISE FND_API.g_exc_unexpected_error;
2386: END IF;
2387:
2380: END IF;
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2385: RAISE FND_API.g_exc_unexpected_error;
2386: END IF;
2387:
2388: ELSIF l_current_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2381:
2382: IF x_return_status = FND_API.g_ret_sts_error THEN
2383: RAISE FND_API.g_exc_error;
2384: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2385: RAISE FND_API.g_exc_unexpected_error;
2386: END IF;
2387:
2388: ELSIF l_current_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2389: AND l_up_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2409: END IF;
2410: l_current_qsnr_element_rec.qsnr_elmt_page_num := l_current_qsnr_rec.qsnr_elmt_page_num;
2411:
2412: Update_Gq_Elements( p_api_version_number => 1.0,
2413: p_init_msg_list => FND_API.G_FALSE,
2414: p_validation_level => p_validation_level,
2415: p_commit => p_commit,
2416: x_return_status => x_return_status,
2417: x_msg_count => x_msg_count,
2419: p_qsnr_element_rec => l_current_qsnr_element_rec,
2420: x_object_version_number => l_object_version_number
2421: );
2422:
2423: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: END IF;
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2420: x_object_version_number => l_object_version_number
2421: );
2422:
2423: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: END IF;
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2428: RAISE FND_API.g_exc_error;
2423: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2424: RAISE FND_API.G_EXC_ERROR;
2425: END IF;
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2428: RAISE FND_API.g_exc_error;
2429: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2430: RAISE FND_API.g_exc_unexpected_error;
2431: END IF;
2424: RAISE FND_API.G_EXC_ERROR;
2425: END IF;
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2428: RAISE FND_API.g_exc_error;
2429: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2430: RAISE FND_API.g_exc_unexpected_error;
2431: END IF;
2432:
2425: END IF;
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2428: RAISE FND_API.g_exc_error;
2429: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2430: RAISE FND_API.g_exc_unexpected_error;
2431: END IF;
2432:
2433: Update_Gq_Elements( p_api_version_number => 1.0,
2426:
2427: IF x_return_status = FND_API.g_ret_sts_error THEN
2428: RAISE FND_API.g_exc_error;
2429: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2430: RAISE FND_API.g_exc_unexpected_error;
2431: END IF;
2432:
2433: Update_Gq_Elements( p_api_version_number => 1.0,
2434: p_init_msg_list => FND_API.G_FALSE,
2430: RAISE FND_API.g_exc_unexpected_error;
2431: END IF;
2432:
2433: Update_Gq_Elements( p_api_version_number => 1.0,
2434: p_init_msg_list => FND_API.G_FALSE,
2435: p_validation_level => p_validation_level,
2436: p_commit => p_commit,
2437: x_return_status => x_return_status,
2438: x_msg_count => x_msg_count,
2440: p_qsnr_element_rec => l_up_qsnr_element_rec,
2441: x_object_version_number => l_object_version_number
2442: );
2443:
2444: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2445: RAISE FND_API.G_EXC_ERROR;
2446: END IF;
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2441: x_object_version_number => l_object_version_number
2442: );
2443:
2444: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2445: RAISE FND_API.G_EXC_ERROR;
2446: END IF;
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2449: RAISE FND_API.g_exc_error;
2444: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2445: RAISE FND_API.G_EXC_ERROR;
2446: END IF;
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2449: RAISE FND_API.g_exc_error;
2450: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2451: RAISE FND_API.g_exc_unexpected_error;
2452: END IF;
2445: RAISE FND_API.G_EXC_ERROR;
2446: END IF;
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2449: RAISE FND_API.g_exc_error;
2450: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2451: RAISE FND_API.g_exc_unexpected_error;
2452: END IF;
2453:
2446: END IF;
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2449: RAISE FND_API.g_exc_error;
2450: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2451: RAISE FND_API.g_exc_unexpected_error;
2452: END IF;
2453:
2454: ELSIF l_up_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2447:
2448: IF x_return_status = FND_API.g_ret_sts_error THEN
2449: RAISE FND_API.g_exc_error;
2450: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2451: RAISE FND_API.g_exc_unexpected_error;
2452: END IF;
2453:
2454: ELSIF l_up_qsnr_rec.qsnr_elmt_type = 'PAGEBREAK'
2455: AND l_current_qsnr_rec.qsnr_elmt_type <> 'PAGEBREAK' THEN
2488: END IF;
2489:
2490:
2491: Update_Gq_Elements( p_api_version_number => 1.0,
2492: p_init_msg_list => FND_API.G_FALSE,
2493: p_validation_level => p_validation_level,
2494: p_commit => p_commit,
2495: x_return_status => x_return_status,
2496: x_msg_count => x_msg_count,
2498: p_qsnr_element_rec => l_current_qsnr_element_rec,
2499: x_object_version_number => l_object_version_number
2500: );
2501:
2502: IF x_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2505: RAISE FND_API.g_exc_unexpected_error;
2506: END IF;
2499: x_object_version_number => l_object_version_number
2500: );
2501:
2502: IF x_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2505: RAISE FND_API.g_exc_unexpected_error;
2506: END IF;
2507:
2500: );
2501:
2502: IF x_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2505: RAISE FND_API.g_exc_unexpected_error;
2506: END IF;
2507:
2508: Update_Gq_Elements( p_api_version_number => 1.0,
2501:
2502: IF x_return_status = FND_API.g_ret_sts_error THEN
2503: RAISE FND_API.g_exc_error;
2504: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2505: RAISE FND_API.g_exc_unexpected_error;
2506: END IF;
2507:
2508: Update_Gq_Elements( p_api_version_number => 1.0,
2509: p_init_msg_list => FND_API.G_FALSE,
2505: RAISE FND_API.g_exc_unexpected_error;
2506: END IF;
2507:
2508: Update_Gq_Elements( p_api_version_number => 1.0,
2509: p_init_msg_list => FND_API.G_FALSE,
2510: p_validation_level => p_validation_level,
2511: p_commit => p_commit,
2512: x_return_status => x_return_status,
2513: x_msg_count => x_msg_count,
2515: p_qsnr_element_rec => l_up_qsnr_element_rec,
2516: x_object_version_number => l_object_version_number
2517: );
2518:
2519: IF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2516: x_object_version_number => l_object_version_number
2517: );
2518:
2519: IF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524: END IF;
2517: );
2518:
2519: IF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524: END IF;
2525:
2518:
2519: IF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524: END IF;
2525:
2526:
2530: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - end');
2531: END IF;
2532:
2533: -- Standard check for p_commit
2534: IF FND_API.to_Boolean( p_commit ) THEN
2535: COMMIT WORK;
2536: END IF;
2537:
2538: FND_MSG_PUB.Count_And_Get
2541: );
2542:
2543:
2544: EXCEPTION
2545: WHEN FND_API.G_EXC_ERROR THEN
2546: ROLLBACK TO Move_Qsnr_Element;
2547: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2548: -- Standard call to get message count and if count=1, get the message
2549: Fnd_Msg_Pub.Count_And_Get (
2543:
2544: EXCEPTION
2545: WHEN FND_API.G_EXC_ERROR THEN
2546: ROLLBACK TO Move_Qsnr_Element;
2547: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2548: -- Standard call to get message count and if count=1, get the message
2549: Fnd_Msg_Pub.Count_And_Get (
2550: p_encoded => Fnd_Api.G_FALSE
2551: ,p_count => x_msg_count
2546: ROLLBACK TO Move_Qsnr_Element;
2547: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2548: -- Standard call to get message count and if count=1, get the message
2549: Fnd_Msg_Pub.Count_And_Get (
2550: p_encoded => Fnd_Api.G_FALSE
2551: ,p_count => x_msg_count
2552: ,p_data => x_msg_data
2553: );
2554:
2551: ,p_count => x_msg_count
2552: ,p_data => x_msg_data
2553: );
2554:
2555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2556: ROLLBACK TO Move_Qsnr_Element;
2557: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2558: -- Standard call to get message count and if count=1, get the message
2559: Fnd_Msg_Pub.Count_And_Get (
2553: );
2554:
2555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2556: ROLLBACK TO Move_Qsnr_Element;
2557: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2558: -- Standard call to get message count and if count=1, get the message
2559: Fnd_Msg_Pub.Count_And_Get (
2560: p_encoded => Fnd_Api.G_FALSE
2561: ,p_count => x_msg_count
2556: ROLLBACK TO Move_Qsnr_Element;
2557: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2558: -- Standard call to get message count and if count=1, get the message
2559: Fnd_Msg_Pub.Count_And_Get (
2560: p_encoded => Fnd_Api.G_FALSE
2561: ,p_count => x_msg_count
2562: ,p_data => x_msg_data
2563: );
2564:
2563: );
2564:
2565: WHEN OTHERS THEN
2566: ROLLBACK TO Move_Qsnr_Element;
2567: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2568: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2569: THEN
2570: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2571: END IF;
2570: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2571: END IF;
2572: -- Standard call to get message count and if count=1, get the message
2573: Fnd_Msg_Pub.Count_And_Get (
2574: p_encoded => Fnd_Api.G_FALSE
2575: ,p_count => x_msg_count
2576: ,p_data => x_msg_data
2577: );
2578: