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_DEFAULT_SCHEDULES_PKG

Source


1 package body PSP_DEFAULT_SCHEDULES_PKG as
2  /* $Header: PSPSULSB.pls 115.9 2002/11/18 08:55:24 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_ORG_SCHEDULE_ID in NUMBER,
8   X_ORGANIZATION_ID in NUMBER,
9   X_SCHEDULE_BEGIN_DATE in DATE,
10   X_SCHEDULE_END_DATE 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_SCHEDULE_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_DEFAULT_LABOR_SCHEDULES
42       where ORG_SCHEDULE_ID = X_ORG_SCHEDULE_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_DEFAULT_LABOR_SCHEDULES (
67     ORG_SCHEDULE_ID,
68     ORGANIZATION_ID,
69     SCHEDULE_BEGIN_DATE,
70     SCHEDULE_END_DATE,
71     GL_CODE_COMBINATION_ID,
72     PROJECT_ID,
73     EXPENDITURE_ORGANIZATION_ID,
74     EXPENDITURE_TYPE,
75     TASK_ID,
76     AWARD_ID,
77     SCHEDULE_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_ORG_SCHEDULE_ID,
104     X_ORGANIZATION_ID,
105     X_SCHEDULE_BEGIN_DATE,
106     X_SCHEDULE_END_DATE,
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_SCHEDULE_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_ORG_SCHEDULE_ID in NUMBER,
153   X_ORGANIZATION_ID in NUMBER,
154   X_SCHEDULE_BEGIN_DATE in DATE,
155   X_SCHEDULE_END_DATE 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_SCHEDULE_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       ORGANIZATION_ID,
187       SCHEDULE_BEGIN_DATE,
188       SCHEDULE_END_DATE,
189       GL_CODE_COMBINATION_ID,
190       PROJECT_ID,
191       EXPENDITURE_ORGANIZATION_ID,
192       EXPENDITURE_TYPE,
193       TASK_ID,
194       AWARD_ID,
195       SCHEDULE_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_DEFAULT_LABOR_SCHEDULES
216     where ORG_SCHEDULE_ID = X_ORG_SCHEDULE_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 ORG_SCHEDULE_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.ORGANIZATION_ID = X_ORGANIZATION_ID)
234       AND (tlinfo.SCHEDULE_BEGIN_DATE = X_SCHEDULE_BEGIN_DATE)
235       AND (tlinfo.SCHEDULE_END_DATE = X_SCHEDULE_END_DATE)
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.SCHEDULE_PERCENT = X_SCHEDULE_PERCENT)
255            OR ((tlinfo.SCHEDULE_PERCENT is null)
256                AND (X_SCHEDULE_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_ORG_SCHEDULE_ID in NUMBER,
320   X_ORGANIZATION_ID in NUMBER,
321   X_SCHEDULE_BEGIN_DATE in DATE,
322   X_SCHEDULE_END_DATE 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_SCHEDULE_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_DEFAULT_LABOR_SCHEDULES set
375     ORGANIZATION_ID = X_ORGANIZATION_ID,
376     SCHEDULE_BEGIN_DATE = X_SCHEDULE_BEGIN_DATE,
377     SCHEDULE_END_DATE = X_SCHEDULE_END_DATE,
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,
384     SCHEDULE_PERCENT = X_SCHEDULE_PERCENT,
385     COMMENTS = X_COMMENTS,
386     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
387     ATTRIBUTE1 = X_ATTRIBUTE1,
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 ORG_SCHEDULE_ID = X_ORG_SCHEDULE_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_ORG_SCHEDULE_ID in NUMBER,
420   X_ORGANIZATION_ID in NUMBER,
421   X_SCHEDULE_BEGIN_DATE in DATE,
422   X_SCHEDULE_END_DATE 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_SCHEDULE_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,
438   X_ATTRIBUTE7 in VARCHAR2,
435   X_ATTRIBUTE4 in VARCHAR2,
436   X_ATTRIBUTE5 in VARCHAR2,
437   X_ATTRIBUTE6 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_DEFAULT_LABOR_SCHEDULES
454      where ORG_SCHEDULE_ID = X_ORG_SCHEDULE_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     /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
465     INSERT_ROW (
466      X_ROWID,
467      X_ORG_SCHEDULE_ID,
468      X_ORGANIZATION_ID,
469      X_SCHEDULE_BEGIN_DATE,
470      X_SCHEDULE_END_DATE,
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_SCHEDULE_PERCENT,
478      X_COMMENTS,
479      X_ATTRIBUTE_CATEGORY,
480      X_ATTRIBUTE1,
481      X_ATTRIBUTE2,
482      X_ATTRIBUTE3,
483      X_ATTRIBUTE4,
484      X_ATTRIBUTE5,
485      X_ATTRIBUTE6,
486      X_ATTRIBUTE7,
487      X_ATTRIBUTE8,
488      X_ATTRIBUTE9,
489      X_ATTRIBUTE10,
490      X_ATTRIBUTE11,
491      X_ATTRIBUTE12,
492      X_ATTRIBUTE13,
493      X_ATTRIBUTE14,
494      X_ATTRIBUTE15,
495      X_MODE,
496      X_BUSINESS_GROUP_ID,
497      X_SET_OF_BOOKS_ID,
498      X_POETA_START_DATE,
499      X_POETA_END_DATE);
500     return;
501   end if;
502   close c1;
503 
504   /* Introduced x_poeta_start_date,x_poeta_end_date for Enh. Bug# 2259310 */
505   UPDATE_ROW (
506    X_ORG_SCHEDULE_ID,
507    X_ORGANIZATION_ID,
508    X_SCHEDULE_BEGIN_DATE,
509    X_SCHEDULE_END_DATE,
510    X_GL_CODE_COMBINATION_ID,
511    X_PROJECT_ID,
512    X_EXPENDITURE_ORGANIZATION_ID,
513    X_EXPENDITURE_TYPE,
514    X_TASK_ID,
515    X_AWARD_ID,
516    X_SCHEDULE_PERCENT,
517    X_COMMENTS,
518    X_ATTRIBUTE_CATEGORY,
519    X_ATTRIBUTE1,
520    X_ATTRIBUTE2,
521    X_ATTRIBUTE3,
522    X_ATTRIBUTE4,
523    X_ATTRIBUTE5,
524    X_ATTRIBUTE6,
525    X_ATTRIBUTE7,
526    X_ATTRIBUTE8,
527    X_ATTRIBUTE9,
528    X_ATTRIBUTE10,
529    X_ATTRIBUTE11,
530    X_ATTRIBUTE12,
531    X_ATTRIBUTE13,
532    X_ATTRIBUTE14,
533    X_ATTRIBUTE15,
534    X_MODE,
535    X_BUSINESS_GROUP_ID,
536    X_SET_OF_BOOKS_ID,
537    X_POETA_START_DATE,
538    X_POETA_END_DATE);
539 end ADD_ROW;
540 
541 procedure DELETE_ROW (
542   X_ORG_SCHEDULE_ID in NUMBER,
543   X_BUSINESS_GROUP_ID in NUMBER,
544   X_SET_OF_BOOKS_ID in NUMBER
545 ) is
546 begin
547   delete from PSP_DEFAULT_LABOR_SCHEDULES
548   where ORG_SCHEDULE_ID = X_ORG_SCHEDULE_ID
549   and BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID
550   and SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID;
551   if (sql%notfound) then
552     raise no_data_found;
553   end if;
554 end DELETE_ROW;
555 
556 end PSP_DEFAULT_SCHEDULES_PKG;