BEGIN
	Go_Block('Student_Awd');
	First_Record;
	LOOP
		Ins_Student_Award(:student_awd.awd_typ_desc, :head_blk.stu_id, :head_blk.semester, :head_blk.awd_id, :student_awd.stu_awd_point, :student_awd.stu_awd_date);
		Down;
		EXIT WHEN :student_awd.awd_typ_id IS NULL;
	END LOOP;
	Commit;
	Clear_Message;
	Clear_All;
END;

CREATE OR REPLACE PROCEDURE DBA.Ins_Student_Award(p_awd_id IN NUMBER, p_stu_id IN VARCHAR2, p_smt IN VARCHAR2, p_lan_id IN NUMBER, p_point IN NUMBER, p_date DATE) IS
  v_Dummy    CHAR(1);
  v_Id       NUMBER;
BEGIN
  SELECT DISTINCT 'X' INTO v_Dummy
  FROM stu_awd
  WHERE stu_id = p_stu_id AND stu_awd_smt = p_smt AND awd_typ_id = p_awd_id AND stu_awd_id = p_lan_id;
  UPDATE stu_awd
  SET stu_awd_point = p_point, stu_awd_date = p_date
  WHERE stu_id = p_stu_id AND stu_awd_smt = p_smt AND awd_typ_id = p_awd_id AND stu_awd_id = p_lan_id;
EXCEPTION
WHEN No_Data_Found THEN
  SELECT NVL(MAX(stu_awd_id), 0) INTO v_Id
  FROM stu_awd
  WHERE stu_id = p_stu_id AND stu_awd_smt = p_smt AND awd_typ_id = p_awd_id;
  v_Id := v_Id + 1;
  INSERT INTO stu_awd(awd_typ_id, stu_id, stu_awd_smt, stu_awd_id, stu_awd_point, stu_awd_date)
  VALUES(p_awd_id, p_stu_id, p_smt, v_id, p_point, p_date);
END Ins_Stu_Langgar;
/