49: -- Standard Start of API savepoint
50: SAVEPOINT Create_RO_Service_Code;
51:
52: -- Standard call to check for call compatibility.
53: IF NOT FND_API.Compatible_API_Call (lc_api_version,
54: p_api_version,
55: lc_api_name ,
56: G_PKG_NAME )
57: THEN
54: p_api_version,
55: lc_api_name ,
56: G_PKG_NAME )
57: THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
58: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
66: IF (lc_proc_level >= lc_debug_level) THEN
74: ( p_ro_service_code_rec => p_ro_service_code_rec);
75: END IF;
76:
77: -- Initialize API return status to success
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: -- Api body starts
81:
82: -- Check the required parameters
123:
124: -- Validate the repair line ID
125: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
126: ( p_repair_line_id => p_ro_service_code_rec.repair_line_id )) THEN
127: RAISE FND_API.G_EXC_ERROR;
128: END IF;
129:
130: /*
131: -- Validate the ro association for service code
212: WHEN OTHERS THEN
213: IF ( lc_excep_level >= lc_debug_level) THEN
214: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_SERVICE_CODES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
215: END IF;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: END;
218:
219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
220: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: END;
218:
219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
222:
223: if (lc_proc_level >= lc_debug_level) then
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: END;
218:
219: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
222:
223: if (lc_proc_level >= lc_debug_level) then
224: FND_LOG.STRING(lc_proc_level, lc_mod_name,
227:
228: -- Api body ends here
229:
230: -- Standard check of p_commit.
231: IF FND_API.To_Boolean( p_commit ) THEN
232: COMMIT WORK;
233: END IF;
234:
235: -- Standard call to get message count and IF count is get message info.
247: WHEN CSD_RSC_ASSOCIATION_EXISTS THEN
248: ROLLBACK TO Create_RO_Service_Code;
249:
250: -- RO service code already exists
251: x_return_status := FND_API.G_RET_STS_ERROR ;
252:
253: -- save message in fnd stack
254: if (lc_stat_level >= lc_debug_level) then
255: FND_LOG.STRING(lc_stat_level, lc_mod_name,
269: 'RO service code already exists');
270: END IF;
271: */
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO Create_RO_Service_Code;
275:
276: x_return_status := FND_API.G_RET_STS_ERROR;
277:
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO Create_RO_Service_Code;
275:
276: x_return_status := FND_API.G_RET_STS_ERROR;
277:
278: FND_MSG_PUB.Count_And_Get
279: (p_count => x_msg_count,
280: p_data => x_msg_data );
284: FND_LOG.STRING(lc_excep_level, lc_mod_name,
285: 'EXC_ERROR['||x_msg_data||']');
286: END IF;
287:
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: ROLLBACK TO Create_RO_Service_Code;
290:
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292:
287:
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: ROLLBACK TO Create_RO_Service_Code;
290:
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292:
293: IF FND_MSG_PUB.Check_Msg_Level
294: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
295: THEN
314:
315: WHEN OTHERS THEN
316: ROLLBACK TO Create_RO_Service_Code;
317:
318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
319:
320: -- save message in fnd stack
321: IF FND_MSG_PUB.Check_Msg_Level
322: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
398: -- Standard Start of API savepoint
399: SAVEPOINT Update_RO_Service_Code;
400:
401: -- Standard call to check for call compatibility.
402: IF NOT FND_API.Compatible_API_Call (lc_api_version,
403: p_api_version,
404: lc_api_name ,
405: G_PKG_NAME )
406: THEN
403: p_api_version,
404: lc_api_name ,
405: G_PKG_NAME )
406: THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: -- Initialize message list if p_init_msg_list is set to TRUE.
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN
407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408: END IF;
409:
410: -- Initialize message list if p_init_msg_list is set to TRUE.
411: IF FND_API.to_Boolean( p_init_msg_list ) THEN
412: FND_MSG_PUB.initialize;
413: END IF;
414:
415: IF (lc_proc_level >= lc_debug_level) THEN
423: ( p_ro_service_code_rec => p_ro_service_code_rec);
424: END IF;
425:
426: -- Initialize API return status to success
427: x_return_status := FND_API.G_RET_STS_SUCCESS;
428:
429: -- Api body starts
430:
431: -- Check the required parameters
441: p_api_name => lc_api_name);
442:
443:
444: -- Check if required parameters are passed in as G_MISS
445: IF (p_ro_service_code_rec.repair_line_id = FND_API.G_MISS_NUM) THEN
446: RAISE CSD_RSC_RO_ID_MISSING;
447: END IF;
448:
449: IF (p_ro_service_code_rec.service_code_id = FND_API.G_MISS_NUM) THEN
445: IF (p_ro_service_code_rec.repair_line_id = FND_API.G_MISS_NUM) THEN
446: RAISE CSD_RSC_RO_ID_MISSING;
447: END IF;
448:
449: IF (p_ro_service_code_rec.service_code_id = FND_API.G_MISS_NUM) THEN
450: RAISE CSD_RSC_SC_ID_MISSING;
451: END IF;
452:
453: IF (p_ro_service_code_rec.source_type_code = FND_API.G_MISS_CHAR) THEN
449: IF (p_ro_service_code_rec.service_code_id = FND_API.G_MISS_NUM) THEN
450: RAISE CSD_RSC_SC_ID_MISSING;
451: END IF;
452:
453: IF (p_ro_service_code_rec.source_type_code = FND_API.G_MISS_CHAR) THEN
454: RAISE CSD_RSC_SOURCE_TYPE_MISSING;
455: END IF;
456:
457: IF (p_ro_service_code_rec.applicable_flag = FND_API.G_MISS_CHAR) THEN
453: IF (p_ro_service_code_rec.source_type_code = FND_API.G_MISS_CHAR) THEN
454: RAISE CSD_RSC_SOURCE_TYPE_MISSING;
455: END IF;
456:
457: IF (p_ro_service_code_rec.applicable_flag = FND_API.G_MISS_CHAR) THEN
458: RAISE CSD_RSC_APPL_FLAG_MISSING;
459: END IF;
460:
461: IF (p_ro_service_code_rec.applied_to_est_flag = FND_API.G_MISS_CHAR) THEN
457: IF (p_ro_service_code_rec.applicable_flag = FND_API.G_MISS_CHAR) THEN
458: RAISE CSD_RSC_APPL_FLAG_MISSING;
459: END IF;
460:
461: IF (p_ro_service_code_rec.applied_to_est_flag = FND_API.G_MISS_CHAR) THEN
462: RAISE CSD_RSC_APPL_EST_FLAG_MISSING;
463: END IF;
464:
465: IF (p_ro_service_code_rec.applied_to_work_flag = FND_API.G_MISS_CHAR) THEN
461: IF (p_ro_service_code_rec.applied_to_est_flag = FND_API.G_MISS_CHAR) THEN
462: RAISE CSD_RSC_APPL_EST_FLAG_MISSING;
463: END IF;
464:
465: IF (p_ro_service_code_rec.applied_to_work_flag = FND_API.G_MISS_CHAR) THEN
466: RAISE CSD_RSC_APPL_WORK_FLAG_MISSING;
467: END IF;
468:
469: -- Validate the ro service code association
534: 'Validate object version number for ro service code association');
535: end if;
536:
537: -- Validate if object version number for ro service code association is same as the one passed in
538: IF NVL(p_ro_service_code_rec.object_version_number,FND_API.G_MISS_NUM) <> l_obj_ver_num THEN
539: RAISE CSD_RSC_OVN_MISMATCH;
540: ELSE
541: if (lc_stat_level >= lc_debug_level) then
542: FND_LOG.STRING(lc_stat_level, lc_mod_name,
553: -- Validate the repair line ID
554: IF (p_ro_service_code_rec.repair_line_id IS NOT NULL) THEN
555: IF NOT( CSD_PROCESS_UTIL.Validate_rep_line_id
556: ( p_repair_line_id => p_ro_service_code_rec.repair_line_id )) THEN
557: RAISE FND_API.G_EXC_ERROR;
558: END IF;
559: END IF;
560:
561: -- Update row
606: WHEN OTHERS THEN
607: IF ( lc_excep_level >= lc_debug_level) THEN
608: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_SERVICE_CODES_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
609: END IF;
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: END;
612:
613: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
614: RAISE FND_API.G_EXC_ERROR;
609: END IF;
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: END;
612:
613: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
614: RAISE FND_API.G_EXC_ERROR;
615: END IF;
616:
617: if (lc_proc_level >= lc_debug_level) then
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: END;
612:
613: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
614: RAISE FND_API.G_EXC_ERROR;
615: END IF;
616:
617: if (lc_proc_level >= lc_debug_level) then
618: FND_LOG.STRING(lc_proc_level, lc_mod_name,
621:
622: -- Api body ends here
623:
624: -- Standard check of p_commit.
625: IF FND_API.To_Boolean( p_commit ) THEN
626: COMMIT WORK;
627: END IF;
628:
629: -- Standard call to get message count and IF count is get message info.
639: EXCEPTION
640: WHEN CSD_RSC_RO_ID_MISSING THEN
641: ROLLBACK TO Update_RO_Service_Code;
642: -- Repair line id is missing
643: x_return_status := FND_API.G_RET_STS_ERROR ;
644:
645: -- save message in fnd stack
646: if (lc_stat_level >= lc_debug_level) then
647: FND_LOG.STRING(lc_stat_level, lc_mod_name,
664:
665: WHEN CSD_RSC_SC_ID_MISSING THEN
666: ROLLBACK TO Update_RO_Service_Code;
667: -- Service code id is missing
668: x_return_status := FND_API.G_RET_STS_ERROR ;
669:
670: -- save message in fnd stack
671: if (lc_stat_level >= lc_debug_level) then
672: FND_LOG.STRING(lc_stat_level, lc_mod_name,
690: WHEN CSD_RSC_SOURCE_TYPE_MISSING THEN
691: ROLLBACK TO Update_RO_Service_Code;
692:
693: -- RO service code source type is missing
694: x_return_status := FND_API.G_RET_STS_ERROR ;
695:
696: -- save message in fnd stack
697: if (lc_stat_level >= lc_debug_level) then
698: FND_LOG.STRING(lc_stat_level, lc_mod_name,
716: WHEN CSD_RSC_APPL_FLAG_MISSING THEN
717: ROLLBACK TO Update_RO_Service_Code;
718:
719: -- RO service code applicable flag is missing
720: x_return_status := FND_API.G_RET_STS_ERROR ;
721:
722: -- save message in fnd stack
723: if (lc_stat_level >= lc_debug_level) then
724: FND_LOG.STRING(lc_stat_level, lc_mod_name,
742: WHEN CSD_RSC_APPL_EST_FLAG_MISSING THEN
743: ROLLBACK TO Update_RO_Service_Code;
744:
745: -- RO service code applied to estimate flag is missing
746: x_return_status := FND_API.G_RET_STS_ERROR ;
747:
748: -- save message in fnd stack
749: if (lc_stat_level >= lc_debug_level) then
750: FND_LOG.STRING(lc_stat_level, lc_mod_name,
768: WHEN CSD_RSC_APPL_WORK_FLAG_MISSING THEN
769: ROLLBACK TO Update_RO_Service_Code;
770:
771: -- RO service code applied to work flag is missing
772: x_return_status := FND_API.G_RET_STS_ERROR ;
773:
774: -- save message in fnd stack
775: if (lc_stat_level >= lc_debug_level) then
776: FND_LOG.STRING(lc_stat_level, lc_mod_name,
794: WHEN CSD_RSC_INVALID_ID THEN
795: ROLLBACK TO Update_RO_Service_Code;
796:
797: -- RO service code id is invalid
798: x_return_status := FND_API.G_RET_STS_ERROR ;
799:
800: -- save message in fnd stack
801: if (lc_stat_level >= lc_debug_level) then
802: FND_LOG.STRING(lc_stat_level, lc_mod_name,
819: WHEN CSD_RSC_GET_OVN_ERROR THEN
820: ROLLBACK TO Update_RO_Service_Code;
821:
822: -- RO service code get object version number error
823: x_return_status := FND_API.G_RET_STS_ERROR ;
824:
825: -- save message in fnd stack
826: if (lc_stat_level >= lc_debug_level) then
827: FND_LOG.STRING(lc_stat_level, lc_mod_name,
844: WHEN CSD_RSC_OVN_MISMATCH THEN
845: ROLLBACK TO Update_RO_Service_Code;
846:
847: -- RO service code object version number mismatch
848: x_return_status := FND_API.G_RET_STS_ERROR ;
849:
850: -- save message in fnd stack
851: if (lc_stat_level >= lc_debug_level) then
852: FND_LOG.STRING(lc_stat_level, lc_mod_name,
865: FND_LOG.STRING(lc_excep_level, lc_mod_name,
866: 'RO service code object version number mismatch');
867: END IF;
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870: ROLLBACK TO Update_RO_Service_Code;
871:
872: x_return_status := FND_API.G_RET_STS_ERROR;
873:
868:
869: WHEN FND_API.G_EXC_ERROR THEN
870: ROLLBACK TO Update_RO_Service_Code;
871:
872: x_return_status := FND_API.G_RET_STS_ERROR;
873:
874: FND_MSG_PUB.Count_And_Get
875: (p_count => x_msg_count,
876: p_data => x_msg_data );
880: FND_LOG.STRING(lc_excep_level, lc_mod_name,
881: 'EXC_ERROR['||x_msg_data||']');
882: END IF;
883:
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: ROLLBACK TO Update_RO_Service_Code;
886:
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888:
883:
884: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
885: ROLLBACK TO Update_RO_Service_Code;
886:
887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
888:
889: IF FND_MSG_PUB.Check_Msg_Level
890: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
891: THEN
910:
911: WHEN OTHERS THEN
912: ROLLBACK TO Update_RO_Service_Code;
913:
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
915:
916: -- save message in fnd stack
917: IF FND_MSG_PUB.Check_Msg_Level
918: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
979: -- Standard Start of API savepoint
980: SAVEPOINT Delete_RO_Service_Code;
981:
982: -- Standard call to check for call compatibility.
983: IF NOT FND_API.Compatible_API_Call (lc_api_version,
984: p_api_version,
985: lc_api_name ,
986: G_PKG_NAME )
987: THEN
984: p_api_version,
985: lc_api_name ,
986: G_PKG_NAME )
987: THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990:
991: -- Initialize message list if p_init_msg_list is set to TRUE.
992: IF FND_API.to_Boolean( p_init_msg_list ) THEN
988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
989: END IF;
990:
991: -- Initialize message list if p_init_msg_list is set to TRUE.
992: IF FND_API.to_Boolean( p_init_msg_list ) THEN
993: FND_MSG_PUB.initialize;
994: END IF;
995:
996: IF (lc_proc_level >= lc_debug_level) THEN
998: 'Entered Delete_RO_Service_Code');
999: END IF;
1000:
1001: -- Initialize API return status to success
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003:
1004: -- Api body starts
1005:
1006: -- Check the required parameters
1030: WHEN OTHERS THEN
1031: IF ( lc_excep_level >= lc_debug_level) THEN
1032: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_SERVICE_CODES_PKG.Delete_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1033: END IF;
1034: x_return_status := FND_API.G_RET_STS_ERROR;
1035: END;
1036:
1037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1038: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034: x_return_status := FND_API.G_RET_STS_ERROR;
1035: END;
1036:
1037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: if (lc_proc_level >= lc_debug_level) then
1034: x_return_status := FND_API.G_RET_STS_ERROR;
1035: END;
1036:
1037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040:
1041: if (lc_proc_level >= lc_debug_level) then
1042: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1045:
1046: -- Api body ends here
1047:
1048: -- Standard check of p_commit.
1049: IF FND_API.To_Boolean( p_commit ) THEN
1050: COMMIT WORK;
1051: END IF;
1052:
1053: -- Standard call to get message count and IF count is get message info.
1060: 'Leaving Delete_RO_Service_Code');
1061: END IF;
1062:
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: ROLLBACK TO Delete_RO_Service_Code;
1066:
1067: x_return_status := FND_API.G_RET_STS_ERROR;
1068:
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: ROLLBACK TO Delete_RO_Service_Code;
1066:
1067: x_return_status := FND_API.G_RET_STS_ERROR;
1068:
1069: FND_MSG_PUB.Count_And_Get
1070: (p_count => x_msg_count,
1071: p_data => x_msg_data );
1075: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1076: 'EXC_ERROR['||x_msg_data||']');
1077: END IF;
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080: ROLLBACK TO Delete_RO_Service_Code;
1081:
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083:
1078:
1079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1080: ROLLBACK TO Delete_RO_Service_Code;
1081:
1082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1083:
1084: IF FND_MSG_PUB.Check_Msg_Level
1085: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1086: THEN
1105:
1106: WHEN OTHERS THEN
1107: ROLLBACK TO Delete_RO_Service_Code;
1108:
1109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1110:
1111: -- save message in fnd stack
1112: IF FND_MSG_PUB.Check_Msg_Level
1113: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1173: -- Standard Start of API savepoint
1174: SAVEPOINT Lock_RO_Service_Code;
1175:
1176: -- Standard call to check for call compatibility.
1177: IF NOT FND_API.Compatible_API_Call (lc_api_version,
1178: p_api_version,
1179: lc_api_name ,
1180: G_PKG_NAME )
1181: THEN
1178: p_api_version,
1179: lc_api_name ,
1180: G_PKG_NAME )
1181: THEN
1182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1183: END IF;
1184:
1185: -- Initialize message list if p_init_msg_list is set to TRUE.
1186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1183: END IF;
1184:
1185: -- Initialize message list if p_init_msg_list is set to TRUE.
1186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1187: FND_MSG_PUB.initialize;
1188: END IF;
1189:
1190: IF (lc_proc_level >= lc_debug_level) THEN
1192: 'Entered Lock_RO_Service_Code');
1193: END IF;
1194:
1195: -- Initialize API return status to success
1196: x_return_status := FND_API.G_RET_STS_SUCCESS;
1197:
1198: -- Api body starts
1199:
1200: -- Check the required parameters
1265: WHEN OTHERS THEN
1266: IF ( lc_excep_level >= lc_debug_level) THEN
1267: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_RO_SERVICE_CODES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
1268: END IF;
1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: END;
1271:
1272: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1273: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: END;
1271:
1272: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276: if (lc_proc_level >= lc_debug_level) then
1269: x_return_status := FND_API.G_RET_STS_ERROR;
1270: END;
1271:
1272: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275:
1276: if (lc_proc_level >= lc_debug_level) then
1277: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1280:
1281: -- Api body ends here
1282:
1283: -- Standard check of p_commit.
1284: IF FND_API.To_Boolean( p_commit ) THEN
1285: COMMIT WORK;
1286: END IF;
1287:
1288: -- Standard call to get message count and IF count is get message info.
1295: 'Leaving Lock_RO_Service_Code');
1296: END IF;
1297:
1298: EXCEPTION
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: ROLLBACK TO Lock_RO_Service_Code;
1301:
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303:
1298: EXCEPTION
1299: WHEN FND_API.G_EXC_ERROR THEN
1300: ROLLBACK TO Lock_RO_Service_Code;
1301:
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303:
1304: FND_MSG_PUB.Count_And_Get
1305: (p_count => x_msg_count,
1306: p_data => x_msg_data );
1310: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1311: 'EXC_ERROR['||x_msg_data||']');
1312: END IF;
1313:
1314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1315: ROLLBACK TO Lock_RO_Service_Code;
1316:
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318:
1313:
1314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1315: ROLLBACK TO Lock_RO_Service_Code;
1316:
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318:
1319: IF FND_MSG_PUB.Check_Msg_Level
1320: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1321: THEN
1340:
1341: WHEN OTHERS THEN
1342: ROLLBACK TO Lock_RO_Service_Code;
1343:
1344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1345:
1346: -- save message in fnd stack
1347: IF FND_MSG_PUB.Check_Msg_Level
1348: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)