DBA Data[Home] [Help]

APPS.GMD_RESULTS_PUB dependencies on GMD_RESULTS

Line 1: PACKAGE BODY GMD_RESULTS_PUB AS

1: PACKAGE BODY GMD_RESULTS_PUB AS
2: /* $Header: GMDPRESB.pls 120.4 2006/04/20 13:43:30 mgrosser noship $
3: *****************************************************************
4: * *
5: * Package GMD_RESULTS_PUB *

Line 5: * Package GMD_RESULTS_PUB *

1: PACKAGE BODY GMD_RESULTS_PUB AS
2: /* $Header: GMDPRESB.pls 120.4 2006/04/20 13:43:30 mgrosser noship $
3: *****************************************************************
4: * *
5: * Package GMD_RESULTS_PUB *
6: * *
7: * Contents RECORD_RESULTS *
8: * ADD_TESTS_TO_SAMPLE *
9: * DELETE_RESULTS *

Line 25: * statement. TESTER_ID in GMD_RESULTS *

21: * Record_Results procedure. *
22: * magupta 3492836: Reserve Sample Id Validation *
23: * *
24: * Sulipta Tripathy Bug # 3848483 Added new fields in update *
25: * statement. TESTER_ID in GMD_RESULTS *
26: * VALUE_IN_REPORT_PRECISION in GMD_SPEC_RESULTS*
27: * Modified cond. to update GMD_SPEC_RESULTS *
28: * even if eval_ind is NULL. *
29: * B.Stone 9-Sep-2004 Bug 3763419; Added Guaranteed by *

Line 45: G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_RESULTS_PUB';

41: */
42:
43: -- Global variables
44:
45: G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_RESULTS_PUB';
46:
47: PROCEDURE RECORD_RESULTS
48: ( p_api_version IN NUMBER
49: , p_init_msg_list IN VARCHAR2

Line 52: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC

48: ( p_api_version IN NUMBER
49: , p_init_msg_list IN VARCHAR2
50: , p_commit IN VARCHAR2
51: , p_validation_level IN NUMBER
52: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC
53: , p_user_name IN VARCHAR2
54: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE
55: , x_spec_results_rec OUT NOCOPY GMD_SPEC_RESULTS%ROWTYPE
56: , x_return_status OUT NOCOPY VARCHAR2

Line 54: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE

50: , p_commit IN VARCHAR2
51: , p_validation_level IN NUMBER
52: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC
53: , p_user_name IN VARCHAR2
54: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE
55: , x_spec_results_rec OUT NOCOPY GMD_SPEC_RESULTS%ROWTYPE
56: , x_return_status OUT NOCOPY VARCHAR2
57: , x_msg_count OUT NOCOPY NUMBER
58: , x_msg_data OUT NOCOPY VARCHAR2

Line 67: l_results_rec GMD_RESULTS_PUB.RESULTS_REC;

63: l_api_version CONSTANT NUMBER := 3.0;
64: l_msg_count NUMBER :=0;
65: l_msg_data VARCHAR2(2000);
66: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
67: l_results_rec GMD_RESULTS_PUB.RESULTS_REC;
68: l_tests_rec GMD_QC_TESTS%ROWTYPE;
69: l_samples_rec GMD_SAMPLES%ROWTYPE;
70: l_spec_results_row_in GMD_SPEC_RESULTS%ROWTYPE;
71: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;

Line 74: l_results_row_in GMD_RESULTS%ROWTYPE;

70: l_spec_results_row_in GMD_SPEC_RESULTS%ROWTYPE;
71: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
72: l_spec_tests_in GMD_SPEC_TESTS%ROWTYPE;
73: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
74: l_results_row_in GMD_RESULTS%ROWTYPE;
75: l_results_row GMD_RESULTS%ROWTYPE;
76: l_user_id NUMBER(15);
77: l_assign_type NUMBER;
78: l_date DATE := SYSDATE;

Line 75: l_results_row GMD_RESULTS%ROWTYPE;

71: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
72: l_spec_tests_in GMD_SPEC_TESTS%ROWTYPE;
73: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
74: l_results_row_in GMD_RESULTS%ROWTYPE;
75: l_results_row GMD_RESULTS%ROWTYPE;
76: l_user_id NUMBER(15);
77: l_assign_type NUMBER;
78: l_date DATE := SYSDATE;
79: l_result_id NUMBER;

Line 90: l_validate_res GMD_RESULTS_GRP.result_data;

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:

Line 95: l_rslt_tbl gmd_results_grp.rslt_tbl; --RLNAGARA BUG#5076736

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,

Line 237: IF NOT GMD_RESULTS_PVT.fetch_row

233: l_results_row_in.test_id := l_tests_rec.test_id;
234: l_results_row_in.sample_id := l_samples_rec.sample_id;
235: l_results_row_in.test_replicate_cnt := p_results_rec.test_replicate_cnt;
236:
237: IF NOT GMD_RESULTS_PVT.fetch_row
238: ( p_results => l_results_row_in,
239: x_results => l_results_row
240: ) THEN
241: RAISE FND_API.G_EXC_ERROR;

Line 248: IF NOT GMD_RESULTS_PVT.fetch_row

244: ELSE
245: -- Fetch Result Row
246: l_results_row_in.result_id := p_results_rec.result_id;
247:
248: IF NOT GMD_RESULTS_PVT.fetch_row
249: ( p_results => l_results_row_in,
250: x_results => l_results_row
251: ) THEN
252: RAISE FND_API.G_EXC_ERROR;

Line 304: --RLNAGARA Begin BUG#5076736 Calling gmd_results_grp.calc_expression

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,

Line 319: gmd_results_grp.calc_expression

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

Line 336: IF NOT GMD_RESULTS_GRP.is_value_numeric

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;

Line 438: GMD_RESULTS_GRP.validate_result

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:

Line 448: IF NOT GMD_RESULTS_PVT.LOCK_ROW ( p_result_id => l_results_row.result_id )

444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447:
448: IF NOT GMD_RESULTS_PVT.LOCK_ROW ( p_result_id => l_results_row.result_id )
449: THEN
450: RAISE FND_API.G_EXC_ERROR;
451: ELSE
452: -- IF test_type is T then convert result char to Num

Line 530: select result_value_num into l_validate_res.result_num from gmd_results WHERE result_id = l_results_row.result_id;

526: -- Update Results Record
527: --=================================
528:
529: IF l_tests_rec.test_type = 'E' THEN --RLNAGARA BUG#5076736
530: select result_value_num into l_validate_res.result_num from gmd_results WHERE result_id = l_results_row.result_id;
531: select in_spec_ind into l_result_value_char from gmd_spec_results WHERE result_id = l_results_row.result_id;
532: END IF;
533:
534: -- Bug 3468300: added consumed qty, test uom and reserve sample id

Line 535: UPDATE GMD_RESULTS

531: select in_spec_ind into l_result_value_char from gmd_spec_results WHERE result_id = l_results_row.result_id;
532: END IF;
533:
534: -- Bug 3468300: added consumed qty, test uom and reserve sample id
535: UPDATE GMD_RESULTS
536: SET result_date = NVL(p_results_rec.result_date,l_date), -- 3559127 (use of p_results_rec rather than l_results_rec)
537: last_update_date = l_date,
538: last_updated_by = l_user_id,
539: result_value_num = l_validate_res.result_num,

Line 562: UPDATE gmd_results

558: -- If the result value is NULL for an expression,
559: -- set the result date and tester id to NULL.
560: --
561: IF l_tests_rec.test_type = 'E' THEN
562: UPDATE gmd_results
563: SET result_date = NULL ,
564: tester_id = NULL
565: WHERE result_id = l_results_row.result_id
566: AND result_value_num IS NULL;

Line 571: IF NOT GMD_RESULTS_PVT.FETCH_ROW( p_results => l_results_row_in,

567: END IF;
568: -- M. Grosser 20-Apr-2006: Bug 5141976 : End of changes
569:
570:
571: IF NOT GMD_RESULTS_PVT.FETCH_ROW( p_results => l_results_row_in,
572: x_results => l_results_row ) THEN
573: RAISE FND_API.G_EXC_ERROR;
574: END IF;
575:

Line 615: GMD_RESULTS_GRP.validate_evaluation_ind

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

Line 680: GMD_RESULTS_GRP.change_sample_disposition

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

Line 704: GMD_RESULTS_GRP.change_disp_for_auto_lot

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: );

Line 744: GMD_RESULTS_GRP.composite_and_change_lot(

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:

Line 812: , x_results_tab OUT NOCOPY GMD_API_PUB.gmd_results_tab

808: , p_user_name IN VARCHAR2
809: , p_sample_rec IN GMD_SAMPLES%ROWTYPE
810: , p_test_id_tab IN GMD_API_PUB.number_tab
811: , p_event_spec_disp_id IN NUMBER
812: , x_results_tab OUT NOCOPY GMD_API_PUB.gmd_results_tab
813: , x_spec_results_tab OUT NOCOPY GMD_API_PUB.gmd_spec_results_tab
814: , x_return_status OUT NOCOPY VARCHAR2
815: , x_msg_count OUT NOCOPY NUMBER
816: , x_msg_data OUT NOCOPY VARCHAR2

Line 824: l_results_tab GMD_API_PUB.gmd_results_tab;

820: l_api_version CONSTANT NUMBER := 2.0;
821: l_msg_count NUMBER :=0;
822: l_msg_data VARCHAR2(2000);
823: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
824: l_results_tab GMD_API_PUB.gmd_results_tab;
825: l_spec_results_tab GMD_API_PUB.gmd_spec_results_tab;
826: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
827: l_user_id NUMBER(15);
828: l_date DATE := SYSDATE;

Line 934: GMD_RESULTS_GRP.ADD_TESTS_TO_SAMPLE

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

Line 994: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,

990:
991: END ADD_TESTS_TO_SAMPLE;
992:
993: PROCEDURE VALIDATE_INPUT
994: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,
995: x_return_status OUT NOCOPY VARCHAR2
996: )
997: IS
998: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;

Line 1065: 'GMD_RESULTS_PUB.VALIDATE_INPUT',

1061: x_return_status := FND_API.G_RET_STS_ERROR;
1062: WHEN OTHERS THEN
1063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE',
1065: 'GMD_RESULTS_PUB.VALIDATE_INPUT',
1066: 'ERROR',SUBSTR(SQLERRM,1,100),
1067: 'POSITION','010');
1068:
1069:

Line 1073: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,

1069:
1070: END VALIDATE_INPUT;
1071:
1072: PROCEDURE GET_RESULT_INFO
1073: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,
1074: x_tests_rec OUT NOCOPY GMD_QC_TESTS%ROWTYPE,
1075: x_samples_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1076: x_return_status OUT NOCOPY VARCHAR2
1077: )

Line 1126: 'GMD_RESULTS_PUB.GET_RESULT_INFO',

1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: WHEN OTHERS THEN
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE',
1126: 'GMD_RESULTS_PUB.GET_RESULT_INFO',
1127: 'ERROR',SUBSTR(SQLERRM,1,100),
1128: 'POSITION','010');
1129:
1130: END GET_RESULT_INFO;

Line 1132: END GMD_RESULTS_PUB;

1128: 'POSITION','010');
1129:
1130: END GET_RESULT_INFO;
1131:
1132: END GMD_RESULTS_PUB;