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.PSP_GROUP_ELEMENT_LIST_PKG

Source


1 package body PSP_GROUP_ELEMENT_LIST_PKG as
2  /* $Header: PSPSUGEB.pls 115.6 2002/11/18 08:49:53 lveerubh ship $ */
3 procedure INSERT_ROW (
4   X_ROWID in out NOCOPY VARCHAR2,
5   X_ELEMENT_GROUP_ID in NUMBER,
6   X_ELEMENT_TYPE_ID in NUMBER,
7   X_START_DATE_ACTIVE in DATE,
8   X_ATTRIBUTE_CATEGORY in VARCHAR2,
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_MODE in VARCHAR2 default 'R'
25   ) is
26     cursor C is select ROWID from PSP_GROUP_ELEMENT_LIST
27       where ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID
28       and ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
29       and START_DATE_ACTIVE = X_START_DATE_ACTIVE;
30     X_LAST_UPDATE_DATE DATE;
31     X_LAST_UPDATED_BY NUMBER;
32     X_LAST_UPDATE_LOGIN NUMBER;
33 begin
34   X_LAST_UPDATE_DATE := SYSDATE;
35   if(X_MODE = 'I') then
36     X_LAST_UPDATED_BY := 1;
37     X_LAST_UPDATE_LOGIN := 0;
38   elsif (X_MODE = 'R') then
39     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
40     if X_LAST_UPDATED_BY is NULL then
41       X_LAST_UPDATED_BY := -1;
42     end if;
43     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
44     if X_LAST_UPDATE_LOGIN is NULL then
45       X_LAST_UPDATE_LOGIN := -1;
46     end if;
47   else
48     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
49     app_exception.raise_exception;
50   end if;
51   insert into PSP_GROUP_ELEMENT_LIST (
52     ELEMENT_GROUP_ID,
53     ELEMENT_TYPE_ID,
54     START_DATE_ACTIVE,
55     ATTRIBUTE_CATEGORY,
56     ATTRIBUTE1,
57     ATTRIBUTE2,
58     ATTRIBUTE3,
59     ATTRIBUTE4,
60     ATTRIBUTE5,
61     ATTRIBUTE6,
62     ATTRIBUTE7,
63     ATTRIBUTE8,
64     ATTRIBUTE9,
65     ATTRIBUTE10,
66     ATTRIBUTE11,
67     ATTRIBUTE12,
68     ATTRIBUTE13,
69     ATTRIBUTE14,
70     ATTRIBUTE15,
71     CREATION_DATE,
72     CREATED_BY,
73     LAST_UPDATE_DATE,
74     LAST_UPDATED_BY,
75     LAST_UPDATE_LOGIN
76   ) values (
77     X_ELEMENT_GROUP_ID,
78     X_ELEMENT_TYPE_ID,
79     X_START_DATE_ACTIVE,
80     X_ATTRIBUTE_CATEGORY,
81     X_ATTRIBUTE1,
82     X_ATTRIBUTE2,
83     X_ATTRIBUTE3,
84     X_ATTRIBUTE4,
85     X_ATTRIBUTE5,
86     X_ATTRIBUTE6,
87     X_ATTRIBUTE7,
88     X_ATTRIBUTE8,
89     X_ATTRIBUTE9,
90     X_ATTRIBUTE10,
91     X_ATTRIBUTE11,
92     X_ATTRIBUTE12,
93     X_ATTRIBUTE13,
94     X_ATTRIBUTE14,
95     X_ATTRIBUTE15,
96     X_LAST_UPDATE_DATE,
97     X_LAST_UPDATED_BY,
98     X_LAST_UPDATE_DATE,
99     X_LAST_UPDATED_BY,
100     X_LAST_UPDATE_LOGIN
101   );
102 
103   open c;
104   fetch c into X_ROWID;
105   if (c%notfound) then
106     close c;
107     raise no_data_found;
108   end if;
109   close c;
110 
111 end INSERT_ROW;
112 
113 procedure LOCK_ROW (
114   X_ELEMENT_GROUP_ID in NUMBER,
115   X_ELEMENT_TYPE_ID in NUMBER,
116   X_START_DATE_ACTIVE in DATE,
117   X_ATTRIBUTE_CATEGORY in VARCHAR2,
118   X_ATTRIBUTE1 in VARCHAR2,
119   X_ATTRIBUTE2 in VARCHAR2,
120   X_ATTRIBUTE3 in VARCHAR2,
121   X_ATTRIBUTE4 in VARCHAR2,
122   X_ATTRIBUTE5 in VARCHAR2,
123   X_ATTRIBUTE6 in VARCHAR2,
124   X_ATTRIBUTE7 in VARCHAR2,
125   X_ATTRIBUTE8 in VARCHAR2,
126   X_ATTRIBUTE9 in VARCHAR2,
127   X_ATTRIBUTE10 in VARCHAR2,
128   X_ATTRIBUTE11 in VARCHAR2,
129   X_ATTRIBUTE12 in VARCHAR2,
130   X_ATTRIBUTE13 in VARCHAR2,
131   X_ATTRIBUTE14 in VARCHAR2,
132   X_ATTRIBUTE15 in VARCHAR2
133 ) is
134   cursor c1 is select
135       ATTRIBUTE_CATEGORY,
136       ATTRIBUTE1,
137       ATTRIBUTE2,
138       ATTRIBUTE3,
139       ATTRIBUTE4,
140       ATTRIBUTE5,
141       ATTRIBUTE6,
142       ATTRIBUTE7,
143       ATTRIBUTE8,
144       ATTRIBUTE9,
145       ATTRIBUTE10,
146       ATTRIBUTE11,
147       ATTRIBUTE12,
148       ATTRIBUTE13,
149       ATTRIBUTE14,
150       ATTRIBUTE15
151     from PSP_GROUP_ELEMENT_LIST
152     where ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID
153     and ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
154     and START_DATE_ACTIVE = X_START_DATE_ACTIVE
155     for update of ELEMENT_GROUP_ID nowait;
156   tlinfo c1%rowtype;
157 
158 begin
159   open c1;
160   fetch c1 into tlinfo;
161   if (c1%notfound) then
162     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
163     app_exception.raise_exception;
164     close c1;
165     return;
166   end if;
167   close c1;
168 
169       if ( ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
170            OR ((tlinfo.ATTRIBUTE_CATEGORY is null)
171                AND (X_ATTRIBUTE_CATEGORY is null)))
172       AND ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
173            OR ((tlinfo.ATTRIBUTE1 is null)
174                AND (X_ATTRIBUTE1 is null)))
175       AND ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
176            OR ((tlinfo.ATTRIBUTE2 is null)
177                AND (X_ATTRIBUTE2 is null)))
178       AND ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
179            OR ((tlinfo.ATTRIBUTE3 is null)
180                AND (X_ATTRIBUTE3 is null)))
181       AND ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
182            OR ((tlinfo.ATTRIBUTE4 is null)
183                AND (X_ATTRIBUTE4 is null)))
184       AND ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
185            OR ((tlinfo.ATTRIBUTE5 is null)
186                AND (X_ATTRIBUTE5 is null)))
187       AND ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
188            OR ((tlinfo.ATTRIBUTE6 is null)
189                AND (X_ATTRIBUTE6 is null)))
190       AND ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
191            OR ((tlinfo.ATTRIBUTE7 is null)
192                AND (X_ATTRIBUTE7 is null)))
193       AND ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
194            OR ((tlinfo.ATTRIBUTE8 is null)
195                AND (X_ATTRIBUTE8 is null)))
196       AND ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
197            OR ((tlinfo.ATTRIBUTE9 is null)
198                AND (X_ATTRIBUTE9 is null)))
199       AND ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
200            OR ((tlinfo.ATTRIBUTE10 is null)
201                AND (X_ATTRIBUTE10 is null)))
202       AND ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
203            OR ((tlinfo.ATTRIBUTE11 is null)
204                AND (X_ATTRIBUTE11 is null)))
205       AND ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
206            OR ((tlinfo.ATTRIBUTE12 is null)
207                AND (X_ATTRIBUTE12 is null)))
208       AND ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
209            OR ((tlinfo.ATTRIBUTE13 is null)
210                AND (X_ATTRIBUTE13 is null)))
211       AND ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
212            OR ((tlinfo.ATTRIBUTE14 is null)
213                AND (X_ATTRIBUTE14 is null)))
214       AND ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
215            OR ((tlinfo.ATTRIBUTE15 is null)
216                AND (X_ATTRIBUTE15 is null)))
217   ) then
218     null;
219   else
220     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
221     app_exception.raise_exception;
222   end if;
223   return;
224 end LOCK_ROW;
225 
226 procedure UPDATE_ROW (
227   X_ELEMENT_GROUP_ID in NUMBER,
228   X_ELEMENT_TYPE_ID in NUMBER,
229   X_START_DATE_ACTIVE in DATE,
230   X_ATTRIBUTE_CATEGORY in VARCHAR2,
231   X_ATTRIBUTE1 in VARCHAR2,
232   X_ATTRIBUTE2 in VARCHAR2,
233   X_ATTRIBUTE3 in VARCHAR2,
234   X_ATTRIBUTE4 in VARCHAR2,
235   X_ATTRIBUTE5 in VARCHAR2,
236   X_ATTRIBUTE6 in VARCHAR2,
237   X_ATTRIBUTE7 in VARCHAR2,
238   X_ATTRIBUTE8 in VARCHAR2,
239   X_ATTRIBUTE9 in VARCHAR2,
240   X_ATTRIBUTE10 in VARCHAR2,
241   X_ATTRIBUTE11 in VARCHAR2,
242   X_ATTRIBUTE12 in VARCHAR2,
243   X_ATTRIBUTE13 in VARCHAR2,
244   X_ATTRIBUTE14 in VARCHAR2,
245   X_ATTRIBUTE15 in VARCHAR2,
246   X_MODE in VARCHAR2 default 'R'
247   ) is
248     X_LAST_UPDATE_DATE DATE;
249     X_LAST_UPDATED_BY NUMBER;
250     X_LAST_UPDATE_LOGIN NUMBER;
251 begin
252   X_LAST_UPDATE_DATE := SYSDATE;
253   if(X_MODE = 'I') then
254     X_LAST_UPDATED_BY := 1;
255     X_LAST_UPDATE_LOGIN := 0;
256   elsif (X_MODE = 'R') then
257     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
258     if X_LAST_UPDATED_BY is NULL then
259       X_LAST_UPDATED_BY := -1;
260     end if;
261     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
262     if X_LAST_UPDATE_LOGIN is NULL then
263       X_LAST_UPDATE_LOGIN := -1;
264     end if;
265   else
266     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
267     app_exception.raise_exception;
268   end if;
269   update PSP_GROUP_ELEMENT_LIST set
270     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
271     ATTRIBUTE1 = X_ATTRIBUTE1,
272     ATTRIBUTE2 = X_ATTRIBUTE2,
273     ATTRIBUTE3 = X_ATTRIBUTE3,
274     ATTRIBUTE4 = X_ATTRIBUTE4,
275     ATTRIBUTE5 = X_ATTRIBUTE5,
276     ATTRIBUTE6 = X_ATTRIBUTE6,
277     ATTRIBUTE7 = X_ATTRIBUTE7,
278     ATTRIBUTE8 = X_ATTRIBUTE8,
279     ATTRIBUTE9 = X_ATTRIBUTE9,
280     ATTRIBUTE10 = X_ATTRIBUTE10,
281     ATTRIBUTE11 = X_ATTRIBUTE11,
282     ATTRIBUTE12 = X_ATTRIBUTE12,
283     ATTRIBUTE13 = X_ATTRIBUTE13,
284     ATTRIBUTE14 = X_ATTRIBUTE14,
285     ATTRIBUTE15 = X_ATTRIBUTE15,
286     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
287     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
288     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
289   where ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID
290   and ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
291   and START_DATE_ACTIVE = X_START_DATE_ACTIVE
292   ;
293   if (sql%notfound) then
294     raise no_data_found;
295   end if;
296 end UPDATE_ROW;
297 
298 procedure ADD_ROW (
299   X_ROWID in out NOCOPY VARCHAR2,
300   X_ELEMENT_GROUP_ID in NUMBER,
301   X_ELEMENT_TYPE_ID in NUMBER,
302   X_START_DATE_ACTIVE in DATE,
303   X_ATTRIBUTE_CATEGORY in VARCHAR2,
304   X_ATTRIBUTE1 in VARCHAR2,
305   X_ATTRIBUTE2 in VARCHAR2,
306   X_ATTRIBUTE3 in VARCHAR2,
307   X_ATTRIBUTE4 in VARCHAR2,
308   X_ATTRIBUTE5 in VARCHAR2,
309   X_ATTRIBUTE6 in VARCHAR2,
310   X_ATTRIBUTE7 in VARCHAR2,
311   X_ATTRIBUTE8 in VARCHAR2,
312   X_ATTRIBUTE9 in VARCHAR2,
313   X_ATTRIBUTE10 in VARCHAR2,
314   X_ATTRIBUTE11 in VARCHAR2,
315   X_ATTRIBUTE12 in VARCHAR2,
316   X_ATTRIBUTE13 in VARCHAR2,
317   X_ATTRIBUTE14 in VARCHAR2,
318   X_ATTRIBUTE15 in VARCHAR2,
319   X_MODE in VARCHAR2 default 'R'
320   ) is
321   cursor c1 is select rowid from PSP_GROUP_ELEMENT_LIST
322      where ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID
323      and ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
324      and START_DATE_ACTIVE = X_START_DATE_ACTIVE
325   ;
326   dummy c1%rowtype;
327 begin
328   open c1;
329   fetch c1 into dummy;
330   if (c1%notfound) then
331     close c1;
332     INSERT_ROW (
333      X_ROWID,
334      X_ELEMENT_GROUP_ID,
335      X_ELEMENT_TYPE_ID,
336      X_START_DATE_ACTIVE,
337      X_ATTRIBUTE_CATEGORY,
338      X_ATTRIBUTE1,
339      X_ATTRIBUTE2,
340      X_ATTRIBUTE3,
341      X_ATTRIBUTE4,
342      X_ATTRIBUTE5,
343      X_ATTRIBUTE6,
344      X_ATTRIBUTE7,
345      X_ATTRIBUTE8,
346      X_ATTRIBUTE9,
347      X_ATTRIBUTE10,
348      X_ATTRIBUTE11,
349      X_ATTRIBUTE12,
350      X_ATTRIBUTE13,
351      X_ATTRIBUTE14,
352      X_ATTRIBUTE15,
353      X_MODE);
354     return;
355   end if;
356   close c1;
357   UPDATE_ROW (
358    X_ELEMENT_GROUP_ID,
359    X_ELEMENT_TYPE_ID,
360    X_START_DATE_ACTIVE,
361    X_ATTRIBUTE_CATEGORY,
362    X_ATTRIBUTE1,
363    X_ATTRIBUTE2,
364    X_ATTRIBUTE3,
365    X_ATTRIBUTE4,
366    X_ATTRIBUTE5,
367    X_ATTRIBUTE6,
368    X_ATTRIBUTE7,
369    X_ATTRIBUTE8,
370    X_ATTRIBUTE9,
371    X_ATTRIBUTE10,
372    X_ATTRIBUTE11,
373    X_ATTRIBUTE12,
374    X_ATTRIBUTE13,
375    X_ATTRIBUTE14,
376    X_ATTRIBUTE15,
377    X_MODE);
378 end ADD_ROW;
379 
380 procedure DELETE_ROW (
381   X_ELEMENT_GROUP_ID in NUMBER,
382   X_ELEMENT_TYPE_ID in NUMBER,
383   X_START_DATE_ACTIVE in DATE
384 ) is
385 begin
386   delete from PSP_GROUP_ELEMENT_LIST
387   where ELEMENT_GROUP_ID = X_ELEMENT_GROUP_ID
388   and ELEMENT_TYPE_ID = X_ELEMENT_TYPE_ID
389   and START_DATE_ACTIVE = X_START_DATE_ACTIVE;
390   if (sql%notfound) then
391     raise no_data_found;
392   end if;
393 end DELETE_ROW;
394 
395 end PSP_GROUP_ELEMENT_LIST_PKG;