16:
17: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_List_Query_PUB';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amspliqb.pls';
19:
20: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
22: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
23:
24: PROCEDURE Create_List_Query(
17: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_List_Query_PUB';
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amspliqb.pls';
19:
20: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
22: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
23:
24: PROCEDURE Create_List_Query(
25: p_api_version_number IN NUMBER,
18: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amspliqb.pls';
19:
20: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
21: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
22: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
23:
24: PROCEDURE Create_List_Query(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_Boolean( p_init_msg_list )
56: THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59:
60: -- Debug Message
61: IF (AMS_DEBUG_HIGH_ON) THEN
107: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
108: END IF;
109:
110: -- Standard call to get message count and if count is 1, get message info.
111: FND_MSG_PUB.Count_And_Get
112: (p_count => x_msg_count,
113: p_data => x_msg_data
114: );
115: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: ROLLBACK TO CREATE_List_Query_PUB;
123: x_return_status := FND_API.G_RET_STS_ERROR;
124: -- Standard call to get message count and if count=1, get the message
125: FND_MSG_PUB.Count_And_Get (
126: p_encoded => FND_API.G_FALSE,
127: p_count => x_msg_count,
128: p_data => x_msg_data
129: );
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO CREATE_List_Query_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: -- Standard call to get message count and if count=1, get the message
135: FND_MSG_PUB.Count_And_Get (
136: p_encoded => FND_API.G_FALSE,
137: p_count => x_msg_count,
138: p_data => x_msg_data
139: );
140:
141: WHEN OTHERS THEN
142: ROLLBACK TO CREATE_List_Query_PUB;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
145: THEN
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147: END IF;
148: -- Standard call to get message count and if count=1, get the message
142: ROLLBACK TO CREATE_List_Query_PUB;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
145: THEN
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147: END IF;
148: -- Standard call to get message count and if count=1, get the message
149: FND_MSG_PUB.Count_And_Get (
150: p_encoded => FND_API.G_FALSE,
145: THEN
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147: END IF;
148: -- Standard call to get message count and if count=1, get the message
149: FND_MSG_PUB.Count_And_Get (
150: p_encoded => FND_API.G_FALSE,
151: p_count => x_msg_count,
152: p_data => x_msg_data
153: );
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE.
191: IF FND_API.to_Boolean( p_init_msg_list )
192: THEN
193: FND_MSG_PUB.initialize;
194: END IF;
195:
196: -- Debug Message
197: IF (AMS_DEBUG_HIGH_ON) THEN
244: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
245: END IF;
246:
247: -- Standard call to get message count and if count is 1, get message info.
248: FND_MSG_PUB.Count_And_Get
249: (p_count => x_msg_count,
250: p_data => x_msg_data
251: );
252: EXCEPTION
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Query_PUB;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
263: p_encoded => FND_API.G_FALSE,
264: p_count => x_msg_count,
265: p_data => x_msg_data
266: );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO CREATE_List_Query_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277:
278: WHEN OTHERS THEN
279: ROLLBACK TO CREATE_List_Query_PUB;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
279: ROLLBACK TO CREATE_List_Query_PUB;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
286: FND_MSG_PUB.Count_And_Get (
287: p_encoded => FND_API.G_FALSE,
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
286: FND_MSG_PUB.Count_And_Get (
287: p_encoded => FND_API.G_FALSE,
288: p_count => x_msg_count,
289: p_data => x_msg_data
290: );
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328: IF FND_API.to_Boolean( p_init_msg_list )
329: THEN
330: FND_MSG_PUB.initialize;
331: END IF;
332:
333: -- Debug Message
334: IF (AMS_DEBUG_HIGH_ON) THEN
378: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
379: END IF;
380:
381: -- Standard call to get message count and if count is 1, get message info.
382: FND_MSG_PUB.Count_And_Get
383: (p_count => x_msg_count,
384: p_data => x_msg_data
385: );
386: EXCEPTION
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO UPDATE_List_Query_PUB;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO UPDATE_List_Query_PUB;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: -- Standard call to get message count and if count=1, get the message
406: FND_MSG_PUB.Count_And_Get (
407: p_encoded => FND_API.G_FALSE,
408: p_count => x_msg_count,
409: p_data => x_msg_data
410: );
411:
412: WHEN OTHERS THEN
413: ROLLBACK TO UPDATE_List_Query_PUB;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418: END IF;
419: -- Standard call to get message count and if count=1, get the message
413: ROLLBACK TO UPDATE_List_Query_PUB;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418: END IF;
419: -- Standard call to get message count and if count=1, get the message
420: FND_MSG_PUB.Count_And_Get (
421: p_encoded => FND_API.G_FALSE,
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418: END IF;
419: -- Standard call to get message count and if count=1, get the message
420: FND_MSG_PUB.Count_And_Get (
421: p_encoded => FND_API.G_FALSE,
422: p_count => x_msg_count,
423: p_data => x_msg_data
424: );
462:
463: -- Initialize message list if p_init_msg_list is set to TRUE.
464: IF FND_API.to_Boolean( p_init_msg_list )
465: THEN
466: FND_MSG_PUB.initialize;
467: END IF;
468:
469: -- Debug Message
470: IF (AMS_DEBUG_HIGH_ON) THEN
516: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
517: END IF;
518:
519: -- Standard call to get message count and if count is 1, get message info.
520: FND_MSG_PUB.Count_And_Get
521: (p_count => x_msg_count,
522: p_data => x_msg_data
523: );
524: EXCEPTION
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO UPDATE_List_Query_PUB;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541: ROLLBACK TO UPDATE_List_Query_PUB;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
545: p_encoded => FND_API.G_FALSE,
546: p_count => x_msg_count,
547: p_data => x_msg_data
548: );
549:
550: WHEN OTHERS THEN
551: ROLLBACK TO UPDATE_List_Query_PUB;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: THEN
555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
556: END IF;
557: -- Standard call to get message count and if count=1, get the message
551: ROLLBACK TO UPDATE_List_Query_PUB;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: THEN
555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
556: END IF;
557: -- Standard call to get message count and if count=1, get the message
558: FND_MSG_PUB.Count_And_Get (
559: p_encoded => FND_API.G_FALSE,
554: THEN
555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
556: END IF;
557: -- Standard call to get message count and if count=1, get the message
558: FND_MSG_PUB.Count_And_Get (
559: p_encoded => FND_API.G_FALSE,
560: p_count => x_msg_count,
561: p_data => x_msg_data
562: );
597:
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list )
600: THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603:
604: -- Debug Message
605: IF (AMS_DEBUG_HIGH_ON) THEN
649: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
650: END IF;
651:
652: -- Standard call to get message count and if count is 1, get message info.
653: FND_MSG_PUB.Count_And_Get
654: (p_count => x_msg_count,
655: p_data => x_msg_data
656: );
657: EXCEPTION
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_List_Query_PUB;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
668: p_encoded => FND_API.G_FALSE,
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: ROLLBACK TO DELETE_List_Query_PUB;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
680: p_data => x_msg_data
681: );
682:
683: WHEN OTHERS THEN
684: ROLLBACK TO DELETE_List_Query_PUB;
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
687: THEN
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
690: -- Standard call to get message count and if count=1, get the message
684: ROLLBACK TO DELETE_List_Query_PUB;
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
687: THEN
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
690: -- Standard call to get message count and if count=1, get the message
691: FND_MSG_PUB.Count_And_Get (
692: p_encoded => FND_API.G_FALSE,
687: THEN
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
690: -- Standard call to get message count and if count=1, get the message
691: FND_MSG_PUB.Count_And_Get (
692: p_encoded => FND_API.G_FALSE,
693: p_count => x_msg_count,
694: p_data => x_msg_data
695: );
729:
730: -- Initialize message list if p_init_msg_list is set to TRUE.
731: IF FND_API.to_Boolean( p_init_msg_list )
732: THEN
733: FND_MSG_PUB.initialize;
734: END IF;
735:
736: -- Debug Message
737: IF (AMS_DEBUG_HIGH_ON) THEN
781: AMS_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
782: END IF;
783:
784: -- Standard call to get message count and if count is 1, get message info.
785: FND_MSG_PUB.Count_And_Get
786: (p_count => x_msg_count,
787: p_data => x_msg_data
788: );
789: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO DELETE_List_Query_PUB;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO DELETE_List_Query_PUB;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
810: p_encoded => FND_API.G_FALSE,
811: p_count => x_msg_count,
812: p_data => x_msg_data
813: );
814:
815: WHEN OTHERS THEN
816: ROLLBACK TO DELETE_List_Query_PUB;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
819: THEN
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
822: -- Standard call to get message count and if count=1, get the message
816: ROLLBACK TO DELETE_List_Query_PUB;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
819: THEN
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
822: -- Standard call to get message count and if count=1, get the message
823: FND_MSG_PUB.Count_And_Get (
824: p_encoded => FND_API.G_FALSE,
819: THEN
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
822: -- Standard call to get message count and if count=1, get the message
823: FND_MSG_PUB.Count_And_Get (
824: p_encoded => FND_API.G_FALSE,
825: p_count => x_msg_count,
826: p_data => x_msg_data
827: );
857:
858: -- Initialize message list if p_init_msg_list is set to TRUE.
859: IF FND_API.to_Boolean( p_init_msg_list )
860: THEN
861: FND_MSG_PUB.initialize;
862: END IF;
863:
864: -- Debug Message
865: IF (AMS_DEBUG_HIGH_ON) THEN
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO LOCK_List_Query_PUB;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
916: p_encoded => FND_API.G_FALSE,
917: p_count => x_msg_count,
918: p_data => x_msg_data
919: );
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO LOCK_List_Query_PUB;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
928: p_data => x_msg_data
929: );
930:
931: WHEN OTHERS THEN
932: ROLLBACK TO LOCK_List_Query_PUB;
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
934: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935: THEN
936: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937: END IF;
938: -- Standard call to get message count and if count=1, get the message
932: ROLLBACK TO LOCK_List_Query_PUB;
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
934: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935: THEN
936: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937: END IF;
938: -- Standard call to get message count and if count=1, get the message
939: FND_MSG_PUB.Count_And_Get (
940: p_encoded => FND_API.G_FALSE,
935: THEN
936: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937: END IF;
938: -- Standard call to get message count and if count=1, get the message
939: FND_MSG_PUB.Count_And_Get (
940: p_encoded => FND_API.G_FALSE,
941: p_count => x_msg_count,
942: p_data => x_msg_data
943: );