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

Source


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