Fixed Assets Conversion

#=======================================================================

# Writer          : Lokanadham Thandlam

#=======================================================================

CREATE OR REPLACE PACKAGE APPS.XX_FA_IMPORT_PKG

IS

   PROCEDURE XX_FA_IMPORT_PROC (ERRBUF OUT VARCHAR2, RETCODE OUT VARCHAR2);

END;

/

CREATE OR REPLACE PACKAGE BODY APPS.XX_FA_IMPORT_PKG

IS

   PROCEDURE XX_FA_IMPORT_PROC (ERRBUF OUT VARCHAR2, RETCODE OUT VARCHAR2)

   IS

      L_CATEGORY_ID      NUMBER;

      L_EXP_CCID         NUMBER;

      L_LOCATION_ID      NUMBER (15);

      L_STATUS           VARCHAR2 (50) := 'S';

      L_ERROR_MESSAGE    VARCHAR2 (240);

      L_COUNT            NUMBER := 0;

      L_SALVAGE_VAL      NUMBER;

      L_COUNT1           NUMBER := 0;

      L_LIFE_IN_MONTHS   NUMBER;

      L_ASSET_KEY_CCID   NUMBER (15);

      L_CATEGORY         VARCHAR2 (100);

      L_DEPRN_METHOD     VARCHAR2 (100);

      L_BASIC_RATE       NUMBER;

      L_ADJUSTED_RATE    NUMBER;

      L_ASSET_NUMBER     VARCHAR2 (15);

      L_CT               NUMBER;

      CURSOR C1

      IS

         SELECT A.ROWID, A.*

           FROM XX_FA_STG A

          WHERE A.STATUS = 'N';

   BEGIN

      FOR CREC IN C1

      LOOP

         L_STATUS := 'S';

         L_COUNT := L_COUNT + 1;

         -- ===================================================================

         --  Checking for Duplicate Asset Number

         -- ===================================================================

         -- ===================================================================

         --  Fetching the category id (major and minor category)

         -- ===================================================================

         -- =========================================================

         -- Fetching the expense code combination id

         -- =========================================================

         -- ======================================================================

         -- Fetching Asset Key CCID

         -- =======================================================================

         -- ======================================================================

         -- DEPRN_METHOD_CODE VALIDATION  BASIC_RATE, ADJUSTED_RATE FETCHING

         -- =======================================================================

   

         -- ======================================================================

         -- BASIC_RATE, ADJUSTED_RATE FETCHING

         -- =======================================================================

            --- =======================================================================

----

----
----
----
----

----

----
----
----
----

----

----
----
----
----

----

----
----
----
----

----

----
----
----
----

            FND_FILE.PUT_LINE (FND_FILE.LOG, L_COUNT || '.Error Occured');

            UPDATE XX_FA_STG

               SET STATUS = 'E', ERROR_MESSAGE = L_ERROR_MESSAGE

             WHERE ROWID = CREC.ROWID;

         END IF;

      END LOOP;

      FND_FILE.PUT_LINE (FND_FILE.LOG, 'OUT OF THE LOOP');

      FND_FILE.PUT_LINE (FND_FILE.LOG,    'Total Records Inserted  :' || L_COUNT1);

   END;

END;

/