IF vcTimer = 'CALC_REM_AMT' THEN
	  CURR_REC := TO_NUMBER(:SYSTEM.TRIGGER_RECORD);
	  FIRST_RECORD;
		  
	  LOOP
	  	IF :RFN_LINES_ALL.BH_CC_ID = TO_NUMBER(:GLOBAL.BUD_ID) AND :SYSTEM.RECORD_STATUS IN ('INSERT','NEW') THEN
	  			CONSUMED_AMT := CONSUMED_AMT + :RFN_LINES_ALL.FUNC_AMOUNT;
	  	END IF;
	  	EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
 			NEXT_RECORD;
	  END LOOP;

	  :GLOBAL.BLK_CONS := CONSUMED_AMT; 
	  GO_RECORD(CURR_REC);
	  CONSUMED_AMT := CONSUMED_AMT - :RFN_LINES_ALL.FUNC_AMOUNT;

     SELECT cbb.AMOUNT
     INTO  bud_amt
 	 FROM  CONSUMED_BUDGET_BALANCES cbb
     	  ,BUDGET_LINES_ALL         bla
	 WHERE cbb.BL_ID    = bla.BL_ID
	 AND   bla.BH_CC_ID = :RFN_LINES_ALL.BH_CC_ID
	 AND   bla.TYPE     = :RFN_HEADERS_ALL.BUDGET_TYPE
	 AND   bla.INACTIVE_F is null;

		IF (bud_amt - nvl(consumed_amt,0)) - :RFN_LINES_ALL.FUNC_AMOUNT < 0 THEN
			al := FIND_ALERT   ('TRX_AMOUNT');
			set_alert_property ('TRX_AMOUNT', alert_message_text, :RFN_LINES_ALL.BUDGET_CODE || ' has '|| (bud_amt - nvl(consumed_amt,0)) || '/-- Rs. remaining !' );
			alrt := show_alert ('TRX_AMOUNT');
			GO_ITEM('RFN_LINES_ALL.UNIT_AMOUNT');
			RAISE FORM_TRIGGER_FAILURE;				
		ELSE
			next_record;
		END IF;			

ELSIF vcTimer = 'NEXT_REC' THEN
	.................		

IF :RFN_LINES_ALL.FUNC_AMOUNT IS NULL THEN
	NULL;
ELSE
		
	IF :SYSTEM.RECORD_STATUS IN ('NEW','INSERT') THEN
						-- Check whether this budget code is already utilized in this block ...!!!
		:GLOBAL.BUD_ID := :RFN_LINES_ALL.BH_CC_ID;
		vTimer				 := create_timer('CALC_REM_AMT', 100, NO_REPEAT);
		block_cons		 := TO_NUMBER(:GLOBAL.BLK_CONS);			
						-- End Check whether this budget code is already utilized in this block ...!!!
	
      SELECT cbb.AMOUNT
      INTO  bud_amt
			FROM  CONSUMED_BUDGET_BALANCES cbb
     			 ,BUDGET_LINES_ALL         bla
			WHERE cbb.BL_ID    = bla.BL_ID
			AND   bla.BH_CC_ID = :RFN_LINES_ALL.BH_CC_ID
			AND   bla.TYPE     = :RFN_HEADERS_ALL.BUDGET_TYPE
			AND   bla.INACTIVE_F is null;
			
			rem_amt := (bud_amt - nvl(block_cons,0));

			IF REM_AMT - :RFN_LINES_ALL.FUNC_AMOUNT < 0 THEN
				--set_alert_property ('TRX_AMOUNT', alert_message_text, :RFN_LINES_ALL.BUDGET_CODE || ' has '|| rem_amt || '/-- Rs. remaining !' );
				--alrt := show_alert ('TRX_AMOUNT');
				FND_MESSAGE.DEBUG(:RFN_LINES_ALL.BUDGET_CODE || ' has ' || rem_amt || '/- Rs. remaining !');
				RAISE FORM_TRIGGER_FAILURE;
			ELSE
				vTimer := create_timer('NEXT_REC', 100, NO_REPEAT);
			END IF;			

	END IF;
END IF;
exception
	when form_trigger_failure then 
		raise form_trigger_failure;
END;

	IF vcTimer = 'CALC_REM_AMT' THEN
		  CURR_REC := TO_NUMBER(:SYSTEM.TRIGGER_RECORD);
		  FIRST_RECORD;
		  
		  LOOP
		  	IF :RFN_LINES_ALL.BH_CC_ID = TO_NUMBER(:GLOBAL.BUD_ID) AND :SYSTEM.RECORD_STATUS IN ('INSERT','NEW') THEN
		  			CONSUMED_AMT := CONSUMED_AMT + :RFN_LINES_ALL.FUNC_AMOUNT;
  					--ELSIF :SYSTEM.RECORD_STATUS = 'CHANGED' AND ( :GLOBAL.OLD_FUNC_AMT )			FOR EACH 'CHANGED' RECORD, VALIDATION IS ALREADY ENSURED :-)
		  	END IF;
		  	EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
  			NEXT_RECORD;
		  END LOOP;

		  GO_RECORD(CURR_REC);
		  :GLOBAL.BLK_CONS := ( CONSUMED_AMT - :RFN_LINES_ALL.FUNC_AMOUNT );	-- current line shouldn't be computed as already consumed !; 
		  

	ELSIF vcTimer = 'NEXT_REC' THEN
	........