63:
64: -- Initialize message list if p_init_msg_list is set to TRUE.
65: IF FND_API.to_Boolean( p_init_msg_list )
66: THEN
67: FND_MSG_PUB.initialize;
68: END IF;
69:
70:
71: -- Initialize API return status to SUCCESS
109: COMMIT WORK;
110: END IF;
111:
112: -- Standard callto get message count and if count is 1, get message info.
113: FND_MSG_PUB.Count_And_Get
114: ( p_count => x_msg_count,
115: p_data => x_msg_data
116: );
117: EXCEPTION
119: WHEN FND_API.G_EXC_ERROR THEN
120: ROLLBACK TO create_item_PVT;
121: x_return_status := FND_API.G_RET_STS_ERROR ;
122:
123: FND_MSG_PUB.Count_And_Get
124:
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
128:
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: ROLLBACK TO create_item_PVT;
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => x_msg_count,
134: p_data => x_msg_data
135: );
136:
136:
137: WHEN OTHERS THEN
138: ROLLBACK TO create_item_PVT;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level
141: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
142: THEN
143: FND_MSG_PUB.Add_Exc_Msg
144: ( G_PKG_NAME ,
137: WHEN OTHERS THEN
138: ROLLBACK TO create_item_PVT;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level
141: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
142: THEN
143: FND_MSG_PUB.Add_Exc_Msg
144: ( G_PKG_NAME ,
145: l_api_name
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level
141: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
142: THEN
143: FND_MSG_PUB.Add_Exc_Msg
144: ( G_PKG_NAME ,
145: l_api_name
146: );
147: END IF;
145: l_api_name
146: );
147: END IF;
148:
149: FND_MSG_PUB.Count_And_Get
150: ( p_count => x_msg_count,
151: p_data => x_msg_data
152:
153: );
191:
192: -- Initialize message list if p_init_msg_list is set to TRUE.
193: IF FND_API.to_Boolean( p_init_msg_list )
194: THEN
195: FND_MSG_PUB.initialize;
196: END IF;
197:
198:
199: -- Initialize API return status to SUCCESS
249: COMMIT WORK;
250: END IF;
251:
252: -- Standard callto get message count and if count is 1, get message info.
253: FND_MSG_PUB.Count_And_Get
254: ( p_count => x_msg_count,
255: p_data => x_msg_data
256: );
257: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260: ROLLBACK TO create_item_PVT;
261: x_return_status := FND_API.G_RET_STS_ERROR ;
262:
263: FND_MSG_PUB.Count_And_Get
264:
265: ( p_count => x_msg_count,
266: p_data => x_msg_data
267: );
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO create_item_PVT;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
272: FND_MSG_PUB.Count_And_Get
273: ( p_count => x_msg_count,
274: p_data => x_msg_data
275: );
276:
276:
277: WHEN OTHERS THEN
278: ROLLBACK TO create_item_PVT;
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: IF FND_MSG_PUB.Check_Msg_Level
281: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg
284: ( G_PKG_NAME ,
277: WHEN OTHERS THEN
278: ROLLBACK TO create_item_PVT;
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: IF FND_MSG_PUB.Check_Msg_Level
281: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg
284: ( G_PKG_NAME ,
285: l_api_name
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: IF FND_MSG_PUB.Check_Msg_Level
281: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg
284: ( G_PKG_NAME ,
285: l_api_name
286: );
287: END IF;
285: l_api_name
286: );
287: END IF;
288:
289: FND_MSG_PUB.Count_And_Get
290: ( p_count => x_msg_count,
291: p_data => x_msg_data
292:
293: );
324:
325: -- Initialize message list if p_init_msg_list is set to TRUE.
326: IF FND_API.to_Boolean( p_init_msg_list )
327: THEN
328: FND_MSG_PUB.initialize;
329: END IF;
330:
331:
332: -- Initialize API return status to SUCCESS
350: COMMIT WORK;
351: END IF;
352:
353: -- Standard callto get message count and if count is 1, get message info.
354: FND_MSG_PUB.Count_And_Get
355: ( p_count => x_msg_count,
356: p_data => x_msg_data
357: );
358: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: ROLLBACK TO create_item_PVT;
362: x_return_status := FND_API.G_RET_STS_ERROR ;
363:
364: FND_MSG_PUB.Count_And_Get
365:
366: ( p_count => x_msg_count,
367: p_data => x_msg_data
368: );
369:
370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: ROLLBACK TO create_item_PVT;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
373: FND_MSG_PUB.Count_And_Get
374: ( p_count => x_msg_count,
375: p_data => x_msg_data
376: );
377:
377:
378: WHEN OTHERS THEN
379: ROLLBACK TO create_item_PVT;
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: IF FND_MSG_PUB.Check_Msg_Level
382: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
383: THEN
384: FND_MSG_PUB.Add_Exc_Msg
385: ( G_PKG_NAME ,
378: WHEN OTHERS THEN
379: ROLLBACK TO create_item_PVT;
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: IF FND_MSG_PUB.Check_Msg_Level
382: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
383: THEN
384: FND_MSG_PUB.Add_Exc_Msg
385: ( G_PKG_NAME ,
386: l_api_name
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: IF FND_MSG_PUB.Check_Msg_Level
382: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
383: THEN
384: FND_MSG_PUB.Add_Exc_Msg
385: ( G_PKG_NAME ,
386: l_api_name
387: );
388: END IF;
386: l_api_name
387: );
388: END IF;
389:
390: FND_MSG_PUB.Count_And_Get
391: ( p_count => x_msg_count,
392: p_data => x_msg_data
393:
394: );
427:
428: -- Initialize message list if p_init_msg_list is set to TRUE.
429: IF FND_API.to_Boolean( p_init_msg_list )
430: THEN
431: FND_MSG_PUB.initialize;
432: END IF;
433:
434:
435: -- Initialize API return status to SUCCESS
475: COMMIT WORK;
476: END IF;
477:
478: -- Standard callto get message count and if count is 1, get message info.
479: FND_MSG_PUB.Count_And_Get
480: ( p_count => x_msg_count,
481: p_data => x_msg_data
482: );
483: EXCEPTION
485: WHEN FND_API.G_EXC_ERROR THEN
486: ROLLBACK TO create_item_PVT;
487: x_return_status := FND_API.G_RET_STS_ERROR ;
488:
489: FND_MSG_PUB.Count_And_Get
490:
491: ( p_count => x_msg_count,
492: p_data => x_msg_data
493: );
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: ROLLBACK TO create_item_PVT;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
498: FND_MSG_PUB.Count_And_Get
499: ( p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
502:
503: WHEN OTHERS THEN
504: ROLLBACK TO create_item_PVT;
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level
507: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.Add_Exc_Msg
510: ( G_PKG_NAME ,
503: WHEN OTHERS THEN
504: ROLLBACK TO create_item_PVT;
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level
507: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.Add_Exc_Msg
510: ( G_PKG_NAME ,
511: l_api_name
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: IF FND_MSG_PUB.Check_Msg_Level
507: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.Add_Exc_Msg
510: ( G_PKG_NAME ,
511: l_api_name
512: );
513: END IF;
511: l_api_name
512: );
513: END IF;
514:
515: FND_MSG_PUB.Count_And_Get
516: ( p_count => x_msg_count,
517: p_data => x_msg_data
518:
519: );
554: END IF;
555:
556: --Initialize the message list if p_init_msg_list is set to TRUE
557: If FND_API.to_Boolean(p_init_msg_list) THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560:
561: --Initialize API status return
562: x_return_status := FND_API.G_RET_STS_SUCCESS;
619: IF FND_API.to_Boolean(p_commit) THEN
620: COMMIT WORK;
621: END IF;
622:
623: FND_MSG_PUB.Count_And_Get
624: ( p_count => x_msg_count,p_data => x_msg_data);
625:
626: EXCEPTION
627:
627:
628: WHEN FND_API.G_EXC_ERROR THEN
629: ROLLBACK TO cleanup_monitoring_data_PVT;
630: x_return_status := FND_API.G_RET_STS_ERROR ;
631: FND_MSG_PUB.Count_And_Get
632: ( p_count => x_msg_count,p_data => x_msg_data);
633:
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: ROLLBACK TO cleanup_monitoring_data_PVT;
633:
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: ROLLBACK TO cleanup_monitoring_data_PVT;
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
637: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
638:
639:
640: WHEN OTHERS THEN
641: ROLLBACK TO cleanup_monitoring_data_PVT;
640: WHEN OTHERS THEN
641: ROLLBACK TO cleanup_monitoring_data_PVT;
642:
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
645: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
646: END IF;
647: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
648:
641: ROLLBACK TO cleanup_monitoring_data_PVT;
642:
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
645: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
646: END IF;
647: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
648:
649: END cleanup_monitoring_data;
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
645: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
646: END IF;
647: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
648:
649: END cleanup_monitoring_data;
650:
651:
681:
682: -- Initialize message list if p_init_msg_list is set to TRUE.
683: IF FND_API.to_Boolean( p_init_msg_list )
684: THEN
685: FND_MSG_PUB.initialize;
686: END IF;
687:
688: -- Initialize API return status to SUCCESS
689: x_return_status := FND_API.G_RET_STS_SUCCESS;
732: COMMIT WORK;
733: END IF;
734:
735: -- Standard callto get message count and if count is 1, get message info.
736: FND_MSG_PUB.Count_And_Get
737: ( p_count => x_msg_count,
738: p_data => x_msg_data
739: );
740: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744:
745: ROLLBACK TO GET_DP_RUNNING_STATUS;
746: x_return_status := FND_API.G_RET_STS_ERROR ;
747: FND_MSG_PUB.Count_And_Get
748: ( p_count => x_msg_count,
749: p_data => x_msg_data
750: );
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: ROLLBACK TO GET_DP_RUNNING_STATUS;
754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
755: FND_MSG_PUB.Count_And_Get
756: ( p_count => x_msg_count,
757: p_data => x_msg_data
758: );
759: WHEN OTHERS THEN
759: WHEN OTHERS THEN
760:
761: ROLLBACK TO GET_DP_RUNNING_STATUS;
762: x_return_status := FND_API.G_RET_STS_ERROR;
763: IF FND_MSG_PUB.Check_Msg_Level
764: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg
767: ( G_PKG_NAME ,
760:
761: ROLLBACK TO GET_DP_RUNNING_STATUS;
762: x_return_status := FND_API.G_RET_STS_ERROR;
763: IF FND_MSG_PUB.Check_Msg_Level
764: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg
767: ( G_PKG_NAME ,
768: l_api_name
762: x_return_status := FND_API.G_RET_STS_ERROR;
763: IF FND_MSG_PUB.Check_Msg_Level
764: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: FND_MSG_PUB.Add_Exc_Msg
767: ( G_PKG_NAME ,
768: l_api_name
769: );
770: END IF;
767: ( G_PKG_NAME ,
768: l_api_name
769: );
770: END IF;
771: FND_MSG_PUB.Count_And_Get
772: ( p_count => x_msg_count ,
773: p_data => x_msg_data
774: );
775:
858:
859: -- Initialize message list if p_init_msg_list is set to TRUE.
860: IF FND_API.to_Boolean( p_init_msg_list )
861: THEN
862: FND_MSG_PUB.initialize;
863: END IF;
864:
865: -- Initialize API return status to SUCCESS
866: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023: COMMIT WORK;
1024: END IF;
1025:
1026: -- Standard callto get message count and if count is 1, get message info.
1027: FND_MSG_PUB.Count_And_Get
1028: ( p_count => x_msg_count,
1029: p_data => x_msg_data
1030: );
1031: EXCEPTION
1032:
1033: WHEN IEM_ERROR_GET_DP_STATUS THEN
1034: ROLLBACK TO GET_ACCOUNT_DP_STATUS;
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036: FND_MSG_PUB.Count_And_Get
1037: ( p_count => x_msg_count,
1038: p_data => x_msg_data
1039: );
1040:
1041: WHEN FND_API.G_EXC_ERROR THEN
1042:
1043: ROLLBACK TO GET_ACCOUNT_DP_STATUS;
1044: x_return_status := FND_API.G_RET_STS_ERROR ;
1045: FND_MSG_PUB.Count_And_Get
1046: ( p_count => x_msg_count,
1047: p_data => x_msg_data
1048: );
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050:
1051: ROLLBACK TO GET_ACCOUNT_DP_STATUS;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1053: FND_MSG_PUB.Count_And_Get
1054: ( p_count => x_msg_count,
1055: p_data => x_msg_data
1056: );
1057: WHEN OTHERS THEN
1057: WHEN OTHERS THEN
1058:
1059: ROLLBACK TO GET_ACCOUNT_DP_STATUS;
1060: x_return_status := FND_API.G_RET_STS_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level
1062: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg
1065: ( G_PKG_NAME ,
1058:
1059: ROLLBACK TO GET_ACCOUNT_DP_STATUS;
1060: x_return_status := FND_API.G_RET_STS_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level
1062: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg
1065: ( G_PKG_NAME ,
1066: l_api_name
1060: x_return_status := FND_API.G_RET_STS_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level
1062: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1063: THEN
1064: FND_MSG_PUB.Add_Exc_Msg
1065: ( G_PKG_NAME ,
1066: l_api_name
1067: );
1068: END IF;
1065: ( G_PKG_NAME ,
1066: l_api_name
1067: );
1068: END IF;
1069: FND_MSG_PUB.Count_And_Get
1070: ( p_count => x_msg_count ,
1071: p_data => x_msg_data
1072: );
1073: