[Home] [Help]
31: IF ( p_operation_rec.dml_operation <> 'C' AND
32: p_operation_rec.dml_operation <> 'U' ) THEN
33: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML_REC' );
34: FND_MESSAGE.set_token( 'FIELD', p_operation_rec.dml_operation );
35: FND_MSG_PUB.add;
36: x_return_status := FND_API.G_RET_STS_ERROR;
37: END IF;
38:
39: END validate_api_inputs;
111: ELSE
112: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.operation_type );
113: END IF;
114:
115: FND_MSG_PUB.add;
116: END IF;
117:
118: END IF;
119:
147: ELSE
148: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.process );
149: END IF;
150:
151: FND_MSG_PUB.add;
152: END IF;
153:
154: END IF;
155: --bachandr Enigma Phase I changes -- start
183: ELSE
184: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.model_meaning );
185: END IF;
186:
187: FND_MSG_PUB.add;
188: END IF;
189:
190: END IF;
191: --bachandr Enigma Phase I changes -- end
212: ELSE
213: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type_desc );
214: END IF;
215:
216: FND_MSG_PUB.add;
217: END IF;
218:
219: END IF;
220:
248: ELSE
249: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status );
250: END IF;
251:
252: FND_MSG_PUB.add;
253: END IF;
254:
255: END IF;
256:
605: );
606:
607: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
608: FND_MESSAGE.set_name( 'AHL', l_msg_data );
609: FND_MSG_PUB.add;
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: -- Convert G_MISS values to NULL and NULL values to Old values
622: END IF;
623: -- Validation added during 11.5.10 public api changes
624: ELSIF p_x_operation_rec.revision_status_code <> l_old_operation_rec.revision_status_code THEN
625: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
626: FND_MSG_PUB.add;
627: END IF;
628:
629: IF ( p_x_operation_rec.revision_status IS NULL ) THEN
630: p_x_operation_rec.revision_status := l_old_operation_rec.revision_status;
629: IF ( p_x_operation_rec.revision_status IS NULL ) THEN
630: p_x_operation_rec.revision_status := l_old_operation_rec.revision_status;
631: ELSIF p_x_operation_rec.revision_status <> l_old_operation_rec.revision_status THEN
632: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
633: FND_MSG_PUB.add;
634: END IF;
635:
636: IF ( p_x_operation_rec.revision_number IS NULL ) THEN
637: p_x_operation_rec.revision_number := l_old_operation_rec.revision_number;
636: IF ( p_x_operation_rec.revision_number IS NULL ) THEN
637: p_x_operation_rec.revision_number := l_old_operation_rec.revision_number;
638: ELSIF p_x_operation_rec.revision_number <> l_old_operation_rec.revision_number THEN
639: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_REVISION_RO' );
640: FND_MSG_PUB.add;
641: END IF;
642:
643: IF ( p_x_operation_rec.concatenated_segments IS NULL ) THEN
644: p_x_operation_rec.concatenated_segments := l_old_operation_rec.concatenated_segments;
643: IF ( p_x_operation_rec.concatenated_segments IS NULL ) THEN
644: p_x_operation_rec.concatenated_segments := l_old_operation_rec.concatenated_segments;
645: ELSIF p_x_operation_rec.concatenated_segments <> l_old_operation_rec.concatenated_segments THEN
646: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_SEGMENTS_RO' );
647: FND_MSG_PUB.add;
648: END IF;
649:
650: IF ( p_x_operation_rec.revision_status_code = 'DRAFT' OR
651: p_x_operation_rec.revision_status_code = 'APPROVAL_REJECTED' ) THEN
658: p_x_operation_rec.standard_operation_flag := l_old_operation_rec.standard_operation_flag;
659: ELSE
660: IF ( l_read_only_flag = 'Y' ) THEN
661: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STANDARD_OPER_RO' );
662: FND_MSG_PUB.add;
663: END IF;
664: END IF;
665:
666: IF ( p_x_operation_rec.description IS NULL ) THEN
667: p_x_operation_rec.description := l_old_operation_rec.description;
668: ELSE
669: IF ( l_read_only_flag = 'Y' ) THEN
670: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DESC_RO' );
671: FND_MSG_PUB.add;
672: END IF;
673: END IF;
674:
675: IF ( p_x_operation_rec.active_start_date IS NULL ) THEN
676: p_x_operation_rec.active_start_date := l_old_operation_rec.active_start_date;
677: ELSE
678: IF ( l_read_only_flag = 'Y' ) THEN
679: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ST_DATE_RO' );
680: FND_MSG_PUB.add;
681: END IF;
682: END IF;
683:
684: IF ( p_x_operation_rec.active_end_date IS NULL ) THEN
685: p_x_operation_rec.active_end_date := l_old_operation_rec.active_end_date;
686: ELSE
687: IF ( l_read_only_flag = 'Y' ) THEN
688: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
689: FND_MSG_PUB.add;
690: ELSE
691: IF ( p_x_operation_rec.active_end_date = FND_API.G_MISS_DATE ) THEN
692: p_x_operation_rec.active_end_date := null;
693: END IF;
698: p_x_operation_rec.qa_inspection_type := l_old_operation_rec.qa_inspection_type;
699: ELSE
700: IF ( l_read_only_flag = 'Y' ) THEN
701: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
702: FND_MSG_PUB.add;
703: ELSE
704: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
705: p_x_operation_rec.qa_inspection_type := null;
706: END IF;
711: p_x_operation_rec.qa_inspection_type_desc := l_old_operation_rec.qa_inspection_type_desc;
712: ELSE
713: IF ( l_read_only_flag = 'Y' ) THEN
714: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
715: FND_MSG_PUB.add;
716: ELSE
717: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
718: p_x_operation_rec.qa_inspection_type_desc := null;
719: END IF;
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1027: FND_MSG_PUB.add;
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: RETURN;
1030: END IF;
1031:
1039: p_operation_rec.segment15);
1040: FETCH check_segments INTO l_dummy;
1041: IF check_segments%FOUND THEN
1042: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP' );
1043: FND_MSG_PUB.add;
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045: END IF;
1046: CLOSE check_segments;
1047: END IF;
1050: IF ( ( p_operation_rec.dml_operation = 'C' AND
1051: p_operation_rec.revision_status_code IS NULL ) OR
1052: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1053: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1054: FND_MSG_PUB.add;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: END IF;
1057:
1058: -- Check if the Operation Description column contains a null value.
1059: IF ( ( p_operation_rec.dml_operation = 'C' AND
1060: p_operation_rec.description IS NULL ) OR
1061: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1062: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1063: FND_MSG_PUB.add;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: END IF;
1066:
1067: -- Check if the Opeartion Start Date does not column contains a null value.
1068: IF ( ( p_operation_rec.dml_operation = 'C' AND
1069: p_operation_rec.active_start_date IS NULL ) OR
1070: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1071: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1072: FND_MSG_PUB.add;
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074: END IF;
1075:
1076: -- Check if the Standard Operation Flag column contains a null value.
1077: IF ( ( p_operation_rec.dml_operation = 'C' AND
1078: p_operation_rec.standard_operation_flag IS NULL ) OR
1079: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1080: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1081: FND_MSG_PUB.add;
1082: x_return_status := FND_API.G_RET_STS_ERROR;
1083: END IF;
1084:
1085: --bachandr Enigma Phase I changes -- start
1086: IF ( p_operation_rec.dml_operation = 'C' AND p_operation_rec.enigma_op_id IS NOT NULL AND p_operation_rec.model_code IS NULL)
1087: THEN
1088: --throw error if model is null for enigma operations during creation.
1089: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1090: FND_MSG_PUB.add;
1091: x_return_status := FND_API.G_RET_STS_ERROR;
1092: END IF;
1093:
1094: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1100: IF ( p_operation_rec.model_code is null or (l_model_code <> p_operation_rec.model_code))
1101: THEN
1102: --throw error disallowing modification of model
1103: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1104: FND_MSG_PUB.ADD;
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: END IF;
1107: END IF;
1108: --bachandr Enigma Phase I changes -- end
1109: -- Check if the mandatory Operation ID column contains a null value.
1110: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1111: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1112: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1113: FND_MSG_PUB.add;
1114: x_return_status := FND_API.G_RET_STS_ERROR;
1115: END IF;
1116:
1117: -- Check if the mandatory Object Version Number column contains a null value.
1117: -- Check if the mandatory Object Version Number column contains a null value.
1118: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1119: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1120: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1121: FND_MSG_PUB.add;
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: END IF;
1124:
1125: -- Added by Tamal for Bug #3854052
1125: -- Added by Tamal for Bug #3854052
1126: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1127: THEN
1128: FND_MESSAGE.set_name( 'AHL','AHL_RM_OP_STS_NO_UPD' );
1129: FND_MSG_PUB.add;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: END IF;
1132: -- Added by Tamal for Bug #3854052
1133:
1137: FETCH validate_oper_ovn INTO l_dummy;
1138: IF (validate_oper_ovn%NOTFOUND)
1139: THEN
1140: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1141: FND_MSG_PUB.add;
1142: END IF;
1143: END IF;
1144:
1145: END validate_attributes;
1198: /*
1199: IF trunc(p_operation_rec.active_start_date) < trunc(SYSDATE) THEN
1200: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
1201: FND_MESSAGE.set_token('FIELD',trunc(SYSDATE));
1202: FND_MSG_PUB.add;
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: */
1205: -- Check if Active start date is less than the active start date of the operation's
1206: -- previous version (if it is existing) when updating the operation
1213: CLOSE check_previous_start_date;
1214: IF trunc(p_operation_rec.active_start_date) < trunc(l_start_date) THEN
1215: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_LESSER' );
1216: FND_MESSAGE.set_token('FIELD',trunc(l_start_date));
1217: FND_MSG_PUB.add;
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219: END IF;
1220: END IF;
1221: END IF;
1233:
1234: IF ( get_dup_rec%FOUND ) THEN
1235: IF ( l_operation_id <> p_operation_rec.operation_id ) THEN
1236: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1237: FND_MSG_PUB.add;
1238: END IF;
1239: END IF;
1240:
1241: CLOSE get_dup_rec;
1283: END IF;
1284:
1285: -- Initialize message list if p_init_msg_list is set to TRUE.
1286: IF FND_API.to_boolean( p_init_msg_list ) THEN
1287: FND_MSG_PUB.initialize;
1288: END IF;
1289:
1290: IF G_DEBUG = 'Y' THEN
1291: AHL_DEBUG_PUB.enable_debug;
1424: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after validate_record' );
1425: END IF;
1426:
1427: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1428: l_msg_count := FND_MSG_PUB.count_msg;
1429: IF l_msg_count > 0 THEN
1430: x_msg_count := l_msg_count;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1504:
1505: EXCEPTION
1506: WHEN NO_DATA_FOUND THEN
1507: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1508: FND_MSG_PUB.add;
1509: WHEN OTHERS THEN
1510: IF ( SQLCODE = -1 ) THEN
1511: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1512: FND_MSG_PUB.add;
1508: FND_MSG_PUB.add;
1509: WHEN OTHERS THEN
1510: IF ( SQLCODE = -1 ) THEN
1511: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1512: FND_MSG_PUB.add;
1513: ELSE
1514: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1515: THEN
1516: fnd_log.string
1589:
1590: EXCEPTION
1591: WHEN NO_DATA_FOUND THEN
1592: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1593: FND_MSG_PUB.add;
1594: WHEN OTHERS THEN
1595: IF ( SQLCODE = -1 ) THEN
1596: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1597: FND_MSG_PUB.add;
1593: FND_MSG_PUB.add;
1594: WHEN OTHERS THEN
1595: IF ( SQLCODE = -1 ) THEN
1596: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1597: FND_MSG_PUB.add;
1598: ELSE
1599: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1600: THEN
1601: fnd_log.string
1614: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
1615: END IF;
1616:
1617: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1618: l_msg_count := FND_MSG_PUB.count_msg;
1619: IF l_msg_count > 0 THEN
1620: x_msg_count := l_msg_count;
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1626: COMMIT WORK;
1627: END IF;
1628:
1629: -- Count and Get messages (optional)
1630: FND_MSG_PUB.count_and_get
1631: (
1632: p_encoded => FND_API.G_FALSE,
1633: p_count => x_msg_count,
1634: p_data => x_msg_data
1643:
1644: WHEN FND_API.G_EXC_ERROR THEN
1645: ROLLBACK TO process_OPERATION_PVT;
1646: x_return_status := FND_API.G_RET_STS_ERROR ;
1647: FND_MSG_PUB.count_and_get
1648: (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1658:
1659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1660: ROLLBACK TO process_OPERATION_PVT;
1661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1662: FND_MSG_PUB.count_and_get
1663: (
1664: p_encoded => FND_API.G_FALSE,
1665: p_count => x_msg_count,
1666: p_data => x_msg_data
1672: END IF;
1673: WHEN OTHERS THEN
1674: ROLLBACK TO process_OPERATION_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1676: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1677: THEN
1678: FND_MSG_PUB.add_exc_msg
1679: (
1680: p_pkg_name => G_PKG_NAME,
1674: ROLLBACK TO process_OPERATION_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1676: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1677: THEN
1678: FND_MSG_PUB.add_exc_msg
1679: (
1680: p_pkg_name => G_PKG_NAME,
1681: p_procedure_name => l_api_name,
1682: p_error_text => SUBSTRB(SQLERRM,1,240)
1681: p_procedure_name => l_api_name,
1682: p_error_text => SUBSTRB(SQLERRM,1,240)
1683: );
1684: END IF;
1685: FND_MSG_PUB.count_and_get
1686: (
1687: p_encoded => FND_API.G_FALSE,
1688: p_count => x_msg_count,
1689: p_data => x_msg_data
1755: END IF;
1756:
1757: -- Initialize message list if p_init_msg_list is set to TRUE.
1758: IF FND_API.to_boolean( p_init_msg_list ) THEN
1759: FND_MSG_PUB.initialize;
1760: END IF;
1761:
1762: IF G_DEBUG = 'Y' THEN
1763: AHL_DEBUG_PUB.enable_debug;
1768: p_operation_id = FND_API.G_MISS_NUM OR
1769: p_object_version_number IS NULL OR
1770: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1771: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1772: FND_MSG_PUB.add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775:
1776: OPEN validate_oper_ovn;
1777: FETCH validate_oper_ovn INTO l_dummy;
1778: IF (validate_oper_ovn%NOTFOUND)
1779: THEN
1780: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1781: FND_MSG_PUB.add;
1782: END IF;
1783: --bachandr Enigma Phase I changes -- start
1784: -- Fire the validation only if the call is from the CMRO end.
1785: IF (p_module_type <> 'ENIGMA' ) THEN
1790: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1791: THEN
1792: --if the operation is from enigma do not allow deletion.
1793: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1794: FND_MSG_PUB.ADD;
1795: RAISE FND_API.G_EXC_ERROR;
1796: END IF;
1797: END IF;
1798: --bachandr Enigma Phase I changes -- end
1810: ELSE
1811: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1812: END IF;
1813:
1814: FND_MSG_PUB.add;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817:
1818: BEGIN
1824:
1825: EXCEPTION
1826: WHEN NO_DATA_FOUND THEN
1827: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1828: FND_MSG_PUB.add;
1829: RAISE FND_API.G_EXC_ERROR;
1830: WHEN OTHERS THEN
1831: RAISE;
1832: END;
1913: COMMIT WORK;
1914: END IF;
1915:
1916: -- Count and Get messages (optional)
1917: FND_MSG_PUB.count_and_get
1918: (
1919: p_encoded => FND_API.G_FALSE,
1920: p_count => x_msg_count,
1921: p_data => x_msg_data
1929:
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO delete_OPERATION_PVT;
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: FND_MSG_PUB.count_and_get
1934: (
1935: p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data
1943: END IF;
1944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1945: ROLLBACK TO delete_OPERATION_PVT;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1947: FND_MSG_PUB.count_and_get
1948: (
1949: p_encoded => FND_API.G_FALSE,
1950: p_count => x_msg_count,
1951: p_data => x_msg_data
1957: END IF;
1958: WHEN OTHERS THEN
1959: ROLLBACK TO delete_OPERATION_PVT;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1962: THEN
1963: FND_MSG_PUB.add_exc_msg
1964: (
1965: p_pkg_name => G_PKG_NAME,
1959: ROLLBACK TO delete_OPERATION_PVT;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1962: THEN
1963: FND_MSG_PUB.add_exc_msg
1964: (
1965: p_pkg_name => G_PKG_NAME,
1966: p_procedure_name => l_api_name,
1967: p_error_text => SUBSTRB(SQLERRM,1,240)
1966: p_procedure_name => l_api_name,
1967: p_error_text => SUBSTRB(SQLERRM,1,240)
1968: );
1969: END IF;
1970: FND_MSG_PUB.count_and_get
1971: (
1972: p_encoded => FND_API.G_FALSE,
1973: p_count => x_msg_count,
1974: p_data => x_msg_data
2105: END IF;
2106:
2107: -- Initialize message list if p_init_msg_list is set to TRUE.
2108: IF FND_API.to_boolean( p_init_msg_list ) THEN
2109: FND_MSG_PUB.initialize;
2110: END IF;
2111:
2112: IF G_DEBUG = 'Y' THEN
2113: AHL_DEBUG_PUB.enable_debug;
2118: p_operation_id = FND_API.G_MISS_NUM OR
2119: p_object_version_number IS NULL OR
2120: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2121: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2122: FND_MSG_PUB.add;
2123: RAISE FND_API.G_EXC_ERROR;
2124: END IF;
2125:
2126: get_operation_record
2133: );
2134:
2135: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2136: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2137: FND_MSG_PUB.add;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2140:
2141: -- Check if the Status is COMPLETE
2141: -- Check if the Status is COMPLETE
2142: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2143: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_COMPLETE' );
2144: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2145: FND_MSG_PUB.add;
2146: RAISE FND_API.G_EXC_ERROR;
2147: END IF;
2148:
2149: -- Check if active end date is set
2150: IF l_old_operation_rec.active_end_date is not null THEN
2151: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
2152: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments )
2153: ;
2154: FND_MSG_PUB.add;
2155: RAISE FND_API.G_EXC_ERROR;
2156: END IF;
2157:
2158: -- Check if this revision is the latest complete revision of this Operation
2162:
2163: IF ( l_revision_number <> l_old_operation_rec.revision_number ) THEN
2164: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_REVISION_NOT_LATEST' );
2165: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2166: FND_MSG_PUB.add;
2167: CLOSE get_latest_revision;
2168: RAISE FND_API.G_EXC_ERROR;
2169: END IF;
2170:
2248:
2249: EXCEPTION
2250: WHEN NO_DATA_FOUND THEN
2251: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2252: FND_MSG_PUB.add;
2253: WHEN OTHERS THEN
2254: IF ( SQLCODE = -1 ) THEN
2255: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
2256: FND_MSG_PUB.add;
2252: FND_MSG_PUB.add;
2253: WHEN OTHERS THEN
2254: IF ( SQLCODE = -1 ) THEN
2255: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
2256: FND_MSG_PUB.add;
2257: ELSE
2258: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2259: THEN
2260: fnd_log.string
2665: COMMIT WORK;
2666: END IF;
2667:
2668: -- Count and Get messages (optional)
2669: FND_MSG_PUB.count_and_get
2670: (
2671: p_encoded => FND_API.G_FALSE,
2672: p_count => x_msg_count,
2673: p_data => x_msg_data
2681:
2682: WHEN FND_API.G_EXC_ERROR THEN
2683: ROLLBACK TO create_oper_revision_PVT;
2684: x_return_status := FND_API.G_RET_STS_ERROR ;
2685: FND_MSG_PUB.count_and_get
2686: (
2687: p_encoded => FND_API.G_FALSE,
2688: p_count => x_msg_count,
2689: p_data => x_msg_data
2695: END IF;
2696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2697: ROLLBACK TO create_oper_revision_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2699: FND_MSG_PUB.count_and_get
2700: (
2701: p_encoded => FND_API.G_FALSE,
2702: p_count => x_msg_count,
2703: p_data => x_msg_data
2709: END IF;
2710: WHEN OTHERS THEN
2711: ROLLBACK TO create_oper_revision_PVT;
2712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2713: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2714: THEN
2715: FND_MSG_PUB.add_exc_msg
2716: (
2717: p_pkg_name => G_PKG_NAME,
2711: ROLLBACK TO create_oper_revision_PVT;
2712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2713: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2714: THEN
2715: FND_MSG_PUB.add_exc_msg
2716: (
2717: p_pkg_name => G_PKG_NAME,
2718: p_procedure_name => l_api_name,
2719: p_error_text => SUBSTRB(SQLERRM,1,240)
2718: p_procedure_name => l_api_name,
2719: p_error_text => SUBSTRB(SQLERRM,1,240)
2720: );
2721: END IF;
2722: FND_MSG_PUB.count_and_get
2723: (
2724: p_encoded => FND_API.G_FALSE,
2725: p_count => x_msg_count,
2726: p_data => x_msg_data