50: -- Standard Start of API savepoint
51: SAVEPOINT Create_Service_Code;
52:
53: -- Standard call to check for call compatibility.
54: IF NOT FND_API.Compatible_API_Call (lc_api_version,
55: p_api_version,
56: lc_api_name ,
57: G_PKG_NAME )
58: THEN
55: p_api_version,
56: lc_api_name ,
57: G_PKG_NAME )
58: THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62: -- Initialize message list if p_init_msg_list is set to TRUE.
63: IF FND_API.to_Boolean( p_init_msg_list ) THEN
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60: END IF;
61:
62: -- Initialize message list if p_init_msg_list is set to TRUE.
63: IF FND_API.to_Boolean( p_init_msg_list ) THEN
64: FND_MSG_PUB.initialize;
65: END IF;
66:
67: IF (lc_proc_level >= lc_debug_level) THEN
75: ( p_service_code_rec => p_service_code_rec);
76: END IF;
77:
78: -- Initialize API return status to success
79: x_return_status := FND_API.G_RET_STS_SUCCESS;
80:
81: -- Api body starts
82:
83: -- Check the required parameters
176: WHEN OTHERS THEN
177: IF ( lc_excep_level >= lc_debug_level) THEN
178: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SERVICE_CODES_PKG.Insert_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
179: END IF;
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END;
182:
183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
184: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END;
182:
183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
186:
187: if (lc_proc_level >= lc_debug_level) then
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END;
182:
183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
186:
187: if (lc_proc_level >= lc_debug_level) then
188: FND_LOG.STRING(lc_proc_level, lc_mod_name,
191:
192: -- Api body ends here
193:
194: -- Standard check of p_commit.
195: IF FND_API.To_Boolean( p_commit ) THEN
196: COMMIT WORK;
197: END IF;
198:
199: -- Standard call to get message count and IF count is get message info.
209: EXCEPTION
210: WHEN CSD_SC_CODE_EXISTS THEN
211: ROLLBACK TO Create_Service_Code;
212: -- Service code already exists
213: x_return_status := FND_API.G_RET_STS_ERROR ;
214:
215: -- save message in fnd stack
216: if (lc_stat_level >= lc_debug_level) then
217: FND_LOG.STRING(lc_stat_level, lc_mod_name,
229: FND_LOG.STRING(lc_excep_level, lc_mod_name,
230: 'Service code already exists');
231: END IF;
232:
233: WHEN FND_API.G_EXC_ERROR THEN
234: ROLLBACK TO Create_Service_Code;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236:
237: FND_MSG_PUB.Count_And_Get
231: END IF;
232:
233: WHEN FND_API.G_EXC_ERROR THEN
234: ROLLBACK TO Create_Service_Code;
235: x_return_status := FND_API.G_RET_STS_ERROR;
236:
237: FND_MSG_PUB.Count_And_Get
238: (p_count => x_msg_count,
239: p_data => x_msg_data );
243: FND_LOG.STRING(lc_excep_level, lc_mod_name,
244: 'EXC_ERROR['||x_msg_data||']');
245: END IF;
246:
247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
248: ROLLBACK TO Create_Service_Code;
249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250:
251: -- save message in fnd stack
245: END IF;
246:
247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
248: ROLLBACK TO Create_Service_Code;
249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250:
251: -- save message in fnd stack
252: IF FND_MSG_PUB.Check_Msg_Level
253: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
272: END IF;
273:
274: WHEN OTHERS THEN
275: ROLLBACK TO Create_Service_Code;
276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277:
278: -- save message in fnd stack
279: IF FND_MSG_PUB.Check_Msg_Level
280: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
353: -- Standard Start of API savepoint
354: SAVEPOINT Update_Service_Code;
355:
356: -- Standard call to check for call compatibility.
357: IF NOT FND_API.Compatible_API_Call (lc_api_version,
358: p_api_version,
359: lc_api_name ,
360: G_PKG_NAME )
361: THEN
358: p_api_version,
359: lc_api_name ,
360: G_PKG_NAME )
361: THEN
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364:
365: -- Initialize message list if p_init_msg_list is set to TRUE.
366: IF FND_API.to_Boolean( p_init_msg_list ) THEN
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364:
365: -- Initialize message list if p_init_msg_list is set to TRUE.
366: IF FND_API.to_Boolean( p_init_msg_list ) THEN
367: FND_MSG_PUB.initialize;
368: END IF;
369:
370: IF (lc_proc_level >= lc_debug_level) THEN
378: ( p_service_code_rec => p_service_code_rec);
379: END IF;
380:
381: -- Initialize API return status to success
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383:
384: -- Api body starts
385:
386: -- Check the required parameters
400: FND_LOG.STRING(lc_proc_level, lc_mod_name,
401: 'Checking if required parameters are passed in as G_MISS');
402: end if;
403:
404: IF (p_service_code_rec.service_code = FND_API.G_MISS_CHAR) THEN
405: RAISE CSD_SC_CODE_MISSING;
406: END IF;
407:
408: -- Check if required parameter is passed in as G_MISS
405: RAISE CSD_SC_CODE_MISSING;
406: END IF;
407:
408: -- Check if required parameter is passed in as G_MISS
409: IF (p_service_code_rec.name = FND_API.G_MISS_CHAR) THEN
410: RAISE CSD_SC_NAME_MISSING;
411: END IF;
412:
413: -- Validate the id for service code
470: end if;
471: END IF;
472:
473: -- Validate if object version number of service code is same as the one passed in
474: IF NVL(p_service_code_rec.object_version_number,FND_API.G_MISS_NUM) <> l_obj_ver_num THEN
475: RAISE CSD_SC_OVN_MISMATCH;
476: END IF;
477:
478: -- Validate the code for service code
558: WHEN OTHERS THEN
559: IF ( lc_excep_level >= lc_debug_level) THEN
560: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SERVICE_CODES_PKG.Update_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
561: END IF;
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: END;
564:
565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
566: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: END;
564:
565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568:
569: if (lc_proc_level >= lc_debug_level) then
562: x_return_status := FND_API.G_RET_STS_ERROR;
563: END;
564:
565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568:
569: if (lc_proc_level >= lc_debug_level) then
570: FND_LOG.STRING(lc_proc_level, lc_mod_name,
573:
574: -- Api body ends here
575:
576: -- Standard check of p_commit.
577: IF FND_API.To_Boolean( p_commit ) THEN
578: COMMIT WORK;
579: END IF;
580:
581: -- Standard call to get message count and IF count is get message info.
592:
593: WHEN CSD_SC_CODE_MISSING THEN
594: ROLLBACK TO Update_Service_Code;
595: -- Service code already exists
596: x_return_status := FND_API.G_RET_STS_ERROR ;
597:
598: -- save message in fnd stack
599: if (lc_stat_level >= lc_debug_level) then
600: FND_LOG.STRING(lc_stat_level, lc_mod_name,
616:
617: WHEN CSD_SC_NAME_MISSING THEN
618: ROLLBACK TO Update_Service_Code;
619: -- Service code name already exists
620: x_return_status := FND_API.G_RET_STS_ERROR ;
621:
622: -- save message in fnd stack
623: if (lc_stat_level >= lc_debug_level) then
624: FND_LOG.STRING(lc_stat_level, lc_mod_name,
640:
641: WHEN CSD_SC_ID_INVALID THEN
642: ROLLBACK TO Update_Service_Code;
643: -- Service code name already exists
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645:
646: -- save message in fnd stack
647: if (lc_stat_level >= lc_debug_level) then
648: FND_LOG.STRING(lc_stat_level, lc_mod_name,
663:
664: WHEN CSD_SC_GET_OVN_ERROR THEN
665: ROLLBACK TO Update_Service_Code;
666: -- Service code name already exists
667: x_return_status := FND_API.G_RET_STS_ERROR ;
668:
669: -- save message in fnd stack
670: if (lc_stat_level >= lc_debug_level) then
671: FND_LOG.STRING(lc_stat_level, lc_mod_name,
686:
687: WHEN CSD_SC_OVN_MISMATCH THEN
688: ROLLBACK TO Update_Service_Code;
689: -- Service code name already exists
690: x_return_status := FND_API.G_RET_STS_ERROR ;
691:
692: -- save message in fnd stack
693: if (lc_stat_level >= lc_debug_level) then
694: FND_LOG.STRING(lc_stat_level, lc_mod_name,
709:
710: WHEN CSD_SC_CODE_EXISTS THEN
711: ROLLBACK TO Update_Service_Code;
712: -- Service code already exists
713: x_return_status := FND_API.G_RET_STS_ERROR ;
714:
715: -- save message in fnd stack
716: if (lc_stat_level >= lc_debug_level) then
717: FND_LOG.STRING(lc_stat_level, lc_mod_name,
729: FND_LOG.STRING(lc_excep_level, lc_mod_name,
730: 'Service code already exists');
731: END IF;
732:
733: WHEN FND_API.G_EXC_ERROR THEN
734: ROLLBACK TO Update_Service_Code;
735: x_return_status := FND_API.G_RET_STS_ERROR;
736:
737: FND_MSG_PUB.Count_And_Get
731: END IF;
732:
733: WHEN FND_API.G_EXC_ERROR THEN
734: ROLLBACK TO Update_Service_Code;
735: x_return_status := FND_API.G_RET_STS_ERROR;
736:
737: FND_MSG_PUB.Count_And_Get
738: (p_count => x_msg_count,
739: p_data => x_msg_data );
743: FND_LOG.STRING(lc_excep_level, lc_mod_name,
744: 'EXC_ERROR['||x_msg_data||']');
745: END IF;
746:
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO Update_Service_Code;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750:
751: IF FND_MSG_PUB.Check_Msg_Level
745: END IF;
746:
747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
748: ROLLBACK TO Update_Service_Code;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750:
751: IF FND_MSG_PUB.Check_Msg_Level
752: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
753: THEN
771: END IF;
772:
773: WHEN OTHERS THEN
774: ROLLBACK TO Update_Service_Code;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
776:
777: -- save message in fnd stack
778: IF FND_MSG_PUB.Check_Msg_Level
779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
840: -- Standard Start of API savepoint
841: SAVEPOINT Lock_Service_Code;
842:
843: -- Standard call to check for call compatibility.
844: IF NOT FND_API.Compatible_API_Call (lc_api_version,
845: p_api_version,
846: lc_api_name ,
847: G_PKG_NAME )
848: THEN
845: p_api_version,
846: lc_api_name ,
847: G_PKG_NAME )
848: THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: -- Initialize message list if p_init_msg_list is set to TRUE.
853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: -- Initialize message list if p_init_msg_list is set to TRUE.
853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
854: FND_MSG_PUB.initialize;
855: END IF;
856:
857: IF (lc_proc_level >= lc_debug_level) THEN
859: 'Entered Lock_Service_Code');
860: END IF;
861:
862: -- Initialize API return status to success
863: x_return_status := FND_API.G_RET_STS_SUCCESS;
864:
865: -- Api body starts
866:
867: -- Check the required parameters
927: WHEN OTHERS THEN
928: IF ( lc_excep_level >= lc_debug_level) THEN
929: FND_LOG.STRING(lc_excep_level,lc_mod_name,'Others exception in CSD_SERVICE_CODES_PKG.Lock_Row Call :'||SubStr('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM, 1,255));
930: END IF;
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: END;
933:
934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
935: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: END;
933:
934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: if (lc_proc_level >= lc_debug_level) then
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: END;
933:
934: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: if (lc_proc_level >= lc_debug_level) then
939: FND_LOG.STRING(lc_proc_level, lc_mod_name,
942:
943: -- Api body ends here
944:
945: -- Standard check of p_commit.
946: IF FND_API.To_Boolean( p_commit ) THEN
947: COMMIT WORK;
948: END IF;
949:
950: -- Standard call to get message count and IF count is get message info.
958: END IF;
959:
960: EXCEPTION
961:
962: WHEN FND_API.G_EXC_ERROR THEN
963: ROLLBACK TO Lock_Service_Code;
964: x_return_status := FND_API.G_RET_STS_ERROR;
965:
966: FND_MSG_PUB.Count_And_Get
960: EXCEPTION
961:
962: WHEN FND_API.G_EXC_ERROR THEN
963: ROLLBACK TO Lock_Service_Code;
964: x_return_status := FND_API.G_RET_STS_ERROR;
965:
966: FND_MSG_PUB.Count_And_Get
967: (p_count => x_msg_count,
968: p_data => x_msg_data );
972: FND_LOG.STRING(lc_excep_level, lc_mod_name,
973: 'EXC_ERROR['||x_msg_data||']');
974: END IF;
975:
976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
977: ROLLBACK TO Lock_Service_Code;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979:
980: IF FND_MSG_PUB.Check_Msg_Level
974: END IF;
975:
976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
977: ROLLBACK TO Lock_Service_Code;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979:
980: IF FND_MSG_PUB.Check_Msg_Level
981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
982: THEN
1000: END IF;
1001:
1002: WHEN OTHERS THEN
1003: ROLLBACK TO Lock_Service_Code;
1004: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1005:
1006: -- save message in fnd stack
1007: IF FND_MSG_PUB.Check_Msg_Level
1008: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)