[Home] [Help]
170: l_api_name CONSTANT VARCHAR2 (30) := 'CREATE_SAMPLES';
171: l_api_version CONSTANT NUMBER := 3.0;
172: l_msg_count NUMBER :=0;
173: l_msg_data VARCHAR2(2000);
174: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
175: l_samples_val_rec GMD_SAMPLES%ROWTYPE;
176: l_qc_samples_rec GMD_SAMPLES%ROWTYPE;
177: l_qc_samples_out_rec GMD_SAMPLES%ROWTYPE;
178: l_sample_spec_disp GMD_SAMPLE_SPEC_DISP%ROWTYPE;
298: --dbms_output.put_line('Entered Procedure CREATE_SAMPLES');
299:
300: /* Standard call to check for call compatibility. */
301:
302: IF NOT FND_API.Compatible_API_CALL
303: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
304: THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
301:
302: IF NOT FND_API.Compatible_API_CALL
303: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
304: THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
307:
308: /* Initialize message list if p_int_msg_list is set TRUE. */
309: IF FND_API.to_boolean(p_init_msg_list)
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
307:
308: /* Initialize message list if p_int_msg_list is set TRUE. */
309: IF FND_API.to_boolean(p_init_msg_list)
310: THEN
311: FND_MSG_PUB.Initialize;
312: END IF;
313:
312: END IF;
313:
314: -- Initialize API return Parameters
315:
316: x_return_status := FND_API.G_RET_STS_SUCCESS;
317: l_samples_val_rec := p_qc_samples_rec;
318:
319:
320: -- Validate User Name Parameter
324: IF NVL(l_user_id, -1) < 0
325: THEN
326: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
327: 'L_USER_NAME', p_user_name);
328: RAISE FND_API.G_EXC_ERROR;
329: ELSE
330: -- Added below for BUG 2711643. Hverddin
331: GMD_API_PUB.SET_USER_CONTEXT(p_user_id => l_user_id,
332: x_return_status => l_return_status);
330: -- Added below for BUG 2711643. Hverddin
331: GMD_API_PUB.SET_USER_CONTEXT(p_user_id => l_user_id,
332: x_return_status => l_return_status);
333:
334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338: l_samples_val_rec.created_by := l_user_id;
331: GMD_API_PUB.SET_USER_CONTEXT(p_user_id => l_user_id,
332: x_return_status => l_return_status);
333:
334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338: l_samples_val_rec.created_by := l_user_id;
339: l_samples_val_rec.last_updated_by := l_user_id;
342:
343: -- Validate organization_id Passed.
344: IF (l_samples_val_rec.organization_id IS NULL) THEN
345: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_REQD');
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349:
350: -- Validate RETAIN_AS Passed.
350: -- Validate RETAIN_AS Passed.
351: IF ((l_samples_val_rec.sample_disposition NOT IN ('0RT', '0PL'))
352: AND (l_samples_val_rec.retain_as IS NOT NULL)) THEN
353: GMD_API_PUB.Log_Message('GMD_PLANNED_RETAINED_SAMPLES');
354: RAISE FND_API.G_EXC_ERROR;
355: END IF;
356:
357: -- Determine Type of Doc Sequencing defined for sample no.
358: -- Bug 4165704: doc numbering now kept in quality parameters table
372: , x_orgn_found => found );
373:
374: IF (l_return_status <> 'S') THEN
375: GMD_API_PUB.Log_Message('GMD_QM_ORG_PARAMETER');
376: RAISE FND_API.G_EXC_ERROR;
377: END IF;
378:
379: l_assign_type := quality_config.sample_assignment_type;
380:
404: CLOSE get_wms_flag;
405:
406: IF l_wms_enabled_flag = 'N' then
407: GMD_API_PUB.Log_Message('WMS_ONLY_FUNCTIONALITY');
408: RAISE FND_API.G_EXC_ERROR;
409: END IF;
410:
411: END IF; -- IF l_samples_val_rec.lpn IS NOT NULL ) THEN
412:
415: FETCH get_lpn_no INTO l_samples_val_rec.lpn_id;
416: IF get_lpn_no%NOTFOUND THEN
417: CLOSE get_lpn_no;
418: GMD_API_PUB.Log_Message('WMS_LPN_NOT_FOUND');
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421: CLOSE get_lpn_no;
422: END IF;
423:
426: FETCH get_lpn INTO dummy;
427: IF get_lpn%NOTFOUND THEN
428: CLOSE get_lpn;
429: GMD_API_PUB.Log_Message('WMS_LPN_NOT_FOUND');
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432: CLOSE get_lpn;
433: END IF;
434:
446: );
447:
448: --dbms_output.put_line('after validate, before return stat check');
449:
450: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: --dbms_output.put_line('after validate, after return stat check');
447:
448: --dbms_output.put_line('after validate, before return stat check');
449:
450: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: --dbms_output.put_line('after validate, after return stat check');
455:
477: x_return_status => l_return_status,
478: x_msg_data => l_msg_data
479: )THEN
480: GMD_API_PUB.Log_Message('GMD_SPEC_NOT_FOUND');
481: RAISE FND_API.G_EXC_ERROR;
482: END IF;
483:
484: IF l_qc_samples_rec.source IN ('I','C','W','S') AND p_qc_samples_rec.sample_inv_trans_ind IS NULL THEN
485:
508: AND ((l_qc_samples_rec.parent_lot_number IS NULL) AND (NVL(G_CHILD_LOT_FLAG,'N') = 'Y'))) THEN
509: GMD_API_PUB.Log_Message('GMD_QM_LOT_REQUIRED'); -- 8276017 added this message instead.
510: --GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
511: -- 'WHAT', 'lot_number');
512: RAISE FND_API.G_EXC_ERROR;
513:
514: END IF;
515:
516:
570: ELSIF (l_qc_samples_rec.sample_disposition = '1P') THEN
571: l_sample_active_cnt := 1;
572: ELSE
573: GMD_API_PUB.Log_Message('GMD_SAMPLE_DISPOSITION_INVALID');
574: RAISE FND_API.G_EXC_ERROR;
575: END IF;
576:
577:
578: -- start bug 12846165 - new param if create_new_sampling_event parameter = Y then make l_sampling_events.sampling_event_id := NULL so that new one is created.
687:
688: IF NOT GMD_SAMPLING_EVENTS_PVT.insert_row (
689: p_sampling_events => l_sampling_events,
690: x_sampling_events => l_sampling_events_out) THEN
691: RAISE FND_API.G_EXC_ERROR;
692: END IF;
693:
694: --dbms_output.put_line('after insert se row ');
695:
712: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
713: 'l_table_name', 'GMD_SAMPLING_EVENTS',
714: 'l_column_name','SAMPLING_EVENT_ID',
715: 'l_key_value', l_sampling_events.sampling_event_id);
716: RAISE FND_API.G_EXC_ERROR;
717: ELSE
718: -- Bug 3401377: added retain_as, archived_taken, reserved_taken to sampling
719: -- event table for MPL
720: IF ((l_qc_samples_rec.retain_as = ( 'A'))
743:
744: IF NOT GMD_SAMPLING_EVENTS_PVT.fetch_row(
745: p_sampling_events => l_sampling_events,
746: x_sampling_events => l_sampling_events_out) THEN
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749:
750: -- Bug 2987571: make sure sample instance is saved to new sample
751: -- Select from the sampling events Table
785:
786: IF NOT GMD_SAMPLES_PVT.insert_row (
787: p_samples => l_qc_samples_rec,
788: x_samples => l_qc_samples_out_rec) THEN
789: RAISE FND_API.G_EXC_ERROR;
790:
791: END IF;
792:
793:
816: x_return_status => l_return_status);
817:
818: -- dbms_output.put_line('RES Return Status => ' || l_return_status);
819:
820: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
823:
824: --dbms_output.put_line('end RES Return Status => ' || l_return_status);
817:
818: -- dbms_output.put_line('RES Return Status => ' || l_return_status);
819:
820: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
821: RAISE FND_API.G_EXC_ERROR;
822: END IF;
823:
824: --dbms_output.put_line('end RES Return Status => ' || l_return_status);
825:
886: END IF; -- source = 'S'
887:
888: IF (l_qc_samples_out_rec.source_subinventory IS NULL ) THEN
889: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS_API2');
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF (l_qc_samples_out_rec.receipt_line_id IS NULL ) THEN
892: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS_API');
893: RAISE FND_API.G_EXC_ERROR;
894: END IF;
889: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS_API2');
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF (l_qc_samples_out_rec.receipt_line_id IS NULL ) THEN
892: GMD_API_PUB.Log_Message('GMD_QM_NO_INVENTORY_TRANS_API');
893: RAISE FND_API.G_EXC_ERROR;
894: END IF;
895:
896: --END IF; -- end Bug 3516802
897:
897:
898: -- Bug 3491783: if whse is not specified, can not generate inv trans
899: ELSIF (l_qc_samples_out_rec.subinventory IS NULL) THEN
900: GMD_API_PUB.Log_Message('GMD_QM_WHSE_REQ_INV');
901: RAISE FND_API.G_EXC_ERROR;
902: END IF; -- end bug
903:
904:
905: GMD_SAMPLES_GRP.create_inv_txn
914:
915: -- dbms_output.put_line('end create inv txn Return Status => ' || l_return_status);
916:
917: IF (l_return_status <> 'S') THEN
918: RAISE FND_API.G_EXC_ERROR;
919: END IF;
920: -- Bug 3401377 : if planned sample, do not generate the inventory transaction (from MPL)
921: ELSIF l_qc_samples_out_rec.source = 'W' AND
922: l_qc_samples_out_rec.sample_disposition <> '0PL' AND
935: -- FETCH Cur_replenish_whse_plant INTO l_qc_samples_out_rec.source_whse ;
936: -- IF Cur_replenish_whse_plant%NOTFOUND THEN
937: -- CLOSE Cur_replenish_whse_plant;
938: -- GMD_API_PUB.Log_Message('GMD_REPLENISH_WHSE_NOT_FOUND');
939: -- RAISE FND_API.G_EXC_ERROR;
940: -- END IF;
941: -- CLOSE Cur_replenish_whse_plant;
942: -- ELSE
943: -- CLOSE Cur_replenish_whse;
965: x_message_data => l_msg_data
966: );
967:
968: IF (l_return_status <> 'S') THEN
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972:
973: GMD_SAMPLES_GRP.post_wip_txn
975: x_return_status => l_return_status
976: );
977:
978: IF (l_return_status <> 'S') THEN
979: RAISE FND_API.G_EXC_ERROR;
980: END IF;
981:
982: -- bug# 2995114
983: -- added create_inv_txn to decrease the inventory which was increased by create_wip_txn/post_wip_txn
993: );
994:
995:
996: IF (l_return_status <> 'S') THEN
997: RAISE FND_API.G_EXC_ERROR;
998: END IF;
999:
1000: END IF; -- IF l_batch_status <> 4 then
1001:
1001:
1002: END IF;
1003: END IF;
1004: -- Standard Check of p_commit.
1005: IF FND_API.to_boolean(p_commit) THEN
1006: COMMIT WORK;
1007: END IF;
1008:
1009: -- Set return Parameters
1019: --dbms_output.put_line('The end');
1020:
1021:
1022: EXCEPTION
1023: WHEN FND_API.G_EXC_ERROR THEN
1024: ROLLBACK TO CREATE_SAMPLES;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1027: , p_count => x_msg_count
1021:
1022: EXCEPTION
1023: WHEN FND_API.G_EXC_ERROR THEN
1024: ROLLBACK TO CREATE_SAMPLES;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1027: , p_count => x_msg_count
1028: , p_data => x_msg_data
1029: );
1022: EXCEPTION
1023: WHEN FND_API.G_EXC_ERROR THEN
1024: ROLLBACK TO CREATE_SAMPLES;
1025: x_return_status := FND_API.G_RET_STS_ERROR;
1026: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1027: , p_count => x_msg_count
1028: , p_data => x_msg_data
1029: );
1030:
1027: , p_count => x_msg_count
1028: , p_data => x_msg_data
1029: );
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: ROLLBACK TO CREATE_SAMPLES;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1035: , p_count => x_msg_count
1029: );
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: ROLLBACK TO CREATE_SAMPLES;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1035: , p_count => x_msg_count
1036: , p_data => x_msg_data
1037: );
1030:
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: ROLLBACK TO CREATE_SAMPLES;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1035: , p_count => x_msg_count
1036: , p_data => x_msg_data
1037: );
1038:
1038:
1039:
1040:
1041: WHEN OTHERS THEN
1042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1043: ROLLBACK TO CREATE_SAMPLES;
1044: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1045: , l_api_name
1046: );
1044: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1045: , l_api_name
1046: );
1047:
1048: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1049: , p_count => x_msg_count
1050: , p_data => x_msg_data
1051: );
1052:
1301: -- end Bug #3401377 : added get spec for location, resource and stability samples
1302: ELSE
1303: GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID',
1304: 'l_source', p_samples_rec.source);
1305: RAISE FND_API.G_EXC_ERROR;
1306: END IF;
1307:
1308: RETURN FALSE;
1309:
1308: RETURN FALSE;
1309:
1310: EXCEPTION
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: RETURN FALSE;
1314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1315: RETURN FALSE;
1316: WHEN OTHERS THEN
1310: EXCEPTION
1311:
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: RETURN FALSE;
1314: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1315: RETURN FALSE;
1316: WHEN OTHERS THEN
1317: RETURN FALSE;
1318:
1334: l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_SAMPLES';
1335: l_api_version CONSTANT NUMBER := 3.0;
1336: l_msg_count NUMBER :=0;
1337: l_msg_data VARCHAR2(2000);
1338: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1339: l_qc_samples_out_rec GMD_SAMPLES%ROWTYPE;
1340: l_qc_samples_rec GMD_SAMPLES%ROWTYPE;
1341: l_rowid VARCHAR2(10);
1342: l_test_type VARCHAR2(10);
1351: SAVEPOINT DELETE_SAMPLES;
1352:
1353: -- Standard call to check for call compatibility.
1354:
1355: IF NOT FND_API.Compatible_API_CALL
1356: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1357: THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1354:
1355: IF NOT FND_API.Compatible_API_CALL
1356: (l_api_version , p_api_version , l_api_name , G_PKG_NAME)
1357: THEN
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360:
1361: -- Initialize message list if p_int_msg_list is set TRUE.
1362: IF FND_API.to_boolean(p_init_msg_list)
1358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1359: END IF;
1360:
1361: -- Initialize message list if p_int_msg_list is set TRUE.
1362: IF FND_API.to_boolean(p_init_msg_list)
1363: THEN
1364: FND_MSG_PUB.Initialize;
1365: END IF;
1366:
1365: END IF;
1366:
1367: -- Initialize API return Parameters
1368:
1369: l_return_status := FND_API.G_RET_STS_SUCCESS;
1370:
1371: -- Validate User Name Parameter
1372:
1373: GMA_GLOBAL_GRP.Get_Who ( p_user_name => p_user_name
1376: IF NVL(l_user_id, -1) < 0
1377: THEN
1378: GMD_API_PUB.Log_Message('GMD_INVALID_USER_NAME',
1379: 'l_user_name', p_user_name);
1380: RAISE FND_API.G_EXC_ERROR;
1381: END IF;
1382:
1383: -- Check Required Fields Present
1384:
1389: -- GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
1390: /* GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
1391: 'SAMPLE NO', ' IS NULL');*/
1392: GMD_API_PUB.Log_Message('GMD_SAMPLE_NUM_NULL');
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396: IF ( p_qc_samples_rec.organization_id is NULL) THEN
1397: GMD_API_PUB.Log_Message('GMD_SAMPLE_ORGN_CODE_REQD');
1394: END IF;
1395:
1396: IF ( p_qc_samples_rec.organization_id is NULL) THEN
1397: GMD_API_PUB.Log_Message('GMD_SAMPLE_ORGN_CODE_REQD');
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1401: END IF; -- Key Sample values Present
1402:
1406: IF NOT GMD_SAMPLES_PVT.fetch_row (
1407: p_samples => p_qc_samples_rec,
1408: x_samples => l_qc_samples_out_rec) THEN
1409: -- dbms_output.put_line('Sample Record Not Found');
1410: RAISE FND_API.G_EXC_ERROR;
1411: END IF;
1412:
1413: -- Validate that the Sample Header is Not Already Marked For Purge
1414:
1416: GMD_API_PUB.Log_Message('GMD_RECORD_DELETE_MARKED',
1417: 'l_table_name', 'GMD_SAMPLES',
1418: 'l_column_name', 'SAMPLE_ID',
1419: 'l_key_value', l_qc_samples_out_rec.sample_id);
1420: RAISE FND_API.G_EXC_ERROR;
1421: END IF;
1422:
1423:
1424: -- Mark this record for Purge, this routine will also lock the row.
1433: 'l_table_name', 'GMD_SAMPLES',
1434: 'l_column_name','SAMPLE_ID',
1435: 'l_key_value', l_qc_samples_out_rec.sample_id);
1436:
1437: RAISE FND_API.G_EXC_ERROR;
1438:
1439: END IF;
1440:
1441: -- If the sample dispostion is not Retain or Cancel
1450: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1451: 'l_table_name', 'GMD_SAMPLING_EVENTS',
1452: 'l_column_name','SAMPLING_EVENT_ID',
1453: 'l_key_value', l_qc_samples_out_rec.sampling_event_id);
1454: RAISE FND_API.G_EXC_ERROR;
1455: ELSE
1456:
1457: -- Update the sampling events Table
1458: UPDATE GMD_SAMPLING_EVENTS
1465:
1466: END IF; -- Sample Disposition Not Retain OR Cancel
1467:
1468: -- Standard Check of p_commit.
1469: IF FND_API.to_boolean(p_commit)
1470: THEN
1471: COMMIT WORK;
1472: END IF;
1473:
1474:
1475: x_return_status := l_return_status;
1476:
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_ERROR THEN
1479: ROLLBACK TO DELETE_SAMPLES;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1482: , p_count => x_msg_count
1476:
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_ERROR THEN
1479: ROLLBACK TO DELETE_SAMPLES;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1482: , p_count => x_msg_count
1483: , p_data => x_msg_data
1484: );
1477: EXCEPTION
1478: WHEN FND_API.G_EXC_ERROR THEN
1479: ROLLBACK TO DELETE_SAMPLES;
1480: x_return_status := FND_API.G_RET_STS_ERROR;
1481: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1482: , p_count => x_msg_count
1483: , p_data => x_msg_data
1484: );
1485:
1482: , p_count => x_msg_count
1483: , p_data => x_msg_data
1484: );
1485:
1486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1487: ROLLBACK TO DELETE_SAMPLES;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1489: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1490: , p_count => x_msg_count
1484: );
1485:
1486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1487: ROLLBACK TO DELETE_SAMPLES;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1489: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1490: , p_count => x_msg_count
1491: , p_data => x_msg_data
1492: );
1485:
1486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1487: ROLLBACK TO DELETE_SAMPLES;
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1489: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1490: , p_count => x_msg_count
1491: , p_data => x_msg_data
1492: );
1493:
1493:
1494:
1495:
1496: WHEN OTHERS THEN
1497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1498: ROLLBACK TO DELETE_SAMPLES;
1499: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1500: , l_api_name
1501: );
1499: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1500: , l_api_name
1501: );
1502:
1503: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1504: , p_count => x_msg_count
1505: , p_data => x_msg_data
1506: );
1507:
1583: BEGIN
1584:
1585: -- Assign API local Variables;
1586: l_sample_rec := p_sample_rec;
1587: l_return_status := FND_API.G_RET_STS_SUCCESS;
1588:
1589: -- We should only be validating W,I,C,S source type which
1590: -- all reqire the ite to exist.
1591:
1590: -- all reqire the ite to exist.
1591:
1592: IF (l_sample_rec.inventory_item_id IS NULL) THEN
1593: GMD_API_PUB.Log_Message('GMD_SPEC_ITEM_REQD');
1594: RAISE FND_API.G_EXC_ERROR;
1595: ELSE
1596: -- Validate that the item is valid.
1597: -- Bug 4165704: validation is now done with call to get_item_values
1598: -- OPEN c_item_controls;
1599: -- FETCH c_item_controls INTO l_status_ctl, l_lot_ctl , l_sublot_ctl, l_item_loct_ctl;
1600: -- IF (c_item_controls%NOTFOUND) THEN
1601: -- CLOSE c_item_controls;
1602: -- GMD_API_PUB.Log_Message('GMD_SPEC_ITEM_NOT_FOUND');
1603: -- RAISE FND_API.G_EXC_ERROR;
1604: -- END IF;
1605: -- CLOSE c_item_controls;
1606:
1607: l_sample_display.organization_id := p_sample_rec.organization_id;
1611:
1612: -- test for whether an item was found
1613: IF l_sample_display.item_number IS NULL THEN
1614: GMD_API_PUB.Log_Message('GMD_SPEC_ITEM_NOT_FOUND');
1615: RAISE FND_API.G_EXC_ERROR;
1616:
1617: ELSE
1618: l_lot_ctl := l_sample_display.lot_control_code ;
1619: G_LOT_CTL := l_sample_display.lot_control_code ; -- 528854
1633: /* IF ((l_sample_rec.lot_number IS NULL)
1634: AND ((l_sample_rec.parent_lot_number IS NULL) AND (l_sample_display.child_lot_flag = 'Y'))) THEN
1635: GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
1636: 'WHAT', 'lot_number');
1637: RAISE FND_API.G_EXC_ERROR;
1638:
1639: END IF; */
1640:
1641: -- Bug 4165704: Logic changed for new parent lot/lot instead of lot/sublot
1644: OR (l_sample_rec.parent_lot_number IS NOT NULL)) THEN
1645:
1646: IF ( l_child_lot_flag = 'N') AND ( l_sample_rec.parent_lot_number IS NOT NULL) THEN
1647: GMD_API_PUB.Log_Message('GMD_QM_PARENT_LOT_NULL');
1648: RAISE FND_API.G_EXC_ERROR;
1649: END IF; -- If item is not child lot controlled parent lot shouldn't exist.
1650:
1651:
1652: OPEN c_item_lot(l_child_lot_flag); --srakrish bug 5687499: Passing the child lot flags to the cursor.
1654: IF (c_item_lot%NOTFOUND) THEN
1655: CLOSE c_item_lot;
1656: GMD_API_PUB.Log_Message('GMD_ITEM_LOT_NOT_FOUND',
1657: 'LOT_NUMBER', l_sample_rec.lot_number);
1658: RAISE FND_API.G_EXC_ERROR;
1659: END IF;
1660: CLOSE c_item_lot;
1661:
1662:
1668: --IF (c_item_sublot%NOTFOUND) THEN
1669: --CLOSE c_item_sublot;
1670: --GMD_API_PUB.Log_Message('GMD_ITEM_SUBLOT_NOT_FOUND',
1671: -- 'SUBLOT_NO', l_sample_rec.sublot_no);
1672: --RAISE FND_API.G_EXC_ERROR;
1673: --END IF;
1674: --CLOSE c_item_sublot;
1675: --l_sample_rec.lot_id := l_lot_id;
1676: --END IF; -- validating lot/sublot
1677: --END IF; -- if item is lot/sublot controlled.
1678: -- 8276017 - move the below check to CREATE_SAMPLE as we needed to check lot optional on svr - SO comment out below 3 lines
1679: --ELSIF ( l_child_lot_flag = 'N') THEN --srakrish bug 5687499: Included the else part to check for the lot when the item is not child lot controlled. Lot is a required field.
1680: -- GMD_API_PUB.Log_Message('GMD_QM_LOT_REQUIRED');
1681: -- RAISE FND_API.G_EXC_ERROR;
1682: END IF; -- If item is lot controlled an lot_id specified.
1683: END IF; --lot control = 2
1684:
1685:
1688:
1689: -- Bug 4165704: added grade control check here
1690: IF (l_sample_display.grade_control_flag = 'N' AND p_grade is NOT NULL) THEN
1691: GMD_API_PUB.Log_Message('GMD_GRADE_MUST_NULL');
1692: RAISE FND_API.G_EXC_ERROR;
1693: END IF;
1694:
1695: -- Bug 5283854 : added revision control check here
1696: IF l_sample_display.Revision_qty_control_code = 2 then
1695: -- Bug 5283854 : added revision control check here
1696: IF l_sample_display.Revision_qty_control_code = 2 then
1697: IF (l_sample_rec.revision IS NULL) THEN
1698: GMD_API_PUB.Log_Message('GMD_API_REVISION_CTRL');
1699: RAISE FND_API.G_EXC_ERROR;
1700:
1701: END IF;
1702:
1703: END IF;
1708: x_return_status := l_return_status;
1709:
1710: EXCEPTION
1711:
1712: WHEN FND_API.G_EXC_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: WHEN OTHERS THEN
1709:
1710: EXCEPTION
1711:
1712: WHEN FND_API.G_EXC_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: WHEN OTHERS THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1710: EXCEPTION
1711:
1712: WHEN FND_API.G_EXC_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: WHEN OTHERS THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718:
1711:
1712: WHEN FND_API.G_EXC_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: WHEN OTHERS THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718:
1719: END VALIDATE_ITEM_CONTROLS;
1713: x_return_status := FND_API.G_RET_STS_ERROR ;
1714: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1716: WHEN OTHERS THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1718:
1719: END VALIDATE_ITEM_CONTROLS;
1720:
1721:
1748:
1749: BEGIN
1750:
1751: -- Assign API local Variables;
1752: l_return_status := FND_API.G_RET_STS_SUCCESS;
1753:
1754: -- This Procedure Assumes that the whse and item have been validated.
1755:
1756:
1759: -- Validate the location
1760: IF (l_locator_control = 1) THEN
1761: IF (p_sample_rec.locator_id IS NOT NULL) THEN
1762: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
1763: RAISE FND_API.G_EXC_ERROR;
1764: END IF;
1765: ELSIF (l_locator_control > 1 ) THEN -- Item is location controlled.
1766: IF (p_sample_rec.locator_id IS NOT NULL) THEN
1767: -- Check that Location exist in MTL_ITEM_LOCATIONS
1770: IF (c_subinventory_loct%NOTFOUND) THEN
1771: -- CLOSE c_subinventory_loct;
1772: GMD_API_PUB.Log_Message('GMD_LOCT_NOT_FOUND',
1773: 'LOCATION', p_sample_rec.locator_id);
1774: -- RAISE FND_API.G_EXC_ERROR;
1775: END IF;
1776: CLOSE c_subinventory_loct;
1777: ELSE -- location CANNOT NULL
1778: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
1775: END IF;
1776: CLOSE c_subinventory_loct;
1777: ELSE -- location CANNOT NULL
1778: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
1779: RAISE FND_API.G_EXC_ERROR;
1780: END IF; -- location IS NOT NULL
1781: END IF; -- l_locator_control
1782:
1783:
1785: x_return_status := l_return_status;
1786:
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793: WHEN OTHERS THEN
1786:
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793: WHEN OTHERS THEN
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1787: EXCEPTION
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793: WHEN OTHERS THEN
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1795:
1788:
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793: WHEN OTHERS THEN
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1795:
1796: END VALIDATE_INV_SAMPLE;
1790: x_return_status := FND_API.G_RET_STS_ERROR ;
1791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1793: WHEN OTHERS THEN
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1795:
1796: END VALIDATE_INV_SAMPLE;
1797:
1798: PROCEDURE VALIDATE_WIP_SAMPLE
1925: BEGIN
1926:
1927:
1928: -- Assign API local Variables;
1929: l_return_status := FND_API.G_RET_STS_SUCCESS;
1930: l_sample_rec := p_sample_rec;
1931:
1932:
1933: -- For WIP sample the batch_id must be specified.
1932:
1933: -- For WIP sample the batch_id must be specified.
1934: IF (p_sample_rec.batch_id IS NULL ) THEN
1935: GMD_API_PUB.Log_Message('GMD_NO_WIP_PARAM');
1936: RAISE FND_API.G_EXC_ERROR;
1937: END IF;
1938:
1939: ----------------------------------------------
1940: -- Derive Values Using Batch_id
1952: IF (batch_no_formula%NOTFOUND) THEN
1953: CLOSE batch_no_formula;
1954: GMD_API_PUB.Log_Message('GMD_ORDER_NOT_FOUND');
1955: -- GMD_API_PUB.Log_Message('GMD_BATCH_NOT_FOUND');
1956: RAISE FND_API.G_EXC_ERROR;
1957: END IF;
1958: CLOSE batch_no_formula;
1959:
1960: ELSIF p_sample_rec.batch_id IS NOT NULL then
1966: l_sample_rec.routing_id;
1967: IF (c_batch%NOTFOUND) THEN
1968: CLOSE c_batch;
1969: GMD_API_PUB.Log_Message('GMD_BATCH_NOT_FOUND');
1970: RAISE FND_API.G_EXC_ERROR;
1971: END IF;
1972: CLOSE c_batch;
1973:
1974: END IF;
1986: FETCH c_formulaline_id INTO l_dummy;
1987: IF (c_formulaline_id%NOTFOUND) THEN
1988: CLOSE c_formulaline_id;
1989: GMD_API_PUB.Log_Message('GMD_FORMULA_LINE_NOT_FOUND');
1990: RAISE FND_API.G_EXC_ERROR;
1991: END IF;
1992: CLOSE c_formulaline_id;
1993: END IF;
1994:
1998: FETCH c_material_detail_id INTO l_dummy;
1999: IF (c_material_detail_id%NOTFOUND) THEN
2000: CLOSE c_material_detail_id;
2001: GMD_API_PUB.Log_Message('GMD_MATERIAL_DTL_NOT_FOUND');
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004: CLOSE c_material_detail_id;
2005: END IF;
2006:
2016: INTO l_sample_rec.step_no,l_sample_rec.oprn_id;
2017: IF (c_batchstep%NOTFOUND) THEN
2018: CLOSE c_batchstep;
2019: GMD_API_PUB.Log_Message('GMD_BATCH_STEP_NOT_FOUND');
2020: RAISE FND_API.G_EXC_ERROR;
2021: END IF;
2022: CLOSE c_batchstep;
2023:
2024: END IF;
2031: INTO l_dummy;
2032: IF (c_oprn%NOTFOUND) THEN
2033: CLOSE c_oprn;
2034: GMD_API_PUB.Log_Message('GMD_BATCH_STEP_NOT_FOUND');
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037: CLOSE c_oprn;
2038: END IF;
2039:
2043:
2044:
2045: EXCEPTION
2046:
2047: WHEN FND_API.G_EXC_ERROR THEN
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2051: WHEN OTHERS THEN
2044:
2045: EXCEPTION
2046:
2047: WHEN FND_API.G_EXC_ERROR THEN
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2051: WHEN OTHERS THEN
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2045: EXCEPTION
2046:
2047: WHEN FND_API.G_EXC_ERROR THEN
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2051: WHEN OTHERS THEN
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2053:
2046:
2047: WHEN FND_API.G_EXC_ERROR THEN
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2051: WHEN OTHERS THEN
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2053:
2054: END VALIDATE_WIP_SAMPLE;
2048: x_return_status := FND_API.G_RET_STS_ERROR ;
2049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2051: WHEN OTHERS THEN
2052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2053:
2054: END VALIDATE_WIP_SAMPLE;
2055:
2056: PROCEDURE VALIDATE_CUST_SAMPLE
2150: BEGIN
2151:
2152:
2153: -- Assign API local Variables;
2154: l_return_status := FND_API.G_RET_STS_SUCCESS;
2155:
2156: -- For A Customer Sample Source the Cust_id
2157: -- Must be Specified. This also validates the Org_id
2158:
2157: -- Must be Specified. This also validates the Org_id
2158:
2159: IF (p_sample_rec.cust_id IS NULL) THEN
2160: GMD_API_PUB.Log_Message('GMD_CUSTOMER_REQD');
2161: RAISE FND_API.G_EXC_ERROR;
2162: ELSE
2163: OPEN c_cust;
2164: FETCH c_cust
2165: INTO l_dummy;
2165: INTO l_dummy;
2166: IF (c_cust%NOTFOUND) THEN
2167: CLOSE c_cust;
2168: GMD_API_PUB.Log_Message('GMD_CUSTOMER_NOT_FOUND');
2169: RAISE FND_API.G_EXC_ERROR;
2170: END IF;
2171: CLOSE c_cust;
2172: END IF;
2173:
2179: INTO l_dummy;
2180: IF (c_ship_to%NOTFOUND) THEN
2181: CLOSE c_ship_to;
2182: GMD_API_PUB.Log_Message('GMD_SHIP_TO_NOT_FOUND');
2183: RAISE FND_API.G_EXC_ERROR;
2184: END IF;
2185: CLOSE c_ship_to;
2186: END IF;
2187:
2195: IF (c_order%NOTFOUND)
2196: THEN
2197: CLOSE c_order;
2198: GMD_API_PUB.Log_Message('GMD_ORDER_NOT_FOUND');
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201: CLOSE c_order;
2202: END IF;
2203:
2208: AND p_sample_rec.order_id IS NOT NULL) THEN
2209:
2210: GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2211: 'WHAT', 'the order_id must not be NULL');
2212: RAISE FND_API.G_EXC_ERROR;
2213: ELSE
2214:
2215: OPEN c_order_line;
2216: FETCH c_order_line
2217: INTO l_dummy;
2218: IF (c_order_line%NOTFOUND) THEN
2219: CLOSE c_order_line;
2220: GMD_API_PUB.Log_Message('GMD_ORDER_LINE_NOT_FOUND');
2221: RAISE FND_API.G_EXC_ERROR;
2222: END IF;
2223: CLOSE c_order_line;
2224: END IF; */
2225:
2227: IF (p_sample_rec.order_id IS NULL) THEN
2228: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2229: 'WHAT', 'the order_id must not be NULL');*/
2230: GMD_API_PUB.Log_Message('GMD_ORDER_ID_MUST_NOT_NULL');
2231: RAISE FND_API.G_EXC_ERROR;
2232: END IF;
2233:
2234: OPEN c_order_line;
2235: FETCH c_order_line
2237:
2238: IF (c_order_line%NOTFOUND) THEN
2239: CLOSE c_order_line;
2240: GMD_API_PUB.Log_Message('GMD_ORDER_LINE_NOT_FOUND');
2241: RAISE FND_API.G_EXC_ERROR;
2242: END IF;
2243: CLOSE c_order_line;
2244:
2245: END IF;
2249: x_return_status := l_return_status;
2250:
2251: EXCEPTION
2252:
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2257: WHEN OTHERS THEN
2250:
2251: EXCEPTION
2252:
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2257: WHEN OTHERS THEN
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2251: EXCEPTION
2252:
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2257: WHEN OTHERS THEN
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2259: END VALIDATE_CUST_SAMPLE;
2252:
2253: WHEN FND_API.G_EXC_ERROR THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2257: WHEN OTHERS THEN
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2259: END VALIDATE_CUST_SAMPLE;
2260:
2254: x_return_status := FND_API.G_RET_STS_ERROR ;
2255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2257: WHEN OTHERS THEN
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2259: END VALIDATE_CUST_SAMPLE;
2260:
2261:
2262:
2359: BEGIN
2360: --dbms_output.put_line('b4 validate supplier sample ');
2361:
2362: -- Assign API local Variables;
2363: l_return_status := FND_API.G_RET_STS_SUCCESS;
2364:
2365: -- supplier_id : This field is mandatory
2366:
2367: IF (p_sample_rec.supplier_id IS NULL)
2366:
2367: IF (p_sample_rec.supplier_id IS NULL)
2368: THEN
2369: GMD_API_PUB.Log_Message('GMD_SUPPLIER_REQD');
2370: RAISE FND_API.G_EXC_ERROR;
2371: ELSE
2372: OPEN c_supplier;
2373: FETCH c_supplier INTO l_dummy;
2374: IF (c_supplier%NOTFOUND)
2374: IF (c_supplier%NOTFOUND)
2375: THEN
2376: CLOSE c_supplier;
2377: GMD_API_PUB.Log_Message('GMD_SUPPLIER_NOT_FOUND');
2378: RAISE FND_API.G_EXC_ERROR;
2379: END IF;
2380: CLOSE c_supplier;
2381: END IF;
2382:
2394: FND_MESSAGE.SET_NAME('GMD','GMD_NOTFOUND');
2395: FND_MESSAGE.SET_TOKEN('WHAT', 'SUPPLIER_SITE_ID');
2396: FND_MESSAGE.SET_TOKEN('VALUE', p_sample_rec.supplier_site_id);
2397: FND_MSG_PUB.ADD;
2398: RAISE FND_API.G_EXC_ERROR;
2399: END IF;
2400: CLOSE c_supplier_site;
2401: END IF;
2402:
2411: THEN
2412: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2413: 'WHAT', 'supplier_site_id must not be NULL');*/
2414: GMD_API_PUB.Log_Message('GMD_SUPP_SITE_MUST_NOT_NULL');
2415: RAISE FND_API.G_EXC_ERROR;
2416: END IF;
2417:
2418: OPEN c_po;
2419: FETCH c_po INTO l_dummy;
2420: IF (c_po%NOTFOUND)
2421: THEN
2422: CLOSE c_po;
2423: GMD_API_PUB.Log_Message('GMD_PO_NOT_FOUND');
2424: RAISE FND_API.G_EXC_ERROR;
2425: END IF;
2426: CLOSE c_po;
2427: END IF;
2428:
2438: THEN
2439: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2440: 'WHAT', 'po_header_id must not be NULL');*/
2441: GMD_API_PUB.Log_Message('GMD_PO_HEADER_MUST_NOT_NULL');
2442: RAISE FND_API.G_EXC_ERROR;
2443: END IF;
2444:
2445: IF (p_sample_rec.supplier_site_id IS NULL)
2446: THEN
2446: THEN
2447: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2448: 'WHAT', 'supplier site must not be NULL');*/
2449: GMD_API_PUB.Log_Message('GMD_SUPP_SITE_MUST_NOT_NULL');
2450: RAISE FND_API.G_EXC_ERROR;
2451: END IF;
2452:
2453: OPEN c_po_line;
2454: FETCH c_po_line INTO l_dummy;
2455: IF (c_po_line%NOTFOUND)
2456: THEN
2457: CLOSE c_po_line;
2458: GMD_API_PUB.Log_Message('GMD_PO_LINE_NOT_FOUND');
2459: RAISE FND_API.G_EXC_ERROR;
2460: END IF;
2461: CLOSE c_po_line;
2462: END IF;
2463:
2473: THEN
2474: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2475: 'WHAT', 'po_header_id must not be NULL');*/
2476: GMD_API_PUB.Log_Message('GMD_PO_HEADER_MUST_NOT_NULL');
2477: RAISE FND_API.G_EXC_ERROR;
2478: END IF;
2479: IF (p_sample_rec.po_line_id IS NULL)
2480: THEN
2481: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2480: THEN
2481: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2482: 'WHAT', 'po_line_id must not be NULL');*/
2483: GMD_API_PUB.Log_Message('GMD_PO_LINE_MUST_NOT_NULL');
2484: RAISE FND_API.G_EXC_ERROR;
2485: END IF;
2486: END IF;
2487:
2488: IF (p_sample_rec.receipt_id IS NOT NULL AND p_sample_rec.receipt_line_id IS NULL)
2489: THEN
2490: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2491: 'WHAT', 'receipt_line_id must not be NULL');*/
2492: GMD_API_PUB.Log_Message('GMD_RECEIPT_LINE_MUST_NOT_NULL');
2493: RAISE FND_API.G_EXC_ERROR;
2494: END IF;
2495:
2496: IF (p_sample_rec.receipt_line_id IS NOT NULL AND p_sample_rec.receipt_id IS NULL)
2497: THEN
2497: THEN
2498: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2499: 'WHAT', 'receipt_id must not be NULL');*/
2500: GMD_API_PUB.Log_Message('GMD_RECEIPT_MUST_NOT_NULL');
2501: RAISE FND_API.G_EXC_ERROR;
2502: END IF;
2503:
2504: IF(p_sample_rec.receipt_id IS NOT NULL AND p_sample_rec.receipt_line_id IS NOT NULL)
2505: THEN
2508: IF (c_receipt_info%NOTFOUND)
2509: THEN
2510: CLOSE c_receipt_info;
2511: GMD_API_PUB.Log_Message('GMD_RECEIPT_NOT_FOUND');
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2514: CLOSE c_receipt_info;
2515: END IF;
2516:
2521:
2522:
2523: EXCEPTION
2524:
2525: WHEN FND_API.G_EXC_ERROR THEN
2526: x_return_status := FND_API.G_RET_STS_ERROR ;
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2529: WHEN OTHERS THEN
2522:
2523: EXCEPTION
2524:
2525: WHEN FND_API.G_EXC_ERROR THEN
2526: x_return_status := FND_API.G_RET_STS_ERROR ;
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2529: WHEN OTHERS THEN
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2523: EXCEPTION
2524:
2525: WHEN FND_API.G_EXC_ERROR THEN
2526: x_return_status := FND_API.G_RET_STS_ERROR ;
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2529: WHEN OTHERS THEN
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2531: END VALIDATE_SUPP_SAMPLE;
2524:
2525: WHEN FND_API.G_EXC_ERROR THEN
2526: x_return_status := FND_API.G_RET_STS_ERROR ;
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2529: WHEN OTHERS THEN
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2531: END VALIDATE_SUPP_SAMPLE;
2532:
2526: x_return_status := FND_API.G_RET_STS_ERROR ;
2527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2529: WHEN OTHERS THEN
2530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2531: END VALIDATE_SUPP_SAMPLE;
2532:
2533:
2534: -- Added for MPK Bug
2540:
2541: BEGIN
2542:
2543: -- Stability Study samples cannot be loaded through Create Private API
2544: x_return_status := FND_API.G_RET_STS_ERROR;
2545:
2546: END VALIDATE_STABILITY_SAMPLE;
2547:
2548:
2565: l_return_status VARCHAR2(1);
2566:
2567: BEGIN
2568: -- Assign API local Variables;
2569: l_return_status := FND_API.G_RET_STS_SUCCESS;
2570:
2571: IF ((p_sample_rec.inventory_item_id IS NOT NULL)
2572: OR (p_sample_rec.lot_number IS NOT NULL)) THEN
2573: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2572: OR (p_sample_rec.lot_number IS NOT NULL)) THEN
2573: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2574: 'Item and Lot', ' should not be specified for Monitor sample');*/
2575: GMD_API_PUB.Log_Message('GMD_ITEM_LOT_MONITOR_SAMPLE');
2576: RAISE FND_API.G_EXC_ERROR;
2577: END IF; -- test item sources
2578:
2579: IF ((p_sample_rec.sample_qty IS NOT NULL)
2580: OR (p_sample_rec.sample_qty_uom IS NOT NULL)) THEN
2580: OR (p_sample_rec.sample_qty_uom IS NOT NULL)) THEN
2581: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2582: 'Quantity and UOM', ' should not be specified for Monitor sample');*/
2583: GMD_API_PUB.Log_Message('GMD_QTY_UOM_MONITOR_SAMPLE');
2584: RAISE FND_API.G_EXC_ERROR;
2585: END IF; -- test item sources
2586:
2587: IF p_sample_rec.resources IS NULL THEN
2588: GMD_API_PUB.Log_Message('GMD_QC_RESOURCE_REQD');
2585: END IF; -- test item sources
2586:
2587: IF p_sample_rec.resources IS NULL THEN
2588: GMD_API_PUB.Log_Message('GMD_QC_RESOURCE_REQD');
2589: RAISE FND_API.G_EXC_ERROR;
2590: END IF; -- test item sources
2591:
2592: -- validate resource
2593: -- start of bug# 3452384
2598: THEN
2599: CLOSE c_resource;
2600: GMD_API_PUB.Log_Message('GMD_RESOURCE_NOT_FOUND',
2601: 'RESOURCE', p_sample_rec.resources);
2602: RAISE FND_API.G_EXC_ERROR;
2603: END IF;
2604: CLOSE c_resource;
2605:
2606: -- end of bug 3452384
2609: x_return_status := l_return_status;
2610:
2611: EXCEPTION
2612:
2613: WHEN FND_API.G_EXC_ERROR THEN
2614: x_return_status := FND_API.G_RET_STS_ERROR ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: WHEN OTHERS THEN
2610:
2611: EXCEPTION
2612:
2613: WHEN FND_API.G_EXC_ERROR THEN
2614: x_return_status := FND_API.G_RET_STS_ERROR ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: WHEN OTHERS THEN
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2611: EXCEPTION
2612:
2613: WHEN FND_API.G_EXC_ERROR THEN
2614: x_return_status := FND_API.G_RET_STS_ERROR ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: WHEN OTHERS THEN
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2619:
2612:
2613: WHEN FND_API.G_EXC_ERROR THEN
2614: x_return_status := FND_API.G_RET_STS_ERROR ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: WHEN OTHERS THEN
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2619:
2620: END VALIDATE_RESOURCE_SAMPLE;
2614: x_return_status := FND_API.G_RET_STS_ERROR ;
2615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: WHEN OTHERS THEN
2618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2619:
2620: END VALIDATE_RESOURCE_SAMPLE;
2621:
2622:
2645:
2646:
2647: BEGIN
2648: -- Assign API local Variables;
2649: l_return_status := FND_API.G_RET_STS_SUCCESS;
2650:
2651: IF ((p_sample_rec.inventory_item_id IS NOT NULL)
2652: OR (p_sample_rec.lot_number IS NOT NULL)) THEN
2653: GMD_API_PUB.Log_Message('GMD_ITEM_LOT_MONITOR_SAMPLE');
2650:
2651: IF ((p_sample_rec.inventory_item_id IS NOT NULL)
2652: OR (p_sample_rec.lot_number IS NOT NULL)) THEN
2653: GMD_API_PUB.Log_Message('GMD_ITEM_LOT_MONITOR_SAMPLE');
2654: RAISE FND_API.G_EXC_ERROR;
2655: END IF; -- test item sources
2656:
2657: IF ((p_sample_rec.sample_qty IS NOT NULL)
2658: OR (p_sample_rec.sample_qty_uom IS NOT NULL)) THEN
2656:
2657: IF ((p_sample_rec.sample_qty IS NOT NULL)
2658: OR (p_sample_rec.sample_qty_uom IS NOT NULL)) THEN
2659: GMD_API_PUB.Log_Message('GMD_QTY_UOM_MONITOR_SAMPLE');
2660: RAISE FND_API.G_EXC_ERROR;
2661: END IF; -- test item sources
2662:
2663: IF p_sample_rec.subinventory IS NULL THEN
2664: GMD_API_PUB.Log_Message('GMD_QC_WHSE_REQD');
2661: END IF; -- test item sources
2662:
2663: IF p_sample_rec.subinventory IS NULL THEN
2664: GMD_API_PUB.Log_Message('GMD_QC_WHSE_REQD');
2665: RAISE FND_API.G_EXC_ERROR;
2666: END IF; -- test item sources
2667:
2668: -- This Procedure Assumes that the whse and item have been validated.
2669:
2694:
2695: IF (p_locator_control = 1) THEN
2696: IF (p_sample_rec.locator_id IS NOT NULL) THEN
2697: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
2698: RAISE FND_API.G_EXC_ERROR;
2699: END IF;
2700: ELSE
2701: -- Item is location controlled.
2702: IF (p_sample_rec.locator_id IS NULL) THEN
2701: -- Item is location controlled.
2702: IF (p_sample_rec.locator_id IS NULL) THEN
2703: -- Location cannot be NULL in this case.
2704: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
2705: RAISE FND_API.G_EXC_ERROR;
2706: ELSE
2707: -- Check that Location exist in MTL_ITEM_LOCATIONS
2708: OPEN c_subinventory_loct;
2709: FETCH c_subinventory_loct INTO l_dummy;
2710: IF (c_subinventory_loct%NOTFOUND) THEN
2711: --CLOSE c_subinventory_loct;
2712: GMD_API_PUB.Log_Message('GMD_LOCT_NOT_FOUND',
2713: 'LOCATION', p_sample_rec.locator_id);
2714: --RAISE FND_API.G_EXC_ERROR;
2715: END IF;
2716: CLOSE c_subinventory_loct;
2717: END IF; -- location IS NOT NULL
2718: END IF; -- p_locator_control = 1
2722: x_return_status := l_return_status;
2723:
2724: EXCEPTION
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_return_status := FND_API.G_RET_STS_ERROR ;
2728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2730: WHEN OTHERS THEN
2723:
2724: EXCEPTION
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_return_status := FND_API.G_RET_STS_ERROR ;
2728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2730: WHEN OTHERS THEN
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2724: EXCEPTION
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_return_status := FND_API.G_RET_STS_ERROR ;
2728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2730: WHEN OTHERS THEN
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732:
2725:
2726: WHEN FND_API.G_EXC_ERROR THEN
2727: x_return_status := FND_API.G_RET_STS_ERROR ;
2728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2730: WHEN OTHERS THEN
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732:
2733: END VALIDATE_LOCATION_SAMPLE;
2727: x_return_status := FND_API.G_RET_STS_ERROR ;
2728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2730: WHEN OTHERS THEN
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732:
2733: END VALIDATE_LOCATION_SAMPLE;
2734:
2735:
2855:
2856: BEGIN
2857:
2858: -- Initialize API return status to success
2859: l_return_status := FND_API.G_RET_STS_SUCCESS;
2860: l_sample_rec := p_sample_rec;
2861:
2862: ----------------------------------
2863: -- Validate Sample Required Fields
2865:
2866: -- Orgn Code
2867: IF (p_sample_rec.organization_id IS NULL) THEN
2868: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_REQD');
2869: RAISE FND_API.G_EXC_ERROR;
2870: ELSE
2871: -- Check that orgn Code exist in SY_ORGN_MST
2872: OPEN c_orgn(p_sample_rec.organization_id);
2873: FETCH c_orgn INTO l_dummy;
2874: IF c_orgn%NOTFOUND THEN
2875: CLOSE c_orgn;
2876: GMD_API_PUB.Log_Message('GMD_ORGN_CODE_NOT_FOUND',
2877: 'ORGN', p_sample_rec.organization_id);
2878: RAISE FND_API.G_EXC_ERROR;
2879: END IF;
2880: CLOSE c_orgn;
2881: END IF;
2882:
2883: -- Sampler Id Validation
2884:
2885: IF (p_sample_rec.sampler_id IS NULL ) THEN
2886: GMD_API_PUB.Log_Message('GMD_SAMPLER_ID_REQD');
2887: RAISE FND_API.G_EXC_ERROR;
2888: ELSE
2889: -- Check that orgn Code exist in mtl_parameters
2890: OPEN c_sampler(p_sample_rec.organization_id, p_sample_rec.sampler_id);
2891: FETCH c_sampler INTO l_dummy;
2891: FETCH c_sampler INTO l_dummy;
2892: IF c_sampler%NOTFOUND THEN
2893: GMD_API_PUB.Log_Message('GMD_SAMPLER_ID_NOTFOUND',
2894: 'SAMPLER', p_sample_rec.sampler_id);
2895: RAISE FND_API.G_EXC_ERROR;
2896: CLOSE c_sampler;
2897: END IF;
2898: CLOSE c_sampler;
2899: END IF;
2900:
2901: -- Sample No
2902: IF (ltrim(rtrim(p_sample_rec.sample_no)) IS NULL) THEN
2903: GMD_API_PUB.Log_Message('GMD_SAMPLE_NUMBER_REQD');
2904: RAISE FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2907:
2908: -- QC Lab Orgn Code
2907:
2908: -- QC Lab Orgn Code
2909: IF (p_sample_rec.lab_organization_id IS NULL) THEN
2910: GMD_API_PUB.Log_Message('GMD_QC_LAB_ORGN_CODE_REQD');
2911: RAISE FND_API.G_EXC_ERROR;
2912: ELSE
2913: -- Check that QC Lab Orgn Code exist in SY_ORGN_MST
2914: OPEN c_lab_orgn(p_sample_rec.lab_organization_id);
2915: FETCH c_lab_orgn INTO l_dummy;
2916: IF c_lab_orgn%NOTFOUND THEN
2917: CLOSE c_lab_orgn;
2918: GMD_API_PUB.Log_Message('GMD_QC_LAB_ORGN_CODE_NOT_FOUND',
2919: 'ORGN', p_sample_rec.lab_organization_id);
2920: RAISE FND_API.G_EXC_ERROR;
2921: END IF;
2922: CLOSE c_lab_orgn;
2923: END IF;
2924:
2927: IF ((p_sample_rec.sample_disposition IS NULL) OR
2928: (NOT (p_sample_rec.sample_disposition in ('0RT', '0PL', '1P')))) THEN
2929: -- Now, what is the disposition of this sample?
2930: GMD_API_PUB.Log_Message('GMD_SAMPLE_DISPOSITION_INVALID');
2931: RAISE FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2934: -- Sample Source
2935: -- Bug 3401377: added Stability Study and Monitor samples to MPK
2937: (NOT (p_sample_rec.source in ('I', 'W', 'C', 'S', 'T','L','R')))
2938: ) THEN
2939: -- Now, what is the source of this sample? Where did it come from?
2940: GMD_API_PUB.Log_Message('GMD_SAMPLE_SOURCE_INVALID');
2941: RAISE FND_API.G_EXC_ERROR;
2942:
2943: ELSE -- VAlidate that sample type is Correct
2944:
2945: IF ( p_sample_rec.sample_type is NULL ) THEN
2945: IF ( p_sample_rec.sample_type is NULL ) THEN
2946: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2947: 'WHAT', 'SAMPLE TYPE must be Specified');*/
2948: GMD_API_PUB.Log_Message('GMD_SAMPLE_TYPE');
2949: RAISE FND_API.G_EXC_ERROR;
2950:
2951: --ELSIF ( p_sample_rec.sample_type <> 'I') THEN
2952: ELSIF ( p_sample_rec.sample_type NOT IN ('M' , 'I')) THEN
2953:
2953:
2954: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2955: 'WHAT', 'Only sample_type = M or I are Suppported');*/
2956: GMD_API_PUB.Log_Message('GMD_SAMPLE_TYPE_SUPPORTED');
2957: RAISE FND_API.G_EXC_ERROR;
2958:
2959: ELSIF ( p_sample_rec.sample_type = 'I')
2960: AND ( NOT (p_sample_rec.source in ('I', 'W', 'C', 'S', 'T'))) THEN
2961: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2960: AND ( NOT (p_sample_rec.source in ('I', 'W', 'C', 'S', 'T'))) THEN
2961: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2962: 'WHAT', 'SAMPLE TYPE Inventory does not match source');*/
2963: GMD_API_PUB.Log_Message('GMD_SAMPLE_TYPE_INVENTORY');
2964: RAISE FND_API.G_EXC_ERROR;
2965:
2966: ELSIF ( p_sample_rec.sample_type = 'M')
2967: AND ( NOT (p_sample_rec.source in ('R', 'L'))) THEN
2968: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2967: AND ( NOT (p_sample_rec.source in ('R', 'L'))) THEN
2968: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
2969: 'WHAT', 'SAMPLE TYPE Monitor does not match source');*/
2970: GMD_API_PUB.Log_Message('GMD_SAMPLE_TYPE_MONITOR');
2971: RAISE FND_API.G_EXC_ERROR;
2972: END IF;
2973:
2974: END IF;
2975:
2979: OPEN uom;
2980: FETCH uom INTO l_uom;
2981: IF (uom%NOTFOUND) THEN
2982: GMD_API_PUB.Log_Message('GMD_SAMPLE_UOM_REQD');
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985: CLOSE uom;
2986:
2987: IF p_sample_rec.sample_qty_uom <> l_uom THEN
2997: from_name => NULL,
2998: to_name => NULL);
2999: IF (l_test_qty < 0 ) THEN
3000: GMD_API_PUB.Log_Message('FM_UOMMUSTCONVERT');
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3003:
3004: END IF; -- IF p_sample_rec.sample_qty_uom <> l_uom THEN
3005:
3013: -- Bug 3401377: Monitor samples do not have a qty or uom
3014: IF ((p_sample_rec.sample_qty IS NULL)
3015: AND (p_sample_rec.sample_type = 'I' )) THEN
3016: GMD_API_PUB.Log_Message('GMD_SAMPLE_QTY_REQD');
3017: RAISE FND_API.G_EXC_ERROR;
3018: END IF;
3019:
3020: -- Sample UOM
3021: -- Bug 3401377: Monitor samples do not have a qty or uom
3021: -- Bug 3401377: Monitor samples do not have a qty or uom
3022: IF ( (p_sample_rec.sample_qty_uom IS NULL)
3023: AND (p_sample_rec.sample_type = 'I' )) THEN
3024: GMD_API_PUB.Log_Message('GMD_SAMPLE_UOM_REQD');
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3027:
3028: -- Validate Whse_code if passed.
3029:
3036: IF (c_subinventory%NOTFOUND) THEN
3037: CLOSE c_subinventory;
3038: GMD_API_PUB.Log_Message('GMD_WHSE_NOT_FOUND',
3039: 'WHSE_CODE', p_sample_rec.subinventory);
3040: RAISE FND_API.G_EXC_ERROR;
3041: END IF;
3042: CLOSE c_subinventory;
3043:
3044: -- Bug 4165704: taken out because it was not needed
3047: --FETCH c_orgn_whse INTO l_dummy;
3048: --IF (c_orgn_whse%NOTFOUND) THEN
3049: -- CLOSE c_orgn_whse;
3050: -- GMD_API_PUB.Log_Message('GMD_WHSE_AND_ORGN_CODE');
3051: -- RAISE FND_API.G_EXC_ERROR;
3052: -- END IF;
3053: -- CLOSE c_orgn_whse;
3054: END IF;
3055:
3057:
3058: -- 5283854 if subinv is not specified and locator is then error out
3059: IF p_sample_rec.subinventory IS NULL and p_sample_rec.locator_id is NOT NULL THEN
3060: GMD_API_PUB.Log_Message('GMD_API_LOCATOR_NOT_REQD');
3061: RAISE FND_API.G_EXC_ERROR;
3062: END IF;
3063: -- end 5283854
3064:
3065: -- Bug 4165704: used common routine to determine location control
3077: IF ( p_sample_rec.locator_id is NOT NULL) THEN
3078: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
3079: 'WHAT', 'Location should be NULL');*/
3080: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
3081: RAISE FND_API.G_EXC_ERROR;
3082: END IF;
3083:
3084: ELSIF ( l_locator_control > 1) THEN -- Validate that location exists in whse
3085: -- Bug 4165704: updated for locator and subinventory
3086:
3087: -- 5283854 if subinv is specified and locator is NOT then error out
3088: IF p_sample_rec.subinventory IS NOT NULL and p_sample_rec.locator_id is NULL THEN
3089: GMD_API_PUB.Log_Message('GMD_API_SUBINV_REQD');
3090: RAISE FND_API.G_EXC_ERROR;
3091: END IF;
3092: -- end 5283854
3093:
3094: IF ( p_sample_rec.locator_id is NOT NULL) THEN -- location specified
3098: IF (c_subinventory_locator%NOTFOUND) THEN
3099: --CLOSE c_subinventory_locator;
3100: GMD_API_PUB.Log_Message('GMD_LOCT_NOT_FOUND',
3101: 'LOCATOR', p_sample_rec.locator_id);
3102: RAISE FND_API.G_EXC_ERROR; -- 5283854 rework - take out -- from this line
3103: END IF;
3104: CLOSE c_subinventory_locator;
3105: END IF;
3106:
3112:
3113: IF p_sample_rec.storage_organization_id is NULL and ( p_sample_rec.storage_subinventory IS NOT NULL or p_sample_rec.storage_locator_id is NOT NULL )
3114: then
3115: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
3116: RAISE FND_API.G_EXC_ERROR;
3117: END IF;
3118:
3119:
3120: IF p_sample_rec.storage_organization_id IS NOT NULL
3125:
3126: -- if subinv is not specified and locator is then error out
3127: IF p_sample_rec.storage_subinventory IS NULL and p_sample_rec.storage_locator_id is NOT NULL THEN
3128: GMD_API_PUB.Log_Message('GMD_API_LOCATOR_NOT_REQD');
3129: RAISE FND_API.G_EXC_ERROR;
3130: END IF;
3131:
3132:
3133: GMD_COMMON_GRP.item_is_locator_controlled (
3142: IF ( p_sample_rec.storage_locator_id is NOT NULL) THEN
3143: /*GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
3144: 'WHAT', 'Location should be NULL');*/
3145: GMD_API_PUB.Log_Message('GMD_LOCATION_MUST_NULL');
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148:
3149: ELSIF ( l_locator_control > 1) THEN -- Validate that locater exists in subinv
3150:
3151:
3152: -- if subinv is specified and locator is NOT then error out
3153: IF p_sample_rec.storage_subinventory IS NOT NULL and p_sample_rec.storage_locator_id is NULL THEN
3154: GMD_API_PUB.Log_Message('GMD_API_SUBINV_REQD');
3155: RAISE FND_API.G_EXC_ERROR;
3156: END IF;
3157:
3158: IF ( p_sample_rec.storage_locator_id is NOT NULL) THEN -- location specified
3159:
3161: FETCH c_storage_subinventory_locator INTO l_dummy;
3162: IF (c_storage_subinventory_locator%NOTFOUND) THEN
3163: GMD_API_PUB.Log_Message('GMD_LOCT_NOT_FOUND',
3164: 'LOCATOR', p_sample_rec.storage_locator_id);
3165: RAISE FND_API.G_EXC_ERROR;
3166: END IF;
3167: CLOSE c_storage_subinventory_locator;
3168: END IF;
3169:
3186: p_grade => p_grade,
3187: x_sample_rec => l_sample_rec,
3188: x_return_status => l_return_status);
3189:
3190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3191: -- Message is alrady logged by check_for_null procedure
3192: RAISE FND_API.G_EXC_ERROR;
3193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3194: -- Message is alrady logged by check_for_null procedure
3188: x_return_status => l_return_status);
3189:
3190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3191: -- Message is alrady logged by check_for_null procedure
3192: RAISE FND_API.G_EXC_ERROR;
3193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3194: -- Message is alrady logged by check_for_null procedure
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3189:
3190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3191: -- Message is alrady logged by check_for_null procedure
3192: RAISE FND_API.G_EXC_ERROR;
3193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3194: -- Message is alrady logged by check_for_null procedure
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197: END IF; -- bug 3401377
3191: -- Message is alrady logged by check_for_null procedure
3192: RAISE FND_API.G_EXC_ERROR;
3193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3194: -- Message is alrady logged by check_for_null procedure
3195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3196: END IF;
3197: END IF; -- bug 3401377
3198:
3199: --3431884
3213: p_sample_rec => l_sample_rec,
3214: p_locator_control => l_locator_control,
3215: x_return_status => l_return_status);
3216:
3217: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3218: -- Message is alrady logged by check_for_null procedure
3219: RAISE FND_API.G_EXC_ERROR;
3220: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3221: -- Message is alrady logged by check_for_null procedure
3215: x_return_status => l_return_status);
3216:
3217: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3218: -- Message is alrady logged by check_for_null procedure
3219: RAISE FND_API.G_EXC_ERROR;
3220: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3221: -- Message is alrady logged by check_for_null procedure
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3216:
3217: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3218: -- Message is alrady logged by check_for_null procedure
3219: RAISE FND_API.G_EXC_ERROR;
3220: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3221: -- Message is alrady logged by check_for_null procedure
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3224:
3218: -- Message is alrady logged by check_for_null procedure
3219: RAISE FND_API.G_EXC_ERROR;
3220: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3221: -- Message is alrady logged by check_for_null procedure
3222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3223: END IF;
3224:
3225:
3226: ELSIF ( p_sample_rec.source = 'W') THEN
3229: p_sample_rec => l_sample_rec,
3230: x_sample_rec => l_sample_out_rec,
3231: x_return_status => l_return_status);
3232:
3233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3234: -- Message is alrady logged by check_for_null procedure
3235: RAISE FND_API.G_EXC_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3237: -- Message is alrady logged by check_for_null procedure
3231: x_return_status => l_return_status);
3232:
3233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3234: -- Message is alrady logged by check_for_null procedure
3235: RAISE FND_API.G_EXC_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3237: -- Message is alrady logged by check_for_null procedure
3238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3239: END IF;
3232:
3233: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3234: -- Message is alrady logged by check_for_null procedure
3235: RAISE FND_API.G_EXC_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3237: -- Message is alrady logged by check_for_null procedure
3238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3239: END IF;
3240:
3234: -- Message is alrady logged by check_for_null procedure
3235: RAISE FND_API.G_EXC_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3237: -- Message is alrady logged by check_for_null procedure
3238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3239: END IF;
3240:
3241: l_sample_rec := l_sample_out_rec;
3242:
3245: Validate_cust_sample (
3246: p_sample_rec => l_sample_rec,
3247: x_return_status => l_return_status);
3248:
3249: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3250: -- Message is alrady logged by check_for_null procedure
3251: RAISE FND_API.G_EXC_ERROR;
3252: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3253: -- Message is alrady logged by check_for_null procedure
3247: x_return_status => l_return_status);
3248:
3249: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3250: -- Message is alrady logged by check_for_null procedure
3251: RAISE FND_API.G_EXC_ERROR;
3252: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3253: -- Message is alrady logged by check_for_null procedure
3254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3255: END IF;
3248:
3249: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3250: -- Message is alrady logged by check_for_null procedure
3251: RAISE FND_API.G_EXC_ERROR;
3252: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3253: -- Message is alrady logged by check_for_null procedure
3254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3255: END IF;
3256:
3250: -- Message is alrady logged by check_for_null procedure
3251: RAISE FND_API.G_EXC_ERROR;
3252: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3253: -- Message is alrady logged by check_for_null procedure
3254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3255: END IF;
3256:
3257: ELSIF ( p_sample_rec.source = 'S') THEN
3258: -- validate_supp_sample;
3262: Validate_supp_sample (
3263: p_sample_rec => l_sample_rec,
3264: x_return_status => l_return_status);
3265:
3266: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3267: -- Message is alrady logged by check_for_null procedure
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3270: -- Message is alrady logged by check_for_null procedure
3264: x_return_status => l_return_status);
3265:
3266: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3267: -- Message is alrady logged by check_for_null procedure
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3270: -- Message is alrady logged by check_for_null procedure
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: END IF;
3265:
3266: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3267: -- Message is alrady logged by check_for_null procedure
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3270: -- Message is alrady logged by check_for_null procedure
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: END IF;
3273:
3267: -- Message is alrady logged by check_for_null procedure
3268: RAISE FND_API.G_EXC_ERROR;
3269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3270: -- Message is alrady logged by check_for_null procedure
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: END IF;
3273:
3274: --dbms_output.put_line('after Call to validate supp samples');
3275:
3280: Validate_stability_sample (
3281: p_sample_rec => l_sample_rec,
3282: x_return_status => l_return_status);
3283:
3284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3285: RAISE FND_API.G_EXC_ERROR;
3286: END IF;
3287:
3288: ELSIF ( p_sample_rec.source = 'R') THEN
3281: p_sample_rec => l_sample_rec,
3282: x_return_status => l_return_status);
3283:
3284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3285: RAISE FND_API.G_EXC_ERROR;
3286: END IF;
3287:
3288: ELSIF ( p_sample_rec.source = 'R') THEN
3289: -- validate_resource_sample;
3291: Validate_resource_sample (
3292: p_sample_rec => l_sample_rec,
3293: x_return_status => l_return_status);
3294:
3295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3296: -- Message is alrady logged by check_for_null procedure
3297: RAISE FND_API.G_EXC_ERROR;
3298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: -- Message is alrady logged by check_for_null procedure
3293: x_return_status => l_return_status);
3294:
3295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3296: -- Message is alrady logged by check_for_null procedure
3297: RAISE FND_API.G_EXC_ERROR;
3298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: -- Message is alrady logged by check_for_null procedure
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3294:
3295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3296: -- Message is alrady logged by check_for_null procedure
3297: RAISE FND_API.G_EXC_ERROR;
3298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: -- Message is alrady logged by check_for_null procedure
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302:
3296: -- Message is alrady logged by check_for_null procedure
3297: RAISE FND_API.G_EXC_ERROR;
3298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3299: -- Message is alrady logged by check_for_null procedure
3300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3301: END IF;
3302:
3303: ELSIF ( p_sample_rec.source = 'L') THEN
3304: -- validate_location_sample;
3307: p_sample_rec => l_sample_rec,
3308: p_locator_control => l_locator_control,
3309: x_return_status => l_return_status);
3310:
3311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3312: -- Message is alrady logged by check_for_null procedure
3313: RAISE FND_API.G_EXC_ERROR;
3314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3315: -- Message is alrady logged by check_for_null procedure
3309: x_return_status => l_return_status);
3310:
3311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3312: -- Message is alrady logged by check_for_null procedure
3313: RAISE FND_API.G_EXC_ERROR;
3314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3315: -- Message is alrady logged by check_for_null procedure
3316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3317: END IF;
3310:
3311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3312: -- Message is alrady logged by check_for_null procedure
3313: RAISE FND_API.G_EXC_ERROR;
3314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3315: -- Message is alrady logged by check_for_null procedure
3316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3317: END IF;
3318:
3312: -- Message is alrady logged by check_for_null procedure
3313: RAISE FND_API.G_EXC_ERROR;
3314: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3315: -- Message is alrady logged by check_for_null procedure
3316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3317: END IF;
3318:
3319: END IF; -- Validation for Supplier Sample
3320:
3325: ELSIF (NOT GMD_QC_TESTS_GRP.validate_test_priority
3326: (p_test_priority => l_sample_rec.priority)
3327: ) THEN
3328: GMD_API_PUB.Log_Message('GMD_INVALID_TEST_PRIORITY');
3329: RAISE FND_API.G_EXC_ERROR;
3330: END IF;
3331:
3332: --dbms_output.put_line('after validate_test_priority');
3333:
3336: IF NVL(l_sample_rec.sample_inv_trans_ind ,'N') NOT IN ('N','Y') THEN
3337: GMD_API_PUB.Log_Message('GMD_WRONG_VALUE',
3338: 'WHAT', 'SAMPLE_INV_TRANS_IND');
3339:
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342:
3343:
3344:
3357:
3358: --dbms_output.put_line('after GMD_SAMPLES_GRP.validate_sample');
3359:
3360:
3361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3362: -- Message is alrady logged by check_for_null procedure
3363: RAISE FND_API.G_EXC_ERROR;
3364: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3365: -- Message is alrady logged by check_for_null procedure
3359:
3360:
3361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3362: -- Message is alrady logged by check_for_null procedure
3363: RAISE FND_API.G_EXC_ERROR;
3364: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3365: -- Message is alrady logged by check_for_null procedure
3366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3367: END IF;
3360:
3361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3362: -- Message is alrady logged by check_for_null procedure
3363: RAISE FND_API.G_EXC_ERROR;
3364: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3365: -- Message is alrady logged by check_for_null procedure
3366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3367: END IF;
3368:
3362: -- Message is alrady logged by check_for_null procedure
3363: RAISE FND_API.G_EXC_ERROR;
3364: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3365: -- Message is alrady logged by check_for_null procedure
3366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3367: END IF;
3368:
3369:
3370:
3374:
3375:
3376:
3377: EXCEPTION
3378: WHEN FND_API.G_EXC_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_ERROR ;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3382: WHEN OTHERS THEN
3375:
3376:
3377: EXCEPTION
3378: WHEN FND_API.G_EXC_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_ERROR ;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3382: WHEN OTHERS THEN
3383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3376:
3377: EXCEPTION
3378: WHEN FND_API.G_EXC_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_ERROR ;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3382: WHEN OTHERS THEN
3383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3384:
3377: EXCEPTION
3378: WHEN FND_API.G_EXC_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_ERROR ;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3382: WHEN OTHERS THEN
3383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3384:
3385: END VALIDATE_SAMPLE;
3379: x_return_status := FND_API.G_RET_STS_ERROR ;
3380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3382: WHEN OTHERS THEN
3383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3384:
3385: END VALIDATE_SAMPLE;
3386:
3387: END GMD_SAMPLES_PUB;