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_ENC_END_DATES_PKG

Source


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