Please help me to implement my logic.

Question

Hi Experts,
I am providing the complete code and my exact requirement.
CREATE OR REPLACE PACKAGE INTERNAL_SCORING_RAM
IS
PROCEDURE TrendScoring_ram(pBUID       IN STAGING_ORDER_DATA.BUID%TYPE,
                         OrderNum    IN STAGING_ORDER_DATA.ORDER_NUM%TYPE,
                         ReturnValue OUT VARCHAR2);
PROCEDURE InsertTrend_ram(pBUID        IN ORDER_TREND_SCORE.BUID%TYPE,
                        OrderNum     IN ORDER_TREND_SCORE.ORDER_NUM%TYPE,
                        Variable     IN ORDER_TREND_SCORE.TREND_VARIABLE%TYPE,
                        DeductPoints IN ORDER_TREND_SCORE.DEDUCTION_POINTS%TYPE,
                        FraudPct     IN ORDER_TREND_SCORE.FRAUD_PERCENTAGE%TYPE,
                        FraudWkdPct  IN ORDER_TREND_SCORE.FRAUD_WORKED_PERCENTAGE%TYPE);
END;
CREATE OR REPLACE PACKAGE BODY INTERNAL_SCORING_RAM
IS
PROCEDURE trendscoring_ram
(pBUID  IN STAGING_ORDER_DATA.BUID%TYPE,
  OrderNum  IN STAGING_ORDER_DATA.ORDER_NUM%TYPE,
  ReturnValue OUT VARCHAR2)
IS
    tCleanProdDesc  ORDERS.PRODUCT_DESC%TYPE;
    tLocalChannel   STAGING_ORDER_DATA.LOCAL_CHANNEL%TYPE;
    tSKUNum         STAGING_ORDER_DATA.SKU_NUM%TYPE;
    tDeductionPoints  TREND.DEDUCTION_POINTS%TYPE := 0;
    tFrdPct           TREND.FRAUD_TOTAL_PERCENTAGE%TYPE := 0;
    tFrdWkdPct        TREND.FRAUD_WORKED_PERCENTAGE%TYPE := 0;
    tCount          NUMBER := 0;
    tAVS            VARCHAR2(50);
    tScore          SCORE.VENDOR_COMBINED_SCORE%TYPE;
    tProdDesc       ORDERS.PRODUCT_DESC%TYPE;
   tPayCode        ORDERS.PAY_CODE%TYPE;
BEGIN
  ReturnValue := 'get order header';
SELECT stgOrder.LOCAL_CHANNEL
      INTO tLocalChannel
      FROM STAGING_ORDER_DATA stgOrder
     WHERE stgOrder.BUID = pBUID
     AND stgOrder.ORDER_NUM = OrderNum
     AND stgOrder.ADDRESS_TYPE = 'B';
      SELECT ord.PRODUCT_DESC,
            NVL (ord.SKU_NUM, ''),
            NVL (cc.AVS_CC_CODE, ''),
            NVL (s.VENDOR_COMBINED_SCORE, -1)
  INTO    tProdDesc,tSKUNum, tAVS, tScore
  FROM   MASTER_CURRENCY exchg,
               ORDERS ord
            LEFT OUTER JOIN
               (  SELECT   BUID,
                           ORDER_NUM,
                           MIN (AVS_CC_CODE) AS AVS_CC_CODE,
                           MIN (CID_CODE) AS CID_CODE
                    FROM   CREDIT_CARD
                   WHERE   BUID = pBUID AND ORDER_NUM = OrderNum
                GROUP BY   BUID, ORDER_NUM) cc
            ON ord.BUID = cc.BUID AND ord.ORDER_NUM = cc.ORDER_NUM
         LEFT OUTER JOIN SCORE s
         ON ord.BUID = s.BUID
         AND ord.ORDER_NUM = s.ORDER_NUM
WHERE   ord.CURRENCY_CODE = exchg.CURRENCY_CODE
         AND ord.BUID = pBUID
         AND ord.ORDER_NUM = OrderNum;
------SKU Num---------------------------------------------------------
     ReturnValue := 'sku Num';
   BEGIN
     SELECT DEDUCTION_POINTS,
             FRAUD_TOTAL_PERCENTAGE,
             FRAUD_WORKED_PERCENTAGE
        INTO tDeductionPoints, tFrdPct, tFrdWkdPct
        FROM TREND
       WHERE VARIABLE_NAME = 'sku num' AND
             UPPER(VARIABLE_VALUE) = tSKUNum AND BUID = pBUID AND
             LOCAL_CHANNEL = tLocalChannel
         AND DEDUCTION_POINTS IS NOT NULL;
    ReturnValue := 'product degredation';
         InsertTrend_ram(pBUID,OrderNum,'sku num: ' || tSKUNum,tDeductionPoints,tFrdPct,tFrdWkdPct);
EXCEPTION
WHEN no_data_found THEN
tCleanProdDesc := fn_cleanproddesc(UPPER(tProdDesc));
    ReturnValue := 'product degredation';
--product degredation---------------------------------------------------------
    BEGIN
    SELECT DEDUCTION_POINTS,
              FRAUD_TOTAL_PERCENTAGE,
              FRAUD_WORKED_PERCENTAGE
         INTO tDeductionPoints, tFrdPct, tFrdWkdPct
         FROM TREND
        WHERE VARIABLE_NAME = 'product' AND
             UPPER(VARIABLE_VALUE) = tCleanProdDesc
         AND BUID = pBUID
         AND LOCAL_CHANNEL = tLocalChannel
     AND DEDUCTION_POINTS IS NOT NULL;
       InsertTrend_ram(pBUID,OrderNum,'product: ' || tCleanProdDesc,tDeductionPoints,tFrdPct,tFrdWkdPct);
     EXCEPTION
     WHEN no_data_found THEN
      NULL;
     END;
END;
-----pay code--------------------------------------------------------------------
ReturnValue := 'pay code';
    BEGIN
      SELECT DEDUCTION_POINTS,
             FRAUD_TOTAL_PERCENTAGE,
             FRAUD_WORKED_PERCENTAGE
        INTO tDeductionPoints, tFrdPct, tFrdWkdPct
        FROM TREND
       WHERE VARIABLE_NAME = 'payment code' AND VARIABLE_VALUE = tPayCode AND
             BUID = pBUID AND LOCAL_CHANNEL = tLocalChannel
              AND DEDUCTION_POINTS IS NOT NULL;
      InsertTrend_ram(pBUID,OrderNum,'pay code: ' || tPayCode,tDeductionPoints,tFrdPct,tFrdWkdPct);
EXCEPTION
WHEN no_data_found THEN
NULL;
END;
--ship code--------------------------------------------------------------------
--InsertTrend_ram(pBUID,OrderNum,'ship code: ' || tShipCode,tDeductionPoints,tFrdPct,tFrdWkdPct);
--source system flag----------------------------------------------------------
--InsertTrend_ram(pBUID,OrderNum, 'source system flag: ' || tSrcSys,tDeductionPoints,tFrdPct,tFrdWkdPct);
--st address diff flag--------------------------------------------------------
--InsertTrend_ram(pBUID,OrderNum, 'st address diff flag: ' || tSTDiff,tFrdPct,tFrdWkdPct);
---inserttrend_ram procedure calling 70 times
END  trendscoring_ram;
PROCEDURE InsertTrend_ram (
   pBUID          IN ORDER_TREND_SCORE.BUID%TYPE,
   OrderNum       IN ORDER_TREND_SCORE.ORDER_NUM%TYPE,
   Variable       IN ORDER_TREND_SCORE.TREND_VARIABLE%TYPE,
   DeductPoints   IN ORDER_TREND_SCORE.DEDUCTION_POINTS%TYPE,
   FraudPct       IN ORDER_TREND_SCORE.FRAUD_PERCENTAGE%TYPE,
   FraudWkdPct    IN ORDER_TREND_SCORE.FRAUD_WORKED_PERCENTAGE%TYPE
IS
BEGIN
DELETE FROM  ORDER_TREND_SCORE WHERE  BUID = pBUID AND ORDER_NUM = OrderNum AND TREND_VARIABLE = Variable;
   INSERT INTO ORDER_TREND_SCORE (BUID,
                                  ORDER_NUM,
                                  TREND_VARIABLE,
                                  DEDUCTION_POINTS,
                                  FRAUD_PERCENTAGE,
                                  FRAUD_WORKED_PERCENTAGE)
     VALUES   (pBUID,
               OrderNum,
               Variable,
               DeductPoints,
               FraudPct,
               FraudWkdPct);
END InsertTrend_ram;
END;
/In my code the procedure "trendscoring_ram" is calling "inserttrend_ram" procedure 70 times
for different variable values.
Instead of calling the "inserttrend_ram" procedure 70 times.
I want to hold the values in a associative array , defining it in package and call that procedure only once.
As below.
Inserttrend_ram(pBUID, OrderNum, Associativearray, Associativearray, Associativearray,Associativearray);
For that I have tried the following but it's not working.
IN the package I have declared the associative array like this.
TYPE type_ots IS TABLE OF ORDER_TREND_SCORE%ROWTYPE INDEX BY PLS_INTEGER;
I have modified the inserttrend_ram as below.
PROCEDURE InsertTrend_ram(
                            P_TYPE_OTS_REC IN type_ots
        IS
        BEGIN
            FORALL i in P_TYPE_OTS_REC.FIRST.. P_TYPE_OTS_REC.LAST
              DELETE
                FROM ORDER_TREND_SCORE
                WHERE BUID = P_TYPE_OTS_REC(i).BUID
                  AND ORDER_NUM = P_TYPE_OTS_REC(i).ORDER_NUM
                  AND TREND_VARIABLE = P_TYPE_OTS_REC(i).TREND_VARIABLE;
            FORALL i in P_TYPE_OTS_REC.FIRST.. P_TYPE_OTS_REC.LAST
              INSERT INTO ORDER_TREND_SCORE(
                                            BUID,
                                            ORDER_NUM,
                                            TREND_VARIABLE,
                                            DEDUCTION_POINTS,
                                            FRAUD_PERCENTAGE,
                                            FRAUD_WORKED_PERCENTAGE
              VALUES(
                     P_TYPE_OTS_REC(i).BUID,
                     P_TYPE_OTS_REC(i).ORDER_NUM,
                     P_TYPE_OTS_REC(i).TREND_VARIABLE,
                     P_TYPE_OTS_REC(i).DEDUCTION_POINTS,
                     P_TYPE_OTS_REC(i).FRAUD_PERCENTAGE,
                     P_TYPE_OTS_REC(i).FRAUD_WORKED_PERCENTAGE
END InsertTrend_ram;Please help me.
Thanks in advance.

Answer 1

For that I have tried the following but it's not working.As you don't specify the error message, and we don't have your table definitions and you posted several hundreds of lines of code, we can not reproduce your problem, so you won't get any responses.
Sybrand Bakker
Senior Oracle DBA