53: IF FND_API.to_boolean( p_init_msg_list ) THEN
54: FND_MSG_PUB.initialize;
55: END IF;
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: l_debug_module ||'.begin',
54: FND_MSG_PUB.initialize;
55: END IF;
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: l_debug_module ||'.begin',
62: 'At the start of PLSQL procedure'
56:
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: l_debug_module ||'.begin',
62: 'At the start of PLSQL procedure'
63: );
64: END IF;
62: 'At the start of PLSQL procedure'
63: );
64: END IF;
65:
66: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
67:
68: fnd_log.string
69: (
70: fnd_log.level_statement,
64: END IF;
65:
66: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
67:
68: fnd_log.string
69: (
70: fnd_log.level_statement,
71: l_debug_module ,
72: 'Before calling the private API AHL_RM_OPERATION_PVT.process_operation.....'
66: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
67:
68: fnd_log.string
69: (
70: fnd_log.level_statement,
71: l_debug_module ,
72: 'Before calling the private API AHL_RM_OPERATION_PVT.process_operation.....'
73: );
74:
109: ElSE
110: -- If the DML operation is not Cretae then its invalid
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) THEN
114: fnd_log.string
115: (
116: fnd_log.level_error,
117: l_debug_module ,
110: -- If the DML operation is not Cretae then its invalid
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) THEN
114: fnd_log.string
115: (
116: fnd_log.level_error,
117: l_debug_module ,
118: 'Invalid DML Operation is specified....DML Operation should be create'
112: FND_MSG_PUB.ADD;
113: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
114: fnd_log.string
115: (
116: fnd_log.level_error,
117: l_debug_module ,
118: 'Invalid DML Operation is specified....DML Operation should be create'
119: );
120: END IF;
121: RAISE FND_API.G_EXC_ERROR;
122: END IF;
123:
124:
125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
126:
127: fnd_log.string
128: (
129: fnd_log.level_statement,
123:
124:
125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
126:
127: fnd_log.string
128: (
129: fnd_log.level_statement,
130: l_debug_module ,
131: 'Operation Id of the Operation created .....' || p_x_oper_rec.OPERATION_ID
125: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
126:
127: fnd_log.string
128: (
129: fnd_log.level_statement,
130: l_debug_module ,
131: 'Operation Id of the Operation created .....' || p_x_oper_rec.OPERATION_ID
132: );
133:
147: p_x_oper_doc_tbl(i).DML_OPERATION := 'C';
148:
149: END LOOP;
150:
151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
152:
153: fnd_log.string
154: (
155: fnd_log.level_statement,
149: END LOOP;
150:
151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
152:
153: fnd_log.string
154: (
155: fnd_log.level_statement,
156: l_debug_module,
157: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
151: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
152:
153: fnd_log.string
154: (
155: fnd_log.level_statement,
156: l_debug_module,
157: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
158: );
159:
328: END IF;
329:
330: END IF;
331:
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (
335: fnd_log.level_procedure,
336: l_debug_module ||'.End',
329:
330: END IF;
331:
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (
335: fnd_log.level_procedure,
336: l_debug_module ||'.End',
337: 'At the end of PLSQL procedure...'
331:
332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (
335: fnd_log.level_procedure,
336: l_debug_module ||'.End',
337: 'At the end of PLSQL procedure...'
338: );
339: END IF;
339: END IF;
340:
341: -- Check Error Message stack.
342: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
343: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
344: fnd_log.string
345: (
346: fnd_log.level_error,
347: l_debug_module,
340:
341: -- Check Error Message stack.
342: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
343: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
344: fnd_log.string
345: (
346: fnd_log.level_error,
347: l_debug_module,
348: 'Private API raised expected error....'
342: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
343: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
344: fnd_log.string
345: (
346: fnd_log.level_error,
347: l_debug_module,
348: 'Private API raised expected error....'
349: );
350: END IF;
349: );
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
352: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
353: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
354: fnd_log.string
355: (
356: fnd_log.level_error,
357: l_debug_module,
350: END IF;
351: RAISE FND_API.G_EXC_ERROR;
352: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
353: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
354: fnd_log.string
355: (
356: fnd_log.level_error,
357: l_debug_module,
358: 'Private API raised unexpected error....'
352: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
353: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
354: fnd_log.string
355: (
356: fnd_log.level_error,
357: l_debug_module,
358: 'Private API raised unexpected error....'
359: );
360: END IF;
537: IF FND_API.to_boolean( p_init_msg_list ) THEN
538: FND_MSG_PUB.initialize;
539: END IF;
540:
541: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
542: fnd_log.string
543: (
544: fnd_log.level_procedure,
545: l_debug_module ||'.begin',
538: FND_MSG_PUB.initialize;
539: END IF;
540:
541: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
542: fnd_log.string
543: (
544: fnd_log.level_procedure,
545: l_debug_module ||'.begin',
546: 'At the start of PLSQL procedure'
540:
541: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
542: fnd_log.string
543: (
544: fnd_log.level_procedure,
545: l_debug_module ||'.begin',
546: 'At the start of PLSQL procedure'
547: );
548: END IF;
546: 'At the start of PLSQL procedure'
547: );
548: END IF;
549:
550: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
551:
552: fnd_log.string
553: (
554: fnd_log.level_statement,
548: END IF;
549:
550: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
551:
552: fnd_log.string
553: (
554: fnd_log.level_statement,
555: l_debug_module,
556: 'Before calling the private API AHL_RM_OPERATION_PVT.process_operation.....'
550: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
551:
552: fnd_log.string
553: (
554: fnd_log.level_statement,
555: l_debug_module,
556: 'Before calling the private API AHL_RM_OPERATION_PVT.process_operation.....'
557: );
558:
573: x_return_status => x_return_status
574: );
575:
576: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
577: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
578: fnd_log.string
579: (
580: fnd_log.level_error,
581: l_debug_module,
574: );
575:
576: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
577: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
578: fnd_log.string
579: (
580: fnd_log.level_error,
581: l_debug_module,
582: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
576: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
577: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
578: fnd_log.string
579: (
580: fnd_log.level_error,
581: l_debug_module,
582: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
583: );
584: END IF;
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587: END IF;
588:
589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
590:
591: fnd_log.string
592: (
593: fnd_log.level_statement,
587: END IF;
588:
589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
590:
591: fnd_log.string
592: (
593: fnd_log.level_statement,
594: l_debug_module,
595: 'Operation Id of the Operation that is being updated .....' || l_oper_id
589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
590:
591: fnd_log.string
592: (
593: fnd_log.level_statement,
594: l_debug_module,
595: 'Operation Id of the Operation that is being updated .....' || l_oper_id
596: );
597:
631: ElSIF p_oper_rec.DML_OPERATION IS NOT NULL THEN
632: -- If the DML operation is not 'U' and is also not NULL, then throw an error
633: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
634: FND_MSG_PUB.ADD;
635: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
636: fnd_log.string
637: (
638: fnd_log.level_error,
639: l_debug_module,
632: -- If the DML operation is not 'U' and is also not NULL, then throw an error
633: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
634: FND_MSG_PUB.ADD;
635: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
636: fnd_log.string
637: (
638: fnd_log.level_error,
639: l_debug_module,
640: 'Invalid DML Operation is specified....DML Operation should be Update'
634: FND_MSG_PUB.ADD;
635: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
636: fnd_log.string
637: (
638: fnd_log.level_error,
639: l_debug_module,
640: 'Invalid DML Operation is specified....DML Operation should be Update'
641: );
642: END IF;
660: --p_x_oper_doc_tbl(i).DML_OPERATION := 'C'; amsriniv. Bug 6032272
661:
662: END LOOP;
663:
664: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
665:
666: fnd_log.string
667: (
668: fnd_log.level_statement,
662: END LOOP;
663:
664: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
665:
666: fnd_log.string
667: (
668: fnd_log.level_statement,
669: l_debug_module,
670: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
664: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
665:
666: fnd_log.string
667: (
668: fnd_log.level_statement,
669: l_debug_module,
670: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
671: );
672:
903: END IF;
904:
905: END IF;
906:
907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
908: fnd_log.string
909: (
910: fnd_log.level_procedure,
911: l_debug_module ||'.End',
904:
905: END IF;
906:
907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
908: fnd_log.string
909: (
910: fnd_log.level_procedure,
911: l_debug_module ||'.End',
912: 'At the end of PLSQL procedure...'
906:
907: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
908: fnd_log.string
909: (
910: fnd_log.level_procedure,
911: l_debug_module ||'.End',
912: 'At the end of PLSQL procedure...'
913: );
914: END IF;
914: END IF;
915:
916: -- Check Error Message stack.
917: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
918: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
919: fnd_log.string
920: (
921: fnd_log.level_error,
922: l_debug_module,
915:
916: -- Check Error Message stack.
917: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
918: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
919: fnd_log.string
920: (
921: fnd_log.level_error,
922: l_debug_module,
923: 'Private API raised expected error....'
917: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
918: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
919: fnd_log.string
920: (
921: fnd_log.level_error,
922: l_debug_module,
923: 'Private API raised expected error....'
924: );
925: END IF;
924: );
925: END IF;
926: RAISE FND_API.G_EXC_ERROR;
927: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
928: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
929: fnd_log.string
930: (
931: fnd_log.level_error,
932: l_debug_module,
925: END IF;
926: RAISE FND_API.G_EXC_ERROR;
927: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
928: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
929: fnd_log.string
930: (
931: fnd_log.level_error,
932: l_debug_module,
933: 'Private API raised unexpected error....'
927: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
928: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
929: fnd_log.string
930: (
931: fnd_log.level_error,
932: l_debug_module,
933: 'Private API raised unexpected error....'
934: );
935: END IF;
1110: IF FND_API.to_boolean( p_init_msg_list ) THEN
1111: FND_MSG_PUB.initialize;
1112: END IF;
1113:
1114: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1115: fnd_log.string
1116: (
1117: fnd_log.level_procedure,
1118: l_debug_module ||'.begin',
1111: FND_MSG_PUB.initialize;
1112: END IF;
1113:
1114: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1115: fnd_log.string
1116: (
1117: fnd_log.level_procedure,
1118: l_debug_module ||'.begin',
1119: 'At the start of PLSQL procedure'
1113:
1114: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1115: fnd_log.string
1116: (
1117: fnd_log.level_procedure,
1118: l_debug_module ||'.begin',
1119: 'At the start of PLSQL procedure'
1120: );
1121: END IF;
1119: 'At the start of PLSQL procedure'
1120: );
1121: END IF;
1122:
1123: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1124:
1125: fnd_log.string
1126: (
1127: fnd_log.level_statement,
1121: END IF;
1122:
1123: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1124:
1125: fnd_log.string
1126: (
1127: fnd_log.level_statement,
1128: l_debug_module,
1129: 'Before calling the private API AHL_RM_OPERATION_PVT.delete_operation.....'
1123: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1124:
1125: fnd_log.string
1126: (
1127: fnd_log.level_statement,
1128: l_debug_module,
1129: 'Before calling the private API AHL_RM_OPERATION_PVT.delete_operation.....'
1130: );
1131:
1145: x_return_status => x_return_status
1146: );
1147:
1148: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1149: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1150: fnd_log.string
1151: (
1152: fnd_log.level_error,
1153: l_debug_module,
1146: );
1147:
1148: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1149: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1150: fnd_log.string
1151: (
1152: fnd_log.level_error,
1153: l_debug_module,
1154: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1148: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1149: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1150: fnd_log.string
1151: (
1152: fnd_log.level_error,
1153: l_debug_module,
1154: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1155: );
1156: END IF;
1157: RAISE FND_API.G_EXC_ERROR;
1158: END IF;
1159: END IF;
1160:
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1162:
1163: fnd_log.string
1164: (
1165: fnd_log.level_statement,
1159: END IF;
1160:
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1162:
1163: fnd_log.string
1164: (
1165: fnd_log.level_statement,
1166: l_debug_module,
1167: 'Operation Id of the Operation that is being deleted .....' || l_oper_id
1161: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1162:
1163: fnd_log.string
1164: (
1165: fnd_log.level_statement,
1166: l_debug_module,
1167: 'Operation Id of the Operation that is being deleted .....' || l_oper_id
1168: );
1169:
1191: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: RAISE FND_API.G_EXC_ERROR;
1193: END IF;
1194:
1195: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1196: fnd_log.string
1197: (
1198: fnd_log.level_procedure,
1199: l_debug_module ||'.End',
1192: RAISE FND_API.G_EXC_ERROR;
1193: END IF;
1194:
1195: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1196: fnd_log.string
1197: (
1198: fnd_log.level_procedure,
1199: l_debug_module ||'.End',
1200: 'At the end of PLSQL procedure...'
1194:
1195: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1196: fnd_log.string
1197: (
1198: fnd_log.level_procedure,
1199: l_debug_module ||'.End',
1200: 'At the end of PLSQL procedure...'
1201: );
1202: END IF;
1202: END IF;
1203:
1204: -- Check Error Message stack.
1205: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1206: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_error,
1210: l_debug_module,
1203:
1204: -- Check Error Message stack.
1205: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1206: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_error,
1210: l_debug_module,
1211: 'Private API raised expected error....'
1205: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1206: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_error,
1210: l_debug_module,
1211: 'Private API raised expected error....'
1212: );
1213: END IF;
1212: );
1213: END IF;
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1216: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_error,
1220: l_debug_module,
1213: END IF;
1214: RAISE FND_API.G_EXC_ERROR;
1215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1216: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_error,
1220: l_debug_module,
1221: 'Private API raised unexpected error....'
1215: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1216: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1217: fnd_log.string
1218: (
1219: fnd_log.level_error,
1220: l_debug_module,
1221: 'Private API raised unexpected error....'
1222: );
1223: END IF;
1334: IF FND_API.to_boolean( p_init_msg_list ) THEN
1335: FND_MSG_PUB.initialize;
1336: END IF;
1337:
1338: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_procedure,
1342: l_debug_module ||'.begin',
1335: FND_MSG_PUB.initialize;
1336: END IF;
1337:
1338: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_procedure,
1342: l_debug_module ||'.begin',
1343: 'At the start of PLSQL procedure'
1337:
1338: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_procedure,
1342: l_debug_module ||'.begin',
1343: 'At the start of PLSQL procedure'
1344: );
1345: END IF;
1356: x_operation_id => l_operation_id,
1357: x_return_status => x_return_status
1358: );
1359: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1360: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1361: fnd_log.string
1362: (
1363: fnd_log.level_error,
1364: l_debug_module,
1357: x_return_status => x_return_status
1358: );
1359: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1360: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1361: fnd_log.string
1362: (
1363: fnd_log.level_error,
1364: l_debug_module,
1365: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1359: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1360: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1361: fnd_log.string
1362: (
1363: fnd_log.level_error,
1364: l_debug_module,
1365: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1366: );
1367: END IF;
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370: END IF;
1371:
1372: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1373:
1374: fnd_log.string
1375: (
1376: fnd_log.level_statement,
1370: END IF;
1371:
1372: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1373:
1374: fnd_log.string
1375: (
1376: fnd_log.level_statement,
1377: l_debug_module,
1378: 'Operation Id of the Operation that is being updated .....' || l_operation_id
1372: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1373:
1374: fnd_log.string
1375: (
1376: fnd_log.level_statement,
1377: l_debug_module,
1378: 'Operation Id of the Operation that is being updated .....' || l_operation_id
1379: );
1380: END IF;
1410: END IF;
1411:
1412: CLOSE get_rt_oper_resource;
1413:
1414: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1415:
1416: fnd_log.string
1417: (
1418: fnd_log.level_statement,
1412: CLOSE get_rt_oper_resource;
1413:
1414: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1415:
1416: fnd_log.string
1417: (
1418: fnd_log.level_statement,
1419: l_debug_module,
1420: 'Before calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
1414: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1415:
1416: fnd_log.string
1417: (
1418: fnd_log.level_statement,
1419: l_debug_module,
1420: 'Before calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
1421: );
1422: END IF;
1435: p_rt_oper_resource_id => l_rt_oper_resource_id,
1436: p_x_alt_resource_tbl => p_x_alt_resource_tbl
1437: );
1438:
1439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1440:
1441: fnd_log.string
1442: (
1443: fnd_log.level_statement,
1437: );
1438:
1439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1440:
1441: fnd_log.string
1442: (
1443: fnd_log.level_statement,
1444: l_debug_module,
1445: 'After calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
1439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1440:
1441: fnd_log.string
1442: (
1443: fnd_log.level_statement,
1444: l_debug_module,
1445: 'After calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
1446: );
1447: END IF;
1446: );
1447: END IF;
1448:
1449:
1450: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1451: fnd_log.string
1452: (
1453: fnd_log.level_procedure,
1454: l_debug_module ||'.End',
1447: END IF;
1448:
1449:
1450: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1451: fnd_log.string
1452: (
1453: fnd_log.level_procedure,
1454: l_debug_module ||'.End',
1455: 'At the end of PLSQL procedure...'
1449:
1450: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1451: fnd_log.string
1452: (
1453: fnd_log.level_procedure,
1454: l_debug_module ||'.End',
1455: 'At the end of PLSQL procedure...'
1456: );
1457: END IF;
1457: END IF;
1458:
1459: -- Check Error Message stack.
1460: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1461: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1462: fnd_log.string
1463: (
1464: fnd_log.level_error,
1465: l_debug_module,
1458:
1459: -- Check Error Message stack.
1460: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1461: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1462: fnd_log.string
1463: (
1464: fnd_log.level_error,
1465: l_debug_module,
1466: 'Public API raised expected error....'
1460: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1461: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1462: fnd_log.string
1463: (
1464: fnd_log.level_error,
1465: l_debug_module,
1466: 'Public API raised expected error....'
1467: );
1468: END IF;
1467: );
1468: END IF;
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1471: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1472: fnd_log.string
1473: (
1474: fnd_log.level_error,
1475: l_debug_module,
1468: END IF;
1469: RAISE FND_API.G_EXC_ERROR;
1470: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1471: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1472: fnd_log.string
1473: (
1474: fnd_log.level_error,
1475: l_debug_module,
1476: 'Public API raised unexpected error....'
1470: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1471: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1472: fnd_log.string
1473: (
1474: fnd_log.level_error,
1475: l_debug_module,
1476: 'Public API raised unexpected error....'
1477: );
1478: END IF;
1568: IF FND_API.to_boolean( p_init_msg_list ) THEN
1569: FND_MSG_PUB.initialize;
1570: END IF;
1571:
1572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1573: fnd_log.string
1574: (
1575: fnd_log.level_procedure,
1576: l_debug_module ||'.begin',
1569: FND_MSG_PUB.initialize;
1570: END IF;
1571:
1572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1573: fnd_log.string
1574: (
1575: fnd_log.level_procedure,
1576: l_debug_module ||'.begin',
1577: 'At the start of PLSQL procedure'
1571:
1572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1573: fnd_log.string
1574: (
1575: fnd_log.level_procedure,
1576: l_debug_module ||'.begin',
1577: 'At the start of PLSQL procedure'
1578: );
1579: END IF;
1591: x_operation_id => l_operation_id,
1592: x_return_status => x_return_status
1593: );
1594: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1595: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_error,
1599: l_debug_module,
1592: x_return_status => x_return_status
1593: );
1594: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1595: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_error,
1599: l_debug_module,
1600: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1594: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1595: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_error,
1599: l_debug_module,
1600: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1601: );
1602: END IF;
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605: END IF;
1606:
1607: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1608: fnd_log.string
1609: (
1610: fnd_log.level_statement,
1611: l_debug_module,
1604: END IF;
1605: END IF;
1606:
1607: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1608: fnd_log.string
1609: (
1610: fnd_log.level_statement,
1611: l_debug_module,
1612: 'Before calling the private API.....'
1606:
1607: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1608: fnd_log.string
1609: (
1610: fnd_log.level_statement,
1611: l_debug_module,
1612: 'Before calling the private API.....'
1613: );
1614: END IF;
1632: x_operation_id => x_new_oper_id
1633: );
1634:
1635:
1636: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1637: fnd_log.string
1638: (
1639: fnd_log.level_procedure,
1640: l_debug_module ||'.End',
1633: );
1634:
1635:
1636: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1637: fnd_log.string
1638: (
1639: fnd_log.level_procedure,
1640: l_debug_module ||'.End',
1641: 'At the end of PLSQL procedure...'
1635:
1636: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1637: fnd_log.string
1638: (
1639: fnd_log.level_procedure,
1640: l_debug_module ||'.End',
1641: 'At the end of PLSQL procedure...'
1642: );
1643: END IF;
1643: END IF;
1644:
1645: -- Check Error Message stack.
1646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1647: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_error,
1651: l_debug_module ,
1644:
1645: -- Check Error Message stack.
1646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1647: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_error,
1651: l_debug_module ,
1652: 'Private API raised expected error....'
1646: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1647: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1648: fnd_log.string
1649: (
1650: fnd_log.level_error,
1651: l_debug_module ,
1652: 'Private API raised expected error....'
1653: );
1654: END IF;
1653: );
1654: END IF;
1655: RAISE FND_API.G_EXC_ERROR;
1656: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1657: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1658: fnd_log.string
1659: (
1660: fnd_log.level_error,
1661: l_debug_module ,
1654: END IF;
1655: RAISE FND_API.G_EXC_ERROR;
1656: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1657: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1658: fnd_log.string
1659: (
1660: fnd_log.level_error,
1661: l_debug_module ,
1662: 'Private API raised unexpected error....'
1656: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1657: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1658: fnd_log.string
1659: (
1660: fnd_log.level_error,
1661: l_debug_module ,
1662: 'Private API raised unexpected error....'
1663: );
1664: END IF;
1752: IF FND_API.to_boolean( p_init_msg_list ) THEN
1753: FND_MSG_PUB.initialize;
1754: END IF;
1755:
1756: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1757: fnd_log.string
1758: (
1759: fnd_log.level_procedure,
1760: l_debug_module || '.begin',
1753: FND_MSG_PUB.initialize;
1754: END IF;
1755:
1756: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1757: fnd_log.string
1758: (
1759: fnd_log.level_procedure,
1760: l_debug_module || '.begin',
1761: 'At the start of PLSQL procedure'
1755:
1756: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1757: fnd_log.string
1758: (
1759: fnd_log.level_procedure,
1760: l_debug_module || '.begin',
1761: 'At the start of PLSQL procedure'
1762: );
1763: END IF;
1775: x_operation_id => l_source_operation_id,
1776: x_return_status => x_return_status
1777: );
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_statement,
1783: l_debug_module ,
1776: x_return_status => x_return_status
1777: );
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_statement,
1783: l_debug_module ,
1784: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1778: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1779: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_statement,
1783: l_debug_module ,
1784: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1785: );
1786: END IF;
1787: RAISE FND_API.G_EXC_ERROR;
1788: END IF;
1789: END IF;
1790:
1791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1792: fnd_log.string
1793: (
1794: fnd_log.level_statement,
1795: l_debug_module,
1788: END IF;
1789: END IF;
1790:
1791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1792: fnd_log.string
1793: (
1794: fnd_log.level_statement,
1795: l_debug_module,
1796: 'Before calling the private API.....'
1790:
1791: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1792: fnd_log.string
1793: (
1794: fnd_log.level_statement,
1795: l_debug_module,
1796: 'Before calling the private API.....'
1797: );
1798: END IF;
1814: p_object_Version_number => p_oper_object_version,
1815: p_apprvl_type => p_apprv_type
1816: );
1817:
1818: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1819: fnd_log.string
1820: (
1821: fnd_log.level_procedure,
1822: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1815: p_apprvl_type => p_apprv_type
1816: );
1817:
1818: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1819: fnd_log.string
1820: (
1821: fnd_log.level_procedure,
1822: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1823: 'At the end of PLSQL procedure...'
1817:
1818: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1819: fnd_log.string
1820: (
1821: fnd_log.level_procedure,
1822: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
1823: 'At the end of PLSQL procedure...'
1824: );
1825: END IF;
1825: END IF;
1826:
1827: -- Check Error Message stack.
1828: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1829: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1830: fnd_log.string
1831: (
1832: fnd_log.level_error,
1833: l_debug_module,
1826:
1827: -- Check Error Message stack.
1828: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1829: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1830: fnd_log.string
1831: (
1832: fnd_log.level_error,
1833: l_debug_module,
1834: 'Private API raised expected error....'
1828: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1829: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1830: fnd_log.string
1831: (
1832: fnd_log.level_error,
1833: l_debug_module,
1834: 'Private API raised expected error....'
1835: );
1836: END IF;
1835: );
1836: END IF;
1837: RAISE FND_API.G_EXC_ERROR;
1838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1840: fnd_log.string
1841: (
1842: fnd_log.level_error,
1843: l_debug_module,
1836: END IF;
1837: RAISE FND_API.G_EXC_ERROR;
1838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1840: fnd_log.string
1841: (
1842: fnd_log.level_error,
1843: l_debug_module,
1844: 'Private API raised unexpected error....'
1838: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1839: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1840: fnd_log.string
1841: (
1842: fnd_log.level_error,
1843: l_debug_module,
1844: 'Private API raised unexpected error....'
1845: );
1846: END IF;