9: ===============================================================================*/
10:
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: X_return_status OUT NOCOPY VARCHAR2,
17: X_msg_count OUT NOCOPY NUMBER,
10:
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: X_return_status OUT NOCOPY VARCHAR2,
17: X_msg_count OUT NOCOPY NUMBER,
18: X_msg_data OUT NOCOPY VARCHAR2,
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: X_return_status OUT NOCOPY VARCHAR2,
17: X_msg_count OUT NOCOPY NUMBER,
18: X_msg_data OUT NOCOPY VARCHAR2,
19: p_Rowid IN OUT NOCOPY VARCHAR2,
94: -- -----------------------------------------------------------------
95: -- Ensure that the version requested to be used is correct for
96: -- this API.
97: -- -----------------------------------------------------------------
98: IF NOT FND_API.Compatible_API_Call ( l_api_version,
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME )
102: THEN
99: p_api_version,
100: l_api_name,
101: G_PKG_NAME )
102: THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
104: END IF;
105:
106:
107: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
104: END IF;
105:
106:
107: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
108: FND_MSG_PUB.initialize ;
109: END IF;
110:
111: X_return_status := FND_API.G_RET_STS_SUCCESS ;
107: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
108: FND_MSG_PUB.initialize ;
109: END IF;
110:
111: X_return_status := FND_API.G_RET_STS_SUCCESS ;
112:
113: -- -----------------------------------------------------------------
114: -- Insert the DET PF line History record as requested.
115: -- -----------------------------------------------------------------
200: FETCH C_DET_PF_HST_ROWID
201: INTO p_Rowid;
202:
203: IF (C_DET_PF_HST_ROWID%NOTFOUND) THEN
204: RAISE FND_API.G_EXC_ERROR ;
205: END IF;
206:
207: CLOSE C_DET_PF_HST_ROWID;
208:
217: -- ------------------------------------------------------------------
218: -- If the application ID can not be attained then exit the procedure
219: -- ------------------------------------------------------------------
220: IF (c_igc_app_id%NOTFOUND) THEN
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223:
224: CLOSE c_igc_app_id;
225:
236: -- ------------------------------------------------------------------
237: -- Exit procedure if the values can not be obtained.
238: -- ------------------------------------------------------------------
239: IF (c_det_pf_info%NOTFOUND) THEN
240: RAISE FND_API.G_EXC_ERROR;
241: END IF;
242:
243: CLOSE c_det_pf_info;
244:
266: -- the reporting set of books for this PRIMARY set of books.
267: -- ------------------------------------------------------------------
268: IGC_CC_MC_MAIN_HST_PVT.get_rsobs_DET_PF(
269: l_api_version,
270: FND_API.G_FALSE,
271: FND_API.G_FALSE,
272: p_validation_level,
273: l_return_status,
274: X_msg_count,
267: -- ------------------------------------------------------------------
268: IGC_CC_MC_MAIN_HST_PVT.get_rsobs_DET_PF(
269: l_api_version,
270: FND_API.G_FALSE,
271: FND_API.G_FALSE,
272: p_validation_level,
273: l_return_status,
274: X_msg_count,
275: X_msg_data,
286:
287: -- ------------------------------------------------------------------
288: -- Make sure that the insertion was a success
289: -- ------------------------------------------------------------------
290: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
291: RAISE FND_API.G_EXC_ERROR;
292: END IF;
293:
294: END IF;
287: -- ------------------------------------------------------------------
288: -- Make sure that the insertion was a success
289: -- ------------------------------------------------------------------
290: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
291: RAISE FND_API.G_EXC_ERROR;
292: END IF;
293:
294: END IF;
295:
296: -- -----------------------------------------------------------------
297: -- If the records are to be commited in this procedure then
298: -- commit the work now otherwise wait for the caller to do COMMIT.
299: -- -----------------------------------------------------------------
300: IF FND_API.To_Boolean ( p_commit ) THEN
301: COMMIT WORK;
302: END iF;
303:
304: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
306: RETURN;
307:
308: EXCEPTION
309:
310: WHEN FND_API.G_EXC_ERROR THEN
311:
312: ROLLBACK TO Insert_Row_Pvt ;
313: X_return_status := FND_API.G_RET_STS_ERROR;
314: IF (c_det_pf_hst_rowid%ISOPEN) THEN
309:
310: WHEN FND_API.G_EXC_ERROR THEN
311:
312: ROLLBACK TO Insert_Row_Pvt ;
313: X_return_status := FND_API.G_RET_STS_ERROR;
314: IF (c_det_pf_hst_rowid%ISOPEN) THEN
315: CLOSE c_det_pf_hst_rowid;
316: END IF;
317: IF (c_igc_app_id%ISOPEN) THEN
323:
324: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
325: p_data => X_msg_data );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328:
329: ROLLBACK TO Insert_Row_Pvt ;
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: IF (c_det_pf_hst_rowid%ISOPEN) THEN
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328:
329: ROLLBACK TO Insert_Row_Pvt ;
330: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: IF (c_det_pf_hst_rowid%ISOPEN) THEN
332: CLOSE c_det_pf_hst_rowid;
333: END IF;
334: IF (c_igc_app_id%ISOPEN) THEN
343:
344: WHEN OTHERS THEN
345:
346: ROLLBACK TO Insert_Row_Pvt ;
347: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: IF (c_det_pf_hst_rowid%ISOPEN) THEN
349: CLOSE c_det_pf_hst_rowid;
350: END IF;
351: IF (c_igc_app_id%ISOPEN) THEN
371:
372:
373: PROCEDURE Lock_Row(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: X_return_status OUT NOCOPY VARCHAR2,
379: X_msg_count OUT NOCOPY NUMBER,
372:
373: PROCEDURE Lock_Row(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: X_return_status OUT NOCOPY VARCHAR2,
379: X_msg_count OUT NOCOPY NUMBER,
380: X_msg_data OUT NOCOPY VARCHAR2,
373: PROCEDURE Lock_Row(
374: p_api_version IN NUMBER,
375: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
376: p_commit IN VARCHAR2 := FND_API.G_FALSE,
377: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
378: X_return_status OUT NOCOPY VARCHAR2,
379: X_msg_count OUT NOCOPY NUMBER,
380: X_msg_data OUT NOCOPY VARCHAR2,
381: p_Rowid IN OUT NOCOPY VARCHAR2,
434: BEGIN
435:
436: SAVEPOINT Lock_Row_Pvt ;
437:
438: IF NOT FND_API.Compatible_API_Call ( l_api_version,
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME )
442: THEN
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME )
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
444: END IF;
445:
446:
447: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
444: END IF;
445:
446:
447: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
448: FND_MSG_PUB.initialize ;
449: END IF;
450:
451: X_return_status := FND_API.G_RET_STS_SUCCESS ;
447: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
448: FND_MSG_PUB.initialize ;
449: END IF;
450:
451: X_return_status := FND_API.G_RET_STS_SUCCESS ;
452: X_row_locked := FND_API.G_TRUE ;
453:
454: OPEN C;
455: FETCH C
448: FND_MSG_PUB.initialize ;
449: END IF;
450:
451: X_return_status := FND_API.G_RET_STS_SUCCESS ;
452: X_row_locked := FND_API.G_TRUE ;
453:
454: OPEN C;
455: FETCH C
456: INTO Recinfo;
458: IF (C%NOTFOUND) THEN
459: CLOSE C;
460: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
461: FND_MSG_PUB.Add;
462: RAISE FND_API.G_EXC_ERROR ;
463: END IF;
464:
465: CLOSE C;
466:
555: ELSE
556:
557: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
558: FND_MSG_PUB.Add;
559: RAISE FND_API.G_EXC_ERROR ;
560:
561: END IF;
562:
563: IF FND_API.To_Boolean ( p_commit ) THEN
559: RAISE FND_API.G_EXC_ERROR ;
560:
561: END IF;
562:
563: IF FND_API.To_Boolean ( p_commit ) THEN
564: COMMIT WORK;
565: END iF;
566:
567: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
571:
572: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
573:
574: ROLLBACK TO Lock_Row_Pvt ;
575: X_row_locked := FND_API.G_FALSE;
576: X_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
578: p_data => X_msg_data );
579:
572: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
573:
574: ROLLBACK TO Lock_Row_Pvt ;
575: X_row_locked := FND_API.G_FALSE;
576: X_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
578: p_data => X_msg_data );
579:
580: WHEN FND_API.G_EXC_ERROR THEN
576: X_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
578: p_data => X_msg_data );
579:
580: WHEN FND_API.G_EXC_ERROR THEN
581:
582: ROLLBACK TO Lock_Row_Pvt ;
583: X_return_status := FND_API.G_RET_STS_ERROR;
584: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
579:
580: WHEN FND_API.G_EXC_ERROR THEN
581:
582: ROLLBACK TO Lock_Row_Pvt ;
583: X_return_status := FND_API.G_RET_STS_ERROR;
584: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
585: p_data => X_msg_data );
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: X_return_status := FND_API.G_RET_STS_ERROR;
584: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
585: p_data => X_msg_data );
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588:
589: ROLLBACK TO Lock_Row_Pvt ;
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588:
589: ROLLBACK TO Lock_Row_Pvt ;
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
592: p_data => X_msg_data );
593:
594: WHEN OTHERS THEN
593:
594: WHEN OTHERS THEN
595:
596: ROLLBACK TO Lock_Row_Pvt ;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598:
599: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
600: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
601: l_api_name);
611: ===============================================================================*/
612:
613: PROCEDURE Update_Row(
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: X_return_status OUT NOCOPY VARCHAR2,
619: X_msg_count OUT NOCOPY NUMBER,
612:
613: PROCEDURE Update_Row(
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: X_return_status OUT NOCOPY VARCHAR2,
619: X_msg_count OUT NOCOPY NUMBER,
620: X_msg_data OUT NOCOPY VARCHAR2,
613: PROCEDURE Update_Row(
614: p_api_version IN NUMBER,
615: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
616: p_commit IN VARCHAR2 := FND_API.G_FALSE,
617: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
618: X_return_status OUT NOCOPY VARCHAR2,
619: X_msg_count OUT NOCOPY NUMBER,
620: X_msg_data OUT NOCOPY VARCHAR2,
621: p_Rowid IN OUT NOCOPY VARCHAR2,
664: BEGIN
665:
666: SAVEPOINT Update_Row_Pvt ;
667:
668: IF NOT FND_API.Compatible_API_Call ( l_api_version,
669: p_api_version,
670: l_api_name,
671: G_PKG_NAME )
672: THEN
669: p_api_version,
670: l_api_name,
671: G_PKG_NAME )
672: THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
674: END IF;
675:
676:
677: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
674: END IF;
675:
676:
677: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
678: FND_MSG_PUB.initialize ;
679: END IF;
680:
681: X_return_status := FND_API.G_RET_STS_SUCCESS ;
677: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
678: FND_MSG_PUB.initialize ;
679: END IF;
680:
681: X_return_status := FND_API.G_RET_STS_SUCCESS ;
682:
683: UPDATE IGC_CC_DET_PF_HISTORY
684: SET CC_Det_PF_Line_Id = p_CC_Det_PF_Line_Id,
685: Parent_Det_PF_Line_Id = p_Parent_Det_PF_Line_Id,
722: IF (SQL%NOTFOUND) THEN
723: RAISE NO_DATA_FOUND;
724: END IF;
725:
726: IF FND_API.To_Boolean ( p_commit ) THEN
727: COMMIT WORK;
728: END iF;
729:
730: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
731: p_data => X_msg_data );
732:
733: EXCEPTION
734:
735: WHEN FND_API.G_EXC_ERROR THEN
736:
737: ROLLBACK TO Update_Row_Pvt ;
738: X_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
734:
735: WHEN FND_API.G_EXC_ERROR THEN
736:
737: ROLLBACK TO Update_Row_Pvt ;
738: X_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
740: p_data => X_msg_data );
741:
742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
738: X_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
740: p_data => X_msg_data );
741:
742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
743:
744: ROLLBACK TO Update_Row_Pvt ;
745: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
741:
742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
743:
744: ROLLBACK TO Update_Row_Pvt ;
745: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
747: p_data => X_msg_data );
748:
749: WHEN OTHERS THEN
748:
749: WHEN OTHERS THEN
750:
751: ROLLBACK TO Update_Row_Pvt ;
752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
755: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
756: l_api_name);
767:
768:
769: PROCEDURE Delete_Row(
770: p_api_version IN NUMBER,
771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
774: X_return_status OUT NOCOPY VARCHAR2,
775: X_msg_count OUT NOCOPY NUMBER,
768:
769: PROCEDURE Delete_Row(
770: p_api_version IN NUMBER,
771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
774: X_return_status OUT NOCOPY VARCHAR2,
775: X_msg_count OUT NOCOPY NUMBER,
776: X_msg_data OUT NOCOPY VARCHAR2,
769: PROCEDURE Delete_Row(
770: p_api_version IN NUMBER,
771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
774: X_return_status OUT NOCOPY VARCHAR2,
775: X_msg_count OUT NOCOPY NUMBER,
776: X_msg_data OUT NOCOPY VARCHAR2,
777: p_Rowid VARCHAR2,
788: BEGIN
789:
790: SAVEPOINT Delete_Row_Pvt ;
791:
792: IF NOT FND_API.Compatible_API_Call ( l_api_version,
793: p_api_version,
794: l_api_name,
795: G_PKG_NAME )
796: THEN
793: p_api_version,
794: l_api_name,
795: G_PKG_NAME )
796: THEN
797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
798: END IF;
799:
800: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
801: FND_MSG_PUB.initialize ;
796: THEN
797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
798: END IF;
799:
800: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
801: FND_MSG_PUB.initialize ;
802: END IF ;
803:
804: X_return_status := FND_API.G_RET_STS_SUCCESS ;
800: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
801: FND_MSG_PUB.initialize ;
802: END IF ;
803:
804: X_return_status := FND_API.G_RET_STS_SUCCESS ;
805:
806: DELETE
807: FROM IGC_CC_DET_PF_HISTORY
808: WHERE rowid = p_Rowid;
810: IF (SQL%NOTFOUND) THEN
811: RAISE NO_DATA_FOUND;
812: END IF;
813:
814: IF FND_API.To_Boolean ( p_commit ) THEN
815: COMMIT WORK;
816: END iF;
817:
818: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
819: p_data => X_msg_data );
820:
821: EXCEPTION
822:
823: WHEN FND_API.G_EXC_ERROR THEN
824:
825: ROLLBACK TO Delete_Row_Pvt ;
826: X_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
822:
823: WHEN FND_API.G_EXC_ERROR THEN
824:
825: ROLLBACK TO Delete_Row_Pvt ;
826: X_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
828: p_data => X_msg_data );
829:
830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
826: X_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
828: p_data => X_msg_data );
829:
830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
831:
832: ROLLBACK TO Delete_Row_Pvt ;
833: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
829:
830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
831:
832: ROLLBACK TO Delete_Row_Pvt ;
833: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
835: p_data => X_msg_data );
836:
837: WHEN OTHERS THEN
836:
837: WHEN OTHERS THEN
838:
839: ROLLBACK TO Delete_Row_Pvt ;
840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841:
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
843: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
844: l_api_name);