APPS.GR_EUROHAZARDS_TL_PKG SQL Statements

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

Line: 3

PROCEDURE Insert_Row
	   			 (p_commit IN VARCHAR2,
				  p_called_by_form IN VARCHAR2,
				  p_hazard_classification_code IN VARCHAR2,
				  p_language IN VARCHAR2,
				  p_hazard_description IN VARCHAR2,
				  p_source_lang IN VARCHAR2,
				  p_created_by IN NUMBER,
				  p_creation_date IN DATE,
				  p_last_updated_by IN NUMBER,
				  p_last_update_date IN DATE,
				  p_last_update_login IN NUMBER,
				  x_rowid OUT NOCOPY VARCHAR2,
				  x_return_status OUT NOCOPY VARCHAR2,
				  x_oracle_error OUT NOCOPY NUMBER,
				  x_msg_data OUT NOCOPY VARCHAR2)
	IS
/*   Alpha Variables */

L_RETURN_STATUS VARCHAR2(1) := 'S';

Line: 44

   SAVEPOINT Insert_Row;

Line: 76

   INSERT INTO gr_eurohazards_tl
   		  	     (hazard_classification_code,
				  language,
				  hazard_description,
				  source_lang,
				  created_by,
				  creation_date,
				  last_updated_by,
				  last_update_date,
				  last_update_login)
          VALUES
		         (p_hazard_classification_code,
				  p_language,
				  p_hazard_description,
				  p_source_lang,
				  p_created_by,
				  p_creation_date,
				  p_last_updated_by,
				  p_last_update_date,
				  p_last_update_login);

Line: 97

/*   Now get the row id of the inserted record */

   Check_Primary_Key
   	   	   		 (p_hazard_classification_code,
				  p_language,
				  'F',
				  l_rowid,
				  l_key_exists);

Line: 121

      ROLLBACK TO SAVEPOINT Insert_Row;

Line: 136

      ROLLBACK TO SAVEPOINT Insert_Row;

Line: 152

      ROLLBACK TO SAVEPOINT Insert_Row;

Line: 157

                           'GR_NO_RECORD_INSERTED');

Line: 168

      ROLLBACK TO SAVEPOINT Insert_Row;

Line: 184

END Insert_Row;

Line: 186

PROCEDURE Update_Row
	   			 (p_commit IN VARCHAR2,
				  p_called_by_form IN VARCHAR2,
				  p_rowid IN VARCHAR2,
				  p_hazard_classification_code IN VARCHAR2,
				  p_language IN VARCHAR2,
				  p_hazard_description IN VARCHAR2,
				  p_source_lang IN VARCHAR2,
				  p_created_by IN NUMBER,
				  p_creation_date IN DATE,
				  p_last_updated_by IN NUMBER,
				  p_last_update_date IN DATE,
				  p_last_update_login IN NUMBER,
				  x_return_status OUT NOCOPY VARCHAR2,
				  x_oracle_error OUT NOCOPY NUMBER,
				  x_msg_data OUT NOCOPY VARCHAR2)
   IS

/*   Alpha Variables */

L_RETURN_STATUS	  VARCHAR2(1) := 'S';

Line: 222

   SAVEPOINT Update_Row;

Line: 242

      UPDATE gr_eurohazards_tl
	  SET	 hazard_classification_code 	 = p_hazard_classification_code,
	  		 language						 = p_language,
			 hazard_description				 = p_hazard_description,
			 source_lang					 = p_source_lang,
			 created_by						 = p_created_by,
			 creation_date					 = p_creation_date,
			 last_updated_by				 = p_last_updated_by,
			 last_update_date				 = p_last_update_date,
			 last_update_login				 = p_last_update_login
	  WHERE  rowid = p_rowid;

Line: 267

      ROLLBACK TO SAVEPOINT Update_Row;

Line: 282

      ROLLBACK TO SAVEPOINT Update_Row;

Line: 286

                           'GR_NO_RECORD_INSERTED');

Line: 297

      ROLLBACK TO SAVEPOINT Update_Row;

Line: 312

END Update_Row;

Line: 332

L_LAST_UPDATE_DATE	DATE;

Line: 338

L_LAST_UPDATED_BY	NUMBER;

Line: 339

L_LAST_UPDATE_LOGIN	NUMBER;

Line: 349

   SELECT	eht.hazard_description,
            eht.created_by,
			eht.creation_date,
			eht.last_updated_by,
			eht.last_update_date,
			eht.last_update_login
   FROM	    gr_eurohazards_tl eht
   WHERE	eht.hazard_classification_code = p_hazard_classification_code
   AND		eht.language = l_language;

Line: 362

   SELECT	lng.language_code
   FROM	 	fnd_languages lng
   WHERE	lng.installed_flag IN ('I', 'B');

Line: 380

  delete from GR_EUROHAZARDS_TL T
  where not exists
    (select NULL
    from GR_EUROHAZARDS_B B
    where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
    );

Line: 390

   update gr_eurohazards_tl t set (
    hazard_description ) =
    ( select
      B.HAZARD_DESCRIPTION
      from GR_EUROHAZARDS_TL B
      where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
      and B.LANGUAGE = T.SOURCE_LANG)
   where (
      T.HAZARD_CLASSIFICATION_CODE,
      T.LANGUAGE
   ) in (select
         SUBT.HAZARD_CLASSIFICATION_CODE,
         SUBT.LANGUAGE
         from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT
         where SUBB.HAZARD_CLASSIFICATION_CODE = SUBT.HAZARD_CLASSIFICATION_CODE
         and SUBB.LANGUAGE = SUBT.SOURCE_LANG
         and (SUBB.HAZARD_DESCRIPTION <> SUBT.HAZARD_DESCRIPTION
          or (SUBB.HAZARD_DESCRIPTION is null and SUBT.HAZARD_DESCRIPTION is not null)
          or (SUBB.HAZARD_DESCRIPTION is not null and SUBT.HAZARD_DESCRIPTION is null)
  ));

Line: 424

	  l_last_updated_by := HazardDesc.last_updated_by;

Line: 425

	  l_last_update_date := HazardDesc.last_update_date;

Line: 426

	  l_last_update_login := HazardDesc.last_update_login;

Line: 433

**	insert it and go on to the next.
*/
   OPEN c_get_installed_languages;

Line: 445

			   INSERT INTO gr_eurohazards_tl
						(hazard_classification_code,
						 language,
						 hazard_description,
						 source_lang,
						 created_by,
						 creation_date,
						 last_updated_by,
						 last_update_date,
						 last_update_login)
				   VALUES
				        (p_hazard_classification_code,
						 l_language,
						 l_base_desc,
						 p_language,
						 l_created_by,
						 l_creation_date,
						 l_last_updated_by,
						 l_last_update_date,
						 l_last_update_login);

Line: 523

				  p_last_updated_by IN NUMBER,
				  p_last_update_date IN DATE,
				  p_last_update_login IN NUMBER,
				  x_return_status OUT NOCOPY VARCHAR2,
				  x_oracle_error OUT NOCOPY NUMBER,
				  x_msg_data OUT NOCOPY VARCHAR2)
   IS

/*  Alpha Variables */

L_RETURN_STATUS	  VARCHAR2(1) := 'S';

Line: 550

   SELECT	last_update_date
   FROM		gr_eurohazards_tl
   WHERE	rowid = p_rowid
   FOR UPDATE NOWAIT;

Line: 575

   IF LockHazardRcd.last_update_date <> p_last_update_date THEN
     RAISE RECORD_CHANGED_ERROR;

Line: 638

PROCEDURE Delete_Row
	   			 (p_commit IN VARCHAR2,
				  p_called_by_form IN VARCHAR2,
				  p_rowid IN VARCHAR2,
				  p_hazard_classification_code IN VARCHAR2,
				  p_language IN VARCHAR2,
				  p_hazard_description IN VARCHAR2,
				  p_source_lang IN VARCHAR2,
				  p_created_by IN NUMBER,
				  p_creation_date IN DATE,
				  p_last_updated_by IN NUMBER,
				  p_last_update_date IN DATE,
				  p_last_update_login IN NUMBER,
				  x_return_status OUT NOCOPY VARCHAR2,
				  x_oracle_error OUT NOCOPY NUMBER,
				  x_msg_data OUT NOCOPY VARCHAR2)
   IS

/*   Alpha Variables */

L_RETURN_STATUS	  VARCHAR2(1) := 'S';

Line: 680

   SAVEPOINT Delete_Row;

Line: 703

   DELETE FROM gr_eurohazards_tl
   WHERE  	   rowid = p_rowid;

Line: 715

      ROLLBACK TO SAVEPOINT Delete_Row;

Line: 725

      ROLLBACK TO SAVEPOINT Delete_Row;

Line: 740

      ROLLBACK TO SAVEPOINT Delete_Row;

Line: 755

END Delete_Row;

Line: 757

PROCEDURE Delete_Rows
	             (p_commit IN VARCHAR2,
				  p_called_by_form IN VARCHAR2,
	              p_hazard_classification_code IN VARCHAR2,
				  x_return_status OUT NOCOPY VARCHAR2,
				  x_oracle_error OUT NOCOPY NUMBER,
				  x_msg_data OUT NOCOPY VARCHAR2)
  IS

/*   Alpha Variables */

L_RETURN_STATUS	  VARCHAR2(1) := 'S';

Line: 782

   SAVEPOINT Delete_Rows;

Line: 788

   DELETE FROM gr_eurohazards_tl
   WHERE 	   hazard_classification_code = p_hazard_classification_code;

Line: 798

      ROLLBACK TO SAVEPOINT Delete_Rows;

Line: 813

END Delete_Rows;

Line: 840

   SELECT 	lng.language_code
   FROM		fnd_languages lng
   WHERE	lng.language_code = l_language_code;

Line: 939

   SELECT	lng.installed_flag
   FROM		fnd_languages lng
   WHERE	lng.language_code = p_language
   AND		lng.installed_flag IN ('B','I');

Line: 1019

   SELECT eht.rowid
   FROM	  gr_eurohazards_tl eht
   WHERE  eht.hazard_classification_code = p_hazard_classification_code
   AND	  eht.language = p_language;

Line: 1062

	UPDATE GR_EUROHAZARDS_TL SET
		HAZARD_DESCRIPTION = X_HAZARD_DESCRIPTION,
		SOURCE_LANG = USERENV('LANG'),
		LAST_UPDATE_DATE = sysdate,
		LAST_UPDATED_BY = 0,
		LAST_UPDATE_LOGIN = 0
	WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)
	AND   (USERENV('LANG') IN (LANGUAGE, SOURCE_LANG));

Line: 1079

	UPDATE GR_EUROHAZARDS_TL SET
		HAZARD_DESCRIPTION = X_HAZARD_DESCRIPTION,
		SOURCE_LANG = USERENV('LANG'),
		LAST_UPDATE_DATE = sysdate,
		LAST_UPDATED_BY = Decode(X_OWNER, 'SEED', 1, 0),
		LAST_UPDATE_LOGIN = 0
	WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)
	AND   (USERENV('LANG') IN (LANGUAGE, SOURCE_LANG));

Line: 1097

		SELECT rowid
		FROM GR_EUROHAZARDS_TL
			WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)

		AND   (LANGUAGE = X_LANGUAGE);

Line: 1111

		GR_EUROHAZARDS_TL_PKG.UPDATE_ROW(
			P_COMMIT => 'T'
			,P_CALLED_BY_FORM => 'F'
			,P_ROWID => l_row_id
			,P_LANGUAGE => X_LANGUAGE
			,P_HAZARD_DESCRIPTION => X_HAZARD_DESCRIPTION
			,P_SOURCE_LANG => X_SOURCE_LANG
			,P_HAZARD_CLASSIFICATION_CODE => X_HAZARD_CLASSIFICATION_CODE
			,P_CREATED_BY => l_user_id
			,P_CREATION_DATE => sysdate
			,P_LAST_UPDATED_BY => l_user_id
			,P_LAST_UPDATE_DATE => sysdate
			,P_LAST_UPDATE_LOGIN => 0
			,X_RETURN_STATUS => l_return_status
			,X_ORACLE_ERROR => l_oracle_error
			,X_MSG_DATA => l_msg_data);

Line: 1128

		GR_EUROHAZARDS_TL_PKG.INSERT_ROW(
			P_COMMIT => 'T'
			,P_CALLED_BY_FORM => 'F'
			,P_LANGUAGE => X_LANGUAGE
			,P_HAZARD_DESCRIPTION => X_HAZARD_DESCRIPTION
			,P_SOURCE_LANG => X_SOURCE_LANG
			,P_HAZARD_CLASSIFICATION_CODE => X_HAZARD_CLASSIFICATION_CODE
			,P_CREATED_BY => l_user_id
			,P_CREATION_DATE => sysdate
			,P_LAST_UPDATED_BY => l_user_id
			,P_LAST_UPDATE_DATE => sysdate
			,P_LAST_UPDATE_LOGIN => 0
			,X_ROWID => l_row_id
			,X_RETURN_STATUS => l_return_status
			,X_ORACLE_ERROR => l_oracle_error
			,X_MSG_DATA => l_msg_data);

Line: 1154

		SELECT rowid
		FROM GR_EUROHAZARDS_TL
			WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)
		AND USERENV('LANG') in (LANGUAGE,SOURCE_LANG);

Line: 1170

     select sysdate into l_sysdate from dual;

Line: 1174

           UPDATE GR_EUROHAZARDS_TL SET
  		  HAZARD_DESCRIPTION    = X_HAZARD_DESCRIPTION,
	          LAST_UPDATE_DATE     = l_sysdate,
                  LAST_UPDATED_BY      = l_user_id,
                  LAST_UPDATE_LOGIN    = 0,
                  SOURCE_LANG          = userenv('LANG')
       	   WHERE HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE
       	   AND   userenv('LANG') in (LANGUAGE,SOURCE_LANG);

Line: 1184

           insert into GR_EUROHAZARDS_TL (
             	HAZARD_CLASSIFICATION_CODE,
                HAZARD_DESCRIPTION,
                CREATED_BY,
                CREATION_DATE,
                LAST_UPDATED_BY,
                LAST_UPDATE_DATE,
                LAST_UPDATE_LOGIN,
                LANGUAGE,
                SOURCE_LANG
              ) select
                X_HAZARD_CLASSIFICATION_CODE,
                X_HAZARD_DESCRIPTION,
	        l_user_id,
	        l_sysdate,
	        l_user_id,
                l_sysdate,
	        0,
                L.LANGUAGE_CODE,
                userenv('LANG')
              from FND_LANGUAGES L
              where L.INSTALLED_FLAG in ('I', 'B')
              and not exists
                (select NULL
                from GR_EUROHAZARDS_TL T
                where T.HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE
                and T.LANGUAGE = L.LANGUAGE_CODE);

Line: 1219

  delete from GR_EUROHAZARDS_TL T
  where not exists
    (select NULL
    from GR_EUROHAZARDS_B B
    where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
    );

Line: 1226

  update GR_EUROHAZARDS_TL T set (
      HAZARD_DESCRIPTION
    ) = (select
      B.HAZARD_DESCRIPTION
    from GR_EUROHAZARDS_TL B
    where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
    and B.LANGUAGE = T.SOURCE_LANG)
  where (
      T.HAZARD_CLASSIFICATION_CODE,
      T.LANGUAGE
  ) in (select
      SUBT.HAZARD_CLASSIFICATION_CODE,
      SUBT.LANGUAGE
    from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT
    where SUBB.HAZARD_CLASSIFICATION_CODE = SUBT.HAZARD_CLASSIFICATION_CODE
    and SUBB.LANGUAGE = SUBT.SOURCE_LANG
    and (SUBB.HAZARD_DESCRIPTION <> SUBT.HAZARD_DESCRIPTION
  ));

Line: 1245

  insert into GR_EUROHAZARDS_TL (
    HAZARD_DESCRIPTION,
    CREATED_BY,
    CREATION_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATE_LOGIN,
    HAZARD_CLASSIFICATION_CODE,
    LANGUAGE,
    SOURCE_LANG
  ) select
    B.HAZARD_DESCRIPTION,
    B.CREATED_BY,
    B.CREATION_DATE,
    B.LAST_UPDATED_BY,
    B.LAST_UPDATE_DATE,
    B.LAST_UPDATE_LOGIN,
    B.HAZARD_CLASSIFICATION_CODE,
    L.LANGUAGE_CODE,
    B.SOURCE_LANG
  from GR_EUROHAZARDS_TL B, FND_LANGUAGES L
  where L.INSTALLED_FLAG in ('I', 'B')
  and B.LANGUAGE = userenv('LANG')
  and not exists
    (select NULL
    from GR_EUROHAZARDS_TL T
    where T.HAZARD_CLASSIFICATION_CODE = B.HAZARD_CLASSIFICATION_CODE
    and T.LANGUAGE = L.LANGUAGE_CODE);