Steps to load the Gl Code Combination By Using FND_FLEX_KEYVAL.VALIDATE_SEGS

STEP 1 :

xx_combination_error_status

CREATE TABLE APPS.XX_COMBINATION_ERROR_STATUS
(
  CODE       VARCHAR2(2000 BYTE),
  STATUS     VARCHAR2(2000 BYTE),
  ERROR_MSG  VARCHAR2(4000 BYTE)
)

create table XX_ACCOUNT_COMBINATIONS (CODE VARCHAR2(2000))

edit      XX_ACCOUNT_COMBINATIONS --where CODE='11.01010.H123.0000.00.00'

insert into   XX_ACCOUNT_COMBINATIONS values ('11.82804.6006.0000.00.00')

Select * from     GL_CODE_COMBINATIONS_KFV where CONCATENATED_SEGMENTS in ('11.00000.6006.0000.00.00' ,
'11.82804.6006.0000.00.00',
'18.00000.3020.0000.00.00')

CREATE OR REPLACE FUNCTION APPS.XXX_CREATE_CCID
( P_CONCAT_SEGS IN VARCHAR2
) RETURN VARCHAR2
IS
L_STATUS BOOLEAN;
L_COA_ID NUMBER;
BEGIN
SELECT CHART_OF_ACCOUNTS_ID
INTO L_COA_ID
FROM GL_SETS_OF_BOOKS
WHERE SET_OF_BOOKS_ID = 2023;-- –UPDATE THIS WITH SET OF BOOKS ID

L_STATUS := FND_FLEX_KEYVAL.VALIDATE_SEGS(
'CREATE_COMBINATION',
'SQLGL',
'GL#',
L_COA_ID,
P_CONCAT_SEGS,
'V',
SYSDATE,
'ALL', NULL, NULL, NULL, NULL,
FALSE,FALSE, NULL, NULL, NULL);
IF L_STATUS THEN
RETURN 'S';
ELSE
RETURN 'F';
END IF;
END ;
/


STEP 2 :

DECLARE
   My_MSG          VARCHAR2 (4000);
   P_CONCAT_SEGS   VARCHAR2 (240);

   CURSOR C1
   IS
      SELECT   DISTINCT CODE FROM XX_ACCOUNT_COMBINATIONS;

BEGIN
   FOR I IN C1
   LOOP
      BEGIN
         SELECT   XXX_CREATE_CCID (I.CODE) INTO P_CONCAT_SEGS FROM DUAL;
      EXCEPTION
         WHEN OTHERS
         THEN
            DBMS_OUTPUT.put_line ('NO' || SQLERRM);
      END;

      DBMS_OUTPUT.put_line (P_CONCAT_SEGS);



      My_Msg := SQLERRM;

      INSERT INTO xx_combination_error_status (code, status, ERROR_MSG)
        VALUES   (i.code, P_CONCAT_SEGS, My_Msg);
   END LOOP;
END;


select * from xx_combination_error_status where STATUS='F'

select * from  GL_CODE_COMBINATIONS_KFV

Comments

  1. Its impressive to know something about your note on Oracle apps Course. Please do share your articles like this your articles for our awareness. Mostly we do also provide Online Training on Cub training oracle apps course.

    ReplyDelete

Post a Comment

Popular posts from this blog

Oracle Shipping Network SQL Query

Oracle Ar Invoice Numbering Sequence alter to avoid missing in between by cache

Advance Supply Chaining Scripts - ASCP Full Pegging Concept Script