[Home] [Help]
13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from IN_TEXT_TBL_TL
18: where TEXT_CODE = X_TEXT_CODE
19: and LANG_CODE = X_LANG_CODE
20: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
21: and SUB_PARACODE = X_SUB_PARACODE
22: and LINE_NO = X_LINE_NO
23: and LANGUAGE = userenv('LANG')
24: ;
25: begin
26: insert into IN_TEXT_TBL_TL (
27: TEXT_CODE,
28: LANG_CODE,
29: PARAGRAPH_CODE,
30: SUB_PARACODE,
54: from FND_LANGUAGES L
55: where L.INSTALLED_FLAG in ('I', 'B')
56: and not exists
57: (select NULL
58: from IN_TEXT_TBL_TL T
59: where T.TEXT_CODE = X_TEXT_CODE
60: and T.LANG_CODE = X_LANG_CODE
61: and T.PARAGRAPH_CODE = X_PARAGRAPH_CODE
62: and T.SUB_PARACODE = X_SUB_PARACODE
83: ) is
84: cursor c1 is select
85: TEXT,
86: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
87: from IN_TEXT_TBL_TL
88: where TEXT_CODE = X_TEXT_CODE
89: and LANG_CODE = X_LANG_CODE
90: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
91: and SUB_PARACODE = X_SUB_PARACODE
124:
125: begin
126: -- added this select to retrieve the old line number with ROWID
127: select LINE_NO INTO L_LINE_NO
128: from IN_TEXT_TBL_TL
129: where ROWID=X_ROW_ID;
130:
131: update IN_TEXT_TBL_TL set
132: TEXT = X_TEXT,
127: select LINE_NO INTO L_LINE_NO
128: from IN_TEXT_TBL_TL
129: where ROWID=X_ROW_ID;
130:
131: update IN_TEXT_TBL_TL set
132: TEXT = X_TEXT,
133: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
134: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
135: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
160: X_LINE_NO in NUMBER,
161: X_ROW_ID in VARCHAR2
162: ) is
163: begin
164: delete from IN_TEXT_TBL_TL
165: where TEXT_CODE = X_TEXT_CODE
166: and LANG_CODE = X_LANG_CODE
167: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
168: and SUB_PARACODE = X_SUB_PARACODE
181:
182: procedure ADD_LANGUAGE
183: is
184: begin
185: update IN_TEXT_TBL_TL T set (
186: TEXT
187: ) = (select
188: B.TEXT
189: from IN_TEXT_TBL_TL B
185: update IN_TEXT_TBL_TL T set (
186: TEXT
187: ) = (select
188: B.TEXT
189: from IN_TEXT_TBL_TL B
190: where B.TEXT_CODE = T.TEXT_CODE
191: and B.LANG_CODE = T.LANG_CODE
192: and B.PARAGRAPH_CODE = T.PARAGRAPH_CODE
193: and B.SUB_PARACODE = T.SUB_PARACODE
206: SUBT.PARAGRAPH_CODE,
207: SUBT.SUB_PARACODE,
208: SUBT.LINE_NO,
209: SUBT.LANGUAGE
210: from IN_TEXT_TBL_TL SUBB, IN_TEXT_TBL_TL SUBT
211: where SUBB.TEXT_CODE = SUBT.TEXT_CODE
212: and SUBB.LANG_CODE = SUBT.LANG_CODE
213: and SUBB.PARAGRAPH_CODE = SUBT.PARAGRAPH_CODE
214: and SUBB.SUB_PARACODE = SUBT.SUB_PARACODE
218: or (SUBB.TEXT is null and SUBT.TEXT is not null)
219: or (SUBB.TEXT is not null and SUBT.TEXT is null)
220: ));
221:
222: insert into IN_TEXT_TBL_TL (
223: TEXT_CODE,
224: LANG_CODE,
225: PARAGRAPH_CODE,
226: SUB_PARACODE,
246: B.CREATION_DATE,
247: B.LAST_UPDATE_LOGIN,
248: L.LANGUAGE_CODE,
249: B.SOURCE_LANG
250: from IN_TEXT_TBL_TL B, FND_LANGUAGES L
251: where L.INSTALLED_FLAG in ('I', 'B')
252: and B.LANGUAGE = userenv('LANG')
253: and not exists
254: (select NULL
251: where L.INSTALLED_FLAG in ('I', 'B')
252: and B.LANGUAGE = userenv('LANG')
253: and not exists
254: (select NULL
255: from IN_TEXT_TBL_TL T
256: where T.TEXT_CODE = B.TEXT_CODE
257: and T.LANG_CODE = B.LANG_CODE
258: and T.PARAGRAPH_CODE = B.PARAGRAPH_CODE
259: and T.SUB_PARACODE = B.SUB_PARACODE
271: X_TEXT in VARCHAR2,
272: X_OWNER in VARCHAR2
273: ) IS
274: BEGIN
275: update IN_TEXT_TBL_TL set
276: TEXT = X_TEXT,
277: SOURCE_LANG = userenv('LANG'),
278: LAST_UPDATE_DATE = sysdate,
279: LAST_UPDATED_BY = decode(X_OWNER,'SEED',1,0),
303: l_user_id :=1;
304: END IF;
305:
306: SELECT text_code, rowid into l_text_code, l_row_id
307: FROM IN_TEXT_TBL_TL
308: WHERE TEXT_CODE = X_TEXT_CODE
309: and LANG_CODE = X_LANG_CODE
310: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
311: and SUB_PARACODE = X_SUB_PARACODE