120: END IF;
121:
122: /* Initialize message list if p_init_msg_list is set to TRUE. */
123: IF FND_API.to_Boolean( p_init_msg_list ) THEN
124: FND_MSG_PUB.initialize;
125: END IF;
126:
127: /* Initialize API return status to success */
128: x_return_status := FND_API.G_RET_STS_SUCCESS;
154: and nvl(primary_failure_flag, 'N') = 'Y');
155:
156: if l_exists_primary_flag = 'Y' then
157: FND_MESSAGE.SET_NAME('EAM', 'EAM_PRIMARY_FLAG_EXISTS');
158: FND_MSG_PUB.ADD;
159: RAISE FND_API.G_EXC_ERROR;
160: end if;
161:
162: end if;
248: and nvl(primary_failure_flag, 'N') = 'Y');
249:
250: if l_exists_primary_flag = 'Y' then
251: FND_MESSAGE.SET_NAME('EAM', 'EAM_PRIMARY_FLAG_EXISTS');
252: FND_MSG_PUB.ADD;
253: RAISE FND_API.G_EXC_ERROR;
254: end if;
255:
256: end if;
354: END IF;
355:
356: IF (l_plog) THEN
357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
358: '==================== Calling FND_MSG_PUB.get ====================');
359: END IF;
360:
361: -- Standard call to get message count and if count is 1, get message info.
362: FND_MSG_PUB.get
358: '==================== Calling FND_MSG_PUB.get ====================');
359: END IF;
360:
361: -- Standard call to get message count and if count is 1, get message info.
362: FND_MSG_PUB.get
363: ( p_msg_index_out => x_msg_count ,
364: p_data => x_msg_data
365: );
366:
365: );
366:
367: IF (l_plog) THEN
368: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
369: '==================== Returned from FND_MSG_PUB.get ====================');
370:
371: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
372: '==================== Exiting EAM_MeterAssoc_PUB.Insert_AssetMeterAssoc ====================');
373: END IF;
379: IF (l_plog) THEN
380: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO Insert_AssetMeterAssoc_PUB');
381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
382: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: EXPECTED ERROR======='||
383: '==================== Calling FND_MSG_PUB.get ====================');
384: END IF;
385: FND_MSG_PUB.get
386: ( p_msg_index_out => x_msg_count ,
387: p_data => x_msg_data
381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
382: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: EXPECTED ERROR======='||
383: '==================== Calling FND_MSG_PUB.get ====================');
384: END IF;
385: FND_MSG_PUB.get
386: ( p_msg_index_out => x_msg_count ,
387: p_data => x_msg_data
388: );
389: IF (l_plog) THEN
387: p_data => x_msg_data
388: );
389: IF (l_plog) THEN
390: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
391: '==================== Returned from FND_MSG_PUB.get ====================');
392: END IF;
393:
394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
395: ROLLBACK TO Insert_AssetMeterAssoc_PUB;
397: IF (l_plog) THEN
398: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO Insert_AssetMeterAssoc_PUB');
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
400: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: UNEXPECTED ERROR======='||
401: '==================== Calling FND_MSG_PUB.get ====================');
402: END IF;
403: FND_MSG_PUB.get
404: ( p_msg_index_out => x_msg_count ,
405: p_data => x_msg_data
399: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
400: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: UNEXPECTED ERROR======='||
401: '==================== Calling FND_MSG_PUB.get ====================');
402: END IF;
403: FND_MSG_PUB.get
404: ( p_msg_index_out => x_msg_count ,
405: p_data => x_msg_data
406: );
407: IF (l_plog) THEN
405: p_data => x_msg_data
406: );
407: IF (l_plog) THEN
408: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
409: '==================== Returned from FND_MSG_PUB.get ====================');
410: END IF;
411:
412: WHEN OTHERS THEN
413: ROLLBACK TO Insert_AssetMeterAssoc_PUB;
417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
418: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: OTHERS ERROR=======');
419: END IF;
420:
421: IF FND_MSG_PUB.Check_Msg_Level
422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
423: THEN
424: IF (l_plog) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
418: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: OTHERS ERROR=======');
419: END IF;
420:
421: IF FND_MSG_PUB.Check_Msg_Level
422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
423: THEN
424: IF (l_plog) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
426: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
422: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
423: THEN
424: IF (l_plog) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
426: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
427: END IF;
428: FND_MSG_PUB.Add_Exc_Msg
429: ( G_PKG_NAME ,
430: l_api_name
424: IF (l_plog) THEN
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
426: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
427: END IF;
428: FND_MSG_PUB.Add_Exc_Msg
429: ( G_PKG_NAME ,
430: l_api_name
431: );
432: IF (l_plog) THEN
430: l_api_name
431: );
432: IF (l_plog) THEN
433: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
434: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
435: END IF;
436:
437: END IF;
438:
437: END IF;
438:
439: IF (l_plog) THEN
440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
441: '==================== Calling FND_MSG_PUB.get ====================');
442: END IF;
443:
444: FND_MSG_PUB.get
445: ( p_msg_index_out => x_msg_count ,
440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
441: '==================== Calling FND_MSG_PUB.get ====================');
442: END IF;
443:
444: FND_MSG_PUB.get
445: ( p_msg_index_out => x_msg_count ,
446: p_data => x_msg_data
447: );
448: IF (l_plog) THEN
446: p_data => x_msg_data
447: );
448: IF (l_plog) THEN
449: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
450: '==================== Returned from FND_MSG_PUB.get ====================');
451: END IF;
452:
453: END Insert_AssetMeterAssoc;
454:
545: END IF;
546:
547: /* Initialize message list if p_init_msg_list is set to TRUE. */
548: IF FND_API.to_Boolean( p_init_msg_list ) THEN
549: FND_MSG_PUB.initialize;
550: END IF;
551:
552: /* Initialize API return status to success */
553: x_return_status := FND_API.G_RET_STS_SUCCESS;
585:
586:
587: if l_exists_primary_flag = 'Y' then
588: FND_MESSAGE.SET_NAME('EAM', 'EAM_PRIMARY_FLAG_EXISTS');
589: FND_MSG_PUB.ADD;
590: RAISE FND_API.G_EXC_ERROR;
591: end if;
592:
593: end if;
668:
669:
670: if l_exists_primary_flag = 'Y' then
671: FND_MESSAGE.SET_NAME('EAM', 'EAM_PRIMARY_FLAG_EXISTS');
672: FND_MSG_PUB.ADD;
673: RAISE FND_API.G_EXC_ERROR;
674: end if;
675:
676: end if;
733: END IF;
734:
735: IF (l_plog) THEN
736: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
737: '==================== Calling FND_MSG_PUB.get ====================');
738: END IF;
739:
740: -- Standard call to get message count and if count is 1, get message info.
741: FND_MSG_PUB.get
737: '==================== Calling FND_MSG_PUB.get ====================');
738: END IF;
739:
740: -- Standard call to get message count and if count is 1, get message info.
741: FND_MSG_PUB.get
742: ( p_msg_index_out => x_msg_count ,
743: p_data => x_msg_data
744: );
745: IF (l_plog) THEN
743: p_data => x_msg_data
744: );
745: IF (l_plog) THEN
746: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
747: '==================== Returned from FND_MSG_PUB.get ====================');
748:
749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
750: '==================== Exiting EAM_MeterAssoc_PUB.Update_AssetMeterAssoc ====================');
751: END IF;
758: IF (l_plog) THEN
759: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO Update_AssetMeterAssoc_PUB');
760: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
761: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: EXPECTED ERROR======='||
762: '==================== Calling FND_MSG_PUB.get ====================');
763: END IF;
764:
765: FND_MSG_PUB.get
766: ( p_msg_index_out => x_msg_count ,
761: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: EXPECTED ERROR======='||
762: '==================== Calling FND_MSG_PUB.get ====================');
763: END IF;
764:
765: FND_MSG_PUB.get
766: ( p_msg_index_out => x_msg_count ,
767: p_data => x_msg_data
768: );
769:
768: );
769:
770: IF (l_plog) THEN
771: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
772: '==================== Returned from FND_MSG_PUB.get ====================');
773: END IF;
774:
775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
776:
779: IF (l_plog) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO Update_AssetMeterAssoc_PUB');
781: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
782: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: UNEXPECTED ERROR======='||
783: '==================== Calling FND_MSG_PUB.get ====================');
784: END IF;
785: FND_MSG_PUB.get
786: ( p_msg_index_out => x_msg_count ,
787: p_data => x_msg_data
781: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
782: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: UNEXPECTED ERROR======='||
783: '==================== Calling FND_MSG_PUB.get ====================');
784: END IF;
785: FND_MSG_PUB.get
786: ( p_msg_index_out => x_msg_count ,
787: p_data => x_msg_data
788: );
789: IF (l_plog) THEN
787: p_data => x_msg_data
788: );
789: IF (l_plog) THEN
790: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
791: '==================== Returned from FND_MSG_PUB.get ====================');
792: END IF;
793:
794: WHEN OTHERS THEN
795: ROLLBACK TO Update_AssetMeterAssoc_PUB;
800: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
801: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: OTHERS ERROR=======');
802: END IF;
803:
804: IF FND_MSG_PUB.Check_Msg_Level
805: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: IF (l_plog) THEN
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
801: '===================EAM_MeterAssoc_PUB.Update_AssetMeterAssoc: OTHERS ERROR=======');
802: END IF;
803:
804: IF FND_MSG_PUB.Check_Msg_Level
805: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: IF (l_plog) THEN
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
809: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
805: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: IF (l_plog) THEN
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
809: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
810: END IF;
811:
812: FND_MSG_PUB.Add_Exc_Msg
813: ( G_PKG_NAME ,
808: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
809: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
810: END IF;
811:
812: FND_MSG_PUB.Add_Exc_Msg
813: ( G_PKG_NAME ,
814: l_api_name
815: );
816:
815: );
816:
817: IF (l_plog) THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
819: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
820: END IF;
821: END IF;
822: IF (l_plog) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
820: END IF;
821: END IF;
822: IF (l_plog) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
824: '==================== Calling FND_MSG_PUB.get ====================');
825: END IF;
826: FND_MSG_PUB.get
827: ( p_msg_index_out => x_msg_count ,
828: p_data => x_msg_data
822: IF (l_plog) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
824: '==================== Calling FND_MSG_PUB.get ====================');
825: END IF;
826: FND_MSG_PUB.get
827: ( p_msg_index_out => x_msg_count ,
828: p_data => x_msg_data
829: );
830: IF (l_plog) THEN
828: p_data => x_msg_data
829: );
830: IF (l_plog) THEN
831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
832: '==================== Returned from FND_MSG_PUB.get ====================');
833: END IF;
834: END Update_AssetMeterAssoc;
835:
836: /* private procedure for raising exceptions */
854: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
855: '==================== Entered EAM_MeterAssoc_PUB.RAISE_ERROR ====================');
856: END IF;
857: FND_MESSAGE.SET_NAME ('EAM', ERROR);
858: FND_MSG_PUB.ADD;
859:
860: IF (l_plog) THEN
861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
862: '==================== Exiting EAM_MeterAssoc_PUB.RAISE_ERROR ====================');