[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
* DELETE_RESULTS *
* *
* Use This is the public layer for the QC RESULTS *
* *
* History *
* Written by H Verdding, OPM Development (EMEA) *
* *
* magupta B2752102: Added the parameters for validation of *
* resource for passing it to results group API*
* HVerddin B2711643: Added call to set user_context *
* odaboval 2709353: Added call to create composite results *
* P.Raghu 3467531: Commented the check for Disposition in *
* Record_Results procedure. *
* magupta 3492836: Reserve Sample Id Validation *
* *
* Sulipta Tripathy Bug # 3848483 Added new fields in update *
* statement. TESTER_ID in GMD_RESULTS *
* VALUE_IN_REPORT_PRECISION in GMD_SPEC_RESULTS*
* Modified cond. to update GMD_SPEC_RESULTS *
* even if eval_ind is NULL. *
* B.Stone 9-Sep-2004 Bug 3763419; Added Guaranteed by *
SELECT e.event_spec_disp_id, s.disposition , e.spec_id,
se.sample_req_cnt, se.sample_active_cnt
FROM gmd_event_spec_disp e , gmd_sample_spec_disp s , gmd_sampling_events se
WHERE s.event_spec_disp_id = e.event_spec_disp_id
AND se.sampling_event_id = e.sampling_event_id
AND se.sampling_event_id = p_sampling_event_id
AND s.sample_id = p_sample_id
AND e.spec_used_for_lot_attrib_ind = 'Y'
AND e.delete_mark = 0
AND s.delete_mark = 0;
SELECT text_range_seq
FROM GMD_QC_TEST_VALUES_B
WHERE test_id = p_test_id
AND value_char = p_result_char;
SELECT disposition
FROM GMD_EVENT_SPEC_DISP
WHERE event_spec_disp_id = p_event_spec_disp
AND delete_mark = 0;
SELECT application_id
FROM fnd_application
WHERE application_short_name = 'GMD';
SELECT 1
FROM gmd_parameters_hdr gmd, org_access_view org
WHERE org.organization_id = gmd.organization_id
AND org.organization_id = cp_lab_organization_id
AND org.responsibility_id = p_user_responsibility_id
AND org.resp_application_id = cp_application_id
AND gmd.lab_ind = 1
AND org.inventory_enabled_flag = 'Y' ;
IF l_results_row.delete_mark = 1 THEN
GMD_API_PUB.Log_Message('GMD_RESULT_DELETED');
SELECT sampling_event_id
INTO l_reserve_sampling_event_id
FROM gmd_samples
WHERE sample_id = p_results_rec.reserve_sample_id;
select result_value_num into l_validate_res.result_num from gmd_results WHERE result_id = l_results_row.result_id;
select in_spec_ind into l_result_value_char from gmd_spec_results WHERE result_id = l_results_row.result_id;
UPDATE GMD_RESULTS
SET result_date = NVL(p_results_rec.result_date,l_date), -- 3559127 (use of p_results_rec rather than l_results_rec)
last_update_date = l_date,
last_updated_by = l_user_id,
result_value_num = l_validate_res.result_num,
result_value_char = l_result_value_char,
planned_resource = l_results_rec.planned_resource,
planned_resource_instance = l_results_rec.planned_resource_instance,
actual_resource = l_results_rec.actual_resource,
actual_resource_instance = l_results_rec.actual_resource_instance,
planned_result_date = l_results_rec.planned_result_date,
-- test_qty = l_results_row.test_qty, -- bug 3468300: test qty does not change in this API
test_uom = l_results_row.test_uom,
consumed_qty = l_results_row.consumed_qty,
test_by_date = l_results_rec.test_by_date,
tester_id = NVL(p_results_rec.tester_id,l_user_id), /* Bug # 3848483 Added this line */
reserve_sample_id = p_results_rec.reserve_sample_id
WHERE result_id = l_results_row.result_id;
UPDATE gmd_results
SET result_date = NULL ,
tester_id = NULL
WHERE result_id = l_results_row.result_id
AND result_value_num IS NULL;
gmd_samples_grp.update_remaining_qty
(l_results_row.result_id, -- B3600012 changed from l_results_rec
p_results_rec.reserve_sample_id ,
l_results_row.consumed_qty ,
l_return_status
);
gmd_samples_grp.update_remaining_qty
(l_results_row.result_id, -- B3600012 changed from l_results_rec
l_results_row.sample_id ,
l_results_row.consumed_qty ,
l_return_status
);
/* Bug # 3848483 Update the spec results even if eval_ind is NULL - Commenting the condition */
-- IF NVL(l_validate_res.evaluation_ind, p_results_rec.eval_ind) is NOT NULL THEN
IF NOT GMD_SPEC_RESULTS_PVT.lock_row
( p_event_spec_disp_id => l_event_spec_disp_id,
p_result_id => l_results_row.result_id
) THEN
RAISE FND_API.G_EXC_ERROR;
UPDATE GMD_SPEC_RESULTS
SET IN_SPEC_IND = l_validate_res.in_spec,
evaluation_ind = NVL(l_validate_res.evaluation_ind,p_results_rec.eval_ind), /* Bug # 3848483 Swapped args. l_validate_res takes precedence */
action_code = NVL(p_results_rec.action_code,
l_validate_res.result_action_code),
last_update_date = l_date,
last_updated_by = l_user_id,
value_in_report_precision = ROUND(p_results_rec.result_value,l_validate_res.report_precision)/* Bug # 3848483 Added this line */
WHERE event_spec_disp_id = l_event_spec_disp_id
AND result_id = l_results_row.result_id;
SELECT 1
FROM GMD_EVENT_SPEC_DISP
WHERE EVENT_SPEC_DISP_ID = p_event_spec_disp
AND DELETE_MARK = 0;
IF x_samples_rec.delete_mark = 1 THEN
GMD_API_PUB.Log_Message('GMD_RECORD_DELETE_MARKED',
'l_table_name', 'GMD_SAMPLES',
'l_column_name', 'SAMPLE_ID',
'l_key_value', x_samples_rec.sample_id);