DECLARE
	v_chkActive VARCHAR2(10);
	v_ret_alert NUMBER;

BEGIN
    GO_BLOCK('T_CBJ_DTL');
    FIRST_RECORD;
    IF :T_CBJ_DTL.ACCD IS NOT NULL THEN
    SELECT ser_tax
    INTO   v_chkactive
    FROM    m_acmst
    WHERE  accd = :T_CBJ_DTL.ACCD;
    
       IF v_ChkActive = 'Y' 
       THEN
         v_ret_alert := show_alert('SERVICETAX_ALERT');
         IF v_ret_alert = ALERT_BUTTON1 
     	 THEN 
       	   NEXT_RECORD;
      	     :T_CBJ_DTL.SL_NO := :SYSTEM.CURSOR_RECORD;
	     :T_CBJ_DTL.ACCD := 9695;
	     :T_CBJ_DTL.ACNM := 'Service Tax';    	
        END IF;
      END IF;  
    END IF;      
END;