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

APPS.GMD_SAMPLES_PUB dependencies on GMD_SAMPLES

Line 1: PACKAGE BODY GMD_SAMPLES_PUB AS

1: PACKAGE BODY GMD_SAMPLES_PUB AS
2: /* $Header: GMDPSMPB.pls 120.20.12020000.3 2013/04/01 20:34:44 plowe ship $
3: *****************************************************************
4: * *
5: * Package GMD_SAMPLES_PUB *

Line 5: * Package GMD_SAMPLES_PUB *

1: PACKAGE BODY GMD_SAMPLES_PUB AS
2: /* $Header: GMDPSMPB.pls 120.20.12020000.3 2013/04/01 20:34:44 plowe ship $
3: *****************************************************************
4: * *
5: * Package GMD_SAMPLES_PUB *
6: * *
7: * Contents CREATE_SAMPLES *
8: * DELETE_SAMPLES *
9: * *

Line 77: G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_SAMPLES_PUB';

73: */
74:
75: -- Global variables
76:
77: G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_SAMPLES_PUB';
78:
79: -- 5283854
80: G_LOT_CTL VARCHAR2(1);
81: G_CHILD_LOT_FLAG VARCHAR2(1);

Line 153: , p_qc_samples_rec IN GMD_SAMPLES%ROWTYPE

149: ( p_api_version IN NUMBER
150: , p_init_msg_list IN VARCHAR2
151: , p_commit IN VARCHAR2
152: , p_validation_level IN NUMBER
153: , p_qc_samples_rec IN GMD_SAMPLES%ROWTYPE
154: , p_user_name IN VARCHAR2
155: , p_find_matching_spec IN VARCHAR2
156: , p_grade IN VARCHAR2 DEFAULT NULL --3431884
157: , p_lpn IN VARCHAR2 DEFAULT NULL -- 7027149

Line 159: , x_qc_samples_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE

155: , p_find_matching_spec IN VARCHAR2
156: , p_grade IN VARCHAR2 DEFAULT NULL --3431884
157: , p_lpn IN VARCHAR2 DEFAULT NULL -- 7027149
158: , p_create_new_sample_group IN VARCHAR2 -- 12846165
159: , x_qc_samples_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE
160: , x_sampling_events_rec OUT NOCOPY GMD_SAMPLING_EVENTS%ROWTYPE
161: , x_sample_spec_disp OUT NOCOPY GMD_SAMPLE_SPEC_DISP%ROWTYPE
162: , x_event_spec_disp_rec OUT NOCOPY GMD_EVENT_SPEC_DISP%ROWTYPE
163: , x_results_tab OUT NOCOPY GMD_API_PUB.gmd_results_tab

Line 175: l_samples_val_rec GMD_SAMPLES%ROWTYPE;

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;
179: l_event_spec_disp_rec GMD_EVENT_SPEC_DISP%ROWTYPE;

Line 176: l_qc_samples_rec GMD_SAMPLES%ROWTYPE;

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;
179: l_event_spec_disp_rec GMD_EVENT_SPEC_DISP%ROWTYPE;
180: l_sampling_events GMD_SAMPLING_EVENTS%ROWTYPE;

Line 177: l_qc_samples_out_rec GMD_SAMPLES%ROWTYPE;

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;
179: l_event_spec_disp_rec GMD_EVENT_SPEC_DISP%ROWTYPE;
180: l_sampling_events GMD_SAMPLING_EVENTS%ROWTYPE;
181: l_sampling_events_out GMD_SAMPLING_EVENTS%ROWTYPE;

Line 471: IF NOT GMD_SAMPLES_PUB.FIND_MATCHING_SPEC

467: -- to that sampling event else create a new event.
468:
469: --dbms_output.put_line('FIND MAtching Spec' );
470:
471: IF NOT GMD_SAMPLES_PUB.FIND_MATCHING_SPEC
472: ( p_samples_rec => l_qc_samples_rec,
473: p_grade => p_grade, -- 3431884
474: x_spec_id => l_spec_id,
475: x_spec_type => l_spec_type,

Line 526: IF GMD_SAMPLES_GRP.sampling_event_exist(

522: -- find sampling event with matching spec vr id.
523: -- BUT do not call this if api call wants to create new sampling event - bug 16523872
524:
525: IF nvl(p_create_new_sample_group,'N') <> 'Y' THEN -- 16523872
526: IF GMD_SAMPLES_GRP.sampling_event_exist(
527: p_sample => l_qc_samples_rec,
528: x_sampling_event_id => l_sampling_events.sampling_event_id,
529: p_spec_vr_id => l_spec_vr_id
530: ) THEN

Line 543: IF NOT GMD_SAMPLES_GRP.sampling_event_exist_wo_spec

539: --dbms_output.put_line('b4 sampling_event_exist_wo_spec');
540:
541: -- Try and find a sampling event without a spec
542: IF nvl(p_create_new_sample_group,'N') <> 'Y' THEN -- 16523872
543: IF NOT GMD_SAMPLES_GRP.sampling_event_exist_wo_spec
544: ( p_sample => l_qc_samples_rec,
545: x_sampling_event_id => l_sampling_events.sampling_event_id
546: ) THEN
547:

Line 786: IF NOT GMD_SAMPLES_PVT.insert_row (

782: l_qc_samples_rec.sample_inv_trans_ind := NULL ;
783: END IF;
784:
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:

Line 857: UPDATE gmd_samples

853:
854:
855:
856:
857: UPDATE gmd_samples
858: SET SAMPLE_INV_TRANS_IND = l_sample_inv_trans_ind -- Bug # 4619570
859: WHERE sample_id = l_qc_samples_out_rec.sample_id ;
860:
861: END IF;

Line 905: GMD_SAMPLES_GRP.create_inv_txn

901: RAISE FND_API.G_EXC_ERROR;
902: END IF; -- end bug
903:
904:
905: GMD_SAMPLES_GRP.create_inv_txn
906: ( p_sample => l_qc_samples_out_rec,
907: p_user_name => l_user_id,
908: x_return_status => l_return_status,
909: x_message_count => l_msg_count,

Line 947: UPDATE GMD_SAMPLES

943: -- CLOSE Cur_replenish_whse;
944: -- END IF;
945:
946: -- need to update source whse back to samples since insert of sample has already taken place.
947: UPDATE GMD_SAMPLES
948: SET source_subinventory = l_qc_samples_out_rec.source_subinventory
949: WHERE sample_id = l_qc_samples_out_rec.sample_id ;
950:
951: -- END IF;

Line 961: GMD_SAMPLES_GRP.create_wip_txn

957: CLOSE Cur_batch_status;
958:
959: IF l_batch_status <> 4 then
960:
961: GMD_SAMPLES_GRP.create_wip_txn
962: ( p_sample => l_qc_samples_out_rec,
963: x_return_status => l_return_status,
964: x_message_count => l_msg_count,
965: x_message_data => l_msg_data

Line 973: GMD_SAMPLES_GRP.post_wip_txn

969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972:
973: GMD_SAMPLES_GRP.post_wip_txn
974: ( p_batch_id => l_qc_samples_out_rec.batch_id,
975: x_return_status => l_return_status
976: );
977:

Line 987: GMD_SAMPLES_GRP.create_inv_txn

983: -- added create_inv_txn to decrease the inventory which was increased by create_wip_txn/post_wip_txn
984:
985: --dbms_output.put_line('create inv trans after wip');
986:
987: GMD_SAMPLES_GRP.create_inv_txn
988: ( p_sample => l_qc_samples_out_rec,
989: p_user_name => p_user_name,
990: x_return_status => l_return_status,
991: x_message_count => l_msg_count,

Line 1087: ( p_samples_rec IN GMD_SAMPLES%ROWTYPE,

1083:
1084: END GET_CONF_MATCH_VALUE;
1085:
1086: FUNCTION FIND_MATCHING_SPEC
1087: ( p_samples_rec IN GMD_SAMPLES%ROWTYPE,
1088: p_grade IN VARCHAR2 DEFAULT NULL, -- 3431884
1089: x_spec_id OUT NOCOPY NUMBER,
1090: x_spec_type OUT NOCOPY VARCHAR2,
1091: x_spec_vr_id OUT NOCOPY NUMBER,

Line 1327: , p_qc_samples_rec IN GMD_SAMPLES%ROWTYPE

1323: ( p_api_version IN NUMBER
1324: , p_init_msg_list IN VARCHAR2
1325: , p_commit IN VARCHAR2
1326: , p_validation_level IN NUMBER
1327: , p_qc_samples_rec IN GMD_SAMPLES%ROWTYPE
1328: , p_user_name IN VARCHAR2
1329: , x_return_status OUT NOCOPY VARCHAR2
1330: , x_msg_count OUT NOCOPY NUMBER
1331: , x_msg_data OUT NOCOPY VARCHAR2

Line 1339: l_qc_samples_out_rec GMD_SAMPLES%ROWTYPE;

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);
1343: l_test_id NUMBER(10);

Line 1340: l_qc_samples_rec GMD_SAMPLES%ROWTYPE;

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);
1343: l_test_id NUMBER(10);
1344: l_user_id NUMBER(15);

Line 1406: IF NOT GMD_SAMPLES_PVT.fetch_row (

1402:
1403:
1404: -- Fetch the Test Header Row.
1405:
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;

Line 1417: 'l_table_name', 'GMD_SAMPLES',

1413: -- Validate that the Sample Header is Not Already Marked For Purge
1414:
1415: IF l_qc_samples_out_rec.delete_mark = 1 THEN
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;

Line 1427: IF NOT GMD_SAMPLES_PVT.delete_row(

1423:
1424: -- Mark this record for Purge, this routine will also lock the row.
1425:
1426: -- dbms_output.put_line('Delete Row');
1427: IF NOT GMD_SAMPLES_PVT.delete_row(
1428: p_sample_id => l_qc_samples_out_rec.sample_id,
1429: p_organization_id => l_qc_samples_out_rec.organization_id,
1430: p_sample_no => l_qc_samples_out_rec.sample_no
1431: ) THEN

Line 1433: 'l_table_name', 'GMD_SAMPLES',

1429: p_organization_id => l_qc_samples_out_rec.organization_id,
1430: p_sample_no => l_qc_samples_out_rec.sample_no
1431: ) THEN
1432: GMD_API_PUB.Log_Message('GMD_FAILED_TO_DELETE_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;

Line 1512: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

1508: END DELETE_SAMPLES;
1509:
1510:
1511: PROCEDURE VALIDATE_ITEM_CONTROLS
1512: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
1513: p_grade IN VARCHAR2, -- Bug 4165704: added to validate grade control
1514: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1515: x_return_status OUT NOCOPY VARCHAR2
1516: )

Line 1514: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,

1510:
1511: PROCEDURE VALIDATE_ITEM_CONTROLS
1512: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
1513: p_grade IN VARCHAR2, -- Bug 4165704: added to validate grade control
1514: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1515: x_return_status OUT NOCOPY VARCHAR2
1516: )
1517: IS
1518:

Line 1578: l_sample_rec GMD_SAMPLES%ROWTYPE;

1574: l_lot_ctl NUMBER;
1575: l_child_lot_flag VARCHAR2(2);
1576: l_lot_number MTL_LOT_NUMBERS.lot_number%TYPE;
1577: l_parent_lot_number MTL_LOT_NUMBERS.parent_lot_number%TYPE;
1578: l_sample_rec GMD_SAMPLES%ROWTYPE;
1579: l_return_status VARCHAR2(1);
1580:
1581: l_sample_display GMD_SAMPLES_GRP.sample_display_rec;
1582:

Line 1581: l_sample_display GMD_SAMPLES_GRP.sample_display_rec;

1577: l_parent_lot_number MTL_LOT_NUMBERS.parent_lot_number%TYPE;
1578: l_sample_rec GMD_SAMPLES%ROWTYPE;
1579: l_return_status VARCHAR2(1);
1580:
1581: l_sample_display GMD_SAMPLES_GRP.sample_display_rec;
1582:
1583: BEGIN
1584:
1585: -- Assign API local Variables;

Line 1610: gmd_samples_grp.get_item_values(p_sample_display => l_sample_display);

1606:
1607: l_sample_display.organization_id := p_sample_rec.organization_id;
1608: l_sample_display.inventory_item_id := p_sample_rec.inventory_item_id;
1609:
1610: gmd_samples_grp.get_item_values(p_sample_display => l_sample_display);
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');

Line 1724: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

1720:
1721:
1722: -- Bug 4165704: changed the way locator control was handled
1723: PROCEDURE VALIDATE_INV_SAMPLE
1724: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
1725: p_locator_control IN NUMBER,
1726: x_return_status OUT NOCOPY VARCHAR2
1727: )
1728: IS

Line 1799: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

1795:
1796: END VALIDATE_INV_SAMPLE;
1797:
1798: PROCEDURE VALIDATE_WIP_SAMPLE
1799: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
1800: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1801: x_return_status OUT NOCOPY VARCHAR2
1802: )
1803: IS

Line 1800: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,

1796: END VALIDATE_INV_SAMPLE;
1797:
1798: PROCEDURE VALIDATE_WIP_SAMPLE
1799: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
1800: x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1801: x_return_status OUT NOCOPY VARCHAR2
1802: )
1803: IS
1804:

Line 1922: l_sample_rec GMD_SAMPLES%ROWTYPE;

1918:
1919:
1920: l_dummy NUMBER;
1921: l_return_status VARCHAR2(1);
1922: l_sample_rec GMD_SAMPLES%ROWTYPE;
1923:
1924:
1925: BEGIN
1926:

Line 2057: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

2053:
2054: END VALIDATE_WIP_SAMPLE;
2055:
2056: PROCEDURE VALIDATE_CUST_SAMPLE
2057: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
2058: x_return_status OUT NOCOPY VARCHAR2
2059: )
2060: IS
2061:

Line 2265: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

2261:
2262:
2263:
2264: PROCEDURE VALIDATE_SUPP_SAMPLE
2265: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
2266: x_return_status OUT NOCOPY VARCHAR2
2267: )
2268: IS
2269:

Line 2536: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

2532:
2533:
2534: -- Added for MPK Bug
2535: PROCEDURE VALIDATE_STABILITY_SAMPLE
2536: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
2537: x_return_status OUT NOCOPY VARCHAR2
2538: )
2539: IS
2540:

Line 2551: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

2547:
2548:
2549:
2550: PROCEDURE VALIDATE_RESOURCE_SAMPLE
2551: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
2552: x_return_status OUT NOCOPY VARCHAR2
2553: )
2554: IS
2555:

Line 2625: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,

2621:
2622:
2623:
2624: PROCEDURE VALIDATE_LOCATION_SAMPLE
2625: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE,
2626: p_locator_control IN NUMBER,
2627: x_return_status OUT NOCOPY VARCHAR2
2628: )
2629: IS

Line 2738: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE

2734:
2735:
2736:
2737: PROCEDURE VALIDATE_SAMPLE
2738: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE
2739: , p_grade IN VARCHAR2 --3431884
2740: , x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE
2741: , x_return_status OUT NOCOPY VARCHAR2
2742: )

Line 2740: , x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE

2736:
2737: PROCEDURE VALIDATE_SAMPLE
2738: ( p_sample_rec IN GMD_SAMPLES%ROWTYPE
2739: , p_grade IN VARCHAR2 --3431884
2740: , x_sample_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE
2741: , x_return_status OUT NOCOPY VARCHAR2
2742: )
2743: IS
2744: -- Bug 4165704: organization validation changed with inventory convergence

Line 2851: l_sample_rec GMD_SAMPLES%ROWTYPE;

2847: AND inventory_location_id = p_sample_rec.storage_locator_id;
2848:
2849: l_grade_ctl NUMBER;
2850: l_dummy NUMBER;
2851: l_sample_rec GMD_SAMPLES%ROWTYPE;
2852: l_sample_out_rec GMD_SAMPLES%ROWTYPE;
2853: l_locator_control NUMBER;
2854: l_return_status VARCHAR2(1);
2855:

Line 2852: l_sample_out_rec GMD_SAMPLES%ROWTYPE;

2848:
2849: l_grade_ctl NUMBER;
2850: l_dummy NUMBER;
2851: l_sample_rec GMD_SAMPLES%ROWTYPE;
2852: l_sample_out_rec GMD_SAMPLES%ROWTYPE;
2853: l_locator_control NUMBER;
2854: l_return_status VARCHAR2(1);
2855:
2856: BEGIN

Line 3348: --dbms_output.put_line('b4 GMD_SAMPLES_GRP.validate_sample');

3344:
3345: -- Now Call Group Layer Validate Samples API
3346: -- To perform business logic validation.
3347:
3348: --dbms_output.put_line('b4 GMD_SAMPLES_GRP.validate_sample');
3349:
3350:
3351: GMD_SAMPLES_GRP.validate_sample(
3352: p_sample => l_sample_rec,

Line 3351: GMD_SAMPLES_GRP.validate_sample(

3347:
3348: --dbms_output.put_line('b4 GMD_SAMPLES_GRP.validate_sample');
3349:
3350:
3351: GMD_SAMPLES_GRP.validate_sample(
3352: p_sample => l_sample_rec,
3353: p_called_from => 'PUBLIC',
3354: p_operation => 'INSERT',
3355: x_return_status => l_return_status

Line 3358: --dbms_output.put_line('after GMD_SAMPLES_GRP.validate_sample');

3354: p_operation => 'INSERT',
3355: x_return_status => l_return_status
3356: );
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

Line 3387: END GMD_SAMPLES_PUB;

3383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3384:
3385: END VALIDATE_SAMPLE;
3386:
3387: END GMD_SAMPLES_PUB;