[Home] [Help]
35: )
36: THEN
37: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML_REC' );
38: FND_MESSAGE.set_token( 'FIELD', p_route_rec.dml_operation );
39: FND_MSG_PUB.add;
40: x_return_status := FND_API.G_RET_STS_ERROR;
41: RETURN;
42: END IF;
43:
175: ELSE
176: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.route_type );
177: END IF;
178:
179: FND_MSG_PUB.add;
180: END IF;
181:
182: END IF;
183:
212: ELSE
213: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.model_meaning );
214: END IF;
215:
216: FND_MSG_PUB.add;
217: END IF;
218:
219: END IF;
220: --bachandr Enigma Phase I changes -- end
249: ELSE
250: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.process );
251: END IF;
252:
253: FND_MSG_PUB.add;
254: END IF;
255:
256: END IF;
257:
285: ELSE
286: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.product_type );
287: END IF;
288:
289: FND_MSG_PUB.add;
290: END IF;
291:
292: END IF;
293:
314: ELSE
315: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.operator_name );
316: END IF;
317:
318: FND_MSG_PUB.add;
319: END IF;
320:
321: END IF;
322:
350: ELSE
351: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.zone );
352: END IF;
353:
354: FND_MSG_PUB.add;
355: END IF;
356:
357: END IF;
358:
386: ELSE
387: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.sub_zone );
388: END IF;
389:
390: FND_MSG_PUB.add;
391: END IF;
392:
393: END IF;
394:
418: ELSE
419: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.service_item_number );
420: END IF;
421:
422: FND_MSG_PUB.add;
423: END IF;
424:
425: END IF;
426:
450: ELSE
451: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.accounting_class );
452: END IF;
453:
454: FND_MSG_PUB.add;
455: END IF;
456:
457: END IF;
458:
479: ELSE
480: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.task_template_group );
481: END IF;
482:
483: FND_MSG_PUB.add;
484: END IF;
485:
486: END IF;
487:
508: ELSE
509: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.qa_inspection_type_desc );
510: END IF;
511:
512: FND_MSG_PUB.add;
513: END IF;
514:
515: END IF;
516:
544: ELSE
545: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.revision_status );
546: END IF;
547:
548: FND_MSG_PUB.add;
549: END IF;
550:
551: END IF;
552:
580: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.unit_receipt_update_flag );
581: ELSE
582: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.unit_receipt_update );
583: END IF;
584: FND_MSG_PUB.add;
585: END IF;
586:
587: END IF;
588: END convert_values_to_ids;
1074: );
1075:
1076: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1077: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1078: FND_MSG_PUB.add;
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081:
1082: -- Convert G_MISS values to NULL and NULL values to Old values
1088: END IF;
1089: -- Condition added in 11.5.10.
1090: ELSIF p_x_route_rec.revision_status_code <> l_old_route_rec.revision_status_code THEN
1091: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
1092: FND_MSG_PUB.add;
1093: END IF;
1094:
1095: IF ( p_x_route_rec.revision_status IS NULL ) THEN
1096: p_x_route_rec.revision_status := l_old_route_rec.revision_status;
1095: IF ( p_x_route_rec.revision_status IS NULL ) THEN
1096: p_x_route_rec.revision_status := l_old_route_rec.revision_status;
1097: ELSIF p_x_route_rec.revision_status <> l_old_route_rec.revision_status THEN
1098: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
1099: FND_MSG_PUB.add;
1100: END IF;
1101:
1102: --bachandr Enigma Phase I changes -- start
1103: -- Do the following only when the route is created from Enigma
1106: IF ( l_old_route_rec.enigma_doc_id IS NOT NULL AND p_x_route_rec.model_code IS NULL ) THEN
1107: p_x_route_rec.model_code := l_old_route_rec.model_code;
1108: ELSIF ( l_old_route_rec.enigma_doc_id IS NOT NULL AND p_x_route_rec.model_code <> l_old_route_rec.model_code ) THEN
1109: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_RO' );
1110: FND_MSG_PUB.add;
1111: END IF;
1112:
1113: -- Do the following only when the route is created from Enigma
1114: -- Check if the model meaning is null and if it is then default it to the DB value
1116: IF ( l_old_route_rec.enigma_doc_id IS NOT NULL AND p_x_route_rec.model_meaning IS NULL ) THEN
1117: p_x_route_rec.model_meaning := l_old_route_rec.model_meaning;
1118: ELSIF ( l_old_route_rec.enigma_doc_id IS NOT NULL AND p_x_route_rec.model_meaning <> l_old_route_rec.model_meaning ) THEN
1119: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_RO' );
1120: FND_MSG_PUB.add;
1121: END IF;
1122:
1123:
1124: IF ( l_old_route_rec.enigma_doc_id IS NOT NULL AND p_x_route_rec.file_id IS NULL ) THEN
1131: IF ( p_x_route_rec.revision_number IS NULL ) THEN
1132: p_x_route_rec.revision_number := l_old_route_rec.revision_number;
1133: ELSIF p_x_route_rec.revision_number <> l_old_route_rec.revision_number THEN
1134: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_REVISION_RO' );
1135: FND_MSG_PUB.add;
1136: END IF;
1137:
1138: IF ( p_x_route_rec.route_no IS NULL ) THEN
1139: p_x_route_rec.route_no := l_old_route_rec.route_no;
1138: IF ( p_x_route_rec.route_no IS NULL ) THEN
1139: p_x_route_rec.route_no := l_old_route_rec.route_no;
1140: ELSIF p_x_route_rec.route_no <> l_old_route_rec.route_no THEN
1141: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_RO' );
1142: FND_MSG_PUB.add;
1143: END IF;
1144:
1145: IF ( p_x_route_rec.revision_status_code = 'DRAFT' ) THEN
1146: l_read_only_flag := 'N';
1152: p_x_route_rec.title := l_old_route_rec.title;
1153: ELSE
1154: IF ( l_read_only_flag = 'Y' ) THEN
1155: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TITLE_RO' );
1156: FND_MSG_PUB.add;
1157: END IF;
1158: END IF;
1159:
1160: IF ( p_x_route_rec.active_start_date IS NULL ) THEN
1161: p_x_route_rec.active_start_date := l_old_route_rec.active_start_date;
1162: ELSE
1163: IF ( l_read_only_flag = 'Y' ) THEN
1164: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ST_DATE_RO' );
1165: FND_MSG_PUB.add;
1166: ELSIF ( p_x_route_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1167: p_x_route_rec.active_start_date := NULL;
1168: END IF;
1169: END IF;
1172: p_x_route_rec.active_end_date := l_old_route_rec.active_end_date;
1173: ELSE
1174: IF ( l_read_only_flag = 'Y' ) THEN
1175: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
1176: FND_MSG_PUB.add;
1177: END IF;
1178: END IF;
1179:
1180: IF ( p_x_route_rec.route_type_code IS NULL ) THEN
1241: p_x_route_rec.operator_party_id := l_old_route_rec.operator_party_id;
1242: ELSE
1243: IF ( l_read_only_flag = 'Y' ) THEN
1244: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_OPERATOR_RO' );
1245: FND_MSG_PUB.add;
1246: ELSE
1247: IF ( p_x_route_rec.operator_party_id = FND_API.G_MISS_NUM ) THEN
1248: p_x_route_rec.operator_party_id := null;
1249: END IF;
1254: p_x_route_rec.operator_name := l_old_route_rec.operator_name;
1255: ELSE
1256: IF ( l_read_only_flag = 'Y' ) THEN
1257: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_OPERATOR_RO' );
1258: FND_MSG_PUB.add;
1259: ELSE
1260: IF ( p_x_route_rec.operator_name = FND_API.G_MISS_CHAR ) THEN
1261: p_x_route_rec.operator_name := null;
1262: END IF;
1291: p_x_route_rec.service_item_id := l_old_route_rec.service_item_id;
1292: ELSE
1293: IF ( l_read_only_flag = 'Y' ) THEN
1294: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1295: FND_MSG_PUB.add;
1296: ELSE
1297: IF ( p_x_route_rec.service_item_id = FND_API.G_MISS_NUM ) THEN
1298: p_x_route_rec.service_item_id := null;
1299: END IF;
1304: p_x_route_rec.service_item_org_id := l_old_route_rec.service_item_org_id;
1305: ELSE
1306: IF ( l_read_only_flag = 'Y' ) THEN
1307: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1308: FND_MSG_PUB.add;
1309: ELSE
1310: IF ( p_x_route_rec.service_item_org_id = FND_API.G_MISS_NUM ) THEN
1311: p_x_route_rec.service_item_org_id := null;
1312: END IF;
1317: p_x_route_rec.service_item_number := l_old_route_rec.service_item_number;
1318: ELSE
1319: IF ( l_read_only_flag = 'Y' ) THEN
1320: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1321: FND_MSG_PUB.add;
1322: ELSE
1323: IF ( p_x_route_rec.service_item_number = FND_API.G_MISS_CHAR ) THEN
1324: p_x_route_rec.service_item_number := null;
1325: END IF;
1348: p_x_route_rec.task_template_group_id := l_old_route_rec.task_template_group_id;
1349: ELSE
1350: IF ( l_read_only_flag = 'Y' ) THEN
1351: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TASK_TEMP_RO' );
1352: FND_MSG_PUB.add;
1353: ELSE
1354: IF ( p_x_route_rec.task_template_group_id = FND_API.G_MISS_NUM ) THEN
1355: p_x_route_rec.task_template_group_id := null;
1356: END IF;
1361: p_x_route_rec.task_template_group := l_old_route_rec.task_template_group;
1362: ELSE
1363: IF ( l_read_only_flag = 'Y' ) THEN
1364: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TASK_TEMP_RO' );
1365: FND_MSG_PUB.add;
1366: ELSE
1367: IF ( p_x_route_rec.task_template_group = FND_API.G_MISS_CHAR ) THEN
1368: p_x_route_rec.task_template_group := null;
1369: END IF;
1374: p_x_route_rec.qa_inspection_type := l_old_route_rec.qa_inspection_type;
1375: ELSE
1376: IF ( l_read_only_flag = 'Y' ) THEN
1377: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
1378: FND_MSG_PUB.add;
1379: ELSE
1380: IF ( p_x_route_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
1381: p_x_route_rec.qa_inspection_type := null;
1382: END IF;
1387: p_x_route_rec.qa_inspection_type_desc := l_old_route_rec.qa_inspection_type_desc;
1388: ELSE
1389: IF ( l_read_only_flag = 'Y' ) THEN
1390: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
1391: FND_MSG_PUB.add;
1392: ELSE
1393: IF ( p_x_route_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
1394: p_x_route_rec.qa_inspection_type_desc := null;
1395: END IF;
1639: IF ( ( p_route_rec.dml_operation = 'C' AND
1640: p_route_rec.revision_status_code IS NULL ) OR
1641: p_route_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1642: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1643: FND_MSG_PUB.add;
1644: END IF;
1645: */
1646:
1647: -- Check if the Route Number does not column contains a null value.
1648: IF ( ( p_route_rec.dml_operation = 'C' AND
1649: p_route_rec.route_no IS NULL ) OR
1650: p_route_rec.route_no = FND_API.G_MISS_CHAR ) THEN
1651: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_NO_NULL' );
1652: FND_MSG_PUB.add;
1653: END IF;
1654:
1655: -- Check if the Route Title does not column contains a null value.
1656: IF ( ( p_route_rec.dml_operation = 'C' AND
1656: IF ( ( p_route_rec.dml_operation = 'C' AND
1657: p_route_rec.title IS NULL ) OR
1658: p_route_rec.title = FND_API.G_MISS_CHAR ) THEN
1659: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_TITLE_NULL' );
1660: FND_MSG_PUB.add;
1661: END IF;
1662:
1663: -- Check if the Route Start Date does not column contains a null value.
1664: IF ( ( p_route_rec.dml_operation = 'C' AND
1664: IF ( ( p_route_rec.dml_operation = 'C' AND
1665: p_route_rec.active_start_date IS NULL ) OR
1666: p_route_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1667: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1668: FND_MSG_PUB.add;
1669: END IF;
1670:
1671: --bachandr Enigma Phase I changes -- start
1672: -- Time Span is no longer a mandatory field during creat/update of Routes from Enigma
1677: IF ( ( p_route_rec.dml_operation = 'C' AND
1678: p_route_rec.time_span IS NULL ) OR
1679: p_route_rec.time_span = FND_API.G_MISS_NUM ) THEN
1680: FND_MESSAGE.set_name( 'AHL','AHL_RM_TIME_SPAN_NULL' );
1681: FND_MSG_PUB.add;
1682: END IF;
1683: END IF;
1684:
1685: -- Check if the model code or meaning is not null for create
1688: AND p_route_rec.enigma_doc_id <> FND_API.G_MISS_CHAR) THEN
1689: IF (( p_route_rec.model_code IS NULL OR p_route_rec.model_code = FND_API.G_MISS_CHAR ) AND
1690: ( p_route_rec.model_meaning IS NULL OR p_route_rec.model_meaning = FND_API.G_MISS_CHAR ) )THEN
1691: FND_MESSAGE.set_name( 'AHL','AHL_RM_MODEL_CODE_NULL' );
1692: FND_MSG_PUB.add;
1693: END IF;
1694: END IF;
1695: --bachandr Enigma Phase I changes -- end
1696:
1699: p_route_rec.time_span <> FND_API.G_MISS_NUM AND
1700: p_route_rec.time_span <= 0 ) THEN
1701: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_TIME_SPAN' );
1702: FND_MESSAGE.set_token( 'FIELD', p_route_rec.time_span );
1703: FND_MSG_PUB.add;
1704: END IF;
1705:
1706: IF ( p_route_rec.dml_operation = 'C' ) THEN
1707: RETURN;
1710: -- Check if the mandatory Route ID column contains a null value.
1711: IF ( p_route_rec.route_id IS NULL OR
1712: p_route_rec.route_id = FND_API.G_MISS_NUM ) THEN
1713: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_ID_NULL' );
1714: FND_MSG_PUB.add;
1715: RETURN;
1716: END IF;
1717:
1718: -- Check if the mandatory Object Version Number column contains a null value.
1718: -- Check if the mandatory Object Version Number column contains a null value.
1719: IF ( p_route_rec.object_version_number IS NULL OR
1720: p_route_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1721: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1722: FND_MSG_PUB.add;
1723: RETURN;
1724: END IF;
1725:
1726: -- Validate whether the Time Span of the Route is Greater than the Longest Resource Duration for the Same Route and all the Associated Operations
1740: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1741: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1742: FND_MESSAGE.set_token( 'FIELD1', l_res_max_duration );
1743: FND_MESSAGE.set_token( 'FIELD2', p_route_rec.time_span );
1744: FND_MSG_PUB.add;
1745: END IF;
1746: END IF;
1747:
1748: -- Added by Tamal for Bug #3854052
1748: -- Added by Tamal for Bug #3854052
1749: IF (p_route_rec.dml_operation = 'U' AND p_route_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1750: THEN
1751: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_STS_NO_UPD' );
1752: FND_MSG_PUB.add;
1753: x_return_status := FND_API.G_RET_STS_ERROR;
1754: END IF;
1755: -- Added by Tamal for Bug #3854052
1756:
1760: FETCH validate_route_ovn INTO l_dummy;
1761: IF (validate_route_ovn%NOTFOUND)
1762: THEN
1763: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1764: FND_MSG_PUB.add;
1765: END IF;
1766: END IF;
1767:
1768: END validate_attributes;
1800: THEN
1801: -- if its create then p_route_rec.route_id = null and any duplicate record should make you throw an err.
1802: IF ( get_dup_rec%FOUND ) THEN
1803: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
1804: FND_MSG_PUB.add;
1805: x_return_status := FND_API.G_RET_STS_ERROR;
1806: END IF;
1807: ELSIF ( p_route_rec.dml_operation = 'U' )
1808: THEN
1807: ELSIF ( p_route_rec.dml_operation = 'U' )
1808: THEN
1809: IF ( l_route_id <> p_route_rec.route_id ) THEN
1810: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
1811: FND_MSG_PUB.add;
1812: x_return_status := FND_API.G_RET_STS_ERROR;
1813: END IF;
1814: END IF;
1815:
1823: p_route_rec.active_start_date <> FND_API.G_MISS_DATE AND
1824: TRUNC( p_route_rec.active_start_date ) < TRUNC( SYSDATE ) ) THEN
1825: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
1826: FND_MESSAGE.set_token( 'FIELD', SYSDATE );
1827: FND_MSG_PUB.add;
1828: END IF;
1829: */
1830: -- Check if Active start date is less than today's date and the start
1831: -- date of the latest revision for DRAFT and APPROVAL_REJECTED Routes
1846:
1847: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1848: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1849: FND_MESSAGE.set_token( 'FIELD', l_start_date );
1850: FND_MSG_PUB.add;
1851: x_return_status := FND_API.G_RET_STS_ERROR;
1852: END IF;
1853: END IF;
1854:
1857: p_route_rec.zone_code IS NOT NULL ) AND
1858: ( p_route_rec.product_type IS NULL AND
1859: p_route_rec.product_type_code IS NULL ) ) THEN
1860: FND_MESSAGE.set_name( 'AHL','AHL_RM_PT_NULL_ZONE_NOTNULL' );
1861: FND_MSG_PUB.add;
1862: x_return_status := FND_API.G_RET_STS_ERROR;
1863: END IF;
1864:
1865: -- Check if Sub Zone contains a value but, the Product Type or Zone are NULL
1869: p_route_rec.product_type_code IS NULL ) OR
1870: ( p_route_rec.zone IS NULL AND
1871: p_route_rec.zone_code IS NULL ) ) ) THEN
1872: FND_MESSAGE.set_name( 'AHL','AHL_RM_PT_NULL_SUBZONE_NOTNULL' );
1873: FND_MSG_PUB.add;
1874: x_return_status := FND_API.G_RET_STS_ERROR;
1875: END IF;
1876:
1877: -- Check if the Zone is valid for the Product Type
1899: ELSE
1900: FND_MESSAGE.set_token( 'FIELD2', p_route_rec.product_type );
1901: END IF;
1902:
1903: FND_MSG_PUB.add;
1904: x_return_status := FND_API.G_RET_STS_ERROR;
1905: END IF;
1906: END IF;
1907:
1938: ELSE
1939: FND_MESSAGE.set_token( 'FIELD3', p_route_rec.product_type );
1940: END IF;
1941:
1942: FND_MSG_PUB.add;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: END IF;
1945: END IF;
1946:
2010: END IF;
2011:
2012: -- Initialize message list if p_init_msg_list is set to TRUE.
2013: IF FND_API.to_boolean( p_init_msg_list ) THEN
2014: FND_MSG_PUB.initialize;
2015: END IF;
2016:
2017: -- Enable Debug (optional)
2018: IF ( G_DEBUG = 'Y' ) THEN
2185: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after validate_record' );
2186: END IF;
2187:
2188: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2189: l_msg_count := FND_MSG_PUB.count_msg;
2190: IF l_msg_count > 0 THEN
2191: x_msg_count := l_msg_count;
2192: RAISE FND_API.G_EXC_ERROR;
2193: END IF;
2291: );
2292: EXCEPTION
2293: WHEN NO_DATA_FOUND THEN
2294: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2295: FND_MSG_PUB.add;
2296: WHEN OTHERS THEN
2297: IF ( SQLCODE = -1 ) THEN
2298: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2299: FND_MSG_PUB.add;
2295: FND_MSG_PUB.add;
2296: WHEN OTHERS THEN
2297: IF ( SQLCODE = -1 ) THEN
2298: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2299: FND_MSG_PUB.add;
2300: ELSE
2301: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2302: fnd_log.string
2303: (
2386:
2387: EXCEPTION
2388: WHEN NO_DATA_FOUND THEN
2389: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2390: FND_MSG_PUB.add;
2391: WHEN OTHERS THEN
2392: IF ( SQLCODE = -1 ) THEN
2393: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2394: FND_MSG_PUB.add;
2390: FND_MSG_PUB.add;
2391: WHEN OTHERS THEN
2392: IF ( SQLCODE = -1 ) THEN
2393: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2394: FND_MSG_PUB.add;
2395: ELSE
2396: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2397: fnd_log.string
2398: (
2415: FETCH validate_system_kfv INTO l_kfv_flag;
2416: IF (validate_system_kfv%FOUND)
2417: THEN
2418: FND_MESSAGE.set_name('AHL', 'AHL_RM_INV_SYS_KFV');
2419: FND_MSG_PUB.add;
2420: END IF;
2421: CLOSE validate_system_kfv;
2422: END IF;
2423: CLOSE get_concat_segs;
2427: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
2428: END IF;
2429:
2430: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2431: l_msg_count := FND_MSG_PUB.count_msg;
2432: IF l_msg_count > 0 THEN
2433: x_msg_count := l_msg_count;
2434: RAISE FND_API.G_EXC_ERROR;
2435: END IF;
2439: COMMIT WORK;
2440: END IF;
2441:
2442: -- Count and Get messages (optional)
2443: FND_MSG_PUB.count_and_get
2444: (
2445: p_encoded => FND_API.G_FALSE,
2446: p_count => x_msg_count,
2447: p_data => x_msg_data
2456:
2457: WHEN FND_API.G_EXC_ERROR THEN
2458: ROLLBACK TO process_route_PVT;
2459: x_return_status := FND_API.G_RET_STS_ERROR ;
2460: FND_MSG_PUB.count_and_get
2461: (
2462: p_encoded => FND_API.G_FALSE,
2463: p_count => x_msg_count,
2464: p_data => x_msg_data
2471:
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: ROLLBACK TO process_route_PVT;
2474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2475: FND_MSG_PUB.count_and_get
2476: (
2477: p_encoded => FND_API.G_FALSE,
2478: p_count => x_msg_count,
2479: p_data => x_msg_data
2486:
2487: WHEN OTHERS THEN
2488: ROLLBACK TO process_route_PVT;
2489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2490: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2491: THEN
2492: FND_MSG_PUB.add_exc_msg
2493: (
2494: p_pkg_name => G_PKG_NAME,
2488: ROLLBACK TO process_route_PVT;
2489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2490: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2491: THEN
2492: FND_MSG_PUB.add_exc_msg
2493: (
2494: p_pkg_name => G_PKG_NAME,
2495: p_procedure_name => l_api_name,
2496: p_error_text => SUBSTRB(SQLERRM,1,240)
2495: p_procedure_name => l_api_name,
2496: p_error_text => SUBSTRB(SQLERRM,1,240)
2497: );
2498: END IF;
2499: FND_MSG_PUB.count_and_get
2500: (
2501: p_encoded => FND_API.G_FALSE,
2502: p_count => x_msg_count,
2503: p_data => x_msg_data
2580: END IF;
2581:
2582: -- Initialize message list if p_init_msg_list is set to TRUE.
2583: IF FND_API.to_boolean( p_init_msg_list ) THEN
2584: FND_MSG_PUB.initialize;
2585: END IF;
2586:
2587: -- Enable Debug (optional)
2588: IF ( G_DEBUG = 'Y' ) THEN
2615: p_object_version_number IS NULL OR
2616: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2617: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2618: FND_MESSAGE.set_token( 'PROCEDURE', l_api_name );
2619: FND_MSG_PUB.add;
2620: RAISE FND_API.G_EXC_ERROR;
2621: END IF;
2622:
2623: OPEN validate_route_ovn;
2624: FETCH validate_route_ovn INTO l_dummy;
2625: IF (validate_route_ovn%NOTFOUND)
2626: THEN
2627: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
2628: FND_MSG_PUB.add;
2629: x_return_status := FND_API.G_RET_STS_ERROR;
2630: RAISE FND_API.G_EXC_ERROR;
2631: END IF;
2632:
2639: FETCH get_doc_id INTO l_doc_id;
2640: IF (get_doc_id%FOUND AND l_doc_id IS NOT NULL)
2641: THEN
2642: FND_MESSAGE.set_name('AHL', 'AHL_RM_ROUTE_ENIG_DEL');
2643: FND_MSG_PUB.add;
2644: x_return_status := FND_API.G_RET_STS_ERROR;
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647: END IF;
2660: ELSE
2661: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2662: END IF;
2663:
2664: FND_MSG_PUB.add;
2665: RAISE FND_API.G_EXC_ERROR;
2666: END IF;
2667:
2668:
2762:
2763: EXCEPTION
2764: WHEN NO_DATA_FOUND THEN
2765: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2766: FND_MSG_PUB.add;
2767: RAISE FND_API.G_EXC_ERROR;
2768: WHEN OTHERS THEN
2769: RAISE;
2770: END;
2778: COMMIT WORK;
2779: END IF;
2780:
2781: -- Count and Get messages (optional)
2782: FND_MSG_PUB.count_and_get
2783: (
2784: p_encoded => FND_API.G_FALSE,
2785: p_count => x_msg_count,
2786: p_data => x_msg_data
2795:
2796: WHEN FND_API.G_EXC_ERROR THEN
2797: ROLLBACK TO delete_route_PVT;
2798: x_return_status := FND_API.G_RET_STS_ERROR ;
2799: FND_MSG_PUB.count_and_get
2800: (
2801: p_encoded => FND_API.G_FALSE,
2802: p_count => x_msg_count,
2803: p_data => x_msg_data
2810:
2811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2812: ROLLBACK TO delete_route_PVT;
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2814: FND_MSG_PUB.count_and_get
2815: (
2816: p_encoded => FND_API.G_FALSE,
2817: p_count => x_msg_count,
2818: p_data => x_msg_data
2825:
2826: WHEN OTHERS THEN
2827: ROLLBACK TO delete_route_PVT;
2828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2829: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2830: THEN
2831: FND_MSG_PUB.add_exc_msg
2832: (
2833: p_pkg_name => G_PKG_NAME,
2827: ROLLBACK TO delete_route_PVT;
2828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2829: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2830: THEN
2831: FND_MSG_PUB.add_exc_msg
2832: (
2833: p_pkg_name => G_PKG_NAME,
2834: p_procedure_name => l_api_name,
2835: p_error_text => SUBSTRB(SQLERRM,1,240)
2834: p_procedure_name => l_api_name,
2835: p_error_text => SUBSTRB(SQLERRM,1,240)
2836: );
2837: END IF;
2838: FND_MSG_PUB.count_and_get
2839: (
2840: p_encoded => FND_API.G_FALSE,
2841: p_count => x_msg_count,
2842: p_data => x_msg_data
3010: END IF;
3011:
3012: -- Initialize message list if p_init_msg_list is set to TRUE.
3013: IF FND_API.to_boolean( p_init_msg_list ) THEN
3014: FND_MSG_PUB.initialize;
3015: END IF;
3016:
3017: -- Enable Debug (optional)
3018: IF ( G_DEBUG = 'Y' ) THEN
3045: p_route_id = FND_API.G_MISS_NUM OR
3046: p_object_version_number IS NULL OR
3047: p_object_version_number = FND_API.G_MISS_NUM ) THEN
3048: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3049: FND_MSG_PUB.add;
3050: RAISE FND_API.G_EXC_ERROR;
3051: END IF;
3052:
3053: get_route_record
3060: );
3061:
3062: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
3063: FND_MESSAGE.set_name( 'AHL', l_msg_data );
3064: FND_MSG_PUB.add;
3065: RAISE FND_API.G_EXC_ERROR;
3066: END IF;
3067:
3068: -- Check if the Status is COMPLETE
3068: -- Check if the Status is COMPLETE
3069: IF ( l_old_route_rec.revision_status_code <> 'COMPLETE' ) THEN
3070: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_STATUS_NOT_COMPLETE' );
3071: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3072: FND_MSG_PUB.add;
3073: RAISE FND_API.G_EXC_ERROR;
3074: END IF;
3075:
3076: -- Check if this revision is not Terminated
3076: -- Check if this revision is not Terminated
3077: IF ( l_old_route_rec.active_end_date IS NOT NULL ) THEN
3078: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
3079: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3080: FND_MSG_PUB.add;
3081: RAISE FND_API.G_EXC_ERROR;
3082: END IF;
3083:
3084: -- Check if this revision is the latest complete revision of this Route
3089:
3090: IF ( l_revision_number <> l_old_route_rec.revision_number ) THEN
3091: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_REVISION_NOT_LATEST' );
3092: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3093: FND_MSG_PUB.add;
3094: CLOSE get_latest_revision;
3095: RAISE FND_API.G_EXC_ERROR;
3096: END IF;
3097:
3190:
3191: EXCEPTION
3192: WHEN NO_DATA_FOUND THEN
3193: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
3194: FND_MSG_PUB.add;
3195: WHEN OTHERS THEN
3196: IF ( SQLCODE = -1 ) THEN
3197: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
3198: FND_MSG_PUB.add;
3194: FND_MSG_PUB.add;
3195: WHEN OTHERS THEN
3196: IF ( SQLCODE = -1 ) THEN
3197: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
3198: FND_MSG_PUB.add;
3199: ELSE
3200: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3201: fnd_log.string
3202: (
3754: COMMIT WORK;
3755: END IF;
3756:
3757: -- Count and Get messages (optional)
3758: FND_MSG_PUB.count_and_get
3759: (
3760: p_encoded => FND_API.G_FALSE,
3761: p_count => x_msg_count,
3762: p_data => x_msg_data
3771:
3772: WHEN FND_API.G_EXC_ERROR THEN
3773: ROLLBACK TO create_route_revision_PVT;
3774: x_return_status := FND_API.G_RET_STS_ERROR ;
3775: FND_MSG_PUB.count_and_get
3776: (
3777: p_encoded => FND_API.G_FALSE,
3778: p_count => x_msg_count,
3779: p_data => x_msg_data
3786:
3787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3788: ROLLBACK TO create_route_revision_PVT;
3789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3790: FND_MSG_PUB.count_and_get
3791: (
3792: p_encoded => FND_API.G_FALSE,
3793: p_count => x_msg_count,
3794: p_data => x_msg_data
3801:
3802: WHEN OTHERS THEN
3803: ROLLBACK TO create_route_revision_PVT;
3804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3805: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3806: THEN
3807: FND_MSG_PUB.add_exc_msg
3808: (
3809: p_pkg_name => G_PKG_NAME,
3803: ROLLBACK TO create_route_revision_PVT;
3804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3805: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3806: THEN
3807: FND_MSG_PUB.add_exc_msg
3808: (
3809: p_pkg_name => G_PKG_NAME,
3810: p_procedure_name => l_api_name,
3811: p_error_text => SUBSTRB(SQLERRM,1,240)
3810: p_procedure_name => l_api_name,
3811: p_error_text => SUBSTRB(SQLERRM,1,240)
3812: );
3813: END IF;
3814: FND_MSG_PUB.count_and_get
3815: (
3816: p_encoded => FND_API.G_FALSE,
3817: p_count => x_msg_count,
3818: p_data => x_msg_data