1: package body BEN_STARTUP_ACTN_TYP_PKG as
2: /* $Header: besat01t.pkb 120.0 2005/05/28 11:48:04 appldev noship $ */
3: procedure OWNER_TO_WHO (
4: P_OWNER in VARCHAR2,
5: P_CREATION_DATE out nocopy DATE,
31: P_LAST_UPDATE_DATE in DATE,
32: P_LAST_UPDATED_BY in NUMBER,
33: P_LAST_UPDATE_LOGIN in NUMBER
34: ) is
35: cursor C is select ROWID from BEN_STARTUP_ACTN_TYP
36: where TYPE_CD = P_TYPE_CD
37: ;
38: begin
39: insert into BEN_STARTUP_ACTN_TYP (
35: cursor C is select ROWID from BEN_STARTUP_ACTN_TYP
36: where TYPE_CD = P_TYPE_CD
37: ;
38: begin
39: insert into BEN_STARTUP_ACTN_TYP (
40: TYPE_CD,
41: DESCRIPTION,
42: NAME,
43: CREATION_DATE,
55: P_LAST_UPDATED_BY,
56: P_LAST_UPDATE_LOGIN
57: );
58:
59: insert into BEN_STARTUP_ACTN_TYP_TL (
60: LAST_UPDATE_LOGIN,
61: CREATED_BY,
62: CREATION_DATE,
63: DESCRIPTION,
81: from FND_LANGUAGES L
82: where L.INSTALLED_FLAG in ('I', 'B')
83: and not exists
84: (select NULL
85: from BEN_STARTUP_ACTN_TYP_TL T
86: where T.TYPE_CD = P_TYPE_CD
87: and T.LANGUAGE = L.LANGUAGE_CODE);
88:
89: open c;
102: P_NAME in VARCHAR2
103: ) is
104: cursor c is select
105: DESCRIPTION
106: from BEN_STARTUP_ACTN_TYP
107: where TYPE_CD = P_TYPE_CD
108: for update of TYPE_CD nowait;
109: recinfo c%rowtype;
110:
110:
111: cursor c1 is select
112: NAME,
113: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
114: from BEN_STARTUP_ACTN_TYP_TL
115: where TYPE_CD = P_TYPE_CD
116: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
117: for update of TYPE_CD nowait;
118: begin
154: P_LAST_UPDATED_BY in NUMBER,
155: P_LAST_UPDATE_LOGIN in NUMBER
156: ) is
157: begin
158: update BEN_STARTUP_ACTN_TYP set
159: NAME = decode(userenv('LANG'),'US',P_NAME,NAME),
160: DESCRIPTION = P_DESCRIPTION,
161: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
162: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
166: if (sql%notfound) then
167: raise no_data_found;
168: end if;
169:
170: update BEN_STARTUP_ACTN_TYP_TL set
171: NAME = P_NAME,
172: DESCRIPTION = P_DESCRIPTION,
173: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
174: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
185: procedure DELETE_ROW (
186: P_TYPE_CD in VARCHAR2
187: ) is
188: begin
189: delete from BEN_STARTUP_ACTN_TYP_TL
190: where TYPE_CD = P_TYPE_CD;
191:
192: if (sql%notfound) then
193: raise no_data_found;
192: if (sql%notfound) then
193: raise no_data_found;
194: end if;
195:
196: delete from BEN_STARTUP_ACTN_TYP
197: where TYPE_CD = P_TYPE_CD;
198:
199: if (sql%notfound) then
200: raise no_data_found;
264: L_LAST_UPDATED_BY,
265: L_LAST_UPDATE_LOGIN
266: );
267: --
268: update BEN_STARTUP_ACTN_TYP_TL set
269: NAME = P_NAME,
270: DESCRIPTION = P_DESCRIPTION ,
271: LAST_UPDATE_DATE = L_LAST_UPDATE_DATE,
272: LAST_UPDATED_BY = L_LAST_UPDATED_BY,
279:
280: procedure ADD_LANGUAGE
281: is
282: begin
283: delete from BEN_STARTUP_ACTN_TYP_TL T
284: where not exists
285: (select NULL
286: from BEN_STARTUP_ACTN_TYP B
287: where B.TYPE_CD = T.TYPE_CD
282: begin
283: delete from BEN_STARTUP_ACTN_TYP_TL T
284: where not exists
285: (select NULL
286: from BEN_STARTUP_ACTN_TYP B
287: where B.TYPE_CD = T.TYPE_CD
288: );
289:
290: update BEN_STARTUP_ACTN_TYP_TL T set (
286: from BEN_STARTUP_ACTN_TYP B
287: where B.TYPE_CD = T.TYPE_CD
288: );
289:
290: update BEN_STARTUP_ACTN_TYP_TL T set (
291: NAME , DESCRIPTION
292: ) = (select
293: B.NAME , B.DESCRIPTION
294: from BEN_STARTUP_ACTN_TYP_TL B
290: update BEN_STARTUP_ACTN_TYP_TL T set (
291: NAME , DESCRIPTION
292: ) = (select
293: B.NAME , B.DESCRIPTION
294: from BEN_STARTUP_ACTN_TYP_TL B
295: where B.TYPE_CD = T.TYPE_CD
296: and B.LANGUAGE = T.SOURCE_LANG)
297: where (
298: T.TYPE_CD,
299: T.LANGUAGE
300: ) in (select
301: SUBT.TYPE_CD,
302: SUBT.LANGUAGE
303: from BEN_STARTUP_ACTN_TYP_TL SUBB, BEN_STARTUP_ACTN_TYP_TL SUBT
304: where SUBB.TYPE_CD = SUBT.TYPE_CD
305: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
306: and (SUBB.NAME <> SUBT.NAME
307: ));
305: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
306: and (SUBB.NAME <> SUBT.NAME
307: ));
308:
309: insert into BEN_STARTUP_ACTN_TYP_TL (
310: LAST_UPDATE_LOGIN,
311: CREATED_BY,
312: CREATION_DATE,
313: DESCRIPTION,
327: B.NAME,
328: B.TYPE_CD,
329: L.LANGUAGE_CODE,
330: B.SOURCE_LANG
331: from BEN_STARTUP_ACTN_TYP_TL B, FND_LANGUAGES L
332: where L.INSTALLED_FLAG in ('I', 'B')
333: and B.LANGUAGE = userenv('LANG')
334: and not exists
335: (select NULL
332: where L.INSTALLED_FLAG in ('I', 'B')
333: and B.LANGUAGE = userenv('LANG')
334: and not exists
335: (select NULL
336: from BEN_STARTUP_ACTN_TYP_TL T
337: where T.TYPE_CD = B.TYPE_CD
338: and T.LANGUAGE = L.LANGUAGE_CODE);
339: end ADD_LANGUAGE;
340:
337: where T.TYPE_CD = B.TYPE_CD
338: and T.LANGUAGE = L.LANGUAGE_CODE);
339: end ADD_LANGUAGE;
340:
341: end BEN_STARTUP_ACTN_TYP_PKG;