168: END IF;
169:
170: -- Initialize message list if p_init_msg_list is set to TRUE.
171: IF FND_API.to_Boolean( l_init_msg_list ) THEN
172: FND_MSG_PUB.initialize;
173: END IF;
174:
175: -- Initialize API return status to success
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
426: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Commiting Work');
427: END IF;
428: END IF;
429: -- Standard call to get message count and if count is 1, get message info.
430: FND_MSG_PUB.get
431: ( p_msg_index_out => x_msg_count ,
432: p_data => x_msg_data
433: );
434: x_msg_data := substr(x_msg_data,1,4000);
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 ,
452: p_data => x_msg_data
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 ,
452: p_data => x_msg_data
453: );
454: IF (l_plog) THEN
452: p_data => x_msg_data
453: );
454: IF (l_plog) THEN
455: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
456: '==================== Returned from FND_MSG_PUB.get ====================');
457: END IF;
458: x_msg_data := substr(x_msg_data,1,4000);
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: ROLLBACK TO create_meter_pub;
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 ,
470: p_data => x_msg_data
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 ,
470: p_data => x_msg_data
471: );
472: IF (l_plog) THEN
470: p_data => x_msg_data
471: );
472: IF (l_plog) THEN
473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
474: '==================== Returned from FND_MSG_PUB.get ====================');
475: END IF;
476: x_msg_data := substr(x_msg_data,1,4000);
477: WHEN OTHERS THEN
478: ROLLBACK TO create_meter_pub;
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
488: IF (l_plog) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
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
488: IF (l_plog) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
490: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
486: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
487: THEN
488: IF (l_plog) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
490: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
491: END IF;
492: FND_MSG_PUB.Add_Exc_Msg
493: ( G_PKG_NAME ,
494: l_api_name
488: IF (l_plog) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
490: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
491: END IF;
492: FND_MSG_PUB.Add_Exc_Msg
493: ( G_PKG_NAME ,
494: l_api_name
495: );
496: IF (l_plog) THEN
494: l_api_name
495: );
496: IF (l_plog) THEN
497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
498: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
499: END IF;
500: END IF;
501: IF (l_plog) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
499: END IF;
500: END IF;
501: IF (l_plog) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
503: '==================== Calling FND_MSG_PUB.get ====================');
504: END IF;
505: FND_MSG_PUB.get
506: ( p_msg_index_out => x_msg_count ,
507: p_data => x_msg_data
501: IF (l_plog) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
503: '==================== Calling FND_MSG_PUB.get ====================');
504: END IF;
505: FND_MSG_PUB.get
506: ( p_msg_index_out => x_msg_count ,
507: p_data => x_msg_data
508: );
509: IF (l_plog) THEN
507: p_data => x_msg_data
508: );
509: IF (l_plog) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
511: '==================== Returned from FND_MSG_PUB.get ====================');
512: END IF;
513:
514: x_msg_data := substr(x_msg_data,1,4000);
515: end create_meter;
654: END IF;
655:
656: -- Initialize message list if p_init_msg_list is set to TRUE.
657: IF FND_API.to_Boolean( l_init_msg_list ) THEN
658: FND_MSG_PUB.initialize;
659: END IF;
660:
661: -- Initialize API return status to success
662: x_return_status := FND_API.G_RET_STS_SUCCESS;
706: WHILE primary_failure_flag_csr%FOUND
707: LOOP
708: IF nvl(l_primary_failure_flag_csr.primary_failure_flag, 'N') = 'Y' THEN
709: FND_MESSAGE.SET_NAME('EAM', 'EAM_PRIMARY_FLAG_EXISTS');
710: FND_MSG_PUB.ADD;
711: RAISE FND_API.G_EXC_ERROR;
712: EXIT;
713: END IF;
714: FETCH primary_failure_flag_csr into l_primary_failure_flag_csr;
959: END IF;
960: END IF;
961: IF (l_plog) THEN
962: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
963: '==================== Calling FND_MSG_PUB.get ====================');
964: END IF;
965:
966: -- Standard call to get message count and if count is 1, get message info.
967: FND_MSG_PUB.get
963: '==================== Calling FND_MSG_PUB.get ====================');
964: END IF;
965:
966: -- Standard call to get message count and if count is 1, get message info.
967: FND_MSG_PUB.get
968: ( p_msg_index_out => x_msg_count ,
969: p_data => x_msg_data
970: );
971: IF (l_plog) THEN
969: p_data => x_msg_data
970: );
971: IF (l_plog) THEN
972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
973: '==================== Returned from FND_MSG_PUB.get ====================');
974:
975: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
976: '==================== Exiting EAM_METER_PUB.update_meter ====================');
977: END IF;
983: IF (l_plog) THEN
984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
985: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
986: '===================EAM_METER_PUB.update_meter: EXPECTED ERROR======='||
987: '==================== Calling FND_MSG_PUB.get ====================');
988: END IF;
989: FND_MSG_PUB.get
990: ( p_msg_index_out => x_msg_count ,
991: p_data => x_msg_data
985: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
986: '===================EAM_METER_PUB.update_meter: EXPECTED ERROR======='||
987: '==================== Calling FND_MSG_PUB.get ====================');
988: END IF;
989: FND_MSG_PUB.get
990: ( p_msg_index_out => x_msg_count ,
991: p_data => x_msg_data
992: );
993: IF (l_plog) THEN
991: p_data => x_msg_data
992: );
993: IF (l_plog) THEN
994: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
995: '==================== Returned from FND_MSG_PUB.get ====================');
996: END IF;
997:
998: x_msg_data := substr(x_msg_data,1,4000);
999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: IF (l_plog) THEN
1003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
1004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1005: '===================EAM_METER_PUB.update_meter: UNEXPECTED ERROR======='||
1006: '==================== Calling FND_MSG_PUB.get ====================');
1007: END IF;
1008: FND_MSG_PUB.get
1009: ( p_msg_index_out => x_msg_count ,
1010: p_data => x_msg_data
1004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1005: '===================EAM_METER_PUB.update_meter: UNEXPECTED ERROR======='||
1006: '==================== Calling FND_MSG_PUB.get ====================');
1007: END IF;
1008: FND_MSG_PUB.get
1009: ( p_msg_index_out => x_msg_count ,
1010: p_data => x_msg_data
1011: );
1012: IF (l_plog) THEN
1010: p_data => x_msg_data
1011: );
1012: IF (l_plog) THEN
1013: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1014: '==================== Returned from FND_MSG_PUB.get ====================');
1015: END IF;
1016: x_msg_data := substr(x_msg_data,1,4000);
1017: WHEN OTHERS THEN
1018: ROLLBACK TO update_meter_pub;
1021: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO update_meter_pub');
1022: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1023: '===================EAM_METER_PUB.update_meter: OTHERS ERROR=======');
1024: END IF;
1025: IF FND_MSG_PUB.Check_Msg_Level
1026: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1027: THEN
1028: IF (l_plog) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1022: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1023: '===================EAM_METER_PUB.update_meter: OTHERS ERROR=======');
1024: END IF;
1025: IF FND_MSG_PUB.Check_Msg_Level
1026: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1027: THEN
1028: IF (l_plog) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1030: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
1026: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1027: THEN
1028: IF (l_plog) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1030: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
1031: END IF;
1032: FND_MSG_PUB.Add_Exc_Msg
1033: ( G_PKG_NAME ,
1034: l_api_name
1028: IF (l_plog) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1030: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
1031: END IF;
1032: FND_MSG_PUB.Add_Exc_Msg
1033: ( G_PKG_NAME ,
1034: l_api_name
1035: );
1036: IF (l_plog) THEN
1034: l_api_name
1035: );
1036: IF (l_plog) THEN
1037: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1038: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
1039: END IF;
1040: END IF;
1041: IF (l_plog) THEN
1042: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1039: END IF;
1040: END IF;
1041: IF (l_plog) THEN
1042: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1043: '==================== Calling FND_MSG_PUB.get ====================');
1044: END IF;
1045: FND_MSG_PUB.get
1046: ( p_msg_index_out => x_msg_count ,
1047: p_data => x_msg_data
1041: IF (l_plog) THEN
1042: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1043: '==================== Calling FND_MSG_PUB.get ====================');
1044: END IF;
1045: FND_MSG_PUB.get
1046: ( p_msg_index_out => x_msg_count ,
1047: p_data => x_msg_data
1048: );
1049: IF (l_plog) THEN
1047: p_data => x_msg_data
1048: );
1049: IF (l_plog) THEN
1050: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
1051: '==================== Returned from FND_MSG_PUB.get ====================');
1052: END IF;
1053:
1054: x_msg_data := substr(x_msg_data,1,4000);
1055: end update_meter;