DECLARE
 V_RULE VARCHAR2(2000);
BEGIN
  SELECT RULE INTO V_RULE FROM PRMARUT WHERE EDCODE = :BLK_PRMAMAS.EDCODE;
  :AMT := SELECT &V_RULE FROM DUAL;
END;

	((200*3+(:cons-200)*3.3)*1.09)+60*:unit

	or

	((:cons*3)*1.09)+60*:unit

	or
	
	((60*4+(:cons-60)*4.5)*1.09)+170

		sprintf(sql_stmt1.arr,"UPDATE NPAYCAL_TEMP SET PRE_RULEVAL = 
				(SELECT %s FROM NPAYCAL_TEMP WHERE PRE_RULE = '%')"
						,pre_rule_flag.arr,pre_rule_flag.arr);
		sql_stmt1.len = strlen(sql_stmt1.arr);
		EXEC SQL EXECUTE IMMEDIATE :sql_stmt1;
		EXEC SQL SELECT NVL(PRE_RULEVAL,0) INTO :pre_ruleval FROM NPAYCAL_TEMP;

DECLARE
 V_RULE VARCHAR2(2000);
BEGIN
  SELECT RULE INTO V_RULE FROM PRMARUT WHERE EDCODE = p_EDCODE;
  EXECUTE IMMEDIATE 'SELECT '||v_rule||'from dual' into p_amt;
END;

FUNCTION CAL_ELECAMT(P_STATE CHAR,P_QUARTERTYPE CHAR,P_FROMDATE DATE,P_TODATE DATE,P_MONTHS NUMBER,P_CONS NUMBER ) RETURN NUMBER
AS
	P_RULE VARCHAR(2000);
    P_FROMDATE1 DATE;
	P_TODATE1 DATE;
	P_FROMDATE2 DATE;
	P_TODATE2 DATE;
	P_RATEFROMDATE DATE;
	P_RATETODATE DATE;
	R_AMT1 NUMBER;
	R_AMT2 NUMBER;
	R_AMT NUMBER;
	SQLSTM VARCHAR2(2000);
	P_UNIT NUMBER;
	P_UNITRATE NUMBER;
	P_ELECRATE NUMBER;
	P_EDRATE NUMBER;
BEGIN
	SELECT FROMDATE,NVL(TODATE,SYSDATE) INTO P_RATEFROMDATE,P_RATETODATE FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
	IF P_TODATE > P_RATETODATE THEN
		P_FROMDATE1 := P_FROMDATE;
		P_TODATE1 := P_RATETODATE;
		P_FROMDATE2 := P_RATETODATE+1;
		P_TODATE2 := P_TODATE;
 /*       SELECT RULE INTO P_RULE FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE
								AND P_FROMDATE1 BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
								
		SQLSTM := 'SELECT '||P_RULE||'INTO R_AMT1 FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE
								AND P_FROMDATE1 BETWEEN FROMDATE AND NVL(TODATE,SYSDATE)';
		EXECUTE IMMEDIATE SQLSTM;
		SELECT RULE INTO P_RULE FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE2 BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
		SQLSTM := 'SELECT '||P_RULE||'INTO R_AMT2 FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE2 BETWEEN FROMDATE AND NVL(TODATE,SYSDATE)';
		EXECUTE IMMEDIATE SQLSTM;
		R_AMT := NVL(R_AMT1,0)+NVL(R_AMT2,0);*/
	ELSE
	   BEGIN
    	   SELECT UNIT,UNITRATE,ELECRATE,EDRATE,RULE_FORMULLA INTO P_UNIT,P_UNITRATE,P_ELECRATE,P_EDRATE,P_RULE FROM PRMAQTRELRATE 
                        WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
		END;
		EXECUTE IMMEDIATE 'SELECT ' ||P_RULE || ' FROM DUAL' INTO R_AMT;
		
		/* VALUE OF P_RULE 
            ROUND((((200*3)+(P_CONS-200)*P_ELECRATE))+(P_CONS*P_EDRATE)+(P_UNIT*P_UNITRATE),0)
            
            THIS STATEMENT WORKS FINE IF RUN WITHOUT EXECUTE IMMEDIATE
            SELECT ROUND((((200*3)+(P_CONS-200)*P_ELECRATE))+(P_CONS*P_EDRATE)+(P_UNIT*P_UNITRATE),0) INTO R_AMT FROM DUAL;
            */
	END IF;
	RETURN R_AMT;
END CAL_ELECAMT;

FUNCTION CAL_ELECAMT(P_STATE CHAR,P_QUARTERTYPE CHAR,P_FROMDATE DATE,P_TODATE DATE,P_MONTHS NUMBER,P_CONS NUMBER ) RETURN NUMBER
AS
	P_RULE VARCHAR(2000);
    P_FROMDATE1 DATE;
	P_TODATE1 DATE;
	P_FROMDATE2 DATE;
	P_TODATE2 DATE;
	P_RATEFROMDATE DATE;
	P_RATETODATE DATE;
	R_AMT1 NUMBER;
	R_AMT2 NUMBER;
	R_AMT NUMBER;
	SQLSTM VARCHAR2(2000);
	P_UNIT NUMBER;
	P_UNITRATE NUMBER;
	P_ELECRATE NUMBER;
	P_EDRATE NUMBER;
BEGIN
	SELECT FROMDATE,NVL(TODATE,SYSDATE) INTO P_RATEFROMDATE,P_RATETODATE FROM PRMAQTRELRATE WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
	IF P_TODATE > P_RATETODATE THEN
		P_FROMDATE1 := P_FROMDATE;
		P_TODATE1 := P_RATETODATE;
		P_FROMDATE2 := P_RATETODATE+1;
		P_TODATE2 := P_TODATE;
 		R_AMT := NVL(R_AMT1,0)+NVL(R_AMT2,0);
	ELSE
	   BEGIN
    	   SELECT UNIT,UNITRATE,ELECRATE,EDRATE,RULE_FORMULLA INTO P_UNIT,P_UNITRATE,P_ELECRATE,P_EDRATE,P_RULE FROM PRMAQTRELRATE 
                        WHERE STATE = P_STATE AND QUARTERTYPE = P_QUARTERTYPE
								AND P_CONS BETWEEN STARTRANGE AND ENDRANGE 
								AND P_FROMDATE BETWEEN FROMDATE AND NVL(TODATE,SYSDATE);
		END;
		SQLSTM := 'SELECT '||P_RULE||' FROM DUAL ';
		EXECUTE IMMEDIATE  SQLSTM INTO R_AMT USING P_CONS,P_ELECRATE,P_CONS,P_EDRATE,P_UNIT,P_UNITRATE;
	END IF;
	RETURN R_AMT;
END CAL_ELECAMT;