DECLARE
	V_AMT NUMBER;
	V_CONS NUMBER;
	V_MONTHS NUMBER;
	V_RULE VARCHAR2(2000);
	V_SQL VARCHAR2(2000);
BEGIN
	V_AMT:= 0;
	IF :UPDATEKEY = 'Y' OR :UPDATEKEY IS NULL THEN
		IF :BLK_PRTRQTRELDTL.PREVIOUSREAD IS NOT NULL THEN
			IF :BLK_PRTRQTRELDTL.CURRENTREAD IS NOT NULL THEN
				V_CONS := 0;
				V_MONTHS := (MONTHS_BETWEEN(TO_DATE(TO_CHAR((:TODATE),'RRRRMM'),'RRRRMM'),
						TO_DATE(TO_CHAR(:FROMDATE,'RRRRMM'),'RRRRMM')))+1;
				V_CONS := ROUND((:BLK_PRTRQTRELDTL.CURRENTREAD-:BLK_PRTRQTRELDTL.PREVIOUSREAD)/V_MONTHS,0);
				V_AMT := PRIME.cal_elecamt(:STATE,:BLK_PRTRQTRELMAS.QUARTERTYPE,:FROMDATE,:TODATE,V_MONTHS,V_CONS);
				:CURRENTAMT := V_AMT;
			END IF;
		END IF;
	END IF;
END;