[Home] [Help]
6: /* ----------------------------------------------------------------------- */
7:
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
7:
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
8: PROCEDURE INSERT_ROW
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_commit IN VARCHAR2 := FND_API.G_FALSE,
12: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
13: p_return_status OUT NOCOPY VARCHAR2,
14: p_msg_count OUT NOCOPY NUMBER,
15: p_msg_data OUT NOCOPY VARCHAR2,
16: --
47: SAVEPOINT INSERT_ROW_PVT;
48:
49: -- Standard call to check for call compatibility.
50:
51: if not FND_API.Compatible_API_Call (l_api_version,
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: then
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: then
56: raise FND_API.G_EXC_UNEXPECTED_ERROR;
57: end if;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60:
57: end if;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60:
61: if FND_API.to_Boolean (p_init_msg_list) then
62: FND_MSG_PUB.initialize;
63: end if;
64:
65: -- Initialize API return status to success
63: end if;
64:
65: -- Initialize API return status to success
66:
67: p_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69:
70: -- API body
71: INSERT INTO psb_defaults
108: close c1;
109:
110: FND_MESSAGE.Set_Name('PSB', 'PSB_NO_DATA_FOUND');
111: FND_MSG_PUB.Add;
112: RAISE FND_API.G_EXC_ERROR ;
113: end if;
114: -- End of API body.
115:
116: -- Standard check of p_commit.
114: -- End of API body.
115:
116: -- Standard check of p_commit.
117:
118: if FND_API.to_Boolean (p_commit) then
119: commit work;
120: end if;
121:
122: -- Standard call to get message count and if count is 1, get message info.
125: p_data => p_msg_data);
126:
127: EXCEPTION
128:
129: when FND_API.G_EXC_ERROR then
130:
131: rollback to INSERT_ROW_PVT;
132:
133: p_return_status := FND_API.G_RET_STS_ERROR;
129: when FND_API.G_EXC_ERROR then
130:
131: rollback to INSERT_ROW_PVT;
132:
133: p_return_status := FND_API.G_RET_STS_ERROR;
134:
135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
136: p_data => p_msg_data);
137:
135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
136: p_data => p_msg_data);
137:
138:
139: when FND_API.G_EXC_UNEXPECTED_ERROR then
140:
141: rollback to INSERT_ROW_PVT;
142:
143: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: when FND_API.G_EXC_UNEXPECTED_ERROR then
140:
141: rollback to INSERT_ROW_PVT;
142:
143: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144:
145: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
146: p_data => p_msg_data);
147:
149: when OTHERS then
150:
151: rollback to INSERT_ROW_PVT;
152:
153: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
156:
157: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
164: END INSERT_ROW;
165:
166: PROCEDURE UPDATE_ROW
167: ( p_api_version IN NUMBER,
168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: p_return_status OUT NOCOPY VARCHAR2,
172: p_msg_count OUT NOCOPY NUMBER,
165:
166: PROCEDURE UPDATE_ROW
167: ( p_api_version IN NUMBER,
168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: p_return_status OUT NOCOPY VARCHAR2,
172: p_msg_count OUT NOCOPY NUMBER,
173: p_msg_data OUT NOCOPY VARCHAR2,
166: PROCEDURE UPDATE_ROW
167: ( p_api_version IN NUMBER,
168: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
169: p_commit IN VARCHAR2 := FND_API.G_FALSE,
170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
171: p_return_status OUT NOCOPY VARCHAR2,
172: p_msg_count OUT NOCOPY NUMBER,
173: p_msg_data OUT NOCOPY VARCHAR2,
174: --
198: SAVEPOINT UPDATE_ROW_PVT;
199:
200: -- Standard call to check for call compatibility.
201:
202: if not FND_API.Compatible_API_Call (l_api_version,
203: p_api_version,
204: l_api_name,
205: G_PKG_NAME)
206: then
203: p_api_version,
204: l_api_name,
205: G_PKG_NAME)
206: then
207: raise FND_API.G_EXC_UNEXPECTED_ERROR;
208: end if;
209:
210: -- Initialize message list if p_init_msg_list is set to TRUE.
211:
208: end if;
209:
210: -- Initialize message list if p_init_msg_list is set to TRUE.
211:
212: if FND_API.to_Boolean (p_init_msg_list) then
213: FND_MSG_PUB.initialize;
214: end if;
215:
216: -- Initialize API return status to success
214: end if;
215:
216: -- Initialize API return status to success
217:
218: p_return_status := FND_API.G_RET_STS_SUCCESS;
219:
220: -- API body
221: UPDATE psb_defaults SET
222: DEFAULT_RULE_ID = P_DEFAULT_RULE_ID,
242: -- End of API body.
243:
244: -- Standard check of p_commit.
245:
246: if FND_API.to_Boolean (p_commit) then
247: commit work;
248: end if;
249:
250: -- Standard call to get message count and if count is 1, get message info.
253: p_data => p_msg_data);
254:
255: EXCEPTION
256:
257: when FND_API.G_EXC_ERROR then
258:
259: rollback to UPDATE_ROW_PVT;
260:
261: p_return_status := FND_API.G_RET_STS_ERROR;
257: when FND_API.G_EXC_ERROR then
258:
259: rollback to UPDATE_ROW_PVT;
260:
261: p_return_status := FND_API.G_RET_STS_ERROR;
262:
263: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
264: p_data => p_msg_data);
265:
263: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
264: p_data => p_msg_data);
265:
266:
267: when FND_API.G_EXC_UNEXPECTED_ERROR then
268:
269: rollback to UPDATE_ROW_PVT;
270:
271: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: when FND_API.G_EXC_UNEXPECTED_ERROR then
268:
269: rollback to UPDATE_ROW_PVT;
270:
271: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272:
273: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
274: p_data => p_msg_data);
275:
277: when OTHERS then
278:
279: rollback to UPDATE_ROW_PVT;
280:
281: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282:
283: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
284:
285: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
293:
294:
295: PROCEDURE DELETE_ROW
296: ( p_api_version IN NUMBER,
297: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
298: p_commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: p_return_status OUT NOCOPY VARCHAR2,
301: p_msg_count OUT NOCOPY NUMBER,
294:
295: PROCEDURE DELETE_ROW
296: ( p_api_version IN NUMBER,
297: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
298: p_commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: p_return_status OUT NOCOPY VARCHAR2,
301: p_msg_count OUT NOCOPY NUMBER,
302: p_msg_data OUT NOCOPY VARCHAR2,
295: PROCEDURE DELETE_ROW
296: ( p_api_version IN NUMBER,
297: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
298: p_commit IN VARCHAR2 := FND_API.G_FALSE,
299: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
300: p_return_status OUT NOCOPY VARCHAR2,
301: p_msg_count OUT NOCOPY NUMBER,
302: p_msg_data OUT NOCOPY VARCHAR2,
303: --
319: SAVEPOINT DELETE_ROW_PVT;
320:
321: -- Standard call to check for call compatibility.
322:
323: if not FND_API.Compatible_API_Call (l_api_version,
324: p_api_version,
325: l_api_name,
326: G_PKG_NAME)
327: then
324: p_api_version,
325: l_api_name,
326: G_PKG_NAME)
327: then
328: raise FND_API.G_EXC_UNEXPECTED_ERROR;
329: end if;
330:
331: -- Initialize message list if p_init_msg_list is set to TRUE.
332:
329: end if;
330:
331: -- Initialize message list if p_init_msg_list is set to TRUE.
332:
333: if FND_API.to_Boolean (p_init_msg_list) then
334: FND_MSG_PUB.initialize;
335: end if;
336:
337: /* Bug 1308558 Start */
398: p_data => p_msg_data);
399:
400: -- Standard check of p_commit.
401:
402: if FND_API.to_Boolean (p_commit) then
403: commit work;
404: end if;
405:
406:
405:
406:
407: EXCEPTION
408:
409: when FND_API.G_EXC_ERROR then
410:
411: rollback to DELETE_ROW_PVT;
412:
413: p_return_status := FND_API.G_RET_STS_ERROR;
409: when FND_API.G_EXC_ERROR then
410:
411: rollback to DELETE_ROW_PVT;
412:
413: p_return_status := FND_API.G_RET_STS_ERROR;
414:
415: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
416: p_data => p_msg_data);
417:
415: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
416: p_data => p_msg_data);
417:
418:
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
420:
421: rollback to DELETE_ROW_PVT;
422:
423: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
420:
421: rollback to DELETE_ROW_PVT;
422:
423: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424:
425: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
426: p_data => p_msg_data);
427:
429: when OTHERS then
430:
431: rollback to DELETE_ROW_PVT;
432:
433: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
434:
435: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
436:
437: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
443: END DELETE_ROW;
444:
445: PROCEDURE LOCK_ROW(
446: p_api_version IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_return_status OUT NOCOPY VARCHAR2,
451: p_msg_count OUT NOCOPY NUMBER,
444:
445: PROCEDURE LOCK_ROW(
446: p_api_version IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_return_status OUT NOCOPY VARCHAR2,
451: p_msg_count OUT NOCOPY NUMBER,
452: p_msg_data OUT NOCOPY VARCHAR2,
445: PROCEDURE LOCK_ROW(
446: p_api_version IN NUMBER,
447: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
448: p_commit IN VARCHAR2 := FND_API.G_FALSE,
449: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
450: p_return_status OUT NOCOPY VARCHAR2,
451: p_msg_count OUT NOCOPY NUMBER,
452: p_msg_data OUT NOCOPY VARCHAR2,
453: --
480: BEGIN
481: --
482: SAVEPOINT Lock_Row_Pvt ;
483: --
484: IF NOT FND_API.Compatible_API_Call ( l_api_version,
485: p_api_version,
486: l_api_name,
487: G_PKG_NAME )
488: THEN
485: p_api_version,
486: l_api_name,
487: G_PKG_NAME )
488: THEN
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
490: END IF;
491: --
492:
493: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
490: END IF;
491: --
492:
493: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
494: FND_MSG_PUB.initialize ;
495: END IF;
496: --
497: p_return_status := FND_API.G_RET_STS_SUCCESS ;
493: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
494: FND_MSG_PUB.initialize ;
495: END IF;
496: --
497: p_return_status := FND_API.G_RET_STS_SUCCESS ;
498: p_row_locked := FND_API.G_TRUE ;
499: --
500: OPEN C;
501: --
494: FND_MSG_PUB.initialize ;
495: END IF;
496: --
497: p_return_status := FND_API.G_RET_STS_SUCCESS ;
498: p_row_locked := FND_API.G_TRUE ;
499: --
500: OPEN C;
501: --
502: FETCH C INTO Recinfo;
503: IF (C%NOTFOUND) then
504: CLOSE C;
505: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
506: FND_MSG_PUB.Add;
507: RAISE FND_API.G_EXC_ERROR ;
508: END IF;
509:
510: /* Bug 1308558 End */
511:
539: Null;
540: ELSE
541: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
542: FND_MSG_PUB.Add;
543: RAISE FND_API.G_EXC_ERROR ;
544: END IF;
545: ELSE
546: -- For FTE records
547: IF
569: Null;
570: ELSE
571: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
572: FND_MSG_PUB.Add;
573: RAISE FND_API.G_EXC_ERROR ;
574: END IF;
575: /* Bug 1308558 End */
576: END IF;
577:
575: /* Bug 1308558 End */
576: END IF;
577:
578: --
579: IF FND_API.To_Boolean ( p_commit ) THEN
580: COMMIT WORK;
581: END iF;
582: --
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
587: --
588: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
589: --
590: ROLLBACK TO Lock_Row_Pvt ;
591: p_row_locked := FND_API.G_FALSE;
592: p_return_status := FND_API.G_RET_STS_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
594: p_data => p_msg_data );
595: --
588: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
589: --
590: ROLLBACK TO Lock_Row_Pvt ;
591: p_row_locked := FND_API.G_FALSE;
592: p_return_status := FND_API.G_RET_STS_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
594: p_data => p_msg_data );
595: --
596: WHEN FND_API.G_EXC_ERROR THEN
592: p_return_status := FND_API.G_RET_STS_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
594: p_data => p_msg_data );
595: --
596: WHEN FND_API.G_EXC_ERROR THEN
597: --
598: ROLLBACK TO Lock_Row_Pvt ;
599: p_return_status := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
595: --
596: WHEN FND_API.G_EXC_ERROR THEN
597: --
598: ROLLBACK TO Lock_Row_Pvt ;
599: p_return_status := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
601: p_data => p_msg_data );
602: --
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
599: p_return_status := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
601: p_data => p_msg_data );
602: --
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: --
605: ROLLBACK TO Lock_Row_Pvt ;
606: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
602: --
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: --
605: ROLLBACK TO Lock_Row_Pvt ;
606: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
608: p_data => p_msg_data );
609: --
610: WHEN OTHERS THEN
609: --
610: WHEN OTHERS THEN
611: --
612: ROLLBACK TO Lock_Row_Pvt ;
613: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: --
615: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
617: l_api_name);
624:
625: PROCEDURE Check_Unique
626: (
627: p_api_version IN NUMBER,
628: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
629: p_commit IN VARCHAR2 := FND_API.G_FALSE,
630: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
631: p_return_status OUT NOCOPY VARCHAR2,
632: p_msg_count OUT NOCOPY NUMBER,
625: PROCEDURE Check_Unique
626: (
627: p_api_version IN NUMBER,
628: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
629: p_commit IN VARCHAR2 := FND_API.G_FALSE,
630: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
631: p_return_status OUT NOCOPY VARCHAR2,
632: p_msg_count OUT NOCOPY NUMBER,
633: p_msg_data OUT NOCOPY VARCHAR2,
626: (
627: p_api_version IN NUMBER,
628: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
629: p_commit IN VARCHAR2 := FND_API.G_FALSE,
630: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
631: p_return_status OUT NOCOPY VARCHAR2,
632: p_msg_count OUT NOCOPY NUMBER,
633: p_msg_data OUT NOCOPY VARCHAR2,
634: --
656: BEGIN
657: --
658: SAVEPOINT Check_Unique_Pvt ;
659: --
660: IF NOT FND_API.Compatible_API_Call ( l_api_version,
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME )
664: THEN
661: p_api_version,
662: l_api_name,
663: G_PKG_NAME )
664: THEN
665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
666: END IF;
667: --
668:
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
666: END IF;
667: --
668:
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize ;
671: END IF;
672: --
673: p_return_status := FND_API.G_RET_STS_SUCCESS ;
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize ;
671: END IF;
672: --
673: p_return_status := FND_API.G_RET_STS_SUCCESS ;
674: --
675:
676: -- Checking the psb_defaults table for uniqueness.
677: OPEN c;
687:
688: CLOSE c;
689:
690: --
691: IF FND_API.To_Boolean ( p_commit ) THEN
692: COMMIT WORK;
693: END iF;
694: --
695: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
696: p_data => p_msg_data );
697: --
698: EXCEPTION
699: --
700: WHEN FND_API.G_EXC_ERROR THEN
701: --
702: ROLLBACK TO Check_Unique_Pvt ;
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
699: --
700: WHEN FND_API.G_EXC_ERROR THEN
701: --
702: ROLLBACK TO Check_Unique_Pvt ;
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
705: p_data => p_msg_data );
706: --
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
705: p_data => p_msg_data );
706: --
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: --
709: ROLLBACK TO Check_Unique_Pvt ;
710: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
706: --
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: --
709: ROLLBACK TO Check_Unique_Pvt ;
710: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
712: p_data => p_msg_data );
713: --
714: WHEN OTHERS THEN
713: --
714: WHEN OTHERS THEN
715: --
716: ROLLBACK TO Check_Unique_Pvt ;
717: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: --
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
728:
729: PROCEDURE Check_Global_Default
730: (
731: p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
733: p_commit IN VARCHAR2 := FND_API.G_FALSE,
734: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
735: p_return_status OUT NOCOPY VARCHAR2,
736: p_msg_count OUT NOCOPY NUMBER,
729: PROCEDURE Check_Global_Default
730: (
731: p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
733: p_commit IN VARCHAR2 := FND_API.G_FALSE,
734: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
735: p_return_status OUT NOCOPY VARCHAR2,
736: p_msg_count OUT NOCOPY NUMBER,
737: p_msg_data OUT NOCOPY VARCHAR2,
730: (
731: p_api_version IN NUMBER,
732: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
733: p_commit IN VARCHAR2 := FND_API.G_FALSE,
734: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
735: p_return_status OUT NOCOPY VARCHAR2,
736: p_msg_count OUT NOCOPY NUMBER,
737: p_msg_data OUT NOCOPY VARCHAR2,
738: --
760: BEGIN
761: --
762: SAVEPOINT Check_Unique_Pvt ;
763: --
764: IF NOT FND_API.Compatible_API_Call ( l_api_version,
765: p_api_version,
766: l_api_name,
767: G_PKG_NAME )
768: THEN
765: p_api_version,
766: l_api_name,
767: G_PKG_NAME )
768: THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
770: END IF;
771: --
772:
773: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
770: END IF;
771: --
772:
773: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
774: FND_MSG_PUB.initialize ;
775: END IF;
776: --
777: p_return_status := FND_API.G_RET_STS_SUCCESS ;
773: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
774: FND_MSG_PUB.initialize ;
775: END IF;
776: --
777: p_return_status := FND_API.G_RET_STS_SUCCESS ;
778: --
779:
780: -- Checking the psb_defaults table for uniqueness.
781: OPEN c;
791:
792: CLOSE c;
793:
794: --
795: IF FND_API.To_Boolean ( p_commit ) THEN
796: COMMIT WORK;
797: END iF;
798: --
799: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
800: p_data => p_msg_data );
801: --
802: EXCEPTION
803: --
804: WHEN FND_API.G_EXC_ERROR THEN
805: --
806: ROLLBACK TO Check_Unique_Pvt ;
807: p_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
803: --
804: WHEN FND_API.G_EXC_ERROR THEN
805: --
806: ROLLBACK TO Check_Unique_Pvt ;
807: p_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
809: p_data => p_msg_data );
810: --
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: p_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
809: p_data => p_msg_data );
810: --
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: --
813: ROLLBACK TO Check_Unique_Pvt ;
814: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
810: --
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: --
813: ROLLBACK TO Check_Unique_Pvt ;
814: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
816: p_data => p_msg_data );
817: --
818: WHEN OTHERS THEN
817: --
818: WHEN OTHERS THEN
819: --
820: ROLLBACK TO Check_Unique_Pvt ;
821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: --
823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
824: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
825: l_api_name);
833:
834: PROCEDURE Check_References
835: (
836: p_api_version IN NUMBER,
837: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
838: p_commit IN VARCHAR2 := FND_API.G_FALSE,
839: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
840: p_return_status OUT NOCOPY VARCHAR2,
841: p_msg_count OUT NOCOPY NUMBER,
834: PROCEDURE Check_References
835: (
836: p_api_version IN NUMBER,
837: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
838: p_commit IN VARCHAR2 := FND_API.G_FALSE,
839: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
840: p_return_status OUT NOCOPY VARCHAR2,
841: p_msg_count OUT NOCOPY NUMBER,
842: p_msg_data OUT NOCOPY VARCHAR2,
835: (
836: p_api_version IN NUMBER,
837: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
838: p_commit IN VARCHAR2 := FND_API.G_FALSE,
839: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
840: p_return_status OUT NOCOPY VARCHAR2,
841: p_msg_count OUT NOCOPY NUMBER,
842: p_msg_data OUT NOCOPY VARCHAR2,
843: --
863: BEGIN
864: --
865: SAVEPOINT Check_References_Pvt ;
866: --
867: IF NOT FND_API.Compatible_API_Call ( l_api_version,
868: p_api_version,
869: l_api_name,
870: G_PKG_NAME )
871: THEN
868: p_api_version,
869: l_api_name,
870: G_PKG_NAME )
871: THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
873: END IF;
874: --
875:
876: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
873: END IF;
874: --
875:
876: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
877: FND_MSG_PUB.initialize ;
878: END IF;
879: --
880: p_return_status := FND_API.G_RET_STS_SUCCESS ;
876: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
877: FND_MSG_PUB.initialize ;
878: END IF;
879: --
880: p_return_status := FND_API.G_RET_STS_SUCCESS ;
881: --
882:
883: -- Checking the Psb_set_relations table for references.
884: OPEN c;
893: END IF;
894:
895: CLOSE c;
896: --
897: IF FND_API.To_Boolean ( p_commit ) THEN
898: COMMIT WORK;
899: END iF;
900: --
901: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
902: p_data => p_msg_data );
903:
904: EXCEPTION
905: --
906: WHEN FND_API.G_EXC_ERROR THEN
907: --
908: ROLLBACK TO Check_References_Pvt ;
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
905: --
906: WHEN FND_API.G_EXC_ERROR THEN
907: --
908: ROLLBACK TO Check_References_Pvt ;
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
911: p_data => p_msg_data );
912: --
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
911: p_data => p_msg_data );
912: --
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: --
915: ROLLBACK TO Check_References_Pvt ;
916: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
912: --
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: --
915: ROLLBACK TO Check_References_Pvt ;
916: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
918: p_data => p_msg_data );
919: --
920: WHEN OTHERS THEN
919: --
920: WHEN OTHERS THEN
921: --
922: ROLLBACK TO Check_References_Pvt ;
923: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: --
925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
927: l_api_name);