[Home] [Help]
86: l_samples_act NUMBER;
87: l_spec_id NUMBER;
88: l_sample_disp VARCHAR2(3);
89: l_sample_event_disp VARCHAR2(3);
90: l_validate_res GMD_RESULTS_GRP.result_data;
91: --Bug 3492836
92: l_reserve_sampling_event_id NUMBER;
93: --Bug 3492836
94:
91: --Bug 3492836
92: l_reserve_sampling_event_id NUMBER;
93: --Bug 3492836
94:
95: l_rslt_tbl gmd_results_grp.rslt_tbl; --RLNAGARA BUG#5076736
96:
97: CURSOR c_get_event_spec (p_sampling_event_id NUMBER, p_sample_id NUMBER)
98: IS
99: SELECT e.event_spec_disp_id, s.disposition , e.spec_id,
300: IF p_results_rec.eval_ind <> '1Z' OR p_results_rec.eval_ind IS NULL THEN
301:
302: IF l_tests_rec.test_type = 'E' THEN
303:
304: --RLNAGARA Begin BUG#5076736 Calling gmd_results_grp.calc_expression
305:
306: OPEN c_get_event_spec(l_samples_rec.sampling_event_id,
307: l_samples_rec.sample_id);
308: FETCH c_get_event_spec INTO l_event_spec_disp_id, l_sample_disp, l_spec_id,
315: CLOSE c_get_event_spec;
316: END IF;
317: CLOSE c_get_event_spec;
318:
319: gmd_results_grp.calc_expression
320: ( p_sample_id => l_samples_rec.sample_id --:gmdqsmpl.sample_id
321: , p_event_spec_disp_id => l_event_spec_disp_id --:gmdqsmpl.event_spec_disp_id
322: , p_spec_id => l_spec_id --:gmdqsmpl.spec_id
323: , x_rslt_tbl => l_rslt_tbl
332:
333: ELSIF l_tests_rec.test_type in ('N','L') THEN
334:
335: -- Check that the result_value is Numeric
336: IF NOT GMD_RESULTS_GRP.is_value_numeric
337: ( p_char_number => p_results_rec.result_value) THEN
338: GMD_API_PUB.Log_Message('GMD_RESULT_VAL_NUM_REQD');
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
434: --=================================
435: -- Now Validate result record values
436: --=================================
437:
438: GMD_RESULTS_GRP.validate_result
439: ( p_result_rec => l_validate_res,
440: x_return_status => l_return_status
441: );
442:
611: --=================================
612:
613: IF p_results_rec.eval_ind IS NOT NULL THEN
614:
615: GMD_RESULTS_GRP.validate_evaluation_ind
616: ( p_evaluation_ind => p_results_rec.eval_ind,
617: p_in_spec_ind => l_validate_res.in_spec,
618: p_result_value => p_results_rec.result_value,
619: x_return_status => l_return_status
676: -- Now Attempt to Update the
677: -- Sample/ Samp Event Dispositions
678: --=================================
679:
680: GMD_RESULTS_GRP.change_sample_disposition
681: ( p_sample_id => l_samples_rec.sample_id,
682: x_change_disp_to => l_sample_disp,
683: x_return_status => l_return_status,
684: x_message_data => x_msg_data
700: -- There was only 1 sample Req for this Sampling Event
701: -- SHOULD THIS BE = 1 OR AS LONG AS THEY EQUAL EACH OTHER !!!!!!!
702: IF l_samples_req = 1 and l_samples_act = 1 THEN
703:
704: GMD_RESULTS_GRP.change_disp_for_auto_lot
705: ( p_sample_id => l_samples_rec.sample_id,
706: x_change_disp_to => l_sample_disp,
707: x_return_status => l_return_status
708: );
740: -- At this stage, the Sampling Event is completed and
741: -- its sample_cnt > = required_cnt
742: -- Therefore, the composite result is only created when more than 1 sample.
743:
744: GMD_RESULTS_GRP.composite_and_change_lot(
745: p_sampling_event_id => l_samples_rec.sampling_event_id
746: , p_commit => p_commit
747: , x_return_status => l_return_status);
748:
930: -- Now Start Business Processing
931:
932: -- Call Grp Layer API to Process Records
933:
934: GMD_RESULTS_GRP.ADD_TESTS_TO_SAMPLE
935: ( p_sample => p_sample_rec
936: , p_test_ids => p_test_id_tab
937: , p_event_spec_disp_id => p_event_spec_disp_id
938: , x_results_tab => l_results_tab