DBA Data[Home] [Help]

APPS.GMD_QC_TEST_VALUES_GRP dependencies on GMD_QC_TEST_VALUES

Line 1: PACKAGE BODY GMD_QC_TEST_VALUES_GRP as

1: PACKAGE BODY GMD_QC_TEST_VALUES_GRP as
2: /* $Header: GMDGTVLB.pls 115.9 2002/11/21 18:34:22 mchandak noship $*/
3:
4: /*===========================================================================
5: PROCEDURE NAME: check_range_overlap

Line 11: of GMD_QC_TEST_VALUES_TL for test type 'L' but BEFORE

7: DESCRIPTION: This procedure checks for test type 'L' - numeric
8: range with label whether the subrange overlaps
9: with any other subrange within a test.
10: This procedure should be called after insert/update
11: of GMD_QC_TEST_VALUES_TL for test type 'L' but BEFORE
12: COMMIT.
13:
14: PARAMETERS: In : p_test_id
15: OUT : x_min_range - minimum value of the whole range.

Line 36: FROM gmd_qc_test_values_b

32: l_prev_max NUMBER;
33:
34: CURSOR CR_TEST_VALUES IS
35: SELECT min_num,max_num
36: FROM gmd_qc_test_values_b
37: WHERE test_id = p_test_id
38: ORDER BY NVL(min_num, -999999999.999999999) ;
39:
40: BEGIN

Line 90: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_RANGE_OVERLAP' );

86: IF CR_TEST_VALUES%ISOPEN THEN
87: CLOSE CR_TEST_VALUES ;
88: END IF;
89: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
90: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_RANGE_OVERLAP' );
91: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
92: FND_MESSAGE.Set_Token('POSITION',l_progress );
93: FND_MSG_PUB.ADD;
94: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 118: FROM GMD_QC_TEST_VALUES

114: WHERE test_id = p_test_id ;
115:
116: IF l_test_type = 'L' THEN
117: SELECT DISPLAY_LABEL_NUMERIC_RANGE INTO l_test_value_desc
118: FROM GMD_QC_TEST_VALUES
119: WHERE test_id = p_test_id
120: AND p_test_value_num >= nvl(min_num,p_test_value_num)
121: AND p_test_value_num <= nvl(max_num,p_test_value_num);
122: ELSIF l_test_type = 'T' THEN

Line 125: FROM GMD_QC_TEST_VALUES

121: AND p_test_value_num <= nvl(max_num,p_test_value_num);
122: ELSIF l_test_type = 'T' THEN
123: IF p_test_value_num IS NOT NULL THEN
124: SELECT test_value_desc INTO l_test_value_desc
125: FROM GMD_QC_TEST_VALUES
126: WHERE test_id = p_test_id
127: AND text_range_seq = p_test_value_num ;
128: ELSE
129: SELECT test_value_desc INTO l_test_value_desc

Line 130: FROM GMD_QC_TEST_VALUES

126: WHERE test_id = p_test_id
127: AND text_range_seq = p_test_value_num ;
128: ELSE
129: SELECT test_value_desc INTO l_test_value_desc
130: FROM GMD_QC_TEST_VALUES
131: WHERE test_id = p_test_id
132: AND value_char = p_test_value_char ;
133: END IF;
134: ELSIF l_test_type = 'V' THEN

Line 136: FROM GMD_QC_TEST_VALUES

132: AND value_char = p_test_value_char ;
133: END IF;
134: ELSIF l_test_type = 'V' THEN
135: SELECT test_value_desc INTO l_test_value_desc
136: FROM GMD_QC_TEST_VALUES
137: WHERE test_id = p_test_id
138: AND value_char = p_test_value_char ;
139:
140: END IF;

Line 221: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_VALID_TEST');

217: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
218:
219: WHEN OTHERS THEN
220: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
221: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_VALID_TEST');
222: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
223: FND_MESSAGE.Set_Token('POSITION',l_progress );
224: FND_MSG_PUB.ADD;
225: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 234: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,

230:
231: PROCEDURE CHECK_FOR_NULL_AND_FKS(
232: p_test_type IN VARCHAR,
233: p_display_precision IN NUMBER,
234: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,
235: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,
236: x_return_status OUT NOCOPY VARCHAR2,
237: x_message_data OUT NOCOPY VARCHAR2) IS
238:

Line 235: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,

231: PROCEDURE CHECK_FOR_NULL_AND_FKS(
232: p_test_type IN VARCHAR,
233: p_display_precision IN NUMBER,
234: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,
235: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,
236: x_return_status OUT NOCOPY VARCHAR2,
237: x_message_data OUT NOCOPY VARCHAR2) IS
238:
239: l_progress VARCHAR2(3);

Line 335: FROM GMD_QC_TEST_VALUES_B

331: RAISE FND_API.G_EXC_ERROR;
332: END IF;
333:
334: SELECT NVL(MAX(text_range_seq),0) + 1 INTO x_qc_test_values_rec.text_range_seq
335: FROM GMD_QC_TEST_VALUES_B
336: WHERE test_id = x_qc_test_values_rec.test_id ;
337:
338: ELSE
339:

Line 354: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_FOR_NULL_AND_FKS');

350: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
351:
352: WHEN OTHERS THEN
353: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
354: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.CHECK_FOR_NULL_AND_FKS');
355: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
356: FND_MESSAGE.Set_Token('POSITION',l_progress );
357: FND_MSG_PUB.ADD;
358: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 375: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,

371: CHANGE HISTORY: Created 09-JUL-02 MCHANDAK
372: ===========================================================================*/
373:
374: PROCEDURE VALIDATE_BEFORE_INSERT(
375: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,
376: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,
377: x_return_status OUT NOCOPY VARCHAR2,
378: x_message_data OUT NOCOPY VARCHAR2) IS
379:

Line 376: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,

372: ===========================================================================*/
373:
374: PROCEDURE VALIDATE_BEFORE_INSERT(
375: p_qc_test_values_rec IN GMD_QC_TEST_VALUES%ROWTYPE,
376: x_qc_test_values_rec OUT NOCOPY GMD_QC_TEST_VALUES%ROWTYPE,
377: x_return_status OUT NOCOPY VARCHAR2,
378: x_message_data OUT NOCOPY VARCHAR2) IS
379:
380: l_progress VARCHAR2(3);

Line 386: SELECT 'x' FROM GMD_QC_TEST_VALUES_B

382: l_test_type VARCHAR2(1);
383: l_display_precision NUMBER(1);
384:
385: CURSOR cr_test_value_exist IS
386: SELECT 'x' FROM GMD_QC_TEST_VALUES_B
387: WHERE test_id = p_qc_test_values_rec.test_id
388: AND value_char = p_qc_test_values_rec.value_char ;
389:
390: BEGIN

Line 450: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_INSERT');

446: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
447:
448: WHEN OTHERS THEN
449: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
450: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_INSERT');
451: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
452: FND_MESSAGE.Set_Token('POSITION',l_progress );
453: FND_MSG_PUB.ADD;
454: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 498: FROM GMD_QC_TEST_VALUES_B

494:
495: -- atleast one test value record must be there.
496: IF x_gmd_qc_tests_rec.test_type in ('V','T','L') THEN
497: SELECT NVL(COUNT(1),0) INTO l_test_values_count
498: FROM GMD_QC_TEST_VALUES_B
499: WHERE test_id = x_gmd_qc_tests_rec.test_id ;
500:
501: IF l_test_values_count = 0 THEN
502: FND_MESSAGE.SET_NAME('GMD','GMD_NO_TEST_VALUES');

Line 512: GMD_QC_TEST_VALUES_GRP.CHECK_RANGE_OVERLAP(

508:
509: l_progress := '020';
510:
511: IF x_gmd_qc_tests_rec.test_type = 'L' THEN
512: GMD_QC_TEST_VALUES_GRP.CHECK_RANGE_OVERLAP(
513: p_test_id => x_gmd_qc_tests_rec.test_id,
514: x_min_range => l_min_range,
515: x_max_range => l_max_range,
516: x_return_status => x_return_status,

Line 561: FROM GMD_QC_TEST_VALUES_B

557:
558: IF x_gmd_qc_tests_rec.test_type = 'T' THEN
559: SELECT MIN(text_range_seq),MAX(text_range_seq)
560: INTO l_min_range,l_max_range
561: FROM GMD_QC_TEST_VALUES_B
562: WHERE test_id = x_gmd_qc_tests_rec.test_id;
563:
564: UPDATE GMD_QC_TESTS_B
565: SET min_value_num = l_min_range,

Line 582: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_INSERT_ALL');

578: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
579:
580: WHEN OTHERS THEN
581: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
582: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_INSERT_ALL');
583: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
584: FND_MESSAGE.Set_Token('POSITION',l_progress );
585: FND_MSG_PUB.ADD;
586: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 614: SELECT test_id FROM GMD_QC_TEST_VALUES_B

610: l_test_id NUMBER;
611: l_display_precision NUMBER(1);
612:
613: CURSOR cr_get_test_id IS
614: SELECT test_id FROM GMD_QC_TEST_VALUES_B
615: WHERE test_value_id = p_test_value_id ;
616:
617: BEGIN
618: l_progress := '010';

Line 655: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_DELETE');

651: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
652:
653: WHEN OTHERS THEN
654: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
655: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_BEFORE_DELETE');
656: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
657: FND_MESSAGE.Set_Token('POSITION',l_progress );
658: FND_MSG_PUB.ADD;
659: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 691: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_DELETE_ALL');

687: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
688:
689: WHEN OTHERS THEN
690: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
691: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TEST_VALUES_GRP.VALIDATE_AFTER_DELETE_ALL');
692: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
693: FND_MESSAGE.Set_Token('POSITION',l_progress );
694: FND_MSG_PUB.ADD;
695: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);

Line 708: FROM GMD_QC_TEST_VALUES_B

704: l_seq BINARY_INTEGER;
705: BEGIN
706:
707: SELECT text_range_seq INTO l_seq
708: FROM GMD_QC_TEST_VALUES_B
709: WHERE test_id = p_test_id
710: AND value_char = p_value_char ;
711:
712: RETURN (l_seq);

Line 722: END GMD_QC_TEST_VALUES_GRP ;

718: FND_MSG_PUB.ADD;
719: RETURN(-1);
720: END text_range_char_to_seq;
721:
722: END GMD_QC_TEST_VALUES_GRP ;