CREATE OR REPLACE PROCEDURE TEMP_VESI.CREATE_WBH_CELLSTS_PROC2
AS
XFIELDS VARCHAR2(32000);
XSTATEMENT VARCHAR2(32000);
XAGGREGATE_FIELDS VARCHAR2(32000);
XDATE_RESULT  VARCHAR2(4000);
XDATA_DATE_RESULT VARCHAR2(4000);
XNE_RESULT VARCHAR2(4000);
c NUMBER;
BEGIN
    LOADER_CREATION.GET_LOCAL_TABLE_FIELDS('CELLSTS',XFIELDS);
    LOADER_CREATION.GET_AGGREGATION_FIELDS('CELLSTS','_DA_CELL',XAGGREGATE_FIELDS,XDATE_RESULT,XDATA_DATE_RESULT,XNE_RESULT);
    c := dbms_sql.open_cursor();
    DBMS_SQL.PARSE(c,
    'CREATE OR REPLACE PACKAGE CALCULATE_CELLSTS_WBH AS
        PROCEDURE CELLSTS_7WBH_CELL(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_7WBH_BTS(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_7WBH_BSC(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_7WBH_CLS(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_7WBH_RGN(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_7WBH_NW(XDATA_DATE IN DATE);
        
        PROCEDURE CELLSTS_5WBH_CELL(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_5WBH_BTS(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_5WBH_BSC(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_5WBH_CLS(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_5WBH_RGN(XDATA_DATE IN DATE);
        PROCEDURE CELLSTS_5WBH_NW(XDATA_DATE IN DATE);
    END CALCULATE_CELLSTS_WBH;
    CREATE OR REPLACE PACKAGE BODY CALCULATE_CELLSTS_WBH AS 
    CREATE OR REPLACE PROCEDURE CELLSTS_7WBH_CELL(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',1 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',2 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',3 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',4 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END;
    PROCEDURE CELLSTS_7WBH_BTS(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',5 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',6 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',7 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',8 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_7WBH_BSC(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',9 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',10 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',11 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',12 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_7WBH_CLS(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',13 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',14 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',15 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',16 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END;
     PROCEDURE CELLSTS_7WBH_RGN(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',17 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',18 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',19 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',20 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_7WBH_NW(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',21 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',22 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',23 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',24 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_7 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_5WBH_CELL(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',25 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',26 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',27 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',28 TYPE FROM TEMP_NORTHI.CELLSTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_5WBH_BTS(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',29 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',30 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',31 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',32 TYPE FROM TEMP_NORTHI.CELLSTS_H_BTS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24; 
    COMMIT; END;
     PROCEDURE CELLSTS_5WBH_BSC(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',33 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',34 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',35 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',36 TYPE FROM TEMP_NORTHI.CELLSTS_H_BSC E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24; 
    COMMIT; END; 
     PROCEDURE CELLSTS_5WBH_CLS(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',37 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',38 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',39 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',40 TYPE FROM TEMP_NORTHI.CELLSTS_H_CLS E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24; 
    COMMIT; END;   PROCEDURE CELLSTS_5WBH_RGN(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',41 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',42 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',43 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',44 TYPE FROM TEMP_NORTHI.CELLSTS_H_RGN E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24; 
    COMMIT; END; 
    PROCEDURE CELLSTS_5WBH_NW(XDATA_DATE IN DATE) AS
    BEGIN 
    INSERT /*+ APPEND */ INTO TEMP_NORTHI.WBH_CELLSTS('||XFIELDS||',BH_TYPE) 
    SELECT '||XAGGREGATE_FIELDS||',45 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_TRAFF_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',46 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_TRAFF_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+7)+23/24
    UNION ALL 
    SELECT '||XAGGREGATE_FIELDS||',47 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.TCH_ATT_BH 
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24
    UNION ALL
    SELECT '||XAGGREGATE_FIELDS||',48 TYPE FROM TEMP_NORTHI.CELLSTS_H_NW E, TEMP_NORTHI.WEEK_BH_5 B 
    WHERE E.NETWORK_ID=B.NETWORK_ID AND TO_CHAR(E.FRAGMENT_DATE,''HH24'')=B.CCH_ATT_BH
    AND B.FRAGMENT_DATE BETWEEN XDATA_DATE AND (XDATA_DATE+5)+23/24; 
    COMMIT; END; 
    END CALCULATE_CELLSTS_WBH;
    ',DBMS_SQL.NATIVE);
    dbms_sql.close_cursor(c);
    EXCEPTION
     WHEN OTHERS THEN
       DBMS_SQL.CLOSE_CURSOR(c);
       RAISE;
END;
/