[Home] [Help]
103:
104: -- Initialize message list if p_init_msg_list is set to TRUE
105: IF FND_API.TO_BOOLEAN(p_init_msg_list)
106: THEN
107: FND_MSG_PUB.Initialize;
108: END IF;
109:
110: -- Initialize API return status to success
111: x_return_status := FND_API.G_RET_STS_SUCCESS;
137: -- Confirm user has entered MC Name, since it is mandatory
138: IF (RTRIM(p_x_mc_header_rec.name) IS NULL)
139: THEN
140: FND_MESSAGE.Set_Name('AHL','AHL_MC_NAME_INVALID');
141: FND_MSG_PUB.ADD;
142: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
143: THEN
144: fnd_log.message
145: (
153: FETCH check_other_mc_name_unique INTO l_dummy_varchar;
154: IF (check_other_mc_name_unique%FOUND)
155: THEN
156: FND_MESSAGE.Set_Name('AHL','AHL_MC_RNAME_EXISTS');
157: FND_MSG_PUB.ADD;
158: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
159: THEN
160: fnd_log.message
161: (
176: IF (p_x_mc_header_rec.config_status_code <> 'DRAFT')
177: THEN
178: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_STATUS_INVALID');
179: FND_MESSAGE.Set_Token('STATUS', p_x_mc_header_rec.config_status_meaning);
180: FND_MSG_PUB.ADD;
181: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
182: THEN
183: fnd_log.message
184: (
189: END IF;
190: END IF;
191:
192: -- Check Error Message stack.
193: x_msg_count := FND_MSG_PUB.count_msg;
194: IF x_msg_count > 0
195: THEN
196: RAISE FND_API.G_EXC_ERROR;
197: END IF;
296:
297: IF (p_x_node_rec.position_necessity_code <> 'MANDATORY')
298: THEN
299: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_NEC_INV');
300: FND_MSG_PUB.ADD;
301: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
302: THEN
303: fnd_log.message
304: (
312: /*
313: IF (p_x_node_rec.uom_code <> 'Ea')
314: THEN
315: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_UOM_INV');
316: FND_MSG_PUB.ADD;
317: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
318: THEN
319: fnd_log.message
320: (
327: */
328: IF (p_x_node_rec.quantity <> 1)
329: THEN
330: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_QTY_INV');
331: FND_MSG_PUB.ADD;
332: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
333: THEN
334: fnd_log.message
335: (
342:
343: IF (p_x_node_rec.display_order <> 1)
344: THEN
345: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_DSP_INV');
346: FND_MSG_PUB.ADD;
347: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
348: THEN
349: fnd_log.message
350: (
355: END IF;
356: END IF;
357:
358: -- Check Error Message stack.
359: x_msg_count := FND_MSG_PUB.count_msg;
360: IF x_msg_count > 0
361: THEN
362: RAISE FND_API.G_EXC_ERROR;
363: END IF;
398: END IF;
399: -- API body ends here
400:
401: -- Check Error Message stack.
402: x_msg_count := FND_MSG_PUB.count_msg;
403: IF x_msg_count > 0
404: THEN
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
411: COMMIT WORK;
412: END IF;
413:
414: -- Standard call to get message count and if count is 1, get message info
415: FND_MSG_PUB.count_and_get
416: (
417: p_count => x_msg_count,
418: p_data => x_msg_data,
419: p_encoded => FND_API.G_FALSE
422: EXCEPTION
423: WHEN FND_API.G_EXC_ERROR THEN
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: Rollback to Create_Master_Config_SP;
426: FND_MSG_PUB.count_and_get
427: (
428: p_count => x_msg_count,
429: p_data => x_msg_data,
430: p_encoded => FND_API.G_FALSE
432:
433: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: Rollback to Create_Master_Config_SP;
436: FND_MSG_PUB.count_and_get
437: (
438: p_count => x_msg_count,
439: p_data => x_msg_data,
440: p_encoded => FND_API.G_FALSE
442:
443: WHEN OTHERS THEN
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: Rollback to Create_Master_Config_SP;
446: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
447: THEN
448: FND_MSG_PUB.add_exc_msg
449: (
450: p_pkg_name => G_PKG_NAME,
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445: Rollback to Create_Master_Config_SP;
446: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
447: THEN
448: FND_MSG_PUB.add_exc_msg
449: (
450: p_pkg_name => G_PKG_NAME,
451: p_procedure_name => 'Create_Master_Config',
452: p_error_text => SUBSTR(SQLERRM,1,240)
451: p_procedure_name => 'Create_Master_Config',
452: p_error_text => SUBSTR(SQLERRM,1,240)
453: );
454: END IF;
455: FND_MSG_PUB.count_and_get
456: (
457: p_count => x_msg_count,
458: p_data => x_msg_data,
459: p_encoded => FND_API.G_FALSE
498:
499: -- Initialize message list if p_init_msg_list is set to TRUE
500: IF FND_API.TO_BOOLEAN(p_init_msg_list)
501: THEN
502: FND_MSG_PUB.Initialize;
503: END IF;
504:
505: -- Initialize API return status to success
506: x_return_status := FND_API.G_RET_STS_SUCCESS;
528: IF (p_x_mc_header_rec.config_status_code = 'COMPLETE' AND l_header_status <> 'COMPLETE')
529: THEN
530: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_INIT_APPR_COMP');
531: FND_MESSAGE.Set_Token('MC_NAME', p_x_mc_header_rec.name);
532: FND_MSG_PUB.ADD;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535: -- Fix for Bug #3523435
536:
539: p_x_mc_header_rec.config_status_code := 'DRAFT';
540: ELSIF (l_header_status <> 'DRAFT')
541: THEN
542: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_EDIT_STS_INV');
543: FND_MSG_PUB.ADD;
544: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
545: THEN
546: fnd_log.message
547: (
565: -- 1e.ii. Validate p_x_mc_header_rec.revision (unique across all revisions of the same MC + atleast one alphabetic character)
566: Validate_MC_Revision(p_x_mc_header_rec);
567:
568: -- Check Error Message stack.
569: x_msg_count := FND_MSG_PUB.count_msg;
570: IF x_msg_count > 0
571: THEN
572: RAISE FND_API.G_EXC_ERROR;
573: END IF;
637: -- 2b. Validate p_x_node_rec.mc_header_id = p_x_mc_header_rec.mc_header_id
638: IF (p_x_node_rec.mc_header_id <> p_x_mc_header_rec.mc_header_id)
639: THEN
640: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_NOTFOUND');
641: FND_MSG_PUB.ADD;
642: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
643: THEN
644: fnd_log.message
645: (
653:
654: IF (p_x_node_rec.position_necessity_code <> 'MANDATORY')
655: THEN
656: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_NEC_INV');
657: FND_MSG_PUB.ADD;
658: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
659: THEN
660: fnd_log.message
661: (
670: /*
671: IF (p_x_node_rec.uom_code <> 'Ea')
672: THEN
673: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_UOM_INV');
674: FND_MSG_PUB.ADD;
675: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
676: THEN
677: fnd_log.message
678: (
685: */
686: IF (p_x_node_rec.quantity <> 1)
687: THEN
688: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_QTY_INV');
689: FND_MSG_PUB.ADD;
690: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
691: THEN
692: fnd_log.message
693: (
700:
701: IF (p_x_node_rec.display_order <> 1)
702: THEN
703: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_TOPNODE_DSP_INV');
704: FND_MSG_PUB.ADD;
705: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.message
708: (
713: END IF;
714: END IF;
715:
716: -- Check Error Message stack.
717: x_msg_count := FND_MSG_PUB.count_msg;
718: IF x_msg_count > 0
719: THEN
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
760: END IF;
761: -- API body ends here
762:
763: -- Check Error Message stack.
764: x_msg_count := FND_MSG_PUB.count_msg;
765:
766: --Priyan
767: --R12 MEL/CDL
768: IF ( x_msg_count > 0 AND l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
775: COMMIT WORK;
776: END IF;
777:
778: -- Standard call to get message count and if count is 1, get message info
779: FND_MSG_PUB.count_and_get
780: (
781: p_count => x_msg_count,
782: p_data => x_msg_data,
783: p_encoded => FND_API.G_FALSE
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: Rollback to Modify_Master_Config_SP;
790: FND_MSG_PUB.count_and_get
791: (
792: p_count => x_msg_count,
793: p_data => x_msg_data,
794: p_encoded => FND_API.G_FALSE
796:
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
799: Rollback to Modify_Master_Config_SP;
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
806:
807: WHEN OTHERS THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: Rollback to Modify_Master_Config_SP;
810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
811: THEN
812: FND_MSG_PUB.add_exc_msg
813: (
814: p_pkg_name => G_PKG_NAME,
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: Rollback to Modify_Master_Config_SP;
810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
811: THEN
812: FND_MSG_PUB.add_exc_msg
813: (
814: p_pkg_name => G_PKG_NAME,
815: p_procedure_name => 'Modify_Master_Config',
816: p_error_text => SUBSTR(SQLERRM,1,240)
815: p_procedure_name => 'Modify_Master_Config',
816: p_error_text => SUBSTR(SQLERRM,1,240)
817: );
818: END IF;
819: FND_MSG_PUB.count_and_get
820: (
821: p_count => x_msg_count,
822: p_data => x_msg_data,
823: p_encoded => FND_API.G_FALSE
910:
911: -- Initialize message list if p_init_msg_list is set to TRUE
912: IF FND_API.TO_BOOLEAN(p_init_msg_list)
913: THEN
914: FND_MSG_PUB.Initialize;
915: END IF;
916:
917: -- Initialize API return status to success
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
936: FETCH check_mc_not_subconfig INTO l_dummy_varchar;
937: IF (check_mc_not_subconfig%FOUND)
938: THEN
939: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IS_SUBCONFIG');
940: FND_MSG_PUB.ADD;
941: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
942: THEN
943: fnd_log.message
944: (
966: l_config_status_code := Get_MC_Status(p_mc_header_id);
967: IF (l_config_status_code IN ('CLOSED', 'EXPIRED'))
968: THEN
969: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DEL_STS_INV');
970: FND_MSG_PUB.ADD;
971: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
972: THEN
973: fnd_log.message
974: (
994: p_mc_header_id => p_mc_header_id
995: );
996:
997: -- Check Error Message stack.
998: x_msg_count := FND_MSG_PUB.count_msg;
999: IF x_msg_count > 0 THEN
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002:
1023: p_mc_header_id => p_mc_header_id
1024: );
1025:
1026: -- Check Error Message stack.
1027: x_msg_count := FND_MSG_PUB.count_msg;
1028: IF x_msg_count > 0 THEN
1029: RAISE FND_API.G_EXC_ERROR;
1030: END IF;
1031:
1058: p_object_ver_num => l_topnode_object_ver_num
1059: );
1060:
1061: -- Check Error Message stack.
1062: x_msg_count := FND_MSG_PUB.count_msg;
1063: IF x_msg_count > 0 THEN
1064: RAISE FND_API.G_EXC_ERROR;
1065: END IF;
1066:
1096: FETCH check_unit_assigned INTO l_dummy_varchar;
1097: IF (check_unit_assigned%FOUND)
1098: THEN
1099: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CLOSE_INVALID');
1100: FND_MSG_PUB.ADD;
1101: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1102: THEN
1103: fnd_log.message
1104: (
1161: END IF;
1162:
1163: ELSE
1164: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DELETE_STS_INV');
1165: FND_MSG_PUB.ADD;
1166: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1167: THEN
1168: fnd_log.message
1169: (
1185: END IF;
1186: -- API body ends here
1187:
1188: -- Check Error Message stack.
1189: x_msg_count := FND_MSG_PUB.count_msg;
1190: IF x_msg_count > 0 THEN
1191: RAISE FND_API.G_EXC_ERROR;
1192: END IF;
1193:
1197: COMMIT WORK;
1198: END IF;
1199:
1200: -- Standard call to get message count and if count is 1, get message info
1201: FND_MSG_PUB.count_and_get
1202: (
1203: p_count => x_msg_count,
1204: p_data => x_msg_data,
1205: p_encoded => FND_API.G_FALSE
1208: EXCEPTION
1209: WHEN FND_API.G_EXC_ERROR THEN
1210: x_return_status := FND_API.G_RET_STS_ERROR;
1211: Rollback to Delete_Master_Config_SP;
1212: FND_MSG_PUB.count_and_get
1213: (
1214: p_count => x_msg_count,
1215: p_data => x_msg_data,
1216: p_encoded => FND_API.G_FALSE
1218:
1219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1221: Rollback to Delete_Master_Config_SP;
1222: FND_MSG_PUB.count_and_get
1223: (
1224: p_count => x_msg_count,
1225: p_data => x_msg_data,
1226: p_encoded => FND_API.G_FALSE
1228:
1229: WHEN OTHERS THEN
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: Rollback to Delete_Master_Config_SP;
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1233: THEN
1234: FND_MSG_PUB.add_exc_msg
1235: (
1236: p_pkg_name => G_PKG_NAME,
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: Rollback to Delete_Master_Config_SP;
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1233: THEN
1234: FND_MSG_PUB.add_exc_msg
1235: (
1236: p_pkg_name => G_PKG_NAME,
1237: p_procedure_name => 'Delete_Master_Config',
1238: p_error_text => SUBSTR(SQLERRM,1,240)
1237: p_procedure_name => 'Delete_Master_Config',
1238: p_error_text => SUBSTR(SQLERRM,1,240)
1239: );
1240: END IF;
1241: FND_MSG_PUB.count_and_get
1242: (
1243: p_count => x_msg_count,
1244: p_data => x_msg_data,
1245: p_encoded => FND_API.G_FALSE
1284:
1285: -- Initialize message list if p_init_msg_list is set to TRUE
1286: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1287: THEN
1288: FND_MSG_PUB.Initialize;
1289: END IF;
1290:
1291: -- Initialize API return status to success
1292: x_return_status := FND_API.G_RET_STS_SUCCESS;
1343: p_x_node_rec => p_x_node_rec
1344: );
1345:
1346: -- Check Error Message stack.
1347: x_msg_count := FND_MSG_PUB.count_msg;
1348: IF x_msg_count > 0 THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351:
1381: x_msg_data => l_msg_data
1382: );
1383:
1384: -- Check Error Message stack.
1385: x_msg_count := FND_MSG_PUB.count_msg;
1386: IF x_msg_count > 0 THEN
1387: RAISE FND_API.G_EXC_ERROR;
1388: END IF;
1389:
1413: p_node_copy => FALSE
1414: );
1415:
1416: -- Check Error Message stack.
1417: x_msg_count := FND_MSG_PUB.count_msg;
1418: IF x_msg_count > 0 THEN
1419: RAISE FND_API.G_EXC_ERROR;
1420: END IF;
1421:
1443: p_to_mc_header_id => p_x_mc_header_rec.mc_header_id
1444: );
1445:
1446: -- Check Error Message stack.
1447: x_msg_count := FND_MSG_PUB.count_msg;
1448: IF x_msg_count > 0 THEN
1449: RAISE FND_API.G_EXC_ERROR;
1450: END IF;
1451:
1473: p_to_mc_header_id => p_x_mc_header_rec.mc_header_id
1474: );
1475:
1476: -- Check Error Message stack.
1477: x_msg_count := FND_MSG_PUB.count_msg;
1478: IF x_msg_count > 0 THEN
1479: RAISE FND_API.G_EXC_ERROR;
1480: END IF;
1481:
1490: END IF;
1491: -- API body ends here
1492:
1493: -- Check Error Message stack.
1494: x_msg_count := FND_MSG_PUB.count_msg;
1495: IF x_msg_count > 0 THEN
1496: RAISE FND_API.G_EXC_ERROR;
1497: END IF;
1498:
1502: COMMIT WORK;
1503: END IF;
1504:
1505: -- Standard call to get message count and if count is 1, get message info
1506: FND_MSG_PUB.count_and_get
1507: (
1508: p_count => x_msg_count,
1509: p_data => x_msg_data,
1510: p_encoded => FND_API.G_FALSE
1513: EXCEPTION
1514: WHEN FND_API.G_EXC_ERROR THEN
1515: x_return_status := FND_API.G_RET_STS_ERROR;
1516: Rollback to Copy_Master_Config_SP;
1517: FND_MSG_PUB.count_and_get
1518: (
1519: p_count => x_msg_count,
1520: p_data => x_msg_data,
1521: p_encoded => FND_API.G_FALSE
1523:
1524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1526: Rollback to Copy_Master_Config_SP;
1527: FND_MSG_PUB.count_and_get
1528: (
1529: p_count => x_msg_count,
1530: p_data => x_msg_data,
1531: p_encoded => FND_API.G_FALSE
1533:
1534: WHEN OTHERS THEN
1535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1536: Rollback to Copy_Master_Config_SP;
1537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1538: THEN
1539: FND_MSG_PUB.add_exc_msg
1540: (
1541: p_pkg_name => G_PKG_NAME,
1535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1536: Rollback to Copy_Master_Config_SP;
1537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1538: THEN
1539: FND_MSG_PUB.add_exc_msg
1540: (
1541: p_pkg_name => G_PKG_NAME,
1542: p_procedure_name => 'Copy_Master_Config',
1543: p_error_text => SUBSTR(SQLERRM,1,240)
1542: p_procedure_name => 'Copy_Master_Config',
1543: p_error_text => SUBSTR(SQLERRM,1,240)
1544: );
1545: END IF;
1546: FND_MSG_PUB.count_and_get
1547: (
1548: p_count => x_msg_count,
1549: p_data => x_msg_data,
1550: p_encoded => FND_API.G_FALSE
1682:
1683: -- Initialize message list if p_init_msg_list is set to TRUE
1684: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1685: THEN
1686: FND_MSG_PUB.Initialize;
1687: END IF;
1688:
1689: -- Initialize API return status to success
1690: x_return_status := FND_API.G_RET_STS_SUCCESS;
1711: -- 7. Validate l_header_rec.config_status_code = 'COMPLETE'
1712: IF (l_header_rec.config_status_code <> 'COMPLETE')
1713: THEN
1714: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_REV_STS_INV');
1715: FND_MSG_PUB.ADD;
1716: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1717: THEN
1718: fnd_log.message
1719: (
1729: FETCH check_latest_rev INTO l_dummy_varchar;
1730: IF (check_latest_rev%FOUND)
1731: THEN
1732: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_LATEST_REV');
1733: FND_MSG_PUB.ADD;
1734: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1735: THEN
1736: fnd_log.message
1737: (
1742: END IF;
1743: END IF;
1744:
1745: -- Check Error Message stack.
1746: x_msg_count := FND_MSG_PUB.count_msg;
1747: IF x_msg_count > 0 THEN
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750:
1847: p_x_node_rec => l_node_rec
1848: );
1849:
1850: -- Check Error Message stack.
1851: x_msg_count := FND_MSG_PUB.count_msg;
1852: IF x_msg_count > 0 THEN
1853: RAISE FND_API.G_EXC_ERROR;
1854: END IF;
1855:
1891: x_msg_data => l_msg_data
1892: );
1893:
1894: -- Check Error Message stack.
1895: x_msg_count := FND_MSG_PUB.count_msg;
1896: IF x_msg_count > 0 THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899:
1923: p_node_copy => FALSE
1924: );
1925:
1926: -- Check Error Message stack.
1927: x_msg_count := FND_MSG_PUB.count_msg;
1928: IF x_msg_count > 0 THEN
1929: RAISE FND_API.G_EXC_ERROR;
1930: END IF;
1931:
1953: p_to_mc_header_id => p_x_mc_header_id
1954: );
1955:
1956: -- Check Error Message stack.
1957: x_msg_count := FND_MSG_PUB.count_msg;
1958: IF x_msg_count > 0 THEN
1959: RAISE FND_API.G_EXC_ERROR;
1960: END IF;
1961:
1983: p_to_mc_header_id => p_x_mc_header_id
1984: );
1985:
1986: -- Check Error Message stack.
1987: x_msg_count := FND_MSG_PUB.count_msg;
1988: IF x_msg_count > 0 THEN
1989: RAISE FND_API.G_EXC_ERROR;
1990: END IF;
1991:
2000: END IF;
2001: -- API body ends here
2002:
2003: -- Check Error Message stack.
2004: x_msg_count := FND_MSG_PUB.count_msg;
2005: IF x_msg_count > 0 THEN
2006: RAISE FND_API.G_EXC_ERROR;
2007: END IF;
2008:
2012: COMMIT WORK;
2013: END IF;
2014:
2015: -- Standard call to get message count and if count is 1, get message info
2016: FND_MSG_PUB.count_and_get
2017: (
2018: p_count => x_msg_count,
2019: p_data => x_msg_data,
2020: p_encoded => FND_API.G_FALSE
2023: EXCEPTION
2024: WHEN FND_API.G_EXC_ERROR THEN
2025: x_return_status := FND_API.G_RET_STS_ERROR;
2026: Rollback to Create_MC_Revision_SP;
2027: FND_MSG_PUB.count_and_get
2028: (
2029: p_count => x_msg_count,
2030: p_data => x_msg_data,
2031: p_encoded => FND_API.G_FALSE
2033:
2034: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2036: Rollback to Create_MC_Revision_SP;
2037: FND_MSG_PUB.count_and_get
2038: (
2039: p_count => x_msg_count,
2040: p_data => x_msg_data,
2041: p_encoded => FND_API.G_FALSE
2043:
2044: WHEN OTHERS THEN
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2046: Rollback to Create_MC_Revision_SP;
2047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2048: THEN
2049: FND_MSG_PUB.add_exc_msg
2050: (
2051: p_pkg_name => G_PKG_NAME,
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2046: Rollback to Create_MC_Revision_SP;
2047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2048: THEN
2049: FND_MSG_PUB.add_exc_msg
2050: (
2051: p_pkg_name => G_PKG_NAME,
2052: p_procedure_name => 'Create_MC_Revision',
2053: p_error_text => SUBSTR(SQLERRM,1,240)
2052: p_procedure_name => 'Create_MC_Revision',
2053: p_error_text => SUBSTR(SQLERRM,1,240)
2054: );
2055: END IF;
2056: FND_MSG_PUB.count_and_get
2057: (
2058: p_count => x_msg_count,
2059: p_data => x_msg_data,
2060: p_encoded => FND_API.G_FALSE
2151:
2152: -- Initialize message list if p_init_msg_list is set to TRUE
2153: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2154: THEN
2155: FND_MSG_PUB.Initialize;
2156: END IF;
2157:
2158: -- Initialize API return status to success
2159: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: IF NOT (l_config_status_code IN ('CLOSED', 'EXPIRED'))
2182: THEN
2183: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_REOPEN_INV_MC');
2184: FND_MSG_PUB.ADD;
2185: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2186: THEN
2187: fnd_log.message
2188: (
2218: FETCH get_topnode_itemgroup INTO l_item_group_status,l_igp_object_ver_num;
2219: IF (get_topnode_itemgroup%NOTFOUND) THEN
2220: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGROUP_INVALID');
2221: --FND_MESSAGE.Set_Token('ITEM_GRP', l_item_group_name);
2222: FND_MSG_PUB.ADD;
2223: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2224: THEN
2225: fnd_log.message
2226: (
2280: END IF;
2281: -- API body ends here
2282:
2283: -- Check Error Message stack.
2284: x_msg_count := FND_MSG_PUB.count_msg;
2285: IF x_msg_count > 0 THEN
2286: RAISE FND_API.G_EXC_ERROR;
2287: END IF;
2288:
2292: COMMIT WORK;
2293: END IF;
2294:
2295: -- Standard call to get message count and if count is 1, get message info
2296: FND_MSG_PUB.count_and_get
2297: (
2298: p_count => x_msg_count,
2299: p_data => x_msg_data,
2300: p_encoded => FND_API.G_FALSE
2303: EXCEPTION
2304: WHEN FND_API.G_EXC_ERROR THEN
2305: x_return_status := FND_API.G_RET_STS_ERROR;
2306: Rollback to Reopen_Master_Config_SP;
2307: FND_MSG_PUB.count_and_get
2308: (
2309: p_count => x_msg_count,
2310: p_data => x_msg_data,
2311: p_encoded => FND_API.G_FALSE
2313:
2314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2316: Rollback to Reopen_Master_Config_SP;
2317: FND_MSG_PUB.count_and_get
2318: (
2319: p_count => x_msg_count,
2320: p_data => x_msg_data,
2321: p_encoded => FND_API.G_FALSE
2323:
2324: WHEN OTHERS THEN
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2326: Rollback to Reopen_Master_Config_SP;
2327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2328: THEN
2329: FND_MSG_PUB.add_exc_msg
2330: (
2331: p_pkg_name => G_PKG_NAME,
2325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2326: Rollback to Reopen_Master_Config_SP;
2327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2328: THEN
2329: FND_MSG_PUB.add_exc_msg
2330: (
2331: p_pkg_name => G_PKG_NAME,
2332: p_procedure_name => 'Reopen_Master_Config',
2333: p_error_text => SUBSTR(SQLERRM,1,240)
2332: p_procedure_name => 'Reopen_Master_Config',
2333: p_error_text => SUBSTR(SQLERRM,1,240)
2334: );
2335: END IF;
2336: FND_MSG_PUB.count_and_get
2337: (
2338: p_count => x_msg_count,
2339: p_data => x_msg_data,
2340: p_encoded => FND_API.G_FALSE
2382:
2383: -- Initialize message list if p_init_msg_list is set to TRUE
2384: IF FND_API.TO_BOOLEAN(p_init_msg_list)
2385: THEN
2386: FND_MSG_PUB.Initialize;
2387: END IF;
2388:
2389: -- Initialize API return status to success
2390: x_return_status := FND_API.G_RET_STS_SUCCESS;
2406: l_config_status_code := Get_MC_Status(p_mc_header_id);
2407: IF NOT (l_config_status_code IN ('DRAFT', 'APPROVAL_REJECTED'))
2408: THEN
2409: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_WF_STS_INVALID');
2410: FND_MSG_PUB.ADD;
2411: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2412: THEN
2413: fnd_log.message
2414: (
2443: );
2444: END IF;
2445:
2446: -- Check Error Message stack.
2447: x_msg_count := FND_MSG_PUB.count_msg;
2448: IF x_msg_count > 0
2449: THEN
2450: RAISE FND_API.G_EXC_ERROR;
2451: END IF;
2464: x_msg_data => l_msg_data
2465: );
2466:
2467: -- Check Error Message stack.
2468: x_msg_count := FND_MSG_PUB.count_msg;
2469: IF x_msg_count > 0 THEN
2470: RAISE FND_API.G_EXC_ERROR;
2471: END IF;
2472:
2551: END IF;
2552: -- API body ends here
2553:
2554: -- Check Error Message stack.
2555: x_msg_count := FND_MSG_PUB.count_msg;
2556: IF x_msg_count > 0 THEN
2557: RAISE FND_API.G_EXC_ERROR;
2558: END IF;
2559:
2563: COMMIT WORK;
2564: END IF;
2565:
2566: -- Standard call to get message count and if count is 1, get message info
2567: FND_MSG_PUB.count_and_get
2568: (
2569: p_count => x_msg_count,
2570: p_data => x_msg_data,
2571: p_encoded => FND_API.G_FALSE
2574: EXCEPTION
2575: WHEN FND_API.G_EXC_ERROR THEN
2576: x_return_status := FND_API.G_RET_STS_ERROR;
2577: Rollback to Initiate_MC_Approval_SP;
2578: FND_MSG_PUB.count_and_get
2579: (
2580: p_count => x_msg_count,
2581: p_data => x_msg_data,
2582: p_encoded => FND_API.G_FALSE
2584:
2585: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2587: Rollback to Initiate_MC_Approval_SP;
2588: FND_MSG_PUB.count_and_get
2589: (
2590: p_count => x_msg_count,
2591: p_data => x_msg_data,
2592: p_encoded => FND_API.G_FALSE
2594:
2595: WHEN OTHERS THEN
2596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2597: Rollback to Initiate_MC_Approval_SP;
2598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2599: THEN
2600: FND_MSG_PUB.add_exc_msg
2601: (
2602: p_pkg_name => G_PKG_NAME,
2596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2597: Rollback to Initiate_MC_Approval_SP;
2598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2599: THEN
2600: FND_MSG_PUB.add_exc_msg
2601: (
2602: p_pkg_name => G_PKG_NAME,
2603: p_procedure_name => 'Initiate_MC_Approval',
2604: p_error_text => SUBSTR(SQLERRM,1,240)
2603: p_procedure_name => 'Initiate_MC_Approval',
2604: p_error_text => SUBSTR(SQLERRM,1,240)
2605: );
2606: END IF;
2607: FND_MSG_PUB.count_and_get
2608: (
2609: p_count => x_msg_count,
2610: p_data => x_msg_data,
2611: p_encoded => FND_API.G_FALSE
2638: FETCH check_mc_exists INTO l_dummy_number;
2639: IF (check_mc_exists%NOTFOUND)
2640: THEN
2641: FND_MESSAGE.Set_Name('AHL','AHL_MC_NOT_FOUND');
2642: FND_MSG_PUB.ADD;
2643: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2644: THEN
2645: fnd_log.message
2646: (
2653: RAISE FND_API.G_EXC_ERROR;
2654: ELSIF (NVL(p_object_ver_num, l_dummy_number) <> l_dummy_number)
2655: THEN
2656: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2657: FND_MSG_PUB.ADD;
2658: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2659: THEN
2660: fnd_log.message
2661: (
2702: -- Confirm user has entered MC Name, since it is mandatory
2703: IF (RTRIM(p_x_mc_header_rec.name) IS NULL)
2704: THEN
2705: FND_MESSAGE.Set_Name('AHL','AHL_MC_NAME_INVALID');
2706: FND_MSG_PUB.ADD;
2707: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2708: THEN
2709: fnd_log.message
2710: (
2721: FETCH check_mc_name_unique INTO l_dummy_varchar;
2722: IF (check_mc_name_unique%FOUND)
2723: THEN
2724: FND_MESSAGE.Set_Name('AHL','AHL_MC_RNAME_EXISTS');
2725: FND_MSG_PUB.ADD;
2726: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2727: THEN
2728: fnd_log.message
2729: (
2740: FETCH check_mc_name_noupdate INTO l_dummy_name;
2741: IF (l_dummy_name <> p_x_mc_header_rec.name)
2742: THEN
2743: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_RNAME_NOUPDATE');
2744: FND_MSG_PUB.ADD;
2745: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2746: THEN
2747: fnd_log.message
2748: (
2804: FETCH check_mc_revision_unique INTO l_dummy_varchar;
2805: IF (check_mc_revision_unique%FOUND)
2806: THEN
2807: FND_MESSAGE.Set_Name('AHL','AHL_MC_REV_EXISTS');
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2810: THEN
2811: fnd_log.message
2812: (
2837: SELECT TO_NUMBER(SUBSTR(p_x_mc_header_rec.revision,i,1)) INTO l_temp_num FROM DUAL;
2838: END LOOP;
2839:
2840: FND_MESSAGE.Set_Name('AHL','AHL_MC_NO_ALPHA_REV');
2841: FND_MSG_PUB.ADD;
2842: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2843: THEN
2844: fnd_log.message
2845: (
2883: FETCH get_mc_status INTO l_status;
2884: IF (get_mc_status%NOTFOUND)
2885: THEN
2886: FND_MESSAGE.Set_Name('AHL','AHL_MC_NOT_FOUND');
2887: FND_MSG_PUB.ADD;
2888: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2889: THEN
2890: fnd_log.message
2891: (
3032: THEN
3033: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOT_COMP');
3034: FND_MESSAGE.Set_Token('IG_NAME', l_item_group_name);
3035: FND_MESSAGE.Set_Token('POS_REF', l_posref_meaning);
3036: FND_MSG_PUB.ADD;
3037: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3038: THEN
3039: fnd_log.message
3040: (
3073: THEN
3074: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_NOT_COMP');
3075: FND_MESSAGE.Set_Token('MC_NAME', l_mc_name);
3076: FND_MESSAGE.Set_Token('POS_REF', l_posref_meaning);
3077: FND_MSG_PUB.ADD;
3078: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3079: THEN
3080: fnd_log.message
3081: (
3101: IF (l_has_itemgroup = FALSE AND l_has_subconfig = FALSE)
3102: THEN
3103: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_NO_ASSOS');
3104: FND_MESSAGE.Set_Token('POS_REF', l_posref_meaning);
3105: FND_MSG_PUB.ADD;
3106: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3107: THEN
3108: fnd_log.message
3109: (