IF :CRITERIA.SITE_ID IS NULL THEN 
  rams$msg_ofg45('E', TRUE, '709304%1Web site');
END IF;

IF :WEB_CATALOGUES.STYLE_ID IS NULL OR :WEB_CATALOGUES.COLOR_ID IS NULL THEN 
  rams$msg_ofg45('E', TRUE, 720011);	
END IF;  


BEGIN
	--d71883 18-FEB-2020 start
	 :cg$ctrl.CG$CNTR:=0;
	 --d71883 18-FEB-2020  end
	go_block('WEB_CATALOGUES');
  first_record;
   LOG_OUTPUT ('SANDEEP W-B-P trigger before LOOP');
  LOOP
   
    :WEB_CATALOGUES.CHECK_IND :='N';    	   	
    :WEB_CATALOGUES.DE_ACTIVATED_IND :='Y';  
    LOG_OUTPUT ('SANDEEP W-B-P trigger INSIDE LOOP');
    LOG_OUTPUT('SANDEEP- STATUS OF TO PURGE(DE-ACTIVATED_IND) IS: '|| :WEB_CATALOGUES.DE_ACTIVATED_IND);
		LOG_OUTPUT('SANDEEP- STATUS OF SELECT(CHECK_INDICATOR) IS: '|| :WEB_CATALOGUES.CHECK_IND);--Using this FOR LOGGING purposes and this is the one that is over-riding the code from when-validate-block 
                                                                                               
   IF :system.last_record <> 'TRUE'
    THEN
      next_record;
    ELSE
      EXIT;
    END IF;
  END LOOP;
  first_record;
END;

DECLARE
	alb NUMBER;
	t_error_text varchar2(250);
  v_result number; 	
  intCnt   NUMBER;
  
 BEGIN
	 IF :WEB_CATALOGUES.STYLE_ID IS NOT NULL THEN
	 	
	    	IF :WEB_CATALOGUES.DISPLAY_FROM_DATE IS NULL THEN 
	  			rams$msg_alert('709304%1From Date','E',true);
	  		END IF;
	  
	  		IF :WEB_CATALOGUES.DISPLAY_TO_DATE IS NULL THEN 
	  			rams$msg_alert('709304%1To Date','E',true);
	  		END IF;	

	  	  IF :WEB_CATALOGUES.CHECK_IND = 'N' AND :SYSTEM.RECORD_STATUS = 'INSERT'	THEN 
	  	  	Set_Record_Property(get_block_property('WEB_CATALOGUES', CURRENT_RECORD), 'WEB_CATALOGUES', STATUS, QUERY_STATUS);
	  	  END IF;
	  		 	
			  	IF :WEB_CATALOGUES.CHECK_IND = 'N' AND :SYSTEM.RECORD_STATUS = 'CHANGED' THEN
			  		--d71883 18-FEB-2020  start
			  		
			  	   WHILE (:cg$ctrl.CG$CNTR)=0
			  	   	LOOP
			  	  --d71883 18-FEB-2020  end
			  	   		  t_error_text:= lmsg.look_message(720004, :global.language_name);
			  	   		  set_alert_property('CG$ASK_COMMIT', alert_message_text, t_error_text);
			  	   	    alb := show_alert('CG$ASK_COMMIT');
			  	   	      IF 	alb = alert_button1 THEN
							       	   NULL;	          
			  	   	      ELSIF alb = alert_button2  THEN
			  	   	      --d71883 18-FEB-2020  start	
			  	   	      	WHILE (:cg$ctrl.CG$CNTR)=0
			  	   	      	LOOP
			  	   	      		 intCnt:=GET_BLOCK_PROPERTY('WEB_CATALOGUES', QUERY_HITS);		
			  	   	      		 FOR i IN 1..intCnt
			  	   	      		 LOOP		  	   	      		
			  	   	      		 		IF :WEB_CATALOGUES.DE_ACTIVATED_IND IN('Y', 'N') THEN
			  	   	      		    	 :WEB_CATALOGUES.CHECK_IND:='Y';
			  	   	      		    	 :WEB_CATALOGUES.DE_ACTIVATED_IND:='N';
			  	   	      		 		END IF;			  	   	      		 	
			  	   	      		 		END LOOP;
			  	   	      		:cg$ctrl.CG$CNTR:=:cg$ctrl.CG$CNTR+1;
			  	   	      	 --d71883 18-FEB-2020  end 	
			  	   	      	   RAISE FORM_TRIGGER_FAILURE;
			  	   	      	 END LOOP;
			  	   	      END IF;	
			  	   	  --d71883 18-FEB-2020  start    
 			  	   	    :cg$ctrl.CG$CNTR:=:cg$ctrl.CG$CNTR+1;
			  	   	   END LOOP; 	
			  	   	 --d71883 18-FEB-2020  end
			  	END IF; 	
	   	  ELSE 
	    rams$msg_ofg45('E', TRUE, 720011);	
	 END IF;  
END;