DECLARE
	v_def_where			VARCHAR2(500);
	v_block					VARCHAR2(30);
BEGIN
	Tree_Control.Node_Activated;
	
	IF ( Tree_Control.n_curr_parent_node = 0 ) THEN -- Dept Selected
		v_block := 'REGIST_DET';
		v_def_where := Get_Block_Property(v_block,DEFAULT_WHERE);
		Set_Block_Property('REGIST_DET',DEFAULT_WHERE, 'CPID = '||TO_NUMBER(Tree_Control.v_curr_value));
		Go_Block('REGIST_DET');	
	ELSE  -- Employee selected.
		v_block := 'REGIST_DET';
		v_def_where := Get_Block_Property(v_block,DEFAULT_WHERE);
		Set_Block_Property('REGIST_DET',DEFAULT_WHERE, 'CPID = '||TO_NUMBER(Tree_Control.v_curr_value));
		Go_Block('REGIST_DET');
		
	END IF;
	--Execute_Query;
	-- Reset the DEF_WHERE on the block.
	Set_Block_Property(v_block,DEFAULT_WHERE, v_def_where);
	Go_Item('REGIST_DET.MEDICIN');
END;