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_ORGANIZATION_ACCOUNTS_PKG

Source


1 package body PSP_ORGANIZATION_ACCOUNTS_PKG as
2  /* $Header: PSPSUOAB.pls 120.1 2006/11/13 23:55:07 vdharmap noship $ */
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_ORGANIZATION_ACCOUNT_ID in NUMBER,
8   X_ORGANIZATION_ID in NUMBER,
9   X_ACCOUNT_TYPE_CODE in VARCHAR2,
10   X_START_DATE_ACTIVE in DATE,
11   X_END_DATE_ACTIVE in DATE,
12   X_GL_CODE_COMBINATION_ID in NUMBER,
13   X_PROJECT_ID in NUMBER,
14   X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
15   X_EXPENDITURE_TYPE in VARCHAR2,
16   X_TASK_ID in NUMBER,
17   X_AWARD_ID 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_ORGANIZATION_ACCOUNTS
42       where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_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_ORGANIZATION_ACCOUNTS (
67     ORGANIZATION_ACCOUNT_ID,
68     ORGANIZATION_ID,
69     ACCOUNT_TYPE_CODE,
70     START_DATE_ACTIVE,
71     END_DATE_ACTIVE,
72     GL_CODE_COMBINATION_ID,
73     PROJECT_ID,
74     EXPENDITURE_ORGANIZATION_ID,
75     EXPENDITURE_TYPE,
76     TASK_ID,
77     AWARD_ID,
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_ORGANIZATION_ACCOUNT_ID,
104     X_ORGANIZATION_ID,
105     X_ACCOUNT_TYPE_CODE,
106     X_START_DATE_ACTIVE,
107     X_END_DATE_ACTIVE,
108     X_GL_CODE_COMBINATION_ID,
109     X_PROJECT_ID,
110     X_EXPENDITURE_ORGANIZATION_ID,
111     X_EXPENDITURE_TYPE,
112     X_TASK_ID,
113     X_AWARD_ID,
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_ORGANIZATION_ACCOUNT_ID in NUMBER,
153   X_ORGANIZATION_ID in NUMBER,
154   X_ACCOUNT_TYPE_CODE in VARCHAR2,
155   X_START_DATE_ACTIVE in DATE,
156   X_END_DATE_ACTIVE in DATE,
157   X_GL_CODE_COMBINATION_ID in NUMBER,
158   X_PROJECT_ID in NUMBER,
159   X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
160   X_EXPENDITURE_TYPE in VARCHAR2,
161   X_TASK_ID in NUMBER,
162   X_AWARD_ID 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 
186   cursor c1 is select
187       ORGANIZATION_ID,
188       ACCOUNT_TYPE_CODE,
189       START_DATE_ACTIVE,
190       END_DATE_ACTIVE,
191       GL_CODE_COMBINATION_ID,
192       PROJECT_ID,
193       EXPENDITURE_ORGANIZATION_ID,
194       EXPENDITURE_TYPE,
195       TASK_ID,
196       AWARD_ID,
197       COMMENTS,
198       ATTRIBUTE_CATEGORY,
199       ATTRIBUTE1,
200       ATTRIBUTE2,
201       ATTRIBUTE3,
202       ATTRIBUTE4,
203       ATTRIBUTE5,
204       ATTRIBUTE6,
205       ATTRIBUTE7,
206       ATTRIBUTE8,
207       ATTRIBUTE9,
208       ATTRIBUTE10,
209       ATTRIBUTE11,
210       ATTRIBUTE12,
211       ATTRIBUTE13,
212       ATTRIBUTE14,
213       ATTRIBUTE15,
214       BUSINESS_GROUP_ID,
215       SET_OF_BOOKS_ID
216     from PSP_ORGANIZATION_ACCOUNTS
217     where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
218     AND   BUSINESS_GROUP_ID       = X_BUSINESS_GROUP_ID
219     AND   SET_OF_BOOKS_ID         = X_SET_OF_BOOKS_ID
220     for update of ORGANIZATION_ACCOUNT_ID nowait;
221   tlinfo c1%rowtype;
222 
223 begin
224   open c1;
225   fetch c1 into tlinfo;
226   if (c1%notfound) then
227     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
228     app_exception.raise_exception;
229     close c1;
230     return;
231   end if;
232   close c1;
233 
234   if ( (tlinfo.ORGANIZATION_ID = X_ORGANIZATION_ID)
235       AND (tlinfo.ACCOUNT_TYPE_CODE = X_ACCOUNT_TYPE_CODE)
236       AND (tlinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE)
237       AND ((tlinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE)
238            OR ((tlinfo.END_DATE_ACTIVE is null)
239                AND (X_END_DATE_ACTIVE is null)))
240       AND ((tlinfo.GL_CODE_COMBINATION_ID = X_GL_CODE_COMBINATION_ID)
241            OR ((tlinfo.GL_CODE_COMBINATION_ID is null)
242                AND (X_GL_CODE_COMBINATION_ID is null)))
243       AND ((tlinfo.PROJECT_ID = X_PROJECT_ID)
244            OR ((tlinfo.PROJECT_ID is null)
245                AND (X_PROJECT_ID is null)))
246       AND ((tlinfo.EXPENDITURE_ORGANIZATION_ID = X_EXPENDITURE_ORGANIZATION_ID)
247            OR ((tlinfo.EXPENDITURE_ORGANIZATION_ID is null)
248                AND (X_EXPENDITURE_ORGANIZATION_ID is null)))
249       AND ((tlinfo.EXPENDITURE_TYPE = X_EXPENDITURE_TYPE)
250            OR ((tlinfo.EXPENDITURE_TYPE is null)
251                AND (X_EXPENDITURE_TYPE is null)))
252       AND ((tlinfo.TASK_ID = X_TASK_ID)
253            OR ((tlinfo.TASK_ID is null)
254                AND (X_TASK_ID is null)))
255       AND ((tlinfo.AWARD_ID = X_AWARD_ID)
256            OR ((tlinfo.AWARD_ID is null)
257                AND (X_AWARD_ID is null)))
258       AND ((tlinfo.COMMENTS = X_COMMENTS)
259            OR ((tlinfo.COMMENTS is null)
260                AND (X_COMMENTS is null)))
261       AND ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
262            OR ((tlinfo.ATTRIBUTE_CATEGORY is null)
263                AND (X_ATTRIBUTE_CATEGORY is null)))
264       AND ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
265            OR ((tlinfo.ATTRIBUTE1 is null)
266                AND (X_ATTRIBUTE1 is null)))
267       AND ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
268            OR ((tlinfo.ATTRIBUTE2 is null)
269                AND (X_ATTRIBUTE2 is null)))
270       AND ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
271            OR ((tlinfo.ATTRIBUTE3 is null)
272                AND (X_ATTRIBUTE3 is null)))
273       AND ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
274            OR ((tlinfo.ATTRIBUTE4 is null)
275                AND (X_ATTRIBUTE4 is null)))
276       AND ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
277            OR ((tlinfo.ATTRIBUTE5 is null)
278                AND (X_ATTRIBUTE5 is null)))
279       AND ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
280            OR ((tlinfo.ATTRIBUTE6 is null)
281                AND (X_ATTRIBUTE6 is null)))
282       AND ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
283            OR ((tlinfo.ATTRIBUTE7 is null)
284                AND (X_ATTRIBUTE7 is null)))
285       AND ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
286            OR ((tlinfo.ATTRIBUTE8 is null)
287                AND (X_ATTRIBUTE8 is null)))
288       AND ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
289            OR ((tlinfo.ATTRIBUTE9 is null)
290                AND (X_ATTRIBUTE9 is null)))
291       AND ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
292            OR ((tlinfo.ATTRIBUTE10 is null)
293                AND (X_ATTRIBUTE10 is null)))
294       AND ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
295            OR ((tlinfo.ATTRIBUTE11 is null)
296                AND (X_ATTRIBUTE11 is null)))
297       AND ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
298            OR ((tlinfo.ATTRIBUTE12 is null)
299                AND (X_ATTRIBUTE12 is null)))
300       AND ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
301            OR ((tlinfo.ATTRIBUTE13 is null)
302                AND (X_ATTRIBUTE13 is null)))
303       AND ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
304            OR ((tlinfo.ATTRIBUTE14 is null)
305                AND (X_ATTRIBUTE14 is null)))
306       AND ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
307            OR ((tlinfo.ATTRIBUTE15 is null)
308                AND (X_ATTRIBUTE15 is null)))
309   ) then
310     null;
311   else
312     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
313     app_exception.raise_exception;
314   end if;
315   return;
316 end LOCK_ROW;
317 
318 /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
319 procedure UPDATE_ROW (
320   X_ORGANIZATION_ACCOUNT_ID in NUMBER,
321   X_ORGANIZATION_ID in NUMBER,
322   X_ACCOUNT_TYPE_CODE in VARCHAR2,
323   X_START_DATE_ACTIVE in DATE,
324   X_END_DATE_ACTIVE in DATE,
325   X_GL_CODE_COMBINATION_ID in NUMBER,
326   X_PROJECT_ID in NUMBER,
327   X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
328   X_EXPENDITURE_TYPE in VARCHAR2,
329   X_TASK_ID in NUMBER,
330   X_AWARD_ID in NUMBER,
331   X_COMMENTS in VARCHAR2,
332   X_ATTRIBUTE_CATEGORY in VARCHAR2,
333   X_ATTRIBUTE1 in VARCHAR2,
334   X_ATTRIBUTE2 in VARCHAR2,
335   X_ATTRIBUTE3 in VARCHAR2,
336   X_ATTRIBUTE4 in VARCHAR2,
337   X_ATTRIBUTE5 in VARCHAR2,
338   X_ATTRIBUTE6 in VARCHAR2,
339   X_ATTRIBUTE7 in VARCHAR2,
340   X_ATTRIBUTE8 in VARCHAR2,
341   X_ATTRIBUTE9 in VARCHAR2,
342   X_ATTRIBUTE10 in VARCHAR2,
343   X_ATTRIBUTE11 in VARCHAR2,
344   X_ATTRIBUTE12 in VARCHAR2,
345   X_ATTRIBUTE13 in VARCHAR2,
346   X_ATTRIBUTE14 in VARCHAR2,
347   X_ATTRIBUTE15 in VARCHAR2,
348   X_MODE in VARCHAR2 default 'R',
349   X_BUSINESS_GROUP_ID IN NUMBER,
350   X_SET_OF_BOOKS_ID   IN NUMBER,
351   X_POETA_START_DATE in DATE DEFAULT NULL,
352   X_POETA_END_DATE   in DATE DEFAULT NULL
353   ) is
354     X_LAST_UPDATE_DATE DATE;
355     X_LAST_UPDATED_BY NUMBER;
356     X_LAST_UPDATE_LOGIN NUMBER;
357 begin
358   X_LAST_UPDATE_DATE := SYSDATE;
359   if(X_MODE = 'I') then
360     X_LAST_UPDATED_BY := 1;
361     X_LAST_UPDATE_LOGIN := 0;
362   elsif (X_MODE = 'R') then
363     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
364     if X_LAST_UPDATED_BY is NULL then
365       X_LAST_UPDATED_BY := -1;
366     end if;
367     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
368     if X_LAST_UPDATE_LOGIN is NULL then
369       X_LAST_UPDATE_LOGIN := -1;
370     end if;
371   else
372     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
373     app_exception.raise_exception;
374   end if;
375   update PSP_ORGANIZATION_ACCOUNTS set
376     ORGANIZATION_ID = X_ORGANIZATION_ID,
377     ACCOUNT_TYPE_CODE = X_ACCOUNT_TYPE_CODE,
378     START_DATE_ACTIVE = X_START_DATE_ACTIVE,
379     END_DATE_ACTIVE = X_END_DATE_ACTIVE,
380     GL_CODE_COMBINATION_ID = X_GL_CODE_COMBINATION_ID,
381     PROJECT_ID = X_PROJECT_ID,
382     EXPENDITURE_ORGANIZATION_ID = X_EXPENDITURE_ORGANIZATION_ID,
383     EXPENDITURE_TYPE = X_EXPENDITURE_TYPE,
384     TASK_ID = X_TASK_ID,
385     AWARD_ID = X_AWARD_ID,
386     COMMENTS = X_COMMENTS,
387     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
388     ATTRIBUTE1 = X_ATTRIBUTE1,
389     ATTRIBUTE2 = X_ATTRIBUTE2,
390     ATTRIBUTE3 = X_ATTRIBUTE3,
391     ATTRIBUTE4 = X_ATTRIBUTE4,
392     ATTRIBUTE5 = X_ATTRIBUTE5,
393     ATTRIBUTE6 = X_ATTRIBUTE6,
394     ATTRIBUTE7 = X_ATTRIBUTE7,
395     ATTRIBUTE8 = X_ATTRIBUTE8,
396     ATTRIBUTE9 = X_ATTRIBUTE9,
397     ATTRIBUTE10 = X_ATTRIBUTE10,
398     ATTRIBUTE11 = X_ATTRIBUTE11,
399     ATTRIBUTE12 = X_ATTRIBUTE12,
400     ATTRIBUTE13 = X_ATTRIBUTE13,
401     ATTRIBUTE14 = X_ATTRIBUTE14,
402     ATTRIBUTE15 = X_ATTRIBUTE15,
403     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
407     SET_OF_BOOKS_ID   = X_SET_OF_BOOKS_ID
404     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
405     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
406     BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
408   where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
409   and   BUSINESS_GROUP_ID       = X_BUSINESS_GROUP_ID
410   and   SET_OF_BOOKS_ID         = X_SET_OF_BOOKS_ID ;
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_ORGANIZATION_ACCOUNT_ID in NUMBER,
420   X_ORGANIZATION_ID in NUMBER,
421   X_ACCOUNT_TYPE_CODE in VARCHAR2,
422   X_START_DATE_ACTIVE in DATE,
423   X_END_DATE_ACTIVE in DATE,
424   X_GL_CODE_COMBINATION_ID in NUMBER,
425   X_PROJECT_ID in NUMBER,
426   X_EXPENDITURE_ORGANIZATION_ID in NUMBER,
427   X_EXPENDITURE_TYPE in VARCHAR2,
428   X_TASK_ID in NUMBER,
429   X_AWARD_ID 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_ORGANIZATION_ACCOUNTS
454      where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
455      and   BUSINESS_GROUP_ID       = X_BUSINESS_GROUP_ID
456      and   SET_OF_BOOKS_ID         = X_SET_OF_BOOKS_ID ;
457   dummy c1%rowtype;
458 begin
459   open c1;
460   fetch c1 into dummy;
461   if (c1%notfound) then
462     close c1;
463     /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
464     INSERT_ROW (
465      X_ROWID,
466      X_ORGANIZATION_ACCOUNT_ID,
467      X_ORGANIZATION_ID,
468      X_ACCOUNT_TYPE_CODE,
469      X_START_DATE_ACTIVE,
470      X_END_DATE_ACTIVE,
471      X_GL_CODE_COMBINATION_ID,
472      X_PROJECT_ID,
473      X_EXPENDITURE_ORGANIZATION_ID,
474      X_EXPENDITURE_TYPE,
475      X_TASK_ID,
476      X_AWARD_ID,
477      X_COMMENTS,
478      X_ATTRIBUTE_CATEGORY,
479      X_ATTRIBUTE1,
480      X_ATTRIBUTE2,
481      X_ATTRIBUTE3,
482      X_ATTRIBUTE4,
483      X_ATTRIBUTE5,
484      X_ATTRIBUTE6,
485      X_ATTRIBUTE7,
486      X_ATTRIBUTE8,
487      X_ATTRIBUTE9,
488      X_ATTRIBUTE10,
489      X_ATTRIBUTE11,
490      X_ATTRIBUTE12,
491      X_ATTRIBUTE13,
492      X_ATTRIBUTE14,
493      X_ATTRIBUTE15,
494      X_MODE,
495      X_BUSINESS_GROUP_ID,
496      X_SET_OF_BOOKS_ID,
497      X_POETA_START_DATE,
498      X_POETA_END_DATE);
499     return;
500   end if;
501   close c1;
502   /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
503   UPDATE_ROW (
504    X_ORGANIZATION_ACCOUNT_ID,
505    X_ORGANIZATION_ID,
506    X_ACCOUNT_TYPE_CODE,
507    X_START_DATE_ACTIVE,
508    X_END_DATE_ACTIVE,
509    X_GL_CODE_COMBINATION_ID,
510    X_PROJECT_ID,
511    X_EXPENDITURE_ORGANIZATION_ID,
512    X_EXPENDITURE_TYPE,
513    X_TASK_ID,
514    X_AWARD_ID,
515    X_COMMENTS,
516    X_ATTRIBUTE_CATEGORY,
517    X_ATTRIBUTE1,
518    X_ATTRIBUTE2,
519    X_ATTRIBUTE3,
520    X_ATTRIBUTE4,
521    X_ATTRIBUTE5,
522    X_ATTRIBUTE6,
523    X_ATTRIBUTE7,
524    X_ATTRIBUTE8,
525    X_ATTRIBUTE9,
526    X_ATTRIBUTE10,
527    X_ATTRIBUTE11,
528    X_ATTRIBUTE12,
529    X_ATTRIBUTE13,
530    X_ATTRIBUTE14,
531    X_ATTRIBUTE15,
532    X_MODE,
533    X_BUSINESS_GROUP_ID,
534    X_SET_OF_BOOKS_ID,
535    X_POETA_START_DATE ,
536    X_POETA_END_DATE);
537 end ADD_ROW;
538 
539 procedure DELETE_ROW (
540   X_ORGANIZATION_ACCOUNT_ID in NUMBER,
541   X_BUSINESS_GROUP_ID IN NUMBER,
542   X_SET_OF_BOOKS_ID   IN NUMBER) is
543 begin
544   delete from PSP_ORGANIZATION_ACCOUNTS
545   where ORGANIZATION_ACCOUNT_ID = X_ORGANIZATION_ACCOUNT_ID
546   and   BUSINESS_GROUP_ID       = X_BUSINESS_GROUP_ID
547   AND   SET_OF_BOOKS_ID         = X_SET_OF_BOOKS_ID;
548   if (sql%notfound) then
549     raise no_data_found;
550   end if;
551 end DELETE_ROW;
552 
553 procedure assign_default_award_vars(p_award_id number,
554                                     p_award_number varchar2) is
555 begin
556   g_default_award_id := p_award_id;
557   g_default_award_number := p_award_number;
558 end;
559 function return_default_award_id  return integer
560  is
561 begin
562   return g_default_award_id;
566 begin
563 end;
564 function return_default_award_number  return varchar2
565  is
567   return g_default_award_number;
568 end;
569 
570 
571 end PSP_ORGANIZATION_ACCOUNTS_PKG;