DBA Data[Home] [Help]

APPS.GR_SAFETY_CATEGORIES_TL_PKG dependencies on GR_SAFETY_CATEGORIES_TL

Line 1: PACKAGE BODY GR_SAFETY_CATEGORIES_TL_PKG AS

1: PACKAGE BODY GR_SAFETY_CATEGORIES_TL_PKG AS
2: /*$Header: GRHICATB.pls 115.9 2002/10/28 16:51:49 gkelly ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,

Line 76: INSERT INTO gr_safety_categories_tl

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

Line 244: UPDATE gr_safety_categories_tl

240:
241: IF l_return_status <> 'S' THEN
242: RAISE Foreign_Key_Error;
243: ELSE
244: UPDATE gr_safety_categories_tl
245: SET safety_category_code = p_safety_category_code,
246: safety_category_description = p_safety_category_description,
247: language = p_language,
248: source_lang = p_source_lang,

Line 332: L_BASE_DESC GR_SAFETY_CATEGORIES_TL.safety_category_description%TYPE;

328:
329: L_RETURN_STATUS VARCHAR2(1) := 'S';
330: L_MSG_DATA VARCHAR2(2000);
331: L_MSG_TOKEN VARCHAR2(100);
332: L_BASE_DESC GR_SAFETY_CATEGORIES_TL.safety_category_description%TYPE;
333: L_LANGUAGE VARCHAR2(4);
334: L_CREATION_DATE DATE;
335: L_LAST_UPDATE_DATE DATE;
336: /*

Line 358: FROM gr_safety_categories_tl cat

354: cat.creation_date,
355: cat.last_updated_by,
356: cat.last_update_date,
357: cat.last_update_login
358: FROM gr_safety_categories_tl cat
359: WHERE cat.safety_category_code = p_safety_category_code
360: AND cat.language = l_language;
361: CategoryRecord c_get_safety_category%ROWTYPE;
362:

Line 383: delete from GR_SAFETY_CATEGORIES_TL T

379: l_msg_token := p_safety_category_code || ' ' || p_language;
380:
381: /* Remove translations with no base row */
382:
383: delete from GR_SAFETY_CATEGORIES_TL T
384: where not exists
385: (select NULL
386: from GR_SAFETY_CATEGORIES_B B
387: where B.SAFETY_CATEGORY_CODE = T.SAFETY_CATEGORY_CODE

Line 392: update gr_safety_categories_tl t set (

388: );
389:
390: /* Redefault translations from the source language */
391:
392: update gr_safety_categories_tl t set (
393: safety_category_description ) =
394: ( select
395: B.SAFETY_CATEGORY_DESCRIPTION
396: from GR_SAFETY_CATEGORIES_TL B

Line 396: from GR_SAFETY_CATEGORIES_TL B

392: update gr_safety_categories_tl t set (
393: safety_category_description ) =
394: ( select
395: B.SAFETY_CATEGORY_DESCRIPTION
396: from GR_SAFETY_CATEGORIES_TL B
397: where B.SAFETY_CATEGORY_CODE = T.SAFETY_CATEGORY_CODE
398: and B.LANGUAGE = T.SOURCE_LANG)
399: where (
400: T.SAFETY_CATEGORY_CODE,

Line 405: from GR_SAFETY_CATEGORIES_TL SUBB, GR_SAFETY_CATEGORIES_TL SUBT

401: T.LANGUAGE
402: ) in (select
403: SUBT.SAFETY_CATEGORY_CODE,
404: SUBT.LANGUAGE
405: from GR_SAFETY_CATEGORIES_TL SUBB, GR_SAFETY_CATEGORIES_TL SUBT
406: where SUBB.SAFETY_CATEGORY_CODE = SUBT.SAFETY_CATEGORY_CODE
407: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
408: and (SUBB.SAFETY_CATEGORY_DESCRIPTION <> SUBT.SAFETY_CATEGORY_DESCRIPTION
409: or (SUBB.SAFETY_CATEGORY_DESCRIPTION is null and SUBT.SAFETY_CATEGORY_DESCRIPTION is not null)

Line 447: INSERT INTO gr_safety_categories_tl

443: OPEN c_get_safety_category;
444: FETCH c_get_safety_category INTO CategoryRecord;
445: IF c_get_safety_category%NOTFOUND THEN
446: CLOSE c_get_safety_category;
447: INSERT INTO gr_safety_categories_tl
448: (safety_category_code,
449: safety_category_description,
450: language,
451: source_lang,

Line 554: FROM gr_safety_categories_tl

550:
551: CURSOR c_lock_categories_tl
552: IS
553: SELECT *
554: FROM gr_safety_categories_tl
555: WHERE rowid = p_rowid
556: FOR UPDATE NOWAIT;
557: LockCategoryRcd c_lock_categories_tl%ROWTYPE;
558:

Line 693: DELETE FROM gr_safety_categories_tl

689: IF l_return_status <> 'S' THEN
690: RAISE Check_Integrity_Error;
691: END IF;
692:
693: DELETE FROM gr_safety_categories_tl
694: WHERE rowid = p_rowid;
695:
696: /* Check the commit flag and if set, then commit the work. */
697:

Line 778: DELETE FROM gr_safety_categories_tl

774: x_oracle_error := 0;
775: x_msg_data := NULL;
776: l_msg_token := p_safety_category_code;
777:
778: DELETE FROM gr_safety_categories_tl
779: WHERE safety_category_code = p_safety_category_code;
780:
781: IF FND_API.To_Boolean(p_commit) THEN
782: COMMIT WORK;

Line 1011: FROM gr_safety_categories_tl cat

1007:
1008: CURSOR c_get_categories_tl_rowid
1009: IS
1010: SELECT cat.rowid
1011: FROM gr_safety_categories_tl cat
1012: WHERE cat.safety_category_code = p_safety_category_code
1013: AND cat.language = p_language;
1014: CategoryTLRecord c_get_categories_tl_rowid%ROWTYPE;
1015:

Line 1053: UPDATE GR_SAFETY_CATEGORIES_TL SET

1049: ,X_LANGUAGE IN VARCHAR2
1050: ,X_SOURCE_LANG IN VARCHAR2
1051: ) IS
1052: BEGIN
1053: UPDATE GR_SAFETY_CATEGORIES_TL SET
1054: SAFETY_CATEGORY_DESCRIPTION = X_SAFETY_CATEGORY_DESCRIPTION,
1055: SOURCE_LANG = USERENV('LANG'),
1056: LAST_UPDATE_DATE = sysdate,
1057: LAST_UPDATED_BY = 0,

Line 1072: FROM GR_SAFETY_CATEGORIES_TL

1068: ,X_SOURCE_LANG IN VARCHAR2
1069: ) IS
1070: CURSOR Cur_rowid IS
1071: SELECT rowid
1072: FROM GR_SAFETY_CATEGORIES_TL
1073: WHERE (SAFETY_CATEGORY_CODE = X_SAFETY_CATEGORY_CODE)
1074: AND (LANGUAGE = X_LANGUAGE);
1075: l_user_id NUMBER DEFAULT 1;
1076: l_row_id VARCHAR2(64);

Line 1084: GR_SAFETY_CATEGORIES_TL_PKG.UPDATE_ROW(

1080: BEGIN
1081: OPEN Cur_rowid;
1082: FETCH Cur_rowid INTO l_row_id;
1083: IF Cur_rowid%FOUND THEN
1084: GR_SAFETY_CATEGORIES_TL_PKG.UPDATE_ROW(
1085: P_COMMIT => 'T'
1086: ,P_CALLED_BY_FORM => 'F'
1087: ,P_ROWID => l_row_id
1088: ,P_SAFETY_CATEGORY_CODE => X_SAFETY_CATEGORY_CODE

Line 1101: GR_SAFETY_CATEGORIES_TL_PKG.INSERT_ROW(

1097: ,X_RETURN_STATUS => l_return_status
1098: ,X_ORACLE_ERROR => l_oracle_error
1099: ,X_MSG_DATA => l_msg_data);
1100: ELSE
1101: GR_SAFETY_CATEGORIES_TL_PKG.INSERT_ROW(
1102: P_COMMIT => 'T'
1103: ,P_CALLED_BY_FORM => 'F'
1104: ,P_SAFETY_CATEGORY_CODE => X_SAFETY_CATEGORY_CODE
1105: ,P_SAFETY_CATEGORY_DESCRIPTION => X_SAFETY_CATEGORY_DESCRIPTION

Line 1131: delete from GR_SAFETY_CATEGORIES_TL T

1127: */
1128: procedure NEW_LANGUAGE
1129: is
1130: begin
1131: delete from GR_SAFETY_CATEGORIES_TL T
1132: where not exists
1133: (select NULL
1134: from GR_SAFETY_CATEGORIES_B B
1135: where B.SAFETY_CATEGORY_CODE = T.SAFETY_CATEGORY_CODE

Line 1138: update GR_SAFETY_CATEGORIES_TL T set (

1134: from GR_SAFETY_CATEGORIES_B B
1135: where B.SAFETY_CATEGORY_CODE = T.SAFETY_CATEGORY_CODE
1136: );
1137:
1138: update GR_SAFETY_CATEGORIES_TL T set (
1139: SAFETY_CATEGORY_DESCRIPTION
1140: ) = (select
1141: B.SAFETY_CATEGORY_DESCRIPTION
1142: from GR_SAFETY_CATEGORIES_TL B

Line 1142: from GR_SAFETY_CATEGORIES_TL B

1138: update GR_SAFETY_CATEGORIES_TL T set (
1139: SAFETY_CATEGORY_DESCRIPTION
1140: ) = (select
1141: B.SAFETY_CATEGORY_DESCRIPTION
1142: from GR_SAFETY_CATEGORIES_TL B
1143: where B.SAFETY_CATEGORY_CODE = T.SAFETY_CATEGORY_CODE
1144: and B.LANGUAGE = T.SOURCE_LANG)
1145: where (
1146: T.SAFETY_CATEGORY_CODE,

Line 1151: from GR_SAFETY_CATEGORIES_TL SUBB, GR_SAFETY_CATEGORIES_TL SUBT

1147: T.LANGUAGE
1148: ) in (select
1149: SUBT.SAFETY_CATEGORY_CODE,
1150: SUBT.LANGUAGE
1151: from GR_SAFETY_CATEGORIES_TL SUBB, GR_SAFETY_CATEGORIES_TL SUBT
1152: where SUBB.SAFETY_CATEGORY_CODE = SUBT.SAFETY_CATEGORY_CODE
1153: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1154: and (SUBB.SAFETY_CATEGORY_DESCRIPTION <> SUBT.SAFETY_CATEGORY_DESCRIPTION
1155: ));

Line 1157: insert into GR_SAFETY_CATEGORIES_TL (

1153: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1154: and (SUBB.SAFETY_CATEGORY_DESCRIPTION <> SUBT.SAFETY_CATEGORY_DESCRIPTION
1155: ));
1156:
1157: insert into GR_SAFETY_CATEGORIES_TL (
1158: SAFETY_CATEGORY_CODE,
1159: SAFETY_CATEGORY_DESCRIPTION,
1160: LAST_UPDATE_LOGIN,
1161: LAST_UPDATE_DATE,

Line 1177: from GR_SAFETY_CATEGORIES_TL B, FND_LANGUAGES L

1173: B.CREATION_DATE,
1174: B.CREATED_BY,
1175: L.LANGUAGE_CODE,
1176: B.SOURCE_LANG
1177: from GR_SAFETY_CATEGORIES_TL B, FND_LANGUAGES L
1178: where L.INSTALLED_FLAG in ('I', 'B')
1179: and B.LANGUAGE = userenv('LANG')
1180: and not exists
1181: (select NULL

Line 1182: from GR_SAFETY_CATEGORIES_TL T

1178: where L.INSTALLED_FLAG in ('I', 'B')
1179: and B.LANGUAGE = userenv('LANG')
1180: and not exists
1181: (select NULL
1182: from GR_SAFETY_CATEGORIES_TL T
1183: where T.SAFETY_CATEGORY_CODE = B.SAFETY_CATEGORY_CODE
1184: and T.LANGUAGE = L.LANGUAGE_CODE);
1185:
1186: end NEW_LANGUAGE;

Line 1188: END GR_SAFETY_CATEGORIES_TL_PKG;

1184: and T.LANGUAGE = L.LANGUAGE_CODE);
1185:
1186: end NEW_LANGUAGE;
1187:
1188: END GR_SAFETY_CATEGORIES_TL_PKG;