[Home] [Help]
1: package body OKC_UDA_TEMPLATES_ALL_PKG as
2: /* $Header: OKCUTPKGB.pls 120.0.12020000.1 2013/03/27 08:39:25 aksgoyal noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_UDA_TEMPLATE_ID in NUMBER,
19: X_CREATION_DATE in DATE,
20: X_LAST_UPDATE_DATE in DATE,
21: X_UDA_TEMPLATE_DISP_NAME in VARCHAR2
22: ) is
23: cursor C is select ROWID from OKC_UDA_TEMPLATES_ALL
24: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID
25: ;
26: begin
27: insert into OKC_UDA_TEMPLATES_ALL (
23: cursor C is select ROWID from OKC_UDA_TEMPLATES_ALL
24: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID
25: ;
26: begin
27: insert into OKC_UDA_TEMPLATES_ALL (
28: UDA_TEMPLATE_ID,
29: START_DATE,
30: END_DATE,
31: VERSION_NUMBER,
45: X_LAST_UPDATED_BY,
46: X_LAST_UPDATE_LOGIN
47: );
48:
49: insert into OKC_UDA_TEMPLATES_ALL_TL (
50: UDA_TEMPLATE_ID,
51: UDA_TEMPLATE_DISP_NAME,
52: COMMENTS,
53: CREATED_BY,
71: from FND_LANGUAGES L
72: where L.INSTALLED_FLAG in ('I', 'B')
73: and not exists
74: (select NULL
75: from OKC_UDA_TEMPLATES_ALL_TL T
76: where T.UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID
77: and T.LANGUAGE = L.LANGUAGE_CODE);
78:
79: open c;
97: cursor c is select
98: END_DATE,
99: VERSION_NUMBER,
100: START_DATE
101: from OKC_UDA_TEMPLATES_ALL
102: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID
103: for update of UDA_TEMPLATE_ID nowait;
104: recinfo c%rowtype;
105:
106: cursor c1 is select
107: UDA_TEMPLATE_DISP_NAME,
108: COMMENTS,
109: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
110: from OKC_UDA_TEMPLATES_ALL_TL
111: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID
112: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
113: for update of UDA_TEMPLATE_ID nowait;
114: begin
164: X_LAST_UPDATE_DATE in DATE,
165: X_UDA_TEMPLATE_DISP_NAME in VARCHAR2
166: ) is
167: begin
168: update OKC_UDA_TEMPLATES_ALL set
169: UDA_TEMPLATE_NAME = X_UDA_TEMPLATE_NAME,
170: STATUS_FLAG = X_STATUS_FLAG ,
171: ORG_ID = X_ORG_ID,
172: TEMPLATE_CATEGORY = X_TEMPLATE_CATEGORY,
184: if (sql%notfound) then
185: raise no_data_found;
186: end if;
187:
188: update OKC_UDA_TEMPLATES_ALL_TL set
189: UDA_TEMPLATE_DISP_NAME = X_UDA_TEMPLATE_DISP_NAME,
190: COMMENTS = X_COMMENTS,
191: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
192: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
203: procedure DELETE_ROW (
204: X_UDA_TEMPLATE_ID in NUMBER
205: ) is
206: begin
207: delete from OKC_UDA_TEMPLATES_ALL_TL
208: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID;
209:
210: if (sql%notfound) then
211: raise no_data_found;
210: if (sql%notfound) then
211: raise no_data_found;
212: end if;
213:
214: delete from OKC_UDA_TEMPLATES_ALL
215: where UDA_TEMPLATE_ID = X_UDA_TEMPLATE_ID;
216:
217: if (sql%notfound) then
218: raise no_data_found;
221:
222: procedure ADD_LANGUAGE
223: is
224: begin
225: delete from OKC_UDA_TEMPLATES_ALL_TL T
226: where not exists
227: (select NULL
228: from OKC_UDA_TEMPLATES_ALL B
229: where B.UDA_TEMPLATE_ID = T.UDA_TEMPLATE_ID
224: begin
225: delete from OKC_UDA_TEMPLATES_ALL_TL T
226: where not exists
227: (select NULL
228: from OKC_UDA_TEMPLATES_ALL B
229: where B.UDA_TEMPLATE_ID = T.UDA_TEMPLATE_ID
230: );
231:
232: update OKC_UDA_TEMPLATES_ALL_TL T set (
228: from OKC_UDA_TEMPLATES_ALL B
229: where B.UDA_TEMPLATE_ID = T.UDA_TEMPLATE_ID
230: );
231:
232: update OKC_UDA_TEMPLATES_ALL_TL T set (
233: UDA_TEMPLATE_DISP_NAME,
234: COMMENTS
235: ) = (select
236: B.UDA_TEMPLATE_DISP_NAME,
234: COMMENTS
235: ) = (select
236: B.UDA_TEMPLATE_DISP_NAME,
237: B.COMMENTS
238: from OKC_UDA_TEMPLATES_ALL_TL B
239: where B.UDA_TEMPLATE_ID = T.UDA_TEMPLATE_ID
240: and B.LANGUAGE = T.SOURCE_LANG)
241: where (
242: T.UDA_TEMPLATE_ID,
243: T.LANGUAGE
244: ) in (select
245: SUBT.UDA_TEMPLATE_ID,
246: SUBT.LANGUAGE
247: from OKC_UDA_TEMPLATES_ALL_TL SUBB, OKC_UDA_TEMPLATES_ALL_TL SUBT
248: where SUBB.UDA_TEMPLATE_ID = SUBT.UDA_TEMPLATE_ID
249: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
250: and (SUBB.UDA_TEMPLATE_DISP_NAME <> SUBT.UDA_TEMPLATE_DISP_NAME
251: or SUBB.COMMENTS <> SUBT.COMMENTS
252: or (SUBB.COMMENTS is null and SUBT.COMMENTS is not null)
253: or (SUBB.COMMENTS is not null and SUBT.COMMENTS is null)
254: ));
255:
256: insert into OKC_UDA_TEMPLATES_ALL_TL (
257: UDA_TEMPLATE_ID,
258: UDA_TEMPLATE_DISP_NAME,
259: COMMENTS,
260: CREATED_BY,
274: B.LAST_UPDATE_DATE,
275: B.LAST_UPDATE_LOGIN,
276: L.LANGUAGE_CODE,
277: B.SOURCE_LANG
278: from OKC_UDA_TEMPLATES_ALL_TL B, FND_LANGUAGES L
279: where L.INSTALLED_FLAG in ('I', 'B')
280: and B.LANGUAGE = userenv('LANG')
281: and not exists
282: (select NULL
279: where L.INSTALLED_FLAG in ('I', 'B')
280: and B.LANGUAGE = userenv('LANG')
281: and not exists
282: (select NULL
283: from OKC_UDA_TEMPLATES_ALL_TL T
284: where T.UDA_TEMPLATE_ID = B.UDA_TEMPLATE_ID
285: and T.LANGUAGE = L.LANGUAGE_CODE);
286: end ADD_LANGUAGE;
287:
284: where T.UDA_TEMPLATE_ID = B.UDA_TEMPLATE_ID
285: and T.LANGUAGE = L.LANGUAGE_CODE);
286: end ADD_LANGUAGE;
287:
288: end OKC_UDA_TEMPLATES_ALL_PKG;