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_SCHEDULE_LINES_PKG

Source


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