eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.CN_LEDGER_BAL_TYPES_ALL_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 3


procedure INSERT_ROW (
  X_ROWID in out VARCHAR2,
  X_BALANCE_ID in NUMBER,
--  X_CREDIT_TYPE_ID in NUMBER,
--  X_INCENTIVE_TYPE_ID in NUMBER,
  X_STATISTICAL_TYPE in VARCHAR2,
  X_PAYMENT_TYPE in VARCHAR2,
  X_COLUMN_NAME in VARCHAR2,
  X_BALANCE_TYPE in VARCHAR2,
  X_SCREEN_SEQUENCE in NUMBER,
  X_BALANCE_NAME in VARCHAR2,
  X_CREATION_DATE in DATE,
  X_CREATED_BY in NUMBER,
  X_LAST_UPDATE_DATE in DATE,
  X_LAST_UPDATED_BY in NUMBER,
  X_LAST_UPDATE_LOGIN in NUMBER
) is
  cursor C is select ROWID from CN_LEDGER_BAL_TYPES_ALL_B
    where BALANCE_ID = X_BALANCE_ID
    ;

Line: 24


  insert into CN_LEDGER_BAL_TYPES_ALL_B (
--    CREDIT_TYPE_ID,
--    INCENTIVE_TYPE_ID,
    STATISTICAL_TYPE,
    PAYMENT_TYPE,
    BALANCE_ID,
    COLUMN_NAME,
    BALANCE_TYPE,
    SCREEN_SEQUENCE,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
--    X_CREDIT_TYPE_ID,
--    X_INCENTIVE_TYPE_ID,
    X_STATISTICAL_TYPE,
    X_PAYMENT_TYPE,
    X_BALANCE_ID,
    X_COLUMN_NAME,
    X_BALANCE_TYPE,
    X_SCREEN_SEQUENCE,
    X_CREATION_DATE,
    X_CREATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 54


  insert into CN_LEDGER_BAL_TYPES_ALL_TL (
    BALANCE_ID,
    BALANCE_NAME,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    CREATION_DATE,
    CREATED_BY,
    LANGUAGE,
    SOURCE_LANG
  ) select
    X_BALANCE_ID,
    X_BALANCE_NAME,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
    X_CREATION_DATE,
    X_CREATED_BY,
    L.LANGUAGE_CODE,
    userenv('LANG')
  from FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and not exists
    (select NULL
    from CN_LEDGER_BAL_TYPES_ALL_TL T
    where T.BALANCE_ID = X_BALANCE_ID
    and T.LANGUAGE = L.language_code AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99));

Line: 91


end INSERT_ROW;

Line: 104


  cursor c is select
--      CREDIT_TYPE_ID,
--      INCENTIVE_TYPE_ID,
      STATISTICAL_TYPE,
      PAYMENT_TYPE,
      COLUMN_NAME,
      BALANCE_TYPE,
      SCREEN_SEQUENCE
    from CN_LEDGER_BAL_TYPES_ALL_B
    where BALANCE_ID = x_balance_id AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
    for update of BALANCE_ID nowait;

Line: 118


  cursor c1 is select
      BALANCE_NAME,
      decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
    from CN_LEDGER_BAL_TYPES_ALL_TL
    where BALANCE_ID = X_BALANCE_ID
    and userenv('LANG') in (LANGUAGE, SOURCE_LANG) AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
    for update of BALANCE_ID nowait;

Line: 131


    fnd_message.set_name('FND', 'FORM_RECORD_DELETED');

Line: 170


procedure UPDATE_ROW (
  X_BALANCE_ID in NUMBER,
--  X_CREDIT_TYPE_ID in NUMBER,
--  X_INCENTIVE_TYPE_ID in NUMBER,
  X_STATISTICAL_TYPE in VARCHAR2,
  X_PAYMENT_TYPE in VARCHAR2,
  X_COLUMN_NAME in VARCHAR2,
  X_BALANCE_TYPE in VARCHAR2,
  X_SCREEN_SEQUENCE in NUMBER,
  X_BALANCE_NAME in VARCHAR2,
  X_LAST_UPDATE_DATE in DATE,
  X_LAST_UPDATED_BY in NUMBER,
  X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
  update CN_LEDGER_BAL_TYPES_ALL_B set
--    CREDIT_TYPE_ID = X_CREDIT_TYPE_ID,
--    INCENTIVE_TYPE_ID = X_INCENTIVE_TYPE_ID,
    STATISTICAL_TYPE = X_STATISTICAL_TYPE,
    PAYMENT_TYPE = X_PAYMENT_TYPE,
    COLUMN_NAME = X_COLUMN_NAME,
    BALANCE_TYPE = X_BALANCE_TYPE,
    SCREEN_SEQUENCE = X_SCREEN_SEQUENCE,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
  where BALANCE_ID = X_BALANCE_ID AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);

Line: 203


  update CN_LEDGER_BAL_TYPES_ALL_TL set
    BALANCE_NAME = X_BALANCE_NAME,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
    SOURCE_LANG = userenv('LANG')
  where BALANCE_ID = X_BALANCE_ID
  and userenv('LANG') in (LANGUAGE, SOURCE_LANG) AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);

Line: 216


end UPDATE_ROW;

Line: 218


procedure DELETE_ROW (
  X_BALANCE_ID in NUMBER
) is
begin
  delete from CN_LEDGER_BAL_TYPES_ALL_TL
  where BALANCE_ID = X_BALANCE_ID AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);

Line: 230


  delete from CN_LEDGER_BAL_TYPES_ALL_B
  where BALANCE_ID = X_BALANCE_ID AND
     NVL(ORG_ID,NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) = NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);

Line: 237


end DELETE_ROW;

Line: 242


  delete from CN_LEDGER_BAL_TYPES_ALL_TL T
  where not exists
    (select NULL
    from CN_LEDGER_BAL_TYPES_ALL_B B
    where B.BALANCE_ID = T.balance_id
    and   NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
          NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))
    );

Line: 253


  update CN_LEDGER_BAL_TYPES_ALL_TL T set (
      BALANCE_NAME
    ) = (select
      B.BALANCE_NAME
    from CN_LEDGER_BAL_TYPES_ALL_TL B
    where B.BALANCE_ID = T.BALANCE_ID
    and B.LANGUAGE = T.source_lang
    and   NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
          NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))	 )
  where (
      T.BALANCE_ID,
      T.LANGUAGE
  ) in (select
      SUBT.BALANCE_ID,
      SUBT.LANGUAGE
    from CN_LEDGER_BAL_TYPES_ALL_TL SUBB, CN_LEDGER_BAL_TYPES_ALL_TL SUBT
    where SUBB.BALANCE_ID = SUBT.BALANCE_ID
    and SUBB.LANGUAGE = SUBT.source_lang
    and   NVL(SUBB.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
          NVL(SUBT.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))
    and (SUBB.BALANCE_NAME <> SUBT.BALANCE_NAME
      or (SUBB.BALANCE_NAME is null and SUBT.BALANCE_NAME is not null)
      or (SUBB.BALANCE_NAME is not null and SUBT.BALANCE_NAME is null)
	 ));

Line: 282


  insert into CN_LEDGER_BAL_TYPES_ALL_TL (
    ORG_ID,
    BALANCE_ID,
    BALANCE_NAME,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    CREATION_DATE,
    CREATED_BY,
    LANGUAGE,
    SOURCE_LANG
  ) select
    B.ORG_ID,
    B.BALANCE_ID,
    B.BALANCE_NAME,
    B.LAST_UPDATE_DATE,
    B.LAST_UPDATED_BY,
    B.LAST_UPDATE_LOGIN,
    B.CREATION_DATE,
    B.CREATED_BY,
    L.LANGUAGE_CODE,
    B.SOURCE_LANG
  from CN_LEDGER_BAL_TYPES_ALL_TL B, FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and B.LANGUAGE = userenv('LANG')
  and not exists
    (select NULL
    from CN_LEDGER_BAL_TYPES_ALL_TL T
    where T.BALANCE_ID = B.BALANCE_ID
    and T.LANGUAGE = L.language_code
    and   NVL(T.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
          NVL(B.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
          NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))     );

Line: 349


   UPDATE cn_ledger_bal_types_all_b SET
--    CREDIT_TYPE_ID = X_CREDIT_TYPE_ID,
--    INCENTIVE_TYPE_ID = X_INCENTIVE_TYPE_ID,
     STATISTICAL_TYPE = X_STATISTICAL_TYPE,
     PAYMENT_TYPE = X_PAYMENT_TYPE,
     COLUMN_NAME = X_COLUMN_NAME,
     BALANCE_TYPE = X_BALANCE_TYPE,
     SCREEN_SEQUENCE = X_SCREEN_SEQUENCE,
     LAST_UPDATE_DATE = sysdate,
     LAST_UPDATED_BY = user_id,
     LAST_UPDATE_LOGIN = 0
     WHERE BALANCE_ID = X_BALANCE_ID;

Line: 363


      INSERT INTO cn_ledger_bal_types_all_b
	(--    CREDIT_TYPE_ID,
	 --    INCENTIVE_TYPE_ID,
	 BALANCE_ID,
	 STATISTICAL_TYPE,
	 PAYMENT_TYPE,
	 COLUMN_NAME,
	 BALANCE_TYPE,
	 SCREEN_SEQUENCE,
	 CREATION_DATE,
	 CREATED_BY,
	 LAST_UPDATE_DATE,
	 LAST_UPDATED_BY,
	 LAST_UPDATE_LOGIN
	 ) values
	(--    X_CREDIT_TYPE_ID,
	 --    X_INCENTIVE_TYPE_ID,
	 X_BALANCE_ID,
	 X_STATISTICAL_TYPE,
	 X_PAYMENT_TYPE,
	 X_COLUMN_NAME,
	 X_BALANCE_TYPE,
	 X_SCREEN_SEQUENCE,
	 sysdate,
	 user_id,
	 sysdate,
	 user_id,
	 0
	 );

Line: 394


   UPDATE cn_ledger_bal_types_all_tl SET
     BALANCE_NAME = X_BALANCE_NAME,
     LAST_UPDATE_DATE = sysdate,
     LAST_UPDATED_BY = user_id,
     LAST_UPDATE_LOGIN = 0,
     SOURCE_LANG = userenv('LANG')
     WHERE BALANCE_ID = X_BALANCE_ID
     AND   userenv('LANG') IN (LANGUAGE, SOURCE_LANG);

Line: 404


      INSERT INTO cn_ledger_bal_types_all_tl
	(BALANCE_ID,
	 BALANCE_NAME,
	 LAST_UPDATE_DATE,
	 LAST_UPDATED_BY,
	 LAST_UPDATE_LOGIN,
	 CREATION_DATE,
	 CREATED_BY,
	 LANGUAGE,
	 SOURCE_LANG
	 ) SELECT
	X_BALANCE_ID,
	X_BALANCE_NAME,
	sysdate,
	user_id,
	0,
	sysdate,
	user_id,
	L.LANGUAGE_CODE,
	userenv('LANG')
	FROM FND_LANGUAGES L
	WHERE L.INSTALLED_FLAG IN ('I', 'B')
	AND NOT EXISTS
	(SELECT NULL
	 FROM CN_LEDGER_BAL_TYPES_ALL_TL T
	 WHERE T.BALANCE_ID = X_BALANCE_ID
	 AND T.LANGUAGE = L.LANGUAGE_CODE);

Line: 459


   UPDATE cn_ledger_bal_types_all_tl SET
     balance_name = x_balance_name,
     last_update_date = sysdate,
     last_updated_by = user_id,
     last_update_login = 0,
     source_lang = userenv('LANG')
     WHERE balance_id = x_balance_id
     AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);