55: IF FND_API.to_boolean( p_init_msg_list ) THEN
56: FND_MSG_PUB.initialize;
57: END IF;
58:
59: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
60: fnd_log.string
61: (
62: fnd_log.level_procedure,
63: l_debug_module ||'.begin',
56: FND_MSG_PUB.initialize;
57: END IF;
58:
59: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
60: fnd_log.string
61: (
62: fnd_log.level_procedure,
63: l_debug_module ||'.begin',
64: 'At the start of PLSQL procedure'
58:
59: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
60: fnd_log.string
61: (
62: fnd_log.level_procedure,
63: l_debug_module ||'.begin',
64: 'At the start of PLSQL procedure'
65: );
66: END IF;
64: 'At the start of PLSQL procedure'
65: );
66: END IF;
67:
68: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
69:
70: fnd_log.string
71: (
72: fnd_log.level_statement,
66: END IF;
67:
68: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
69:
70: fnd_log.string
71: (
72: fnd_log.level_statement,
73: l_debug_module ,
74: 'Before calling the private API AHL_RM_ROUTE_PVT.process_route.....'
68: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
69:
70: fnd_log.string
71: (
72: fnd_log.level_statement,
73: l_debug_module ,
74: 'Before calling the private API AHL_RM_ROUTE_PVT.process_route.....'
75: );
76:
113: ElSE
114: -- If the DML operation is not Cretae then its invalid
115: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
116: FND_MSG_PUB.ADD;
117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
118: fnd_log.string
119: (
120: fnd_log.level_error,
121: l_debug_module ,
114: -- If the DML operation is not Cretae then its invalid
115: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
116: FND_MSG_PUB.ADD;
117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
118: fnd_log.string
119: (
120: fnd_log.level_error,
121: l_debug_module ,
122: 'Invalid DML Operation is specified....DML Operation should be create'
116: FND_MSG_PUB.ADD;
117: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
118: fnd_log.string
119: (
120: fnd_log.level_error,
121: l_debug_module ,
122: 'Invalid DML Operation is specified....DML Operation should be create'
123: );
124: END IF;
124: END IF;
125: RAISE FND_API.G_EXC_ERROR;
126: END IF;
127:
128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
129:
130: fnd_log.string
131: (
132: fnd_log.level_statement,
126: END IF;
127:
128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
129:
130: fnd_log.string
131: (
132: fnd_log.level_statement,
133: l_debug_module ,
134: 'Route Id of the Route created .....' || p_x_route_rec.ROUTE_ID
128: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
129:
130: fnd_log.string
131: (
132: fnd_log.level_statement,
133: l_debug_module ,
134: 'Route Id of the Route created .....' || p_x_route_rec.ROUTE_ID
135: );
136:
150: p_x_route_doc_tbl(i).DML_OPERATION := 'C';
151:
152: END LOOP;
153:
154: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
155:
156: fnd_log.string
157: (
158: fnd_log.level_statement,
152: END LOOP;
153:
154: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
155:
156: fnd_log.string
157: (
158: fnd_log.level_statement,
159: l_debug_module ,
160: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
154: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
155:
156: fnd_log.string
157: (
158: fnd_log.level_statement,
159: l_debug_module ,
160: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
161: );
162:
367: END IF;
368:
369: END IF;
370:
371: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string
373: (
374: fnd_log.level_procedure,
375: l_debug_module ||'.End',
368:
369: END IF;
370:
371: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string
373: (
374: fnd_log.level_procedure,
375: l_debug_module ||'.End',
376: 'At the end of PLSQL procedure...'
370:
371: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string
373: (
374: fnd_log.level_procedure,
375: l_debug_module ||'.End',
376: 'At the end of PLSQL procedure...'
377: );
378: END IF;
378: END IF;
379:
380: -- Check Error Message stack.
381: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
382: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
383: fnd_log.string
384: (
385: fnd_log.level_error,
386: l_debug_module ,
379:
380: -- Check Error Message stack.
381: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
382: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
383: fnd_log.string
384: (
385: fnd_log.level_error,
386: l_debug_module ,
387: 'Private API raised expected error....'
381: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
382: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
383: fnd_log.string
384: (
385: fnd_log.level_error,
386: l_debug_module ,
387: 'Private API raised expected error....'
388: );
389: END IF;
388: );
389: END IF;
390: RAISE FND_API.G_EXC_ERROR;
391: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_error,
396: l_debug_module ,
389: END IF;
390: RAISE FND_API.G_EXC_ERROR;
391: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_error,
396: l_debug_module ,
397: 'Private API raised unexpected error....'
391: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
392: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_error,
396: l_debug_module ,
397: 'Private API raised unexpected error....'
398: );
399: END IF;
575: FND_MSG_PUB.initialize;
576: END IF;
577:
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
580: fnd_log.string
581: (
582: fnd_log.level_procedure,
583: l_debug_module ||'.begin',
576: END IF;
577:
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
580: fnd_log.string
581: (
582: fnd_log.level_procedure,
583: l_debug_module ||'.begin',
584: 'At the start of PLSQL procedure'
578:
579: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
580: fnd_log.string
581: (
582: fnd_log.level_procedure,
583: l_debug_module ||'.begin',
584: 'At the start of PLSQL procedure'
585: );
586: END IF;
584: 'At the start of PLSQL procedure'
585: );
586: END IF;
587:
588: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
589:
590: fnd_log.string
591: (
592: fnd_log.level_statement,
586: END IF;
587:
588: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
589:
590: fnd_log.string
591: (
592: fnd_log.level_statement,
593: l_debug_module ,
594: 'Before calling the private API AHL_RM_ROUTE_PVT.process_route.....'
588: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
589:
590: fnd_log.string
591: (
592: fnd_log.level_statement,
593: l_debug_module ,
594: 'Before calling the private API AHL_RM_ROUTE_PVT.process_route.....'
595: );
596:
608: x_route_id => l_route_id ,
609: x_return_status => x_return_status
610: );
611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
612: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
613: fnd_log.string
614: (
615: fnd_log.level_error,
616: l_debug_module ,
609: x_return_status => x_return_status
610: );
611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
612: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
613: fnd_log.string
614: (
615: fnd_log.level_error,
616: l_debug_module ,
617: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
611: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
612: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
613: fnd_log.string
614: (
615: fnd_log.level_error,
616: l_debug_module ,
617: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
618: );
619: END IF;
621: END IF;
622:
623: END IF;
624:
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
626:
627: fnd_log.string
628: (
629: fnd_log.level_statement,
623: END IF;
624:
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
626:
627: fnd_log.string
628: (
629: fnd_log.level_statement,
630: l_debug_module ,
631: 'Route Id of the Route that is being updated .....' || l_route_id
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
626:
627: fnd_log.string
628: (
629: fnd_log.level_statement,
630: l_debug_module ,
631: 'Route Id of the Route that is being updated .....' || l_route_id
632: );
633:
662: ElSIF p_route_rec.DML_OPERATION IS NOT NULL THEN
663: -- If the DML operation is not 'U' and is also not NULL, then throw an error
664: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
665: FND_MSG_PUB.ADD;
666: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
667: fnd_log.string
668: (
669: fnd_log.level_error,
670: l_debug_module ,
663: -- If the DML operation is not 'U' and is also not NULL, then throw an error
664: FND_MESSAGE.SET_NAME('AHL','AHL_COM_INVALID_DML_FLAG');
665: FND_MSG_PUB.ADD;
666: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
667: fnd_log.string
668: (
669: fnd_log.level_error,
670: l_debug_module ,
671: 'Invalid DML Operation is specified....DML Operation should be Update'
665: FND_MSG_PUB.ADD;
666: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
667: fnd_log.string
668: (
669: fnd_log.level_error,
670: l_debug_module ,
671: 'Invalid DML Operation is specified....DML Operation should be Update'
672: );
673: END IF;
689: p_x_route_doc_tbl(i).OBJECT_ID := l_route_id;
690:
691: END LOOP;
692:
693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
694:
695: fnd_log.string
696: (
697: fnd_log.level_statement,
691: END LOOP;
692:
693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
694:
695: fnd_log.string
696: (
697: fnd_log.level_statement,
698: l_debug_module ,
699: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
694:
695: fnd_log.string
696: (
697: fnd_log.level_statement,
698: l_debug_module ,
699: 'Before calling the private API AHL_RM_ASSO_DOCASO_PVT.PROCESS_ASSOCIATION.....'
700: );
701:
887: END IF;
888:
889: END IF;
890:
891: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
892: fnd_log.string
893: (
894: fnd_log.level_procedure,
895: l_debug_module ||'.End',
888:
889: END IF;
890:
891: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
892: fnd_log.string
893: (
894: fnd_log.level_procedure,
895: l_debug_module ||'.End',
896: 'At the end of PLSQL procedure...'
890:
891: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
892: fnd_log.string
893: (
894: fnd_log.level_procedure,
895: l_debug_module ||'.End',
896: 'At the end of PLSQL procedure...'
897: );
898: END IF;
898: END IF;
899:
900: -- Check Error Message stack.
901: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
902: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
903: fnd_log.string
904: (
905: fnd_log.level_error,
906: l_debug_module ,
899:
900: -- Check Error Message stack.
901: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
902: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
903: fnd_log.string
904: (
905: fnd_log.level_error,
906: l_debug_module ,
907: 'Private API raised expected error....'
901: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
902: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
903: fnd_log.string
904: (
905: fnd_log.level_error,
906: l_debug_module ,
907: 'Private API raised expected error....'
908: );
909: END IF;
908: );
909: END IF;
910: RAISE FND_API.G_EXC_ERROR;
911: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
912: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
913: fnd_log.string
914: (
915: fnd_log.level_error,
916: l_debug_module ,
909: END IF;
910: RAISE FND_API.G_EXC_ERROR;
911: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
912: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
913: fnd_log.string
914: (
915: fnd_log.level_error,
916: l_debug_module ,
917: 'Private API raised unexpected error....'
911: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
912: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
913: fnd_log.string
914: (
915: fnd_log.level_error,
916: l_debug_module ,
917: 'Private API raised unexpected error....'
918: );
919: END IF;
1093: IF FND_API.to_boolean( p_init_msg_list ) THEN
1094: FND_MSG_PUB.initialize;
1095: END IF;
1096:
1097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_procedure,
1101: l_debug_module ||'.begin',
1094: FND_MSG_PUB.initialize;
1095: END IF;
1096:
1097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_procedure,
1101: l_debug_module ||'.begin',
1102: 'At the start of PLSQL procedure'
1096:
1097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_procedure,
1101: l_debug_module ||'.begin',
1102: 'At the start of PLSQL procedure'
1103: );
1104: END IF;
1102: 'At the start of PLSQL procedure'
1103: );
1104: END IF;
1105:
1106: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1107:
1108: fnd_log.string
1109: (
1110: fnd_log.level_statement,
1104: END IF;
1105:
1106: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1107:
1108: fnd_log.string
1109: (
1110: fnd_log.level_statement,
1111: l_debug_module ,
1112: 'Before calling the private API AHL_RM_ROUTE_PVT.delete_route.....'
1106: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1107:
1108: fnd_log.string
1109: (
1110: fnd_log.level_statement,
1111: l_debug_module ,
1112: 'Before calling the private API AHL_RM_ROUTE_PVT.delete_route.....'
1113: );
1114:
1125: x_route_id => l_route_id,
1126: x_return_status => x_return_status
1127: );
1128: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1130: fnd_log.string
1131: (
1132: fnd_log.level_error,
1133: l_debug_module ,
1126: x_return_status => x_return_status
1127: );
1128: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1130: fnd_log.string
1131: (
1132: fnd_log.level_error,
1133: l_debug_module ,
1134: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
1128: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1129: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1130: fnd_log.string
1131: (
1132: fnd_log.level_error,
1133: l_debug_module ,
1134: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
1135: );
1136: END IF;
1138: END IF;
1139:
1140: END IF;
1141:
1142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1143:
1144: fnd_log.string
1145: (
1146: fnd_log.level_statement,
1140: END IF;
1141:
1142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1143:
1144: fnd_log.string
1145: (
1146: fnd_log.level_statement,
1147: l_debug_module ,
1148: 'Route Id of the Route that is being deleted .....' || l_route_id
1142: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1143:
1144: fnd_log.string
1145: (
1146: fnd_log.level_statement,
1147: l_debug_module ,
1148: 'Route Id of the Route that is being deleted .....' || l_route_id
1149: );
1150:
1173: RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176:
1177: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1178: fnd_log.string
1179: (
1180: fnd_log.level_procedure,
1181: l_debug_module ||'.End',
1174: END IF;
1175:
1176:
1177: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1178: fnd_log.string
1179: (
1180: fnd_log.level_procedure,
1181: l_debug_module ||'.End',
1182: 'At the end of PLSQL procedure...'
1176:
1177: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1178: fnd_log.string
1179: (
1180: fnd_log.level_procedure,
1181: l_debug_module ||'.End',
1182: 'At the end of PLSQL procedure...'
1183: );
1184: END IF;
1184: END IF;
1185:
1186: -- Check Error Message stack.
1187: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1188: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1189: fnd_log.string
1190: (
1191: fnd_log.level_error,
1192: l_debug_module ,
1185:
1186: -- Check Error Message stack.
1187: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1188: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1189: fnd_log.string
1190: (
1191: fnd_log.level_error,
1192: l_debug_module ,
1193: 'Private API raised expected error....'
1187: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1188: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1189: fnd_log.string
1190: (
1191: fnd_log.level_error,
1192: l_debug_module ,
1193: 'Private API raised expected error....'
1194: );
1195: END IF;
1194: );
1195: END IF;
1196: RAISE FND_API.G_EXC_ERROR;
1197: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1198: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1199: fnd_log.string
1200: (
1201: fnd_log.level_error,
1202: l_debug_module ,
1195: END IF;
1196: RAISE FND_API.G_EXC_ERROR;
1197: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1198: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1199: fnd_log.string
1200: (
1201: fnd_log.level_error,
1202: l_debug_module ,
1203: 'Private API raised unexpected error....'
1197: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1198: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1199: fnd_log.string
1200: (
1201: fnd_log.level_error,
1202: l_debug_module ,
1203: 'Private API raised unexpected error....'
1204: );
1205: END IF;
1296: FND_MSG_PUB.initialize;
1297: END IF;
1298:
1299:
1300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1301: fnd_log.string
1302: (
1303: fnd_log.level_procedure,
1304: l_debug_module ||'.begin',
1297: END IF;
1298:
1299:
1300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1301: fnd_log.string
1302: (
1303: fnd_log.level_procedure,
1304: l_debug_module ||'.begin',
1305: 'At the start of PLSQL procedure'
1299:
1300: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1301: fnd_log.string
1302: (
1303: fnd_log.level_procedure,
1304: l_debug_module ||'.begin',
1305: 'At the start of PLSQL procedure'
1306: );
1307: END IF;
1321: x_route_id => l_route_id,
1322: x_return_status => x_return_status
1323: );
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1326: fnd_log.string
1327: (
1328: fnd_log.level_error,
1329: l_debug_module ,
1322: x_return_status => x_return_status
1323: );
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1326: fnd_log.string
1327: (
1328: fnd_log.level_error,
1329: l_debug_module ,
1330: 'Error in converting Object Number, Object Revision to ID'
1324: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1325: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1326: fnd_log.string
1327: (
1328: fnd_log.level_error,
1329: l_debug_module ,
1330: 'Error in converting Object Number, Object Revision to ID'
1331: );
1332: END IF;
1334: END IF;
1335: END IF;
1336:
1337:
1338: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_statement,
1342: l_debug_module ,
1335: END IF;
1336:
1337:
1338: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_statement,
1342: l_debug_module ,
1343: 'Before calling the private API.....'
1337:
1338: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1339: fnd_log.string
1340: (
1341: fnd_log.level_statement,
1342: l_debug_module ,
1343: 'Before calling the private API.....'
1344: );
1345: END IF;
1366: IF l_x_route_efct_tbl(1).ROUTE_EFFECTIVITY_ID IS NULL
1367: THEN
1368: FND_MESSAGE.set_Name('AHL','AHL_RM_PUB_EFFEC_ID_NULL');
1369: FND_MSG_PUB.add;
1370: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1371: fnd_log.string
1372: (
1373: fnd_log.level_error,
1374: l_debug_module ,
1367: THEN
1368: FND_MESSAGE.set_Name('AHL','AHL_RM_PUB_EFFEC_ID_NULL');
1369: FND_MSG_PUB.add;
1370: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1371: fnd_log.string
1372: (
1373: fnd_log.level_error,
1374: l_debug_module ,
1375: 'Error Effectivity id is null'
1369: FND_MSG_PUB.add;
1370: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1371: fnd_log.string
1372: (
1373: fnd_log.level_error,
1374: l_debug_module ,
1375: 'Error Effectivity id is null'
1376: );
1377: END IF;
1383: -- bug 10315822 - sthilak
1384: -- added a condition to call process_material_req
1385: -- added an another condition "l_x_route_efct_tbl(1).dml_operation <> 'D'" to fix bug #10212181
1386: IF p_x_route_efct_mat_tbl.count >0 AND l_x_route_efct_tbl(1).dml_operation <> 'D' THEN
1387: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1388: fnd_log.string
1389: (
1390: fnd_log.level_error,
1391: l_debug_module ,
1384: -- added a condition to call process_material_req
1385: -- added an another condition "l_x_route_efct_tbl(1).dml_operation <> 'D'" to fix bug #10212181
1386: IF p_x_route_efct_mat_tbl.count >0 AND l_x_route_efct_tbl(1).dml_operation <> 'D' THEN
1387: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1388: fnd_log.string
1389: (
1390: fnd_log.level_error,
1391: l_debug_module ,
1392: 'Route eff. has material req. records'
1386: IF p_x_route_efct_mat_tbl.count >0 AND l_x_route_efct_tbl(1).dml_operation <> 'D' THEN
1387: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1388: fnd_log.string
1389: (
1390: fnd_log.level_error,
1391: l_debug_module ,
1392: 'Route eff. has material req. records'
1393: );
1394: END IF;
1408: p_association_type => 'DISPOSITION'
1409: );
1410: END IF; -- end of if condition for bug #10315822
1411:
1412: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_procedure,
1416: l_debug_module ||'.End',
1409: );
1410: END IF; -- end of if condition for bug #10315822
1411:
1412: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_procedure,
1416: l_debug_module ||'.End',
1417: 'At the end of PLSQL procedure...'
1411:
1412: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1413: fnd_log.string
1414: (
1415: fnd_log.level_procedure,
1416: l_debug_module ||'.End',
1417: 'At the end of PLSQL procedure...'
1418: );
1419: END IF;
1419: END IF;
1420:
1421: -- Check Error Message stack.
1422: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1423: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1424: fnd_log.string
1425: (
1426: fnd_log.level_error,
1427: l_debug_module ,
1420:
1421: -- Check Error Message stack.
1422: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1423: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1424: fnd_log.string
1425: (
1426: fnd_log.level_error,
1427: l_debug_module ,
1428: 'Private API raised expected error....'
1422: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1423: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1424: fnd_log.string
1425: (
1426: fnd_log.level_error,
1427: l_debug_module ,
1428: 'Private API raised expected error....'
1429: );
1430: END IF;
1429: );
1430: END IF;
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1434: fnd_log.string
1435: (
1436: fnd_log.level_error,
1437: l_debug_module ,
1430: END IF;
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1434: fnd_log.string
1435: (
1436: fnd_log.level_error,
1437: l_debug_module ,
1438: 'Private API raised unexpected error....'
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1434: fnd_log.string
1435: (
1436: fnd_log.level_error,
1437: l_debug_module ,
1438: 'Private API raised unexpected error....'
1439: );
1440: END IF;
1530: IF FND_API.to_boolean( p_init_msg_list ) THEN
1531: FND_MSG_PUB.initialize;
1532: END IF;
1533:
1534: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1535: fnd_log.string
1536: (
1537: fnd_log.level_procedure,
1538: l_debug_module ||'.begin',
1531: FND_MSG_PUB.initialize;
1532: END IF;
1533:
1534: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1535: fnd_log.string
1536: (
1537: fnd_log.level_procedure,
1538: l_debug_module ||'.begin',
1539: 'At the start of PLSQL procedure'
1533:
1534: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1535: fnd_log.string
1536: (
1537: fnd_log.level_procedure,
1538: l_debug_module ||'.begin',
1539: 'At the start of PLSQL procedure'
1540: );
1541: END IF;
1553: x_route_id => l_route_id,
1554: x_return_status => x_return_status
1555: );
1556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1557: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1558: fnd_log.string
1559: (
1560: fnd_log.level_error,
1561: l_debug_module ,
1554: x_return_status => x_return_status
1555: );
1556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1557: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1558: fnd_log.string
1559: (
1560: fnd_log.level_error,
1561: l_debug_module ,
1562: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1556: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1557: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1558: fnd_log.string
1559: (
1560: fnd_log.level_error,
1561: l_debug_module ,
1562: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1563: );
1564: END IF;
1565: RAISE FND_API.G_EXC_ERROR;
1566: END IF;
1567: END IF;
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1570: fnd_log.string
1571: (
1572: fnd_log.level_statement,
1573: l_debug_module ,
1566: END IF;
1567: END IF;
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1570: fnd_log.string
1571: (
1572: fnd_log.level_statement,
1573: l_debug_module ,
1574: 'Before calling the private API .....'
1568:
1569: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1570: fnd_log.string
1571: (
1572: fnd_log.level_statement,
1573: l_debug_module ,
1574: 'Before calling the private API .....'
1575: );
1576: END IF;
1591: p_object_version_number => p_route_object_version,
1592: x_route_id => x_new_route_id
1593: );
1594:
1595: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_procedure,
1599: l_debug_module ||'.End',
1592: x_route_id => x_new_route_id
1593: );
1594:
1595: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_procedure,
1599: l_debug_module ||'.End',
1600: 'At the end of PLSQL procedure...'
1594:
1595: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1596: fnd_log.string
1597: (
1598: fnd_log.level_procedure,
1599: l_debug_module ||'.End',
1600: 'At the end of PLSQL procedure...'
1601: );
1602: END IF;
1602: END IF;
1603:
1604: -- Check Error Message stack.
1605: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1606: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1607: fnd_log.string
1608: (
1609: fnd_log.level_error,
1610: l_debug_module ,
1603:
1604: -- Check Error Message stack.
1605: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1606: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1607: fnd_log.string
1608: (
1609: fnd_log.level_error,
1610: l_debug_module ,
1611: 'Private API raised expected error....'
1605: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1606: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1607: fnd_log.string
1608: (
1609: fnd_log.level_error,
1610: l_debug_module ,
1611: 'Private API raised expected error....'
1612: );
1613: END IF;
1612: );
1613: END IF;
1614: RAISE FND_API.G_EXC_ERROR;
1615: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1616: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1617: fnd_log.string
1618: (
1619: fnd_log.level_error,
1620: l_debug_module ,
1613: END IF;
1614: RAISE FND_API.G_EXC_ERROR;
1615: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1616: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1617: fnd_log.string
1618: (
1619: fnd_log.level_error,
1620: l_debug_module ,
1621: 'Private API raised unexpected error....'
1615: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1616: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1617: fnd_log.string
1618: (
1619: fnd_log.level_error,
1620: l_debug_module ,
1621: 'Private API raised unexpected error....'
1622: );
1623: END IF;
1713: IF FND_API.to_boolean( p_init_msg_list ) THEN
1714: FND_MSG_PUB.initialize;
1715: END IF;
1716:
1717: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1718: fnd_log.string
1719: (
1720: fnd_log.level_procedure,
1721: l_debug_module ||'.begin',
1714: FND_MSG_PUB.initialize;
1715: END IF;
1716:
1717: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1718: fnd_log.string
1719: (
1720: fnd_log.level_procedure,
1721: l_debug_module ||'.begin',
1722: 'At the start of PLSQL procedure'
1716:
1717: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1718: fnd_log.string
1719: (
1720: fnd_log.level_procedure,
1721: l_debug_module ||'.begin',
1722: 'At the start of PLSQL procedure'
1723: );
1724: END IF;
1735: x_route_id => l_source_route_id,
1736: x_return_status => x_return_status
1737: );
1738: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1740: fnd_log.string
1741: (
1742: fnd_log.level_error,
1743: l_debug_module ,
1736: x_return_status => x_return_status
1737: );
1738: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1740: fnd_log.string
1741: (
1742: fnd_log.level_error,
1743: l_debug_module ,
1744: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1738: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1739: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1740: fnd_log.string
1741: (
1742: fnd_log.level_error,
1743: l_debug_module ,
1744: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1745: );
1746: END IF;
1747: RAISE FND_API.G_EXC_ERROR;
1748: END IF;
1749: END IF;
1750:
1751: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1752: fnd_log.string
1753: (
1754: fnd_log.level_statement,
1755: l_debug_module ,
1748: END IF;
1749: END IF;
1750:
1751: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1752: fnd_log.string
1753: (
1754: fnd_log.level_statement,
1755: l_debug_module ,
1756: 'Before calling the private API.....'
1750:
1751: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1752: fnd_log.string
1753: (
1754: fnd_log.level_statement,
1755: l_debug_module ,
1756: 'Before calling the private API.....'
1757: );
1758: END IF;
1775: p_apprvl_type => p_apprv_type
1776: );
1777:
1778:
1779: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_procedure,
1783: l_debug_module ||'.end',
1776: );
1777:
1778:
1779: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_procedure,
1783: l_debug_module ||'.end',
1784: 'At the end of PLSQL procedure...'
1778:
1779: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1780: fnd_log.string
1781: (
1782: fnd_log.level_procedure,
1783: l_debug_module ||'.end',
1784: 'At the end of PLSQL procedure...'
1785: );
1786: END IF;
1786: END IF;
1787:
1788: -- Check Error Message stack.
1789: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1790: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1791: fnd_log.string
1792: (
1793: fnd_log.level_error,
1794: l_debug_module ,
1787:
1788: -- Check Error Message stack.
1789: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1790: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1791: fnd_log.string
1792: (
1793: fnd_log.level_error,
1794: l_debug_module ,
1795: 'Private API raised expected error....'
1789: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1790: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1791: fnd_log.string
1792: (
1793: fnd_log.level_error,
1794: l_debug_module ,
1795: 'Private API raised expected error....'
1796: );
1797: END IF;
1796: );
1797: END IF;
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1800: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1801: fnd_log.string
1802: (
1803: fnd_log.level_error,
1804: l_debug_module ,
1797: END IF;
1798: RAISE FND_API.G_EXC_ERROR;
1799: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1800: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1801: fnd_log.string
1802: (
1803: fnd_log.level_error,
1804: l_debug_module ,
1805: 'Private API raised unexpected error....'
1799: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1800: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1801: fnd_log.string
1802: (
1803: fnd_log.level_error,
1804: l_debug_module ,
1805: 'Private API raised unexpected error....'
1806: );
1807: END IF;
1890: IF FND_API.to_boolean( p_init_msg_list ) THEN
1891: FND_MSG_PUB.initialize;
1892: END IF;
1893:
1894: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1895: fnd_log.string
1896: (
1897: fnd_log.level_procedure,
1898: l_debug_module ||'.begin',
1891: FND_MSG_PUB.initialize;
1892: END IF;
1893:
1894: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1895: fnd_log.string
1896: (
1897: fnd_log.level_procedure,
1898: l_debug_module ||'.begin',
1899: 'At the start of PLSQL procedure'
1893:
1894: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1895: fnd_log.string
1896: (
1897: fnd_log.level_procedure,
1898: l_debug_module ||'.begin',
1899: 'At the start of PLSQL procedure'
1900: );
1901: END IF;
1913: x_route_id => l_route_id,
1914: x_return_status => x_return_status
1915: );
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string
1919: (
1920: fnd_log.level_error,
1921: l_debug_module ,
1914: x_return_status => x_return_status
1915: );
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string
1919: (
1920: fnd_log.level_error,
1921: l_debug_module ,
1922: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1916: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1918: fnd_log.string
1919: (
1920: fnd_log.level_error,
1921: l_debug_module ,
1922: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1923: );
1924: END IF;
1925: RAISE FND_API.G_EXC_ERROR;
1926: END IF;
1927: END IF;
1928:
1929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1930: fnd_log.string
1931: (
1932: fnd_log.level_statement,
1933: l_debug_module ,
1926: END IF;
1927: END IF;
1928:
1929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1930: fnd_log.string
1931: (
1932: fnd_log.level_statement,
1933: l_debug_module ,
1934: 'Before calling the private API.....'
1928:
1929: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1930: fnd_log.string
1931: (
1932: fnd_log.level_statement,
1933: l_debug_module ,
1934: 'Before calling the private API.....'
1935: );
1936: END IF;
1950: p_x_route_operation_tbl => p_x_route_operation_tbl,
1951: p_route_id => l_route_id
1952: );
1953:
1954: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1955: fnd_log.string
1956: (
1957: fnd_log.level_procedure,
1958: l_debug_module ||'.End',
1951: p_route_id => l_route_id
1952: );
1953:
1954: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1955: fnd_log.string
1956: (
1957: fnd_log.level_procedure,
1958: l_debug_module ||'.End',
1959: 'At the end of PLSQL procedure...'
1953:
1954: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1955: fnd_log.string
1956: (
1957: fnd_log.level_procedure,
1958: l_debug_module ||'.End',
1959: 'At the end of PLSQL procedure...'
1960: );
1961: END IF;
1961: END IF;
1962:
1963: -- Check Error Message stack.
1964: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1965: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1966: fnd_log.string
1967: (
1968: fnd_log.level_error,
1969: l_debug_module ,
1962:
1963: -- Check Error Message stack.
1964: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1965: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1966: fnd_log.string
1967: (
1968: fnd_log.level_error,
1969: l_debug_module ,
1970: 'Private API raised expected error....'
1964: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1965: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1966: fnd_log.string
1967: (
1968: fnd_log.level_error,
1969: l_debug_module ,
1970: 'Private API raised expected error....'
1971: );
1972: END IF;
1971: );
1972: END IF;
1973: RAISE FND_API.G_EXC_ERROR;
1974: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1976: fnd_log.string
1977: (
1978: fnd_log.level_error,
1979: l_debug_module ,
1972: END IF;
1973: RAISE FND_API.G_EXC_ERROR;
1974: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1976: fnd_log.string
1977: (
1978: fnd_log.level_error,
1979: l_debug_module ,
1980: 'Private API raised unexpected error....'
1974: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1975: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1976: fnd_log.string
1977: (
1978: fnd_log.level_error,
1979: l_debug_module ,
1980: 'Private API raised unexpected error....'
1981: );
1982: END IF;
2099: IF FND_API.to_boolean( p_init_msg_list ) THEN
2100: FND_MSG_PUB.initialize;
2101: END IF;
2102:
2103: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2104: fnd_log.string
2105: (
2106: fnd_log.level_procedure,
2107: l_debug_module ||'.begin',
2100: FND_MSG_PUB.initialize;
2101: END IF;
2102:
2103: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2104: fnd_log.string
2105: (
2106: fnd_log.level_procedure,
2107: l_debug_module ||'.begin',
2108: 'At the start of PLSQL procedure'
2102:
2103: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2104: fnd_log.string
2105: (
2106: fnd_log.level_procedure,
2107: l_debug_module ||'.begin',
2108: 'At the start of PLSQL procedure'
2109: );
2110: END IF;
2122: x_return_status => x_return_status
2123: );
2124:
2125: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2127: fnd_log.string
2128: (
2129: fnd_log.level_error,
2130: l_debug_module ||':',
2123: );
2124:
2125: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2127: fnd_log.string
2128: (
2129: fnd_log.level_error,
2130: l_debug_module ||':',
2131: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
2125: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2127: fnd_log.string
2128: (
2129: fnd_log.level_error,
2130: l_debug_module ||':',
2131: 'Error in AHL_RM_ROUTE_UTIL.Route_Number_To_Id API'
2132: );
2133: END IF;
2134: RAISE FND_API.G_EXC_ERROR;
2135: END IF;
2136: END IF;
2137:
2138: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2139:
2140: fnd_log.string
2141: (
2142: fnd_log.level_statement,
2136: END IF;
2137:
2138: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2139:
2140: fnd_log.string
2141: (
2142: fnd_log.level_statement,
2143: l_debug_module ,
2144: 'Route Id of the Operation that is being updated .....' || l_route_id
2138: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2139:
2140: fnd_log.string
2141: (
2142: fnd_log.level_statement,
2143: l_debug_module ,
2144: 'Route Id of the Operation that is being updated .....' || l_route_id
2145: );
2146: END IF;
2175: END IF;
2176:
2177: CLOSE get_rt_oper_resource;
2178:
2179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2180:
2181: fnd_log.string
2182: (
2183: fnd_log.level_statement,
2177: CLOSE get_rt_oper_resource;
2178:
2179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2180:
2181: fnd_log.string
2182: (
2183: fnd_log.level_statement,
2184: l_debug_module ,
2185: 'Before calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
2179: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2180:
2181: fnd_log.string
2182: (
2183: fnd_log.level_statement,
2184: l_debug_module ,
2185: 'Before calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
2186: );
2187: END IF;
2201: p_x_alt_resource_tbl => p_x_alt_resource_tbl
2202: );
2203:
2204:
2205: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2206:
2207: fnd_log.string
2208: (
2209: fnd_log.level_statement,
2203:
2204:
2205: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2206:
2207: fnd_log.string
2208: (
2209: fnd_log.level_statement,
2210: l_debug_module ,
2211: 'After calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
2205: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2206:
2207: fnd_log.string
2208: (
2209: fnd_log.level_statement,
2210: l_debug_module ,
2211: 'After calling Private API AHL_RM_RT_OPER_RESOURCE_PVT.process_alternate_resource'
2212: );
2213: END IF;
2212: );
2213: END IF;
2214:
2215:
2216: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2217: fnd_log.string
2218: (
2219: fnd_log.level_procedure,
2220: l_debug_module ||'.End',
2213: END IF;
2214:
2215:
2216: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2217: fnd_log.string
2218: (
2219: fnd_log.level_procedure,
2220: l_debug_module ||'.End',
2221: 'At the end of PLSQL procedure...'
2215:
2216: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
2217: fnd_log.string
2218: (
2219: fnd_log.level_procedure,
2220: l_debug_module ||'.End',
2221: 'At the end of PLSQL procedure...'
2222: );
2223: END IF;
2223: END IF;
2224:
2225: -- Check Error Message stack.
2226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2227: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
2228: fnd_log.string
2229: (
2230: fnd_log.level_error,
2231: l_debug_module ,
2224:
2225: -- Check Error Message stack.
2226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2227: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
2228: fnd_log.string
2229: (
2230: fnd_log.level_error,
2231: l_debug_module ,
2232: 'Public API raised expected error....'
2226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2227: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
2228: fnd_log.string
2229: (
2230: fnd_log.level_error,
2231: l_debug_module ,
2232: 'Public API raised expected error....'
2233: );
2234: END IF;
2233: );
2234: END IF;
2235: RAISE FND_API.G_EXC_ERROR;
2236: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2237: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2238: fnd_log.string
2239: (
2240: fnd_log.level_error,
2241: l_debug_module ,
2234: END IF;
2235: RAISE FND_API.G_EXC_ERROR;
2236: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2237: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2238: fnd_log.string
2239: (
2240: fnd_log.level_error,
2241: l_debug_module ,
2242: 'Public API raised unexpected error....'
2236: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2237: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2238: fnd_log.string
2239: (
2240: fnd_log.level_error,
2241: l_debug_module ,
2242: 'Public API raised unexpected error....'
2243: );
2244: END IF;