eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.JTF_TASK_TEMP_GROUPS_PKG

Source


1 PACKAGE body JTF_TASK_TEMP_GROUPS_PKG as
2 /* $Header: jtftktgb.pls 120.2 2006/05/30 13:17:42 sbarat ship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out NOCOPY VARCHAR2,
5   X_TASK_TEMPLATE_GROUP_ID in NUMBER,
6   X_SOURCE_OBJECT_TYPE_CODE in VARCHAR2,
7   X_START_DATE_ACTIVE in DATE,
8   X_END_DATE_ACTIVE in DATE,
9   X_ATTRIBUTE1 in VARCHAR2,
10   X_ATTRIBUTE2 in VARCHAR2,
11   X_ATTRIBUTE3 in VARCHAR2,
12   X_ATTRIBUTE4 in VARCHAR2,
13   X_ATTRIBUTE5 in VARCHAR2,
14   X_ATTRIBUTE6 in VARCHAR2,
15   X_ATTRIBUTE7 in VARCHAR2,
16   X_ATTRIBUTE8 in VARCHAR2,
17   X_ATTRIBUTE9 in VARCHAR2,
18   X_ATTRIBUTE10 in VARCHAR2,
19   X_ATTRIBUTE11 in VARCHAR2,
20   X_ATTRIBUTE12 in VARCHAR2,
21   X_ATTRIBUTE13 in VARCHAR2,
22   X_ATTRIBUTE14 in VARCHAR2,
23   X_ATTRIBUTE15 in VARCHAR2,
24   X_ATTRIBUTE_CATEGORY in VARCHAR2,
25   X_TEMPLATE_GROUP_NAME in VARCHAR2,
26   X_DESCRIPTION in VARCHAR2,
27   X_CREATION_DATE in DATE,
28   X_CREATED_BY in NUMBER,
29   X_LAST_UPDATE_DATE in DATE,
30   X_LAST_UPDATED_BY in NUMBER,
31   X_LAST_UPDATE_LOGIN in NUMBER,
32   X_APPLICATION_ID in NUMBER  default null
33 ) is
34   cursor C is select ROWID from JTF_TASK_TEMP_GROUPS_B
35     where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID
36     ;
37 begin
38   insert into JTF_TASK_TEMP_GROUPS_B (
39     TASK_TEMPLATE_GROUP_ID,
40     SOURCE_OBJECT_TYPE_CODE,
41     START_DATE_ACTIVE,
42     END_DATE_ACTIVE,
43     ATTRIBUTE1,
44     ATTRIBUTE2,
45     ATTRIBUTE3,
46     ATTRIBUTE4,
47     ATTRIBUTE5,
48     ATTRIBUTE6,
49     ATTRIBUTE7,
50     ATTRIBUTE8,
51     ATTRIBUTE9,
52     ATTRIBUTE10,
53     ATTRIBUTE11,
54     ATTRIBUTE12,
55     ATTRIBUTE13,
56     ATTRIBUTE14,
57     ATTRIBUTE15,
58     ATTRIBUTE_CATEGORY,
59     CREATION_DATE,
60     CREATED_BY,
61     LAST_UPDATE_DATE,
62     LAST_UPDATED_BY,
63     LAST_UPDATE_LOGIN,
64     OBJECT_VERSION_NUMBER,
65     APPLICATION_ID
66   ) values (
67     X_TASK_TEMPLATE_GROUP_ID,
68     X_SOURCE_OBJECT_TYPE_CODE,
69     X_START_DATE_ACTIVE,
70     X_END_DATE_ACTIVE,
71     X_ATTRIBUTE1,
72     X_ATTRIBUTE2,
73     X_ATTRIBUTE3,
74     X_ATTRIBUTE4,
75     X_ATTRIBUTE5,
76     X_ATTRIBUTE6,
77     X_ATTRIBUTE7,
78     X_ATTRIBUTE8,
79     X_ATTRIBUTE9,
80     X_ATTRIBUTE10,
81     X_ATTRIBUTE11,
82     X_ATTRIBUTE12,
83     X_ATTRIBUTE13,
84     X_ATTRIBUTE14,
85     X_ATTRIBUTE15,
86     X_ATTRIBUTE_CATEGORY,
87     X_CREATION_DATE,
88     X_CREATED_BY,
89     X_LAST_UPDATE_DATE,
90     X_LAST_UPDATED_BY,
91     X_LAST_UPDATE_LOGIN,
92     1,
93     X_APPLICATION_ID
94   );
95 
96   insert into JTF_TASK_TEMP_GROUPS_TL (
97     TASK_TEMPLATE_GROUP_ID,
98     TEMPLATE_GROUP_NAME,
99     DESCRIPTION,
100     CREATED_BY,
101     CREATION_DATE,
102     LAST_UPDATED_BY,
103     LAST_UPDATE_DATE,
104     LAST_UPDATE_LOGIN,
105     LANGUAGE,
106     SOURCE_LANG
107   ) select
108     X_TASK_TEMPLATE_GROUP_ID,
109     X_TEMPLATE_GROUP_NAME,
110     X_DESCRIPTION,
111     X_CREATED_BY,
112     X_CREATION_DATE,
113     X_LAST_UPDATED_BY,
114     X_LAST_UPDATE_DATE,
115     X_LAST_UPDATE_LOGIN,
116     L.LANGUAGE_CODE,
117     userenv('LANG')
118   from FND_LANGUAGES L
119   where L.INSTALLED_FLAG in ('I', 'B')
120   and not exists
121     (select NULL
122     from JTF_TASK_TEMP_GROUPS_TL T
123     where T.TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID
124     and T.LANGUAGE = L.LANGUAGE_CODE);
125 
126   open c;
127   fetch c into X_ROWID;
128   if (c%notfound) then
129     close c;
130     raise no_data_found;
131   end if;
132   close c;
133 
134 end INSERT_ROW;
135 
136 procedure LOCK_ROW (
137   X_TASK_TEMPLATE_GROUP_ID in NUMBER,
138   X_OBJECT_VERSION_NUMBER in NUMBER
139 ) is
140   cursor c is select
141           OBJECT_VERSION_NUMBER
142     from JTF_TASK_TEMP_GROUPS_VL
143     where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID
144     and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
145     for update of TASK_TEMPLATE_GROUP_ID nowait;
146   recinfo c%rowtype;
147 
148 
149 begin
150   open c;
151   fetch c into recinfo;
152   if (c%notfound) then
153     close c;
154     fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
155     fnd_msg_pub.add;
156     app_exception.raise_exception;
157   end if;
158 
159   close c;
160 
161   if recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER then
162     null;
163   else
164     fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
165     fnd_msg_pub.add;
166     app_exception.raise_exception;
167   end if;
168 
169 
170 end LOCK_ROW;
171 
172 
173 procedure UPDATE_ROW (
174   X_TASK_TEMPLATE_GROUP_ID in NUMBER,
175   X_OBJECT_VERSION_NUMBER in NUMBER,
176   X_SOURCE_OBJECT_TYPE_CODE in VARCHAR2,
177   X_START_DATE_ACTIVE in DATE,
178   X_END_DATE_ACTIVE in DATE,
179   X_ATTRIBUTE1 in VARCHAR2,
180   X_ATTRIBUTE2 in VARCHAR2,
181   X_ATTRIBUTE3 in VARCHAR2,
182   X_ATTRIBUTE4 in VARCHAR2,
183   X_ATTRIBUTE5 in VARCHAR2,
184   X_ATTRIBUTE6 in VARCHAR2,
185   X_ATTRIBUTE7 in VARCHAR2,
186   X_ATTRIBUTE8 in VARCHAR2,
187   X_ATTRIBUTE9 in VARCHAR2,
188   X_ATTRIBUTE10 in VARCHAR2,
189   X_ATTRIBUTE11 in VARCHAR2,
190   X_ATTRIBUTE12 in VARCHAR2,
191   X_ATTRIBUTE13 in VARCHAR2,
192   X_ATTRIBUTE14 in VARCHAR2,
193   X_ATTRIBUTE15 in VARCHAR2,
194   X_ATTRIBUTE_CATEGORY in VARCHAR2,
195   X_TEMPLATE_GROUP_NAME in VARCHAR2,
196   X_DESCRIPTION in VARCHAR2,
197   X_LAST_UPDATE_DATE in DATE,
198   X_LAST_UPDATED_BY in NUMBER,
199   X_LAST_UPDATE_LOGIN in NUMBER,
200   X_APPLICATION_ID in NUMBER  default fnd_api.g_miss_num
201 ) is
202 begin
203   update JTF_TASK_TEMP_GROUPS_B set
204     SOURCE_OBJECT_TYPE_CODE = X_SOURCE_OBJECT_TYPE_CODE,
205     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER + 1,
206     START_DATE_ACTIVE = X_START_DATE_ACTIVE,
207     END_DATE_ACTIVE = X_END_DATE_ACTIVE,
208     ATTRIBUTE1 = X_ATTRIBUTE1,
209     ATTRIBUTE2 = X_ATTRIBUTE2,
210     ATTRIBUTE3 = X_ATTRIBUTE3,
211     ATTRIBUTE4 = X_ATTRIBUTE4,
212     ATTRIBUTE5 = X_ATTRIBUTE5,
213     ATTRIBUTE6 = X_ATTRIBUTE6,
214     ATTRIBUTE7 = X_ATTRIBUTE7,
215     ATTRIBUTE8 = X_ATTRIBUTE8,
216     ATTRIBUTE9 = X_ATTRIBUTE9,
217     ATTRIBUTE10 = X_ATTRIBUTE10,
218     ATTRIBUTE11 = X_ATTRIBUTE11,
219     ATTRIBUTE12 = X_ATTRIBUTE12,
220     ATTRIBUTE13 = X_ATTRIBUTE13,
221     ATTRIBUTE14 = X_ATTRIBUTE14,
222     ATTRIBUTE15 = X_ATTRIBUTE15,
223     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
224     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
225     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
226     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
227     APPLICATION_ID = decode (X_APPLICATION_ID,fnd_api.g_miss_num,application_id,x_application_id )
228   where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID ;
229 
230   if (sql%notfound) then
231     raise no_data_found;
232   end if;
233 
234   update JTF_TASK_TEMP_GROUPS_TL set
235     TEMPLATE_GROUP_NAME = X_TEMPLATE_GROUP_NAME,
236     DESCRIPTION = X_DESCRIPTION,
237     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
238     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
239     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
240     SOURCE_LANG = userenv('LANG')
241   where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID
242   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
243 
244   if (sql%notfound) then
245     raise no_data_found;
246   end if;
247 end UPDATE_ROW;
248 
249 procedure DELETE_ROW (
250   X_TASK_TEMPLATE_GROUP_ID in NUMBER
251 ) is
252 begin
253   delete from JTF_TASK_TEMP_GROUPS_TL
254   where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID;
255 
256 
257   if (sql%notfound) then
258     raise no_data_found;
259   end if;
260 
261   delete from JTF_TASK_TEMP_GROUPS_B
262   where TASK_TEMPLATE_GROUP_ID = X_TASK_TEMPLATE_GROUP_ID ;
263 
264   if (sql%notfound) then
265     raise no_data_found;
266   end if;
267 end DELETE_ROW;
268 
269 procedure ADD_LANGUAGE
270 is
271 begin
272   delete from JTF_TASK_TEMP_GROUPS_TL T
273   where not exists
274     (select NULL
275     from JTF_TASK_TEMP_GROUPS_B B
276     where B.TASK_TEMPLATE_GROUP_ID = T.TASK_TEMPLATE_GROUP_ID
277     );
278 
279   update JTF_TASK_TEMP_GROUPS_TL T set (
280       TEMPLATE_GROUP_NAME,
281       DESCRIPTION
282     ) = (select
283       B.TEMPLATE_GROUP_NAME,
284       B.DESCRIPTION
285     from JTF_TASK_TEMP_GROUPS_TL B
286     where B.TASK_TEMPLATE_GROUP_ID = T.TASK_TEMPLATE_GROUP_ID
287     and B.LANGUAGE = T.SOURCE_LANG)
288   where (
289       T.TASK_TEMPLATE_GROUP_ID,
290       T.LANGUAGE
291   ) in (select
292       SUBT.TASK_TEMPLATE_GROUP_ID,
293       SUBT.LANGUAGE
294     from JTF_TASK_TEMP_GROUPS_TL SUBB, JTF_TASK_TEMP_GROUPS_TL SUBT
295     where SUBB.TASK_TEMPLATE_GROUP_ID = SUBT.TASK_TEMPLATE_GROUP_ID
296     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
297     and (SUBB.TEMPLATE_GROUP_NAME <> SUBT.TEMPLATE_GROUP_NAME
298       or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
299       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
300       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
301   ));
302 
303   insert into JTF_TASK_TEMP_GROUPS_TL (
304     TASK_TEMPLATE_GROUP_ID,
305     TEMPLATE_GROUP_NAME,
306     DESCRIPTION,
307     CREATED_BY,
308     CREATION_DATE,
309     LAST_UPDATED_BY,
310     LAST_UPDATE_DATE,
311     LAST_UPDATE_LOGIN,
312     LANGUAGE,
313     SOURCE_LANG
314   ) select /*+ INDEX(b JTF_TASK_TEMP_GROUPS_TL_U1) INDEX (l FND_LANGUAGES_N1) */  -- Added Index Hint on 30/05/2006 for bug# 5213367
315     B.TASK_TEMPLATE_GROUP_ID,
316     B.TEMPLATE_GROUP_NAME,
317     B.DESCRIPTION,
318     B.CREATED_BY,
319     B.CREATION_DATE,
320     B.LAST_UPDATED_BY,
321     B.LAST_UPDATE_DATE,
322     B.LAST_UPDATE_LOGIN,
323     L.LANGUAGE_CODE,
324     B.SOURCE_LANG
325   from JTF_TASK_TEMP_GROUPS_TL B, FND_LANGUAGES L
326   where L.INSTALLED_FLAG in ('I', 'B')
327   and B.LANGUAGE = userenv('LANG')
328   and not exists
329     (select NULL
330     from JTF_TASK_TEMP_GROUPS_TL T
331     where T.TASK_TEMPLATE_GROUP_ID = B.TASK_TEMPLATE_GROUP_ID
332     and T.LANGUAGE = L.LANGUAGE_CODE);
333 end ADD_LANGUAGE;
334 
335 procedure TRANSLATE_ROW(
336   X_TASK_Template_group_ID in number,
337   X_TEMPLATE_GROUP_NAME in varchar2,
338   X_DESCRIPTION in varchar2,
339   x_owner in varchar2) is
340 begin
341   update jtf_task_temp_groups_tl set
342     template_group_NAME= nvl(X_template_group_NAME,template_group_NAME),
343     DESCRIPTION= nvl(X_DESCRIPTION,DESCRIPTION),
344     LAST_UPDATE_DATE = sysdate,
345     last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
346     LAST_UPDATE_LOGIN = 0,
347     SOURCE_LANG = userenv('LANG')
348   where TASK_Template_group_ID = X_TASK_Template_group_ID
349   and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
350 
351   if (sql%notfound) then
352     raise no_data_found;
353   end if;
354 end TRANSLATE_ROW;
355 
356 end JTF_TASK_TEMP_GROUPS_PKG;