[Home] [Help]
428: FETCH c_inv_sampling_event INTO x_sampling_event_id;
429: IF c_inv_sampling_event%NOTFOUND THEN
430: CLOSE c_inv_sampling_event;
431: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
432: RAISE FND_API.G_EXC_ERROR;
433: END IF;
434: CLOSE c_inv_sampling_event;
435: ELSIF p_sample.source = 'W' THEN
436: -- Sample Source is "WIP"
438: FETCH c_wip_sampling_event INTO x_sampling_event_id;
439: IF c_wip_sampling_event%NOTFOUND THEN
440: CLOSE c_wip_sampling_event;
441: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444: CLOSE c_wip_sampling_event;
445: ELSIF p_sample.source = 'C' THEN
446: -- Sample Source is "Customer"
448: FETCH c_cust_sampling_event INTO x_sampling_event_id;
449: IF c_cust_sampling_event%NOTFOUND THEN
450: CLOSE c_cust_sampling_event;
451: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
454: CLOSE c_cust_sampling_event;
455: ELSIF p_sample.source = 'S' THEN
456: -- Sample Source is "Supplier"
458: FETCH c_supp_sampling_event INTO x_sampling_event_id;
459: IF c_supp_sampling_event%NOTFOUND THEN
460: CLOSE c_supp_sampling_event;
461: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
462: RAISE FND_API.G_EXC_ERROR;
463: END IF;
464: CLOSE c_supp_sampling_event;
465: ELSIF p_sample.source = 'L' THEN
466: -- Sample Source is "Monitor - Location"
467: OPEN c_loc_sampling_event;
468: FETCH c_loc_sampling_event INTO x_sampling_event_id;
469: IF c_loc_sampling_event%NOTFOUND THEN
470: CLOSE c_loc_sampling_event;
471: RAISE FND_API.G_EXC_ERROR;
472: END IF;
473: CLOSE c_loc_sampling_event;
474: ELSIF p_sample.source = 'R' THEN
475: -- Sample Source is "Monitor - Resource"
476: OPEN c_res_sampling_event;
477: FETCH c_res_sampling_event INTO x_sampling_event_id;
478: IF c_res_sampling_event%NOTFOUND THEN
479: CLOSE c_res_sampling_event;
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482: CLOSE c_res_sampling_event;
483: ELSE
484: --GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
481: END IF;
482: CLOSE c_res_sampling_event;
483: ELSE
484: --GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
485: RAISE FND_API.G_EXC_ERROR;
486: END IF;
487:
488: -- If we reached here then we have found a Sampling event record
489: RETURN TRUE;
488: -- If we reached here then we have found a Sampling event record
489: RETURN TRUE;
490:
491: EXCEPTION
492: WHEN FND_API.G_EXC_ERROR THEN
493: RETURN FALSE;
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: RETURN FALSE;
496: WHEN OTHERS THEN
490:
491: EXCEPTION
492: WHEN FND_API.G_EXC_ERROR THEN
493: RETURN FALSE;
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: RETURN FALSE;
496: WHEN OTHERS THEN
497: RETURN FALSE;
498:
800: FETCH c_inv_sampling_event INTO x_sampling_event_id;
801: IF c_inv_sampling_event%NOTFOUND THEN
802: CLOSE c_inv_sampling_event;
803: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: CLOSE c_inv_sampling_event;
807: ELSIF p_sample.source = 'W' THEN
808: -- Sample Source is "WIP"
810: FETCH c_wip_sampling_event INTO x_sampling_event_id;
811: IF c_wip_sampling_event%NOTFOUND THEN
812: CLOSE c_wip_sampling_event;
813: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: CLOSE c_wip_sampling_event;
817: ELSIF p_sample.source = 'C' THEN
818: -- Sample Source is "Customer"
820: FETCH c_cust_sampling_event INTO x_sampling_event_id;
821: IF c_cust_sampling_event%NOTFOUND THEN
822: CLOSE c_cust_sampling_event;
823: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
824: RAISE FND_API.G_EXC_ERROR;
825: END IF;
826: CLOSE c_cust_sampling_event;
827: ELSIF p_sample.source = 'S' THEN
828: -- Sample Source is "Supplier"
830: FETCH c_supp_sampling_event INTO x_sampling_event_id;
831: IF c_supp_sampling_event%NOTFOUND THEN
832: CLOSE c_supp_sampling_event;
833: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
834: RAISE FND_API.G_EXC_ERROR;
835: END IF;
836: CLOSE c_supp_sampling_event;
837: ELSIF p_sample.source = 'L' THEN
838: -- Sample Source is "Monitor - Location"
839: OPEN c_loc_sampling_event;
840: FETCH c_loc_sampling_event INTO x_sampling_event_id;
841: IF c_loc_sampling_event%NOTFOUND THEN
842: CLOSE c_loc_sampling_event;
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845: CLOSE c_loc_sampling_event;
846: ELSIF p_sample.source = 'R' THEN
847: -- Sample Source is "Monitor - Resource"
848: OPEN c_res_sampling_event;
849: FETCH c_res_sampling_event INTO x_sampling_event_id;
850: IF c_res_sampling_event%NOTFOUND THEN
851: CLOSE c_res_sampling_event;
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854: CLOSE c_res_sampling_event;
855: ELSE
856: --GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
853: END IF;
854: CLOSE c_res_sampling_event;
855: ELSE
856: --GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
857: RAISE FND_API.G_EXC_ERROR;
858: END IF;
859:
860: -- If we reached here then we have found a Sampling event record
861: RETURN TRUE;
861: RETURN TRUE;
862:
863: END IF;
864: EXCEPTION
865: WHEN FND_API.G_EXC_ERROR THEN
866: RETURN FALSE;
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868: RETURN FALSE;
869: WHEN OTHERS THEN
863: END IF;
864: EXCEPTION
865: WHEN FND_API.G_EXC_ERROR THEN
866: RETURN FALSE;
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868: RETURN FALSE;
869: WHEN OTHERS THEN
870: RETURN FALSE;
871:
1092: FETCH c_inv_sampling_event INTO x_sampling_event_id;
1093: IF c_inv_sampling_event%NOTFOUND THEN
1094: CLOSE c_inv_sampling_event;
1095: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
1096: RAISE FND_API.G_EXC_ERROR;
1097: END IF;
1098: CLOSE c_inv_sampling_event;
1099: ELSIF p_sample.source = 'W' THEN
1100: -- Sample Source is "WIP"
1102: FETCH c_wip_sampling_event INTO x_sampling_event_id;
1103: IF c_wip_sampling_event%NOTFOUND THEN
1104: CLOSE c_wip_sampling_event;
1105: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
1106: RAISE FND_API.G_EXC_ERROR;
1107: END IF;
1108: CLOSE c_wip_sampling_event;
1109: ELSIF p_sample.source = 'C' THEN
1110: -- Sample Source is "Customer"
1112: FETCH c_cust_sampling_event INTO x_sampling_event_id;
1113: IF c_cust_sampling_event%NOTFOUND THEN
1114: CLOSE c_cust_sampling_event;
1115: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
1116: RAISE FND_API.G_EXC_ERROR;
1117: END IF;
1118: CLOSE c_cust_sampling_event;
1119: ELSIF p_sample.source = 'S' THEN
1120: -- Sample Source is "Supplier"
1122: FETCH c_supp_sampling_event INTO x_sampling_event_id;
1123: IF c_supp_sampling_event%NOTFOUND THEN
1124: CLOSE c_supp_sampling_event;
1125: --GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
1126: RAISE FND_API.G_EXC_ERROR;
1127: END IF;
1128: CLOSE c_supp_sampling_event;
1129:
1130: ELSIF p_sample.source = 'L' THEN
1132: OPEN c_loc_sampling_event;
1133: FETCH c_loc_sampling_event INTO x_sampling_event_id;
1134: IF c_loc_sampling_event%NOTFOUND THEN
1135: CLOSE c_loc_sampling_event;
1136: RAISE FND_API.G_EXC_ERROR;
1137: END IF;
1138: CLOSE c_loc_sampling_event;
1139: ELSIF p_sample.source = 'R' THEN
1140: -- Sample Source is "Monitor - Resource"
1141: OPEN c_res_sampling_event;
1142: FETCH c_res_sampling_event INTO x_sampling_event_id;
1143: IF c_res_sampling_event%NOTFOUND THEN
1144: CLOSE c_res_sampling_event;
1145: RAISE FND_API.G_EXC_ERROR;
1146: END IF;
1147: CLOSE c_res_sampling_event;
1148:
1149: ELSE
1147: CLOSE c_res_sampling_event;
1148:
1149: ELSE
1150: --GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1153:
1154: -- If we reached here then we have found a Sampling event record
1155: RETURN TRUE;
1154: -- If we reached here then we have found a Sampling event record
1155: RETURN TRUE;
1156:
1157: EXCEPTION
1158: WHEN FND_API.G_EXC_ERROR THEN
1159: RETURN FALSE;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: RETURN FALSE;
1162: WHEN OTHERS THEN
1156:
1157: EXCEPTION
1158: WHEN FND_API.G_EXC_ERROR THEN
1159: RETURN FALSE;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: RETURN FALSE;
1162: WHEN OTHERS THEN
1163: RETURN FALSE;
1164:
1288: gmd_debug.put_line('Entered Procedure VALIDATE SAMPLES');
1289: END IF;
1290:
1291: -- Initialize API return status to success
1292: x_return_status := FND_API.G_RET_STS_SUCCESS;
1293:
1294: IF (p_called_from = 'API') THEN
1295: -- Check for NULLs and Valid Foreign Keys in the input parameter
1296: check_for_null_and_fks_in_smpl
1300: );
1301: -- No need if called from FORM since it is already
1302: -- done in the form
1303:
1304: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1305: -- Message is alrady logged by check_for_null procedure
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: -- Message is alrady logged by check_for_null procedure
1302: -- done in the form
1303:
1304: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1305: -- Message is alrady logged by check_for_null procedure
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: -- Message is alrady logged by check_for_null procedure
1309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1310: END IF;
1303:
1304: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1305: -- Message is alrady logged by check_for_null procedure
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: -- Message is alrady logged by check_for_null procedure
1309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1310: END IF;
1311: END IF;
1305: -- Message is alrady logged by check_for_null procedure
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: -- Message is alrady logged by check_for_null procedure
1309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1310: END IF;
1311: END IF;
1312:
1313: -- Perform all other business validations.
1329: , x_orgn_found => found );
1330:
1331: IF NOT(found) OR (x_return_status <> 'S') THEN
1332: GMD_API_PUB.Log_Message('GMD_QM_ORG_PARAMETER');
1333: RAISE FND_API.G_EXC_ERROR;
1334: END IF;
1335:
1336: -- Skip if automatic assignmnet type, so sample number can be retrived after
1337: -- validation
1342: -- Huston, we have a problem...
1343: GMD_API_PUB.Log_Message('GMD_SAMPLE_EXIST',
1344: 'ORGN_CODE', p_sample.organization_id,
1345: 'SAMPLE_NO', p_sample.sample_no);
1346: RAISE FND_API.G_EXC_ERROR;
1347: END IF;
1348:
1349: END IF; -- Not automatic sample no assignment
1350: -- M. Grosser 03-May-2006 Bug 5115015 - End of changes
1397: EXCEPTION
1398: WHEN OTHERS THEN
1399: -- The message is already set, just put it on the stack.
1400: FND_MSG_PUB.ADD;
1401: RAISE FND_API.G_EXC_ERROR;
1402: END;
1403:
1404: IF (l_debug = 'Y') THEN
1405: gmd_debug.put_line('end validate sample');
1406: END IF;
1407: -- All systems GO...
1408:
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: WHEN OTHERS THEN
1407: -- All systems GO...
1408:
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: WHEN OTHERS THEN
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1408:
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: WHEN OTHERS THEN
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1416:
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: WHEN OTHERS THEN
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1416:
1417:
1411: x_return_status := FND_API.G_RET_STS_ERROR ;
1412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1414: WHEN OTHERS THEN
1415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1416:
1417:
1418: END validate_sample;
1419:
1520: gmd_debug.put_line('Entered Procedure UPDATE_SAMPLE_COMP_DISP');
1521: END IF;
1522:
1523: -- Initialize API return status to success
1524: x_return_status := FND_API.G_RET_STS_SUCCESS;
1525:
1526: l_position := '010' ;
1527:
1528: IF (l_debug = 'Y') THEN
1602: -- Bug# 5440347 start
1603: IF (return_status <> 'S') THEN
1604: FND_MSG_PUB.GET(p_msg_index => 1,
1605: p_data => l_data,
1606: p_encoded => FND_API.G_FALSE,
1607: p_msg_index_out => l_dummy_cnt);
1608: x_message_data := substr(x_message_data || l_data,1,2000) ;
1609: END IF;
1610:
1627: --call the batch step completion API.
1628: GME_API_PUB.complete_step(
1629: p_api_version => 2.0
1630: ,p_validation_level => gme_common_pvt.g_max_errors
1631: ,p_init_msg_list => fnd_api.g_false
1632: ,p_commit => fnd_api.g_false
1633: ,x_message_count => x_message_count
1634: ,x_message_list => x_message_list
1635: ,x_return_status => xx_return_status
1628: GME_API_PUB.complete_step(
1629: p_api_version => 2.0
1630: ,p_validation_level => gme_common_pvt.g_max_errors
1631: ,p_init_msg_list => fnd_api.g_false
1632: ,p_commit => fnd_api.g_false
1633: ,x_message_count => x_message_count
1634: ,x_message_list => x_message_list
1635: ,x_return_status => xx_return_status
1636: ,p_batch_step_rec => p_batch_step_rec
1635: ,x_return_status => xx_return_status
1636: ,p_batch_step_rec => p_batch_step_rec
1637: ,p_batch_no => NULL
1638: ,p_org_code => NULL
1639: ,p_ignore_exception => fnd_api.g_false
1640: ,p_override_quality => fnd_api.g_false
1641: ,p_validate_flexfields => fnd_api.g_false
1642: ,x_batch_step_rec => x_batch_step_rec
1643: ,x_exception_material_tbl => l_exception_material_tbl);
1636: ,p_batch_step_rec => p_batch_step_rec
1637: ,p_batch_no => NULL
1638: ,p_org_code => NULL
1639: ,p_ignore_exception => fnd_api.g_false
1640: ,p_override_quality => fnd_api.g_false
1641: ,p_validate_flexfields => fnd_api.g_false
1642: ,x_batch_step_rec => x_batch_step_rec
1643: ,x_exception_material_tbl => l_exception_material_tbl);
1644: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
1637: ,p_batch_no => NULL
1638: ,p_org_code => NULL
1639: ,p_ignore_exception => fnd_api.g_false
1640: ,p_override_quality => fnd_api.g_false
1641: ,p_validate_flexfields => fnd_api.g_false
1642: ,x_batch_step_rec => x_batch_step_rec
1643: ,x_exception_material_tbl => l_exception_material_tbl);
1644: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
1645:
1662: --Bug# 5440347 start
1663: IF (return_status <> 'S') THEN
1664: FND_MSG_PUB.GET(p_msg_index => 1,
1665: p_data => l_data,
1666: p_encoded => FND_API.G_FALSE,
1667: p_msg_index_out => l_dummy_cnt);
1668: x_message_data := substr(x_message_data || l_data,1,2000) ;
1669: END IF;
1670: --Bug# 5440347 end
1759: gme_api_grp.update_step_quality_status(l_step_id, l_batch_organization_id, 6, return_status);
1760: IF (return_status <> 'S') THEN
1761: FND_MSG_PUB.GET(p_msg_index => 1,
1762: p_data => l_data,
1763: p_encoded => FND_API.G_FALSE,
1764: p_msg_index_out => l_dummy_cnt);
1765: x_message_data := substr(x_message_data || l_data,1,2000) ;
1766: END IF;
1767: --Get the value of auto_complete_batch_step flag.
1781: --call the batch step completion API.
1782: GME_API_PUB.complete_step(
1783: p_api_version => 2.0
1784: ,p_validation_level => gme_common_pvt.g_max_errors
1785: ,p_init_msg_list => fnd_api.g_false
1786: ,p_commit => fnd_api.g_false
1787: ,x_message_count => x_message_count
1788: ,x_message_list => x_message_list
1789: ,x_return_status => xx_return_status
1782: GME_API_PUB.complete_step(
1783: p_api_version => 2.0
1784: ,p_validation_level => gme_common_pvt.g_max_errors
1785: ,p_init_msg_list => fnd_api.g_false
1786: ,p_commit => fnd_api.g_false
1787: ,x_message_count => x_message_count
1788: ,x_message_list => x_message_list
1789: ,x_return_status => xx_return_status
1790: ,p_batch_step_rec => p_batch_step_rec
1789: ,x_return_status => xx_return_status
1790: ,p_batch_step_rec => p_batch_step_rec
1791: ,p_batch_no => NULL
1792: ,p_org_code => NULL
1793: ,p_ignore_exception => fnd_api.g_false
1794: ,p_override_quality => fnd_api.g_false
1795: ,p_validate_flexfields => fnd_api.g_false
1796: ,x_batch_step_rec => x_batch_step_rec
1797: ,x_exception_material_tbl => l_exception_material_tbl);
1790: ,p_batch_step_rec => p_batch_step_rec
1791: ,p_batch_no => NULL
1792: ,p_org_code => NULL
1793: ,p_ignore_exception => fnd_api.g_false
1794: ,p_override_quality => fnd_api.g_false
1795: ,p_validate_flexfields => fnd_api.g_false
1796: ,x_batch_step_rec => x_batch_step_rec
1797: ,x_exception_material_tbl => l_exception_material_tbl);
1798: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
1791: ,p_batch_no => NULL
1792: ,p_org_code => NULL
1793: ,p_ignore_exception => fnd_api.g_false
1794: ,p_override_quality => fnd_api.g_false
1795: ,p_validate_flexfields => fnd_api.g_false
1796: ,x_batch_step_rec => x_batch_step_rec
1797: ,x_exception_material_tbl => l_exception_material_tbl);
1798: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
1799: IF (l_debug = 'Y') THEN
1812: gme_api_grp.update_step_quality_status(l_step_id, l_batch_organization_id, 5, return_status);
1813: IF (return_status <> 'S') THEN
1814: FND_MSG_PUB.GET(p_msg_index => 1,
1815: p_data => l_data,
1816: p_encoded => FND_API.G_FALSE,
1817: p_msg_index_out => l_dummy_cnt);
1818: x_message_data := substr(x_message_data || l_data,1,2000) ;
1819: END IF;
1820: END IF; --p_to_disposition in ('4A', '5AV')
1946:
1947:
1948: EXCEPTION WHEN REQ_FIELDS_MISSING THEN
1949: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1950: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1951: x_return_status := FND_API.G_RET_STS_ERROR ;
1952: WHEN INVALID_PARAMETER THEN
1953: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1954: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1947:
1948: EXCEPTION WHEN REQ_FIELDS_MISSING THEN
1949: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1950: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1951: x_return_status := FND_API.G_RET_STS_ERROR ;
1952: WHEN INVALID_PARAMETER THEN
1953: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1954: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1955: x_return_status := FND_API.G_RET_STS_ERROR ;
1950: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1951: x_return_status := FND_API.G_RET_STS_ERROR ;
1952: WHEN INVALID_PARAMETER THEN
1953: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1954: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1955: x_return_status := FND_API.G_RET_STS_ERROR ;
1956: WHEN SAMPLE_SPEC_CHANGED THEN
1957: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1958: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1951: x_return_status := FND_API.G_RET_STS_ERROR ;
1952: WHEN INVALID_PARAMETER THEN
1953: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1954: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1955: x_return_status := FND_API.G_RET_STS_ERROR ;
1956: WHEN SAMPLE_SPEC_CHANGED THEN
1957: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1958: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1959: x_return_status := FND_API.G_RET_STS_ERROR ;
1954: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1955: x_return_status := FND_API.G_RET_STS_ERROR ;
1956: WHEN SAMPLE_SPEC_CHANGED THEN
1957: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1958: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1959: x_return_status := FND_API.G_RET_STS_ERROR ;
1960: WHEN SAMPLE_DISP_CHANGED THEN
1961: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1962: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1955: x_return_status := FND_API.G_RET_STS_ERROR ;
1956: WHEN SAMPLE_SPEC_CHANGED THEN
1957: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1958: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1959: x_return_status := FND_API.G_RET_STS_ERROR ;
1960: WHEN SAMPLE_DISP_CHANGED THEN
1961: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1962: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1963: x_return_status := FND_API.G_RET_STS_ERROR ;
1958: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1959: x_return_status := FND_API.G_RET_STS_ERROR ;
1960: WHEN SAMPLE_DISP_CHANGED THEN
1961: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1962: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1963: x_return_status := FND_API.G_RET_STS_ERROR ;
1964: WHEN OTHERS THEN
1965: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1966: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1959: x_return_status := FND_API.G_RET_STS_ERROR ;
1960: WHEN SAMPLE_DISP_CHANGED THEN
1961: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
1962: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1963: x_return_status := FND_API.G_RET_STS_ERROR ;
1964: WHEN OTHERS THEN
1965: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1966: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1962: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1963: x_return_status := FND_API.G_RET_STS_ERROR ;
1964: WHEN OTHERS THEN
1965: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1966: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1968:
1969: END update_sample_comp_disp ;
1970:
1963: x_return_status := FND_API.G_RET_STS_ERROR ;
1964: WHEN OTHERS THEN
1965: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
1966: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1968:
1969: END update_sample_comp_disp ;
1970:
1971:
2004: l_lot_number VARCHAR2(80);
2005:
2006: BEGIN
2007: -- Initialize API return status to success
2008: x_return_status := FND_API.G_RET_STS_SUCCESS;
2009:
2010: OPEN Cur_get_seq;
2011: FETCH Cur_get_seq INTO l_change_disp_id;
2012: CLOSE Cur_get_seq;
2072:
2073:
2074: IF SQL%NOTFOUND THEN
2075: gmd_api_pub.log_message('GMD_QM_CHANGE_DISP_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2076: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2077: x_return_status := FND_API.G_RET_STS_ERROR ;
2078: END IF; -- SQL%NOTFOUND THEN
2079:
2080:
2073:
2074: IF SQL%NOTFOUND THEN
2075: gmd_api_pub.log_message('GMD_QM_CHANGE_DISP_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2076: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2077: x_return_status := FND_API.G_RET_STS_ERROR ;
2078: END IF; -- SQL%NOTFOUND THEN
2079:
2080:
2081:
2145: END IF; -- (p_update_change_disp_rec.LOT_NUMBER IS NOT NULL)
2146:
2147: IF SQL%NOTFOUND THEN
2148: gmd_api_pub.log_message('GMD_QM_CHANGE_LOT_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2149: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2150: x_return_status := FND_API.G_RET_STS_ERROR ;
2151: END IF; -- SQL%NOTFOUND THEN
2152:
2153: END update_change_disp_table;
2146:
2147: IF SQL%NOTFOUND THEN
2148: gmd_api_pub.log_message('GMD_QM_CHANGE_LOT_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2149: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2150: x_return_status := FND_API.G_RET_STS_ERROR ;
2151: END IF; -- SQL%NOTFOUND THEN
2152:
2153: END update_change_disp_table;
2154:
2330:
2331:
2332: BEGIN
2333: -- Initialize API return status to success
2334: x_return_status := FND_API.G_RET_STS_SUCCESS;
2335:
2336: IF (p_sample_id IS NULL AND p_composite_spec_disp_id IS NULL)
2337: OR (p_to_lot_status_id IS NULL AND p_to_grade_code IS NULL AND p_to_qc_status IS NULL) THEN
2338: RAISE REQ_FIELDS_MISSING;
2454: -- set up constants needed for the inventory API.
2455: -- Bug 4165704- not needed after inventory convergence
2456: --l_tempb := GMIGUTL.SETUP(FND_GLOBAL.USER_NAME);
2457: --IF (NOT l_tempb) THEN
2458: -- x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2459: -- x_return_status := FND_API.G_RET_STS_ERROR ;
2460: -- return;
2461: --END IF;
2462:
2455: -- Bug 4165704- not needed after inventory convergence
2456: --l_tempb := GMIGUTL.SETUP(FND_GLOBAL.USER_NAME);
2457: --IF (NOT l_tempb) THEN
2458: -- x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2459: -- x_return_status := FND_API.G_RET_STS_ERROR ;
2460: -- return;
2461: --END IF;
2462:
2463: l_position := '020' ;
2500: -- Bug 4165704: if from_grade_code changed, return to form
2501: -- IF (p_from_grade_code <> get_curr_grade_rec.grade_code) THEN
2502: --error out020
2503: --gml_sf_log('grade code is wrong');
2504: -- RAISE FND_API.G_EXC_ERROR;
2505: -- ELSE
2506: -- Bug 4165704: Changed from call to inventory posting to INV_GRADE_PKG.UPDATE_GRADE
2507: -- process data record
2508: -- , p_lot_number => l_lot_number
2521: , p_secondary_quantity => NULL ); --xxx not sure what this value is yet
2522:
2523: IF x_return_status <> 'S'
2524: THEN
2525: RAISE FND_API.G_EXC_ERROR;
2526: END IF; -- x_return_status <> 'S'
2527: -- END IF; -- p_from_grade_code has not changed
2528:
2529: -- Taken out with Inventory Convergence and replaced with above code
2539: -- l_trans_rec_grade.trans_qty := NULL;
2540:
2541: -- GMIPAPI.Inventory_Posting
2542: -- ( p_api_version => 3.0
2543: -- p_init_msg_list => FND_API.G_TRUE
2544: -- p_commit => FND_API.G_FALSE
2545: -- p_validation_level => FND_API.G_VALID_LEVEL_FULL
2546: -- p_qty_rec => l_trans_rec_grade
2547: -- x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2540:
2541: -- GMIPAPI.Inventory_Posting
2542: -- ( p_api_version => 3.0
2543: -- p_init_msg_list => FND_API.G_TRUE
2544: -- p_commit => FND_API.G_FALSE
2545: -- p_validation_level => FND_API.G_VALID_LEVEL_FULL
2546: -- p_qty_rec => l_trans_rec_grade
2547: -- x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2548: -- x_ic_adjs_jnl_row1 => l_ic_adjs_jnl_row1
2541: -- GMIPAPI.Inventory_Posting
2542: -- ( p_api_version => 3.0
2543: -- p_init_msg_list => FND_API.G_TRUE
2544: -- p_commit => FND_API.G_FALSE
2545: -- p_validation_level => FND_API.G_VALID_LEVEL_FULL
2546: -- p_qty_rec => l_trans_rec_grade
2547: -- x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2548: -- x_ic_adjs_jnl_row1 => l_ic_adjs_jnl_row1
2549: -- x_ic_adjs_jnl_row2 => l_ic_adjs_jnl_row2
2566:
2567: LOOP
2568: FETCH get_curr_grade_cv into get_curr_grade_rec ;
2569: EXIT WHEN get_curr_grade_cv%NOTFOUND ; -- exit when last row is fetched
2570: --RLNAGARA B5668965 Changed the exception from FND_API.G_EXC_ERROR to SAMPLE_DISP_CHANGED
2571: -- Bug 4165704: if from_grade_code changed, return to form
2572: IF (p_from_grade_code <> get_curr_grade_rec.grade_code) THEN
2573: --xxxerror out
2574: RAISE SAMPLE_DISP_CHANGED;
2589: , p_primary_quantity => NULL -- not sure what this value is yet
2590: , p_secondary_quantity => NULL ); --xxx not sure what this value is yet
2591:
2592: IF x_return_status <> 'S' THEN
2593: RAISE FND_API.G_EXC_ERROR;
2594: END IF; -- x_return_status <> 'S'
2595:
2596: END IF; -- (p_from_grade_code <> get_curr_grade_rec.grade_code) THEN
2597: END LOOP;
2680: -- Bug 4165704: if from_lot_status changed, return to form
2681: -- IF (p_from_lot_status_id <> get_curr_lot_status_rec.status_id ) THEN
2682: --mxxxerror out
2683: -- RAISE SAMPLE_DISP_CHANGED;
2684: --RAISE FND_API.G_EXC_ERROR;
2685: -- ELSE
2686:
2687: -- Bug 4165704: replaced GMIPAPI.Inventory_Posting with Inv_Status_Pkg.update_status
2688: -- l_trans_rec_lot_status.trans_type := 4;
2697: -- l_trans_rec_lot_status.trans_date := SYSDATE ;
2698: -- l_trans_rec_lot_status.trans_qty := NULL;
2699: --GMIPAPI.Inventory_Posting
2700: --( p_api_version => 3.0
2701: --, p_init_msg_list => FND_API.G_TRUE
2702: --, p_commit => FND_API.G_FALSE
2703: --, p_validation_level => FND_API.G_VALID_LEVEL_FULL
2704: --, p_qty_rec => l_trans_rec_lot_status
2705: --, x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2698: -- l_trans_rec_lot_status.trans_qty := NULL;
2699: --GMIPAPI.Inventory_Posting
2700: --( p_api_version => 3.0
2701: --, p_init_msg_list => FND_API.G_TRUE
2702: --, p_commit => FND_API.G_FALSE
2703: --, p_validation_level => FND_API.G_VALID_LEVEL_FULL
2704: --, p_qty_rec => l_trans_rec_lot_status
2705: --, x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2706: --, x_ic_adjs_jnl_row1 => l_ic_adjs_jnl_row1
2699: --GMIPAPI.Inventory_Posting
2700: --( p_api_version => 3.0
2701: --, p_init_msg_list => FND_API.G_TRUE
2702: --, p_commit => FND_API.G_FALSE
2703: --, p_validation_level => FND_API.G_VALID_LEVEL_FULL
2704: --, p_qty_rec => l_trans_rec_lot_status
2705: --, x_ic_jrnl_mst_row => l_ic_jrnl_mst_row
2706: --, x_ic_adjs_jnl_row1 => l_ic_adjs_jnl_row1
2707: --, x_ic_adjs_jnl_row2 => l_ic_adjs_jnl_row2
2735: , p_secondary_onhand => NULL ); --(DEFAULT NULL)
2736:
2737: IF x_return_status <> 'S'
2738: THEN
2739: RAISE FND_API.G_EXC_ERROR;
2740: END IF; -- x_return_status <> 'S'
2741:
2742: -- END IF; -- (p_from_lot_status_id <> get_curr_lot_status_rec.status_id THEN
2743:
2755: -- Bug 4165704: if from_lot_status changed, return to form
2756: IF (p_from_lot_status_id <> get_curr_lot_status_rec.status_id ) THEN
2757: --xxxerror out
2758: RAISE SAMPLE_DISP_CHANGED;
2759: --RAISE FND_API.G_EXC_ERROR;
2760: ELSE
2761:
2762: -- update the one lot specified
2763: Inv_Status_Pkg.update_status(
2786: , p_secondary_onhand => NULL ); --(DEFAULT NULL)
2787:
2788: IF x_return_status <> 'S' THEN
2789: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
2790: RAISE FND_API.G_EXC_ERROR;
2791: END IF; -- x_return_status <> 'S'
2792:
2793: END IF; -- (p_from_lot_status_id <> get_curr_lot_status_rec.status_id THEN
2794:
2862: --call the batch step completion API.
2863: GME_API_PUB.complete_step(
2864: p_api_version => 2.0
2865: ,p_validation_level => gme_common_pvt.g_max_errors
2866: ,p_init_msg_list => fnd_api.g_false
2867: ,p_commit => fnd_api.g_false
2868: ,x_message_count => x_message_count
2869: ,x_message_list => x_message_list
2870: ,x_return_status => xx_return_status
2863: GME_API_PUB.complete_step(
2864: p_api_version => 2.0
2865: ,p_validation_level => gme_common_pvt.g_max_errors
2866: ,p_init_msg_list => fnd_api.g_false
2867: ,p_commit => fnd_api.g_false
2868: ,x_message_count => x_message_count
2869: ,x_message_list => x_message_list
2870: ,x_return_status => xx_return_status
2871: ,p_batch_step_rec => p_batch_step_rec
2870: ,x_return_status => xx_return_status
2871: ,p_batch_step_rec => p_batch_step_rec
2872: ,p_batch_no => NULL
2873: ,p_org_code => NULL
2874: ,p_ignore_exception => fnd_api.g_false
2875: ,p_override_quality => fnd_api.g_false
2876: ,p_validate_flexfields => fnd_api.g_false
2877: ,x_batch_step_rec => x_batch_step_rec
2878: ,x_exception_material_tbl => l_exception_material_tbl);
2871: ,p_batch_step_rec => p_batch_step_rec
2872: ,p_batch_no => NULL
2873: ,p_org_code => NULL
2874: ,p_ignore_exception => fnd_api.g_false
2875: ,p_override_quality => fnd_api.g_false
2876: ,p_validate_flexfields => fnd_api.g_false
2877: ,x_batch_step_rec => x_batch_step_rec
2878: ,x_exception_material_tbl => l_exception_material_tbl);
2879: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
2872: ,p_batch_no => NULL
2873: ,p_org_code => NULL
2874: ,p_ignore_exception => fnd_api.g_false
2875: ,p_override_quality => fnd_api.g_false
2876: ,p_validate_flexfields => fnd_api.g_false
2877: ,x_batch_step_rec => x_batch_step_rec
2878: ,x_exception_material_tbl => l_exception_material_tbl);
2879: --After returning from the API we are not handling any exceptions. Any exceptions will be written in the Debug Log
2880:
2900: EXCEPTION
2901: WHEN SAMPLE_DISP_CHANGED THEN
2902: --RLNAGARA B5668965 Changed the message from GMD_SMPL_DISP_CHANGE to GMD_QM_CURRENT_LOT_VALUE_CHANG
2903: gmd_api_pub.log_message('GMD_QM_CURRENT_LOT_VALUE_CHANG','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2904: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2905: x_return_status := FND_API.G_RET_STS_ERROR ;
2906: WHEN REQ_FIELDS_MISSING THEN
2907: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');
2908: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2901: WHEN SAMPLE_DISP_CHANGED THEN
2902: --RLNAGARA B5668965 Changed the message from GMD_SMPL_DISP_CHANGE to GMD_QM_CURRENT_LOT_VALUE_CHANG
2903: gmd_api_pub.log_message('GMD_QM_CURRENT_LOT_VALUE_CHANG','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2904: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2905: x_return_status := FND_API.G_RET_STS_ERROR ;
2906: WHEN REQ_FIELDS_MISSING THEN
2907: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');
2908: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2909: x_return_status := FND_API.G_RET_STS_ERROR ;
2904: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2905: x_return_status := FND_API.G_RET_STS_ERROR ;
2906: WHEN REQ_FIELDS_MISSING THEN
2907: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');
2908: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2909: x_return_status := FND_API.G_RET_STS_ERROR ;
2910: WHEN INVALID_SAMPLE THEN
2911: gmd_api_pub.log_message('GMD_QM_INVALID_SAMPLE');
2912: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2905: x_return_status := FND_API.G_RET_STS_ERROR ;
2906: WHEN REQ_FIELDS_MISSING THEN
2907: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');
2908: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2909: x_return_status := FND_API.G_RET_STS_ERROR ;
2910: WHEN INVALID_SAMPLE THEN
2911: gmd_api_pub.log_message('GMD_QM_INVALID_SAMPLE');
2912: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2908: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2909: x_return_status := FND_API.G_RET_STS_ERROR ;
2910: WHEN INVALID_SAMPLE THEN
2911: gmd_api_pub.log_message('GMD_QM_INVALID_SAMPLE');
2912: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN INVALID_QC_STATUS THEN
2915: gmd_api_pub.log_message('GME_INV_STEP_QUALITY_STATUS');
2916: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2909: x_return_status := FND_API.G_RET_STS_ERROR ;
2910: WHEN INVALID_SAMPLE THEN
2911: gmd_api_pub.log_message('GMD_QM_INVALID_SAMPLE');
2912: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN INVALID_QC_STATUS THEN
2915: gmd_api_pub.log_message('GME_INV_STEP_QUALITY_STATUS');
2916: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2917: x_return_status := FND_API.G_RET_STS_ERROR ;
2912: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN INVALID_QC_STATUS THEN
2915: gmd_api_pub.log_message('GME_INV_STEP_QUALITY_STATUS');
2916: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2917: x_return_status := FND_API.G_RET_STS_ERROR ;
2918:
2919: WHEN RECORD_LOCK THEN
2920: GMD_API_PUB.Log_Message('GMD_IC_LOTS_CPG_LOCKED');
2913: x_return_status := FND_API.G_RET_STS_ERROR ;
2914: WHEN INVALID_QC_STATUS THEN
2915: gmd_api_pub.log_message('GME_INV_STEP_QUALITY_STATUS');
2916: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2917: x_return_status := FND_API.G_RET_STS_ERROR ;
2918:
2919: WHEN RECORD_LOCK THEN
2920: GMD_API_PUB.Log_Message('GMD_IC_LOTS_CPG_LOCKED');
2921: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2917: x_return_status := FND_API.G_RET_STS_ERROR ;
2918:
2919: WHEN RECORD_LOCK THEN
2920: GMD_API_PUB.Log_Message('GMD_IC_LOTS_CPG_LOCKED');
2921: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2922: x_return_status := FND_API.G_RET_STS_ERROR ;
2923:
2924: WHEN OTHERS THEN
2925: IF get_curr_grade_cv%ISOPEN THEN
2918:
2919: WHEN RECORD_LOCK THEN
2920: GMD_API_PUB.Log_Message('GMD_IC_LOTS_CPG_LOCKED');
2921: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2922: x_return_status := FND_API.G_RET_STS_ERROR ;
2923:
2924: WHEN OTHERS THEN
2925: IF get_curr_grade_cv%ISOPEN THEN
2926: CLOSE get_curr_grade_cv;
2928: IF get_curr_lot_status_cv%ISOPEN THEN
2929: CLOSE get_curr_lot_status_cv;
2930: END IF;
2931: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
2932: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2934: END update_lot_grade_batch ;
2935:
2936:
2929: CLOSE get_curr_lot_status_cv;
2930: END IF;
2931: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
2932: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2934: END update_lot_grade_batch ;
2935:
2936:
2937:
3203:
3204: BEGIN
3205:
3206: -- Initialize API return status to success
3207: x_return_status := FND_API.G_RET_STS_SUCCESS;
3208:
3209: -- Orgn Code
3210: IF (p_sample.organization_id IS NULL) THEN
3211: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_REQD');
3208:
3209: -- Orgn Code
3210: IF (p_sample.organization_id IS NULL) THEN
3211: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_REQD');
3212: RAISE FND_API.G_EXC_ERROR;
3213: ELSE
3214: -- Check that orgn Code exist in SY_ORGN_MST
3215: OPEN c_orgn(p_sample.organization_id);
3216: FETCH c_orgn INTO dummy;
3217: IF c_orgn%NOTFOUND THEN
3218: CLOSE c_orgn;
3219: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_NOT_FOUND',
3220: 'ORGN', p_sample.lab_organization_id);
3221: RAISE FND_API.G_EXC_ERROR;
3222: END IF;
3223: CLOSE c_orgn;
3224: END IF;
3225:
3226: -- Sampler Id Validation
3227:
3228: IF (p_sample.sampler_id IS NULL ) THEN
3229: GMD_API_PUB.Log_Message('GMD_SAMPLER_ID_REQD');
3230: RAISE FND_API.G_EXC_ERROR;
3231: ELSE
3232: -- Check that orgn Code exist in SY_ORGN_MST
3233: OPEN c_sampler(p_sample.organization_id, p_sample.sampler_id);
3234: FETCH c_sampler INTO dummy;
3234: FETCH c_sampler INTO dummy;
3235: IF c_sampler%NOTFOUND THEN
3236: GMD_API_PUB.Log_Message('GMD_SAMPLER_ID_NOTFOUND',
3237: 'SAMPLER', p_sample.sampler_id);
3238: RAISE FND_API.G_EXC_ERROR;
3239: CLOSE c_sampler;
3240: END IF;
3241: CLOSE c_sampler;
3242: END IF;
3244:
3245: -- Sample No
3246: IF (ltrim(rtrim(p_sample.sample_no)) IS NULL) THEN
3247: GMD_API_PUB.Log_Message('GMD_SAMPLE_NUMBER_REQD');
3248: RAISE FND_API.G_EXC_ERROR;
3249: END IF;
3250:
3251: -- Sample Source
3252: IF (p_sample.source IS NULL OR
3253: (NOT (p_sample.source in ('I', 'W', 'C', 'S','L','R','T')))
3254: ) THEN
3255: -- Now, what is the source of this sample? Where did it come from?
3256: GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
3257: RAISE FND_API.G_EXC_ERROR;
3258: END IF;
3259:
3260: -- QC Lab Orgn Code
3261: IF (p_sample.lab_organization_id IS NULL) THEN
3259:
3260: -- QC Lab Orgn Code
3261: IF (p_sample.lab_organization_id IS NULL) THEN
3262: GMD_API_PUB.Log_Message('GMD_QC_LAB_ORGN_CODE_REQD');
3263: RAISE FND_API.G_EXC_ERROR;
3264: ELSE
3265: -- Check that QC Lab Orgn Code exist in SY_ORGN_MST
3266: OPEN c_lab_orgn(p_sample.lab_organization_id);
3267: FETCH c_lab_orgn INTO dummy;
3268: IF c_lab_orgn%NOTFOUND THEN
3269: CLOSE c_lab_orgn;
3270: GMD_API_PUB.Log_Message('GMD_QC_LAB_ORGN_CODE_NOT_FOUND',
3271: 'ORGN', p_sample.lab_organization_id);
3272: RAISE FND_API.G_EXC_ERROR;
3273: END IF;
3274: CLOSE c_lab_orgn;
3275: END IF;
3276:
3281: (NOT (p_sample.sample_disposition in ('0RT', '1P')))
3282: ) THEN
3283: -- Now, what is the disposition of this sample?
3284: GMD_API_PUB.Log_Message('GMD_SAMPLE_DISPOSITION_INVALID');
3285: RAISE FND_API.G_EXC_ERROR;
3286: END IF;
3287:
3288: -- Item ID
3289: IF (p_sample.inventory_item_id IS NULL) and
3288: -- Item ID
3289: IF (p_sample.inventory_item_id IS NULL) and
3290: (p_sample.sample_type = 'M' ) THEN
3291: GMD_API_PUB.Log_Message('GMD_SPEC_ITEM_REQD');
3292: RAISE FND_API.G_EXC_ERROR;
3293: ELSE
3294: -- Get the Item No
3295: OPEN c_item(p_sample.inventory_item_id, p_sample.organization_id);
3296: FETCH c_item INTO dummy;
3296: FETCH c_item INTO dummy;
3297: IF c_item%NOTFOUND THEN
3298: CLOSE c_item;
3299: GMD_API_PUB.Log_Message('GMD_SPEC_ITEM_NOT_FOUND');
3300: RAISE FND_API.G_EXC_ERROR;
3301: END IF;
3302: CLOSE c_item;
3303: END IF;
3304:
3313: FETCH c_sampling_event INTO dummy;
3314: IF c_sampling_event%NOTFOUND THEN
3315: CLOSE c_sampling_event;
3316: GMD_API_PUB.Log_Message('GMD_SAMPLING_EVENT_NOT_FOUND');
3317: RAISE FND_API.G_EXC_ERROR;
3318: END IF;
3319: CLOSE c_sampling_event;
3320: END IF;
3321: ** COMMENT END **/
3322:
3323: -- Sample Qty
3324: IF (p_sample.sample_qty IS NULL) THEN
3325: GMD_API_PUB.Log_Message('GMD_SAMPLE_QTY_REQD');
3326: RAISE FND_API.G_EXC_ERROR;
3327: END IF;
3328:
3329: -- Sample UOM
3330: IF (p_sample.sample_qty_uom IS NULL) THEN
3328:
3329: -- Sample UOM
3330: IF (p_sample.sample_qty_uom IS NULL) THEN
3331: GMD_API_PUB.Log_Message('GMD_SAMPLE_UOM_REQD');
3332: RAISE FND_API.G_EXC_ERROR;
3333: END IF;
3334:
3335: -- Lot No
3336: IF (p_sample.lot_number IS NOT NULL) THEN
3340: --Uday Phadtare Bug2982490 changed CLOSE c_whse to CLOSE c_item_lot
3341: CLOSE c_item_lot;
3342: GMD_API_PUB.Log_Message('GMD_ITEM_LOT_NOT_FOUND',
3343: 'LOT_NO', p_sample.lot_number);
3344: RAISE FND_API.G_EXC_ERROR;
3345: END IF;
3346: CLOSE c_item_lot;
3347: END IF;
3348:
3359: IF c_subinventory%NOTFOUND THEN
3360: CLOSE c_subinventory;
3361: GMD_API_PUB.Log_Message('GMD_SPEC_WHSE_NOT_FOUND',
3362: 'WHSE', p_sample.subinventory);
3363: RAISE FND_API.G_EXC_ERROR;
3364: END IF;
3365: CLOSE c_subinventory;
3366: END IF;
3367:
3373: IF c_locator%NOTFOUND THEN
3374: CLOSE c_locator;
3375: GMD_API_PUB.Log_Message('GMD_LOCT_NOT_FOUND',
3376: 'LOCATION', p_sample.locator_id);
3377: RAISE FND_API.G_EXC_ERROR;
3378: END IF;
3379: CLOSE c_locator;
3380: END IF;
3381:
3387:
3388: -- For WIP sample, at least Batch No or Recipe ID is required
3389: IF (p_sample.batch_id IS NULL AND p_sample.recipe_id IS NULL) THEN
3390: GMD_API_PUB.Log_Message('GMD_NO_WIP_PARAM');
3391: RAISE FND_API.G_EXC_ERROR;
3392: END IF;
3393:
3394: -- Batch ID is valid
3395:
3398: FETCH c_batch INTO dummy;
3399: IF c_batch%NOTFOUND THEN
3400: CLOSE c_batch;
3401: GMD_API_PUB.Log_Message('GMD_BATCH_NOT_FOUND');
3402: RAISE FND_API.G_EXC_ERROR;
3403: END IF;
3404: CLOSE c_batch;
3405: END IF;
3406:
3410: FETCH c_recipe_id INTO dummy;
3411: IF c_recipe_id%NOTFOUND THEN
3412: CLOSE c_recipe_id;
3413: GMD_API_PUB.Log_Message('GMD_RECIPE_NOT_FOUND');
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: CLOSE c_recipe_id;
3417: END IF;
3418:
3425: FETCH c_formulaline_id INTO dummy;
3426: IF c_formulaline_id%NOTFOUND THEN
3427: CLOSE c_formulaline_id;
3428: GMD_API_PUB.Log_Message('GMD_FORMULA_LINE_NOT_FOUND');
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: CLOSE c_formulaline_id;
3432: END IF;
3433:
3439: FETCH c_material_detail_id INTO dummy;
3440: IF c_material_detail_id%NOTFOUND THEN
3441: CLOSE c_material_detail_id;
3442: GMD_API_PUB.Log_Message('GMD_MATERIAL_DTL_NOT_FOUND');
3443: RAISE FND_API.G_EXC_ERROR;
3444: END IF;
3445: CLOSE c_material_detail_id;
3446: END IF;
3447:
3452: FETCH c_batchstep INTO dummy;
3453: IF c_batchstep%NOTFOUND THEN
3454: CLOSE c_batchstep;
3455: GMD_API_PUB.Log_Message('GMD_BATCH_STEP_NOT_FOUND');
3456: RAISE FND_API.G_EXC_ERROR;
3457: END IF;
3458: CLOSE c_batchstep;
3459: ELSIF (p_sample.routing_id IS NOT NULL AND p_sample.step_no IS NOT NULL) THEN
3460: -- Step No is from Routing
3462: FETCH c_routingstep INTO dummy;
3463: IF c_routingstep%NOTFOUND THEN
3464: CLOSE c_routingstep;
3465: GMD_API_PUB.Log_Message('GMD_ROUTING_STEP_NOT_FOUND');
3466: RAISE FND_API.G_EXC_ERROR;
3467: END IF;
3468: CLOSE c_routingstep;
3469: END IF;
3470:
3475: FETCH c_oprn INTO dummy;
3476: IF c_oprn%NOTFOUND THEN
3477: CLOSE c_oprn;
3478: GMD_API_PUB.Log_Message('GMD_BATCH_STEP_NOT_FOUND');
3479: RAISE FND_API.G_EXC_ERROR;
3480: END IF;
3481: CLOSE c_oprn;
3482: END IF;
3483:
3489:
3490: -- Customer
3491: IF (p_sample.cust_id IS NULL) THEN
3492: GMD_API_PUB.Log_Message('GMD_CUSTOMER_REQD');
3493: RAISE FND_API.G_EXC_ERROR;
3494: ELSE
3495: OPEN c_cust;
3496: FETCH c_cust INTO dummy;
3497: IF c_cust%NOTFOUND THEN
3496: FETCH c_cust INTO dummy;
3497: IF c_cust%NOTFOUND THEN
3498: CLOSE c_cust;
3499: GMD_API_PUB.Log_Message('GMD_CUSTOMER_NOT_FOUND');
3500: RAISE FND_API.G_EXC_ERROR;
3501: END IF;
3502: CLOSE c_cust;
3503: END IF;
3504:
3508: -- FETCH c_org INTO dummy;
3509: -- IF c_cust%NOTFOUND THEN
3510: -- CLOSE c_org;
3511: -- GMD_API_PUB.Log_Message('GMD_ORG_NOT_FOUND');
3512: -- RAISE FND_API.G_EXC_ERROR;
3513: -- END IF;
3514: -- CLOSE c_org;
3515: --END IF;
3516:
3520: FETCH c_ship_to INTO dummy;
3521: IF c_ship_to%NOTFOUND THEN
3522: CLOSE c_ship_to;
3523: GMD_API_PUB.Log_Message('GMD_SHIP_TO_NOT_FOUND');
3524: RAISE FND_API.G_EXC_ERROR;
3525: END IF;
3526: CLOSE c_ship_to;
3527: END IF;
3528:
3532: FETCH c_order INTO dummy;
3533: IF c_order%NOTFOUND THEN
3534: CLOSE c_order;
3535: GMD_API_PUB.Log_Message('GMD_ORDER_NOT_FOUND');
3536: RAISE FND_API.G_EXC_ERROR;
3537: END IF;
3538: CLOSE c_order;
3539: END IF;
3540:
3544: FETCH c_order_line INTO dummy;
3545: IF c_order_line%NOTFOUND THEN
3546: CLOSE c_order_line;
3547: GMD_API_PUB.Log_Message('GMD_ORDER_LINE_NOT_FOUND');
3548: RAISE FND_API.G_EXC_ERROR;
3549: END IF;
3550: CLOSE c_order_line;
3551: END IF;
3552:
3558:
3559: -- Supplier
3560: IF (p_sample.supplier_id IS NULL) THEN
3561: GMD_API_PUB.Log_Message('GMD_SUPPLIER_REQD');
3562: RAISE FND_API.G_EXC_ERROR;
3563: ELSIF (p_sample.supplier_id IS NOT NULL) THEN
3564: OPEN c_supplier;
3565: FETCH c_supplier INTO dummy;
3566: IF c_supplier%NOTFOUND THEN
3565: FETCH c_supplier INTO dummy;
3566: IF c_supplier%NOTFOUND THEN
3567: CLOSE c_supplier;
3568: GMD_API_PUB.Log_Message('GMD_SUPPLIER_NOT_FOUND');
3569: RAISE FND_API.G_EXC_ERROR;
3570: END IF;
3571: CLOSE c_supplier;
3572: END IF;
3573:
3577: FETCH c_po INTO dummy;
3578: IF c_po%NOTFOUND THEN
3579: CLOSE c_po;
3580: GMD_API_PUB.Log_Message('GMD_PO_NOT_FOUND');
3581: RAISE FND_API.G_EXC_ERROR;
3582: END IF;
3583: CLOSE c_po;
3584: END IF;
3585:
3589: FETCH c_po_line INTO dummy;
3590: IF c_po_line%NOTFOUND THEN
3591: CLOSE c_po_line;
3592: GMD_API_PUB.Log_Message('GMD_PO_LINE_NOT_FOUND');
3593: RAISE FND_API.G_EXC_ERROR;
3594: END IF;
3595: CLOSE c_po_line;
3596: END IF;
3597:
3598: END IF; -- Validation for Supplier Sample
3599:
3600:
3601: EXCEPTION
3602: WHEN FND_API.G_EXC_ERROR THEN
3603: x_return_status := FND_API.G_RET_STS_ERROR ;
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3606: WHEN OTHERS THEN
3599:
3600:
3601: EXCEPTION
3602: WHEN FND_API.G_EXC_ERROR THEN
3603: x_return_status := FND_API.G_RET_STS_ERROR ;
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3606: WHEN OTHERS THEN
3607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3600:
3601: EXCEPTION
3602: WHEN FND_API.G_EXC_ERROR THEN
3603: x_return_status := FND_API.G_RET_STS_ERROR ;
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3606: WHEN OTHERS THEN
3607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3608:
3601: EXCEPTION
3602: WHEN FND_API.G_EXC_ERROR THEN
3603: x_return_status := FND_API.G_RET_STS_ERROR ;
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3606: WHEN OTHERS THEN
3607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3608:
3609: END check_for_null_and_fks_in_smpl;
3603: x_return_status := FND_API.G_RET_STS_ERROR ;
3604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3606: WHEN OTHERS THEN
3607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3608:
3609: END check_for_null_and_fks_in_smpl;
3610:
3611:
3693:
3694: BEGIN
3695:
3696: -- Initialize API return status to success
3697: x_return_status := FND_API.G_RET_STS_SUCCESS;
3698:
3699: -- Get the reason code
3700: GMD_QUALITY_PARAMETERS_GRP.get_quality_parameters(
3701: p_organization_id => p_sample.organization_id
3704: , x_orgn_found => found );
3705:
3706: IF (x_return_status <> 'S') THEN
3707: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
3708: RAISE FND_API.G_EXC_ERROR;
3709: END IF;
3710: l_position := '020' ;
3711:
3712: --IF NOT GMIGUTL.setup(FND_GLOBAL.USER_NAME) THEN
3710: l_position := '020' ;
3711:
3712: --IF NOT GMIGUTL.setup(FND_GLOBAL.USER_NAME) THEN
3713: -- Error Message must have been logged.
3714: -- RAISE FND_API.G_EXC_ERROR;
3715: --END IF;
3716: --l_trans_rec.trans_type := 2; -- adjustment transaction
3717:
3718: l_position := '030' ;
3823: -- 'FROM_UOM',p_sample.sample_qty_uom,
3824: -- 'TO_UOM', l_item_rec.primary_uom_code ,
3825: -- 'ITEM_NO', item_rec.item_number);
3826: --
3827: -- RAISE FND_API.G_EXC_ERROR;
3828: -- END IF;
3829: -- ELSE
3830: -- l_trans_rec.trans_qty2 := NULL ;
3831: -- END IF;
3902: -- commit;
3903: --call transaction manager
3904: processed := INV_TXN_MANAGER_PUB.PROCESS_TRANSACTIONS
3905: (p_api_version => 1.0
3906: ,p_init_msg_list => fnd_api.g_false
3907: ,p_commit => fnd_api.g_false
3908: ,p_validation_level => p_validation_level
3909: ,x_return_status => x_return_status
3910: ,x_msg_count => l_msg_count
3903: --call transaction manager
3904: processed := INV_TXN_MANAGER_PUB.PROCESS_TRANSACTIONS
3905: (p_api_version => 1.0
3906: ,p_init_msg_list => fnd_api.g_false
3907: ,p_commit => fnd_api.g_false
3908: ,p_validation_level => p_validation_level
3909: ,x_return_status => x_return_status
3910: ,x_msg_count => l_msg_count
3911: ,x_msg_data => l_msg_data
3919: END IF;
3920:
3921: IF processed < 0 THEN
3922: -- x_message_count and x_msg_data is already populated
3923: RAISE FND_API.G_EXC_ERROR;
3924: END IF;
3925:
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3923: RAISE FND_API.G_EXC_ERROR;
3924: END IF;
3925:
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: x_return_status := FND_API.G_RET_STS_ERROR ;
3929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3931: WHEN OTHERS THEN
3924: END IF;
3925:
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: x_return_status := FND_API.G_RET_STS_ERROR ;
3929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3931: WHEN OTHERS THEN
3932: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3925:
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: x_return_status := FND_API.G_RET_STS_ERROR ;
3929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3931: WHEN OTHERS THEN
3932: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3933: 'PACKAGE','CREATE_INV_TXN',
3926: EXCEPTION
3927: WHEN FND_API.G_EXC_ERROR THEN
3928: x_return_status := FND_API.G_RET_STS_ERROR ;
3929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3931: WHEN OTHERS THEN
3932: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3933: 'PACKAGE','CREATE_INV_TXN',
3934: 'ERROR', SUBSTR(SQLERRM,1,100),
3932: GMD_API_PUB.Log_Message('GMD_API_ERROR',
3933: 'PACKAGE','CREATE_INV_TXN',
3934: 'ERROR', SUBSTR(SQLERRM,1,100),
3935: 'POSITION',l_position);
3936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3937:
3938:
3939: END create_inv_txn;
3940:
4052:
4053: BEGIN
4054:
4055: -- Initialize API return status to success
4056: x_return_status := FND_API.G_RET_STS_SUCCESS;
4057:
4058: -- test for batch id, step id and material detail
4059: IF p_sample.batch_id IS NULL THEN
4060: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
4057:
4058: -- test for batch id, step id and material detail
4059: IF p_sample.batch_id IS NULL THEN
4060: GMD_API_PUB.Log_Message('GMD_INVALID_PARAMETERS');
4061: RAISE FND_API.G_EXC_ERROR;
4062: END IF;
4063: --srakrish bug 5394566: Commenting the cursors as these have hardcoded values and material_detail_id is directly passed.
4064:
4065: -- Bug# 5629709 uncomment the following since its required to check if the sample item is defined as a byproduct in the batch
4088:
4089: -- Verify that we have the trx_source_line_id (material_detail_id)
4090: IF p_mmti_rec.trx_source_line_id IS NULL THEN
4091: GMD_API_PUB.Log_Message('GMD_MATERIAL_DTL_NOT_FOUND');
4092: RAISE FND_API.G_EXC_ERROR;
4093: END IF;
4094:
4095: OPEN c_item_no (p_sample.inventory_item_id);
4096: FETCH c_item_no INTO l_item_no ,
4129: GMD_API_PUB.Log_Message('FM_SCALE_BAD_UOM_CONV',
4130: 'FROM_UOM',p_sample.sample_qty_uom,
4131: 'TO_UOM',material_detail_item_um,
4132: 'ITEM_NO',l_item_no);
4133: RAISE FND_API.G_EXC_ERROR;
4134: END IF;
4135: END IF;
4136:
4137: -- Get the reason code from the global configurator
4139: FETCH Cur_global_configurator INTO p_mmti_rec.reason_id ;
4140: IF Cur_global_configurator%NOTFOUND THEN
4141: CLOSE Cur_global_configurator;
4142: GMD_API_PUB.Log_Message('GMD_QM_INV_REASON_CODE');
4143: RAISE FND_API.G_EXC_ERROR;
4144: END IF;
4145: CLOSE Cur_global_configurator;
4146:
4147: -- bug# 2995114
4196: GMD_API_PUB.Log_Message('FM_SCALE_BAD_UOM_CONV',
4197: 'FROM_UOM',p_sample.sample_qty_uom,
4198: 'TO_UOM',l_item_um2,
4199: 'ITEM_NO',l_item_no);
4200: RAISE FND_API.G_EXC_ERROR;
4201: END IF;
4202: ELSE
4203: p_mmti_rec.secondary_transaction_quantity := NULL;
4204: END IF;
4205:
4206: IF p_sample.lot_number IS NOT NULL THEN
4207: -- lot exists
4208: p_mmti_rec.source_lot_number := p_sample.lot_number;
4209: p_create_lot := FND_API.G_FALSE; -- FALSE;
4210: temp_lot_no := NULL;
4211: ELSE
4212: -- lot does not exists and needs to be created
4213: p_mmti_rec.source_lot_number := NULL;
4210: temp_lot_no := NULL;
4211: ELSE
4212: -- lot does not exists and needs to be created
4213: p_mmti_rec.source_lot_number := NULL;
4214: p_create_lot := FND_API.G_TRUE; --TRUE;
4215: temp_lot_no := p_sample.lot_number;
4216: END IF; -- test for lot id
4217:
4218: -- Bug 4165704: gme_api_pub.insert_line_allocation replaced by create_material_txns
4249:
4250: GME_API_PUB.create_material_txn(
4251: p_api_version => 2.0
4252: , p_validation_level => p_validation_level
4253: , p_init_msg_list => fnd_api.g_false --FALSE
4254: , p_commit => fnd_api.g_false --FALSE
4255: , x_message_count => x_message_count
4256: , x_message_list => x_message_data
4257: , x_return_status => x_return_status
4250: GME_API_PUB.create_material_txn(
4251: p_api_version => 2.0
4252: , p_validation_level => p_validation_level
4253: , p_init_msg_list => fnd_api.g_false --FALSE
4254: , p_commit => fnd_api.g_false --FALSE
4255: , x_message_count => x_message_count
4256: , x_message_list => x_message_data
4257: , x_return_status => x_return_status
4258: , p_org_code => NULL
4261: , p_batch_no => NULL
4262: , p_line_no => NULL
4263: , p_line_type => NULL
4264: , p_create_lot => p_create_lot -- TRUE
4265: , p_generate_lot => fnd_api.g_false --FALSE
4266: , p_generate_parent_lot => fnd_api.g_false --FALSE
4267: , x_mmt_rec => x_mmt_rec -- contains the newly created transaction
4268: , x_mmln_tbl => x_mmln_tbl ); -- contains info for lot transactions
4269:
4262: , p_line_no => NULL
4263: , p_line_type => NULL
4264: , p_create_lot => p_create_lot -- TRUE
4265: , p_generate_lot => fnd_api.g_false --FALSE
4266: , p_generate_parent_lot => fnd_api.g_false --FALSE
4267: , x_mmt_rec => x_mmt_rec -- contains the newly created transaction
4268: , x_mmln_tbl => x_mmln_tbl ); -- contains info for lot transactions
4269:
4270: IF (X_return_status <> 'S') THEN
4268: , x_mmln_tbl => x_mmln_tbl ); -- contains info for lot transactions
4269:
4270: IF (X_return_status <> 'S') THEN
4271: -- x_message_count and x_message_data is already populated
4272: RAISE FND_API.G_EXC_ERROR;
4273: END IF;
4274: ELSE
4275: -- Bug 3492053: if replenish whse is not there inventory is not generated
4276: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS');
4273: END IF;
4274: ELSE
4275: -- Bug 3492053: if replenish whse is not there inventory is not generated
4276: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS');
4277: RAISE FND_API.G_EXC_ERROR;
4278: END IF; -- check for replenish whse code
4279:
4280: EXCEPTION
4281: WHEN FND_API.G_EXC_ERROR THEN
4277: RAISE FND_API.G_EXC_ERROR;
4278: END IF; -- check for replenish whse code
4279:
4280: EXCEPTION
4281: WHEN FND_API.G_EXC_ERROR THEN
4282: x_return_status := FND_API.G_RET_STS_ERROR ;
4283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: WHEN OTHERS THEN
4278: END IF; -- check for replenish whse code
4279:
4280: EXCEPTION
4281: WHEN FND_API.G_EXC_ERROR THEN
4282: x_return_status := FND_API.G_RET_STS_ERROR ;
4283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: WHEN OTHERS THEN
4286: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4279:
4280: EXCEPTION
4281: WHEN FND_API.G_EXC_ERROR THEN
4282: x_return_status := FND_API.G_RET_STS_ERROR ;
4283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: WHEN OTHERS THEN
4286: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4287: 'PACKAGE','INVENTORY_TRANS_INSERT',
4280: EXCEPTION
4281: WHEN FND_API.G_EXC_ERROR THEN
4282: x_return_status := FND_API.G_RET_STS_ERROR ;
4283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: WHEN OTHERS THEN
4286: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4287: 'PACKAGE','INVENTORY_TRANS_INSERT',
4288: 'ERROR', SUBSTR(SQLERRM,1,100));
4285: WHEN OTHERS THEN
4286: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4287: 'PACKAGE','INVENTORY_TRANS_INSERT',
4288: 'ERROR', SUBSTR(SQLERRM,1,100));
4289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4290:
4291:
4292: END create_wip_txn;
4293:
4323:
4324: BEGIN
4325:
4326: -- Initialize API return status to success
4327: x_return_status := FND_API.G_RET_STS_SUCCESS;
4328:
4329: l_batch_header.batch_id := p_batch_id;
4330:
4331: /* took this code out but must put back gme functionality
4333: p_commit => FALSE,
4334: x_return_status => l_return_status);
4335:
4336: IF (l_return_status <> 'S') THEN
4337: RAISE FND_API.G_EXC_ERROR;
4338: END IF;
4339: */
4340: EXCEPTION
4341: WHEN FND_API.G_EXC_ERROR THEN
4337: RAISE FND_API.G_EXC_ERROR;
4338: END IF;
4339: */
4340: EXCEPTION
4341: WHEN FND_API.G_EXC_ERROR THEN
4342: x_return_status := FND_API.G_RET_STS_ERROR ;
4343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4345: WHEN OTHERS THEN
4338: END IF;
4339: */
4340: EXCEPTION
4341: WHEN FND_API.G_EXC_ERROR THEN
4342: x_return_status := FND_API.G_RET_STS_ERROR ;
4343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4345: WHEN OTHERS THEN
4346: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4339: */
4340: EXCEPTION
4341: WHEN FND_API.G_EXC_ERROR THEN
4342: x_return_status := FND_API.G_RET_STS_ERROR ;
4343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4345: WHEN OTHERS THEN
4346: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4347: 'PACKAGE','POST_WIP_TXN',
4340: EXCEPTION
4341: WHEN FND_API.G_EXC_ERROR THEN
4342: x_return_status := FND_API.G_RET_STS_ERROR ;
4343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4345: WHEN OTHERS THEN
4346: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4347: 'PACKAGE','POST_WIP_TXN',
4348: 'ERROR', SUBSTR(SQLERRM,1,100));
4345: WHEN OTHERS THEN
4346: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4347: 'PACKAGE','POST_WIP_TXN',
4348: 'ERROR', SUBSTR(SQLERRM,1,100));
4349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4350:
4351: END post_wip_txn;
4352:
4353:
4457: result BOOLEAN;
4458:
4459: BEGIN
4460: -- Initialize API return status to success
4461: x_return_status := FND_API.G_RET_STS_SUCCESS;
4462:
4463: IF (l_debug = 'Y') THEN
4464: gmd_debug.put_line('In Procedure update_remaining_qty');
4465: gmd_debug.put_line('Input Parameters=');
4564: GMD_API_PUB.Log_Message('FM_SCALE_BAD_UOM_CONV',
4565: 'FROM_UOM',l_results.test_qty_uom,
4566: 'TO_UOM', l_samples.sample_qty_uom,
4567: 'ITEM_NO',l_samples_item_no);
4568: RAISE FND_API.G_EXC_ERROR;
4569:
4570: -- Bug 3088216: update samples remaining qty
4571: ELSIF converted_qty <= l_samples.remaining_qty THEN
4572:
4583: WHERE sample_id = l_samples.sample_id;
4584:
4585: ELSE
4586: GMD_API_PUB.Log_Message('GMD_QM_REMAIN_QTY_NEG');
4587: RAISE FND_API.G_EXC_ERROR;
4588: END IF; -- Bug 3088216
4589:
4590: ELSE -- samples uom = test uom
4591:
4603: WHERE sample_id = l_samples.sample_id;
4604:
4605: ELSE
4606: GMD_API_PUB.Log_Message('GMD_QM_REMAIN_QTY_NEG');
4607: RAISE FND_API.G_EXC_ERROR;
4608: END IF; -- Bug 3088216
4609:
4610:
4611: END IF;
4610:
4611: END IF;
4612:
4613: EXCEPTION
4614: WHEN FND_API.G_EXC_ERROR THEN
4615: x_return_status := FND_API.G_RET_STS_ERROR ;
4616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4618: WHEN RECORD_LOCK THEN -- added to prevent record locking of samples
4611: END IF;
4612:
4613: EXCEPTION
4614: WHEN FND_API.G_EXC_ERROR THEN
4615: x_return_status := FND_API.G_RET_STS_ERROR ;
4616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4618: WHEN RECORD_LOCK THEN -- added to prevent record locking of samples
4619: IF (l_debug = 'Y') THEN
4612:
4613: EXCEPTION
4614: WHEN FND_API.G_EXC_ERROR THEN
4615: x_return_status := FND_API.G_RET_STS_ERROR ;
4616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4618: WHEN RECORD_LOCK THEN -- added to prevent record locking of samples
4619: IF (l_debug = 'Y') THEN
4620: gmd_debug.put_line('Reached in lock on samples');
4613: EXCEPTION
4614: WHEN FND_API.G_EXC_ERROR THEN
4615: x_return_status := FND_API.G_RET_STS_ERROR ;
4616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4618: WHEN RECORD_LOCK THEN -- added to prevent record locking of samples
4619: IF (l_debug = 'Y') THEN
4620: gmd_debug.put_line('Reached in lock on samples');
4621: END IF;
4622: IF C_lock_sample%ISOPEN THEN
4623: CLOSE C_lock_sample;
4624: END IF;
4625: GMD_API_PUB.Log_Message('GMD_QM_SAMPLES_LOCKED'); -- Bug# 5463117
4626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4627: WHEN OTHERS THEN
4628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4629:
4630: END update_remaining_qty;
4624: END IF;
4625: GMD_API_PUB.Log_Message('GMD_QM_SAMPLES_LOCKED'); -- Bug# 5463117
4626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4627: WHEN OTHERS THEN
4628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4629:
4630: END update_remaining_qty;
4631:
4632:
4698: e_sample_fetch_error EXCEPTION;
4699:
4700: BEGIN
4701: -- Initialize API return status to success
4702: x_return_status := FND_API.G_RET_STS_SUCCESS;
4703:
4704: -- test for whether sample id or sampling event id was passed
4705: IF p_type = 'SAMPLE' THEN -- sample_id is passed
4706: in_sample.sample_id := p_id;
4902: Gmd_samples_grp.resource_source(p_instance_id => out_sampling_event.instance_id
4903: , x_display => x_display);
4904: END IF;
4905: ELSE -- p_type parameter incorrect
4906: x_return_status := FND_API.G_RET_STS_ERROR ;
4907: END IF; -- end p_type = 'SAMPLE'
4908:
4909: /*============================================
4910: BUG#469552
4923: CLOSE get_grade;
4924: END IF;
4925:
4926: EXCEPTION
4927: WHEN FND_API.G_EXC_ERROR OR
4928: e_sampling_event_fetch_error OR
4929: e_sample_fetch_error
4930: THEN
4931: x_return_status := FND_API.G_RET_STS_ERROR ;
4927: WHEN FND_API.G_EXC_ERROR OR
4928: e_sampling_event_fetch_error OR
4929: e_sample_fetch_error
4930: THEN
4931: x_return_status := FND_API.G_RET_STS_ERROR ;
4932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4934: WHEN OTHERS THEN
4935: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4928: e_sampling_event_fetch_error OR
4929: e_sample_fetch_error
4930: THEN
4931: x_return_status := FND_API.G_RET_STS_ERROR ;
4932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4934: WHEN OTHERS THEN
4935: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4936: 'PACKAGE','SAMPLE_SOURCE_DISPLAY','ERROR', SUBSTR(SQLERRM,1,100));
4929: e_sample_fetch_error
4930: THEN
4931: x_return_status := FND_API.G_RET_STS_ERROR ;
4932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4934: WHEN OTHERS THEN
4935: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4936: 'PACKAGE','SAMPLE_SOURCE_DISPLAY','ERROR', SUBSTR(SQLERRM,1,100));
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4934: WHEN OTHERS THEN
4935: GMD_API_PUB.Log_Message('GMD_API_ERROR',
4936: 'PACKAGE','SAMPLE_SOURCE_DISPLAY','ERROR', SUBSTR(SQLERRM,1,100));
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4938: END Sample_source_display ;
4939:
4940:
4941: --+========================================================================+
5633: CLOSE Cur_get_sample_disposition;
5634: END IF;
5635:
5636: EXCEPTION
5637: WHEN FND_API.G_EXC_ERROR THEN
5638: x_return_status := FND_API.G_RET_STS_ERROR ;
5639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5641: WHEN OTHERS THEN
5634: END IF;
5635:
5636: EXCEPTION
5637: WHEN FND_API.G_EXC_ERROR THEN
5638: x_return_status := FND_API.G_RET_STS_ERROR ;
5639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5641: WHEN OTHERS THEN
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5635:
5636: EXCEPTION
5637: WHEN FND_API.G_EXC_ERROR THEN
5638: x_return_status := FND_API.G_RET_STS_ERROR ;
5639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5641: WHEN OTHERS THEN
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5643:
5636: EXCEPTION
5637: WHEN FND_API.G_EXC_ERROR THEN
5638: x_return_status := FND_API.G_RET_STS_ERROR ;
5639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5641: WHEN OTHERS THEN
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5643:
5644: END get_sample_spec_disposition;
5638: x_return_status := FND_API.G_RET_STS_ERROR ;
5639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5641: WHEN OTHERS THEN
5642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5643:
5644: END get_sample_spec_disposition;
5645:
5646: