[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 PC_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 PC_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 PC_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 PC_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
123: L_LINE_NO number;
124: begin
125: -- added this select to retrieve the old line number with ROWID
126: select LINE_NO INTO L_LINE_NO
127: from PC_TEXT_TBL_TL
128: where ROWID=X_ROW_ID;
129:
130: update PC_TEXT_TBL_TL set
131: TEXT = X_TEXT,
126: select LINE_NO INTO L_LINE_NO
127: from PC_TEXT_TBL_TL
128: where ROWID=X_ROW_ID;
129:
130: update PC_TEXT_TBL_TL set
131: TEXT = X_TEXT,
132: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
133: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
134: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
158: X_LINE_NO in NUMBER,
159: X_ROW_ID in VARCHAR2
160: ) is
161: begin
162: delete from PC_TEXT_TBL_TL
163: where TEXT_CODE = X_TEXT_CODE
164: and LANG_CODE = X_LANG_CODE
165: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
166: and SUB_PARACODE = X_SUB_PARACODE
177:
178: procedure ADD_LANGUAGE
179: is
180: begin
181: update PC_TEXT_TBL_TL T set (
182: TEXT
183: ) = (select
184: B.TEXT
185: from PC_TEXT_TBL_TL B
181: update PC_TEXT_TBL_TL T set (
182: TEXT
183: ) = (select
184: B.TEXT
185: from PC_TEXT_TBL_TL B
186: where B.TEXT_CODE = T.TEXT_CODE
187: and B.LANG_CODE = T.LANG_CODE
188: and B.PARAGRAPH_CODE = T.PARAGRAPH_CODE
189: and B.SUB_PARACODE = T.SUB_PARACODE
202: SUBT.PARAGRAPH_CODE,
203: SUBT.SUB_PARACODE,
204: SUBT.LINE_NO,
205: SUBT.LANGUAGE
206: from PC_TEXT_TBL_TL SUBB, PC_TEXT_TBL_TL SUBT
207: where SUBB.TEXT_CODE = SUBT.TEXT_CODE
208: and SUBB.LANG_CODE = SUBT.LANG_CODE
209: and SUBB.PARAGRAPH_CODE = SUBT.PARAGRAPH_CODE
210: and SUBB.SUB_PARACODE = SUBT.SUB_PARACODE
214: or (SUBB.TEXT is null and SUBT.TEXT is not null)
215: or (SUBB.TEXT is not null and SUBT.TEXT is null)
216: ));
217:
218: insert into PC_TEXT_TBL_TL (
219: TEXT_CODE,
220: LANG_CODE,
221: PARAGRAPH_CODE,
222: SUB_PARACODE,
242: B.CREATION_DATE,
243: B.LAST_UPDATE_LOGIN,
244: L.LANGUAGE_CODE,
245: B.SOURCE_LANG
246: from PC_TEXT_TBL_TL B, FND_LANGUAGES L
247: where L.INSTALLED_FLAG in ('I', 'B')
248: and B.LANGUAGE = userenv('LANG')
249: and not exists
250: (select NULL
247: where L.INSTALLED_FLAG in ('I', 'B')
248: and B.LANGUAGE = userenv('LANG')
249: and not exists
250: (select NULL
251: from PC_TEXT_TBL_TL T
252: where T.TEXT_CODE = B.TEXT_CODE
253: and T.LANG_CODE = B.LANG_CODE
254: and T.PARAGRAPH_CODE = B.PARAGRAPH_CODE
255: and T.SUB_PARACODE = B.SUB_PARACODE
266: X_TEXT in VARCHAR2,
267: X_OWNER in VARCHAR2
268: ) IS
269: BEGIN
270: update PC_TEXT_TBL_TL set
271: TEXT = X_TEXT,
272: SOURCE_LANG = userenv('LANG'),
273: LAST_UPDATE_DATE = sysdate,
274: LAST_UPDATED_BY = decode(X_OWNER,'SEED',1,0),
299: END IF;
300:
301: SELECT text_code, rowid into l_text_code, l_row_id
302:
303: FROM PC_TEXT_TBL_TL
304: WHERE TEXT_CODE = X_TEXT_CODE
305: and LANG_CODE = X_LANG_CODE
306: and PARAGRAPH_CODE = X_PARAGRAPH_CODE
307: and SUB_PARACODE = X_SUB_PARACODE