DBA Data[Home] [Help]

APPS.GR_EUROHAZARDS_TL_PKG dependencies on GR_EUROHAZARDS_TL

Line 1: PACKAGE BODY GR_EUROHAZARDS_TL_PKG AS

1: PACKAGE BODY GR_EUROHAZARDS_TL_PKG AS
2: /*$Header: GRHIEHTB.pls 120.1 2006/06/16 21:38:53 pbamb noship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,

Line 76: INSERT INTO gr_eurohazards_tl

72: IF FND_API.To_Boolean(l_key_exists) THEN
73: RAISE Item_Exists_Error;
74: END IF;
75:
76: INSERT INTO gr_eurohazards_tl
77: (hazard_classification_code,
78: language,
79: hazard_description,
80: source_lang,

Line 242: UPDATE gr_eurohazards_tl

238:
239: IF l_return_status <> 'S' THEN
240: RAISE Foreign_Key_Error;
241: ELSE
242: UPDATE gr_eurohazards_tl
243: SET hazard_classification_code = p_hazard_classification_code,
244: language = p_language,
245: hazard_description = p_hazard_description,
246: source_lang = p_source_lang,

Line 355: FROM gr_eurohazards_tl eht

351: eht.creation_date,
352: eht.last_updated_by,
353: eht.last_update_date,
354: eht.last_update_login
355: FROM gr_eurohazards_tl eht
356: WHERE eht.hazard_classification_code = p_hazard_classification_code
357: AND eht.language = l_language;
358: HazardDesc c_get_descs%ROWTYPE;
359:

Line 380: delete from GR_EUROHAZARDS_TL T

376: l_msg_token := p_hazard_classification_code || ' ' || p_language;
377:
378: /* Remove translations with no base row */
379:
380: delete from GR_EUROHAZARDS_TL T
381: where not exists
382: (select NULL
383: from GR_EUROHAZARDS_B B
384: where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE

Line 390: update gr_eurohazards_tl t set (

386:
387: /* Redefault translations from the source language */
388:
389:
390: update gr_eurohazards_tl t set (
391: hazard_description ) =
392: ( select
393: B.HAZARD_DESCRIPTION
394: from GR_EUROHAZARDS_TL B

Line 394: from GR_EUROHAZARDS_TL B

390: update gr_eurohazards_tl t set (
391: hazard_description ) =
392: ( select
393: B.HAZARD_DESCRIPTION
394: from GR_EUROHAZARDS_TL B
395: where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
396: and B.LANGUAGE = T.SOURCE_LANG)
397: where (
398: T.HAZARD_CLASSIFICATION_CODE,

Line 403: from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT

399: T.LANGUAGE
400: ) in (select
401: SUBT.HAZARD_CLASSIFICATION_CODE,
402: SUBT.LANGUAGE
403: from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT
404: where SUBB.HAZARD_CLASSIFICATION_CODE = SUBT.HAZARD_CLASSIFICATION_CODE
405: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
406: and (SUBB.HAZARD_DESCRIPTION <> SUBT.HAZARD_DESCRIPTION
407: or (SUBB.HAZARD_DESCRIPTION is null and SUBT.HAZARD_DESCRIPTION is not null)

Line 445: INSERT INTO gr_eurohazards_tl

441: OPEN c_get_descs;
442: FETCH c_get_descs INTO HazardDesc;
443: IF c_get_descs%NOTFOUND THEN
444: CLOSE c_get_descs;
445: INSERT INTO gr_eurohazards_tl
446: (hazard_classification_code,
447: language,
448: hazard_description,
449: source_lang,

Line 551: FROM gr_eurohazards_tl

547:
548: CURSOR c_lock_hazards_tl
549: IS
550: SELECT last_update_date
551: FROM gr_eurohazards_tl
552: WHERE rowid = p_rowid
553: FOR UPDATE NOWAIT;
554: LockHazardRcd c_lock_hazards_tl%ROWTYPE;
555: BEGIN

Line 703: DELETE FROM gr_eurohazards_tl

699: IF l_return_status <> 'S' THEN
700: RAISE Check_Integrity_Error;
701: END IF;
702:
703: DELETE FROM gr_eurohazards_tl
704: WHERE rowid = p_rowid;
705:
706: /* Check the commit flag and if set, then commit the work. */
707:

Line 788: DELETE FROM gr_eurohazards_tl

784: x_oracle_error := 0;
785: x_msg_data := NULL;
786: l_msg_token := p_hazard_classification_code;
787:
788: DELETE FROM gr_eurohazards_tl
789: WHERE hazard_classification_code = p_hazard_classification_code;
790:
791: IF FND_API.To_Boolean(p_commit) THEN
792: COMMIT WORK;

Line 1020: FROM gr_eurohazards_tl eht

1016:
1017: CURSOR c_get_hazards_tl_rowid
1018: IS
1019: SELECT eht.rowid
1020: FROM gr_eurohazards_tl eht
1021: WHERE eht.hazard_classification_code = p_hazard_classification_code
1022: AND eht.language = p_language;
1023: HazardTLRecord c_get_hazards_tl_rowid%ROWTYPE;
1024:

Line 1062: UPDATE GR_EUROHAZARDS_TL SET

1058: ,X_SOURCE_LANG IN VARCHAR2
1059: ,X_HAZARD_CLASSIFICATION_CODE IN VARCHAR2
1060: ) IS
1061: BEGIN
1062: UPDATE GR_EUROHAZARDS_TL SET
1063: HAZARD_DESCRIPTION = X_HAZARD_DESCRIPTION,
1064: SOURCE_LANG = USERENV('LANG'),
1065: LAST_UPDATE_DATE = sysdate,
1066: LAST_UPDATED_BY = 0,

Line 1079: UPDATE GR_EUROHAZARDS_TL SET

1075: ,X_HAZARD_DESCRIPTION IN VARCHAR2
1076: ,X_OWNER IN VARCHAR2
1077: ) IS
1078: BEGIN
1079: UPDATE GR_EUROHAZARDS_TL SET
1080: HAZARD_DESCRIPTION = X_HAZARD_DESCRIPTION,
1081: SOURCE_LANG = USERENV('LANG'),
1082: LAST_UPDATE_DATE = sysdate,
1083: LAST_UPDATED_BY = Decode(X_OWNER, 'SEED', 1, 0),

Line 1098: FROM GR_EUROHAZARDS_TL

1094: ,X_HAZARD_CLASSIFICATION_CODE IN VARCHAR2
1095: ) IS
1096: CURSOR Cur_rowid IS
1097: SELECT rowid
1098: FROM GR_EUROHAZARDS_TL
1099: WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)
1100:
1101: AND (LANGUAGE = X_LANGUAGE);
1102: l_user_id NUMBER DEFAULT 1;

Line 1111: GR_EUROHAZARDS_TL_PKG.UPDATE_ROW(

1107: BEGIN
1108: OPEN Cur_rowid;
1109: FETCH Cur_rowid INTO l_row_id;
1110: IF Cur_rowid%FOUND THEN
1111: GR_EUROHAZARDS_TL_PKG.UPDATE_ROW(
1112: P_COMMIT => 'T'
1113: ,P_CALLED_BY_FORM => 'F'
1114: ,P_ROWID => l_row_id
1115: ,P_LANGUAGE => X_LANGUAGE

Line 1128: GR_EUROHAZARDS_TL_PKG.INSERT_ROW(

1124: ,X_RETURN_STATUS => l_return_status
1125: ,X_ORACLE_ERROR => l_oracle_error
1126: ,X_MSG_DATA => l_msg_data);
1127: ELSE
1128: GR_EUROHAZARDS_TL_PKG.INSERT_ROW(
1129: P_COMMIT => 'T'
1130: ,P_CALLED_BY_FORM => 'F'
1131: ,P_LANGUAGE => X_LANGUAGE
1132: ,P_HAZARD_DESCRIPTION => X_HAZARD_DESCRIPTION

Line 1155: FROM GR_EUROHAZARDS_TL

1151: ,X_OWNER IN VARCHAR2
1152: ) IS
1153: CURSOR Cur_rowid IS
1154: SELECT rowid
1155: FROM GR_EUROHAZARDS_TL
1156: WHERE (HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE)
1157: AND USERENV('LANG') in (LANGUAGE,SOURCE_LANG);
1158:
1159: l_user_id NUMBER DEFAULT 0;

Line 1174: UPDATE GR_EUROHAZARDS_TL SET

1170: select sysdate into l_sysdate from dual;
1171: OPEN Cur_rowid;
1172: FETCH Cur_rowid INTO l_row_id;
1173: IF Cur_rowid%FOUND THEN
1174: UPDATE GR_EUROHAZARDS_TL SET
1175: HAZARD_DESCRIPTION = X_HAZARD_DESCRIPTION,
1176: LAST_UPDATE_DATE = l_sysdate,
1177: LAST_UPDATED_BY = l_user_id,
1178: LAST_UPDATE_LOGIN = 0,

Line 1184: insert into GR_EUROHAZARDS_TL (

1180: WHERE HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE
1181: AND userenv('LANG') in (LANGUAGE,SOURCE_LANG);
1182:
1183: ELSE
1184: insert into GR_EUROHAZARDS_TL (
1185: HAZARD_CLASSIFICATION_CODE,
1186: HAZARD_DESCRIPTION,
1187: CREATED_BY,
1188: CREATION_DATE,

Line 1208: from GR_EUROHAZARDS_TL T

1204: from FND_LANGUAGES L
1205: where L.INSTALLED_FLAG in ('I', 'B')
1206: and not exists
1207: (select NULL
1208: from GR_EUROHAZARDS_TL T
1209: where T.HAZARD_CLASSIFICATION_CODE = X_HAZARD_CLASSIFICATION_CODE
1210: and T.LANGUAGE = L.LANGUAGE_CODE);
1211: END IF;
1212: CLOSE Cur_rowid;

Line 1219: delete from GR_EUROHAZARDS_TL T

1215:
1216: procedure NEW_LANGUAGE
1217: is
1218: begin
1219: delete from GR_EUROHAZARDS_TL T
1220: where not exists
1221: (select NULL
1222: from GR_EUROHAZARDS_B B
1223: where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE

Line 1226: update GR_EUROHAZARDS_TL T set (

1222: from GR_EUROHAZARDS_B B
1223: where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
1224: );
1225:
1226: update GR_EUROHAZARDS_TL T set (
1227: HAZARD_DESCRIPTION
1228: ) = (select
1229: B.HAZARD_DESCRIPTION
1230: from GR_EUROHAZARDS_TL B

Line 1230: from GR_EUROHAZARDS_TL B

1226: update GR_EUROHAZARDS_TL T set (
1227: HAZARD_DESCRIPTION
1228: ) = (select
1229: B.HAZARD_DESCRIPTION
1230: from GR_EUROHAZARDS_TL B
1231: where B.HAZARD_CLASSIFICATION_CODE = T.HAZARD_CLASSIFICATION_CODE
1232: and B.LANGUAGE = T.SOURCE_LANG)
1233: where (
1234: T.HAZARD_CLASSIFICATION_CODE,

Line 1239: from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT

1235: T.LANGUAGE
1236: ) in (select
1237: SUBT.HAZARD_CLASSIFICATION_CODE,
1238: SUBT.LANGUAGE
1239: from GR_EUROHAZARDS_TL SUBB, GR_EUROHAZARDS_TL SUBT
1240: where SUBB.HAZARD_CLASSIFICATION_CODE = SUBT.HAZARD_CLASSIFICATION_CODE
1241: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1242: and (SUBB.HAZARD_DESCRIPTION <> SUBT.HAZARD_DESCRIPTION
1243: ));

Line 1245: insert into GR_EUROHAZARDS_TL (

1241: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1242: and (SUBB.HAZARD_DESCRIPTION <> SUBT.HAZARD_DESCRIPTION
1243: ));
1244:
1245: insert into GR_EUROHAZARDS_TL (
1246: HAZARD_DESCRIPTION,
1247: CREATED_BY,
1248: CREATION_DATE,
1249: LAST_UPDATED_BY,

Line 1265: from GR_EUROHAZARDS_TL B, FND_LANGUAGES L

1261: B.LAST_UPDATE_LOGIN,
1262: B.HAZARD_CLASSIFICATION_CODE,
1263: L.LANGUAGE_CODE,
1264: B.SOURCE_LANG
1265: from GR_EUROHAZARDS_TL B, FND_LANGUAGES L
1266: where L.INSTALLED_FLAG in ('I', 'B')
1267: and B.LANGUAGE = userenv('LANG')
1268: and not exists
1269: (select NULL

Line 1270: from GR_EUROHAZARDS_TL T

1266: where L.INSTALLED_FLAG in ('I', 'B')
1267: and B.LANGUAGE = userenv('LANG')
1268: and not exists
1269: (select NULL
1270: from GR_EUROHAZARDS_TL T
1271: where T.HAZARD_CLASSIFICATION_CODE = B.HAZARD_CLASSIFICATION_CODE
1272: and T.LANGUAGE = L.LANGUAGE_CODE);
1273:
1274: end NEW_LANGUAGE;

Line 1276: END GR_EUROHAZARDS_TL_PKG;

1272: and T.LANGUAGE = L.LANGUAGE_CODE);
1273:
1274: end NEW_LANGUAGE;
1275:
1276: END GR_EUROHAZARDS_TL_PKG;