[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
215: ELSE
216: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type_desc );
217: END IF;
218:
219: FND_MSG_PUB.add;
220: END IF;
221:
222: END IF;
223:
251: ELSE
252: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status );
253: END IF;
254:
255: FND_MSG_PUB.add;
256: END IF;
257:
258: END IF;
259:
639: );
640:
641: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
642: FND_MESSAGE.set_name( 'AHL', l_msg_data );
643: FND_MSG_PUB.add;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: -- Convert G_MISS values to NULL and NULL values to Old values
656: END IF;
657: -- Validation added during 11.5.10 public api changes
658: ELSIF p_x_operation_rec.revision_status_code <> l_old_operation_rec.revision_status_code THEN
659: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
660: FND_MSG_PUB.add;
661: END IF;
662:
663: IF ( p_x_operation_rec.revision_status IS NULL ) THEN
664: p_x_operation_rec.revision_status := l_old_operation_rec.revision_status;
663: IF ( p_x_operation_rec.revision_status IS NULL ) THEN
664: p_x_operation_rec.revision_status := l_old_operation_rec.revision_status;
665: ELSIF p_x_operation_rec.revision_status <> l_old_operation_rec.revision_status THEN
666: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
667: FND_MSG_PUB.add;
668: END IF;
669:
670: IF ( p_x_operation_rec.revision_number IS NULL ) THEN
671: p_x_operation_rec.revision_number := l_old_operation_rec.revision_number;
670: IF ( p_x_operation_rec.revision_number IS NULL ) THEN
671: p_x_operation_rec.revision_number := l_old_operation_rec.revision_number;
672: ELSIF p_x_operation_rec.revision_number <> l_old_operation_rec.revision_number THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_REVISION_RO' );
674: FND_MSG_PUB.add;
675: END IF;
676:
677: IF ( p_x_operation_rec.concatenated_segments IS NULL ) THEN
678: p_x_operation_rec.concatenated_segments := l_old_operation_rec.concatenated_segments;
677: IF ( p_x_operation_rec.concatenated_segments IS NULL ) THEN
678: p_x_operation_rec.concatenated_segments := l_old_operation_rec.concatenated_segments;
679: ELSIF p_x_operation_rec.concatenated_segments <> l_old_operation_rec.concatenated_segments THEN
680: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_SEGMENTS_RO' );
681: FND_MSG_PUB.add;
682: END IF;
683:
684: IF ( p_x_operation_rec.revision_status_code = 'DRAFT' OR
685: p_x_operation_rec.revision_status_code = 'APPROVAL_REJECTED' ) THEN
692: p_x_operation_rec.standard_operation_flag := l_old_operation_rec.standard_operation_flag;
693: ELSE
694: IF ( l_read_only_flag = 'Y' ) THEN
695: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STANDARD_OPER_RO' );
696: FND_MSG_PUB.add;
697: END IF;
698: END IF;
699:
700: IF ( p_x_operation_rec.description IS NULL ) THEN
701: p_x_operation_rec.description := l_old_operation_rec.description;
702: ELSE
703: IF ( l_read_only_flag = 'Y' ) THEN
704: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DESC_RO' );
705: FND_MSG_PUB.add;
706: END IF;
707: END IF;
708:
709: IF ( p_x_operation_rec.active_start_date IS NULL ) THEN
710: p_x_operation_rec.active_start_date := l_old_operation_rec.active_start_date;
711: ELSE
712: IF ( l_read_only_flag = 'Y' ) THEN
713: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ST_DATE_RO' );
714: FND_MSG_PUB.add;
715: END IF;
716: END IF;
717:
718: IF ( p_x_operation_rec.active_end_date IS NULL ) THEN
719: p_x_operation_rec.active_end_date := l_old_operation_rec.active_end_date;
720: ELSE
721: IF ( l_read_only_flag = 'Y' ) THEN
722: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
723: FND_MSG_PUB.add;
724: ELSE
725: IF ( p_x_operation_rec.active_end_date = FND_API.G_MISS_DATE ) THEN
726: p_x_operation_rec.active_end_date := null;
727: END IF;
732: p_x_operation_rec.qa_inspection_type := l_old_operation_rec.qa_inspection_type;
733: ELSE
734: IF ( l_read_only_flag = 'Y' ) THEN
735: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
736: FND_MSG_PUB.add;
737: ELSE
738: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
739: p_x_operation_rec.qa_inspection_type := null;
740: END IF;
745: p_x_operation_rec.qa_inspection_type_desc := l_old_operation_rec.qa_inspection_type_desc;
746: ELSE
747: IF ( l_read_only_flag = 'Y' ) THEN
748: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
749: FND_MSG_PUB.add;
750: ELSE
751: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
752: p_x_operation_rec.qa_inspection_type_desc := null;
753: END IF;
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1098: FND_MSG_PUB.add;
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1100: RETURN;
1101: END IF;
1102:
1110: p_operation_rec.segment15);
1111: FETCH check_segments INTO l_dummy;
1112: IF check_segments%FOUND THEN
1113: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP' );
1114: FND_MSG_PUB.add;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: END IF;
1117: CLOSE check_segments;
1118: END IF;
1121: IF ( ( p_operation_rec.dml_operation = 'C' AND
1122: p_operation_rec.revision_status_code IS NULL ) OR
1123: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1124: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1125: FND_MSG_PUB.add;
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: END IF;
1128:
1129: -- Check if the Operation Description column contains a null value.
1130: IF ( ( p_operation_rec.dml_operation = 'C' AND
1131: p_operation_rec.description IS NULL ) OR
1132: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1133: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1134: FND_MSG_PUB.add;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: END IF;
1137:
1138: -- Check if the Opeartion Start Date does not column contains a null value.
1139: IF ( ( p_operation_rec.dml_operation = 'C' AND
1140: p_operation_rec.active_start_date IS NULL ) OR
1141: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1142: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1143: FND_MSG_PUB.add;
1144: x_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1146:
1147: -- Check if the Standard Operation Flag column contains a null value.
1148: IF ( ( p_operation_rec.dml_operation = 'C' AND
1149: p_operation_rec.standard_operation_flag IS NULL ) OR
1150: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1151: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1152: FND_MSG_PUB.add;
1153: x_return_status := FND_API.G_RET_STS_ERROR;
1154: END IF;
1155:
1156: --pekambar changed in Enigma phase -2 -- Start
1161: 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)
1162: THEN
1163: --throw error if model is null for enigma operations during creation.
1164: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1165: FND_MSG_PUB.add;
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: END IF;
1168:
1169: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1175: IF ( p_operation_rec.model_code is null or (l_model_code <> p_operation_rec.model_code))
1176: THEN
1177: --throw error disallowing modification of model
1178: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1179: FND_MSG_PUB.ADD;
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: END IF;
1182: END IF;
1183: --bachandr Enigma Phase I changes -- end
1186: --throw error if model is null for enigma operations during creation.
1187: IF ( p_operation_rec.dml_operation = 'C' AND (p_operation_rec.enigma_op_id IS NOT NULL OR p_operation_rec.enigmatype_code = 'MANUAL') AND p_operation_rec.model_code IS NULL)
1188: THEN
1189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1190: FND_MSG_PUB.add;
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: END IF;
1193:
1194: --to do validatiioon against manual operations to make enigma doc id and model
1204: IF ( p_operation_rec.model_code is null or (l_model_code <> p_operation_rec.model_code))
1205: THEN
1206: --throw error disallowing modification of model
1207: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1208: FND_MSG_PUB.ADD;
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: END IF;
1211:
1212: IF ( p_operation_rec.enigma_doc_id is null or (l_enigma_doc_id <> p_operation_rec.enigma_doc_id))
1212: IF ( p_operation_rec.enigma_doc_id is null or (l_enigma_doc_id <> p_operation_rec.enigma_doc_id))
1213: THEN
1214: --throw error disallowing modification of Enigma Document Id
1215: FND_MESSAGE.SET_NAME('AHL','AHL_RM_ENIGMA_DOC_ID_OP');
1216: FND_MSG_PUB.ADD;
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: END IF;
1219: ELSIF(p_operation_rec.enigmatype_code = 'MANUAL')
1220: THEN
1221: IF ( p_operation_rec.model_code is null)
1222: THEN
1223: --throw error disallowing modification of model
1224: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_CODE_NULL_OP');
1225: FND_MSG_PUB.ADD;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: END IF;
1228: END IF;
1229:
1234: -- Check if the mandatory Operation ID column contains a null value.
1235: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1236: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1237: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1238: FND_MSG_PUB.add;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: END IF;
1241:
1242: -- Check if the mandatory Object Version Number column contains a null value.
1242: -- Check if the mandatory Object Version Number column contains a null value.
1243: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1244: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1245: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1246: FND_MSG_PUB.add;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: END IF;
1249:
1250: -- Added by Tamal for Bug #3854052
1250: -- Added by Tamal for Bug #3854052
1251: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1252: THEN
1253: FND_MESSAGE.set_name( 'AHL','AHL_RM_OP_STS_NO_UPD' );
1254: FND_MSG_PUB.add;
1255: x_return_status := FND_API.G_RET_STS_ERROR;
1256: END IF;
1257: -- Added by Tamal for Bug #3854052
1258:
1262: FETCH validate_oper_ovn INTO l_dummy;
1263: IF (validate_oper_ovn%NOTFOUND)
1264: THEN
1265: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1266: FND_MSG_PUB.add;
1267: END IF;
1268: END IF;
1269:
1270: END validate_attributes;
1323: /*
1324: IF trunc(p_operation_rec.active_start_date) < trunc(SYSDATE) THEN
1325: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
1326: FND_MESSAGE.set_token('FIELD',trunc(SYSDATE));
1327: FND_MSG_PUB.add;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: */
1330: -- Check if Active start date is less than the active start date of the operation's
1331: -- previous version (if it is existing) when updating the operation
1338: CLOSE check_previous_start_date;
1339: IF trunc(p_operation_rec.active_start_date) < trunc(l_start_date) THEN
1340: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_LESSER' );
1341: FND_MESSAGE.set_token('FIELD',trunc(l_start_date));
1342: FND_MSG_PUB.add;
1343: x_return_status := FND_API.G_RET_STS_ERROR;
1344: END IF;
1345: END IF;
1346: END IF;
1358:
1359: IF ( get_dup_rec%FOUND ) THEN
1360: IF ( l_operation_id <> p_operation_rec.operation_id ) THEN
1361: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1362: FND_MSG_PUB.add;
1363: END IF;
1364: END IF;
1365:
1366: CLOSE get_dup_rec;
1411: END IF;
1412:
1413: -- Initialize message list if p_init_msg_list is set to TRUE.
1414: IF FND_API.to_boolean( p_init_msg_list ) THEN
1415: FND_MSG_PUB.initialize;
1416: END IF;
1417:
1418: IF G_DEBUG = 'Y' THEN
1419: AHL_DEBUG_PUB.enable_debug;
1613: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after validate_record' );
1614: END IF;
1615:
1616: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1617: l_msg_count := FND_MSG_PUB.count_msg;
1618: IF l_msg_count > 0 THEN
1619: x_msg_count := l_msg_count;
1620: RAISE FND_API.G_EXC_ERROR;
1621: END IF;
1697:
1698: EXCEPTION
1699: WHEN NO_DATA_FOUND THEN
1700: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1701: FND_MSG_PUB.add;
1702: WHEN OTHERS THEN
1703: IF ( SQLCODE = -1 ) THEN
1704: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1705: FND_MSG_PUB.add;
1701: FND_MSG_PUB.add;
1702: WHEN OTHERS THEN
1703: IF ( SQLCODE = -1 ) THEN
1704: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1705: FND_MSG_PUB.add;
1706: ELSE
1707: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1708: THEN
1709: fnd_log.string
1791:
1792: EXCEPTION
1793: WHEN NO_DATA_FOUND THEN
1794: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1795: FND_MSG_PUB.add;
1796: WHEN OTHERS THEN
1797: IF ( SQLCODE = -1 ) THEN
1798: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1799: FND_MSG_PUB.add;
1795: FND_MSG_PUB.add;
1796: WHEN OTHERS THEN
1797: IF ( SQLCODE = -1 ) THEN
1798: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
1799: FND_MSG_PUB.add;
1800: ELSE
1801: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1802: THEN
1803: fnd_log.string
1816: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
1817: END IF;
1818:
1819: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1820: l_msg_count := FND_MSG_PUB.count_msg;
1821: IF l_msg_count > 0 THEN
1822: x_msg_count := l_msg_count;
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1828: COMMIT WORK;
1829: END IF;
1830:
1831: -- Count and Get messages (optional)
1832: FND_MSG_PUB.count_and_get
1833: (
1834: p_encoded => FND_API.G_FALSE,
1835: p_count => x_msg_count,
1836: p_data => x_msg_data
1845:
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: ROLLBACK TO process_OPERATION_PVT;
1848: x_return_status := FND_API.G_RET_STS_ERROR ;
1849: FND_MSG_PUB.count_and_get
1850: (
1851: p_encoded => FND_API.G_FALSE,
1852: p_count => x_msg_count,
1853: p_data => x_msg_data
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862: ROLLBACK TO process_OPERATION_PVT;
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: FND_MSG_PUB.count_and_get
1865: (
1866: p_encoded => FND_API.G_FALSE,
1867: p_count => x_msg_count,
1868: p_data => x_msg_data
1874: END IF;
1875: WHEN OTHERS THEN
1876: ROLLBACK TO process_OPERATION_PVT;
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1878: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1879: THEN
1880: FND_MSG_PUB.add_exc_msg
1881: (
1882: p_pkg_name => G_PKG_NAME,
1876: ROLLBACK TO process_OPERATION_PVT;
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1878: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1879: THEN
1880: FND_MSG_PUB.add_exc_msg
1881: (
1882: p_pkg_name => G_PKG_NAME,
1883: p_procedure_name => l_api_name,
1884: p_error_text => SUBSTRB(SQLERRM,1,240)
1883: p_procedure_name => l_api_name,
1884: p_error_text => SUBSTRB(SQLERRM,1,240)
1885: );
1886: END IF;
1887: FND_MSG_PUB.count_and_get
1888: (
1889: p_encoded => FND_API.G_FALSE,
1890: p_count => x_msg_count,
1891: p_data => x_msg_data
1957: END IF;
1958:
1959: -- Initialize message list if p_init_msg_list is set to TRUE.
1960: IF FND_API.to_boolean( p_init_msg_list ) THEN
1961: FND_MSG_PUB.initialize;
1962: END IF;
1963:
1964: IF G_DEBUG = 'Y' THEN
1965: AHL_DEBUG_PUB.enable_debug;
1970: p_operation_id = FND_API.G_MISS_NUM OR
1971: p_object_version_number IS NULL OR
1972: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1973: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1974: FND_MSG_PUB.add;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977:
1978: OPEN validate_oper_ovn;
1979: FETCH validate_oper_ovn INTO l_dummy;
1980: IF (validate_oper_ovn%NOTFOUND)
1981: THEN
1982: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1983: FND_MSG_PUB.add;
1984: END IF;
1985: --bachandr Enigma Phase I changes -- start
1986: -- Fire the validation only if the call is from the CMRO end.
1987: --pekambar chaned in Enigma Phase - 2
1994: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1995: THEN
1996: --if the operation is from enigma do not allow deletion.
1997: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1998: FND_MSG_PUB.ADD;
1999: RAISE FND_API.G_EXC_ERROR;
2000: END IF;
2001: END IF;
2002: --bachandr Enigma Phase I changes -- end
2014: ELSE
2015: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2016: END IF;
2017:
2018: FND_MSG_PUB.add;
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021:
2022: BEGIN
2028:
2029: EXCEPTION
2030: WHEN NO_DATA_FOUND THEN
2031: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2032: FND_MSG_PUB.add;
2033: RAISE FND_API.G_EXC_ERROR;
2034: WHEN OTHERS THEN
2035: RAISE;
2036: END;
2117: COMMIT WORK;
2118: END IF;
2119:
2120: -- Count and Get messages (optional)
2121: FND_MSG_PUB.count_and_get
2122: (
2123: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data
2133:
2134: WHEN FND_API.G_EXC_ERROR THEN
2135: ROLLBACK TO delete_OPERATION_PVT;
2136: x_return_status := FND_API.G_RET_STS_ERROR ;
2137: FND_MSG_PUB.count_and_get
2138: (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2141: p_data => x_msg_data
2147: END IF;
2148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2149: ROLLBACK TO delete_OPERATION_PVT;
2150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2151: FND_MSG_PUB.count_and_get
2152: (
2153: p_encoded => FND_API.G_FALSE,
2154: p_count => x_msg_count,
2155: p_data => x_msg_data
2161: END IF;
2162: WHEN OTHERS THEN
2163: ROLLBACK TO delete_OPERATION_PVT;
2164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2165: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2166: THEN
2167: FND_MSG_PUB.add_exc_msg
2168: (
2169: p_pkg_name => G_PKG_NAME,
2163: ROLLBACK TO delete_OPERATION_PVT;
2164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2165: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2166: THEN
2167: FND_MSG_PUB.add_exc_msg
2168: (
2169: p_pkg_name => G_PKG_NAME,
2170: p_procedure_name => l_api_name,
2171: p_error_text => SUBSTRB(SQLERRM,1,240)
2170: p_procedure_name => l_api_name,
2171: p_error_text => SUBSTRB(SQLERRM,1,240)
2172: );
2173: END IF;
2174: FND_MSG_PUB.count_and_get
2175: (
2176: p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => x_msg_data
2309: END IF;
2310:
2311: -- Initialize message list if p_init_msg_list is set to TRUE.
2312: IF FND_API.to_boolean( p_init_msg_list ) THEN
2313: FND_MSG_PUB.initialize;
2314: END IF;
2315:
2316: IF G_DEBUG = 'Y' THEN
2317: AHL_DEBUG_PUB.enable_debug;
2322: p_operation_id = FND_API.G_MISS_NUM OR
2323: p_object_version_number IS NULL OR
2324: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2325: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2326: FND_MSG_PUB.add;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2329:
2330: get_operation_record
2337: );
2338:
2339: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2340: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2341: FND_MSG_PUB.add;
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344:
2345: -- Check if the Status is COMPLETE
2345: -- Check if the Status is COMPLETE
2346: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2347: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_COMPLETE' );
2348: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2349: FND_MSG_PUB.add;
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2352:
2353: -- Check if active end date is set
2354: IF l_old_operation_rec.active_end_date is not null THEN
2355: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
2356: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments )
2357: ;
2358: FND_MSG_PUB.add;
2359: RAISE FND_API.G_EXC_ERROR;
2360: END IF;
2361:
2362: -- Check if this revision is the latest complete revision of this Operation
2366:
2367: IF ( l_revision_number <> l_old_operation_rec.revision_number ) THEN
2368: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_REVISION_NOT_LATEST' );
2369: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2370: FND_MSG_PUB.add;
2371: CLOSE get_latest_revision;
2372: RAISE FND_API.G_EXC_ERROR;
2373: END IF;
2374:
2456:
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2460: FND_MSG_PUB.add;
2461: WHEN OTHERS THEN
2462: IF ( SQLCODE = -1 ) THEN
2463: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
2464: FND_MSG_PUB.add;
2460: FND_MSG_PUB.add;
2461: WHEN OTHERS THEN
2462: IF ( SQLCODE = -1 ) THEN
2463: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OPERATION_DUP' );
2464: FND_MSG_PUB.add;
2465: ELSE
2466: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
2467: THEN
2468: fnd_log.string
2881: COMMIT WORK;
2882: END IF;
2883:
2884: -- Count and Get messages (optional)
2885: FND_MSG_PUB.count_and_get
2886: (
2887: p_encoded => FND_API.G_FALSE,
2888: p_count => x_msg_count,
2889: p_data => x_msg_data
2897:
2898: WHEN FND_API.G_EXC_ERROR THEN
2899: ROLLBACK TO create_oper_revision_PVT;
2900: x_return_status := FND_API.G_RET_STS_ERROR ;
2901: FND_MSG_PUB.count_and_get
2902: (
2903: p_encoded => FND_API.G_FALSE,
2904: p_count => x_msg_count,
2905: p_data => x_msg_data
2911: END IF;
2912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2913: ROLLBACK TO create_oper_revision_PVT;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2915: FND_MSG_PUB.count_and_get
2916: (
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data
2925: END IF;
2926: WHEN OTHERS THEN
2927: ROLLBACK TO create_oper_revision_PVT;
2928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2929: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2930: THEN
2931: FND_MSG_PUB.add_exc_msg
2932: (
2933: p_pkg_name => G_PKG_NAME,
2927: ROLLBACK TO create_oper_revision_PVT;
2928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2929: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2930: THEN
2931: FND_MSG_PUB.add_exc_msg
2932: (
2933: p_pkg_name => G_PKG_NAME,
2934: p_procedure_name => l_api_name,
2935: p_error_text => SUBSTRB(SQLERRM,1,240)
2934: p_procedure_name => l_api_name,
2935: p_error_text => SUBSTRB(SQLERRM,1,240)
2936: );
2937: END IF;
2938: FND_MSG_PUB.count_and_get
2939: (
2940: p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data