PROCEDURE CHECK_DT_CHANGE IS
  v_due_dt	invstgtn_rep.due_dt%TYPE;
  v_timer         TIMER;  

BEGIN

   If variables.v_dt_instance = 'Y' Then --check if date touched

  Begin
    SELECT due_dt
      INTO v_due_dt
        FROM invstgtn_rep
        WHERE ref_year = :invstgtn_rep.ref_year
        AND ref_no = :invstgtn_rep.ref_no
        AND hist_seq_no = :invstgtn_rep.hist_seq_no
	AND line_cd = :invstgtn_rep.line_cd
	AND subline_cd = :invstgtn_rep.subline_cd
	AND iss_cd = :invstgtn_rep.iss_cd
	AND clm_yy = :invstgtn_rep.clm_yy
	AND clm_seq_no = :invstgtn_rep.clm_seq_no;
     EXCEPTION
     WHEN NO_DATA_FOUND Then
     v_due_dt := null;
  End;

	variables.v_orig_due_dt := v_due_dt;

	   If v_due_dt <> :invstgtn_rep.dsp_due_dt Then
	    v_timer := Find_Timer('DUE_DT_TIMER');	
	     IF Id_Null(v_timer) THEN    
		v_timer := create_timer('DUE_DT_TIMER',1,NO_REPEAT); 
	     END IF; 	
	   End If;

   End If;

END;

PROCEDURE CHECK_DT_CHANGE2 IS
  cur_item         VARCHAR2(100);

BEGIN

   cur_item := :system.cursor_item;

	      If UPPER(:SYSTEM.CURRENT_BLOCK) <> 'INVSTGTN_REP' Then
	    	go_block('invstgtn_rep');
		go_item('invstgtn_rep.dsp_due_dt');
	    	--go_block('reason2');
	      go_block('invstgtn_hdr');
	      go_item('invstgtn_hdr.ref_no');
	       show_view('main1');
	       show_view('main3');
	       show_view('main2');
	       hide_view('injury_can');
	       hide_view('inspect_can');
	      End If;

		show_window('reason');
		--show_view('reason');
		go_item('reason2.reason');

		--RAISE FORM_TRIGGER_FAILURE;

		variables.v_item := 'reason2.reason';


        variables.v_dt_instance:='N';

	variables.v_item := null;

END;

DECLARE
  v_cur_blk         VARCHAR2(100);
Begin
  v_cur_blk := :SYSTEM.CURRENT_BLOCK;

  If :reason2.reason is NULL Then
	message('Please specify reason for change of due date');
	message('Please specify reason for change of due date');
  Else
	--hide_view('reason');
	hide_window('reason');
     If variables.v_save = 'Y' Then
	Commit;
	go_block('invstgtn_dtls');
	execute_query;
	variables.v_save := 'N';
     End If;
	--go_block('invstgtn_hdr');
	--execute_query;
	go_item('invstgtn_rep.dsp_due_dt');
  End If;

--  go_block(v_cur_blk);  
End;

:invstgtn_rep.dsp_due_dt := variables.v_orig_due_dt;
--hide_view('reason');
hide_window('reason');
go_item('invstgtn_rep.dsp_due_dt');