DBA Data[Home] [Help]

APPS.GR_TOXIC_SPECIES_TL_PKG dependencies on GR_TOXIC_SPECIES_TL

Line 1: PACKAGE BODY GR_TOXIC_SPECIES_TL_PKG AS

1: PACKAGE BODY GR_TOXIC_SPECIES_TL_PKG AS
2: /*$Header: GRHITSTB.pls 115.10 2002/10/28 21:40:46 gkelly ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,

Line 77: INSERT INTO gr_toxic_species_tl

73: IF FND_API.To_Boolean(l_key_exists) THEN
74: RAISE Item_Exists_Error;
75: END IF;
76:
77: INSERT INTO gr_toxic_species_tl
78: (toxic_species_code,
79: language,
80: source_lang,
81: toxic_species_desc,

Line 244: UPDATE gr_toxic_species_tl

240:
241: IF l_return_status <> 'S' THEN
242: RAISE Foreign_Key_Error;
243: ELSE
244: UPDATE gr_toxic_species_tl
245: SET toxic_species_code = p_toxic_species_code,
246: language = p_language,
247: source_lang = p_source_lang,
248: toxic_species_desc = p_toxic_species_desc,

Line 358: FROM gr_toxic_species_tl tst

354: tst.creation_date,
355: tst.last_updated_by,
356: tst.last_update_date,
357: tst.last_update_login
358: FROM gr_toxic_species_tl tst
359: WHERE tst.toxic_species_code = p_toxic_species_code
360: AND tst.language = l_language;
361: SpeciesDesc c_get_descs%ROWTYPE;
362:

Line 382: delete from GR_TOXIC_SPECIES_TL T

378: l_msg_token := p_toxic_species_code || ' ' || p_language;
379:
380: /* Remove translations with no base row */
381:
382: delete from GR_TOXIC_SPECIES_TL T
383: where not exists
384: (select NULL
385: from GR_TOXIC_SPECIES_B B
386: where B.TOXIC_SPECIES_CODE = T.TOXIC_SPECIES_CODE

Line 391: update gr_toxic_species_tl t set (

387: );
388:
389: /* Redefault translations from the source language */
390:
391: update gr_toxic_species_tl t set (
392: toxic_species_desc ) =
393: ( select
394: B.TOXIC_SPECIES_DESC
395: from GR_TOXIC_SPECIES_TL B

Line 395: from GR_TOXIC_SPECIES_TL B

391: update gr_toxic_species_tl t set (
392: toxic_species_desc ) =
393: ( select
394: B.TOXIC_SPECIES_DESC
395: from GR_TOXIC_SPECIES_TL B
396: where B.TOXIC_SPECIES_CODE = T.TOXIC_SPECIES_CODE
397: and B.LANGUAGE = T.SOURCE_LANG)
398: where (
399: T.TOXIC_SPECIES_CODE,

Line 404: from GR_TOXIC_SPECIES_TL SUBB, GR_TOXIC_SPECIES_TL SUBT

400: T.LANGUAGE
401: ) in (select
402: SUBT.TOXIC_SPECIES_CODE,
403: SUBT.LANGUAGE
404: from GR_TOXIC_SPECIES_TL SUBB, GR_TOXIC_SPECIES_TL SUBT
405: where SUBB.TOXIC_SPECIES_CODE = SUBT.TOXIC_SPECIES_CODE
406: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
407: and (SUBB.TOXIC_SPECIES_DESC <> SUBT.TOXIC_SPECIES_DESC
408: or (SUBB.TOXIC_SPECIES_DESC is null and SUBT.TOXIC_SPECIES_DESC is not null)

Line 446: INSERT INTO gr_toxic_species_tl

442: OPEN c_get_descs;
443: FETCH c_get_descs INTO SpeciesDesc;
444: IF c_get_descs%NOTFOUND THEN
445: CLOSE c_get_descs;
446: INSERT INTO gr_toxic_species_tl
447: (toxic_species_code,
448: language,
449: toxic_species_desc,
450: source_lang,

Line 552: FROM gr_toxic_species_tl

548:
549: CURSOR c_lock_species_tl
550: IS
551: SELECT last_update_date
552: FROM gr_toxic_species_tl
553: WHERE rowid = p_rowid
554: FOR UPDATE NOWAIT;
555: LockSpeciesRcd c_lock_species_tl%ROWTYPE;
556:

Line 704: DELETE FROM gr_toxic_species_tl

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

Line 789: DELETE FROM gr_toxic_species_tl

785: x_oracle_error := 0;
786: x_msg_data := NULL;
787: l_msg_token := p_toxic_species_code;
788:
789: DELETE FROM gr_toxic_species_tl
790: WHERE toxic_species_code = p_toxic_species_code;
791:
792: IF FND_API.To_Boolean(p_commit) THEN
793: COMMIT WORK;

Line 1022: FROM gr_toxic_species_tl tst

1018:
1019: CURSOR c_get_species_tl_rowid
1020: IS
1021: SELECT tst.rowid
1022: FROM gr_toxic_species_tl tst
1023: WHERE tst.toxic_species_code = p_toxic_species_code
1024: AND tst.language = p_language;
1025: SpeciesTLRecord c_get_species_tl_rowid%ROWTYPE;
1026:

Line 1064: UPDATE GR_TOXIC_SPECIES_TL SET

1060: ,X_SOURCE_LANG IN VARCHAR2
1061: ,X_TOXIC_SPECIES_DESC IN VARCHAR2
1062: ) IS
1063: BEGIN
1064: UPDATE GR_TOXIC_SPECIES_TL SET
1065: TOXIC_SPECIES_DESC = X_TOXIC_SPECIES_DESC,
1066: SOURCE_LANG = USERENV('LANG'),
1067: LAST_UPDATE_DATE = sysdate,
1068: LAST_UPDATED_BY = 0,

Line 1083: FROM GR_TOXIC_SPECIES_TL

1079: ,X_TOXIC_SPECIES_DESC IN VARCHAR2
1080: ) IS
1081: CURSOR Cur_rowid IS
1082: SELECT rowid
1083: FROM GR_TOXIC_SPECIES_TL
1084: WHERE (TOXIC_SPECIES_CODE = X_TOXIC_SPECIES_CODE)
1085: AND (LANGUAGE = X_LANGUAGE);
1086: l_user_id NUMBER DEFAULT 1;
1087: l_row_id VARCHAR2(64);

Line 1095: GR_TOXIC_SPECIES_TL_PKG.UPDATE_ROW(

1091: BEGIN
1092: OPEN Cur_rowid;
1093: FETCH Cur_rowid INTO l_row_id;
1094: IF Cur_rowid%FOUND THEN
1095: GR_TOXIC_SPECIES_TL_PKG.UPDATE_ROW(
1096: P_COMMIT => 'T'
1097: ,P_CALLED_BY_FORM => 'F'
1098: ,P_ROWID => l_row_id
1099: ,P_TOXIC_SPECIES_CODE => X_TOXIC_SPECIES_CODE

Line 1112: GR_TOXIC_SPECIES_TL_PKG.INSERT_ROW(

1108: ,X_RETURN_STATUS => l_return_status
1109: ,X_ORACLE_ERROR => l_oracle_error
1110: ,X_MSG_DATA => l_msg_data);
1111: ELSE
1112: GR_TOXIC_SPECIES_TL_PKG.INSERT_ROW(
1113: P_COMMIT => 'T'
1114: ,P_CALLED_BY_FORM => 'F'
1115: ,P_TOXIC_SPECIES_CODE => X_TOXIC_SPECIES_CODE
1116: ,P_LANGUAGE => X_LANGUAGE

Line 1139: delete from GR_TOXIC_SPECIES_TL T

1135: */
1136: procedure NEW_LANGUAGE
1137: is
1138: begin
1139: delete from GR_TOXIC_SPECIES_TL T
1140: where not exists
1141: (select NULL
1142: from GR_TOXIC_SPECIES_B B
1143: where B.TOXIC_SPECIES_CODE = T.TOXIC_SPECIES_CODE

Line 1146: update GR_TOXIC_SPECIES_TL T set (

1142: from GR_TOXIC_SPECIES_B B
1143: where B.TOXIC_SPECIES_CODE = T.TOXIC_SPECIES_CODE
1144: );
1145:
1146: update GR_TOXIC_SPECIES_TL T set (
1147: TOXIC_SPECIES_DESC
1148: ) = (select
1149: B.TOXIC_SPECIES_DESC
1150: from GR_TOXIC_SPECIES_TL B

Line 1150: from GR_TOXIC_SPECIES_TL B

1146: update GR_TOXIC_SPECIES_TL T set (
1147: TOXIC_SPECIES_DESC
1148: ) = (select
1149: B.TOXIC_SPECIES_DESC
1150: from GR_TOXIC_SPECIES_TL B
1151: where B.TOXIC_SPECIES_CODE = T.TOXIC_SPECIES_CODE
1152: and B.LANGUAGE = T.SOURCE_LANG)
1153: where (
1154: T.TOXIC_SPECIES_CODE,

Line 1159: from GR_TOXIC_SPECIES_TL SUBB, GR_TOXIC_SPECIES_TL SUBT

1155: T.LANGUAGE
1156: ) in (select
1157: SUBT.TOXIC_SPECIES_CODE,
1158: SUBT.LANGUAGE
1159: from GR_TOXIC_SPECIES_TL SUBB, GR_TOXIC_SPECIES_TL SUBT
1160: where SUBB.TOXIC_SPECIES_CODE = SUBT.TOXIC_SPECIES_CODE
1161: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1162: and (SUBB.TOXIC_SPECIES_DESC <> SUBT.TOXIC_SPECIES_DESC
1163: ));

Line 1165: insert into GR_TOXIC_SPECIES_TL (

1161: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1162: and (SUBB.TOXIC_SPECIES_DESC <> SUBT.TOXIC_SPECIES_DESC
1163: ));
1164:
1165: insert into GR_TOXIC_SPECIES_TL (
1166: TOXIC_SPECIES_CODE,
1167: TOXIC_SPECIES_DESC,
1168: CREATED_BY,
1169: CREATION_DATE,

Line 1185: from GR_TOXIC_SPECIES_TL B, FND_LANGUAGES L

1181: B.LAST_UPDATE_DATE,
1182: B.LAST_UPDATE_LOGIN,
1183: L.LANGUAGE_CODE,
1184: B.SOURCE_LANG
1185: from GR_TOXIC_SPECIES_TL B, FND_LANGUAGES L
1186: where L.INSTALLED_FLAG in ('I', 'B')
1187: and B.LANGUAGE = userenv('LANG')
1188: and not exists
1189: (select NULL

Line 1190: from GR_TOXIC_SPECIES_TL T

1186: where L.INSTALLED_FLAG in ('I', 'B')
1187: and B.LANGUAGE = userenv('LANG')
1188: and not exists
1189: (select NULL
1190: from GR_TOXIC_SPECIES_TL T
1191: where T.TOXIC_SPECIES_CODE = B.TOXIC_SPECIES_CODE
1192: and T.LANGUAGE = L.LANGUAGE_CODE);
1193:
1194: end NEW_LANGUAGE;

Line 1197: END GR_TOXIC_SPECIES_TL_PKG;

1193:
1194: end NEW_LANGUAGE;
1195:
1196:
1197: END GR_TOXIC_SPECIES_TL_PKG;