DBA Data[Home] [Help]

APPS.GMD_SAMPLES_GRP dependencies on GMD_SAMPLES_GRP

Line 1: PACKAGE BODY GMD_SAMPLES_GRP AS

1: PACKAGE BODY GMD_SAMPLES_GRP AS
2: --$Header: GMDGSMPB.pls 120.46.12020000.3 2012/11/29 17:37:28 plowe ship $
3: -- Global variables
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_SAMPLES_GRP';
5:

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_SAMPLES_GRP';

1: PACKAGE BODY GMD_SAMPLES_GRP AS
2: --$Header: GMDGSMPB.pls 120.46.12020000.3 2012/11/29 17:37:28 plowe ship $
3: -- Global variables
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_SAMPLES_GRP';
5:
6: --Bug 3222090, magupta removed call to FND_PROFILE.VALUE('AFLOG_ENABLED')
7: --forward decl.
8: FUNCTION set_debug_flag RETURN VARCHAR2;

Line 28: --| Package Name : GMD_Samples_GRP |

24: --| Redwood Shores, CA, USA |
25: --| All rights reserved. |
26: --+==========================================================================+
27: --| File Name : GMDGSMPB.pls |
28: --| Package Name : GMD_Samples_GRP |
29: --| Type : Group |
30: --| |
31: --| Notes |
32: --| This package contains group layer APIs for Specification Entity |

Line 95: --| GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH AT 030 22-Nov-2012 |

91: --| the INV_MATERIAL_STATUS_PUB.update_status API. Now when |
92: --| with no LPN found and the LPN is NOT passed from sample for |
93: --| a wms enabled org, there will still be a call to update the lot status |
94: --| PLOWE Bug 14769409 - SAMPLE DISPOSITION ERROR |
95: --| GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH AT 030 22-Nov-2012 |
96: --| Bug is that in a certain cases there is NO onhand for material |
97: --| status update and Smuckers want change dispotion to go ahead regardless|
98: --| INV API update_material_status now passes a warning and we interpret |
99: --| this as NO ONHAND available |

Line 2131: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

2127: WHERE sampling_event_id = l_sampling_event_id ;
2128:
2129:
2130: EXCEPTION WHEN REQ_FIELDS_MISSING THEN
2131: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2132: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2133: x_return_status := FND_API.G_RET_STS_ERROR ;
2134: WHEN INVALID_PARAMETER THEN
2135: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

Line 2135: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

2131: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2132: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2133: x_return_status := FND_API.G_RET_STS_ERROR ;
2134: WHEN INVALID_PARAMETER THEN
2135: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2136: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: WHEN SAMPLE_SPEC_CHANGED THEN
2139: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

Line 2139: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

2135: gmd_api_pub.log_message('GMD_INVALID_PARAM','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2136: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2137: x_return_status := FND_API.G_RET_STS_ERROR ;
2138: WHEN SAMPLE_SPEC_CHANGED THEN
2139: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2140: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2141: x_return_status := FND_API.G_RET_STS_ERROR ;
2142: WHEN SAMPLE_DISP_CHANGED THEN
2143: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

Line 2143: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

2139: gmd_api_pub.log_message('GMD_SAMPLE_SPEC_CHANGED','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2140: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2141: x_return_status := FND_API.G_RET_STS_ERROR ;
2142: WHEN SAMPLE_DISP_CHANGED THEN
2143: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2144: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2145: x_return_status := FND_API.G_RET_STS_ERROR ;
2146: WHEN OTHERS THEN
2147: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);

Line 2147: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);

2143: gmd_api_pub.log_message('GMD_SMPL_DISP_CHANGE','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
2144: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2145: x_return_status := FND_API.G_RET_STS_ERROR ;
2146: WHEN OTHERS THEN
2147: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
2148: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2150:
2151: END update_sample_comp_disp ;

Line 2257: gmd_api_pub.log_message('GMD_QM_CHANGE_DISP_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');

2253: );
2254:
2255:
2256: IF SQL%NOTFOUND THEN
2257: gmd_api_pub.log_message('GMD_QM_CHANGE_DISP_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2258: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2259: x_return_status := FND_API.G_RET_STS_ERROR ;
2260: END IF; -- SQL%NOTFOUND THEN
2261:

Line 2330: gmd_api_pub.log_message('GMD_QM_CHANGE_LOT_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');

2326:
2327: END IF; -- (p_update_change_disp_rec.LOT_NUMBER IS NOT NULL)
2328:
2329: IF SQL%NOTFOUND THEN
2330: gmd_api_pub.log_message('GMD_QM_CHANGE_LOT_ERR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_CHANGE_DISP_TABLE');
2331: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
2332: x_return_status := FND_API.G_RET_STS_ERROR ;
2333: END IF; -- SQL%NOTFOUND THEN
2334:

Line 2377: --| GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH AT 030 22-Nov-2012 |

2373: --| the INV_MATERIAL_STATUS_PUB.update_status API. Now when |
2374: --| with no LPN found and the LPN is NOT passed from sample for |
2375: --| a wms enabled org, there will still be a call to update the lot status |
2376: --| PLOWE Bug 14769409 - SAMPLE DISPOSITION ERROR |
2377: --| GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH AT 030 22-Nov-2012 |
2378: --| Bug is that in a certain cases there is NO onhand for material |
2379: --| status update and Smuckers want change dispotion to go ahead regardless|
2380: --| INV API update_material_status now passes a warning and we interpret |
2381: --| this as NO ONHAND available |

Line 3497: gmd_api_pub.log_message('GMD_QM_CURRENT_LOT_VALUE_CHANG','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');

3493:
3494: EXCEPTION
3495: WHEN SAMPLE_DISP_CHANGED THEN
3496: --RLNAGARA B5668965 Changed the message from GMD_SMPL_DISP_CHANGE to GMD_QM_CURRENT_LOT_VALUE_CHANG
3497: gmd_api_pub.log_message('GMD_QM_CURRENT_LOT_VALUE_CHANG','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
3498: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3499: x_return_status := FND_API.G_RET_STS_ERROR ;
3500: WHEN REQ_FIELDS_MISSING THEN
3501: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');

Line 3501: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');

3497: gmd_api_pub.log_message('GMD_QM_CURRENT_LOT_VALUE_CHANG','PACKAGE','GMD_SAMPLES_GRP.UPDATE_SAMPLE_COMP_DISP');
3498: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3499: x_return_status := FND_API.G_RET_STS_ERROR ;
3500: WHEN REQ_FIELDS_MISSING THEN
3501: gmd_api_pub.log_message('GMD_REQ_FIELD_MIS','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH');
3502: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3503: x_return_status := FND_API.G_RET_STS_ERROR ;
3504: WHEN INVALID_SAMPLE THEN
3505: gmd_api_pub.log_message('GMD_QM_INVALID_SAMPLE');

Line 3525: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);

3521: END IF;
3522: IF get_curr_lot_status_cv%ISOPEN THEN
3523: CLOSE get_curr_lot_status_cv;
3524: END IF;
3525: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SAMPLES_GRP.UPDATE_LOT_GRADE_BATCH','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_position);
3526: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
3527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3528: END update_lot_grade_batch ;
3529:

Line 4446: -- Gmd_samples_grp.Get_item_values( p_sample_display => l_item_rec);

4442: -- Bug 4165704: uom convergence not needed after inventory convergence
4443: -- l_item_rec.inventory_item_id := p_sample.inventory_item_id;
4444: -- l_item_rec.organization_id := p_sample.organization_id;
4445:
4446: -- Gmd_samples_grp.Get_item_values( p_sample_display => l_item_rec);
4447:
4448: -- IF l_item_rec.Dual_uom_control = 3 THEN
4449: -- l_trans_rec.trans_qty2
4450: -- := INV_CONVERT.inv_um_convert(

Line 5442: Gmd_samples_grp.get_item_values(p_sample_display => x_display);

5438: x_display.sample_active_cnt := out_sampling_event.sample_active_cnt;
5439:
5440: END IF;
5441:
5442: Gmd_samples_grp.get_item_values(p_sample_display => x_display);
5443:
5444: IF out_sample.source = 'I' THEN
5445: Gmd_samples_grp.Inventory_source(p_locator_id => out_sample.locator_id
5446: , p_subinventory => out_sample.subinventory

Line 5445: Gmd_samples_grp.Inventory_source(p_locator_id => out_sample.locator_id

5441:
5442: Gmd_samples_grp.get_item_values(p_sample_display => x_display);
5443:
5444: IF out_sample.source = 'I' THEN
5445: Gmd_samples_grp.Inventory_source(p_locator_id => out_sample.locator_id
5446: , p_subinventory => out_sample.subinventory
5447: , p_organization_id => out_sample.organization_id
5448: , x_display => x_display);
5449: ELSIF out_sample.source = 'C' THEN

Line 5450: Gmd_samples_grp.customer_source(p_org_id => out_sample.org_id

5446: , p_subinventory => out_sample.subinventory
5447: , p_organization_id => out_sample.organization_id
5448: , x_display => x_display);
5449: ELSIF out_sample.source = 'C' THEN
5450: Gmd_samples_grp.customer_source(p_org_id => out_sample.org_id
5451: , p_ship_to_site_id => out_sample.ship_to_site_id
5452: , p_order_id => out_sample.order_id
5453: , p_order_line_id => out_sample.order_line_id
5454: , p_cust_id => out_sample.cust_id

Line 5457: Gmd_samples_grp.supplier_source(p_supplier_id => out_sample.supplier_id

5453: , p_order_line_id => out_sample.order_line_id
5454: , p_cust_id => out_sample.cust_id
5455: , x_display => x_display);
5456: ELSIF out_sample.source = 'S' THEN
5457: Gmd_samples_grp.supplier_source(p_supplier_id => out_sample.supplier_id
5458: , p_po_header_id => out_sample.po_header_id
5459: , p_po_line_id => out_sample.po_line_id
5460: , p_receipt_id => out_sample.receipt_id
5461: , p_receipt_line_id => out_sample.receipt_line_id

Line 5468: Gmd_samples_grp.wip_source(p_batch_id => out_sample.batch_id

5464: , p_organization_id => out_sample.organization_id
5465: , p_subinventory => out_sample.subinventory
5466: , x_display => x_display);
5467: ELSIF out_sample.source = 'W' THEN
5468: Gmd_samples_grp.wip_source(p_batch_id => out_sample.batch_id
5469: , p_step_id => out_sample.step_id
5470: , p_recipe_id => out_sample.recipe_id
5471: , p_formula_id => out_sample.formula_id
5472: , p_formulaline_id => out_sample.formulaline_id

Line 5480: Gmd_samples_grp.stability_study_source(p_variant_id => out_sample.variant_id

5476: , p_inventory_item_id => out_sample.inventory_item_id
5477: , p_organization_id => out_sample.organization_id
5478: , x_display => x_display);
5479: ELSIF out_sample.source = 'T' THEN
5480: Gmd_samples_grp.stability_study_source(p_variant_id => out_sample.variant_id
5481: ,p_time_point_id => out_sample.time_point_id
5482: , x_display => x_display);
5483: ELSIF out_sample.source = 'L' THEN
5484: Gmd_samples_grp.physical_location_source(p_locator_id => out_sample.locator_id

Line 5484: Gmd_samples_grp.physical_location_source(p_locator_id => out_sample.locator_id

5480: Gmd_samples_grp.stability_study_source(p_variant_id => out_sample.variant_id
5481: ,p_time_point_id => out_sample.time_point_id
5482: , x_display => x_display);
5483: ELSIF out_sample.source = 'L' THEN
5484: Gmd_samples_grp.physical_location_source(p_locator_id => out_sample.locator_id
5485: , p_subinventory => out_sample.subinventory
5486: , p_organization_id => out_sample.organization_id
5487: , x_display => x_display);
5488: ELSIF out_sample.source = 'R' THEN

Line 5489: Gmd_samples_grp.resource_source(p_instance_id => out_sample.instance_id

5485: , p_subinventory => out_sample.subinventory
5486: , p_organization_id => out_sample.organization_id
5487: , x_display => x_display);
5488: ELSIF out_sample.source = 'R' THEN
5489: Gmd_samples_grp.resource_source(p_instance_id => out_sample.instance_id
5490: , x_display => x_display);
5491: END IF;
5492:
5493: ELSIF p_type = 'EVENT' THEN -- sampling_event_id is passed

Line 5520: Gmd_samples_grp.get_item_values(p_sample_display => x_display);

5516: FETCH Cur_get_lpn INTO x_display.lpn;
5517: CLOSE Cur_get_lpn;
5518: END IF;
5519:
5520: Gmd_samples_grp.get_item_values(p_sample_display => x_display);
5521:
5522: IF out_sampling_event.source = 'I' THEN
5523: Gmd_samples_grp.Inventory_source(p_locator_id => out_sampling_event.locator_id
5524: , p_subinventory => out_sampling_event.subinventory

Line 5523: Gmd_samples_grp.Inventory_source(p_locator_id => out_sampling_event.locator_id

5519:
5520: Gmd_samples_grp.get_item_values(p_sample_display => x_display);
5521:
5522: IF out_sampling_event.source = 'I' THEN
5523: Gmd_samples_grp.Inventory_source(p_locator_id => out_sampling_event.locator_id
5524: , p_subinventory => out_sampling_event.subinventory
5525: , p_organization_id => out_sampling_event.organization_id
5526: , x_display => x_display);
5527: ELSIF out_sampling_event.source = 'C' THEN

Line 5528: Gmd_samples_grp.customer_source(p_org_id => out_sampling_event.org_id

5524: , p_subinventory => out_sampling_event.subinventory
5525: , p_organization_id => out_sampling_event.organization_id
5526: , x_display => x_display);
5527: ELSIF out_sampling_event.source = 'C' THEN
5528: Gmd_samples_grp.customer_source(p_org_id => out_sampling_event.org_id
5529: , p_ship_to_site_id => out_sampling_event.ship_to_site_id
5530: , p_order_id => out_sampling_event.order_id
5531: , p_order_line_id => out_sampling_event.order_line_id
5532: , p_cust_id => out_sampling_event.cust_id

Line 5535: Gmd_samples_grp.supplier_source(p_supplier_id => out_sampling_event.supplier_id

5531: , p_order_line_id => out_sampling_event.order_line_id
5532: , p_cust_id => out_sampling_event.cust_id
5533: , x_display => x_display);
5534: ELSIF out_sampling_event.source = 'S' THEN
5535: Gmd_samples_grp.supplier_source(p_supplier_id => out_sampling_event.supplier_id
5536: , p_po_header_id => out_sampling_event.po_header_id
5537: , p_po_line_id => out_sampling_event.po_line_id
5538: , p_receipt_id => out_sampling_event.receipt_id
5539: , p_receipt_line_id => out_sampling_event.receipt_line_id

Line 5546: Gmd_samples_grp.wip_source(p_batch_id => out_sampling_event.batch_id

5542: , p_organization_id => out_sampling_event.organization_id
5543: , p_subinventory => out_sampling_event.subinventory
5544: , x_display => x_display);
5545: ELSIF out_sampling_event.source = 'W' THEN
5546: Gmd_samples_grp.wip_source(p_batch_id => out_sampling_event.batch_id
5547: , p_step_id => out_sampling_event.step_id
5548: , p_recipe_id => out_sampling_event.recipe_id
5549: , p_formula_id => out_sampling_event.formula_id
5550: , p_formulaline_id => out_sampling_event.formulaline_id

Line 5558: Gmd_samples_grp.stability_study_source(p_variant_id => out_sampling_event.variant_id

5554: , p_inventory_item_id => out_sampling_event.inventory_item_id
5555: , p_organization_id => out_sample.organization_id
5556: , x_display => x_display);
5557: ELSIF out_sampling_event.source = 'T' THEN
5558: Gmd_samples_grp.stability_study_source(p_variant_id => out_sampling_event.variant_id
5559: ,p_time_point_id => out_sampling_event.time_point_id
5560: , x_display => x_display);
5561: ELSIF out_sampling_event.source = 'L' THEN
5562: Gmd_samples_grp.physical_location_source(p_locator_id => out_sampling_event.locator_id

Line 5562: Gmd_samples_grp.physical_location_source(p_locator_id => out_sampling_event.locator_id

5558: Gmd_samples_grp.stability_study_source(p_variant_id => out_sampling_event.variant_id
5559: ,p_time_point_id => out_sampling_event.time_point_id
5560: , x_display => x_display);
5561: ELSIF out_sampling_event.source = 'L' THEN
5562: Gmd_samples_grp.physical_location_source(p_locator_id => out_sampling_event.locator_id
5563: , p_subinventory => out_sampling_event.subinventory
5564: , p_organization_id => out_sampling_event.organization_id
5565: , x_display => x_display);
5566: ELSIF out_sampling_event.source = 'R' THEN

Line 5567: Gmd_samples_grp.resource_source(p_instance_id => out_sampling_event.instance_id

5563: , p_subinventory => out_sampling_event.subinventory
5564: , p_organization_id => out_sampling_event.organization_id
5565: , x_display => x_display);
5566: ELSIF out_sampling_event.source = 'R' THEN
5567: Gmd_samples_grp.resource_source(p_instance_id => out_sampling_event.instance_id
5568: , x_display => x_display);
5569: END IF;
5570: ELSE -- p_type parameter incorrect
5571: x_return_status := FND_API.G_RET_STS_ERROR ;

Line 6049: Gmd_samples_grp.Inventory_source (

6045: IS
6046: o_display sample_display_rec;
6047:
6048: BEGIN
6049: Gmd_samples_grp.Inventory_source (
6050: p_locator_id => p_locator_id
6051: , p_subinventory => p_subinventory
6052: , p_organization_id => p_organization_id
6053: , x_display => o_display);

Line 6315: END GMD_SAMPLES_GRP;

6311:
6312: END get_sample_spec_disposition;
6313:
6314:
6315: END GMD_SAMPLES_GRP;
6316: