1: PACKAGE BODY EAM_METER_PUB AS
2: /* $Header: EAMPMETB.pls 120.18 2006/10/26 14:22:16 vmec noship $ */
3:
4: /* for de-bugging */
5: /* g_sr_no number ; */
138: end if;
139:
140: IF (l_plog) THEN
141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
142: '==================== Entered EAM_METER_PUB.create_meter ====================');
143: END IF;
144:
145: -- Standard call to check for call compatibility.
146: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
433: );
434: x_msg_data := substr(x_msg_data,1,4000);
435: IF (l_plog) THEN
436: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
437: '==================== Exiting from EAM_METER_PUB.create_meter ====================');
438: END IF;
439:
440: EXCEPTION
441: WHEN FND_API.G_EXC_ERROR THEN
443: x_return_status := FND_API.G_RET_STS_ERROR ;
444: IF (l_plog) THEN
445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_pub');
446: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
447: '===================EAM_METER_PUB.create_meter: EXPECTED ERROR======='||
448: '==================== Calling FND_MSG_PUB.get ====================');
449: END IF;
450: FND_MSG_PUB.get
451: ( p_msg_index_out => x_msg_count ,
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
462: IF (l_plog) THEN
463: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_pub');
464: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
465: '===================EAM_METER_PUB.create_meter: UNEXPECTED ERROR======='||
466: '==================== Calling FND_MSG_PUB.get ====================');
467: END IF;
468: FND_MSG_PUB.get
469: ( p_msg_index_out => x_msg_count ,
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
480: IF (l_plog) THEN
481: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_pub');
482: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
483: '===================EAM_METER_PUB.create_meter: OTHERS ERROR=======');
484: END IF;
485: IF FND_MSG_PUB.Check_Msg_Level
486: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
487: THEN
616: end if;
617:
618: IF (l_plog) THEN
619: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
620: '==================== Entered EAM_METER_PUB.update_meter ====================');
621: END IF;
622:
623: -- Standard call to check for call compatibility.
624: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
965: '==================== Returned from FND_MSG_PUB.get ====================');
966:
967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
968: '==================== Exiting EAM_METER_PUB.update_meter ====================');
969: END IF;
970: x_msg_data := substr(x_msg_data,1,4000);
971: EXCEPTION
972: WHEN FND_API.G_EXC_ERROR THEN
974: x_return_status := FND_API.G_RET_STS_ERROR ;
975: IF (l_plog) THEN
976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
977: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
978: '===================EAM_METER_PUB.update_meter: EXPECTED ERROR======='||
979: '==================== Calling FND_MSG_PUB.get ====================');
980: END IF;
981: FND_MSG_PUB.get
982: ( p_msg_index_out => x_msg_count ,
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
994: IF (l_plog) THEN
995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
997: '===================EAM_METER_PUB.update_meter: UNEXPECTED ERROR======='||
998: '==================== Calling FND_MSG_PUB.get ====================');
999: END IF;
1000: FND_MSG_PUB.get
1001: ( p_msg_index_out => x_msg_count ,
1011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1012: IF (l_plog) THEN
1013: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
1014: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1015: '===================EAM_METER_PUB.update_meter: OTHERS ERROR=======');
1016: END IF;
1017: IF FND_MSG_PUB.Check_Msg_Level
1018: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1019: THEN
1047: end update_meter;
1048:
1049:
1050:
1051: END EAM_METER_PUB;
1052: