PROCEDURE ACCUMULATOR_WRAP( TABLE_NAME      IN VARCHAR2,
                            PK_ID           IN VARCHAR2,
                            ORDER_BY_1      IN VARCHAR2,
                            ORDER_BY_2      IN VARCHAR2,
                            ORDER_BY_3      IN VARCHAR2 :=NULL,
                            ORDER_BY_4      IN VARCHAR2 :=NULL,
                            DATE_FROM       IN DATE     :=NULL,
                            DATE_TO         IN DATE     :=NULL,
                            DATE_COL        IN VARCHAR2 :=NULL,
                            AMT_TO_ACCUM    IN NUMBER,
                            COL_TO_STORE    IN VARCHAR2) IS
--TABLE_NAME    - Table where fields are located in
--PK_ID         - Primary Key Field Name
--ORDER_BY_1    - Primary Field Name to be accumulated by (ie, Member_ID)
--ORDER_BY_2    - Secondary order by field (ie, Date Processed)
--ORDER_BY_3    - Tertiary order by field (ie Claim Number) OPTIONAL
--ORDER_BY_4    - Final order by field    OPTIONAL
--DATE_FROM     - Start of Date Range (DATE VALUE) 
--DATE_TO       - Last Date in Date Range 
--DATE_COL      - Field Name containing To Date 
--AMT_TO_ACCUM  - The field name to be accumulated - MUST BE NUMBER!
--COL_TO_STORE  - Field Name in which to store accumulation
 
 
--SET UP REFCURSOR FROM SPECS                                                        
G_CURSOR R_CURSOR;
S_CURSOR    VARCHAR2(4000);
 
 
 
BEGIN
 
S_CURSOR := 'SELECT '   || ORDER_BY_1 ||',' || ORDER_BY_2;
IF ORDER_BY_3 IS NOT NULL
THEN
    S_CURSOR := S_CURSOR || ORDER_BY_3;
END IF;
IF ORDER_BY_4 IS NOT NULL
THEN
    S_CURSOR := S_CURSOR || ORDER_BY_4;
END IF;
 
S_CURSOR := S_CURSOR ||' FROM ' || TABLE_NAME;
 
-- DATES
IF DATE_FROM IS NOT NULL AND DATE_COL IS NOT NULL
THEN
    IF DATE_TO IS NOT NULL
    THEN
        S_CURSOR := S_CURSOR || ' WHERE ' || DATE_COL ||'BETWEEN ';
        S_CURSOR := S_CURSOR || DATE_FROM || ' AND ' || DATE_TO;   
    ELSE
        S_CURSOR := S_CURSOR || ' WHERE ' || DATE_COL || ' > = ';
        S_CURSOR := S_CURSOR || DATE_FROM ;
    END IF;
ELSE
    IF DATE_TO IS NOT NULL
    THEN
        S_CURSOR := S_CURSOR || ' WHERE ' || DATE_COL || '=<';
        S_CURSOR := S_CURSOR || DATE_FROM;
    END IF;    
END IF;    
S_CURSOR := S_CURSOR || ' ORDER BY ' || ORDER_BY_1 ||',' || ORDER_BY_2;
IF ORDER_BY_3 IS NOT NULL
THEN
    S_CURSOR := S_CURSOR || ORDER_BY_3;
END IF;
IF ORDER_BY_4 IS NOT NULL
THEN
    S_CURSOR := S_CURSOR || ORDER_BY_4;
END IF;