[Home] [Help]
25: l_exists VARCHAR2(1);
26: BEGIN
27: l_progress := '010';
28:
29: IF FND_API.to_Boolean( p_init_msg_list ) THEN
30: FND_MSG_PUB.initialize; -- clear the message stack.
31: END IF;
32:
33: IF p_test_id IS NULL AND p_test_code IS NULL THEN
88:
89: BEGIN
90: l_progress := '010';
91:
92: IF FND_API.to_Boolean( p_init_msg_list ) THEN
93: FND_MSG_PUB.initialize; -- clear the message stack.
94: END IF;
95:
96: IF p_test_id IS NULL THEN
156: l_test_rec GMD_QC_TESTS%ROWTYPE ;
157: BEGIN
158: l_progress := '010';
159:
160: x_return_status := FND_API.G_RET_STS_SUCCESS ;
161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
162: FND_MSG_PUB.initialize; -- clear the message stack.
163: END IF;
164:
157: BEGIN
158: l_progress := '010';
159:
160: x_return_status := FND_API.G_RET_STS_SUCCESS ;
161: IF FND_API.to_Boolean( p_init_msg_list ) THEN
162: FND_MSG_PUB.initialize; -- clear the message stack.
163: END IF;
164:
165: IF p_expression IS NULL THEN
164:
165: IF p_expression IS NULL THEN
166: FND_MESSAGE.Set_Name('GMD','GMD_NO_EXPRESSION');
167: FND_MSG_PUB.ADD;
168: RAISE FND_API.G_EXC_ERROR ;
169: END IF;
170:
171: l_progress := '020';
172:
173: GMD_UTILITY_PKG.parse(x_exp => p_expression,
174: x_exptab => l_exptab,
175: x_return_status => x_return_status);
176:
177: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
178: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
179: RETURN;
180: END IF;
181:
174: x_exptab => l_exptab,
175: x_return_status => x_return_status);
176:
177: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
178: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
179: RETURN;
180: END IF;
181:
182: l_progress := '030';
192: x_gmd_qc_tests => l_test_rec)) THEN
193: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_TEST_EXP');
194: FND_MESSAGE.SET_TOKEN('TEST',l_exptab(i).poperand);
195: FND_MSG_PUB.ADD;
196: RAISE FND_API.G_EXC_ERROR ;
197: ELSIF l_test_rec.delete_mark = 1 OR l_test_rec.test_type IN ('U','V','T','E') THEN
198: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_TEST_EXP');
199: FND_MESSAGE.SET_TOKEN('TEST',l_exptab(i).poperand);
200: FND_MSG_PUB.ADD;
197: ELSIF l_test_rec.delete_mark = 1 OR l_test_rec.test_type IN ('U','V','T','E') THEN
198: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_TEST_EXP');
199: FND_MESSAGE.SET_TOKEN('TEST',l_exptab(i).poperand);
200: FND_MSG_PUB.ADD;
201: RAISE FND_API.G_EXC_ERROR ;
202: END IF;
203:
204: -- valid test
205:
211: END IF;
212: END LOOP ;
213:
214: EXCEPTION
215: WHEN FND_API.G_EXC_ERROR THEN
216: x_return_status := FND_API.G_RET_STS_ERROR ;
217: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
218:
219: WHEN OTHERS THEN
212: END LOOP ;
213:
214: EXCEPTION
215: WHEN FND_API.G_EXC_ERROR THEN
216: x_return_status := FND_API.G_RET_STS_ERROR ;
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');
213:
214: EXCEPTION
215: WHEN FND_API.G_EXC_ERROR THEN
216: x_return_status := FND_API.G_RET_STS_ERROR ;
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_TESTS_GRP.VALIDATE_EXPRESSION' );
221: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.VALIDATE_EXPRESSION' );
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);
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: END VALIDATE_EXPRESSION;
228:
229:
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);
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: END VALIDATE_EXPRESSION;
228:
229:
230:
247:
248: BEGIN
249: l_progress := '010';
250:
251: x_return_status := FND_API.G_RET_STS_SUCCESS ;
252: IF FND_API.to_Boolean( p_init_msg_list ) THEN
253: FND_MSG_PUB.initialize; -- clear the message stack.
254: END IF;
255:
248: BEGIN
249: l_progress := '010';
250:
251: x_return_status := FND_API.G_RET_STS_SUCCESS ;
252: IF FND_API.to_Boolean( p_init_msg_list ) THEN
253: FND_MSG_PUB.initialize; -- clear the message stack.
254: END IF;
255:
256: IF p_test_id IS NULL THEN
255:
256: IF p_test_id IS NULL THEN
257: FND_MESSAGE.Set_Name('GMD','GMD_TEST_ID_CODE_NULL');
258: FND_MSG_PUB.ADD;
259: RAISE FND_API.G_EXC_ERROR ;
260: END IF;
261:
262: l_progress := '020';
263:
288: END IF;
289:
290:
291: EXCEPTION
292: WHEN FND_API.G_EXC_ERROR THEN
293: x_return_status := FND_API.G_RET_STS_ERROR ;
294: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
295: WHEN OTHERS THEN
296: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
289:
290:
291: EXCEPTION
292: WHEN FND_API.G_EXC_ERROR THEN
293: x_return_status := FND_API.G_RET_STS_ERROR ;
294: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
295: WHEN OTHERS THEN
296: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
297: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.INSERT_EXP_TEST_VALUES' );
290:
291: EXCEPTION
292: WHEN FND_API.G_EXC_ERROR THEN
293: x_return_status := FND_API.G_RET_STS_ERROR ;
294: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
295: WHEN OTHERS THEN
296: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
297: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.INSERT_EXP_TEST_VALUES' );
298: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
297: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.INSERT_EXP_TEST_VALUES' );
298: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
299: FND_MESSAGE.Set_Token('POSITION',l_progress );
300: FND_MSG_PUB.ADD;
301: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: END insert_exp_test_values;
304:
305:
298: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
299: FND_MESSAGE.Set_Token('POSITION',l_progress );
300: FND_MSG_PUB.ADD;
301: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: END insert_exp_test_values;
304:
305:
306: /*===========================================================================
334:
335: BEGIN
336: l_progress := '010';
337:
338: x_return_status := FND_API.G_RET_STS_SUCCESS ;
339: IF FND_API.to_Boolean( p_init_msg_list ) THEN
340: FND_MSG_PUB.initialize; -- clear the message stack.
341: END IF;
342:
335: BEGIN
336: l_progress := '010';
337:
338: x_return_status := FND_API.G_RET_STS_SUCCESS ;
339: IF FND_API.to_Boolean( p_init_msg_list ) THEN
340: FND_MSG_PUB.initialize; -- clear the message stack.
341: END IF;
342:
343: IF (p_new_report_precision IS NOT NULL AND p_new_report_precision not between 0 and 9)
344: THEN
345: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_PRECISION');
346: FND_MESSAGE.Set_Token('PRECISION',p_new_report_precision);
347: FND_MSG_PUB.ADD;
348: RAISE FND_API.G_EXC_ERROR;
349: END IF;
350:
351: IF (p_new_display_precision IS NOT NULL AND p_new_display_precision not between 0 and 9)
352: THEN
352: THEN
353: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_PRECISION');
354: FND_MESSAGE.Set_Token('PRECISION',p_new_display_precision);
355: FND_MSG_PUB.ADD;
356: RAISE FND_API.G_EXC_ERROR;
357: END IF;
358:
359: IF (p_validation_level = 'DISPLAY_PRECISION') AND (p_new_display_precision IS NULL) THEN
360: RETURN;
377: WHEN NO_DATA_FOUND THEN
378: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_TEST_METHOD');
379: FND_MESSAGE.Set_Token('TEST_METHOD',to_char(p_test_method_id));
380: FND_MSG_PUB.ADD;
381: RAISE FND_API.G_EXC_ERROR;
382: END ;
383: END IF;
384:
385: l_progress := '030';
394:
395: IF l_old_display_precision IS NULL OR l_old_report_precision IS NULL THEN
396: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_PRECISION');
397: FND_MSG_PUB.ADD;
398: RAISE FND_API.G_EXC_ERROR;
399: END IF;
400: ELSE
401: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_TEST');
402: FND_MESSAGE.SET_TOKEN('TEST',to_char(p_test_id));
400: ELSE
401: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_TEST');
402: FND_MESSAGE.SET_TOKEN('TEST',to_char(p_test_id));
403: FND_MSG_PUB.ADD;
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406: END IF;
407:
408: l_progress := '040';
419: IF l_test_method_precision IS NOT NULL AND p_new_display_precision > l_test_method_precision THEN
420: FND_MESSAGE.Set_Name('GMD','GMD_TST_PRCSN_GRTR_TSTMTHD');
421: FND_MESSAGE.Set_Token('TEST_METHOD_PRECISION',TO_CHAR(l_test_method_precision));
422: FND_MSG_PUB.ADD;
423: RAISE FND_API.G_EXC_ERROR;
424: END IF;
425:
426: IF p_new_report_precision > p_new_display_precision THEN
427: FND_MESSAGE.Set_Name('GMD','GMD_REP_GRTR_DIS_PRCSN');
425:
426: IF p_new_report_precision > p_new_display_precision THEN
427: FND_MESSAGE.Set_Name('GMD','GMD_REP_GRTR_DIS_PRCSN');
428: FND_MSG_PUB.ADD;
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431:
432: END IF;
433:
439: IF p_new_report_precision < l_old_report_precision THEN
440: FND_MESSAGE.Set_Name('GMD','GMD_NEW_PRCSN_LESS_OLD');
441: FND_MESSAGE.Set_Token('OLD_PRECISION',to_char(l_old_report_precision));
442: FND_MSG_PUB.ADD;
443: RAISE FND_API.G_EXC_ERROR;
444: END IF;
445: END IF;
446:
447: IF p_validation_level IN ('FULL','DISPLAY_PRECISION') THEN
448: IF p_new_display_precision < l_old_display_precision THEN
449: FND_MESSAGE.Set_Name('GMD','GMD_NEW_PRCSN_LESS_OLD');
450: FND_MESSAGE.Set_Token('OLD_PRECISION',to_char(l_old_display_precision));
451: FND_MSG_PUB.ADD;
452: RAISE FND_API.G_EXC_ERROR;
453: END IF;
454: END IF;
455: END IF;
456: END IF;
455: END IF;
456: END IF;
457:
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
462: WHEN OTHERS THEN
463: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
456: END IF;
457:
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
462: WHEN OTHERS THEN
463: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
464: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.DISPLAY_REPORT_PRECISION' );
457:
458: EXCEPTION
459: WHEN FND_API.G_EXC_ERROR THEN
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
462: WHEN OTHERS THEN
463: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
464: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.DISPLAY_REPORT_PRECISION' );
465: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
464: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.DISPLAY_REPORT_PRECISION' );
465: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
466: FND_MESSAGE.Set_Token('POSITION',l_progress );
467: FND_MSG_PUB.ADD;
468: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470: END DISPLAY_REPORT_PRECISION;
471:
472:
465: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
466: FND_MESSAGE.Set_Token('POSITION',l_progress );
467: FND_MSG_PUB.ADD;
468: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
470: END DISPLAY_REPORT_PRECISION;
471:
472:
473: PROCEDURE MIN_MAX_VALUE_NUM(
486: IF p_test_type NOT IN ('N','E') THEN
487: RETURN;
488: END IF;
489:
490: x_return_status := FND_API.G_RET_STS_SUCCESS ;
491: IF FND_API.to_Boolean( p_init_msg_list ) THEN
492: FND_MSG_PUB.initialize; -- clear the message stack.
493: END IF;
494:
487: RETURN;
488: END IF;
489:
490: x_return_status := FND_API.G_RET_STS_SUCCESS ;
491: IF FND_API.to_Boolean( p_init_msg_list ) THEN
492: FND_MSG_PUB.initialize; -- clear the message stack.
493: END IF;
494:
495: l_progress := '020';
497: IF p_min_value_num IS NOT NULL AND p_max_value_num IS NOT NULL THEN
498: IF p_min_value_num > p_max_value_num THEN
499: FND_MESSAGE.Set_Name('GMD','QC_MIN_MAX_SPEC');
500: FND_MSG_PUB.ADD;
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503: END IF;
504:
505: EXCEPTION
502: END IF;
503: END IF;
504:
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: x_return_status := FND_API.G_RET_STS_ERROR ;
508: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
503: END IF;
504:
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: x_return_status := FND_API.G_RET_STS_ERROR ;
508: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.MIN_MAX_VALUE_NUM');
504:
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: x_return_status := FND_API.G_RET_STS_ERROR ;
508: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.MIN_MAX_VALUE_NUM');
512: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
511: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.MIN_MAX_VALUE_NUM');
512: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
513: FND_MESSAGE.Set_Token('POSITION',l_progress );
514: FND_MSG_PUB.ADD;
515: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: END MIN_MAX_VALUE_NUM ;
518:
519: /*===========================================================================
512: FND_MESSAGE.Set_Token('ERROR', SUBSTR(SQLERRM,1,100));
513: FND_MESSAGE.Set_Token('POSITION',l_progress );
514: FND_MSG_PUB.ADD;
515: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: END MIN_MAX_VALUE_NUM ;
518:
519: /*===========================================================================
520:
536:
537: BEGIN
538: l_progress := '010';
539:
540: x_return_status := FND_API.G_RET_STS_SUCCESS ;
541: IF (p_test_min IS NULL OR p_test_max IS NULL ) AND (p_validation_level = 'SPEC')
542: AND (p_exp_error_type = 'N') THEN
543: RETURN;
544: END IF;
542: AND (p_exp_error_type = 'N') THEN
543: RETURN;
544: END IF;
545:
546: IF FND_API.to_Boolean( p_init_msg_list ) THEN
547: FND_MSG_PUB.initialize; -- clear the message stack.
548: END IF;
549:
550: IF p_exp_error_type IS NOT NULL AND p_exp_error_type NOT IN ('N','P') THEN
549:
550: IF p_exp_error_type IS NOT NULL AND p_exp_error_type NOT IN ('N','P') THEN
551: FND_MESSAGE.Set_Name('GMD','GMD_EXP_ERROR_TYPE_REQ');
552: FND_MSG_PUB.ADD;
553: RAISE FND_API.G_EXC_ERROR;
554: END IF;
555:
556: l_progress := '020';
557:
560: IF ABS(p_spec_value) > ABS(p_test_max - p_test_min) THEN
561: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_SPEC_VAL_NUM');
562: FND_MESSAGE.SET_TOKEN('MAX_VAL',to_char(ABS(p_test_max - p_test_min)));
563: FND_MSG_PUB.ADD;
564: RAISE FND_API.G_EXC_ERROR;
565: END IF;
566: ELSE
567: IF ABS(p_spec_value) > 100 THEN
568: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_SPEC_VAL_NUM');
567: IF ABS(p_spec_value) > 100 THEN
568: FND_MESSAGE.Set_Name('GMD','GMD_INVALID_SPEC_VAL_NUM');
569: FND_MESSAGE.SET_TOKEN('MAX_VAL',100);
570: FND_MSG_PUB.ADD;
571: RAISE FND_API.G_EXC_ERROR;
572: END IF;
573: END IF;
574: END IF;
575:
576: IF p_action_code IS NOT NULL and p_spec_value IS NULL AND
577: p_validation_level IN ('ACTION','FULL') THEN
578: FND_MESSAGE.Set_Name('GMD','GMD_EXP_ERR_VAL_REQ_ACTION');
579: FND_MSG_PUB.ADD;
580: RAISE FND_API.G_EXC_ERROR;
581: END IF;
582:
583:
584: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
580: RAISE FND_API.G_EXC_ERROR;
581: END IF;
582:
583:
584: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR ;
586: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
587: WHEN OTHERS THEN
588: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
581: END IF;
582:
583:
584: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR ;
586: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
587: WHEN OTHERS THEN
588: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
589: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_experimental_error');
582:
583:
584: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
585: x_return_status := FND_API.G_RET_STS_ERROR ;
586: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
587: WHEN OTHERS THEN
588: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
589: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_experimental_error');
590: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
589: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_experimental_error');
590: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
591: FND_MESSAGE.Set_Token('POSITION',l_progress );
592: FND_MSG_PUB.ADD;
593: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: END validate_experimental_error;
596:
597: --+========================================================================+
590: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
591: FND_MESSAGE.Set_Token('POSITION',l_progress );
592: FND_MSG_PUB.ADD;
593: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: END validate_experimental_error;
596:
597: --+========================================================================+
598: --| API Name : validate_all_exp_error |
624:
625: BEGIN
626: l_progress := '010';
627:
628: x_return_status := FND_API.G_RET_STS_SUCCESS ;
629:
630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
631: FND_MSG_PUB.initialize; -- clear the message stack.
632: END IF;
626: l_progress := '010';
627:
628: x_return_status := FND_API.G_RET_STS_SUCCESS ;
629:
630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
631: FND_MSG_PUB.initialize; -- clear the message stack.
632: END IF;
633:
634: IF p_exp_error_type IS NOT NULL AND p_exp_error_type NOT IN ('N','P') THEN
633:
634: IF p_exp_error_type IS NOT NULL AND p_exp_error_type NOT IN ('N','P') THEN
635: FND_MESSAGE.Set_Name('GMD','GMD_EXP_ERROR_TYPE_REQ');
636: FND_MSG_PUB.ADD;
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
639:
640: l_progress := '020';
641:
648: p_test_max => p_test_max,
649: x_return_status => x_return_status,
650: x_message_data => x_message_data );
651:
652: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
653: RETURN;
654: END IF;
655:
656: l_progress := '030';
664: p_test_max => p_test_max,
665: x_return_status => x_return_status,
666: x_message_data => x_message_data );
667:
668: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
669: RETURN;
670: END IF;
671:
672: l_progress := '030';
680: p_test_max => p_test_max,
681: x_return_status => x_return_status,
682: x_message_data => x_message_data );
683:
684: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
685: RETURN;
686: END IF;
687:
688: l_progress := '040';
696: p_test_max => p_test_max,
697: x_return_status => x_return_status,
698: x_message_data => x_message_data );
699:
700: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
701: RETURN;
702: END IF;
703:
704: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
700: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
701: RETURN;
702: END IF;
703:
704: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR ;
706: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
707: WHEN OTHERS THEN
708: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
701: RETURN;
702: END IF;
703:
704: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR ;
706: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
707: WHEN OTHERS THEN
708: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
709: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_all_exp_error');
702: END IF;
703:
704: EXCEPTION WHEN FND_API.G_EXC_ERROR THEN
705: x_return_status := FND_API.G_RET_STS_ERROR ;
706: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
707: WHEN OTHERS THEN
708: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
709: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_all_exp_error');
710: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
709: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_all_exp_error');
710: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
711: FND_MESSAGE.Set_Token('POSITION',l_progress );
712: FND_MSG_PUB.ADD;
713: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: END validate_all_exp_error;
716:
717:
710: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
711: FND_MESSAGE.Set_Token('POSITION',l_progress );
712: FND_MSG_PUB.ADD;
713: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: END validate_all_exp_error;
716:
717:
718: /*===========================================================================
794: BEGIN
795:
796: l_progress := '010';
797:
798: x_return_status := FND_API.G_RET_STS_SUCCESS ;
799:
800: x_gmd_qc_tests_rec := p_gmd_qc_tests_rec ;
801:
802: -- Test Code
803:
804: IF (LTRIM(RTRIM(x_gmd_qc_tests_rec.test_code)) IS NULL) THEN
805: FND_MESSAGE.SET_NAME('GMD', 'GMD_TEST_ID_CODE_NULL');
806: FND_MSG_PUB.ADD;
807: RAISE FND_API.G_EXC_ERROR;
808: END IF;
809:
810: -- Test Description
811:
811:
812: IF (LTRIM(RTRIM(x_gmd_qc_tests_rec.test_desc)) IS NULL) THEN
813: FND_MESSAGE.SET_NAME('GMD', 'GMD_TEST_DESC_REQD');
814: FND_MSG_PUB.ADD;
815: RAISE FND_API.G_EXC_ERROR;
816: END IF;
817:
818: -- Test Method
819:
819:
820: IF x_gmd_qc_tests_rec.test_method_id IS NULL THEN
821: FND_MESSAGE.SET_NAME('GMD', 'GMD_TEST_METHOD_REQD');
822: FND_MSG_PUB.ADD;
823: RAISE FND_API.G_EXC_ERROR;
824: ELSE
825: OPEN cr_check_valid_test_method(x_gmd_qc_tests_rec.test_method_id);
826: FETCH cr_check_valid_test_method INTO l_temp;
827: IF cr_check_valid_test_method%NOTFOUND THEN
828: CLOSE cr_check_valid_test_method;
829: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_METHOD');
830: FND_MESSAGE.SET_TOKEN('TEST_METHOD', TO_CHAR(x_gmd_qc_tests_rec.test_method_id));
831: FND_MSG_PUB.ADD;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: CLOSE cr_check_valid_test_method ;
835:
836: END IF;
840:
841: IF x_gmd_qc_tests_rec.test_type IS NULL THEN
842: FND_MESSAGE.SET_NAME('GMD', 'GMD_TEST_TYPE_REQD');
843: FND_MSG_PUB.ADD;
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF x_gmd_qc_tests_rec.test_type NOT IN ('U','N','E','L','V','T') THEN
846: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_TYPE');
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
844: RAISE FND_API.G_EXC_ERROR;
845: ELSIF x_gmd_qc_tests_rec.test_type NOT IN ('U','N','E','L','V','T') THEN
846: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_TYPE');
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
851: -- Test Priority
852: IF x_gmd_qc_tests_rec.priority IS NULL THEN
854:
855: ELSIF (NOT validate_test_priority(p_test_priority => x_gmd_qc_tests_rec.priority)) THEN
856: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_PRIORITY');
857: FND_MSG_PUB.ADD;
858: RAISE FND_API.G_EXC_ERROR;
859: END IF;
860:
861: x_gmd_qc_tests_rec.delete_mark := 0;
862:
863: IF x_gmd_qc_tests_rec.test_type NOT IN ('N','E') THEN
864: IF (x_gmd_qc_tests_rec.min_value_num IS NOT NULL OR x_gmd_qc_tests_rec.max_value_num IS NOT NULL) THEN
865: FND_MESSAGE.SET_NAME('GMD','GMD_TEST_RANGE_NOT_REQD');
866: FND_MSG_PUB.ADD;
867: RAISE FND_API.G_EXC_ERROR;
868: END IF;
869:
870: ELSE
871: IF (x_gmd_qc_tests_rec.min_value_num IS NULL OR x_gmd_qc_tests_rec.max_value_num IS NULL) THEN
870: ELSE
871: IF (x_gmd_qc_tests_rec.min_value_num IS NULL OR x_gmd_qc_tests_rec.max_value_num IS NULL) THEN
872: FND_MESSAGE.SET_NAME('GMD', 'GMD_TEST_RANGE_REQ');
873: FND_MSG_PUB.ADD;
874: RAISE FND_API.G_EXC_ERROR;
875: END IF;
876: END IF;
877:
878: IF x_gmd_qc_tests_rec.test_type = 'E' THEN
878: IF x_gmd_qc_tests_rec.test_type = 'E' THEN
879: IF x_gmd_qc_tests_rec.expression IS NULL THEN
880: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXPRESSION_REQD');
881: FND_MSG_PUB.ADD;
882: RAISE FND_API.G_EXC_ERROR;
883: END IF;
884: ELSIF x_gmd_qc_tests_rec.expression IS NOT NULL THEN
885: FND_MESSAGE.SET_NAME('GMD','GMD_EXPRESSION_NOT_REQD');
886: FND_MSG_PUB.ADD;
883: END IF;
884: ELSIF x_gmd_qc_tests_rec.expression IS NOT NULL THEN
885: FND_MESSAGE.SET_NAME('GMD','GMD_EXPRESSION_NOT_REQD');
886: FND_MSG_PUB.ADD;
887: RAISE FND_API.G_EXC_ERROR;
888: END IF;
889:
890: IF x_gmd_qc_tests_rec.test_type IN ('U','T','V') THEN
891: --BEGIN BUG#3545701
892: --Commented the code for Non-validated tests.
893: /* IF x_gmd_qc_tests_rec.test_type = 'U' and x_gmd_qc_tests_rec.test_unit IS NOT NULL THEN
894: FND_MESSAGE.SET_NAME('GMD','GMD_TEST_UNIT_NOT_REQD');
895: FND_MSG_PUB.ADD;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF; */
898: --END BUG#3545701
899: IF (x_gmd_qc_tests_rec.display_precision IS NOT NULL OR x_gmd_qc_tests_rec.report_precision IS NOT NULL) THEN
900: FND_MESSAGE.SET_NAME('GMD','GMD_PRECISION_NOT_REQD');
898: --END BUG#3545701
899: IF (x_gmd_qc_tests_rec.display_precision IS NOT NULL OR x_gmd_qc_tests_rec.report_precision IS NOT NULL) THEN
900: FND_MESSAGE.SET_NAME('GMD','GMD_PRECISION_NOT_REQD');
901: FND_MSG_PUB.ADD;
902: RAISE FND_API.G_EXC_ERROR;
903: END IF;
904:
905: IF x_gmd_qc_tests_rec.exp_error_type IS NOT NULL THEN
906: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_EXP_ERROR_TYPE');
904:
905: IF x_gmd_qc_tests_rec.exp_error_type IS NOT NULL THEN
906: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_EXP_ERROR_TYPE');
907: FND_MSG_PUB.ADD;
908: RAISE FND_API.G_EXC_ERROR;
909: END IF;
910:
911: IF (x_gmd_qc_tests_rec.below_spec_min IS NOT NULL OR x_gmd_qc_tests_rec.below_min_action_code IS NOT NULL )
912: OR (x_gmd_qc_tests_rec.above_spec_min IS NOT NULL OR x_gmd_qc_tests_rec.above_min_action_code IS NOT NULL )
913: OR (x_gmd_qc_tests_rec.below_spec_max IS NOT NULL OR x_gmd_qc_tests_rec.below_max_action_code IS NOT NULL )
914: OR (x_gmd_qc_tests_rec.above_spec_max IS NOT NULL OR x_gmd_qc_tests_rec.above_max_action_code IS NOT NULL ) THEN
915: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXP_ERROR_NOT_REQD');
916: FND_MSG_PUB.ADD;
917: RAISE FND_API.G_EXC_ERROR;
918: END IF;
919: ELSE
920: IF x_gmd_qc_tests_rec.test_unit IS NULL THEN
921: FND_MESSAGE.SET_NAME('GMD','GMD_TEST_UNIT_REQD');
920: IF x_gmd_qc_tests_rec.test_unit IS NULL THEN
921: FND_MESSAGE.SET_NAME('GMD','GMD_TEST_UNIT_REQD');
922: FND_MESSAGE.SET_TOKEN('TEST',x_gmd_qc_tests_rec.test_code);
923: FND_MSG_PUB.ADD;
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926:
927: IF (x_gmd_qc_tests_rec.display_precision IS NULL OR x_gmd_qc_tests_rec.report_precision IS NULL ) THEN
928: FND_MESSAGE.SET_NAME('GMD', 'GMD_PRECISION_REQD');
927: IF (x_gmd_qc_tests_rec.display_precision IS NULL OR x_gmd_qc_tests_rec.report_precision IS NULL ) THEN
928: FND_MESSAGE.SET_NAME('GMD', 'GMD_PRECISION_REQD');
929: FND_MESSAGE.SET_TOKEN('TEST',x_gmd_qc_tests_rec.test_code);
930: FND_MSG_PUB.ADD;
931: RAISE FND_API.G_EXC_ERROR;
932: END IF;
933:
934: IF ((x_gmd_qc_tests_rec.exp_error_type IN ('N','P')) OR (x_gmd_qc_tests_rec.exp_error_type IS NULL)) THEN
935: NULL ;
935: NULL ;
936: ELSE
937: FND_MESSAGE.SET_NAME('GMD','GMD_INVALID_EXP_ERROR_TYPE');
938: FND_MSG_PUB.ADD;
939: RAISE FND_API.G_EXC_ERROR;
940: END IF;
941:
942: END IF;
943:
948: OR x_gmd_qc_tests_rec.below_spec_max IS NOT NULL OR x_gmd_qc_tests_rec.above_spec_max IS NOT NULL)
949: THEN
950: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXP_ERROR_TYPE_REQ');
951: FND_MSG_PUB.ADD;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: IF x_gmd_qc_tests_rec.exp_error_type IS NOT NULL AND
956: (x_gmd_qc_tests_rec.below_spec_min IS NULL AND x_gmd_qc_tests_rec.above_spec_min IS NULL
957: AND x_gmd_qc_tests_rec.below_spec_max IS NULL AND x_gmd_qc_tests_rec.above_spec_max IS NULL)
958: THEN
959: FND_MESSAGE.SET_NAME('GMD', 'GMD_EXP_ERR_TYPE_NULL');
960: FND_MSG_PUB.ADD;
961: RAISE FND_API.G_EXC_ERROR;
962: END IF;
963:
964: IF x_gmd_qc_tests_rec.TEST_UNIT IS NOT NULL THEN
965: OPEN cr_check_valid_test_unit(x_gmd_qc_tests_rec.test_unit);
968: CLOSE cr_check_valid_test_unit;
969: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_UNIT');
970: FND_MESSAGE.SET_TOKEN('TEST_UNIT',x_gmd_qc_tests_rec.test_unit);
971: FND_MSG_PUB.ADD;
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974: CLOSE cr_check_valid_test_unit ;
975: END IF;
976:
981: CLOSE cr_check_valid_test_class;
982: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_TEST_CLASS');
983: FND_MESSAGE.SET_TOKEN('TEST_CLASS', x_gmd_qc_tests_rec.test_class);
984: FND_MSG_PUB.ADD;
985: RAISE FND_API.G_EXC_ERROR;
986: END IF;
987: CLOSE cr_check_valid_test_class ;
988: END IF;
989:
996: CLOSE cr_check_valid_action_code;
997: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ACTION_CODE');
998: FND_MESSAGE.SET_TOKEN('ACTION', x_gmd_qc_tests_rec.below_min_action_code);
999: FND_MSG_PUB.ADD;
1000: RAISE FND_API.G_EXC_ERROR;
1001: END IF;
1002: CLOSE cr_check_valid_action_code ;
1003: END IF;
1004:
1009: CLOSE cr_check_valid_action_code;
1010: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ACTION_CODE');
1011: FND_MESSAGE.SET_TOKEN('ACTION', x_gmd_qc_tests_rec.above_min_action_code);
1012: FND_MSG_PUB.ADD;
1013: RAISE FND_API.G_EXC_ERROR;
1014: END IF;
1015: CLOSE cr_check_valid_action_code ;
1016: END IF;
1017:
1022: CLOSE cr_check_valid_action_code;
1023: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ACTION_CODE');
1024: FND_MESSAGE.SET_TOKEN('ACTION', x_gmd_qc_tests_rec.below_max_action_code);
1025: FND_MSG_PUB.ADD;
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028: CLOSE cr_check_valid_action_code ;
1029: END IF;
1030:
1035: CLOSE cr_check_valid_action_code;
1036: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ACTION_CODE');
1037: FND_MESSAGE.SET_TOKEN('ACTION', x_gmd_qc_tests_rec.above_max_action_code);
1038: FND_MSG_PUB.ADD;
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041: CLOSE cr_check_valid_action_code ;
1042: END IF;
1043:
1044: -- make test_id null. generate test id with sequence.
1045: x_gmd_qc_tests_rec.test_id := NULL;
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_ERROR ;
1050: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1051:
1052: WHEN OTHERS THEN
1045: x_gmd_qc_tests_rec.test_id := NULL;
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_ERROR ;
1050: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1051:
1052: WHEN OTHERS THEN
1053: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: x_return_status := FND_API.G_RET_STS_ERROR ;
1050: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1051:
1052: WHEN OTHERS THEN
1053: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1054: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.check_for_null_and_fks');
1054: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.check_for_null_and_fks');
1055: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1056: FND_MESSAGE.Set_Token('POSITION',l_progress );
1057: FND_MSG_PUB.ADD;
1058: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060:
1061: END check_for_null_and_fks;
1062:
1055: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1056: FND_MESSAGE.Set_Token('POSITION',l_progress );
1057: FND_MSG_PUB.ADD;
1058: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060:
1061: END check_for_null_and_fks;
1062:
1063:
1072:
1073: BEGIN
1074: l_progress := '010';
1075:
1076: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1077:
1078: CHECK_FOR_NULL_AND_FKS(
1079: p_gmd_qc_tests_rec => p_gmd_qc_tests_rec,
1080: x_gmd_qc_tests_rec => x_gmd_qc_tests_rec,
1080: x_gmd_qc_tests_rec => x_gmd_qc_tests_rec,
1081: x_return_status => x_return_status,
1082: x_message_data => x_message_data );
1083:
1084: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1085: RETURN;
1086: END IF;
1087:
1088: -- check for duplicate test_code.
1088: -- check for duplicate test_code.
1089: IF CHECK_TEST_EXIST(p_test_code => x_gmd_qc_tests_rec.test_code) THEN
1090: FND_MESSAGE.SET_NAME('GMD','SY_WFDUPLICATE');
1091: FND_MSG_PUB.ADD;
1092: RAISE FND_API.G_EXC_ERROR;
1093: END IF;
1094:
1095: IF x_gmd_qc_tests_rec.test_type = 'E' THEN
1096: validate_expression(
1098: x_test_tab => l_exp_test_id_tab,
1099: x_return_status => x_return_status,
1100: x_message_data => x_message_data );
1101:
1102: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1103: RETURN;
1104: END IF;
1105: END IF;
1106:
1113: p_new_report_precision => x_gmd_qc_tests_rec.report_precision,
1114: x_return_status => x_return_status,
1115: x_message_data => x_message_data );
1116:
1117: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1118: RETURN;
1119: END IF;
1120: END IF;
1121:
1134: p_max_value_num => x_gmd_qc_tests_rec.max_value_num,
1135: x_return_status => x_return_status,
1136: x_message_data => x_message_data );
1137:
1138: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1139: RETURN;
1140: END IF;
1141:
1142: IF x_gmd_qc_tests_rec.exp_error_type IS NOT NULL THEN
1161: p_test_max => x_gmd_qc_tests_rec.max_value_num,
1162: x_return_status => x_return_status,
1163: x_message_data => x_message_data );
1164:
1165: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1166: RETURN;
1167: END IF;
1168:
1169: END IF;
1170:
1171: END IF; -- IF x_gmd_qc_tests_rec.test_type in ('N','L','E') THEN
1172:
1173: EXCEPTION
1174: WHEN FND_API.G_EXC_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_ERROR ;
1176: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1177:
1178: WHEN OTHERS THEN
1171: END IF; -- IF x_gmd_qc_tests_rec.test_type in ('N','L','E') THEN
1172:
1173: EXCEPTION
1174: WHEN FND_API.G_EXC_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_ERROR ;
1176: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1177:
1178: WHEN OTHERS THEN
1179: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1172:
1173: EXCEPTION
1174: WHEN FND_API.G_EXC_ERROR THEN
1175: x_return_status := FND_API.G_RET_STS_ERROR ;
1176: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1177:
1178: WHEN OTHERS THEN
1179: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1180: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_before_insert');
1180: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.validate_before_insert');
1181: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1182: FND_MESSAGE.Set_Token('POSITION',l_progress );
1183: FND_MSG_PUB.ADD;
1184: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: END validate_before_insert ;
1187:
1188: /*===========================================================================
1181: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1182: FND_MESSAGE.Set_Token('POSITION',l_progress );
1183: FND_MSG_PUB.ADD;
1184: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186: END validate_before_insert ;
1187:
1188: /*===========================================================================
1189:
1203:
1204: BEGIN
1205: l_progress := '010';
1206:
1207: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1208:
1209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1210: FND_MSG_PUB.initialize; -- clear the message stack.
1211: END IF;
1205: l_progress := '010';
1206:
1207: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1208:
1209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1210: FND_MSG_PUB.initialize; -- clear the message stack.
1211: END IF;
1212:
1213: IF p_gmd_qc_tests_rec.test_id IS NULL THEN
1212:
1213: IF p_gmd_qc_tests_rec.test_id IS NULL THEN
1214: FND_MESSAGE.SET_NAME('GMD','GMD_TEST_ID_CODE_NULL');
1215: FND_MSG_PUB.ADD;
1216: RAISE FND_API.G_EXC_ERROR;
1217: END IF;
1218:
1219: IF p_gmd_qc_tests_rec.test_type = 'E' THEN
1220: validate_expression(
1222: x_test_tab => l_exp_test_id_tab,
1223: x_return_status => x_return_status,
1224: x_message_data => x_message_data );
1225:
1226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1227: RETURN;
1228: END IF;
1229:
1230: IF l_exp_test_id_tab.COUNT > 0 THEN
1232: p_test_id => p_gmd_qc_tests_rec.test_id,
1233: p_test_id_tab => l_exp_test_id_tab,
1234: x_return_status => x_return_status,
1235: x_message_data => x_message_data);
1236: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1237: RETURN;
1238: END IF;
1239: END IF;
1240:
1240:
1241: END IF; -- IF p_gmd_qc_tests_rec.test_type = 'E' THEN
1242:
1243: EXCEPTION
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: x_return_status := FND_API.G_RET_STS_ERROR ;
1246: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1247:
1248: WHEN OTHERS THEN
1241: END IF; -- IF p_gmd_qc_tests_rec.test_type = 'E' THEN
1242:
1243: EXCEPTION
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: x_return_status := FND_API.G_RET_STS_ERROR ;
1246: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1247:
1248: WHEN OTHERS THEN
1249: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1242:
1243: EXCEPTION
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: x_return_status := FND_API.G_RET_STS_ERROR ;
1246: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1247:
1248: WHEN OTHERS THEN
1249: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1250: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.process_after_insert');
1250: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.process_after_insert');
1251: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1252: FND_MESSAGE.Set_Token('POSITION',l_progress );
1253: FND_MSG_PUB.ADD;
1254: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: END process_after_insert ;
1257:
1258: /*===========================================================================
1251: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1252: FND_MESSAGE.Set_Token('POSITION',l_progress );
1253: FND_MSG_PUB.ADD;
1254: x_message_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST,FND_API.G_FALSE);
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: END process_after_insert ;
1257:
1258: /*===========================================================================
1259: FUNCTION NAME: test_group_order_exist
1270: l_exists VARCHAR2(1);
1271: BEGIN
1272: l_progress := '010';
1273:
1274: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1275: FND_MSG_PUB.initialize; -- clear the message stack.
1276: END IF;
1277:
1278:
1336: l_test_qty NUMBER;
1337:
1338: BEGIN
1339:
1340: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1341:
1342: delete gmd_test_group_gt;
1343: INSERT INTO GMD_TEST_GROUP_GT
1344: (TEST_GROUP_ORDER,
1414: FND_MESSAGE.Set_Name('GMD','GMD_API_ERROR');
1415: FND_MESSAGE.Set_Token('PACKAGE','GMD_QC_TESTS_GRP.POPULATE_TEST_GRP_GT' );
1416: FND_MESSAGE.Set_Token('ERROR', substr(sqlerrm,1,100));
1417: FND_MSG_PUB.ADD;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: END POPULATE_TEST_GRP_GT;
1420:
1421: /*===========================================================================
1422: FUNCTION NAME: update_test_grp