Need best way

Question

hi all
  i have a procedure  in this proc we are deleting and after that we are inserting
  because of this performance is slow how to avoid this
PROCEDURE INSERT_HOVERSEQ IS
  BEGIN
  DELETE FROM HOVERSEQ
  WHERE
  HOVERSEQ_ENTITY_NUM=W_ENTITY_NUM
  AND HOVERSEQ_BRN_CODE=V_ACNTS_BRN_CODE
  AND HOVERSEQ_YEAR=W_HOVER_YEAR;
  INSERT INTO HOVERSEQ
  (HOVERSEQ_ENTITY_NUM,
   HOVERSEQ_BRN_CODE,
   HOVERSEQ_YEAR,
   HOVERSEQ_LAST_SEQ_NUM
  VALUES
  (W_ENTITY_NUM,
   V_ACNTS_BRN_CODE,
   W_HOVER_YEAR,
   W_COUNT

Answer 1

i am providing the complete code please help me in the fallowing code where we can see the performance issues
CREATE OR REPLACE PACKAGE PKG_ATMSERCHG_REC AS
  --AUTHOR  : SATHISH KUMAR.S
  --PURPOSE : ATM charges
  --DATE    : 12-OCT-2011
--MODIFICATION HISTORY
---DATE---------GIVEN BY----------CHANGED BY--------Remarks---------------------------------------------------------------------------------------------------------------
--26-DEC-2011   MR.T.Ravisankar   S.Sathish kumar---HOVCHG hovertype code not available in hovertype so it changed as 3 (manual hovering which is available in hovertype)
--28-JAN-2012   MR.T.Ravisankar   S.Sathish kumar---UPDATE THE ATMCHGCTL TABLE AT THE TIME OF HOVERING MARKED.
--10-feb-2012   KESAVAN           CHANGED FOR Performance Tuning
--16-FEB-2012   MR T.Ravisankar   SATHISSHAN        Changes regards to extra recovery of atm charges
  PROCEDURE SP_ATMSERCHG_REC(V_ENTITY_NUM IN NUMBER ,
                                    P_BRN_CODE   IN NUMBER DEFAULT 0,
                                    P_INTERNAL_NUM IN NUMBER DEFAULT 0,
                                    P_PRODCODE IN NUMBER DEFAULT 0);
END PKG_ATMSERCHG_REC;
CREATE OR REPLACE PACKAGE BODY PKG_ATMSERCHG_REC AS
W_CBD                     DATE;
W_USER_ID                 VARCHAR2(8);
W_BRN_CODE                NUMBER(6);
W_ERR_MSG                 VARCHAR2(800);
W_ERROR_MSG               VARCHAR2(800);
W_CBD_TIME                VARCHAR2(25);
E_USEREXCEP               EXCEPTION;
W_PROD_CODE               NUMBER(4);
V_INTERNAL_ACNUM          NUMBER(14);
W_ENTITY_NUM              NUMBER;
L_BRN_CODE                NUMBER(6);
W_SQL                     VARCHAR2(1800);
V_ACNTS_PROD_CODE         NUMBER(4,0);
V_ACNTS_AC_TYPE           VARCHAR2(5 BYTE);
V_ACNTS_CURR_CODE         VARCHAR2(3 BYTE);
V_ACNTS_ATM_OPERN         CHAR(1 BYTE);
V_PRODGCP_ATM_CHG_FREQ    CHAR(1 BYTE);
V_PRODGCP_ATM_CHG         VARCHAR2(6 BYTE);
V_CHG_INCOME_GL           VARCHAR2(15 BYTE);
W_TOT_AMT                 NUMBER(18,3);
AC_AVLBAL                 NUMBER(18,3);
V_DUMMY                   NUMBER;
W_CHG_AMT                 NUMBER(18,3);
W_OPENING_CHG             VARCHAR2(6);
W_CHARGE_CURR_CODE        VARCHAR2(3);
W_SERVICE_AMOUNT          NUMBER(18,3);
W_PROC_NAME               VARCHAR2(40);
W_YR_BEG_DATE             DATE DEFAULT NULL;
W_EOD_MQHY_FLG            CHAR(1);
W_IGNORE                  CHAR(1);
V_ACNTS_OPENING_DATE      DATE;
V_ACNTS_BRN_CODE           NUMBER(6);
W_PREV_BRN_CODE           NUMBER(6);
V_PREV_BRN_CODE           NUMBER(6);
W_LAST_POSTED_DATE        DATE;
W_CHG_FROM_DATE           DATE;
W_CHG_FROM_DATE1          DATE;
W_NOM                     NUMBER(6);
W_NOM1                    NUMBER(6);
W_FACTOR                  NUMBER(6);
W_CHAR_QHY                CHAR(1);
W_NOF_QHY                 NUMBER(6);
W_TEMP_DATE               DATE;
W_CHG_ON_AMT              NUMBER(18,3);
W_TEMP_SERIAL             NUMBER(8);
W_IND                     NUMBER(7) DEFAULT 0;
INDX                      NUMBER(7) DEFAULT 0;
SRC_TABLE                 VARCHAR2(30);
SRC_KEY                   VARCHAR2(100);
W_ERR_CODE                VARCHAR2(6) DEFAULT '';
W_BATCH_NUMBER            NUMBER(7) DEFAULT 0;
W_ADV_IND                 NUMBER(5) DEFAULT 0;
W_HOVER_YEAR              NUMBER(4);
W_COUNT                   NUMBER(6)  DEFAULT 0;
W_DESC_DATE               DATE;
TYPE TMP_REC IS RECORD
    W_ACNTS_PROD_CODE NUMBER(4,0),
    W_ACNTS_AC_TYPE   VARCHAR2(5 BYTE),
    W_ACNTS_CURR_CODE VARCHAR2(3 BYTE),
    W_ACNTS_ATM_OPERN CHAR(1 BYTE),
    W_ACNTS_INTERNAL_ACNUM NUMBER(14,0),
    W_ACNTS_OPENING_DATE DATE,
    W_ACNTS_BRN_CODE     NUMBER(6),
    --kesavan-dar-10-02-2012-BEG
    --added 2 fields for PRODGENCP CHARGE CODE , FREQ
    W_CHG_CODE           VARCHAR2(6),
    W_FREQ               CHAR(1)
    --kesavan-dar-10-02-2012-END
  TYPE TMP1_REC IS TABLE OF TMP_REC INDEX BY PLS_INTEGER;
  ACNTS_REC TMP1_REC;
  PROCEDURE SP_PROCESS_ACNTS_DETAILS ; --KESAVAN
PROCEDURE INIT_PARA IS
BEGIN
    W_ERR_MSG             := '';
    V_DUMMY               := 0;
    W_PROC_NAME           := PKG_EODSOD_FLAGS.PV_PROCESS_NAME;
    W_TEMP_SERIAL         := PKG_PB_GLOBAL.SP_GET_REPORT_SL(PKG_ENTITY.FN_GET_ENTITY_CODE);
END INIT_PARA;
  PROCEDURE READ_PRODGENCP(W_ERROR_MSG OUT VARCHAR2) IS
  BEGIN
--KESAVAN-DAR-10-02-2012-REMOVED
-- HANDLED IN MAIN QUERY
/*    SELECT PRODGCP_ATM_CHG,PRODGCP_ATM_CHG_FREQ
      INTO V_PRODGCP_ATM_CHG,V_PRODGCP_ATM_CHG_FREQ
    FROM PRODGENCP
      WHERE PRODGCP_PROD_CODE = V_ACNTS_PROD_CODE
      AND PRODGCP_AC_TYPE=V_ACNTS_AC_TYPE
      AND PRODGCP_CURR_CODE=V_ACNTS_CURR_CODE
      AND PRODGCP_CUST_CATG_CODE=' ';*/
--KESAVAN-DAR-10-02-2012-END
  <<CALL_CHG_GL>>
  BEGIN
     IF V_PRODGCP_ATM_CHG IS NOT NULL THEN
        SELECT CHGCD_CR_INCOME_HEAD
        INTO V_CHG_INCOME_GL
        FROM CHGCD
        WHERE CHGCD_CHARGE_CODE = V_PRODGCP_ATM_CHG;
    END IF;
      EXCEPTION
      WHEN NO_DATA_FOUND THEN
      W_ERR_MSG := 'CHGCD DETAILS NOT FOUND';
      RAISE E_USEREXCEP;
  END CALL_CHG_GL;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      W_ERR_MSG := '';
   END READ_PRODGENCP;
   PROCEDURE SP_GET_BAL IS
    BEGIN
      GET_ASON_ACBAL(W_ENTITY_NUM,V_INTERNAL_ACNUM,
                     V_ACNTS_CURR_CODE,
                     W_CBD,
                     W_CBD,
                     AC_AVLBAL,
                     V_DUMMY,
                     W_ERR_MSG);
      IF TRIM(W_ERR_MSG) IS NOT NULL THEN
        RAISE E_USEREXCEP;
      END IF;
    END SP_GET_BAL;
   PROCEDURE SP_GET_CHARGES IS
    BEGIN
      PKG_CHARGES.SP_GET_CHARGES(W_ENTITY_NUM,V_INTERNAL_ACNUM,
                                 V_ACNTS_CURR_CODE,
                                 0,
                                 V_PRODGCP_ATM_CHG,
                                 'N',
                                 W_CHARGE_CURR_CODE,
                                 W_CHG_AMT,
                                 W_SERVICE_AMOUNT,
                                 V_DUMMY,
                                 V_DUMMY,
                                 V_DUMMY,
                                 W_ERR_MSG);
      IF TRIM(W_ERR_MSG) IS NOT NULL THEN
        RAISE E_USEREXCEP;
      END IF;
    END SP_GET_CHARGES;
   PROCEDURE SP_GET_LAST_POSTED_DATE IS
    BEGIN
      SELECT MAX(ATMCHGCTL_APPLIED_UPTO_DATE)
        INTO W_LAST_POSTED_DATE
        FROM ATMCHGCTL
        WHERE ATMCHGCTL_ENTITY_NUM = W_ENTITY_NUM
        AND ATMCHGCTL_BRN_CODE = V_ACNTS_BRN_CODE
        AND ATMCHGCTL_INTERNAL_ACNUM = V_INTERNAL_ACNUM;
    END SP_GET_LAST_POSTED_DATE;
   PROCEDURE SP_GET_QHY IS
      W_EXIT CHAR(1) DEFAULT '0';
      W_MONTHS NUMBER(2) DEFAULT 0;
   BEGIN
      -- W_EXIT := '0';
      -- W_MONTHS := 0;
       IF W_CHAR_QHY = 'Q' THEN
       W_MONTHS := 3;
       ELSIF W_CHAR_QHY = 'H' THEN
       W_MONTHS := 6;
       ELSIF W_CHAR_QHY = 'Y' THEN
       W_MONTHS := 12;
       ELSIF W_CHAR_QHY = 'A' THEN
       W_MONTHS := 12;
       ELSE
       W_MONTHS := 1;
       END IF;
     WHILE (W_EXIT = '0') LOOP
        IF W_CHAR_QHY <> 'A' THEN
         W_TEMP_DATE := PKG_PB_GLOBAL.SP_FORM_START_DATE(W_ENTITY_NUM, W_TEMP_DATE,
                                                      W_CHAR_QHY);
         W_TEMP_DATE := ADD_MONTHS(W_TEMP_DATE,3);
         W_TEMP_DATE := ADD_MONTHS(W_TEMP_DATE,W_MONTHS);
         ELSE
         W_TEMP_DATE := ADD_MONTHS(W_TEMP_DATE,W_MONTHS);
        END IF;
        W_TEMP_DATE := W_TEMP_DATE - 1;
        IF W_TEMP_DATE <= W_CBD THEN
          W_NOF_QHY := W_NOF_QHY + 1;
        END IF;
        IF W_TEMP_DATE >= W_CBD THEN
          W_EXIT := '1';
        ELSE
         W_TEMP_DATE := W_TEMP_DATE + 1;
        END IF;
      END LOOP;
    END SP_GET_QHY;
   PROCEDURE SP_GET_PERIOD IS
   BEGIN
     W_NOM       := MONTHS_BETWEEN(W_CHG_FROM_DATE,W_CBD);
     IF W_NOM = 0 THEN
        W_NOM :=1;
     END IF;
     W_TEMP_DATE := W_CHG_FROM_DATE;
     IF V_PRODGCP_ATM_CHG_FREQ = 'M' THEN
        W_NOM1 :=MONTHS_BETWEEN(W_CBD,W_CHG_FROM_DATE);
        IF W_NOM1 = 0 THEN
         W_NOM1 :=1;
        END IF;
        W_NOM    := FN_ROUNDOFF(W_ENTITY_NUM,W_NOM1,'L',1);
        W_FACTOR := W_NOM;
      ELSIF V_PRODGCP_ATM_CHG_FREQ = 'Q' THEN
        W_CHAR_QHY := 'Q';
        W_FACTOR   := 3;
      ELSIF V_PRODGCP_ATM_CHG_FREQ = 'H' THEN
        W_CHAR_QHY := 'H';
        W_FACTOR   := 6;
      ELSIF V_PRODGCP_ATM_CHG_FREQ = 'Y' THEN
        W_CHAR_QHY := 'Y';
        W_FACTOR   := 12;
      ELSIF V_PRODGCP_ATM_CHG_FREQ = 'A' THEN
        W_CHAR_QHY := 'A';
        W_FACTOR   := 12;
      END IF;
      IF V_PRODGCP_ATM_CHG_FREQ = 'A' THEN
        W_TEMP_DATE := W_CHG_FROM_DATE1;
      END IF;
      IF V_PRODGCP_ATM_CHG_FREQ <> 'M' THEN
        W_NOF_QHY := 0;
        SP_GET_QHY;
        W_FACTOR := W_FACTOR+W_NOF_QHY;
      END IF;
  END SP_GET_PERIOD;
  PROCEDURE SP_READ_ACNTS_DETAILS IS
            --KESAVAN-31-01-2012-ADDED
            TYPE RC IS REF CURSOR;
            V_REF_CURSOR RC;  --KESAVAN
  BEGIN
  --KESAVAN-DAR-10-02-2012-BEG
  -- CHANGES IN VALIDATION AND ALSO ADDED TWO FIELDS
     /*W_SQL := 'SELECT ACNTS_PROD_CODE,ACNTS_AC_TYPE,ACNTS_CURR_CODE,ACNTS_ATM_OPERN,
            ACNTS_INTERNAL_ACNUM,ACNTS_OPENING_DATE,ACNTS_BRN_CODE FROM ACNTS
            WHERE ACNTS_ATM_OPERN= 1 AND ACNTS_ENTITY_NUM='||W_ENTITY_NUM ;*/
      W_SQL := 'SELECT ACNTS_PROD_CODE,ACNTS_AC_TYPE,ACNTS_CURR_CODE,ACNTS_ATM_OPERN,
            ACNTS_INTERNAL_ACNUM,ACNTS_OPENING_DATE,ACNTS_BRN_CODE, PRODGCP_ATM_CHG,PRODGCP_ATM_CHG_FREQ
            FROM ACNTS, PRODGENCP
            WHERE ACNTS_ATM_OPERN= 1 AND ACNTS_ENTITY_NUM='||W_ENTITY_NUM || ' AND
            PRODGCP_PROD_CODE =ACNTS_PROD_CODE AND PRODGCP_AC_TYPE= ACNTS_AC_TYPE AND PRODGCP_CURR_CODE=ACNTS_CURR_CODE
            AND PRODGCP_ATM_CHG IS NOT NULL  ' ;
--KESAVAN-DAR-10-02-2012-END
   IF (W_BRN_CODE > 0) THEN
         W_SQL := W_SQL || ' AND ACNTS_BRN_CODE = ' || W_BRN_CODE;
   END IF;
   IF (V_INTERNAL_ACNUM > 0) THEN
         W_SQL := W_SQL || ' AND ACNTS_INTERNAL_ACNUM = ' || V_INTERNAL_ACNUM;
   END IF;
    W_SQL := W_SQL || ' AND ACNTS_CLOSURE_DATE IS NULL ORDER BY ACNTS_BRN_CODE';
--KESAVAN-30-JAN-2012
   /*EXECUTE IMMEDIATE W_SQL
    BULK COLLECT INTO ACNTS_REC;*/
     OPEN V_REF_CURSOR FOR W_SQL  ;
     LOOP
     FETCH V_REF_CURSOR BULK COLLECT INTO ACNTS_REC LIMIT 5000;
         SP_PROCESS_ACNTS_DETAILS; -- KESAVAN
        --DBMS_OUTPUT.PUT_LINE ('BRANCH CODE : '|| W_BRN_CODE ) ;
        EXIT WHEN V_REF_CURSOR%NOTFOUND;
     END LOOP;
     CLOSE V_REF_CURSOR;
--KESAVAN-30-JAN-2012 END
  END SP_READ_ACNTS_DETAILS;
  PROCEDURE INSERT_ATMCHGCTL IS
    BEGIN
      INSERT INTO ATMCHGCTL
        (ATMCHGCTL_ENTITY_NUM,
         ATMCHGCTL_BRN_CODE,
         ATMCHGCTL_INTERNAL_ACNUM,
         ATMCHGCTL_APPLIED_UPTO_DATE,
         ATMCHGDTL_PROC_ON,
         ATMCHGCTL_PROC_BY,
         POST_TRAN_BRN,
         POST_TRAN_DATE,
         POST_TRAN_BATCH_NUM)
      VALUES
        (W_ENTITY_NUM,
         V_ACNTS_BRN_CODE,
         V_INTERNAL_ACNUM,
         W_CBD,
         W_CBD,
         PKG_EODSOD_FLAGS.PV_USER_ID,
         V_ACNTS_BRN_CODE,
         W_CBD,
         W_BATCH_NUMBER);
    END INSERT_ATMCHGCTL;
   PROCEDURE SET_CREDIT_LEG IS
   BEGIN
       IF W_CHG_AMT > 0 THEN
        W_IND := W_IND + 1;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_ACING_BRN_CODE := V_ACNTS_BRN_CODE;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_DB_CR_FLG := 'C';
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_INTERNAL_ACNUM := 0;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_GLACC_CODE := V_CHG_INCOME_GL;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_CHARGE_CODE := V_PRODGCP_ATM_CHG;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_CURR_CODE := V_ACNTS_CURR_CODE;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_AMOUNT := W_CHG_AMT;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_NARR_DTL1 := 'ATM CHARGES FOR :'||TO_CHAR(W_CBD,'MON');
        INDX := W_IND;
       END IF;
   END SET_CREDIT_LEG;
   PROCEDURE SET_DEBIT_LEG IS
   BEGIN
        W_IND := W_IND + 1;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_DB_CR_FLG := 'D';
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_INTERNAL_ACNUM := V_INTERNAL_ACNUM;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_TYPE_OF_TRAN := '1';
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_CHARGE_CODE := V_PRODGCP_ATM_CHG;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_CURR_CODE := V_ACNTS_CURR_CODE;
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_AMOUNT := W_CHG_AMT;
        --PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_AMT_BRKUP := '1';
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_NARR_DTL1 := 'ATM CHARGES FOR THE PERIOD';
       --SATHISHAN 15FEB2012 BEG
       /* IF W_CHAR_QHY <> 'A' THEN
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_NARR_DTL2 := TO_CHAR(W_CHG_FROM_DATE,
                                                                  'DD-MON-YYYY') ||
                                                          ' TO ' ||
                                                          TO_CHAR(W_CBD,
                                                                  'DD-MON-YYYY');
        ELSE*/
        --SATHISHAN 15FEB2012 END
        PKG_AUTOPOST.PV_TRAN_REC(W_IND).TRAN_NARR_DTL2 := TO_CHAR(W_CHG_FROM_DATE,
                                                                  'DD-MON-YYYY') ||
                                                          ' TO ' ||
                                                          TO_CHAR(W_CBD,
                                                                  'DD-MON-YYYY');
        --END IF;
   END SET_DEBIT_LEG;
    PROCEDURE SET_TRAN_KEY_VALUES IS
    BEGIN
      PKG_AUTOPOST.PV_TRAN_KEY.TRAN_BRN_CODE     := V_ACNTS_BRN_CODE;
      PKG_AUTOPOST.PV_TRAN_KEY.TRAN_DATE_OF_TRAN := W_CBD;
      PKG_AUTOPOST.PV_TRAN_KEY.TRAN_BATCH_NUMBER := 0;
      PKG_AUTOPOST.PV_TRAN_KEY.TRAN_BATCH_SL_NUM := 0;
    END SET_TRAN_KEY_VALUES;
    PROCEDURE SET_TRANBAT_VALUES IS
    BEGIN
      PKG_AUTOPOST.PV_TRANBAT.TRANBAT_SOURCE_TABLE := 'ATMCHGCTL';
      PKG_AUTOPOST.PV_TRANBAT.TRANBAT_SOURCE_KEY   := V_ACNTS_BRN_CODE;
      PKG_AUTOPOST.PV_TRANBAT.TRANBAT_NARR_DTL1    := 'ATM CHARGES';
      PKG_AUTOPOST.PV_TRANBAT.TRANBAT_NARR_DTL2    := '';
      PKG_AUTOPOST.PV_TRANBAT.TRANBAT_NARR_DTL3    := '';
   END SET_TRANBAT_VALUES;
  PROCEDURE SP_POSTING_PROCESS IS
  BEGIN
      SET_CREDIT_LEG;
      SET_DEBIT_LEG;
      W_ERR_CODE := '';
      PKG_POST_INTERFACE.G_PGM_NAME := W_PROC_NAME;
      SET_TRAN_KEY_VALUES;
      SET_TRANBAT_VALUES;
      PKG_APOST_INTERFACE.SP_POST_SODEOD_BATCH(W_ENTITY_NUM,'A',
                                               W_IND,
                                               W_ADV_IND,
                                               W_ERR_CODE,
                                               W_ERR_MSG,
                                               W_BATCH_NUMBER);
      IF (W_ERR_CODE <> '0000') THEN
        W_ERR_MSG := FN_GET_AUTOPOST_ERR_MSG(W_ENTITY_NUM);
        RAISE E_USEREXCEP;
      END IF;
      W_IND     := 0;
      W_ADV_IND := 0;
      PKG_APOST_INTERFACE.SP_POSTING_END(W_ENTITY_NUM);
      INSERT_ATMCHGCTL;
   END SP_POSTING_PROCESS;
  PROCEDURE INSERT_HOVERING IS
  BEGIN
      SELECT NVL(MAX(HOVERING_SL_NUM),0) + 1
      INTO W_COUNT
      FROM HOVERING
     WHERE HOVERING_ENTITY_NUM = W_ENTITY_NUM
       AND HOVERING_BRN_CODE = V_ACNTS_BRN_CODE
       AND HOVERING_YEAR = W_HOVER_YEAR;
    IF W_COUNT IS NULL OR W_COUNT = 0 THEN
       W_COUNT := 0;
       W_COUNT := W_COUNT + 1;
    END IF;
    INSERT INTO HOVERING
      (HOVERING_ENTITY_NUM,
       HOVERING_BRN_CODE,
       HOVERING_YEAR,
       HOVERING_SL_NUM,
       HOVERING_DATE_OF_ENTRY,
       HOVERING_TYPE,
       HOVERING_MANUALLY_ENTD_FLG,
       HOVERING_RECOVERY_FROM_ACNT,
       HOVERING_RECOVERY_INTO,
       HOVERING_CHG_CODE,
       HOVERING_GLACC_CODE,
       HOVERING_RECOVERY_TO_ACNT,
       HOVERING_CONTRACT_NUM,
       HOVERING_RECOVERY_CURR,
       HOVERING_RECOVERY_AMT,
       HOVERING_RECOVERY_DUE_DATE,
       HOVERING_START_DATE,
       HOVERING_END_DATE,
       HOVERING_RECOVERY_NARR1,
       HOVERING_RECOVERY_NARR2,
       HOVERING_RECOVERY_NARR3,
       HOVERING_REM1,
       HOVERING_REM2,
       HOVERING_REM3,
       HOVERING_SOURCE_TABLE,
       HOVERING_SOURCE_KEY,
       HOVERING_ENTD_BY,
       HOVERING_ENTD_ON,
       HOVERING_LAST_MOD_BY,
       HOVERING_LAST_MOD_ON,
       HOVERING_AUTH_BY,
       HOVERING_AUTH_ON,
       HOVERING_STATUS,
       HOVERING_CANC_BY,
       HOVERING_CANC_ON,
       HOVERING_PENDING_AMT,
       TBA_MAIN_KEY,
       HOVERING_CHG_ON_AMT,
       HOVERING_STAX_AMT,
       HOVERING_TOT_RECOVERY_AMT)
    VALUES
      (W_ENTITY_NUM,
       V_ACNTS_BRN_CODE,
       W_HOVER_YEAR,
       W_COUNT,
       W_CBD,
       --'HOVCHG', SATHISH KUMAR TAN COMMENT 26DEC2011
       '3',
       '1',
       V_INTERNAL_ACNUM,
       'G',
       V_PRODGCP_ATM_CHG,
       V_CHG_INCOME_GL,
       '0',
       '0',
       V_ACNTS_CURR_CODE,
       W_CHG_AMT,
       W_CBD,
       W_CBD,
       'ATM CHARGES:'||TO_CHAR(W_CBD,'MON'),--sathisshan tanzania added 16feb2012
       PKG_EODSOD_FLAGS.PV_USER_ID,
       TO_DATE(W_CBD_TIME,'DD-MON-YY HH24:MI:SS'),
       PKG_EODSOD_FLAGS.PV_USER_ID,
       TO_DATE(W_CBD_TIME,'DD-MON-YY HH24:MI:SS'),
       W_CHG_AMT,
       W_CHG_AMT);
   EXCEPTION
    WHEN OTHERS THEN
      W_ERR_MSG := 'INSERT_HOVERING FAILED' || SQLERRM;
      RAISE E_USEREXCEP;
  END INSERT_HOVERING;
  PROCEDURE INSERT_HOVERRECBRK IS
  BEGIN
  INSERT INTO HOVERRECBRK
  (HOVERBRK_ENTITY_NUM,
   HOVERBRK_BRN_CODE,
   HOVERBRK_YEAR,
   HOVERBRK_SL_NUM,
   HOVERBRK_BRK_SL,
   HOVERBRK_INTERNAL_ACNUM,
   HOVERBRK_GLACC_CODE,
   HOVERBRK_CURR_CODE,
   HOVERBRK_RECOVERY_AMT
  VALUES
  (W_ENTITY_NUM,
   V_ACNTS_BRN_CODE,
   W_HOVER_YEAR,
   W_COUNT,
   1,
   '0',
   V_CHG_INCOME_GL,
   V_ACNTS_CURR_CODE,
   W_CHG_AMT
  EXCEPTION
    WHEN OTHERS THEN
      W_ERR_MSG := 'INSERT_HOVERRECBRK FAILED' || SQLERRM;
      RAISE E_USEREXCEP;
  END INSERT_HOVERRECBRK;
PROCEDURE INSERT_HOVERSEQ IS
  BEGIN
  DELETE FROM HOVERSEQ
  WHERE
  HOVERSEQ_ENTITY_NUM=W_ENTITY_NUM
  AND HOVERSEQ_BRN_CODE=V_ACNTS_BRN_CODE
  AND HOVERSEQ_YEAR=W_HOVER_YEAR;
  INSERT INTO HOVERSEQ
  (HOVERSEQ_ENTITY_NUM,
   HOVERSEQ_BRN_CODE,
   HOVERSEQ_YEAR,
   HOVERSEQ_LAST_SEQ_NUM
  VALUES
  (W_ENTITY_NUM,
   V_ACNTS_BRN_CODE,
   W_HOVER_YEAR,
   W_COUNT
  EXCEPTION
    WHEN OTHERS THEN
      W_ERR_MSG := 'INSERT_HOVERSEQ FAILED' || SQLERRM;
      RAISE E_USEREXCEP;
  END INSERT_HOVERSEQ;
  PROCEDURE HOVERING_PROCESS IS
  BEGIN
      IF W_CHG_AMT IS NOT NULL THEN
         UPDATE ACNTBAL
         SET ACNTBAL_AC_DB_QUEUE_AMT = ACNTBAL_AC_DB_QUEUE_AMT
         + W_CHG_AMT
         WHERE ACNTBAL_ENTITY_NUM = W_ENTITY_NUM
         AND ACNTBAL_INTERNAL_ACNUM = V_INTERNAL_ACNUM
         AND ACNTBAL_CURR_CODE = V_ACNTS_CURR_CODE;
      END IF;
END HOVERING_PROCESS;
  PROCEDURE SP_HOVERING_PROCESS IS
  BEGIN
        INSERT_HOVERING;
        HOVERING_PROCESS;
        INSERT_HOVERRECBRK;
        INSERT_HOVERSEQ;
        INSERT_ATMCHGCTL;
  END SP_HOVERING_PROCESS;
  PROCEDURE SP_PROCESS_ACNTS_DETAILS IS
  BEGIN
    IF ACNTS_REC.FIRST IS NOT NULL THEN
      FOR J IN ACNTS_REC.FIRST .. ACNTS_REC.LAST LOOP
       V_ACNTS_ATM_OPERN :=ACNTS_REC(J).W_ACNTS_ATM_OPERN;
      IF V_ACNTS_ATM_OPERN = 1 THEN
                V_ACNTS_PROD_CODE :=ACNTS_REC(J).W_ACNTS_PROD_CODE;
                V_ACNTS_AC_TYPE   :=ACNTS_REC(J).W_ACNTS_AC_TYPE;
                V_ACNTS_CURR_CODE :=ACNTS_REC(J).W_ACNTS_CURR_CODE;
                V_INTERNAL_ACNUM  :=ACNTS_REC(J).W_ACNTS_INTERNAL_ACNUM;
                V_ACNTS_OPENING_DATE:=ACNTS_REC(J).W_ACNTS_OPENING_DATE;
                V_ACNTS_BRN_CODE  :=ACNTS_REC(J).W_ACNTS_BRN_CODE;
                --KESAVAN-DAR-10-02-2012-BEG
                V_PRODGCP_ATM_CHG         :=ACNTS_REC(J).W_CHG_CODE ;
                V_PRODGCP_ATM_CHG_FREQ    :=ACNTS_REC(J).W_FREQ ;
                --KESAVAN-DAR-10-02-2012-END
        IF PKG_PROCESS_CHECK.FN_IGNORE_ACNUM(W_ENTITY_NUM,V_INTERNAL_ACNUM) = FALSE THEN
              SP_GET_LAST_POSTED_DATE;
              IF V_ACNTS_ATM_OPERN=1 THEN
                READ_PRODGENCP(W_ERR_MSG);
                IF V_PRODGCP_ATM_CHG_FREQ IS NOT NULL THEN
                   SP_GET_BAL;
                 --  SP_GET_CHARGES;  SATHISH KUMAR TANZANIA COMMENT 28-JAN-2012
                 -- SATHISH KUMAR TANZANIA COMMENT 28-JAN-2012    BEG
                    IF V_PRODGCP_ATM_CHG IS NOT NULL THEN
                       SP_GET_CHARGES;
                    END IF;
               -- SATHISH KUMAR TANZANIA COMMENT 28-JAN-2012    END
                END IF;
               END IF;
     IF V_PRODGCP_ATM_CHG_FREQ IS NOT NULL THEN
         --SATHISHAN TANZANIA 15FEB2012 BEG
              IF W_LAST_POSTED_DATE IS NULL THEN
                  W_CHG_FROM_DATE :=LAST_DAY(V_ACNTS_OPENING_DATE);
              ELSE
                  W_CHG_FROM_DATE := LAST_DAY(W_LAST_POSTED_DATE + 1);
              END IF;
      /* IF V_PRODGCP_ATM_CHG_FREQ <> 'A' THEN
                IF W_LAST_POSTED_DATE IS NULL THEN
                  --W_CHG_FROM_DATE := W_YR_BEG_DATE;
                    W_CHG_FROM_DATE :=LAST_DAY(V_ACNTS_OPENING_DATE);
                    W_DESC_DATE :=LAST_DAY(V_ACNTS_OPENING_DATE);
                ELSE
                  W_DESC_DATE :=W_LAST_POSTED_DATE+1;
                  W_CHG_FROM_DATE := LAST_DAY(W_LAST_POSTED_DATE + 1);
                END IF;
              ELSE
                IF W_LAST_POSTED_DATE IS NULL THEN
                  W_CHG_FROM_DATE1 := LAST_DAY(V_ACNTS_OPENING_DATE);
                  --W_LAST_POSTED_DATE :=V_ACNTS_OPENING_DATE;
                ELSE
                  W_CHG_FROM_DATE1 := LAST_DAY(W_LAST_POSTED_DATE + 1);
                END IF;
              END IF;*/
      /*  IF W_LAST_POSTED_DATE IS NOT NULL THEN
             IF V_ACNTS_OPENING_DATE > W_LAST_POSTED_DATE THEN
                W_CHG_FROM_DATE := LAST_DAY(V_ACNTS_OPENING_DATE);
             END IF;
        END IF;*/
             SP_GET_PERIOD;
             IF W_FACTOR > 1 THEN
               W_FACTOR :=1;
             END IF;
             --SATHISHAN TANZANIA 15FEB2012 END
             W_CHG_AMT  := W_CHG_AMT * W_FACTOR;
            IF W_CHG_AMT > 0 THEN
                 IF AC_AVLBAL > W_CHG_AMT THEN
                   SP_POSTING_PROCESS;
                   W_CHG_AMT :=0;   --SATHISSHAN TANZANIA ADDED 16FEB2012
                   W_FACTOR :=0 ;   --SATHISSHAN TANZANIA ADDED 16FEB2012
                 ELSE
                     W_BATCH_NUMBER :=0;  -- SATHISH KUMAR TANZANIA COMMENT 28-JAN-2012   ADDED
                     SP_HOVERING_PROCESS;
                     W_CHG_AMT :=0;     --SATHISSHAN TANZANIA ADDED 16FEB2012
                     W_FACTOR :=0;      --SATHISSHAN TANZANIA ADDED 16FEB2012
                 END IF;
             END IF;
      END IF;
         END IF;
      END IF;
       END LOOP;
    END IF;
  END SP_PROCESS_ACNTS_DETAILS;
--SATHISHAN TANZANIA 15FEB2012 BEG
  /* PROCEDURE SP_GET_MQHY_FLAG IS
    BEGIN
      IF GET_MQHY_MON(PKG_ENTITY.FN_GET_ENTITY_CODE,W_CBD,'Y') = '1' THEN
        W_EOD_MQHY_FLG := 'Y';
      ELSIF GET_MQHY_MON(PKG_ENTITY.FN_GET_ENTITY_CODE,W_CBD,'H') = '1' THEN
        W_EOD_MQHY_FLG := 'H';
      ELSIF GET_MQHY_MON(PKG_ENTITY.FN_GET_ENTITY_CODE,W_CBD,'Q') = '1' THEN
        W_EOD_MQHY_FLG := 'Q';
      ELSIF GET_MQHY_MON(PKG_ENTITY.FN_GET_ENTITY_CODE,W_CBD,'M') = '1' THEN
        W_EOD_MQHY_FLG := 'M';
      ELSE
        W_EOD_MQHY_FLG := 'D';
      END IF;
   END SP_GET_MQHY_FLAG;*/
--SATHISHAN TANZANIA 15FEB2012 END
  PROCEDURE SP_ATMSERCHG_REC(V_ENTITY_NUM IN NUMBER ,
                                    P_BRN_CODE   IN NUMBER DEFAULT 0,
                                    P_INTERNAL_NUM IN NUMBER DEFAULT 0,
                                    P_PRODCODE IN NUMBER DEFAULT 0) AS
  BEGIN
    PKG_ENTITY.SP_SET_ENTITY_CODE(V_ENTITY_NUM);
    W_ENTITY_NUM:=PKG_ENTITY.FN_GET_ENTITY_CODE;
    W_CBD := PKG_EODSOD_FLAGS.PV_CURRENT_DATE;
    W_USER_ID := PKG_EODSOD_FLAGS.PV_USER_ID;
    V_INTERNAL_ACNUM:=P_INTERNAL_NUM;
    IF (P_BRN_CODE IS NULL) THEN
        W_BRN_CODE := 0;
    ELSE
        W_BRN_CODE :=P_BRN_CODE;
    END IF;
    IF (P_PRODCODE IS NULL) THEN
        W_PROD_CODE := 0;
      ELSE
        W_PROD_CODE := P_PRODCODE;
      END IF;
      IF (P_INTERNAL_NUM IS NULL) THEN
        V_INTERNAL_ACNUM := 0;
      ELSE
        V_INTERNAL_ACNUM := P_INTERNAL_NUM;
      END IF;
      IF (TRIM(W_USER_ID) IS NULL) THEN
        W_ERR_MSG := 'USER ID SHOULD BE SPECIFIED';
        RAISE E_USEREXCEP;
      END IF;
    INIT_PARA;
    W_CBD := PKG_EODSOD_FLAGS.PV_CURRENT_DATE;
    W_HOVER_YEAR       := TO_NUMBER(TO_CHAR(W_CBD, 'YYYY'));
    W_CBD_TIME         := W_CBD || ' ' ||
                          PKG_PB_GLOBAL.FN_GET_CURR_BUS_TIME(W_ENTITY_NUM);
    W_YR_BEG_DATE      := PKG_PB_GLOBAL.SP_FORM_START_DATE(W_ENTITY_NUM,W_CBD,'Y');
    --SP_GET_MQHY_FLAG;      SATHISH KUMAR TANZANIA COMMENT 28-JAN-2012   ADDED
   --KESAVAN    SP_READ_ACNTS_DETAILS;
    PKG_PROCESS_CHECK.INIT_PROC_BRN_WISE(W_ENTITY_NUM,W_BRN_CODE);
    FOR IDX IN 1 .. PKG_PROCESS_CHECK.V_ACNTBRN.COUNT LOOP
    L_BRN_CODE := PKG_PROCESS_CHECK.V_ACNTBRN(IDX).LN_BRN_CODE;
       IF PKG_PROCESS_CHECK.CHK_BRN_ALREADY_PROCESSED(W_ENTITY_NUM,L_BRN_CODE) = FALSE THEN
         W_BRN_CODE := L_BRN_CODE;
         -- KESAVAN-dar-11-02-2012-BEG
         IF P_INTERNAL_NUM = 0 THEN
             V_INTERNAL_ACNUM := 0 ;
         END IF;
         -- KESAVAN-dar-11-02-2012-End
          PKG_APOST_INTERFACE.SP_POSTING_BEGIN(W_ENTITY_NUM);
          SP_READ_ACNTS_DETAILS;
         -- KESAVAN  SP_PROCESS_ACNTS_DETAILS;
          IF TRIM(PKG_EODSOD_FLAGS.PV_ERROR_MSG) IS NULL THEN
              PKG_PROCESS_CHECK.INSERT_ROW_INTO_EODSODPROCBRN(W_ENTITY_NUM,W_BRN_CODE);
           END IF;
          PKG_PROCESS_CHECK.CHECK_COMMIT_ROLLBACK_STATUS(W_ENTITY_NUM);
       END IF;
    END LOOP;
   EXCEPTION
     WHEN OTHERS THEN
      IF TRIM(W_ERR_MSG) IS NULL THEN
        W_ERR_MSG := SUBSTR('ERROR IN SP_ATMSERCHG_REC ' || SQLERRM,1,1000);
      END IF;
      PKG_EODSOD_FLAGS.PV_ERROR_MSG := W_ERR_MSG;
      PKG_PB_GLOBAL.DETAIL_ERRLOG(PKG_ENTITY.FN_GET_ENTITY_CODE,'E',PKG_EODSOD_FLAGS.PV_ERROR_MSG,' ',0);
      PKG_PB_GLOBAL.DETAIL_ERRLOG(PKG_ENTITY.FN_GET_ENTITY_CODE,'E',SUBSTR(SQLERRM,1,1000),' ',0);
  END SP_ATMSERCHG_REC;
END PKG_ATMSERCHG_REC ;