PROCEDURE set_tags(
	p_emp_id in number, 
	p_dt_attn date
	) IS
	mwof boolean;
	mleave boolean;
	msuspend boolean;
	V_Time_In boolean;
	V_Time_Out boolean;
	mact_shift number;
	msch_shift number;
	V_LEAVE_ID NUMBER;
begin
delete from emp_tags where dt_attend = p_dt_attn and emp_id = p_emp_id;
-- get defined Scheduled shift
begin
			--get_ghd(emp_cd, p_dt_attn);
		mwof := get_week(p_emp_id, p_dt_attn);
		mleave := get_leave(p_emp_id, p_dt_attn);
		msuspend := get_suspend(p_emp_id, p_dt_attn);
		V_Time_In := Get_Time_In(p_emp_id, p_dt_attn);
		V_Time_Out := Get_Time_Out(p_emp_id, p_dt_attn);
If -- FOR TIME IN CHECK .. 
		V_Time_In = True then 
		insert_tags(p_emp_id, p_dt_attn, 1);
	If
				 mwof = true then
				 insert_tags(p_emp_id, p_dt_attn, 2);
		end if;

		If
			mleave = true then
			IF
				V_LEAVE_ID = 1 THEN
				insert_tags(p_emp_id, p_dt_attn, 4);
			ELSIF
				V_LEAVE_ID = 2 THEN
				insert_tags(p_emp_id, p_dt_attn, 5);
			END IF;
		End if;
Elsif -- FOR CHECK TIME OUT If TIME In NULL
		V_TIME_IN = false then
		
If 
V_TIME_OUT = FALSE then
	If
	mwof = true then
	insert_tags(p_emp_id, p_dt_attn, 2);
		Elsif
			mleave  = true then
			select leave_id into V_LEAVE_ID FROM SET_LEAVE_DETAIL
			WHERE P_DT_ATTN BETWEEN DT_FROM AND DT_TO AND EMP_ID = P_EMP_ID;
			IF
			V_LEAVE_ID = 1 THEN
			insert_tags(p_emp_id, p_dt_attn, 4);
			ELSIF
			V_LEAVE_ID = 2 THEN
			insert_tags(p_emp_id, p_dt_attn, 5);
			END IF;
		ELSIF
			msuspend = true then
			insert_tags(p_emp_id, p_dt_attn, 8);
		Else
			insert_tags(p_emp_id, p_dt_attn, 6);
		End if;
		ELSIF
	V_TIME_OUT = true then
	insert_tags(p_emp_id, p_dt_attn, 3);
	End If;
End if;
-- prs
	 begin
	 		select act_shift, sch_shift into mact_shift, msch_shift from time_attm where emp_id = p_emp_id and dt_attend = p_dt_attn;
	 		If mact_shift != msch_shift then
	 		insert_tags(p_emp_id, p_dt_attn, 7);
	 		end if;
	 exception
	 	when no_data_found then
	 	null;
	 end;
end;
exception
	when no_data_found then null;		
	when others then message(' Error Set_Tags :' || sqlerrm);
end; 

PROCEDURE insert_tags (p_emp_id in number, p_dt_attn in date,  p_ord in number) IS
BEGIN
  insert into emp_tags
  (emp_id, dt_attend, tag_id)
  values
  (p_emp_id, p_dt_attn, p_ord);
END;

declare
  l_tag number := 4;
begin
  insert_tags(p_emp_id, p_dt_attn, l_tag);
end;