65:
66: BEGIN
67:
68: IF (l_debug = 'Y') THEN
69: gmd_debug.put_line('Entering procedure POPULATE_RESULTS');
70: gmd_debug.put_line(' Input Parameters:');
71: gmd_debug.put_line(' p_seq_id : ' || p_seq_id);
72: END IF;
73:
66: BEGIN
67:
68: IF (l_debug = 'Y') THEN
69: gmd_debug.put_line('Entering procedure POPULATE_RESULTS');
70: gmd_debug.put_line(' Input Parameters:');
71: gmd_debug.put_line(' p_seq_id : ' || p_seq_id);
72: END IF;
73:
74: -- Initialize API return status to success
67:
68: IF (l_debug = 'Y') THEN
69: gmd_debug.put_line('Entering procedure POPULATE_RESULTS');
70: gmd_debug.put_line(' Input Parameters:');
71: gmd_debug.put_line(' p_seq_id : ' || p_seq_id);
72: END IF;
73:
74: -- Initialize API return status to success
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
515:
516:
517:
518: IF (l_debug = 'Y') THEN
519: gmd_debug.put_line(' No. of rows inserted into GMD_MASS_RESULTS_GT : ' || SQL%ROWCOUNT);
520: END IF;
521:
522: UPDATE gmd_mass_results_gt
523: SET update_allowed = 0
524: WHERE (result_date IS NOT NULL OR test_type = 'E')
525: ;
526:
527: IF (l_debug = 'Y') THEN
528: gmd_debug.put_line(' No. of rows with Result or Expression Test : ' || SQL%ROWCOUNT);
529: END IF;
530:
531: IF (l_debug = 'Y') THEN
532: GMD_MASS_RESULTS_GRP.dump_data_points;
529: END IF;
530:
531: IF (l_debug = 'Y') THEN
532: GMD_MASS_RESULTS_GRP.dump_data_points;
533: gmd_debug.put_line('Leaving procedure POPULATE_RESULTS');
534: END IF;
535:
536:
537: -- All systems GO...
566: ORDER BY sample_id, result_id;
567:
568: BEGIN
569: IF (l_debug = 'Y') THEN
570: gmd_debug.put_line('');
571: gmd_debug.put_line('Data in session table - gmd_mass_results_gt');
572: gmd_debug.put_line(' Sample ID Result ID Test ID Data Num Data Char UA RU');
573: gmd_debug.put_line('---------- ---------- ---------- --------------- --------------- -- --');
574: END IF;
567:
568: BEGIN
569: IF (l_debug = 'Y') THEN
570: gmd_debug.put_line('');
571: gmd_debug.put_line('Data in session table - gmd_mass_results_gt');
572: gmd_debug.put_line(' Sample ID Result ID Test ID Data Num Data Char UA RU');
573: gmd_debug.put_line('---------- ---------- ---------- --------------- --------------- -- --');
574: END IF;
575:
568: BEGIN
569: IF (l_debug = 'Y') THEN
570: gmd_debug.put_line('');
571: gmd_debug.put_line('Data in session table - gmd_mass_results_gt');
572: gmd_debug.put_line(' Sample ID Result ID Test ID Data Num Data Char UA RU');
573: gmd_debug.put_line('---------- ---------- ---------- --------------- --------------- -- --');
574: END IF;
575:
576: FOR c_rec IN c1
569: IF (l_debug = 'Y') THEN
570: gmd_debug.put_line('');
571: gmd_debug.put_line('Data in session table - gmd_mass_results_gt');
572: gmd_debug.put_line(' Sample ID Result ID Test ID Data Num Data Char UA RU');
573: gmd_debug.put_line('---------- ---------- ---------- --------------- --------------- -- --');
574: END IF;
575:
576: FOR c_rec IN c1
577: LOOP
575:
576: FOR c_rec IN c1
577: LOOP
578: IF (l_debug = 'Y') THEN
579: gmd_debug.put_line(lpad(c_rec.sample_id, 10, ' ')||' '||
580: lpad(c_rec.result_id, 10, ' ')||' '||
581: lpad(c_rec.test_id, 10, ' ')||' '||
582: lpad(nvl(c_rec.result_value_num, 0), 15, ' ')||' '||
583: lpad(nvl(c_rec.result_value_char, 'NULL'), 15, ' ')|| ' ' ||