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.6.12020000.6 2012/12/20 20:46:40 plowe ship $
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.6.12020000.6 2012/12/20 20:46:40 plowe ship $
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 50: * comment out call to GMD_RESULTS_GRP.change_disp_for_auto_lot *

46: * changed to one of these below *
47: * ('0RT', '4A', '5AV', '6RJ', '7CN') *
48: * P Lowe 12-NOV-2008 Bug 7524393 *
49: * P Lowe 12-NOV-2008 Bug 13566337 *
50: * comment out call to GMD_RESULTS_GRP.change_disp_for_auto_lot *
51: * as form does not behave like this i.e sample automatically *
52: * going from complete to accept (in record_results proc ) *
53: * P Lowe 07-JUL-2012 Bug 14239488 *
54: * Added call to the procedure *

Line 55: * calc_expression after updating the gmd_results table. *

51: * as form does not behave like this i.e sample automatically *
52: * going from complete to accept (in record_results proc ) *
53: * P Lowe 07-JUL-2012 Bug 14239488 *
54: * Added call to the procedure *
55: * calc_expression after updating the gmd_results table. *
56: * P Lowe 14-DEC-2012 Bug 14635099 *
57: * Changed procedure RECORD_RESULTS *
58: * 1. The Action Code is now populating on the result record *
59: * when result value is an out of specification and not passed *

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

68: */
69:
70: -- Global variables
71:
72: G_PKG_NAME CONSTANT VARCHAR2(30):='GMD_RESULTS_PUB';
73:
74: PROCEDURE RECORD_RESULTS
75: ( p_api_version IN NUMBER
76: , p_init_msg_list IN VARCHAR2

Line 79: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC

75: ( p_api_version IN NUMBER
76: , p_init_msg_list IN VARCHAR2
77: , p_commit IN VARCHAR2
78: , p_validation_level IN NUMBER
79: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC
80: , p_user_name IN VARCHAR2
81: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE
82: , x_spec_results_rec OUT NOCOPY GMD_SPEC_RESULTS%ROWTYPE
83: , x_return_status OUT NOCOPY VARCHAR2

Line 81: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE

77: , p_commit IN VARCHAR2
78: , p_validation_level IN NUMBER
79: , p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC
80: , p_user_name IN VARCHAR2
81: , x_results_rec OUT NOCOPY GMD_RESULTS%ROWTYPE
82: , x_spec_results_rec OUT NOCOPY GMD_SPEC_RESULTS%ROWTYPE
83: , x_return_status OUT NOCOPY VARCHAR2
84: , x_msg_count OUT NOCOPY NUMBER
85: , x_msg_data OUT NOCOPY VARCHAR2

Line 94: l_results_rec GMD_RESULTS_PUB.RESULTS_REC;

90: l_api_version CONSTANT NUMBER := 3.0;
91: l_msg_count NUMBER :=0;
92: l_msg_data VARCHAR2(2000);
93: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
94: l_results_rec GMD_RESULTS_PUB.RESULTS_REC;
95: l_tests_rec GMD_QC_TESTS%ROWTYPE;
96: l_samples_rec GMD_SAMPLES%ROWTYPE;
97: l_spec_results_row_in GMD_SPEC_RESULTS%ROWTYPE;
98: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;

Line 101: l_results_row_in GMD_RESULTS%ROWTYPE;

97: l_spec_results_row_in GMD_SPEC_RESULTS%ROWTYPE;
98: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
99: l_spec_tests_in GMD_SPEC_TESTS%ROWTYPE;
100: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
101: l_results_row_in GMD_RESULTS%ROWTYPE;
102: l_results_row GMD_RESULTS%ROWTYPE;
103: l_user_id NUMBER(15);
104: l_assign_type NUMBER;
105: l_date DATE := SYSDATE;

Line 102: l_results_row GMD_RESULTS%ROWTYPE;

98: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
99: l_spec_tests_in GMD_SPEC_TESTS%ROWTYPE;
100: l_spec_tests GMD_SPEC_TESTS%ROWTYPE;
101: l_results_row_in GMD_RESULTS%ROWTYPE;
102: l_results_row GMD_RESULTS%ROWTYPE;
103: l_user_id NUMBER(15);
104: l_assign_type NUMBER;
105: l_date DATE := SYSDATE;
106: l_result_id NUMBER;

Line 117: l_validate_res GMD_RESULTS_GRP.result_data;

113: l_samples_act NUMBER;
114: l_spec_id NUMBER;
115: l_sample_disp VARCHAR2(3);
116: l_sample_event_disp VARCHAR2(3);
117: l_validate_res GMD_RESULTS_GRP.result_data;
118: --Bug 3492836
119: l_reserve_sampling_event_id NUMBER;
120: --Bug 3492836
121:

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

118: --Bug 3492836
119: l_reserve_sampling_event_id NUMBER;
120: --Bug 3492836
121:
122: l_rslt_tbl gmd_results_grp.rslt_tbl; --RLNAGARA BUG#5076736
123: l_retest_action_code VARCHAR2(32) := NULL; -- 14635099
124:
125: CURSOR c_get_event_spec (p_sampling_event_id NUMBER, p_sample_id NUMBER)
126: IS

Line 160: add_rslt_tab_out gmd_api_pub.gmd_results_tab;

156: where organization_id = l_samples_rec.organization_id;
157:
158: l_sample gmd_samples%rowtype;
159: test_ids gmd_api_pub.number_tab;
160: add_rslt_tab_out gmd_api_pub.gmd_results_tab;
161: add_spec_tab_out gmd_api_pub.gmd_spec_results_tab;
162:
163: -- 14635099 end
164:

Line 285: IF NOT GMD_RESULTS_PVT.fetch_row

281: l_results_row_in.test_id := l_tests_rec.test_id;
282: l_results_row_in.sample_id := l_samples_rec.sample_id;
283: l_results_row_in.test_replicate_cnt := p_results_rec.test_replicate_cnt;
284:
285: IF NOT GMD_RESULTS_PVT.fetch_row
286: ( p_results => l_results_row_in,
287: x_results => l_results_row
288: ) THEN
289: RAISE FND_API.G_EXC_ERROR;

Line 296: IF NOT GMD_RESULTS_PVT.fetch_row

292: ELSE
293: -- Fetch Result Row
294: l_results_row_in.result_id := p_results_rec.result_id;
295:
296: IF NOT GMD_RESULTS_PVT.fetch_row
297: ( p_results => l_results_row_in,
298: x_results => l_results_row
299: ) THEN
300: RAISE FND_API.G_EXC_ERROR;

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

358: IF p_results_rec.eval_ind <> '1Z' OR p_results_rec.eval_ind IS NULL THEN
359:
360: IF l_tests_rec.test_type = 'E' THEN
361:
362: --RLNAGARA Begin BUG#5076736 Calling gmd_results_grp.calc_expression
363:
364: OPEN c_get_event_spec(l_samples_rec.sampling_event_id,
365: l_samples_rec.sample_id);
366: FETCH c_get_event_spec INTO l_event_spec_disp_id, l_sample_disp, l_spec_id,

Line 377: gmd_results_grp.calc_expression

373: CLOSE c_get_event_spec;
374: END IF;
375: CLOSE c_get_event_spec;
376:
377: gmd_results_grp.calc_expression
378: ( p_sample_id => l_samples_rec.sample_id --:gmdqsmpl.sample_id
379: , p_event_spec_disp_id => l_event_spec_disp_id --:gmdqsmpl.event_spec_disp_id
380: , p_spec_id => l_spec_id --:gmdqsmpl.spec_id
381: , x_rslt_tbl => l_rslt_tbl

Line 394: IF NOT GMD_RESULTS_GRP.is_value_numeric

390:
391: ELSIF l_tests_rec.test_type in ('N','L') THEN
392:
393: -- Check that the result_value is Numeric
394: IF NOT GMD_RESULTS_GRP.is_value_numeric
395: ( p_char_number => p_results_rec.result_value) THEN
396: GMD_API_PUB.Log_Message('GMD_RESULT_VAL_NUM_REQD');
397: RAISE FND_API.G_EXC_ERROR;
398: END IF;

Line 517: GMD_RESULTS_GRP.validate_result

513: --=================================
514: -- Now Validate result record values
515: --=================================
516:
517: GMD_RESULTS_GRP.validate_result
518: ( p_result_rec => l_validate_res,
519: x_return_status => l_return_status
520: );
521:

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

523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525:
526:
527: IF NOT GMD_RESULTS_PVT.LOCK_ROW ( p_result_id => l_results_row.result_id )
528: THEN
529: RAISE FND_API.G_EXC_ERROR;
530: ELSE
531: -- IF test_type is T then convert result char to Num

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

605: -- Update Results Record
606: --=================================
607:
608: IF l_tests_rec.test_type = 'E' THEN --RLNAGARA BUG#5076736
609: select result_value_num into l_validate_res.result_num from gmd_results WHERE result_id = l_results_row.result_id;
610: select in_spec_ind into l_result_value_char from gmd_spec_results WHERE result_id = l_results_row.result_id;
611: END IF;
612:
613: -- Bug 3468300: added consumed qty, test uom and reserve sample id

Line 614: UPDATE GMD_RESULTS

610: select in_spec_ind into l_result_value_char from gmd_spec_results WHERE result_id = l_results_row.result_id;
611: END IF;
612:
613: -- Bug 3468300: added consumed qty, test uom and reserve sample id
614: UPDATE GMD_RESULTS
615: SET result_date = NVL(p_results_rec.result_date,l_date), -- 3559127 (use of p_results_rec rather than l_results_rec)
616: last_update_date = l_date,
617: last_updated_by = l_user_id,
618: result_value_num = l_validate_res.result_num,

Line 672: UPDATE gmd_results

668: -- If the result value is NULL for an expression,
669: -- set the result date and tester id to NULL.
670: --
671: IF l_tests_rec.test_type = 'E' THEN
672: UPDATE gmd_results
673: SET result_date = NULL ,
674: tester_id = NULL
675: WHERE result_id = l_results_row.result_id
676: AND result_value_num IS NULL;

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

677: END IF;
678: -- M. Grosser 20-Apr-2006: Bug 5141976 : End of changes
679:
680:
681: IF NOT GMD_RESULTS_PVT.FETCH_ROW( p_results => l_results_row_in,
682: x_results => l_results_row ) THEN
683: RAISE FND_API.G_EXC_ERROR;
684: END IF;
685:

Line 704: gmd_results_grp.calc_expression

700: CLOSE c_get_event_spec;
701: END IF;
702: CLOSE c_get_event_spec;
703:
704: gmd_results_grp.calc_expression
705: ( p_sample_id => l_samples_rec.sample_id --:gmdqsmpl.sample_id
706: , p_event_spec_disp_id => l_event_spec_disp_id --:gmdqsmpl.event_spec_disp_id
707: , p_spec_id => l_spec_id --:gmdqsmpl.spec_id
708: , x_rslt_tbl => l_rslt_tbl

Line 752: GMD_RESULTS_GRP.validate_evaluation_ind

748: --=================================
749:
750: IF p_results_rec.eval_ind IS NOT NULL THEN
751:
752: GMD_RESULTS_GRP.validate_evaluation_ind
753: ( p_evaluation_ind => p_results_rec.eval_ind,
754: p_in_spec_ind => l_validate_res.in_spec,
755: p_result_value => p_results_rec.result_value,
756: x_return_status => l_return_status

Line 809: gmd_results_grp.add_tests_to_sample

805: l_sample.sample_id := l_samples_rec.sample_id;
806: test_ids(1) := l_tests_rec.test_id;
807:
808:
809: gmd_results_grp.add_tests_to_sample
810: (p_sample => l_sample
811: ,p_test_ids => test_ids
812: ,p_event_spec_disp_id => l_event_spec_disp_id
813: ,x_results_tab => add_rslt_tab_out

Line 877: GMD_RESULTS_GRP.change_sample_disposition

873: IF p_results_rec.eval_ind = '4C' then -- 14635099
874: null;
875: ELSE
876:
877: GMD_RESULTS_GRP.change_sample_disposition
878: ( p_sample_id => l_samples_rec.sample_id,
879: x_change_disp_to => l_sample_disp,
880: x_return_status => l_return_status,
881: x_message_data => x_msg_data

Line 904: GMD_RESULTS_GRP.change_disp_for_auto_lot

900: -- There was only 1 sample Req for this Sampling Event
901: -- SHOULD THIS BE = 1 OR AS LONG AS THEY EQUAL EACH OTHER !!!!!!!
902: IF l_samples_req = 1 and l_samples_act = 1 THEN
903:
904: GMD_RESULTS_GRP.change_disp_for_auto_lot
905: ( p_sample_id => l_samples_rec.sample_id,
906: x_change_disp_to => l_sample_disp,
907: x_return_status => l_return_status
908: );

Line 944: GMD_RESULTS_GRP.composite_and_change_lot(

940: -- At this stage, the Sampling Event is completed and
941: -- its sample_cnt > = required_cnt
942: -- Therefore, the composite result is only created when more than 1 sample.
943:
944: GMD_RESULTS_GRP.composite_and_change_lot(
945: p_sampling_event_id => l_samples_rec.sampling_event_id
946: , p_commit => p_commit
947: , x_return_status => l_return_status);
948:

Line 1012: , x_results_tab OUT NOCOPY GMD_API_PUB.gmd_results_tab

1008: , p_user_name IN VARCHAR2
1009: , p_sample_rec IN GMD_SAMPLES%ROWTYPE
1010: , p_test_id_tab IN GMD_API_PUB.number_tab
1011: , p_event_spec_disp_id IN NUMBER
1012: , x_results_tab OUT NOCOPY GMD_API_PUB.gmd_results_tab
1013: , x_spec_results_tab OUT NOCOPY GMD_API_PUB.gmd_spec_results_tab
1014: , x_return_status OUT NOCOPY VARCHAR2
1015: , x_msg_count OUT NOCOPY NUMBER
1016: , x_msg_data OUT NOCOPY VARCHAR2

Line 1024: l_results_tab GMD_API_PUB.gmd_results_tab;

1020: l_api_version CONSTANT NUMBER := 2.0;
1021: l_msg_count NUMBER :=0;
1022: l_msg_data VARCHAR2(2000);
1023: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1024: l_results_tab GMD_API_PUB.gmd_results_tab;
1025: l_spec_results_tab GMD_API_PUB.gmd_spec_results_tab;
1026: l_spec_results_row GMD_SPEC_RESULTS%ROWTYPE;
1027: l_user_id NUMBER(15);
1028: l_date DATE := SYSDATE;

Line 1134: GMD_RESULTS_GRP.ADD_TESTS_TO_SAMPLE

1130: -- Now Start Business Processing
1131:
1132: -- Call Grp Layer API to Process Records
1133:
1134: GMD_RESULTS_GRP.ADD_TESTS_TO_SAMPLE
1135: ( p_sample => p_sample_rec
1136: , p_test_ids => p_test_id_tab
1137: , p_event_spec_disp_id => p_event_spec_disp_id
1138: , x_results_tab => l_results_tab

Line 1194: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,

1190:
1191: END ADD_TESTS_TO_SAMPLE;
1192:
1193: PROCEDURE VALIDATE_INPUT
1194: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,
1195: x_return_status OUT NOCOPY VARCHAR2
1196: )
1197: IS
1198: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;

Line 1265: 'GMD_RESULTS_PUB.VALIDATE_INPUT',

1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: WHEN OTHERS THEN
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE',
1265: 'GMD_RESULTS_PUB.VALIDATE_INPUT',
1266: 'ERROR',SUBSTR(SQLERRM,1,100),
1267: 'POSITION','010');
1268:
1269:

Line 1273: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,

1269:
1270: END VALIDATE_INPUT;
1271:
1272: PROCEDURE GET_RESULT_INFO
1273: ( p_results_rec IN GMD_RESULTS_PUB.RESULTS_REC,
1274: x_tests_rec OUT NOCOPY GMD_QC_TESTS%ROWTYPE,
1275: x_samples_rec OUT NOCOPY GMD_SAMPLES%ROWTYPE,
1276: x_return_status OUT NOCOPY VARCHAR2
1277: )

Line 1326: 'GMD_RESULTS_PUB.GET_RESULT_INFO',

1322: x_return_status := FND_API.G_RET_STS_ERROR;
1323: WHEN OTHERS THEN
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE',
1326: 'GMD_RESULTS_PUB.GET_RESULT_INFO',
1327: 'ERROR',SUBSTR(SQLERRM,1,100),
1328: 'POSITION','010');
1329:
1330: END GET_RESULT_INFO;

Line 1332: END GMD_RESULTS_PUB;

1328: 'POSITION','010');
1329:
1330: END GET_RESULT_INFO;
1331:
1332: END GMD_RESULTS_PUB;