49: -- Initialize API return status to success
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
51:
52: -- Log API entry point
53: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
54: THEN
55: fnd_log.string
56: (
57: fnd_log.level_procedure,
51:
52: -- Log API entry point
53: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
54: THEN
55: fnd_log.string
56: (
57: fnd_log.level_procedure,
58: L_DEBUG_MODULE||'.begin',
59: 'At the start of PLSQL procedure'
53: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
54: THEN
55: fnd_log.string
56: (
57: fnd_log.level_procedure,
58: L_DEBUG_MODULE||'.begin',
59: 'At the start of PLSQL procedure'
60: );
61: END IF;
84: END IF;
85:
86: IF (p_x_mr_header_rec.mr_header_id IS NULL)
87: THEN
88: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
89: THEN
90: fnd_log.string
91: (
92: fnd_log.level_error,
86: IF (p_x_mr_header_rec.mr_header_id IS NULL)
87: THEN
88: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
89: THEN
90: fnd_log.string
91: (
92: fnd_log.level_error,
93: L_DEBUG_MODULE,
94: 'After AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER, mr_header_id is NULL'
88: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
89: THEN
90: fnd_log.string
91: (
92: fnd_log.level_error,
93: L_DEBUG_MODULE,
94: 'After AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER, mr_header_id is NULL'
95: );
96: END IF;
97:
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
102: THEN
103: fnd_log.string
104: (
105: fnd_log.level_statement,
99: END IF;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
102: THEN
103: fnd_log.string
104: (
105: fnd_log.level_statement,
106: L_DEBUG_MODULE,
107: 'AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER successful with p_x_mr_header_rec.mr_header_id = '||TO_CHAR(p_x_mr_header_rec.mr_header_id)
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
102: THEN
103: fnd_log.string
104: (
105: fnd_log.level_statement,
106: L_DEBUG_MODULE,
107: 'AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER successful with p_x_mr_header_rec.mr_header_id = '||TO_CHAR(p_x_mr_header_rec.mr_header_id)
108: );
109: END IF;
109: END IF;
110: ElSE
111: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML_FLAG');
112: FND_MSG_PUB.ADD;
113: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
114: THEN
115: fnd_log.string
116: (
117: fnd_log.level_error,
111: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML_FLAG');
112: FND_MSG_PUB.ADD;
113: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
114: THEN
115: fnd_log.string
116: (
117: fnd_log.level_error,
118: L_DEBUG_MODULE,
119: 'Invalid DML Operation specified'
113: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
114: THEN
115: fnd_log.string
116: (
117: fnd_log.level_error,
118: L_DEBUG_MODULE,
119: 'Invalid DML Operation specified'
120: );
121: END IF;
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
156:
157: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
158: THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
155: END IF;
156:
157: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
158: THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
162: L_DEBUG_MODULE,
163: 'AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association is successful'
157: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
158: THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
162: L_DEBUG_MODULE,
163: 'AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association is successful'
164: );
165: END IF;
194: THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_statement,
196: END IF;
197:
198: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_statement,
203: L_DEBUG_MODULE,
204: 'AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE is successful'
198: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
199: THEN
200: fnd_log.string
201: (
202: fnd_log.level_statement,
203: L_DEBUG_MODULE,
204: 'AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE is successful'
205: );
206: END IF;
233: THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
237: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
238: THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
235: END IF;
236:
237: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
238: THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
242: L_DEBUG_MODULE,
243: 'AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES is successful'
237: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
238: THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
242: L_DEBUG_MODULE,
243: 'AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES is successful'
244: );
245: END IF;
273: THEN
274: RAISE FND_API.G_EXC_ERROR;
275: END IF;
276:
277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
278: THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
275: END IF;
276:
277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
278: THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
282: L_DEBUG_MODULE,
283: 'AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity is successful'
277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
278: THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
282: L_DEBUG_MODULE,
283: 'AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity is successful'
284: );
285: END IF;
314: THEN
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
319: THEN
320: fnd_log.string
321: (
322: fnd_log.level_statement,
316: END IF;
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
319: THEN
320: fnd_log.string
321: (
322: fnd_log.level_statement,
323: L_DEBUG_MODULE,
324: 'AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION is successful'
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
319: THEN
320: fnd_log.string
321: (
322: fnd_log.level_statement,
323: L_DEBUG_MODULE,
324: 'AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION is successful'
325: );
326: END IF;
328:
329: -- API body ends here
330:
331: -- Log API exit point
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
333: THEN
334: fnd_log.string
335: (
336: fnd_log.level_procedure,
330:
331: -- Log API exit point
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
333: THEN
334: fnd_log.string
335: (
336: fnd_log.level_procedure,
337: L_DEBUG_MODULE||'.end',
338: 'At the end of PLSQL procedure'
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
333: THEN
334: fnd_log.string
335: (
336: fnd_log.level_procedure,
337: L_DEBUG_MODULE||'.end',
338: 'At the end of PLSQL procedure'
339: );
340: END IF;
451: -- Initialize API return status to success
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
453:
454: -- Log API entry point
455: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
456: THEN
457: fnd_log.string
458: (
459: fnd_log.level_procedure,
453:
454: -- Log API entry point
455: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
456: THEN
457: fnd_log.string
458: (
459: fnd_log.level_procedure,
460: L_DEBUG_MODULE||'.begin',
461: 'At the start of PLSQL procedure'
455: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
456: THEN
457: fnd_log.string
458: (
459: fnd_log.level_procedure,
460: L_DEBUG_MODULE||'.begin',
461: 'At the start of PLSQL procedure'
462: );
463: END IF;
475:
476: x_msg_count := FND_MSG_PUB.count_msg;
477: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
478: THEN
479: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
480: THEN
481: fnd_log.string
482: (
483: fnd_log.level_error,
477: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
478: THEN
479: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
480: THEN
481: fnd_log.string
482: (
483: fnd_log.level_error,
484: L_DEBUG_MODULE||'.end',
485: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
479: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
480: THEN
481: fnd_log.string
482: (
483: fnd_log.level_error,
484: L_DEBUG_MODULE||'.end',
485: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
486: );
487: END IF;
510: THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
512: END IF;
513:
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
519: L_DEBUG_MODULE,
520: 'AHL_FMP_MR_HEADER_PVT.UPDATE_MR_HEADER successful'
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
516: fnd_log.string
517: (
518: fnd_log.level_statement,
519: L_DEBUG_MODULE,
520: 'AHL_FMP_MR_HEADER_PVT.UPDATE_MR_HEADER successful'
521: );
522: END IF;
523: ElSIF (l_mr_header_rec.DML_OPERATION IS NOT NULL)
524: THEN
525: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML_FLAG');
526: FND_MSG_PUB.ADD;
527: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
528: THEN
529: fnd_log.string
530: (
531: fnd_log.level_error,
525: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_DML_FLAG');
526: FND_MSG_PUB.ADD;
527: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
528: THEN
529: fnd_log.string
530: (
531: fnd_log.level_error,
532: L_DEBUG_MODULE,
533: 'Invalid DML Operation specified'
527: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
528: THEN
529: fnd_log.string
530: (
531: fnd_log.level_error,
532: L_DEBUG_MODULE,
533: 'Invalid DML Operation specified'
534: );
535: END IF;
566: THEN
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569:
570: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
571: THEN
572: fnd_log.string
573: (
574: fnd_log.level_statement,
568: END IF;
569:
570: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
571: THEN
572: fnd_log.string
573: (
574: fnd_log.level_statement,
575: L_DEBUG_MODULE,
576: 'AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association is successful'
570: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
571: THEN
572: fnd_log.string
573: (
574: fnd_log.level_statement,
575: L_DEBUG_MODULE,
576: 'AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association is successful'
577: );
578: END IF;
606: THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
611: THEN
612: fnd_log.string
613: (
614: fnd_log.level_statement,
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
611: THEN
612: fnd_log.string
613: (
614: fnd_log.level_statement,
615: L_DEBUG_MODULE,
616: 'AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE is successful'
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
611: THEN
612: fnd_log.string
613: (
614: fnd_log.level_statement,
615: L_DEBUG_MODULE,
616: 'AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE is successful'
617: );
618: END IF;
644: THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
649: THEN
650: fnd_log.string
651: (
652: fnd_log.level_statement,
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
649: THEN
650: fnd_log.string
651: (
652: fnd_log.level_statement,
653: L_DEBUG_MODULE,
654: 'AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES is successful'
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
649: THEN
650: fnd_log.string
651: (
652: fnd_log.level_statement,
653: L_DEBUG_MODULE,
654: 'AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES is successful'
655: );
656: END IF;
679: THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
684: THEN
685: fnd_log.string
686: (
687: fnd_log.level_statement,
681: END IF;
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
684: THEN
685: fnd_log.string
686: (
687: fnd_log.level_statement,
688: L_DEBUG_MODULE,
689: 'AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity is successful'
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
684: THEN
685: fnd_log.string
686: (
687: fnd_log.level_statement,
688: L_DEBUG_MODULE,
689: 'AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity is successful'
690: );
691: END IF;
719: THEN
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
722:
723: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
724: THEN
725: fnd_log.string
726: (
727: fnd_log.level_statement,
721: END IF;
722:
723: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
724: THEN
725: fnd_log.string
726: (
727: fnd_log.level_statement,
728: L_DEBUG_MODULE,
729: 'AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION is successful'
723: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
724: THEN
725: fnd_log.string
726: (
727: fnd_log.level_statement,
728: L_DEBUG_MODULE,
729: 'AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION is successful'
730: );
731: END IF;
733:
734: -- API body ends here
735:
736: -- Log API exit point
737: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
738: THEN
739: fnd_log.string
740: (
741: fnd_log.level_procedure,
735:
736: -- Log API exit point
737: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
738: THEN
739: fnd_log.string
740: (
741: fnd_log.level_procedure,
742: L_DEBUG_MODULE||'.end',
743: 'At the end of PLSQL procedure'
737: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
738: THEN
739: fnd_log.string
740: (
741: fnd_log.level_procedure,
742: L_DEBUG_MODULE||'.end',
743: 'At the end of PLSQL procedure'
744: );
745: END IF;
854: -- Initialize API return status to success
855: x_return_status := FND_API.G_RET_STS_SUCCESS;
856:
857: -- Log API entry point
858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
859: THEN
860: fnd_log.string
861: (
862: fnd_log.level_procedure,
856:
857: -- Log API entry point
858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
859: THEN
860: fnd_log.string
861: (
862: fnd_log.level_procedure,
863: L_DEBUG_MODULE||'.begin',
864: 'At the start of PLSQL procedure'
858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
859: THEN
860: fnd_log.string
861: (
862: fnd_log.level_procedure,
863: L_DEBUG_MODULE||'.begin',
864: 'At the start of PLSQL procedure'
865: );
866: END IF;
878:
879: x_msg_count := FND_MSG_PUB.count_msg;
880: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
881: THEN
882: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
883: THEN
884: fnd_log.string
885: (
886: fnd_log.level_error,
880: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
881: THEN
882: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
883: THEN
884: fnd_log.string
885: (
886: fnd_log.level_error,
887: L_DEBUG_MODULE||'.end',
888: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
882: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
883: THEN
884: fnd_log.string
885: (
886: fnd_log.level_error,
887: L_DEBUG_MODULE||'.end',
888: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
889: );
890: END IF;
915:
916: -- API body ends here
917:
918: -- Log API exit point
919: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
920: THEN
921: fnd_log.string
922: (
923: fnd_log.level_procedure,
917:
918: -- Log API exit point
919: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
920: THEN
921: fnd_log.string
922: (
923: fnd_log.level_procedure,
924: L_DEBUG_MODULE||'.end',
925: 'At the end of PLSQL procedure'
919: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
920: THEN
921: fnd_log.string
922: (
923: fnd_log.level_procedure,
924: L_DEBUG_MODULE||'.end',
925: 'At the end of PLSQL procedure'
926: );
927: END IF;
1037: -- Initialize API return status to success
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1040: -- Log API entry point
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1043: fnd_log.string
1044: (
1045: fnd_log.level_procedure,
1039:
1040: -- Log API entry point
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1043: fnd_log.string
1044: (
1045: fnd_log.level_procedure,
1046: L_DEBUG_MODULE||'.begin',
1047: 'At the start of PLSQL procedure'
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1043: fnd_log.string
1044: (
1045: fnd_log.level_procedure,
1046: L_DEBUG_MODULE||'.begin',
1047: 'At the start of PLSQL procedure'
1048: );
1049: END IF;
1061:
1062: x_msg_count := FND_MSG_PUB.count_msg;
1063: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1064: THEN
1065: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1066: THEN
1067: fnd_log.string
1068: (
1069: fnd_log.level_error,
1063: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1064: THEN
1065: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1066: THEN
1067: fnd_log.string
1068: (
1069: fnd_log.level_error,
1070: L_DEBUG_MODULE||'.end',
1071: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1065: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1066: THEN
1067: fnd_log.string
1068: (
1069: fnd_log.level_error,
1070: L_DEBUG_MODULE||'.end',
1071: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1072: );
1073: END IF;
1100:
1101: -- API body ends here
1102:
1103: -- Log API exit point
1104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1105: THEN
1106: fnd_log.string
1107: (
1108: fnd_log.level_procedure,
1102:
1103: -- Log API exit point
1104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1105: THEN
1106: fnd_log.string
1107: (
1108: fnd_log.level_procedure,
1109: L_DEBUG_MODULE||'.end',
1110: 'At the end of PLSQL procedure'
1104: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1105: THEN
1106: fnd_log.string
1107: (
1108: fnd_log.level_procedure,
1109: L_DEBUG_MODULE||'.end',
1110: 'At the end of PLSQL procedure'
1111: );
1112: END IF;
1222: -- Initialize API return status to success
1223: x_return_status := FND_API.G_RET_STS_SUCCESS;
1224:
1225: -- Log API entry point
1226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1227: THEN
1228: fnd_log.string
1229: (
1230: fnd_log.level_procedure,
1224:
1225: -- Log API entry point
1226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1227: THEN
1228: fnd_log.string
1229: (
1230: fnd_log.level_procedure,
1231: L_DEBUG_MODULE||'.begin',
1232: 'At the start of PLSQL procedure'
1226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1227: THEN
1228: fnd_log.string
1229: (
1230: fnd_log.level_procedure,
1231: L_DEBUG_MODULE||'.begin',
1232: 'At the start of PLSQL procedure'
1233: );
1234: END IF;
1246:
1247: x_msg_count := FND_MSG_PUB.count_msg;
1248: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1249: THEN
1250: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1251: THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1248: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1249: THEN
1250: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1251: THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1255: L_DEBUG_MODULE||'.end',
1256: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1250: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1251: THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1255: L_DEBUG_MODULE||'.end',
1256: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1257: );
1258: END IF;
1284:
1285: -- API body ends here
1286:
1287: -- Log API exit point
1288: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1289: THEN
1290: fnd_log.string
1291: (
1292: fnd_log.level_procedure,
1286:
1287: -- Log API exit point
1288: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1289: THEN
1290: fnd_log.string
1291: (
1292: fnd_log.level_procedure,
1293: L_DEBUG_MODULE||'.end',
1294: 'At the end of PLSQL procedure'
1288: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1289: THEN
1290: fnd_log.string
1291: (
1292: fnd_log.level_procedure,
1293: L_DEBUG_MODULE||'.end',
1294: 'At the end of PLSQL procedure'
1295: );
1296: END IF;
1400: -- Initialize API return status to success
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: -- Log API entry point
1404: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1405: THEN
1406: fnd_log.string
1407: (
1408: fnd_log.level_procedure,
1402:
1403: -- Log API entry point
1404: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1405: THEN
1406: fnd_log.string
1407: (
1408: fnd_log.level_procedure,
1409: L_DEBUG_MODULE||'.begin',
1410: 'At the start of PLSQL procedure'
1404: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1405: THEN
1406: fnd_log.string
1407: (
1408: fnd_log.level_procedure,
1409: L_DEBUG_MODULE||'.begin',
1410: 'At the start of PLSQL procedure'
1411: );
1412: END IF;
1438:
1439: -- API body ends here
1440:
1441: -- Log API exit point
1442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1443: THEN
1444: fnd_log.string
1445: (
1446: fnd_log.level_procedure,
1440:
1441: -- Log API exit point
1442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1443: THEN
1444: fnd_log.string
1445: (
1446: fnd_log.level_procedure,
1447: L_DEBUG_MODULE||'.end',
1448: 'At the end of PLSQL procedure'
1442: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1443: THEN
1444: fnd_log.string
1445: (
1446: fnd_log.level_procedure,
1447: L_DEBUG_MODULE||'.end',
1448: 'At the end of PLSQL procedure'
1449: );
1450: END IF;
1565: -- Initialize API return status to success
1566: x_return_status := FND_API.G_RET_STS_SUCCESS;
1567:
1568: -- Log API entry point
1569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1570: THEN
1571: fnd_log.string
1572: (
1573: fnd_log.level_procedure,
1567:
1568: -- Log API entry point
1569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1570: THEN
1571: fnd_log.string
1572: (
1573: fnd_log.level_procedure,
1574: L_DEBUG_MODULE||'.begin',
1575: 'At the start of PLSQL procedure'
1569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1570: THEN
1571: fnd_log.string
1572: (
1573: fnd_log.level_procedure,
1574: L_DEBUG_MODULE||'.begin',
1575: 'At the start of PLSQL procedure'
1576: );
1577: END IF;
1589:
1590: x_msg_count := FND_MSG_PUB.count_msg;
1591: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1592: THEN
1593: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1594: THEN
1595: fnd_log.string
1596: (
1597: fnd_log.level_error,
1591: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1592: THEN
1593: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1594: THEN
1595: fnd_log.string
1596: (
1597: fnd_log.level_error,
1598: L_DEBUG_MODULE||'.end',
1599: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1593: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1594: THEN
1595: fnd_log.string
1596: (
1597: fnd_log.level_error,
1598: L_DEBUG_MODULE||'.end',
1599: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1600: );
1601: END IF;
1615:
1616: x_msg_count := FND_MSG_PUB.count_msg;
1617: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1618: THEN
1619: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1620: THEN
1621: fnd_log.string
1622: (
1623: fnd_log.level_error,
1617: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1618: THEN
1619: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1620: THEN
1621: fnd_log.string
1622: (
1623: fnd_log.level_error,
1624: L_DEBUG_MODULE||'.end',
1625: 'AHL_FMP_COMMON_PVT.Mr_Effectivity_Name_To_Id returned error'
1619: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1620: THEN
1621: fnd_log.string
1622: (
1623: fnd_log.level_error,
1624: L_DEBUG_MODULE||'.end',
1625: 'AHL_FMP_COMMON_PVT.Mr_Effectivity_Name_To_Id returned error'
1626: );
1627: END IF;
1684:
1685: -- API body ends here
1686:
1687: -- Log API exit point
1688: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1689: THEN
1690: fnd_log.string
1691: (
1692: fnd_log.level_procedure,
1686:
1687: -- Log API exit point
1688: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1689: THEN
1690: fnd_log.string
1691: (
1692: fnd_log.level_procedure,
1693: L_DEBUG_MODULE||'.end',
1694: 'At the end of PLSQL procedure'
1688: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1689: THEN
1690: fnd_log.string
1691: (
1692: fnd_log.level_procedure,
1693: L_DEBUG_MODULE||'.end',
1694: 'At the end of PLSQL procedure'
1695: );
1696: END IF;