420:
421:
422:
423: FUNCTION v_qc_grade
424: ( p_qc_grade IN qc_grad_mst.qc_grade%TYPE
425: , x_qc_grad_mst_row OUT NOCOPY qc_grad_mst%ROWTYPE
426: )
427: RETURN BOOLEAN
428: IS
421:
422:
423: FUNCTION v_qc_grade
424: ( p_qc_grade IN qc_grad_mst.qc_grade%TYPE
425: , x_qc_grad_mst_row OUT NOCOPY qc_grad_mst%ROWTYPE
426: )
427: RETURN BOOLEAN
428: IS
429: BEGIN
426: )
427: RETURN BOOLEAN
428: IS
429: BEGIN
430: x_qc_grad_mst_row.qc_grade := p_qc_grade;
431: IF GMIVDBL.qc_grad_mst_select(x_qc_grad_mst_row, x_qc_grad_mst_row)
432: THEN
433: IF x_qc_grad_mst_row.delete_mark = 0
434: THEN
427: RETURN BOOLEAN
428: IS
429: BEGIN
430: x_qc_grad_mst_row.qc_grade := p_qc_grade;
431: IF GMIVDBL.qc_grad_mst_select(x_qc_grad_mst_row, x_qc_grad_mst_row)
432: THEN
433: IF x_qc_grad_mst_row.delete_mark = 0
434: THEN
435: RETURN TRUE;
429: BEGIN
430: x_qc_grad_mst_row.qc_grade := p_qc_grade;
431: IF GMIVDBL.qc_grad_mst_select(x_qc_grad_mst_row, x_qc_grad_mst_row)
432: THEN
433: IF x_qc_grad_mst_row.delete_mark = 0
434: THEN
435: RETURN TRUE;
436: END IF;
437: END IF;