eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMD_QM_CONC_REPLACE_PKG dependencies on FND_API

Line 789: IF l_return_status <> fnd_api.g_ret_sts_success THEN

785: , x_return_status => l_return_status
786: , x_test_values_rec => l_test_values_rec
787: );
788:
789: IF l_return_status <> fnd_api.g_ret_sts_success THEN
790: RAISE NO_UPDATE_EXCEPTION;
791: END IF;
792:
793: /* need to validate the min max for the test, no changes made if exceeds the max*/

Line 872: IF l_return_status <> fnd_api.g_ret_sts_success THEN

868: , x_new_spec_vers => l_new_spec_vers
869: , x_return_status => l_return_status
870: );
871:
872: IF l_return_status <> fnd_api.g_ret_sts_success THEN
873: RAISE NO_UPDATE_EXCEPTION;
874: END IF;
875:
876: /* default new spec_rec with the old one*/

Line 922: IF l_return_status <> fnd_api.g_ret_sts_success THEN

918: , p_spec_test_rec => l_spec_test_rec
919: , x_return_status => l_return_status
920: );
921:
922: IF l_return_status <> fnd_api.g_ret_sts_success THEN
923: RAISE NO_UPDATE_EXCEPTION;
924: END IF;
925:
926: default_log ( ' Copying Test: '

Line 940: IF l_return_status <> fnd_api.g_ret_sts_success THEN

936: , p_spec_test_rec => l_spec_test_rec
937: , x_return_status => l_return_status
938: );
939:
940: IF l_return_status <> fnd_api.g_ret_sts_success THEN
941: RAISE NO_UPDATE_EXCEPTION;
942: END IF;
943: END LOOP;
944:

Line 1000: IF l_return_status <> fnd_api.g_ret_sts_success THEN

996: , x_new_spec_vers => l_new_spec_vers
997: , x_return_status => l_return_status
998: );
999:
1000: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1001: RAISE NO_UPDATE_EXCEPTION;
1002: END IF;
1003:
1004: /* do the loop for all spec tests for the old spec */

Line 1029: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1025: , p_spec_test_rec => l_spec_test_rec
1026: , x_return_status => l_return_status
1027: );
1028:
1029: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1030: RAISE NO_UPDATE_EXCEPTION;
1031: END IF;
1032:
1033: default_log ( ' Copying Test: '

Line 1047: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1043: , p_spec_test_rec => l_spec_test_rec
1044: , x_return_status => l_return_status
1045: );
1046:
1047: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1048: RAISE NO_UPDATE_EXCEPTION;
1049: END IF;
1050: END LOOP;
1051:

Line 1071: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1067: , p_spec_test_rec => l_spec_test_rec
1068: , x_return_status => l_return_status
1069: );
1070:
1071: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1072: RAISE NO_UPDATE_EXCEPTION;
1073: END IF;
1074:
1075: add_spec_test_rec (p_spec_id => l_new_spec_id

Line 1082: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1078: , p_spec_test_rec => l_spec_test_rec
1079: , x_return_status => l_return_status
1080: );
1081:
1082: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1083: RAISE NO_UPDATE_EXCEPTION;
1084: END IF;
1085: END IF; --ADDTEST
1086:

Line 1102: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1098: , p_test_name => pnew_name
1099: , x_return_status => l_return_status
1100: );
1101:
1102: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1103: RAISE NO_UPDATE_EXCEPTION;
1104: END IF;
1105: ELSE
1106: -- if version controled, add a new spec version and create spec_test records without this test

Line 1143: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1139: , p_spec_test_rec => l_spec_test_rec
1140: , x_return_status => l_return_status
1141: );
1142:
1143: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1144: RAISE NO_UPDATE_EXCEPTION;
1145: END IF;
1146:
1147: default_log ( ' Copying Test: '

Line 1161: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1157: , p_spec_test_rec => l_spec_test_rec
1158: , x_return_status => l_return_status
1159: );
1160:
1161: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1162: RAISE NO_UPDATE_EXCEPTION;
1163: END IF;
1164: END IF;
1165: END LOOP;

Line 1196: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1192: , x_new_spec_vers => l_new_spec_vers
1193: , x_return_status => l_return_status
1194: );
1195:
1196: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1197: RAISE NO_UPDATE_EXCEPTION;
1198: END IF;
1199:
1200: /* do the loop for all spec tests for the old spec */

Line 1227: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1223: , p_spec_test_rec => l_spec_test_rec
1224: , x_return_status => l_return_status
1225: );
1226:
1227: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1228: RAISE NO_UPDATE_EXCEPTION;
1229: END IF;
1230:
1231: default_log ( ' Copying Test: '

Line 1245: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1241: , p_spec_test_rec => l_spec_test_rec
1242: , x_return_status => l_return_status
1243: );
1244:
1245: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1246: RAISE NO_UPDATE_EXCEPTION;
1247: END IF;
1248: END IF;
1249: END LOOP;

Line 1303: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1299: , p_spec_test_rec => l_spec_test_rec
1300: , x_return_status => l_return_status
1301: );
1302:
1303: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1304: RAISE NO_UPDATE_EXCEPTION;
1305: END IF;
1306:
1307: -- Bug# 5882074 assign back the sequence from the old test.

Line 1323: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1319: , p_test_name => pold_name
1320: , x_return_status => l_return_status
1321: );
1322:
1323: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1324: RAISE NO_UPDATE_EXCEPTION;
1325: END IF;
1326: ELSE
1327: /* do nothing if 'Y', becasue this record does not exist for the new spec */

Line 1339: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1335: , p_spec_test_rec => l_spec_test_rec
1336: , x_return_status => l_return_status
1337: );
1338:
1339: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1340: RAISE NO_UPDATE_EXCEPTION;
1341: END IF;
1342: END IF; --REPTEST
1343:

Line 1358: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1354: , p_new_spec_id => l_new_spec_id
1355: , x_return_status => l_return_status
1356: );
1357:
1358: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1359: RAISE NO_UPDATE_EXCEPTION;
1360: END IF;
1361: END IF;
1362: ELSIF pobject_type = 'VALIDITY' THEN

Line 1392: IF l_return_status <> fnd_api.g_ret_sts_success THEN

1388: , p_new_status => l_new_status
1389: , x_return_status => l_return_status
1390: );
1391:
1392: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1393: RAISE NO_UPDATE_EXCEPTION;
1394: END IF;
1395: END IF; -- If specification or validity
1396: EXCEPTION

Line 1554: x_return_status := fnd_api.g_ret_sts_success;

1550:
1551: --End smalluru Bug#6415285
1552:
1553: BEGIN
1554: x_return_status := fnd_api.g_ret_sts_success;
1555:
1556: OPEN get_gmd_test (p_test_name);
1557: FETCH get_gmd_test INTO l_gmd_test_rec;
1558: CLOSE get_gmd_test;

Line 1603: IF x_return_status <> fnd_api.g_ret_sts_success THEN

1599: , x_return_status => x_return_status
1600: , x_test_values_rec => l_test_values_rec
1601: );
1602:
1603: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1604: RAISE fnd_api.g_exc_error;
1605: END IF;
1606:
1607: -- Begin smalluru Bug#6415285.

Line 1604: RAISE fnd_api.g_exc_error;

1600: , x_test_values_rec => l_test_values_rec
1601: );
1602:
1603: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1604: RAISE fnd_api.g_exc_error;
1605: END IF;
1606:
1607: -- Begin smalluru Bug#6415285.
1608: -- Validating the values entered in target, min and max fields

Line 1620: raise FND_API.G_EXC_ERROR;

1616: default_log(' Target values are out of range, '
1617: ||' Target Value: '||l_test_values_rec.target_value_num
1618: ||' Target Max: '||l_test_values_rec.max_value_num
1619: ||' Target Min: '||l_test_values_rec.min_value_num);
1620: raise FND_API.G_EXC_ERROR;
1621: End if;
1622: Elsif l_gmd_test_rec.test_type = 'T' then
1623:
1624: open text_range_tests;

Line 1659: raise FND_API.G_EXC_ERROR;

1655: default_log(' Target values are out of range, '
1656: ||' Target Value: '||l_test_values_rec.target_value_char
1657: ||' Target Max: '||l_test_values_rec.max_value_char
1658: ||' Target Min: '||l_test_values_rec.min_value_char);
1659: raise FND_API.G_EXC_ERROR;
1660: end if;
1661:
1662: Elsif l_gmd_test_rec.test_type = 'V' Then
1663: If l_test_values_rec.target_value_char is null Then

Line 1667: raise FND_API.G_EXC_ERROR;

1663: If l_test_values_rec.target_value_char is null Then
1664: --Target is required for List of Values Tests.
1665: default_log(' Target value should not be NULL, '
1666: ||' Target Value: '||l_test_values_rec.target_value_char);
1667: raise FND_API.G_EXC_ERROR;
1668: else
1669: found:=0;
1670: Open List_of_values_tests;
1671: LOOP

Line 1687: raise FND_API.G_EXC_ERROR;

1683: If found = 0 Then
1684: --Target value is not there in the List of Values
1685: default_log(' Target value is out of range, '
1686: ||' Target Value: '||l_test_values_rec.target_value_char);
1687: raise FND_API.G_EXC_ERROR;
1688: End If;
1689:
1690: End if;
1691: End if;

Line 1784: WHEN fnd_api.g_exc_error THEN

1780: l_spec_test_rec.calc_uom_conv_ind := NULL;
1781: l_spec_test_rec.to_qty_uom := NULL; -- Bug# 5882074 changed to_uom to to_qty_uom
1782: p_spec_test_rec := l_spec_test_rec;
1783: EXCEPTION
1784: WHEN fnd_api.g_exc_error THEN
1785: x_return_status := fnd_api.g_ret_sts_unexp_error;
1786: default_log ('Default spectest from test result in Error');
1787: WHEN OTHERS THEN
1788: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 1785: x_return_status := fnd_api.g_ret_sts_unexp_error;

1781: l_spec_test_rec.to_qty_uom := NULL; -- Bug# 5882074 changed to_uom to to_qty_uom
1782: p_spec_test_rec := l_spec_test_rec;
1783: EXCEPTION
1784: WHEN fnd_api.g_exc_error THEN
1785: x_return_status := fnd_api.g_ret_sts_unexp_error;
1786: default_log ('Default spectest from test result in Error');
1787: WHEN OTHERS THEN
1788: x_return_status := fnd_api.g_ret_sts_unexp_error;
1789: default_log ('Default spectest from test result in Error');

Line 1788: x_return_status := fnd_api.g_ret_sts_unexp_error;

1784: WHEN fnd_api.g_exc_error THEN
1785: x_return_status := fnd_api.g_ret_sts_unexp_error;
1786: default_log ('Default spectest from test result in Error');
1787: WHEN OTHERS THEN
1788: x_return_status := fnd_api.g_ret_sts_unexp_error;
1789: default_log ('Default spectest from test result in Error');
1790: END default_spectest_from_test;
1791:
1792: PROCEDURE default_spectest_from_spectest (

Line 1825: x_return_status := fnd_api.g_ret_sts_success;

1821: SELECT *
1822: FROM gmd_qc_tests_b
1823: WHERE test_code = p_test_name;
1824: BEGIN
1825: x_return_status := fnd_api.g_ret_sts_success;
1826:
1827: OPEN get_spec_test_rec (p_from_spec_id, p_from_test_id);
1828: FETCH get_spec_test_rec INTO l_from_spec_test_rec;
1829: CLOSE get_spec_test_rec;

Line 1865: IF x_return_status <> fnd_api.g_ret_sts_success THEN

1861: , x_return_status => x_return_status
1862: , x_test_values_rec => l_test_values_rec
1863: );
1864:
1865: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1866: RAISE fnd_api.g_exc_error;
1867: END IF;
1868:
1869: DEBUG ('default from spectest , after set test values');

Line 1866: RAISE fnd_api.g_exc_error;

1862: , x_test_values_rec => l_test_values_rec
1863: );
1864:
1865: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1866: RAISE fnd_api.g_exc_error;
1867: END IF;
1868:
1869: DEBUG ('default from spectest , after set test values');
1870: l_to_spec_test_rec := l_from_spec_test_rec;

Line 1885: WHEN fnd_api.g_exc_error THEN

1881: l_to_spec_test_rec.target_value_char := l_test_values_rec.target_value_char;
1882: l_to_spec_test_rec.test_id := l_gmd_test_rec.test_id;
1883: p_spec_test_rec := l_to_spec_test_rec;
1884: EXCEPTION
1885: WHEN fnd_api.g_exc_error THEN
1886: x_return_status := fnd_api.g_ret_sts_unexp_error;
1887: default_log ('Default spectest from spectest result in Error');
1888: WHEN OTHERS THEN
1889: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 1886: x_return_status := fnd_api.g_ret_sts_unexp_error;

1882: l_to_spec_test_rec.test_id := l_gmd_test_rec.test_id;
1883: p_spec_test_rec := l_to_spec_test_rec;
1884: EXCEPTION
1885: WHEN fnd_api.g_exc_error THEN
1886: x_return_status := fnd_api.g_ret_sts_unexp_error;
1887: default_log ('Default spectest from spectest result in Error');
1888: WHEN OTHERS THEN
1889: x_return_status := fnd_api.g_ret_sts_unexp_error;
1890: default_log ('Default spectest from spectest result in Error');

Line 1889: x_return_status := fnd_api.g_ret_sts_unexp_error;

1885: WHEN fnd_api.g_exc_error THEN
1886: x_return_status := fnd_api.g_ret_sts_unexp_error;
1887: default_log ('Default spectest from spectest result in Error');
1888: WHEN OTHERS THEN
1889: x_return_status := fnd_api.g_ret_sts_unexp_error;
1890: default_log ('Default spectest from spectest result in Error');
1891: END default_spectest_from_spectest;
1892:
1893: PROCEDURE set_test_values (

Line 1936: x_return_status := fnd_api.g_ret_sts_success;

1932: */
1933:
1934:
1935: BEGIN
1936: x_return_status := fnd_api.g_ret_sts_success;
1937: /* lookup code for test type GMD_QC_TEST_DATE_TYPE
1938: * U -- Non-Validated
1939: * N -- Numeric Range
1940: * V -- List of Test Values

Line 2061: RAISE fnd_api.g_exc_error;

2057: || ' Report Precision: '
2058: || preport_precision
2059: || ' Display Precision: '
2060: || pstore_precision);
2061: RAISE fnd_api.g_exc_error;
2062: ELSIF (pstore_precision > l_store_precision) THEN
2063: default_log ( 'Display precision for Spec test cannot be greater than the display precision specified in the test definition.'
2064: || ' Display Precision in Spec test: '
2065: || pstore_precision

Line 2068: RAISE fnd_api.g_exc_error;

2064: || ' Display Precision in Spec test: '
2065: || pstore_precision
2066: || ' Display Precision in test: '
2067: || l_store_precision);
2068: RAISE fnd_api.g_exc_error;
2069: ELSIF (preport_precision > l_report_precision) THEN
2070: default_log ( 'Report precision for Spec test cannot be greater than the report precision specified in the test definition.'
2071: || ' Report Precision in Spec test: '
2072: || preport_precision

Line 2075: RAISE fnd_api.g_exc_error;

2071: || ' Report Precision in Spec test: '
2072: || preport_precision
2073: || ' Report Precision in test: '
2074: || l_report_precision);
2075: RAISE fnd_api.g_exc_error;
2076: END IF;
2077:
2078: --RLNAGARA end Bug 6972284
2079:

Line 2134: RAISE fnd_api.g_exc_error;

2130: || ' Target Max: '
2131: || l_test_values_rec.max_value_num
2132: || ' Target Min: '
2133: || l_test_values_rec.min_value_num);
2134: RAISE fnd_api.g_exc_error;
2135: END IF;
2136: END IF;
2137:
2138: IF NVL (l_test_values_rec.min_value_num, 0) > NVL (l_test_values_rec.max_value_num, 0) THEN

Line 2147: RAISE fnd_api.g_exc_error;

2143: || ' Target Max: '
2144: || l_test_values_rec.max_value_num
2145: || ' Target Min: '
2146: || l_test_values_rec.min_value_num);
2147: RAISE fnd_api.g_exc_error;
2148: END IF;
2149:
2150: x_test_values_rec := l_test_values_rec;
2151: EXCEPTION

Line 2152: WHEN fnd_api.g_exc_error THEN

2148: END IF;
2149:
2150: x_test_values_rec := l_test_values_rec;
2151: EXCEPTION
2152: WHEN fnd_api.g_exc_error THEN
2153: x_return_status := fnd_api.g_ret_sts_unexp_error;
2154: default_log ('Set Test Values result in Error');
2155: WHEN OTHERS THEN
2156: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2153: x_return_status := fnd_api.g_ret_sts_unexp_error;

2149:
2150: x_test_values_rec := l_test_values_rec;
2151: EXCEPTION
2152: WHEN fnd_api.g_exc_error THEN
2153: x_return_status := fnd_api.g_ret_sts_unexp_error;
2154: default_log ('Set Test Values result in Error');
2155: WHEN OTHERS THEN
2156: x_return_status := fnd_api.g_ret_sts_unexp_error;
2157: default_log ('Set Test Values result in Error');

Line 2156: x_return_status := fnd_api.g_ret_sts_unexp_error;

2152: WHEN fnd_api.g_exc_error THEN
2153: x_return_status := fnd_api.g_ret_sts_unexp_error;
2154: default_log ('Set Test Values result in Error');
2155: WHEN OTHERS THEN
2156: x_return_status := fnd_api.g_ret_sts_unexp_error;
2157: default_log ('Set Test Values result in Error');
2158: END set_test_values;
2159:
2160: /*###############################################################

Line 2203: x_return_status := fnd_api.g_ret_sts_success;

2199: SELECT spec_vr_status
2200: FROM gmd_all_spec_vrs_vl
2201: WHERE spec_id = p_spec_id;
2202: BEGIN
2203: x_return_status := fnd_api.g_ret_sts_success;
2204:
2205: DEBUG ('In creat_new_specification, old_spec_id ' || p_old_spec_id);
2206: OPEN get_spec_rec (p_old_spec_id);
2207: FETCH get_spec_rec INTO l_old_spec_rec;

Line 2228: RAISE fnd_api.g_exc_error;

2224: CLOSE get_default_status;
2225:
2226: IF l_default_spec_sts IS NULL THEN
2227: default_log (' Default Spec Status is not set to crete new specification');
2228: RAISE fnd_api.g_exc_error;
2229: END IF;
2230:
2231: IF l_manage_vr_ind IN ('E', 'O')
2232: AND l_default_spec_sts <> 100 THEN

Line 2237: RAISE fnd_api.g_exc_error;

2233: FOR validity_rules IN get_vrs_rec (l_old_spec_rec.spec_id) LOOP
2234: IF validity_rules.spec_vr_status IN (200, 500) THEN
2235: default_log ( ' With the value of Manage Validity Rules, the Default Spec Status should NOT be '
2236: || l_default_spec_sts);
2237: RAISE fnd_api.g_exc_error;
2238: END IF;
2239: END LOOP;
2240: END IF;
2241:

Line 2260: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2256: , x_new_spec_id => x_new_spec_id
2257: , x_return_status => x_return_status
2258: );
2259:
2260: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2263:
2264: x_new_spec_vers := l_new_spec_rec.spec_vers;

Line 2261: RAISE fnd_api.g_exc_error;

2257: , x_return_status => x_return_status
2258: );
2259:
2260: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2261: RAISE fnd_api.g_exc_error;
2262: END IF;
2263:
2264: x_new_spec_vers := l_new_spec_rec.spec_vers;
2265:

Line 2274: WHEN fnd_api.g_exc_error THEN

2270: || l_new_spec_rec.spec_vers
2271: || ' Spec Id: '
2272: || x_new_spec_id);
2273: EXCEPTION
2274: WHEN fnd_api.g_exc_error THEN
2275: x_return_status := fnd_api.g_ret_sts_unexp_error;
2276: default_log ('Create New Specification result in Error');
2277: WHEN OTHERS THEN
2278: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2275: x_return_status := fnd_api.g_ret_sts_unexp_error;

2271: || ' Spec Id: '
2272: || x_new_spec_id);
2273: EXCEPTION
2274: WHEN fnd_api.g_exc_error THEN
2275: x_return_status := fnd_api.g_ret_sts_unexp_error;
2276: default_log ('Create New Specification result in Error');
2277: WHEN OTHERS THEN
2278: x_return_status := fnd_api.g_ret_sts_unexp_error;
2279: default_log ('Create New Specification result in Error');

Line 2278: x_return_status := fnd_api.g_ret_sts_unexp_error;

2274: WHEN fnd_api.g_exc_error THEN
2275: x_return_status := fnd_api.g_ret_sts_unexp_error;
2276: default_log ('Create New Specification result in Error');
2277: WHEN OTHERS THEN
2278: x_return_status := fnd_api.g_ret_sts_unexp_error;
2279: default_log ('Create New Specification result in Error');
2280: END create_new_specification;
2281:
2282: PROCEDURE insert_new_spec_rec (

Line 2291: x_return_status := fnd_api.g_ret_sts_success;

2287: l_new_spec_rec gmd_specifications%ROWTYPE;
2288: l_spec_id gmd_specifications.spec_id%TYPE;
2289: l_row_id VARCHAR2 (200);
2290: BEGIN
2291: x_return_status := fnd_api.g_ret_sts_success;
2292: l_new_spec_rec := p_spec_rec;
2293: DEBUG ('Inserting new version of the spec: ' || l_new_spec_rec.spec_name);
2294: DEBUG ('Inserting new version of the spec ver: ' || l_new_spec_rec.spec_vers);
2295:

Line 2355: x_return_status := fnd_api.g_ret_sts_unexp_error;

2351:
2352: x_new_spec_id := l_spec_id;
2353: EXCEPTION
2354: WHEN OTHERS THEN
2355: x_return_status := fnd_api.g_ret_sts_unexp_error;
2356: default_log ('Insert New spec rec result in Error');
2357: END insert_new_spec_rec;
2358:
2359: /* add spec_test record for the test with p_test_name to spec_id

Line 2400: x_return_status := fnd_api.g_ret_sts_success;

2396: WHERE s.spec_id = p_spec_id
2397: AND s.test_id = t.test_id
2398: AND t.test_type <> 'E';
2399: BEGIN
2400: x_return_status := fnd_api.g_ret_sts_success;
2401: l_exist := 0;
2402: l_spec_test_rec := p_spec_test_rec;
2403: l_spec_test_rec.spec_id := p_spec_id;
2404:

Line 2429: RAISE fnd_api.g_exc_error;

2425: );
2426:
2427: IF (NOT l_check) THEN
2428: default_log (' Test (' || p_test_name || ') Expression contains test(s) which are not in this spec');
2429: RAISE fnd_api.g_exc_error;
2430: END IF;
2431:
2432: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2433: RAISE fnd_api.g_exc_error;

Line 2432: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2428: default_log (' Test (' || p_test_name || ') Expression contains test(s) which are not in this spec');
2429: RAISE fnd_api.g_exc_error;
2430: END IF;
2431:
2432: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2433: RAISE fnd_api.g_exc_error;
2434: END IF;
2435: END LOOP;
2436: END IF;

Line 2433: RAISE fnd_api.g_exc_error;

2429: RAISE fnd_api.g_exc_error;
2430: END IF;
2431:
2432: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2433: RAISE fnd_api.g_exc_error;
2434: END IF;
2435: END LOOP;
2436: END IF;
2437:

Line 2455: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2451:
2452: DEBUG ('Inserting new optional_ind: ' || l_spec_test_rec.optional_ind);
2453: insert_spec_test_rec (p_spec_test_rec => l_spec_test_rec, x_return_status => x_return_status);
2454:
2455: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2456: RAISE fnd_api.g_exc_error;
2457: END IF;
2458:
2459: default_log ( ' Created spec test record : '

Line 2456: RAISE fnd_api.g_exc_error;

2452: DEBUG ('Inserting new optional_ind: ' || l_spec_test_rec.optional_ind);
2453: insert_spec_test_rec (p_spec_test_rec => l_spec_test_rec, x_return_status => x_return_status);
2454:
2455: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2456: RAISE fnd_api.g_exc_error;
2457: END IF;
2458:
2459: default_log ( ' Created spec test record : '
2460: || p_test_name

Line 2476: WHEN fnd_api.g_exc_error THEN

2472: || p_test_name);
2473: DEBUG (' ADDTEST: Spec Test already exists');
2474: END IF; -- exist spec_test
2475: EXCEPTION
2476: WHEN fnd_api.g_exc_error THEN
2477: x_return_status := fnd_api.g_ret_sts_unexp_error;
2478: default_log ('Create New Spectest result in Error');
2479: WHEN OTHERS THEN
2480: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2477: x_return_status := fnd_api.g_ret_sts_unexp_error;

2473: DEBUG (' ADDTEST: Spec Test already exists');
2474: END IF; -- exist spec_test
2475: EXCEPTION
2476: WHEN fnd_api.g_exc_error THEN
2477: x_return_status := fnd_api.g_ret_sts_unexp_error;
2478: default_log ('Create New Spectest result in Error');
2479: WHEN OTHERS THEN
2480: x_return_status := fnd_api.g_ret_sts_unexp_error;
2481: default_log ('Create New Spectest result in Error');

Line 2480: x_return_status := fnd_api.g_ret_sts_unexp_error;

2476: WHEN fnd_api.g_exc_error THEN
2477: x_return_status := fnd_api.g_ret_sts_unexp_error;
2478: default_log ('Create New Spectest result in Error');
2479: WHEN OTHERS THEN
2480: x_return_status := fnd_api.g_ret_sts_unexp_error;
2481: default_log ('Create New Spectest result in Error');
2482: END add_spec_test_rec;
2483:
2484: /* delete spec_test record for the test with p_test_name to spec_id

Line 2519: x_return_status := fnd_api.g_ret_sts_success;

2515: WHERE s.spec_id = p_spec_id
2516: AND s.test_id = t.test_id
2517: AND t.test_type = 'E';
2518: BEGIN
2519: x_return_status := fnd_api.g_ret_sts_success;
2520:
2521: OPEN get_gmd_test (p_test_name);
2522: FETCH get_gmd_test INTO l_gmd_test_rec;
2523: CLOSE get_gmd_test;

Line 2540: RAISE fnd_api.g_exc_error;

2536: , p_test_name => p_test_name
2537: , x_return_status => x_return_status
2538: ) THEN
2539: default_log (' Test ' || p_test_name || ' is used in an expression within the spec');
2540: RAISE fnd_api.g_exc_error;
2541: END IF;
2542:
2543: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2544: RAISE fnd_api.g_exc_error;

Line 2543: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2539: default_log (' Test ' || p_test_name || ' is used in an expression within the spec');
2540: RAISE fnd_api.g_exc_error;
2541: END IF;
2542:
2543: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2544: RAISE fnd_api.g_exc_error;
2545: END IF;
2546: END LOOP;
2547: END IF;

Line 2544: RAISE fnd_api.g_exc_error;

2540: RAISE fnd_api.g_exc_error;
2541: END IF;
2542:
2543: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2544: RAISE fnd_api.g_exc_error;
2545: END IF;
2546: END LOOP;
2547: END IF;
2548:

Line 2578: x_return_status := fnd_api.g_ret_sts_unexp_error;

2574: || ' '
2575: || 'Test Name: '
2576: || l_gmd_test_rec.test_code);
2577: DEBUG (' DELTEST: Spec Test NOT exists');
2578: x_return_status := fnd_api.g_ret_sts_unexp_error;
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2581: WHEN fnd_api.g_exc_error THEN

2577: DEBUG (' DELTEST: Spec Test NOT exists');
2578: x_return_status := fnd_api.g_ret_sts_unexp_error;
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_unexp_error;
2583: default_log ('Delete spec test error ' || SQLERRM);
2584: WHEN OTHERS THEN
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2582: x_return_status := fnd_api.g_ret_sts_unexp_error;

2578: x_return_status := fnd_api.g_ret_sts_unexp_error;
2579: END IF;
2580: EXCEPTION
2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_unexp_error;
2583: default_log ('Delete spec test error ' || SQLERRM);
2584: WHEN OTHERS THEN
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;
2586: default_log ('Delete spec test error ' || SQLERRM);

Line 2585: x_return_status := fnd_api.g_ret_sts_unexp_error;

2581: WHEN fnd_api.g_exc_error THEN
2582: x_return_status := fnd_api.g_ret_sts_unexp_error;
2583: default_log ('Delete spec test error ' || SQLERRM);
2584: WHEN OTHERS THEN
2585: x_return_status := fnd_api.g_ret_sts_unexp_error;
2586: default_log ('Delete spec test error ' || SQLERRM);
2587: END del_spec_test_rec;
2588:
2589: PROCEDURE init_test_values_rec (

Line 2705: x_return_status := fnd_api.g_ret_sts_unexp_error;

2701: );
2702: EXCEPTION
2703: WHEN OTHERS THEN
2704: gmd_debug.put_line ('sqlerror ' || SUBSTRB (SQLERRM, 1, 100));
2705: x_return_status := fnd_api.g_ret_sts_unexp_error;
2706: END insert_spec_test_rec;
2707:
2708: /* p_object_type, indicates it is spec or validity rules */
2709: PROCEDURE process_validity_for_spec (

Line 2755: x_return_status := fnd_api.g_ret_sts_success;

2751: WHERE spec_id = p_spec_id
2752: AND spec_name = p_spec_name
2753: AND owner_organization_id = p_orgn_id;
2754: BEGIN
2755: x_return_status := fnd_api.g_ret_sts_success;
2756:
2757: OPEN get_spec_rec (p_old_spec_id);
2758: FETCH get_spec_rec INTO l_old_spec_rec;
2759: CLOSE get_spec_rec;

Line 2823: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2819: , p_create_mode => l_create_mode
2820: , x_return_status => x_return_status
2821: );
2822:
2823: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2824: RAISE fnd_api.g_exc_error;
2825: END IF;
2826:
2827: IF l_manage_vr_ind = 'E' THEN

Line 2824: RAISE fnd_api.g_exc_error;

2820: , x_return_status => x_return_status
2821: );
2822:
2823: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2824: RAISE fnd_api.g_exc_error;
2825: END IF;
2826:
2827: IF l_manage_vr_ind = 'E' THEN
2828: end_old_validity_rule (p_vr_id => l_vr_id

Line 2833: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2829: , p_spec_type => l_spec_type
2830: , x_return_status => x_return_status
2831: );
2832:
2833: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2834: RAISE fnd_api.g_exc_error;
2835: END IF;
2836: ELSIF l_manage_vr_ind = 'O' THEN
2837: obsolete_old_validity_rule (p_vr_id => l_vr_id

Line 2834: RAISE fnd_api.g_exc_error;

2830: , x_return_status => x_return_status
2831: );
2832:
2833: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2834: RAISE fnd_api.g_exc_error;
2835: END IF;
2836: ELSIF l_manage_vr_ind = 'O' THEN
2837: obsolete_old_validity_rule (p_vr_id => l_vr_id
2838: , p_spec_type => l_spec_type

Line 2842: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2838: , p_spec_type => l_spec_type
2839: , x_return_status => x_return_status
2840: );
2841:
2842: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2843: RAISE fnd_api.g_exc_error;
2844: END IF;
2845: END IF;
2846: ELSIF l_manage_vr_ind = 'Z' THEN

Line 2843: RAISE fnd_api.g_exc_error;

2839: , x_return_status => x_return_status
2840: );
2841:
2842: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2843: RAISE fnd_api.g_exc_error;
2844: END IF;
2845: END IF;
2846: ELSIF l_manage_vr_ind = 'Z' THEN
2847: NULL; -- do nothing

Line 2873: IF x_return_status <> fnd_api.g_ret_sts_success THEN

2869: , p_new_status => p_new_status
2870: , x_return_status => x_return_status
2871: );
2872:
2873: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2874: RAISE fnd_api.g_exc_error;
2875: END IF;
2876: END IF;
2877: EXCEPTION

Line 2874: RAISE fnd_api.g_exc_error;

2870: , x_return_status => x_return_status
2871: );
2872:
2873: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2874: RAISE fnd_api.g_exc_error;
2875: END IF;
2876: END IF;
2877: EXCEPTION
2878: WHEN fnd_api.g_exc_error THEN

Line 2878: WHEN fnd_api.g_exc_error THEN

2874: RAISE fnd_api.g_exc_error;
2875: END IF;
2876: END IF;
2877: EXCEPTION
2878: WHEN fnd_api.g_exc_error THEN
2879: x_return_status := fnd_api.g_ret_sts_unexp_error;
2880: default_log ('Process validity for spec results in Error');
2881: WHEN OTHERS THEN
2882: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 2879: x_return_status := fnd_api.g_ret_sts_unexp_error;

2875: END IF;
2876: END IF;
2877: EXCEPTION
2878: WHEN fnd_api.g_exc_error THEN
2879: x_return_status := fnd_api.g_ret_sts_unexp_error;
2880: default_log ('Process validity for spec results in Error');
2881: WHEN OTHERS THEN
2882: x_return_status := fnd_api.g_ret_sts_unexp_error;
2883: default_log ('Process validity for spec results in Error');

Line 2882: x_return_status := fnd_api.g_ret_sts_unexp_error;

2878: WHEN fnd_api.g_exc_error THEN
2879: x_return_status := fnd_api.g_ret_sts_unexp_error;
2880: default_log ('Process validity for spec results in Error');
2881: WHEN OTHERS THEN
2882: x_return_status := fnd_api.g_ret_sts_unexp_error;
2883: default_log ('Process validity for spec results in Error');
2884: END process_validity_for_spec;
2885:
2886: /* p_create_mode is 'R', replace the old spec_status with passed in p_spec_status */

Line 2909: x_return_status := fnd_api.g_ret_sts_success;

2905: l_manage_vr_ind VARCHAR2 (1);
2906: l_spec_type VARCHAR2 (1);
2907: l_return BOOLEAN;
2908: BEGIN
2909: x_return_status := fnd_api.g_ret_sts_success;
2910: l_spec_type := p_spec_type;
2911: l_spec_vr_id := p_from_vr_id;
2912: DEBUG ('in copy validity rule, vr id: ' || l_spec_vr_id);
2913: DEBUG ('in copy validity rule, to_spec_id: ' || p_to_spec_id);

Line 2999: WHEN fnd_api.g_exc_error THEN

2995:
2996: default_log (' Created New Supplier Validity Rule: ' || l_supplier_spec_vrs_out.spec_vr_id);
2997: END IF;
2998: EXCEPTION
2999: WHEN fnd_api.g_exc_error THEN
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: default_log ('Process validity for spec results in Error');
3002: WHEN OTHERS THEN
3003: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 3000: x_return_status := fnd_api.g_ret_sts_unexp_error;

2996: default_log (' Created New Supplier Validity Rule: ' || l_supplier_spec_vrs_out.spec_vr_id);
2997: END IF;
2998: EXCEPTION
2999: WHEN fnd_api.g_exc_error THEN
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: default_log ('Process validity for spec results in Error');
3002: WHEN OTHERS THEN
3003: x_return_status := fnd_api.g_ret_sts_unexp_error;
3004: default_log ('Process validity for spec results in Error');

Line 3003: x_return_status := fnd_api.g_ret_sts_unexp_error;

2999: WHEN fnd_api.g_exc_error THEN
3000: x_return_status := fnd_api.g_ret_sts_unexp_error;
3001: default_log ('Process validity for spec results in Error');
3002: WHEN OTHERS THEN
3003: x_return_status := fnd_api.g_ret_sts_unexp_error;
3004: default_log ('Process validity for spec results in Error');
3005: END copy_validity_rule;
3006:
3007: PROCEDURE end_old_validity_rule (

Line 3022: x_return_status := fnd_api.g_ret_sts_success;

3018: l_manage_vr_ind VARCHAR2 (1);
3019: l_spec_type VARCHAR2 (1);
3020: l_return BOOLEAN;
3021: BEGIN
3022: x_return_status := fnd_api.g_ret_sts_success;
3023: l_spec_type := p_spec_type;
3024: l_spec_vr_id := p_vr_id;
3025: DEBUG ('in End_old_validity_rule, spec_Type ' || l_spec_type);
3026:

Line 3053: WHEN fnd_api.g_exc_error THEN

3049:
3050: default_log (' End Supplier Validity Rule: ' || l_spec_vr_id);
3051: END IF;
3052: EXCEPTION
3053: WHEN fnd_api.g_exc_error THEN
3054: x_return_status := fnd_api.g_ret_sts_unexp_error;
3055: default_log ('End validity rule results in Error');
3056: WHEN OTHERS THEN
3057: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 3054: x_return_status := fnd_api.g_ret_sts_unexp_error;

3050: default_log (' End Supplier Validity Rule: ' || l_spec_vr_id);
3051: END IF;
3052: EXCEPTION
3053: WHEN fnd_api.g_exc_error THEN
3054: x_return_status := fnd_api.g_ret_sts_unexp_error;
3055: default_log ('End validity rule results in Error');
3056: WHEN OTHERS THEN
3057: x_return_status := fnd_api.g_ret_sts_unexp_error;
3058: default_log ('End validity rule results in Error');

Line 3057: x_return_status := fnd_api.g_ret_sts_unexp_error;

3053: WHEN fnd_api.g_exc_error THEN
3054: x_return_status := fnd_api.g_ret_sts_unexp_error;
3055: default_log ('End validity rule results in Error');
3056: WHEN OTHERS THEN
3057: x_return_status := fnd_api.g_ret_sts_unexp_error;
3058: default_log ('End validity rule results in Error');
3059: END end_old_validity_rule;
3060:
3061: PROCEDURE obsolete_old_validity_rule (

Line 3076: x_return_status := fnd_api.g_ret_sts_success;

3072: l_manage_vr_ind VARCHAR2 (1);
3073: l_spec_type VARCHAR2 (1);
3074: l_return BOOLEAN;
3075: BEGIN
3076: x_return_status := fnd_api.g_ret_sts_success;
3077: l_spec_type := p_spec_type;
3078: l_spec_vr_id := p_vr_id;
3079: DEBUG ('in Obsolete_old_validity_rule, spec_Type ' || l_spec_type);
3080:

Line 3107: WHEN fnd_api.g_exc_error THEN

3103:
3104: default_log (' Obsolete Supplier Validity Rule: ' || l_spec_vr_id);
3105: END IF;
3106: EXCEPTION
3107: WHEN fnd_api.g_exc_error THEN
3108: x_return_status := fnd_api.g_ret_sts_unexp_error;
3109: default_log ('Obsolete validity for spec results in Error');
3110: WHEN OTHERS THEN
3111: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 3108: x_return_status := fnd_api.g_ret_sts_unexp_error;

3104: default_log (' Obsolete Supplier Validity Rule: ' || l_spec_vr_id);
3105: END IF;
3106: EXCEPTION
3107: WHEN fnd_api.g_exc_error THEN
3108: x_return_status := fnd_api.g_ret_sts_unexp_error;
3109: default_log ('Obsolete validity for spec results in Error');
3110: WHEN OTHERS THEN
3111: x_return_status := fnd_api.g_ret_sts_unexp_error;
3112: default_log ('Obsolete validity for spec results in Error');

Line 3111: x_return_status := fnd_api.g_ret_sts_unexp_error;

3107: WHEN fnd_api.g_exc_error THEN
3108: x_return_status := fnd_api.g_ret_sts_unexp_error;
3109: default_log ('Obsolete validity for spec results in Error');
3110: WHEN OTHERS THEN
3111: x_return_status := fnd_api.g_ret_sts_unexp_error;
3112: default_log ('Obsolete validity for spec results in Error');
3113: END obsolete_old_validity_rule;
3114:
3115: PROCEDURE update_validity_rule (

Line 3139: x_return_status := fnd_api.g_ret_sts_success;

3135: SELECT spec_status
3136: FROM gmd_all_spec_vrs_vl
3137: WHERE spec_vr_id = p_vr_id;
3138: BEGIN
3139: x_return_status := fnd_api.g_ret_sts_success;
3140: l_spec_type := p_spec_type;
3141: l_spec_vr_id := p_vr_id;
3142: DEBUG ('In Update_validity_rule, validity_rule_id ' || l_spec_vr_id);
3143: DEBUG ('In Update_validity_rule, spec_type ' || l_spec_type);

Line 3161: RAISE fnd_api.g_exc_error;

3157: || ') for Validity Rule '
3158: || 'Can Not Be Higher than the Spec Status ('
3159: || l_spec_status
3160: || ')');
3161: RAISE fnd_api.g_exc_error;
3162: END IF;
3163:
3164: IF l_spec_type = 'C' THEN
3165: IF p_new_status IS NOT NULL THEN

Line 3230: WHEN fnd_api.g_exc_error THEN

3226:
3227: default_log (' Updated Supplier Validity Rule: ' || l_spec_vr_id);
3228: END IF;
3229: EXCEPTION
3230: WHEN fnd_api.g_exc_error THEN
3231: x_return_status := fnd_api.g_ret_sts_unexp_error;
3232: default_log ('Update validity for spec results in Error');
3233: DEBUG ('sqlerror ' || SUBSTRB (SQLERRM, 1, 100));
3234: WHEN OTHERS THEN

Line 3231: x_return_status := fnd_api.g_ret_sts_unexp_error;

3227: default_log (' Updated Supplier Validity Rule: ' || l_spec_vr_id);
3228: END IF;
3229: EXCEPTION
3230: WHEN fnd_api.g_exc_error THEN
3231: x_return_status := fnd_api.g_ret_sts_unexp_error;
3232: default_log ('Update validity for spec results in Error');
3233: DEBUG ('sqlerror ' || SUBSTRB (SQLERRM, 1, 100));
3234: WHEN OTHERS THEN
3235: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 3235: x_return_status := fnd_api.g_ret_sts_unexp_error;

3231: x_return_status := fnd_api.g_ret_sts_unexp_error;
3232: default_log ('Update validity for spec results in Error');
3233: DEBUG ('sqlerror ' || SUBSTRB (SQLERRM, 1, 100));
3234: WHEN OTHERS THEN
3235: x_return_status := fnd_api.g_ret_sts_unexp_error;
3236: default_log ('Update validity for spec results in Error');
3237: DEBUG ('sqlerror ' || SUBSTRB (SQLERRM, 1, 100));
3238: END update_validity_rule;
3239:

Line 3249: x_return_status := fnd_api.g_ret_sts_success;

3245: l_exptab gmd_utility_pkg.exptab;
3246: l_boolean BOOLEAN := FALSE;
3247: i NUMBER;
3248: BEGIN
3249: x_return_status := fnd_api.g_ret_sts_success;
3250: DEBUG (' In is_test_in_expression, expression: ' || p_expression);
3251: DEBUG (' In is_test_in_expression, test_name: ' || p_test_name);
3252: gmd_utility_pkg.parse (x_exp => p_expression
3253: , x_exptab => l_exptab