[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:
190: ELSE
191: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.route_type );
192: END IF;
193:
194: FND_MSG_PUB.add;
195: END IF;
196:
197: END IF;
198:
227: ELSE
228: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.model_meaning );
229: END IF;
230:
231: FND_MSG_PUB.add;
232: END IF;
233:
234: END IF;
235: --bachandr Enigma Phase I changes -- end
264: ELSE
265: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.process );
266: END IF;
267:
268: FND_MSG_PUB.add;
269: END IF;
270:
271: END IF;
272:
300: ELSE
301: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.product_type );
302: END IF;
303:
304: FND_MSG_PUB.add;
305: END IF;
306:
307: END IF;
308:
329: ELSE
330: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.operator_name );
331: END IF;
332:
333: FND_MSG_PUB.add;
334: END IF;
335:
336: END IF;
337:
365: ELSE
366: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.zone );
367: END IF;
368:
369: FND_MSG_PUB.add;
370: END IF;
371:
372: END IF;
373:
401: ELSE
402: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.sub_zone );
403: END IF;
404:
405: FND_MSG_PUB.add;
406: END IF;
407:
408: END IF;
409:
433: ELSE
434: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.service_item_number );
435: END IF;
436:
437: FND_MSG_PUB.add;
438: END IF;
439:
440: END IF;
441:
465: ELSE
466: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.accounting_class );
467: END IF;
468:
469: FND_MSG_PUB.add;
470: END IF;
471:
472: END IF;
473:
494: ELSE
495: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.task_template_group );
496: END IF;
497:
498: FND_MSG_PUB.add;
499: END IF;
500:
501: END IF;
502:
523: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_route_rec.warranty_template_id ) );
524: ELSE
525: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.warranty_template_name );
526: END IF;
527: FND_MSG_PUB.add;
528:
529: END IF;
530: END IF;
531:
533: -- Validate Duplicate flag
534: IF ( p_x_route_rec.duplicate_flag IS NOT NULL AND
535: p_x_route_rec.duplicate_flag <> 'Y' AND p_x_route_rec.duplicate_flag <> 'N' ) THEN
536: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVLD_DUPLICATE_ROUTE' );
537: FND_MSG_PUB.add;
538: END IF;
539:
540: -- Validate Return to supply flag
541: IF ( p_x_route_rec.return_to_supply_flag IS NOT NULL AND
540: -- Validate Return to supply flag
541: IF ( p_x_route_rec.return_to_supply_flag IS NOT NULL AND
542: p_x_route_rec.return_to_supply_flag <> 'Y' AND p_x_route_rec.return_to_supply_flag <> 'N' ) THEN
543: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVLD_RETURN_TO_SUPPLY' );
544: FND_MSG_PUB.add;
545: END IF;
546:
547: -- Convert / Validate QA Plan
548: IF ( ( p_x_route_rec.qa_inspection_type_desc IS NOT NULL AND
567: ELSE
568: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.qa_inspection_type_desc );
569: END IF;
570:
571: FND_MSG_PUB.add;
572: END IF;
573:
574: END IF;
575:
603: ELSE
604: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.revision_status );
605: END IF;
606:
607: FND_MSG_PUB.add;
608: END IF;
609:
610: END IF;
611:
639: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.unit_receipt_update_flag );
640: ELSE
641: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.unit_receipt_update );
642: END IF;
643: FND_MSG_PUB.add;
644: END IF;
645:
646: END IF;
647: --Enigma Phase II Changes Start
675: ELSE
676: FND_MESSAGE.set_token( 'FIELD', p_x_route_rec.job_card_lyt_meaning );
677: END IF;
678:
679: FND_MSG_PUB.add;
680: END IF;
681:
682: END IF;
683:
1227: );
1228:
1229: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1230: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1231: FND_MSG_PUB.add;
1232: RAISE FND_API.G_EXC_ERROR;
1233: END IF;
1234:
1235: -- Convert G_MISS values to NULL and NULL values to Old values
1241: END IF;
1242: -- Condition added in 11.5.10.
1243: ELSIF p_x_route_rec.revision_status_code <> l_old_route_rec.revision_status_code THEN
1244: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
1245: FND_MSG_PUB.add;
1246: END IF;
1247:
1248: IF ( p_x_route_rec.revision_status IS NULL ) THEN
1249: p_x_route_rec.revision_status := l_old_route_rec.revision_status;
1248: IF ( p_x_route_rec.revision_status IS NULL ) THEN
1249: p_x_route_rec.revision_status := l_old_route_rec.revision_status;
1250: ELSIF p_x_route_rec.revision_status <> l_old_route_rec.revision_status THEN
1251: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STATUS_RO' );
1252: FND_MSG_PUB.add;
1253: END IF;
1254:
1255: --snarkhed Enigma Phase II changes start
1256: -- reorganized the in phase I for model code validation
1262: END IF;
1263:
1264: IF( upper(l_old_route_rec.enigma_source_code) = 'AUTOMATIC' AND p_x_route_rec.model_code <> l_old_route_rec.model_code ) THEN
1265: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_RO' );
1266: FND_MSG_PUB.add;
1267: END IF;
1268:
1269: IF ( p_x_route_rec.model_meaning IS NULL ) THEN
1270: p_x_route_rec.model_meaning := l_old_route_rec.model_meaning;
1273: END IF;
1274:
1275: IF (upper(l_old_route_rec.enigma_source_code) = 'AUTOMATIC' AND p_x_route_rec.model_meaning <> l_old_route_rec.model_meaning ) THEN
1276: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_RO' );
1277: FND_MSG_PUB.add;
1278: END IF;
1279:
1280: IF ( upper(l_old_route_rec.enigma_source_code) = 'AUTOMATIC' AND p_x_route_rec.file_id IS NULL ) THEN
1281: p_x_route_rec.file_id := l_old_route_rec.file_id;
1293: END IF;
1294:
1295: IF(upper(l_old_route_rec.enigma_source_code) = 'AUTOMATIC' AND p_x_route_rec.enigma_doc_id <> l_old_route_rec.enigma_doc_id AND p_module_type <> 'BPEL') THEN
1296: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ENGIMA_DOC_CHANGE' );
1297: FND_MSG_PUB.add;
1298: END IF;
1299:
1300: -- IF Job Card Layout Defaulting logic.
1301: IF ( p_x_route_rec.job_card_lyt_meaning IS NULL) THEN
1309: IF ( p_x_route_rec.revision_number IS NULL ) THEN
1310: p_x_route_rec.revision_number := l_old_route_rec.revision_number;
1311: ELSIF p_x_route_rec.revision_number <> l_old_route_rec.revision_number THEN
1312: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_REVISION_RO' );
1313: FND_MSG_PUB.add;
1314: END IF;
1315:
1316: IF ( p_x_route_rec.route_no IS NULL ) THEN
1317: p_x_route_rec.route_no := l_old_route_rec.route_no;
1316: IF ( p_x_route_rec.route_no IS NULL ) THEN
1317: p_x_route_rec.route_no := l_old_route_rec.route_no;
1318: ELSIF p_x_route_rec.route_no <> l_old_route_rec.route_no THEN
1319: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_RO' );
1320: FND_MSG_PUB.add;
1321: END IF;
1322:
1323: IF ( p_x_route_rec.revision_status_code = 'DRAFT' ) THEN
1324: l_read_only_flag := 'N';
1330: p_x_route_rec.title := l_old_route_rec.title;
1331: ELSE
1332: IF ( l_read_only_flag = 'Y' ) THEN
1333: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TITLE_RO' );
1334: FND_MSG_PUB.add;
1335: END IF;
1336: END IF;
1337:
1338: IF ( p_x_route_rec.active_start_date IS NULL ) THEN
1339: p_x_route_rec.active_start_date := l_old_route_rec.active_start_date;
1340: ELSE
1341: IF ( l_read_only_flag = 'Y' ) THEN
1342: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ST_DATE_RO' );
1343: FND_MSG_PUB.add;
1344: ELSIF ( p_x_route_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1345: p_x_route_rec.active_start_date := NULL;
1346: END IF;
1347: END IF;
1350: p_x_route_rec.active_end_date := l_old_route_rec.active_end_date;
1351: ELSE
1352: IF ( l_read_only_flag = 'Y' ) THEN
1353: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
1354: FND_MSG_PUB.add;
1355: END IF;
1356: END IF;
1357:
1358: IF ( p_x_route_rec.route_type_code IS NULL ) THEN
1418: p_x_route_rec.operator_party_id := l_old_route_rec.operator_party_id;
1419: ELSE
1420: IF ( l_read_only_flag = 'Y' ) THEN
1421: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_OPERATOR_RO' );
1422: FND_MSG_PUB.add;
1423: ELSE
1424: IF ( p_x_route_rec.operator_party_id = FND_API.G_MISS_NUM ) THEN
1425: p_x_route_rec.operator_party_id := null;
1426: END IF;
1431: p_x_route_rec.operator_name := l_old_route_rec.operator_name;
1432: ELSE
1433: IF ( l_read_only_flag = 'Y' ) THEN
1434: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_OPERATOR_RO' );
1435: FND_MSG_PUB.add;
1436: ELSE
1437: IF ( p_x_route_rec.operator_name = FND_API.G_MISS_CHAR ) THEN
1438: p_x_route_rec.operator_name := null;
1439: END IF;
1468: p_x_route_rec.service_item_id := l_old_route_rec.service_item_id;
1469: ELSE
1470: IF ( l_read_only_flag = 'Y' ) THEN
1471: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1472: FND_MSG_PUB.add;
1473: ELSE
1474: IF ( p_x_route_rec.service_item_id = FND_API.G_MISS_NUM ) THEN
1475: p_x_route_rec.service_item_id := null;
1476: END IF;
1481: p_x_route_rec.service_item_org_id := l_old_route_rec.service_item_org_id;
1482: ELSE
1483: IF ( l_read_only_flag = 'Y' ) THEN
1484: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1485: FND_MSG_PUB.add;
1486: ELSE
1487: IF ( p_x_route_rec.service_item_org_id = FND_API.G_MISS_NUM ) THEN
1488: p_x_route_rec.service_item_org_id := null;
1489: END IF;
1494: p_x_route_rec.service_item_number := l_old_route_rec.service_item_number;
1495: ELSE
1496: IF ( l_read_only_flag = 'Y' ) THEN
1497: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_SVC_ITEM_RO' );
1498: FND_MSG_PUB.add;
1499: ELSE
1500: IF ( p_x_route_rec.service_item_number = FND_API.G_MISS_CHAR ) THEN
1501: p_x_route_rec.service_item_number := null;
1502: END IF;
1525: p_x_route_rec.task_template_group_id := l_old_route_rec.task_template_group_id;
1526: ELSE
1527: IF ( l_read_only_flag = 'Y' ) THEN
1528: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TASK_TEMP_RO' );
1529: FND_MSG_PUB.add;
1530: ELSE
1531: IF ( p_x_route_rec.task_template_group_id = FND_API.G_MISS_NUM ) THEN
1532: p_x_route_rec.task_template_group_id := null;
1533: END IF;
1538: p_x_route_rec.task_template_group := l_old_route_rec.task_template_group;
1539: ELSE
1540: IF ( l_read_only_flag = 'Y' ) THEN
1541: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_TASK_TEMP_RO' );
1542: FND_MSG_PUB.add;
1543: ELSE
1544: IF ( p_x_route_rec.task_template_group = FND_API.G_MISS_CHAR ) THEN
1545: p_x_route_rec.task_template_group := null;
1546: END IF;
1552: p_x_route_rec.warranty_template_id := l_old_route_rec.warranty_template_id;
1553: ELSE
1554: IF ( l_read_only_flag = 'Y' ) THEN
1555: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_WARR_TEMP_NAME_RO' );
1556: FND_MSG_PUB.add;
1557: ELSE
1558: IF ( p_x_route_rec.warranty_template_id = FND_API.G_MISS_NUM ) THEN
1559: p_x_route_rec.warranty_template_id := null;
1560: END IF;
1565: p_x_route_rec.warranty_template_name := l_old_route_rec.warranty_template_name;
1566: ELSE
1567: IF ( l_read_only_flag = 'Y' ) THEN
1568: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_WARR_TEMP_NAME_RO' );
1569: FND_MSG_PUB.add;
1570: ELSE
1571: IF ( p_x_route_rec.warranty_template_name = FND_API.G_MISS_CHAR ) THEN
1572: p_x_route_rec.warranty_template_name := null;
1573: END IF;
1578: IF ( p_x_route_rec.duplicate_flag IS NULL ) THEN
1579: p_x_route_rec.duplicate_flag := l_old_route_rec.duplicate_flag;
1580: ELSIF ( l_read_only_flag = 'Y' ) THEN
1581: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DUPLICATE_ROUTE_RO' );
1582: FND_MSG_PUB.add;
1583: END IF;
1584:
1585: IF ( p_x_route_rec.return_to_supply_flag IS NULL ) THEN
1586: p_x_route_rec.return_to_supply_flag := l_old_route_rec.return_to_supply_flag;
1585: IF ( p_x_route_rec.return_to_supply_flag IS NULL ) THEN
1586: p_x_route_rec.return_to_supply_flag := l_old_route_rec.return_to_supply_flag;
1587: ELSIF ( l_read_only_flag = 'Y' ) THEN
1588: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RETURN_TO_SUPPLY_RO' );
1589: FND_MSG_PUB.add;
1590: END IF;
1591:
1592: IF ( p_x_route_rec.qa_inspection_type IS NULL ) THEN
1593: p_x_route_rec.qa_inspection_type := l_old_route_rec.qa_inspection_type;
1593: p_x_route_rec.qa_inspection_type := l_old_route_rec.qa_inspection_type;
1594: ELSE
1595: IF ( l_read_only_flag = 'Y' ) THEN
1596: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
1597: FND_MSG_PUB.add;
1598: ELSE
1599: IF ( p_x_route_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
1600: p_x_route_rec.qa_inspection_type := null;
1601: END IF;
1606: p_x_route_rec.qa_inspection_type_desc := l_old_route_rec.qa_inspection_type_desc;
1607: ELSE
1608: IF ( l_read_only_flag = 'Y' ) THEN
1609: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
1610: FND_MSG_PUB.add;
1611: ELSE
1612: IF ( p_x_route_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
1613: p_x_route_rec.qa_inspection_type_desc := null;
1614: END IF;
1858: IF ( ( p_route_rec.dml_operation = 'C' AND
1859: p_route_rec.revision_status_code IS NULL ) OR
1860: p_route_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1861: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1862: FND_MSG_PUB.add;
1863: END IF;
1864: */
1865:
1866: -- Check if the Route Number does not column contains a null value.
1867: IF ( ( p_route_rec.dml_operation = 'C' AND
1868: p_route_rec.route_no IS NULL ) OR
1869: p_route_rec.route_no = FND_API.G_MISS_CHAR ) THEN
1870: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_NO_NULL' );
1871: FND_MSG_PUB.add;
1872: END IF;
1873:
1874: -- Check if the Route Title does not column contains a null value.
1875: IF ( ( p_route_rec.dml_operation = 'C' AND
1875: IF ( ( p_route_rec.dml_operation = 'C' AND
1876: p_route_rec.title IS NULL ) OR
1877: p_route_rec.title = FND_API.G_MISS_CHAR ) THEN
1878: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_TITLE_NULL' );
1879: FND_MSG_PUB.add;
1880: END IF;
1881:
1882: -- Check if the Route Start Date does not column contains a null value.
1883: IF ( ( p_route_rec.dml_operation = 'C' AND
1883: IF ( ( p_route_rec.dml_operation = 'C' AND
1884: p_route_rec.active_start_date IS NULL ) OR
1885: p_route_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1886: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1887: FND_MSG_PUB.add;
1888: END IF;
1889:
1890: --bachandr Enigma Phase I changes -- start
1891: -- Time Span is no longer a mandatory field during create/update of Routes from Enigma
1896: IF ( ( p_route_rec.dml_operation = 'C' AND
1897: p_route_rec.time_span IS NULL ) OR
1898: p_route_rec.time_span = FND_API.G_MISS_NUM ) THEN
1899: FND_MESSAGE.set_name( 'AHL','AHL_RM_TIME_SPAN_NULL' );
1900: FND_MSG_PUB.add;
1901: END IF;
1902: END IF;
1903:
1904: -- Check if the model code or meaning is not null for create
1907: IF ( (upper(p_route_rec.enigma_source_code) = 'AUTOMATIC') OR upper(p_route_rec.enigma_source_code) = 'MANUAL') THEN
1908: IF (( p_route_rec.model_code IS NULL OR p_route_rec.model_code = FND_API.G_MISS_CHAR ) AND
1909: ( p_route_rec.model_meaning IS NULL OR p_route_rec.model_meaning = FND_API.G_MISS_CHAR ) )THEN
1910: FND_MESSAGE.set_name( 'AHL','AHL_RM_MODEL_CODE_NULL' );
1911: FND_MSG_PUB.add;
1912: END IF;
1913: END IF;
1914: --bachandr Enigma Phase I changes -- end
1915:
1918: p_route_rec.time_span <> FND_API.G_MISS_NUM AND
1919: p_route_rec.time_span <= 0 ) THEN
1920: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_TIME_SPAN' );
1921: FND_MESSAGE.set_token( 'FIELD', p_route_rec.time_span );
1922: FND_MSG_PUB.add;
1923: END IF;
1924:
1925: IF ( p_route_rec.dml_operation = 'C' ) THEN
1926: RETURN;
1929: -- Check if the mandatory Route ID column contains a null value.
1930: IF ( p_route_rec.route_id IS NULL OR
1931: p_route_rec.route_id = FND_API.G_MISS_NUM ) THEN
1932: FND_MESSAGE.set_name( 'AHL','AHL_RM_ROUTE_ID_NULL' );
1933: FND_MSG_PUB.add;
1934: RETURN;
1935: END IF;
1936:
1937: -- Check if the mandatory Object Version Number column contains a null value.
1937: -- Check if the mandatory Object Version Number column contains a null value.
1938: IF ( p_route_rec.object_version_number IS NULL OR
1939: p_route_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1940: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1941: FND_MSG_PUB.add;
1942: RETURN;
1943: END IF;
1944:
1945: -- Validate whether the Time Span of the Route is Greater than the Longest Resource Duration for the Same Route and all the Associated Operations
1963: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1964: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1965: FND_MESSAGE.set_token( 'FIELD1', l_res_max_duration );
1966: FND_MESSAGE.set_token( 'FIELD2', p_route_rec.time_span );
1967: FND_MSG_PUB.add;
1968: END IF;
1969: END IF;
1970:
1971: -- Added by Tamal for Bug #3854052
1971: -- Added by Tamal for Bug #3854052
1972: IF (p_route_rec.dml_operation = 'U' AND p_route_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1973: THEN
1974: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_STS_NO_UPD' );
1975: FND_MSG_PUB.add;
1976: x_return_status := FND_API.G_RET_STS_ERROR;
1977: END IF;
1978: -- Added by Tamal for Bug #3854052
1979:
1983: FETCH validate_route_ovn INTO l_dummy;
1984: IF (validate_route_ovn%NOTFOUND)
1985: THEN
1986: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
1987: FND_MSG_PUB.add;
1988: END IF;
1989: END IF;
1990:
1991: END validate_attributes;
2023: THEN
2024: -- if its create then p_route_rec.route_id = null and any duplicate record should make you throw an err.
2025: IF ( get_dup_rec%FOUND ) THEN
2026: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2027: FND_MSG_PUB.add;
2028: x_return_status := FND_API.G_RET_STS_ERROR;
2029: END IF;
2030: ELSIF ( p_route_rec.dml_operation = 'U' )
2031: THEN
2030: ELSIF ( p_route_rec.dml_operation = 'U' )
2031: THEN
2032: IF ( l_route_id <> p_route_rec.route_id ) THEN
2033: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2034: FND_MSG_PUB.add;
2035: x_return_status := FND_API.G_RET_STS_ERROR;
2036: END IF;
2037: END IF;
2038:
2046: p_route_rec.active_start_date <> FND_API.G_MISS_DATE AND
2047: TRUNC( p_route_rec.active_start_date ) < TRUNC( SYSDATE ) ) THEN
2048: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
2049: FND_MESSAGE.set_token( 'FIELD', SYSDATE );
2050: FND_MSG_PUB.add;
2051: END IF;
2052: */
2053: -- Check if Active start date is less than today's date and the start
2054: -- date of the latest revision for DRAFT and APPROVAL_REJECTED Routes
2069:
2070: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2071: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2072: FND_MESSAGE.set_token( 'FIELD', l_start_date );
2073: FND_MSG_PUB.add;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: END IF;
2076: END IF;
2077:
2080: p_route_rec.zone_code IS NOT NULL ) AND
2081: ( p_route_rec.product_type IS NULL AND
2082: p_route_rec.product_type_code IS NULL ) ) THEN
2083: FND_MESSAGE.set_name( 'AHL','AHL_RM_PT_NULL_ZONE_NOTNULL' );
2084: FND_MSG_PUB.add;
2085: x_return_status := FND_API.G_RET_STS_ERROR;
2086: END IF;
2087:
2088: -- Check if Sub Zone contains a value but, the Product Type or Zone are NULL
2092: p_route_rec.product_type_code IS NULL ) OR
2093: ( p_route_rec.zone IS NULL AND
2094: p_route_rec.zone_code IS NULL ) ) ) THEN
2095: FND_MESSAGE.set_name( 'AHL','AHL_RM_PT_NULL_SUBZONE_NOTNULL' );
2096: FND_MSG_PUB.add;
2097: x_return_status := FND_API.G_RET_STS_ERROR;
2098: END IF;
2099:
2100: -- Check if the Zone is valid for the Product Type
2122: ELSE
2123: FND_MESSAGE.set_token( 'FIELD2', p_route_rec.product_type );
2124: END IF;
2125:
2126: FND_MSG_PUB.add;
2127: x_return_status := FND_API.G_RET_STS_ERROR;
2128: END IF;
2129: END IF;
2130:
2161: ELSE
2162: FND_MESSAGE.set_token( 'FIELD3', p_route_rec.product_type );
2163: END IF;
2164:
2165: FND_MSG_PUB.add;
2166: x_return_status := FND_API.G_RET_STS_ERROR;
2167: END IF;
2168: END IF;
2169:
2246: END IF;
2247:
2248: -- Initialize message list if p_init_msg_list is set to TRUE.
2249: IF FND_API.to_boolean( p_init_msg_list ) THEN
2250: FND_MSG_PUB.initialize;
2251: END IF;
2252:
2253: -- Enable Debug (optional)
2254: IF ( G_DEBUG = 'Y' ) THEN
2485: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after validate_record' );
2486: END IF;
2487:
2488: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2489: l_msg_count := FND_MSG_PUB.count_msg;
2490: IF l_msg_count > 0 THEN
2491: x_msg_count := l_msg_count;
2492: RAISE FND_API.G_EXC_ERROR;
2493: END IF;
2600: );
2601: EXCEPTION
2602: WHEN NO_DATA_FOUND THEN
2603: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2604: FND_MSG_PUB.add;
2605: WHEN OTHERS THEN
2606: IF ( SQLCODE = -1 ) THEN
2607: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2608: FND_MSG_PUB.add;
2604: FND_MSG_PUB.add;
2605: WHEN OTHERS THEN
2606: IF ( SQLCODE = -1 ) THEN
2607: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2608: FND_MSG_PUB.add;
2609: ELSE
2610: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2611: fnd_log.string
2612: (
2705:
2706: EXCEPTION
2707: WHEN NO_DATA_FOUND THEN
2708: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2709: FND_MSG_PUB.add;
2710: WHEN OTHERS THEN
2711: IF ( SQLCODE = -1 ) THEN
2712: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2713: FND_MSG_PUB.add;
2709: FND_MSG_PUB.add;
2710: WHEN OTHERS THEN
2711: IF ( SQLCODE = -1 ) THEN
2712: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
2713: FND_MSG_PUB.add;
2714: ELSE
2715: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2716: fnd_log.string
2717: (
2734: FETCH validate_system_kfv INTO l_kfv_flag;
2735: IF (validate_system_kfv%FOUND)
2736: THEN
2737: FND_MESSAGE.set_name('AHL', 'AHL_RM_INV_SYS_KFV');
2738: FND_MSG_PUB.add;
2739: END IF;
2740: CLOSE validate_system_kfv;
2741: END IF;
2742: CLOSE get_concat_segs;
2746: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
2747: END IF;
2748:
2749: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2750: l_msg_count := FND_MSG_PUB.count_msg;
2751: IF l_msg_count > 0 THEN
2752: x_msg_count := l_msg_count;
2753: RAISE FND_API.G_EXC_ERROR;
2754: END IF;
2758: COMMIT WORK;
2759: END IF;
2760:
2761: -- Count and Get messages (optional)
2762: FND_MSG_PUB.count_and_get
2763: (
2764: p_encoded => FND_API.G_FALSE,
2765: p_count => x_msg_count,
2766: p_data => x_msg_data
2775:
2776: WHEN FND_API.G_EXC_ERROR THEN
2777: ROLLBACK TO process_route_PVT;
2778: x_return_status := FND_API.G_RET_STS_ERROR ;
2779: FND_MSG_PUB.count_and_get
2780: (
2781: p_encoded => FND_API.G_FALSE,
2782: p_count => x_msg_count,
2783: p_data => x_msg_data
2790:
2791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2792: ROLLBACK TO process_route_PVT;
2793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2794: FND_MSG_PUB.count_and_get
2795: (
2796: p_encoded => FND_API.G_FALSE,
2797: p_count => x_msg_count,
2798: p_data => x_msg_data
2805:
2806: WHEN OTHERS THEN
2807: ROLLBACK TO process_route_PVT;
2808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2809: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2810: THEN
2811: FND_MSG_PUB.add_exc_msg
2812: (
2813: p_pkg_name => G_PKG_NAME,
2807: ROLLBACK TO process_route_PVT;
2808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2809: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2810: THEN
2811: FND_MSG_PUB.add_exc_msg
2812: (
2813: p_pkg_name => G_PKG_NAME,
2814: p_procedure_name => l_api_name,
2815: p_error_text => SUBSTRB(SQLERRM,1,240)
2814: p_procedure_name => l_api_name,
2815: p_error_text => SUBSTRB(SQLERRM,1,240)
2816: );
2817: END IF;
2818: FND_MSG_PUB.count_and_get
2819: (
2820: p_encoded => FND_API.G_FALSE,
2821: p_count => x_msg_count,
2822: p_data => x_msg_data
2901: END IF;
2902:
2903: -- Initialize message list if p_init_msg_list is set to TRUE.
2904: IF FND_API.to_boolean( p_init_msg_list ) THEN
2905: FND_MSG_PUB.initialize;
2906: END IF;
2907:
2908: -- Enable Debug (optional)
2909: IF ( G_DEBUG = 'Y' ) THEN
2936: p_object_version_number IS NULL OR
2937: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2938: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2939: FND_MESSAGE.set_token( 'PROCEDURE', l_api_name );
2940: FND_MSG_PUB.add;
2941: RAISE FND_API.G_EXC_ERROR;
2942: END IF;
2943:
2944: OPEN validate_route_ovn;
2945: FETCH validate_route_ovn INTO l_dummy;
2946: IF (validate_route_ovn%NOTFOUND)
2947: THEN
2948: FND_MESSAGE.set_name('AHL', 'AHL_COM_RECORD_CHANGED');
2949: FND_MSG_PUB.add;
2950: x_return_status := FND_API.G_RET_STS_ERROR;
2951: RAISE FND_API.G_EXC_ERROR;
2952: END IF;
2953:
2968: IF G_DEBUG = 'Y' THEN
2969: AHL_DEBUG_PUB.debug( 'Enigma Route Id IS NOT NULL');
2970: END IF;
2971: FND_MESSAGE.set_name('AHL', 'AHL_RM_ROUTE_ENIG_DEL');
2972: FND_MSG_PUB.add;
2973: x_return_status := FND_API.G_RET_STS_ERROR;
2974: RAISE FND_API.G_EXC_ERROR;
2975: END IF;
2976: CLOSE get_enigma_route_id;
2991: ELSE
2992: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2993: END IF;
2994:
2995: FND_MSG_PUB.add;
2996: RAISE FND_API.G_EXC_ERROR;
2997: END IF;
2998:
2999:
3093:
3094: EXCEPTION
3095: WHEN NO_DATA_FOUND THEN
3096: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
3097: FND_MSG_PUB.add;
3098: RAISE FND_API.G_EXC_ERROR;
3099: WHEN OTHERS THEN
3100: RAISE;
3101: END;
3109: COMMIT WORK;
3110: END IF;
3111:
3112: -- Count and Get messages (optional)
3113: FND_MSG_PUB.count_and_get
3114: (
3115: p_encoded => FND_API.G_FALSE,
3116: p_count => x_msg_count,
3117: p_data => x_msg_data
3126:
3127: WHEN FND_API.G_EXC_ERROR THEN
3128: ROLLBACK TO delete_route_PVT;
3129: x_return_status := FND_API.G_RET_STS_ERROR ;
3130: FND_MSG_PUB.count_and_get
3131: (
3132: p_encoded => FND_API.G_FALSE,
3133: p_count => x_msg_count,
3134: p_data => x_msg_data
3141:
3142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3143: ROLLBACK TO delete_route_PVT;
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3145: FND_MSG_PUB.count_and_get
3146: (
3147: p_encoded => FND_API.G_FALSE,
3148: p_count => x_msg_count,
3149: p_data => x_msg_data
3156:
3157: WHEN OTHERS THEN
3158: ROLLBACK TO delete_route_PVT;
3159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3160: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3161: THEN
3162: FND_MSG_PUB.add_exc_msg
3163: (
3164: p_pkg_name => G_PKG_NAME,
3158: ROLLBACK TO delete_route_PVT;
3159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3160: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3161: THEN
3162: FND_MSG_PUB.add_exc_msg
3163: (
3164: p_pkg_name => G_PKG_NAME,
3165: p_procedure_name => l_api_name,
3166: p_error_text => SUBSTRB(SQLERRM,1,240)
3165: p_procedure_name => l_api_name,
3166: p_error_text => SUBSTRB(SQLERRM,1,240)
3167: );
3168: END IF;
3169: FND_MSG_PUB.count_and_get
3170: (
3171: p_encoded => FND_API.G_FALSE,
3172: p_count => x_msg_count,
3173: p_data => x_msg_data
3418: END IF;
3419:
3420: -- Initialize message list if p_init_msg_list is set to TRUE.
3421: IF FND_API.to_boolean( p_init_msg_list ) THEN
3422: FND_MSG_PUB.initialize;
3423: END IF;
3424:
3425: -- Enable Debug (optional)
3426: IF ( G_DEBUG = 'Y' ) THEN
3453: p_route_id = FND_API.G_MISS_NUM OR
3454: p_object_version_number IS NULL OR
3455: p_object_version_number = FND_API.G_MISS_NUM ) THEN
3456: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
3457: FND_MSG_PUB.add;
3458: RAISE FND_API.G_EXC_ERROR;
3459: END IF;
3460:
3461: get_route_record
3468: );
3469:
3470: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
3471: FND_MESSAGE.set_name( 'AHL', l_msg_data );
3472: FND_MSG_PUB.add;
3473: RAISE FND_API.G_EXC_ERROR;
3474: END IF;
3475:
3476: -- Check if the Status is COMPLETE
3476: -- Check if the Status is COMPLETE
3477: IF ( l_old_route_rec.revision_status_code <> 'COMPLETE' ) THEN
3478: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_STATUS_NOT_COMPLETE' );
3479: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3480: FND_MSG_PUB.add;
3481: RAISE FND_API.G_EXC_ERROR;
3482: END IF;
3483:
3484: -- Check if this revision is not Terminated
3484: -- Check if this revision is not Terminated
3485: IF ( l_old_route_rec.active_end_date IS NOT NULL ) THEN
3486: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
3487: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3488: FND_MSG_PUB.add;
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491:
3492: -- Check if this revision is the latest complete revision of this Route
3497:
3498: IF ( l_revision_number <> l_old_route_rec.revision_number ) THEN
3499: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_REVISION_NOT_LATEST' );
3500: FND_MESSAGE.set_token( 'RECORD', l_old_route_rec.route_no );
3501: FND_MSG_PUB.add;
3502: CLOSE get_latest_revision;
3503: RAISE FND_API.G_EXC_ERROR;
3504: END IF;
3505:
3607:
3608: EXCEPTION
3609: WHEN NO_DATA_FOUND THEN
3610: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
3611: FND_MSG_PUB.add;
3612: WHEN OTHERS THEN
3613: IF ( SQLCODE = -1 ) THEN
3614: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
3615: FND_MSG_PUB.add;
3611: FND_MSG_PUB.add;
3612: WHEN OTHERS THEN
3613: IF ( SQLCODE = -1 ) THEN
3614: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_NO_DUP' );
3615: FND_MSG_PUB.add;
3616: ELSE
3617: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3618: fnd_log.string
3619: (
4319: COMMIT WORK;
4320: END IF;
4321:
4322: -- Count and Get messages (optional)
4323: FND_MSG_PUB.count_and_get
4324: (
4325: p_encoded => FND_API.G_FALSE,
4326: p_count => x_msg_count,
4327: p_data => x_msg_data
4336:
4337: WHEN FND_API.G_EXC_ERROR THEN
4338: ROLLBACK TO create_route_revision_PVT;
4339: x_return_status := FND_API.G_RET_STS_ERROR ;
4340: FND_MSG_PUB.count_and_get
4341: (
4342: p_encoded => FND_API.G_FALSE,
4343: p_count => x_msg_count,
4344: p_data => x_msg_data
4351:
4352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4353: ROLLBACK TO create_route_revision_PVT;
4354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4355: FND_MSG_PUB.count_and_get
4356: (
4357: p_encoded => FND_API.G_FALSE,
4358: p_count => x_msg_count,
4359: p_data => x_msg_data
4366:
4367: WHEN OTHERS THEN
4368: ROLLBACK TO create_route_revision_PVT;
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4371: THEN
4372: FND_MSG_PUB.add_exc_msg
4373: (
4374: p_pkg_name => G_PKG_NAME,
4368: ROLLBACK TO create_route_revision_PVT;
4369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4370: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4371: THEN
4372: FND_MSG_PUB.add_exc_msg
4373: (
4374: p_pkg_name => G_PKG_NAME,
4375: p_procedure_name => l_api_name,
4376: p_error_text => SUBSTRB(SQLERRM,1,240)
4375: p_procedure_name => l_api_name,
4376: p_error_text => SUBSTRB(SQLERRM,1,240)
4377: );
4378: END IF;
4379: FND_MSG_PUB.count_and_get
4380: (
4381: p_encoded => FND_API.G_FALSE,
4382: p_count => x_msg_count,
4383: p_data => x_msg_data