23: x_service_code_id OUT NOCOPY NUMBER
24: ) IS
25:
26: -- CONSTANTS --
27: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
24: ) IS
25:
26: -- CONSTANTS --
27: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
25:
26: -- CONSTANTS --
27: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
26: -- CONSTANTS --
27: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.create_service_code';
27: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.create_service_code';
35: lc_api_name CONSTANT VARCHAR2(30) := 'Create_Service_Code';
28: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.create_service_code';
35: lc_api_name CONSTANT VARCHAR2(30) := 'Create_Service_Code';
36: lc_api_version CONSTANT NUMBER := 1.0;
29: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.create_service_code';
35: lc_api_name CONSTANT VARCHAR2(30) := 'Create_Service_Code';
36: lc_api_version CONSTANT NUMBER := 1.0;
37:
64: FND_MSG_PUB.initialize;
65: END IF;
66:
67: IF (lc_proc_level >= lc_debug_level) THEN
68: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
69: 'Entered Create_Service_Code');
70: END IF;
71:
72: -- log parameters
81: -- Api body starts
82:
83: -- Check the required parameters
84: if (lc_proc_level >= lc_debug_level) then
85: FND_LOG.STRING(lc_proc_level, lc_mod_name,
86: 'Checking required parameters');
87: end if;
88:
89: -- Check the required parameter
99: p_api_name => lc_api_name);
100:
101: -- Validate the code for service code
102: if (lc_proc_level >= lc_debug_level) then
103: FND_LOG.STRING(lc_proc_level, lc_mod_name,
104: 'Validate if the code of service code already exists');
105: end if;
106:
107: -- Validate the code for service code
125: IF (l_dummy = 'X') then
126: RAISE CSD_SC_CODE_EXISTS;
127: ELSE
128: if (lc_stat_level >= lc_debug_level) then
129: FND_LOG.STRING(lc_stat_level, lc_mod_name,
130: 'Service code does not exist');
131: end if;
132: END IF;
133:
132: END IF;
133:
134: -- Insert row
135: if (lc_proc_level >= lc_debug_level) then
136: FND_LOG.STRING(lc_proc_level, lc_mod_name,
137: 'Calling Insert_Row table handler');
138: end if;
139:
140: Begin
174:
175: EXCEPTION
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:
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,
189: 'Returned from Insert_Row table handler');
190: end if;
191:
192: -- Api body ends here
201: (p_count => x_msg_count,
202: p_data => x_msg_data );
203:
204: IF (lc_proc_level >= lc_debug_level) THEN
205: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
206: 'Leaving Create_Service_Code');
207: END IF;
208:
209: EXCEPTION
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,
218: 'Adding message CSD_SC_CODE_EXISTS to FND_MSG stack');
219: end if;
220: FND_MESSAGE.SET_NAME('CSD','CSD_SC_CODE_EXISTS');
221: FND_MESSAGE.SET_TOKEN('SERVICE_CODE',p_service_code_rec.service_code);
225: p_data => x_msg_data );
226:
227: -- save message in debug log
228: IF (lc_excep_level >= lc_debug_level) THEN
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
239: p_data => x_msg_data );
240:
241: -- save message in debug log
242: IF (lc_excep_level >= lc_debug_level) THEN
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
252: IF FND_MSG_PUB.Check_Msg_Level
253: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
254: THEN
255: if (lc_stat_level >= lc_debug_level) then
256: FND_LOG.STRING(lc_stat_level, lc_mod_name,
257: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
258: end if;
259: FND_MSG_PUB.Add_Exc_Msg
260: (G_PKG_NAME ,
266: p_data => x_msg_data );
267:
268: -- save message in debug log
269: IF (lc_excep_level >= lc_debug_level) THEN
270: FND_LOG.STRING(lc_excep_level, lc_mod_name,
271: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
272: END IF;
273:
274: WHEN OTHERS THEN
279: IF FND_MSG_PUB.Check_Msg_Level
280: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
281: THEN
282: if (lc_stat_level >= lc_debug_level) then
283: FND_LOG.STRING(lc_stat_level, lc_mod_name,
284: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
285: end if;
286: FND_MSG_PUB.Add_Exc_Msg
287: (G_PKG_NAME ,
294:
295: -- save message in debug log
296: IF (lc_excep_level >= lc_debug_level) THEN
297: -- create a seeded message
298: FND_LOG.STRING(lc_excep_level, lc_mod_name,
299: 'SQL Message['||sqlerrm||']' );
300: END IF;
301:
302: END Create_Service_Code;
321: x_obj_ver_number OUT NOCOPY NUMBER
322: ) IS
323:
324: -- CONSTANTS --
325: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
322: ) IS
323:
324: -- CONSTANTS --
325: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
323:
324: -- CONSTANTS --
325: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
331: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
324: -- CONSTANTS --
325: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
331: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
332: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.update_service_code';
325: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
331: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
332: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.update_service_code';
333: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Service_Code';
326: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
331: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
332: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.update_service_code';
333: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Service_Code';
334: lc_api_version CONSTANT NUMBER := 1.0;
327: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
328: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
329: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
330: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
331: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
332: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.update_service_code';
333: lc_api_name CONSTANT VARCHAR2(30) := 'Update_Service_Code';
334: lc_api_version CONSTANT NUMBER := 1.0;
335:
367: FND_MSG_PUB.initialize;
368: END IF;
369:
370: IF (lc_proc_level >= lc_debug_level) THEN
371: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
372: 'Entered Update_Service_Code');
373: END IF;
374:
375: -- log parameters
384: -- Api body starts
385:
386: -- Check the required parameters
387: if (lc_proc_level >= lc_debug_level) then
388: FND_LOG.STRING(lc_proc_level, lc_mod_name,
389: 'Checking required parameters');
390: end if;
391:
392: -- Check the required parameter
396: p_api_name => lc_api_name);
397:
398: -- Check if required parameter is passed in as G_MISS
399: if (lc_proc_level >= lc_debug_level) then
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
411: END IF;
412:
413: -- Validate the id for service code
414: if (lc_proc_level >= lc_debug_level) then
415: FND_LOG.STRING(lc_proc_level, lc_mod_name,
416: 'Validate the ID for service code');
417: end if;
418:
419: -- Validate the id for service code
434: IF (l_dummy <> 'X') then
435: RAISE CSD_SC_ID_INVALID;
436: ELSE
437: if (lc_stat_level >= lc_debug_level) then
438: FND_LOG.STRING(lc_stat_level, lc_mod_name,
439: 'Service code id is valid');
440: end if;
441: END IF;
442:
441: END IF;
442:
443: -- Get the object version number for service code
444: if (lc_proc_level >= lc_debug_level) then
445: FND_LOG.STRING(lc_proc_level, lc_mod_name,
446: 'Get object version number for service code');
447: end if;
448:
449: -- Get object version number for service code
464: IF (l_obj_ver_num is null) then
465: RAISE CSD_SC_GET_OVN_ERROR;
466: ELSE
467: if (lc_stat_level >= lc_debug_level) then
468: FND_LOG.STRING(lc_stat_level, lc_mod_name,
469: 'Retrieved object version number');
470: end if;
471: END IF;
472:
476: END IF;
477:
478: -- Validate the code for service code
479: if (lc_proc_level >= lc_debug_level) then
480: FND_LOG.STRING(lc_proc_level, lc_mod_name,
481: 'Validate if the code of the service code already exists ');
482: end if;
483:
484: -- Validate the code for service code
506: IF (l_dummy = 'X') then
507: RAISE CSD_SC_CODE_EXISTS;
508: ELSE
509: if (lc_stat_level >= lc_debug_level) then
510: FND_LOG.STRING(lc_stat_level, lc_mod_name,
511: 'Service code does not exist');
512: end if;
513: END IF;
514:
513: END IF;
514:
515: -- Update row
516: if (lc_proc_level >= lc_debug_level) then
517: FND_LOG.STRING(lc_proc_level, lc_mod_name,
518: 'Calling Update_Row table handler');
519: end if;
520:
521: Begin
556:
557: EXCEPTION
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:
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,
571: 'Returned from Update_Row table handler');
572: end if;
573:
574: -- Api body ends here
583: (p_count => x_msg_count,
584: p_data => x_msg_data );
585:
586: IF (lc_proc_level >= lc_debug_level) THEN
587: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
588: 'Leaving Update_Service_Code');
589: END IF;
590:
591: EXCEPTION
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,
601: 'Adding message CSD_SC_CODE_MISSING to FND_MSG stack');
602: end if;
603: FND_MESSAGE.SET_NAME('CSD','CSD_API_MISSING_PARAM');
604: FND_MESSAGE.SET_TOKEN('API_NAME',lc_api_name);
609: p_data => x_msg_data );
610:
611: -- save message in debug log
612: if (lc_proc_level >= lc_debug_level) then
613: FND_LOG.STRING(lc_proc_level, lc_mod_name,
614: 'Required parameter Service Code is passed in as G_MISS_CHAR');
615: end if;
616:
617: WHEN CSD_SC_NAME_MISSING THEN
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,
625: 'Adding message CSD_SC_CODE_MISSING to FND_MSG stack');
626: end if;
627: FND_MESSAGE.SET_NAME('CSD','CSD_API_MISSING_PARAM');
628: FND_MESSAGE.SET_TOKEN('API_NAME',lc_api_name);
633: p_data => x_msg_data );
634:
635: -- save message in debug log
636: if (lc_proc_level >= lc_debug_level) then
637: FND_LOG.STRING(lc_proc_level, lc_mod_name,
638: 'Required parameter Name is passed in as G_MISS_CHAR');
639: end if;
640:
641: WHEN CSD_SC_ID_INVALID THEN
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,
649: 'Adding message CSD_SC_ID_INVALID to FND_MSG stack');
650: end if;
651: FND_MESSAGE.SET_NAME('CSD','CSD_SC_ID_INVALID');
652: FND_MESSAGE.SET_TOKEN('SERVICE_CODE',p_service_code_rec.service_code);
656: p_data => x_msg_data );
657:
658: -- save message in debug log
659: if (lc_proc_level >= lc_debug_level) then
660: FND_LOG.STRING(lc_proc_level, lc_mod_name,
661: 'Service code id is invalid');
662: end if;
663:
664: WHEN CSD_SC_GET_OVN_ERROR THEN
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,
672: 'Adding message CSD_SC_GET_OVN_ERROR to FND_MSG stack');
673: end if;
674: FND_MESSAGE.SET_NAME('CSD','CSD_SC_GET_OVN_ERROR');
675: FND_MESSAGE.SET_TOKEN('SERVICE_CODE',p_service_code_rec.service_code);
679: p_data => x_msg_data );
680:
681: -- save message in debug log
682: if (lc_proc_level >= lc_debug_level) then
683: FND_LOG.STRING(lc_proc_level, lc_mod_name,
684: 'Error retrieving object version number');
685: end if;
686:
687: WHEN CSD_SC_OVN_MISMATCH THEN
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,
695: 'Adding message CSD_SC_OVN_MISMATCH to FND_MSG stack');
696: end if;
697: FND_MESSAGE.SET_NAME('CSD','CSD_SC_OVN_MISMATCH');
698: FND_MESSAGE.SET_TOKEN('SERVICE_CODE',p_service_code_rec.service_code);
702: p_data => x_msg_data );
703:
704: -- save message in debug log
705: if (lc_proc_level >= lc_debug_level) then
706: FND_LOG.STRING(lc_proc_level, lc_mod_name,
707: 'Object version number passed in does not match the existing one');
708: end if;
709:
710: WHEN CSD_SC_CODE_EXISTS THEN
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,
718: 'Adding message CSD_SC_CODE_EXISTS to FND_MSG stack');
719: end if;
720: FND_MESSAGE.SET_NAME('CSD','CSD_SC_CODE_EXISTS');
721: FND_MESSAGE.SET_TOKEN('SERVICE_CODE',p_service_code_rec.service_code);
725: p_data => x_msg_data );
726:
727: -- save message in debug log
728: IF (lc_excep_level >= lc_debug_level) THEN
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
739: p_data => x_msg_data );
740:
741: -- save message in debug log
742: IF (lc_excep_level >= lc_debug_level) THEN
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
751: IF FND_MSG_PUB.Check_Msg_Level
752: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
753: THEN
754: if (lc_stat_level >= lc_debug_level) then
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
756: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
757: end if;
758: FND_MSG_PUB.Add_Exc_Msg
759: (G_PKG_NAME ,
765: p_data => x_msg_data );
766:
767: -- save message in debug log
768: IF (lc_excep_level >= lc_debug_level) THEN
769: FND_LOG.STRING(lc_excep_level, lc_mod_name,
770: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
771: END IF;
772:
773: WHEN OTHERS THEN
778: IF FND_MSG_PUB.Check_Msg_Level
779: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
780: THEN
781: if (lc_stat_level >= lc_debug_level) then
782: FND_LOG.STRING(lc_stat_level, lc_mod_name,
783: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
784: end if;
785: FND_MSG_PUB.Add_Exc_Msg
786: (G_PKG_NAME ,
793:
794: -- save message in debug log
795: IF (lc_excep_level >= lc_debug_level) THEN
796: -- create a seeded message
797: FND_LOG.STRING(lc_excep_level, lc_mod_name,
798: 'SQL Message['||sqlerrm||']' );
799: END IF;
800:
801: END Update_Service_Code;
818: p_service_code_rec IN SERVICE_CODE_REC_TYPE
819: ) IS
820:
821: -- CONSTANTS --
822: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
819: ) IS
820:
821: -- CONSTANTS --
822: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
820:
821: -- CONSTANTS --
822: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
828: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
821: -- CONSTANTS --
822: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
828: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
829: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.lock_service_code';
822: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
828: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
829: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.lock_service_code';
830: lc_api_name CONSTANT VARCHAR2(30) := 'Lock_Service_Code';
823: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
828: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
829: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.lock_service_code';
830: lc_api_name CONSTANT VARCHAR2(30) := 'Lock_Service_Code';
831: lc_api_version CONSTANT NUMBER := 1.0;
824: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
825: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
826: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
827: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
828: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
829: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_service_codes_pvt.lock_service_code';
830: lc_api_name CONSTANT VARCHAR2(30) := 'Lock_Service_Code';
831: lc_api_version CONSTANT NUMBER := 1.0;
832:
854: FND_MSG_PUB.initialize;
855: END IF;
856:
857: IF (lc_proc_level >= lc_debug_level) THEN
858: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
859: 'Entered Lock_Service_Code');
860: END IF;
861:
862: -- Initialize API return status to success
865: -- Api body starts
866:
867: -- Check the required parameters
868: if (lc_proc_level >= lc_debug_level) then
869: FND_LOG.STRING(lc_proc_level, lc_mod_name,
870: 'Checking required parameters');
871: end if;
872:
873: -- Check the required parameter
883: p_api_name => lc_api_name);
884:
885: -- Lock row
886: if (lc_proc_level >= lc_debug_level) then
887: FND_LOG.STRING(lc_proc_level, lc_mod_name,
888: 'Calling Lock_Row table handler');
889: end if;
890:
891: Begin
925:
926: EXCEPTION
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:
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,
940: 'Returned from Lock_Row table handler');
941: end if;
942:
943: -- Api body ends here
952: (p_count => x_msg_count,
953: p_data => x_msg_data );
954:
955: IF (lc_proc_level >= lc_debug_level) THEN
956: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
957: 'Leaving Lock_Service_Code');
958: END IF;
959:
960: EXCEPTION
968: p_data => x_msg_data );
969:
970: -- save message in debug log
971: IF (lc_excep_level >= lc_debug_level) THEN
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
980: IF FND_MSG_PUB.Check_Msg_Level
981: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
982: THEN
983: if (lc_stat_level >= lc_debug_level) then
984: FND_LOG.STRING(lc_stat_level, lc_mod_name,
985: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
986: end if;
987: FND_MSG_PUB.Add_Exc_Msg
988: (G_PKG_NAME ,
994: p_data => x_msg_data );
995:
996: -- save message in debug log
997: IF (lc_excep_level >= lc_debug_level) THEN
998: FND_LOG.STRING(lc_excep_level, lc_mod_name,
999: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
1000: END IF;
1001:
1002: WHEN OTHERS THEN
1007: IF FND_MSG_PUB.Check_Msg_Level
1008: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1009: THEN
1010: if (lc_stat_level >= lc_debug_level) then
1011: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1012: 'Adding message using FND_MSG_PUB.Add_Exc_Msg to FND_MSG stack');
1013: end if;
1014: FND_MSG_PUB.Add_Exc_Msg
1015: (G_PKG_NAME ,
1022:
1023: -- save message in debug log
1024: IF (lc_excep_level >= lc_debug_level) THEN
1025: -- create a seeded message
1026: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1027: 'SQL Message['||sqlerrm||']' );
1028: END IF;
1029:
1030: END Lock_Service_Code;