GZBGSSP_STU_ID	VARCHAR2(9 BYTE)
GZBGSSP_PIDM	NUMBER(8,0)
GZBGSSP_DEG_PLAN_IND	VARCHAR2(15 BYTE)
GZBGSSP_DEG_PLAN_DATE	DATE
GZBGSSP_COM_EXAM_IND	VARCHAR2(15 BYTE)
GZBGSSP_COM_EXAM_DATE	DATE
GZBGSSP_FT_RESD_IND	VARCHAR2(15 BYTE)
GZBGSSP_FT_RESD_DATE	DATE

declare tGZBGSSP_STU_ID saturn.GZBGSSP.GZBGSSP_STU_ID%TYPE;
begin
select GZBGSSP_STU_ID into tGZBGSSP_STU_ID from saturn.GZBGSSP where GZBGSSP_STU_ID = :KEY_ID;
	if sql%found then
		message('This Student ID already exists!');
		clear_block(no_commit);
		go_block('dual');
		go_item('KEY_ID');
	end if;

EXCEPTION WHEN NO_DATA_FOUND THEN
Declare vspriden_pidm 	SPRIDEN.SPRIDEN_PIDM%TYPE;
BEGIN			
SELECT SPRIDEN_PIDM INTO vspriden_pidm FROM SPRIDEN WHERE SPRIDEN_ID = :DUAL.KEY_ID and spriden_change_ind is null;
	IF SQL%FOUND THEN
	begin
insert into saturn.GZBGSSP(GZBGSSP_STU_ID,GZBGSSP_PIDM,GZBGSSP_DEG_PLAN_IND,GZBGSSP_DEG_PLAN_DATE,GZBGSSP_COM_EXAM_IND,GZBGSSP_COM_EXAM_DATE,GZBGSSP_FT_RESD_IND,GZBGSSP_FT_RESD_DATE) 
values(:KEY_ID,vspriden_pidm,:GZBGSSP_DEG_PLAN_IND,:GZBGSSP_DEG_PLAN_DATE,:GZBGSSP_COM_EXAM_IND,:GZBGSSP_COM_EXAM_DATE,:GZBGSSP_FT_RESD_IND,:GZBGSSP_FT_RESD_DATE);
commit;	
end;
clear_form(no_commit);  
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
Message('Invalid Id');
END;
end;