[Home] [Help]
42: END IF;
43:
44: -- Initialize message, depending on p_init_msg_list flag
45: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
46: FND_MSG_PUB.Initialize;
47: END IF;
48:
49: -- Initialize API return status to success
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: x_msg_data => x_msg_data,
77: p_x_mr_header_rec => p_x_mr_header_rec
78: );
79:
80: x_msg_count := FND_MSG_PUB.count_msg;
81: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
82: THEN
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
108: );
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: (
147: x_msg_data => x_msg_data,
148: p_x_association_tbl => p_x_mr_doc_tbl
149: );
150:
151: x_msg_count := FND_MSG_PUB.count_msg;
152: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
188: x_msg_data => x_msg_data,
189: p_x_mr_route_tbl => p_x_mr_route_tbl
190: );
191:
192: x_msg_count := FND_MSG_PUB.count_msg;
193: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
194: THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
227: x_msg_data => x_msg_data,
228: p_x_mr_visit_type_tbl => p_x_mr_visit_type_tbl
229: );
230:
231: x_msg_count := FND_MSG_PUB.count_msg;
232: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
233: THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
267: p_mr_header_id => p_x_mr_header_rec.mr_header_id,
268: p_super_user => p_x_mr_header_rec.superuser_role
269: );
270:
271: x_msg_count := FND_MSG_PUB.count_msg;
272: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
273: THEN
274: RAISE FND_API.G_EXC_ERROR;
275: END IF;
308: x_msg_data => x_msg_data,
309: p_x_mr_relation_tbl => p_x_mr_relation_tbl
310: );
311:
312: x_msg_count := FND_MSG_PUB.count_msg;
313: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
314: THEN
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
339: );
340: END IF;
341:
342: -- Check Error Message stack.
343: x_msg_count := FND_MSG_PUB.count_msg;
344: IF x_msg_count > 0
345: THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
351: COMMIT WORK;
352: END IF;
353:
354: -- Standard call to get message count and if count is 1, get message info
355: FND_MSG_PUB.count_and_get
356: (
357: p_count => x_msg_count,
358: p_data => x_msg_data,
359: p_encoded => FND_API.G_FALSE
362: EXCEPTION
363: WHEN FND_API.G_EXC_ERROR THEN
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: Rollback to Create_Mr_SP;
366: FND_MSG_PUB.count_and_get
367: (
368: p_count => x_msg_count,
369: p_data => x_msg_data,
370: p_encoded => FND_API.G_FALSE
372:
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375: Rollback to Create_Mr_SP;
376: FND_MSG_PUB.count_and_get
377: (
378: p_count => x_msg_count,
379: p_data => x_msg_data,
380: p_encoded => FND_API.G_FALSE
382:
383: WHEN OTHERS THEN
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: Rollback to Create_Mr_SP;
386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
387: THEN
388: FND_MSG_PUB.add_exc_msg
389: (
390: p_pkg_name => G_PKG_NAME,
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: Rollback to Create_Mr_SP;
386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
387: THEN
388: FND_MSG_PUB.add_exc_msg
389: (
390: p_pkg_name => G_PKG_NAME,
391: p_procedure_name => 'Create_Mr',
392: p_error_text => SUBSTR(SQLERRM,1,240)
391: p_procedure_name => 'Create_Mr',
392: p_error_text => SUBSTR(SQLERRM,1,240)
393: );
394: END IF;
395: FND_MSG_PUB.count_and_get
396: (
397: p_count => x_msg_count,
398: p_data => x_msg_data,
399: p_encoded => FND_API.G_FALSE
444: END IF;
445:
446: -- Initialize message, depending on p_init_msg_list flag
447: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
448: FND_MSG_PUB.Initialize;
449: END IF;
450:
451: -- Initialize API return status to success
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: x_mr_header_id => l_mr_header_rec.mr_header_id,
473: x_return_status => x_return_status
474: );
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
504: x_msg_data => x_msg_data,
505: p_x_mr_header_rec => l_mr_header_rec
506: );
507:
508: x_msg_count := FND_MSG_PUB.count_msg;
509: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
510: THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
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: (
560: x_msg_data => x_msg_data,
561: p_x_association_tbl => p_x_mr_doc_tbl
562: );
563:
564: x_msg_count := FND_MSG_PUB.count_msg;
565: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
566: THEN
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
600: x_msg_data => x_msg_data,
601: p_x_mr_route_tbl => p_x_mr_route_tbl
602: );
603:
604: x_msg_count := FND_MSG_PUB.count_msg;
605: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
606: THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
638: x_msg_data => x_msg_data,
639: p_x_mr_visit_type_tbl => p_x_mr_visit_type_tbl
640: );
641:
642: x_msg_count := FND_MSG_PUB.count_msg;
643: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
644: THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
673: p_mr_header_id => l_mr_header_rec.mr_header_id,
674: p_super_user => l_mr_header_rec.superuser_role
675: );
676:
677: x_msg_count := FND_MSG_PUB.count_msg;
678: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
679: THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
713: x_msg_data => x_msg_data,
714: p_x_mr_relation_tbl => p_x_mr_relation_tbl
715: );
716:
717: x_msg_count := FND_MSG_PUB.count_msg;
718: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
719: THEN
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
744: );
745: END IF;
746:
747: -- Check Error Message stack.
748: x_msg_count := FND_MSG_PUB.count_msg;
749: IF x_msg_count > 0
750: THEN
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
756: COMMIT WORK;
757: END IF;
758:
759: -- Standard call to get message count and if count is 1, get message info
760: FND_MSG_PUB.count_and_get
761: (
762: p_count => x_msg_count,
763: p_data => x_msg_data,
764: p_encoded => FND_API.G_FALSE
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: Rollback to Modify_Mr_SP;
771: FND_MSG_PUB.count_and_get
772: (
773: p_count => x_msg_count,
774: p_data => x_msg_data,
775: p_encoded => FND_API.G_FALSE
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: Rollback to Modify_Mr_SP;
781: FND_MSG_PUB.count_and_get
782: (
783: p_count => x_msg_count,
784: p_data => x_msg_data,
785: p_encoded => FND_API.G_FALSE
787:
788: WHEN OTHERS THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: Rollback to Modify_Mr_SP;
791: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
792: THEN
793: FND_MSG_PUB.add_exc_msg
794: (
795: p_pkg_name => G_PKG_NAME,
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: Rollback to Modify_Mr_SP;
791: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
792: THEN
793: FND_MSG_PUB.add_exc_msg
794: (
795: p_pkg_name => G_PKG_NAME,
796: p_procedure_name => 'Modify_Mr',
797: p_error_text => SUBSTR(SQLERRM,1,240)
796: p_procedure_name => 'Modify_Mr',
797: p_error_text => SUBSTR(SQLERRM,1,240)
798: );
799: END IF;
800: FND_MSG_PUB.count_and_get
801: (
802: p_count => x_msg_count,
803: p_data => x_msg_data,
804: p_encoded => FND_API.G_FALSE
847: END IF;
848:
849: -- Initialize message, depending on p_init_msg_list flag
850: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
851: FND_MSG_PUB.Initialize;
852: END IF;
853:
854: -- Initialize API return status to success
855: x_return_status := FND_API.G_RET_STS_SUCCESS;
875: x_mr_header_id => l_mr_header_id,
876: x_return_status => x_return_status
877: );
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
906: p_mr_header_id => l_mr_header_id,
907: p_OBJECT_VERSION_NUMBER => p_mr_object_version
908: );
909:
910: x_msg_count := FND_MSG_PUB.count_msg;
911: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
912: THEN
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
926: );
927: END IF;
928:
929: -- Check Error Message stack.
930: x_msg_count := FND_MSG_PUB.count_msg;
931: IF x_msg_count > 0
932: THEN
933: RAISE FND_API.G_EXC_ERROR;
934: END IF;
938: COMMIT WORK;
939: END IF;
940:
941: -- Standard call to get message count and if count is 1, get message info
942: FND_MSG_PUB.count_and_get
943: (
944: p_count => x_msg_count,
945: p_data => x_msg_data,
946: p_encoded => FND_API.G_FALSE
949: EXCEPTION
950: WHEN FND_API.G_EXC_ERROR THEN
951: x_return_status := FND_API.G_RET_STS_ERROR;
952: Rollback to Delete_Mr_SP;
953: FND_MSG_PUB.count_and_get
954: (
955: p_count => x_msg_count,
956: p_data => x_msg_data,
957: p_encoded => FND_API.G_FALSE
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: Rollback to Delete_Mr_SP;
963: FND_MSG_PUB.count_and_get
964: (
965: p_count => x_msg_count,
966: p_data => x_msg_data,
967: p_encoded => FND_API.G_FALSE
969:
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: Rollback to Delete_Mr_SP;
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
974: THEN
975: FND_MSG_PUB.add_exc_msg
976: (
977: p_pkg_name => G_PKG_NAME,
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: Rollback to Delete_Mr_SP;
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
974: THEN
975: FND_MSG_PUB.add_exc_msg
976: (
977: p_pkg_name => G_PKG_NAME,
978: p_procedure_name => 'Delete_Mr',
979: p_error_text => SUBSTR(SQLERRM,1,240)
978: p_procedure_name => 'Delete_Mr',
979: p_error_text => SUBSTR(SQLERRM,1,240)
980: );
981: END IF;
982: FND_MSG_PUB.count_and_get
983: (
984: p_count => x_msg_count,
985: p_data => x_msg_data,
986: p_encoded => FND_API.G_FALSE
1030: END IF;
1031:
1032: -- Initialize message, depending on p_init_msg_list flag
1033: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1034: FND_MSG_PUB.Initialize;
1035: END IF;
1036:
1037: -- Initialize API return status to success
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1058: x_mr_header_id => l_mr_header_id,
1059: x_return_status => x_return_status
1060: );
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
1091: p_source_mr_header_id => l_mr_header_id,
1092: x_new_mr_header_id => x_new_mr_header_id
1093: );
1094:
1095: x_msg_count := FND_MSG_PUB.count_msg;
1096: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1097: THEN
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1111: );
1112: END IF;
1113:
1114: -- Check Error Message stack.
1115: x_msg_count := FND_MSG_PUB.count_msg;
1116: IF x_msg_count > 0
1117: THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1123: COMMIT WORK;
1124: END IF;
1125:
1126: -- Standard call to get message count and if count is 1, get message info
1127: FND_MSG_PUB.count_and_get
1128: (
1129: p_count => x_msg_count,
1130: p_data => x_msg_data,
1131: p_encoded => FND_API.G_FALSE
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: Rollback to Create_Mr_Revision_SP;
1138: FND_MSG_PUB.count_and_get
1139: (
1140: p_count => x_msg_count,
1141: p_data => x_msg_data,
1142: p_encoded => FND_API.G_FALSE
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: Rollback to Create_Mr_Revision_SP;
1148: FND_MSG_PUB.count_and_get
1149: (
1150: p_count => x_msg_count,
1151: p_data => x_msg_data,
1152: p_encoded => FND_API.G_FALSE
1154:
1155: WHEN OTHERS THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: Rollback to Create_Mr_Revision_SP;
1158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1159: THEN
1160: FND_MSG_PUB.add_exc_msg
1161: (
1162: p_pkg_name => G_PKG_NAME,
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: Rollback to Create_Mr_Revision_SP;
1158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1159: THEN
1160: FND_MSG_PUB.add_exc_msg
1161: (
1162: p_pkg_name => G_PKG_NAME,
1163: p_procedure_name => 'Create_Mr_Revision',
1164: p_error_text => SUBSTR(SQLERRM,1,240)
1163: p_procedure_name => 'Create_Mr_Revision',
1164: p_error_text => SUBSTR(SQLERRM,1,240)
1165: );
1166: END IF;
1167: FND_MSG_PUB.count_and_get
1168: (
1169: p_count => x_msg_count,
1170: p_data => x_msg_data,
1171: p_encoded => FND_API.G_FALSE
1215: END IF;
1216:
1217: -- Initialize message, depending on p_init_msg_list flag
1218: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1219: FND_MSG_PUB.Initialize;
1220: END IF;
1221:
1222: -- Initialize API return status to success
1223: x_return_status := FND_API.G_RET_STS_SUCCESS;
1243: x_mr_header_id => l_mr_header_id,
1244: x_return_status => x_return_status
1245: );
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
1275: p_object_Version_number => p_mr_object_version,
1276: p_apprv_type => p_apprv_type
1277: );
1278:
1279: x_msg_count := FND_MSG_PUB.count_msg;
1280: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1281: THEN
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1295: );
1296: END IF;
1297:
1298: -- Check Error Message stack.
1299: x_msg_count := FND_MSG_PUB.count_msg;
1300: IF x_msg_count > 0
1301: THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1307: COMMIT WORK;
1308: END IF;
1309:
1310: -- Standard call to get message count and if count is 1, get message info
1311: FND_MSG_PUB.count_and_get
1312: (
1313: p_count => x_msg_count,
1314: p_data => x_msg_data,
1315: p_encoded => FND_API.G_FALSE
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: Rollback to Initiate_Mr_Approval_SP;
1322: FND_MSG_PUB.count_and_get
1323: (
1324: p_count => x_msg_count,
1325: p_data => x_msg_data,
1326: p_encoded => FND_API.G_FALSE
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: Rollback to Initiate_Mr_Approval_SP;
1332: FND_MSG_PUB.count_and_get
1333: (
1334: p_count => x_msg_count,
1335: p_data => x_msg_data,
1336: p_encoded => FND_API.G_FALSE
1338:
1339: WHEN OTHERS THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: Rollback to Initiate_Mr_Approval_SP;
1342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1343: THEN
1344: FND_MSG_PUB.add_exc_msg
1345: (
1346: p_pkg_name => G_PKG_NAME,
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: Rollback to Initiate_Mr_Approval_SP;
1342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1343: THEN
1344: FND_MSG_PUB.add_exc_msg
1345: (
1346: p_pkg_name => G_PKG_NAME,
1347: p_procedure_name => 'Initiate_Mr_Approval',
1348: p_error_text => SUBSTR(SQLERRM,1,240)
1347: p_procedure_name => 'Initiate_Mr_Approval',
1348: p_error_text => SUBSTR(SQLERRM,1,240)
1349: );
1350: END IF;
1351: FND_MSG_PUB.count_and_get
1352: (
1353: p_count => x_msg_count,
1354: p_data => x_msg_data,
1355: p_encoded => FND_API.G_FALSE
1393: END IF;
1394:
1395: -- Initialize message, depending on p_init_msg_list flag
1396: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1397: FND_MSG_PUB.Initialize;
1398: END IF;
1399:
1400: -- Initialize API return status to success
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1427: x_msg_data => x_msg_data,
1428: p_x_mr_route_seq_tbl => p_x_mr_route_seq_tbl
1429: );
1430:
1431: x_msg_count := FND_MSG_PUB.count_msg;
1432: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1433: THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1449: );
1450: END IF;
1451:
1452: -- Check Error Message stack.
1453: x_msg_count := FND_MSG_PUB.count_msg;
1454: IF x_msg_count > 0
1455: THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1461: COMMIT WORK;
1462: END IF;
1463:
1464: -- Standard call to get message count and if count is 1, get message info
1465: FND_MSG_PUB.count_and_get
1466: (
1467: p_count => x_msg_count,
1468: p_data => x_msg_data,
1469: p_encoded => FND_API.G_FALSE
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: Rollback to Process_Mr_Route_Seq_SP;
1476: FND_MSG_PUB.count_and_get
1477: (
1478: p_count => x_msg_count,
1479: p_data => x_msg_data,
1480: p_encoded => FND_API.G_FALSE
1482:
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: Rollback to Process_Mr_Route_Seq_SP;
1486: FND_MSG_PUB.count_and_get
1487: (
1488: p_count => x_msg_count,
1489: p_data => x_msg_data,
1490: p_encoded => FND_API.G_FALSE
1492:
1493: WHEN OTHERS THEN
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1495: Rollback to Process_Mr_Route_Seq_SP;
1496: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1497: THEN
1498: FND_MSG_PUB.add_exc_msg
1499: (
1500: p_pkg_name => G_PKG_NAME,
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1495: Rollback to Process_Mr_Route_Seq_SP;
1496: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1497: THEN
1498: FND_MSG_PUB.add_exc_msg
1499: (
1500: p_pkg_name => G_PKG_NAME,
1501: p_procedure_name => 'Process_Mr_Route_Seq',
1502: p_error_text => SUBSTR(SQLERRM,1,240)
1501: p_procedure_name => 'Process_Mr_Route_Seq',
1502: p_error_text => SUBSTR(SQLERRM,1,240)
1503: );
1504: END IF;
1505: FND_MSG_PUB.count_and_get
1506: (
1507: p_count => x_msg_count,
1508: p_data => x_msg_data,
1509: p_encoded => FND_API.G_FALSE
1558: END IF;
1559:
1560: -- Initialize message, depending on p_init_msg_list flag
1561: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1562: FND_MSG_PUB.Initialize;
1563: END IF;
1564:
1565: -- Initialize API return status to success
1566: x_return_status := FND_API.G_RET_STS_SUCCESS;
1586: x_mr_header_id => l_mr_header_id,
1587: x_return_status => x_return_status
1588: );
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
1612: x_mr_effectivity_id => l_mr_effectivity_id,
1613: x_return_status => x_return_status
1614: );
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
1646: p_mr_header_id => l_mr_header_id,
1647: p_mr_effectivity_id => l_mr_effectivity_id
1648: );
1649:
1650: x_msg_count := FND_MSG_PUB.count_msg;
1651: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1652: THEN
1653: RAISE FND_API.G_EXC_ERROR;
1654: END IF;
1675: p_super_user => p_super_user
1676: );
1677: END IF;
1678:
1679: x_msg_count := FND_MSG_PUB.count_msg;
1680: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1681: THEN
1682: RAISE FND_API.G_EXC_ERROR;
1683: END IF;
1695: );
1696: END IF;
1697:
1698: -- Check Error Message stack.
1699: x_msg_count := FND_MSG_PUB.count_msg;
1700: IF x_msg_count > 0
1701: THEN
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1707: COMMIT WORK;
1708: END IF;
1709:
1710: -- Standard call to get message count and if count is 1, get message info
1711: FND_MSG_PUB.count_and_get
1712: (
1713: p_count => x_msg_count,
1714: p_data => x_msg_data,
1715: p_encoded => FND_API.G_FALSE
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721: Rollback to Process_Mr_Effectivities_SP;
1722: FND_MSG_PUB.count_and_get
1723: (
1724: p_count => x_msg_count,
1725: p_data => x_msg_data,
1726: p_encoded => FND_API.G_FALSE
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: Rollback to Process_Mr_Effectivities_SP;
1732: FND_MSG_PUB.count_and_get
1733: (
1734: p_count => x_msg_count,
1735: p_data => x_msg_data,
1736: p_encoded => FND_API.G_FALSE
1738:
1739: WHEN OTHERS THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: Rollback to Process_Mr_Effectivities_SP;
1742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1743: THEN
1744: FND_MSG_PUB.add_exc_msg
1745: (
1746: p_pkg_name => G_PKG_NAME,
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: Rollback to Process_Mr_Effectivities_SP;
1742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1743: THEN
1744: FND_MSG_PUB.add_exc_msg
1745: (
1746: p_pkg_name => G_PKG_NAME,
1747: p_procedure_name => 'Process_Mr_Effectivities',
1748: p_error_text => SUBSTR(SQLERRM,1,240)
1747: p_procedure_name => 'Process_Mr_Effectivities',
1748: p_error_text => SUBSTR(SQLERRM,1,240)
1749: );
1750: END IF;
1751: FND_MSG_PUB.count_and_get
1752: (
1753: p_count => x_msg_count,
1754: p_data => x_msg_data,
1755: p_encoded => FND_API.G_FALSE