TRIGGER: APPS.IGI_BUD_JOURNAL_PERIODS_T2

Source

Description

"APPS"."IGI_BUD_JOURNAL_PERIODS_T2" 
AFTER UPDATE
 ON  "IGI"."IGI_BUD_JOURNAL_PERIODS#"  FOR EACH ROW
 

Type

AFTER EACH ROW

Event

UPDATE

Column

When

NEW.RECORD_TYPE = 'U'

Referencing

REFERENCING NEW AS NEW OLD AS OLD

Body

DECLARE


/* Bug 1979303 sekhar 13-sep-01
 added cursor to get the user je source name */
 CURSOR get_user_je_source IS
 select user_je_source_name
 from gl_je_sources
 where je_source_name = 'IGIGBMJL'
 and language = userenv('LANG');

  /* Bug 1979303 sekhar 13-sep-01
  added following variable for user_je_source name     */
  l_user_je_source_name varchar2(25);

BEGIN

 IF IGI_GEN.IS_REQ_INSTALLED('BUD') THEN
   DELETE GL_INTERFACE
   WHERE 	STATUS = 'NEW-IGIGBJ'
   AND	PERIOD_NAME = :NEW.PERIOD_NAME
   AND	REFERENCE29 = TO_CHAR(:NEW.BE_HEADER_ID)
   AND 	REFERENCE30 = TO_CHAR(:NEW.BE_LINE_NUM);


/* bug 1979303 sekhar
    Modified and correct parameter is passed */

    OPEN get_user_je_source;
    FETCH get_user_je_source INTO l_user_je_source_name;
    CLOSE get_user_je_source;

   INSERT INTO GL_INTERFACE (
		STATUS,
		CREATED_BY,
		DATE_CREATED,
		GROUP_ID,
		SET_OF_BOOKS_ID,
		ACTUAL_FLAG,
		USER_JE_CATEGORY_NAME,
		USER_JE_SOURCE_NAME,
		BUDGET_VERSION_ID,
		CURRENCY_CODE,
		ACCOUNTING_DATE,
		CODE_COMBINATION_ID,
		ENTERED_CR,
		ENTERED_DR,
		PERIOD_NAME,
		REFERENCE1,
		REFERENCE2,
		REFERENCE4,
		REFERENCE5,
		REFERENCE7,
		REFERENCE10,
		REFERENCE21,
		REFERENCE22,
		REFERENCE23,
		REFERENCE24,
		REFERENCE25,
		REFERENCE26,
		REFERENCE27,
		REFERENCE28,
		REFERENCE29,
		REFERENCE30)
      SELECT
		'NEW-IGIGBJ',
		'-1',
		SYSDATE,
		jubjb.BE_BATCH_ID,
		jubjb.SET_OF_BOOKS_ID,
		'B',
		gjc.USER_JE_CATEGORY_NAME,
		l_user_je_source_name,
		jubjh.BUDGET_VERSION_ID,
		jubjh.CURRENCY_CODE,
		SYSDATE,
		jubjl.CODE_COMBINATION_ID,
		:NEW.ENTERED_CR,
		:NEW.ENTERED_DR,
		:NEW.PERIOD_NAME,
		jubjb.NAME,
		jubjb.NAME,
		jubjh.NAME,
		jubjh.DESCRIPTION,
		'N',
		jubjl.DESCRIPTION,
		'IGIGBUDPR',
		jubjb.BE_BATCH_ID,
		jubjl.PROFILE_CODE,
		jubjl.REASON_CODE,
		jubjl.START_PERIOD,
		jubjl.RECURRING_ENTRY,
		jubjl.FYE_PYE_ENTRY,
		:NEW.NEXT_YEAR_BUDGET,
		jubjh.BE_HEADER_ID,
		:NEW.BE_LINE_NUM
      FROM
		IGI_BUD_JOURNAL_BATCHES jubjb,
		IGI_BUD_JOURNAL_HEADERS jubjh,
		IGI_BUD_JOURNAL_LINES   jubjl,
		GL_JE_CATEGORIES gjc
      WHERE
                jubjb.BE_BATCH_ID = :NEW.BE_BATCH_ID
      AND	jubjh.BE_HEADER_ID = :NEW.BE_HEADER_ID
      AND	jubjl.BE_HEADER_ID = :NEW.BE_HEADER_ID
      AND	jubjl.BE_LINE_NUM = :NEW.BE_LINE_NUM
      AND	gjc.JE_CATEGORY_NAME = jubjh.JE_CATEGORY_NAME;

 END IF; -- is req installed check.

END;