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_ELEMENT_TYPE_ACCOUNTS_PKG

Source


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