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.IGW_PROPOSALS_ALL_TBH

Source


1 package body IGW_PROPOSALS_ALL_TBH as
2  /* $Header: igwtbasb.pls 115.9 2002/11/14 18:50:04 vmedikon ship $ */
3 procedure INSERT_ROW (
4   X_ROWID  out NOCOPY rowid,
5   X_PROPOSAL_ID in NUMBER,
6   X_SPONSOR_ACTION_CODE in VARCHAR2,
7   X_SPONSOR_ACTION_DATE in DATE,
8   X_AWARD_AMOUNT in NUMBER,
9   X_PROPOSAL_NUMBER in VARCHAR2,
10   X_LEAD_ORGANIZATION_ID in NUMBER,
11   X_PROPOSAL_STATUS in VARCHAR2,
12   X_PROPOSAL_START_DATE in DATE,
13   X_PROPOSAL_END_DATE in DATE,
14   X_PROPOSAL_TITLE in VARCHAR2,
15   X_PROPOSAL_TYPE_CODE in VARCHAR2,
16   X_AWARD_NUMBER in VARCHAR2,
17   X_ORIGINAL_PROPOSAL_NUMBER in VARCHAR2,
18   X_ORIGINAL_AWARD_NUMBER in VARCHAR2,
19   X_ORIGINAL_PROPOSAL_START_DATE in DATE,
20   X_ORIGINAL_PROPOSAL_END_DATE in DATE,
21   X_ACTIVITY_TYPE_CODE in VARCHAR2,
22   X_SPONSOR_ID in NUMBER,
23   X_FUNDING_SPONSOR_UNIT in VARCHAR2,
24   X_ORIGINAL_SPONSOR_ID in NUMBER,
25   X_SPONSOR_PROPOSAL_NUMBER in VARCHAR2,
26   X_NOTICE_OF_OPPORTUNITY_CODE in VARCHAR2,
27   X_PROGRAM_NUMBER in VARCHAR2,
28   X_PROGRAM_TITLE in VARCHAR2,
29   X_PROGRAM_URL in VARCHAR2,
30   X_SUBMITTING_ORGANIZATION_ID in NUMBER,
31   X_SIGNING_OFFICIAL_ID in NUMBER,
32   X_ADMIN_OFFICIAL_ID in NUMBER,
33   X_DEADLINE_DATE in DATE,
34   X_DEADLINE_TYPE in VARCHAR2,
35   X_LETTER_OF_INTENT_DUE_DATE in DATE,
36   X_ATTRIBUTE_CATEGORY in VARCHAR2,
37   X_ATTRIBUTE1 in VARCHAR2,
38   X_ATTRIBUTE2 in VARCHAR2,
39   X_ATTRIBUTE3 in VARCHAR2,
40   X_ATTRIBUTE4 in VARCHAR2,
41   X_ATTRIBUTE5 in VARCHAR2,
42   X_ATTRIBUTE6 in VARCHAR2,
43   X_ATTRIBUTE7 in VARCHAR2,
44   X_ATTRIBUTE8 in VARCHAR2,
45   X_ATTRIBUTE9 in VARCHAR2,
46   X_ATTRIBUTE10 in VARCHAR2,
47   X_ATTRIBUTE11 in VARCHAR2,
48   X_ATTRIBUTE12 in VARCHAR2,
49   X_ATTRIBUTE13 in VARCHAR2,
50   X_ATTRIBUTE14 in VARCHAR2,
51   X_ATTRIBUTE15 in VARCHAR2,
52   X_MODE in VARCHAR2 default 'R',
53   X_RETURN_STATUS   OUT NOCOPY VARCHAR2
54   ) is
55     cursor C is select ROWID from IGW_PROPOSALS_ALL
56     where PROPOSAL_ID = X_PROPOSAL_ID;
57     X_LAST_UPDATE_DATE DATE;
58     X_LAST_UPDATED_BY NUMBER;
59     X_LAST_UPDATE_LOGIN NUMBER;
60 begin
61   x_return_status := FND_API.G_RET_STS_SUCCESS;
62   X_LAST_UPDATE_DATE := SYSDATE;
63   if(X_MODE = 'I') then
64     X_LAST_UPDATED_BY := 1;
65     X_LAST_UPDATE_LOGIN := 0;
66   elsif (X_MODE = 'R') then
67     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
68     if X_LAST_UPDATED_BY is NULL then
69       X_LAST_UPDATED_BY := -1;
70     end if;
71     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
72     if X_LAST_UPDATE_LOGIN is NULL then
73       X_LAST_UPDATE_LOGIN := -1;
74     end if;
75   else
76     FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
77     app_exception.raise_exception;
78   end if;
79   insert into IGW_PROPOSALS_ALL (
80     SPONSOR_ACTION_CODE,
81     SPONSOR_ACTION_DATE,
82     AWARD_AMOUNT,
83     PROPOSAL_ID,
84     PROPOSAL_NUMBER,
85     LEAD_ORGANIZATION_ID,
86     PROPOSAL_STATUS,
87     PROPOSAL_START_DATE,
88     PROPOSAL_END_DATE,
89     PROPOSAL_TITLE,
90     PROPOSAL_TYPE_CODE,
91     AWARD_NUMBER,
92     ORIGINAL_PROPOSAL_NUMBER,
93     ORIGINAL_AWARD_NUMBER,
94     ORIGINAL_PROPOSAL_START_DATE,
95     ORIGINAL_PROPOSAL_END_DATE,
96     ACTIVITY_TYPE_CODE,
97     SPONSOR_ID,
98     FUNDING_SPONSOR_UNIT,
99     ORIGINAL_SPONSOR_ID,
100     SPONSOR_PROPOSAL_NUMBER,
101     NOTICE_OF_OPPORTUNITY_CODE,
102     PROGRAM_NUMBER,
103     PROGRAM_TITLE,
104     PROGRAM_URL,
105     SUBMITTING_ORGANIZATION_ID,
106     SIGNING_OFFICIAL_ID,
107     ADMIN_OFFICIAL_ID,
108     DEADLINE_DATE,
109     DEADLINE_TYPE,
110     LETTER_OF_INTENT_DUE_DATE,
111     RECORD_VERSION_NUMBER,
112     ATTRIBUTE_CATEGORY,
113     ATTRIBUTE1,
114     ATTRIBUTE2,
115     ATTRIBUTE3,
116     ATTRIBUTE4,
117     ATTRIBUTE5,
118     ATTRIBUTE6,
119     ATTRIBUTE7,
120     ATTRIBUTE8,
121     ATTRIBUTE9,
122     ATTRIBUTE10,
123     ATTRIBUTE11,
124     ATTRIBUTE12,
125     ATTRIBUTE13,
126     ATTRIBUTE14,
127     ATTRIBUTE15,
128     CREATION_DATE,
129     CREATED_BY,
130     LAST_UPDATE_DATE,
131     LAST_UPDATED_BY,
132     LAST_UPDATE_LOGIN
133   ) values (
134     X_SPONSOR_ACTION_CODE,
135     X_SPONSOR_ACTION_DATE,
136     X_AWARD_AMOUNT,
137     X_PROPOSAL_ID,
138     X_PROPOSAL_NUMBER,
139     X_LEAD_ORGANIZATION_ID,
140     X_PROPOSAL_STATUS,
141     X_PROPOSAL_START_DATE,
142     X_PROPOSAL_END_DATE,
143     X_PROPOSAL_TITLE,
144     X_PROPOSAL_TYPE_CODE,
145     X_AWARD_NUMBER,
146     X_ORIGINAL_PROPOSAL_NUMBER,
147     X_ORIGINAL_AWARD_NUMBER,
148     X_ORIGINAL_PROPOSAL_START_DATE,
149     X_ORIGINAL_PROPOSAL_END_DATE,
150     X_ACTIVITY_TYPE_CODE,
151     X_SPONSOR_ID,
152     X_FUNDING_SPONSOR_UNIT,
153     X_ORIGINAL_SPONSOR_ID,
154     X_SPONSOR_PROPOSAL_NUMBER,
155     X_NOTICE_OF_OPPORTUNITY_CODE,
156     X_PROGRAM_NUMBER,
157     X_PROGRAM_TITLE,
158     X_PROGRAM_URL,
159     X_SUBMITTING_ORGANIZATION_ID,
160     X_SIGNING_OFFICIAL_ID,
161     X_ADMIN_OFFICIAL_ID,
162     X_DEADLINE_DATE,
163     X_DEADLINE_TYPE,
164     X_LETTER_OF_INTENT_DUE_DATE,
165     1,
166     X_ATTRIBUTE_CATEGORY,
167     X_ATTRIBUTE1,
168     X_ATTRIBUTE2,
169     X_ATTRIBUTE3,
170     X_ATTRIBUTE4,
171     X_ATTRIBUTE5,
172     X_ATTRIBUTE6,
173     X_ATTRIBUTE7,
174     X_ATTRIBUTE8,
175     X_ATTRIBUTE9,
176     X_ATTRIBUTE10,
177     X_ATTRIBUTE11,
178     X_ATTRIBUTE12,
179     X_ATTRIBUTE13,
180     X_ATTRIBUTE14,
181     X_ATTRIBUTE15,
182     X_LAST_UPDATE_DATE,
183     X_LAST_UPDATED_BY,
184     X_LAST_UPDATE_DATE,
185     X_LAST_UPDATED_BY,
186     X_LAST_UPDATE_LOGIN
187   );
188 
189   open c;
190   fetch c into X_ROWID;
191   if (c%notfound) then
192     close c;
193     raise no_data_found;
194   end if;
195   close c;
196 
197 EXCEPTION
198   WHEN OTHERS THEN
199     FND_MSG_PUB.add_exc_msg( p_pkg_name    => 'IGW_PROPOSALS_ALL_TBH'
200                               ,p_procedure_name => 'INSERT_ROW' );
201     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
202     RAISE;
203 
204 end INSERT_ROW;
205 
206 -----------------------------------------------------------------------
207 
208 procedure UPDATE_ROW (
209   X_ROWID in rowid,
210   X_PROPOSAL_ID in NUMBER,
211   X_SPONSOR_ACTION_CODE in VARCHAR2,
212   X_SPONSOR_ACTION_DATE in DATE,
213   X_AWARD_AMOUNT in NUMBER,
214   X_PROPOSAL_NUMBER in VARCHAR2,
215   X_LEAD_ORGANIZATION_ID in NUMBER,
216   X_PROPOSAL_STATUS in VARCHAR2,
217   X_PROPOSAL_START_DATE in DATE,
218   X_PROPOSAL_END_DATE in DATE,
219   X_PROPOSAL_TITLE in VARCHAR2,
220   X_PROPOSAL_TYPE_CODE in VARCHAR2,
221   X_AWARD_NUMBER in VARCHAR2,
222   X_ORIGINAL_PROPOSAL_NUMBER in VARCHAR2,
223   X_ORIGINAL_AWARD_NUMBER in VARCHAR2,
224   X_ORIGINAL_PROPOSAL_START_DATE in DATE,
225   X_ORIGINAL_PROPOSAL_END_DATE in DATE,
226   X_ACTIVITY_TYPE_CODE in VARCHAR2,
227   X_SPONSOR_ID in NUMBER,
228   X_FUNDING_SPONSOR_UNIT in VARCHAR2,
229   X_ORIGINAL_SPONSOR_ID in NUMBER,
230   X_SPONSOR_PROPOSAL_NUMBER in VARCHAR2,
231   --X_NOTICE_OF_OPPORTUNITY_CODE in VARCHAR2,
232   --X_PROGRAM_NUMBER in VARCHAR2,
233   --X_PROGRAM_TITLE in VARCHAR2,
234   --X_PROGRAM_URL in VARCHAR2,
235   X_SUBMITTING_ORGANIZATION_ID in NUMBER,
236   X_SIGNING_OFFICIAL_ID in NUMBER,
237   X_ADMIN_OFFICIAL_ID in NUMBER,
238   --X_DEADLINE_DATE in DATE,
239   --X_DEADLINE_TYPE in VARCHAR2,
240   --X_LETTER_OF_INTENT_DUE_DATE in DATE,
241   X_RECORD_VERSION_NUMBER IN NUMBER,
242   X_ATTRIBUTE_CATEGORY in VARCHAR2,
243   X_ATTRIBUTE1 in VARCHAR2,
244   X_ATTRIBUTE2 in VARCHAR2,
245   X_ATTRIBUTE3 in VARCHAR2,
246   X_ATTRIBUTE4 in VARCHAR2,
247   X_ATTRIBUTE5 in VARCHAR2,
248   X_ATTRIBUTE6 in VARCHAR2,
249   X_ATTRIBUTE7 in VARCHAR2,
250   X_ATTRIBUTE8 in VARCHAR2,
251   X_ATTRIBUTE9 in VARCHAR2,
252   X_ATTRIBUTE10 in VARCHAR2,
253   X_ATTRIBUTE11 in VARCHAR2,
254   X_ATTRIBUTE12 in VARCHAR2,
255   X_ATTRIBUTE13 in VARCHAR2,
256   X_ATTRIBUTE14 in VARCHAR2,
257   X_ATTRIBUTE15 in VARCHAR2,
258   X_MODE        in VARCHAR2 default 'R',
259   X_RETURN_STATUS   OUT NOCOPY VARCHAR2
260   ) is
261     X_LAST_UPDATE_DATE DATE;
262     X_LAST_UPDATED_BY NUMBER;
263     X_LAST_UPDATE_LOGIN NUMBER;
264 
265   l_row_id  ROWID := x_rowid;
266   l_record_version_number  NUMBER;
267 
268   CURSOR get_row_id IS
269   SELECT rowid
270   FROM   igw_proposals_all
271   WHERE  proposal_id = x_proposal_id;
272 
273 begin
274 
275   x_return_status := FND_API.G_RET_STS_SUCCESS;
276 
277   IF l_row_id IS NULL THEN
278     OPEN get_row_id;
279     FETCH get_row_id INTO l_row_id;
280     CLOSE get_row_id;
281   END IF;
282 
283   X_LAST_UPDATE_DATE := SYSDATE;
284   if(X_MODE = 'I') then
285     X_LAST_UPDATED_BY := 1;
286     X_LAST_UPDATE_LOGIN := 0;
287   elsif (X_MODE = 'R') then
288     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
289     if X_LAST_UPDATED_BY is NULL then
290       X_LAST_UPDATED_BY := -1;
291     end if;
292     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
293     if X_LAST_UPDATE_LOGIN is NULL then
294       X_LAST_UPDATE_LOGIN := -1;
295     end if;
296   else
297     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
298     app_exception.raise_exception;
299   end if;
300   update IGW_PROPOSALS_ALL set
301     SPONSOR_ACTION_CODE = X_SPONSOR_ACTION_CODE,
302     SPONSOR_ACTION_DATE = X_SPONSOR_ACTION_DATE,
303     AWARD_AMOUNT = X_AWARD_AMOUNT,
304     PROPOSAL_NUMBER = X_PROPOSAL_NUMBER,
305     LEAD_ORGANIZATION_ID = X_LEAD_ORGANIZATION_ID,
306     PROPOSAL_STATUS = X_PROPOSAL_STATUS,
307     PROPOSAL_START_DATE = X_PROPOSAL_START_DATE,
308     PROPOSAL_END_DATE = X_PROPOSAL_END_DATE,
309     PROPOSAL_TITLE = X_PROPOSAL_TITLE,
310     PROPOSAL_TYPE_CODE = X_PROPOSAL_TYPE_CODE,
311     AWARD_NUMBER = X_AWARD_NUMBER,
312     ORIGINAL_PROPOSAL_NUMBER = X_ORIGINAL_PROPOSAL_NUMBER,
313     ORIGINAL_AWARD_NUMBER = X_ORIGINAL_AWARD_NUMBER,
314     ORIGINAL_PROPOSAL_START_DATE = X_ORIGINAL_PROPOSAL_START_DATE,
315     ORIGINAL_PROPOSAL_END_DATE = X_ORIGINAL_PROPOSAL_END_DATE,
316     ACTIVITY_TYPE_CODE = X_ACTIVITY_TYPE_CODE,
317     SPONSOR_ID = X_SPONSOR_ID,
318     FUNDING_SPONSOR_UNIT = X_FUNDING_SPONSOR_UNIT,
319     ORIGINAL_SPONSOR_ID = X_ORIGINAL_SPONSOR_ID,
320     SPONSOR_PROPOSAL_NUMBER = X_SPONSOR_PROPOSAL_NUMBER,
321     --NOTICE_OF_OPPORTUNITY_CODE = X_NOTICE_OF_OPPORTUNITY_CODE,
322     --PROGRAM_NUMBER = X_PROGRAM_NUMBER,
323     --PROGRAM_TITLE = X_PROGRAM_TITLE,
324     --PROGRAM_URL = X_PROGRAM_URL,
325     SUBMITTING_ORGANIZATION_ID = X_SUBMITTING_ORGANIZATION_ID,
326     SIGNING_OFFICIAL_ID = X_SIGNING_OFFICIAL_ID,
327     ADMIN_OFFICIAL_ID = X_ADMIN_OFFICIAL_ID,
328     --DEADLINE_DATE = X_DEADLINE_DATE,
329     --DEADLINE_TYPE = X_DEADLINE_TYPE,
330     --LETTER_OF_INTENT_DUE_DATE = X_LETTER_OF_INTENT_DUE_DATE,
331     RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER +1,
332     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
333     ATTRIBUTE1 = X_ATTRIBUTE1,
334     ATTRIBUTE2 = X_ATTRIBUTE2,
335     ATTRIBUTE3 = X_ATTRIBUTE3,
336     ATTRIBUTE4 = X_ATTRIBUTE4,
337     ATTRIBUTE5 = X_ATTRIBUTE5,
338     ATTRIBUTE6 = X_ATTRIBUTE6,
339     ATTRIBUTE7 = X_ATTRIBUTE7,
340     ATTRIBUTE8 = X_ATTRIBUTE8,
341     ATTRIBUTE9 = X_ATTRIBUTE9,
342     ATTRIBUTE10 = X_ATTRIBUTE10,
343     ATTRIBUTE11 = X_ATTRIBUTE11,
344     ATTRIBUTE12 = X_ATTRIBUTE12,
345     ATTRIBUTE13 = X_ATTRIBUTE13,
346     ATTRIBUTE14 = X_ATTRIBUTE14,
347     ATTRIBUTE15 = X_ATTRIBUTE15,
348     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
349     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
350     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
351     where rowid  = l_row_id
352     AND   RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER;
353 
354   if (sql%notfound) then
355     FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
356     FND_MSG_PUB.Add;
357     x_return_status := FND_API.G_RET_STS_ERROR;
358   end if;
359 
360 EXCEPTION
361   WHEN OTHERS THEN
362     FND_MSG_PUB.add_exc_msg( p_pkg_name    => 'IGW_PROPOSALS_ALL_TBH'
363                               ,p_procedure_name => 'UPDATE_ROW' );
364     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365     RAISE;
366 
367 end UPDATE_ROW;
368 
369 ---------------------------------------------------------------------------------
370 
371 procedure DELETE_ROW (
372   x_rowid       in rowid
373   ,p_proposal_id in number
374   ,p_record_version_number in number
375   ,X_RETURN_STATUS   OUT NOCOPY VARCHAR2
376 ) is
377 
378   l_row_id  ROWID := x_rowid;
379   l_record_version_number  NUMBER;
380 
381   CURSOR get_row_id IS
382   SELECT rowid
383   FROM   igw_proposals_all
384   WHERE  proposal_id = p_proposal_id;
385 
386 begin
387 
388   x_return_status := FND_API.G_RET_STS_SUCCESS;
389 
390   IF l_row_id IS NULL THEN
391     OPEN get_row_id;
392     FETCH get_row_id INTO l_row_id;
393     CLOSE get_row_id;
394   END IF;
395 
396   delete from IGW_PROPOSALS_ALL
397   where rowid = l_row_id
398   and   record_version_number = p_record_version_number;
399 
400   if (sql%notfound) then
401     FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
402     FND_MSG_PUB.Add;
403   end if;
404 EXCEPTION
405   WHEN OTHERS THEN
406     FND_MSG_PUB.add_exc_msg( p_pkg_name    => 'IGW_PROPOSALS_ALL_TBH'
407                               ,p_procedure_name => 'DELETE_ROW' );
408     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
409     RAISE;
410 end DELETE_ROW;
411 
412 ---------------------------------------------------------------------------------
413 
414 procedure UPDATE_SPONSOR_ACTION (
415   X_ROWID in rowid,
416   X_PROPOSAL_ID in NUMBER,
417   X_SPONSOR_ACTION_DATE in DATE,
418   X_SPONSOR_ACTION_CODE in VARCHAR2,
419   X_SPONSOR_ACTION_COMMENTS in VARCHAR2,
420   X_SPONSOR_PROPOSAL_NUMBER in VARCHAR2,
421   X_AWARD_NUMBER in VARCHAR2,
422   X_AWARD_AMOUNT in NUMBER,
423   X_RECORD_VERSION_NUMBER IN NUMBER,
424   X_MODE        in VARCHAR2 default 'R',
425   X_RETURN_STATUS   OUT NOCOPY VARCHAR2
426   ) is
427     X_LAST_UPDATE_DATE DATE;
428     X_LAST_UPDATED_BY NUMBER;
429     X_LAST_UPDATE_LOGIN NUMBER;
430 
431   l_row_id  ROWID := x_rowid;
432   l_record_version_number  NUMBER;
433 
434   l_old_sponsor_action_date      date;
435   l_old_sponsor_action_code      varchar2(30);
436   l_old_sponsor_action_comments  varchar2(2000);
437 
438   CURSOR get_row_id IS
439   SELECT rowid
440   FROM   igw_proposals_all
441   WHERE  proposal_id = x_proposal_id;
442 
443 begin
444 
445   x_return_status := FND_API.G_RET_STS_SUCCESS;
446 
447   IF l_row_id IS NULL THEN
448     OPEN get_row_id;
449     FETCH get_row_id INTO l_row_id;
450     CLOSE get_row_id;
451   END IF;
452 
453   X_LAST_UPDATE_DATE := SYSDATE;
454   if(X_MODE = 'I') then
455     X_LAST_UPDATED_BY := 1;
456     X_LAST_UPDATE_LOGIN := 0;
457   elsif (X_MODE = 'R') then
458     X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
459     if X_LAST_UPDATED_BY is NULL then
460       X_LAST_UPDATED_BY := -1;
461     end if;
462     X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
463     if X_LAST_UPDATE_LOGIN is NULL then
464       X_LAST_UPDATE_LOGIN := -1;
465     end if;
466   else
467     FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
468     app_exception.raise_exception;
469   end if;
470 
471   select sponsor_action_date,
472          sponsor_action_code,
473          sponsor_action_comments
474   into   l_old_sponsor_action_date,
475          l_old_sponsor_action_code,
476          l_old_sponsor_action_comments
477   from   igw_proposals_all
478   where  proposal_id = x_proposal_id;
479 
480   update IGW_PROPOSALS_ALL set
481     SPONSOR_ACTION_DATE = X_SPONSOR_ACTION_DATE,
482     SPONSOR_ACTION_CODE = X_SPONSOR_ACTION_CODE,
483     SPONSOR_ACTION_COMMENTS = X_SPONSOR_ACTION_COMMENTS,
484     SPONSOR_PROPOSAL_NUMBER = X_SPONSOR_PROPOSAL_NUMBER,
485     AWARD_NUMBER = X_AWARD_NUMBER,
486     AWARD_AMOUNT = X_AWARD_AMOUNT,
487     RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER +1,
488     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
489     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
490     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
491     where rowid  = l_row_id
492     AND   RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER;
493 
494   if (sql%notfound) then
495     FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
496     FND_MSG_PUB.Add;
497     x_return_status := FND_API.G_RET_STS_ERROR;
498   end if;
499 
500   if x_sponsor_action_date <> l_old_sponsor_action_date or
501      nvl(x_sponsor_action_code,'_') <> nvl(l_old_sponsor_action_code,'_') or
502      nvl(x_sponsor_action_comments,'_') <> nvl(l_old_sponsor_action_comments,'_') then
503 
504      insert into igw_prop_comments
505      (
506      PROPOSAL_ID,
507      COMMENT_ID,
508      COMMENTS,
509      LAST_UPDATE_DATE,
510      LAST_UPDATED_BY,
511      CREATION_DATE,
512      CREATED_BY,
513      LAST_UPDATE_LOGIN,
514      RECORD_VERSION_NUMBER,
515      SPONSOR_ACTION_CODE,
516      SPONSOR_ACTION_DATE
517      )
518      values
519      (
520      X_PROPOSAL_ID,
521      IGW_PROP_COMMENTS_S.NEXTVAL,
522      X_SPONSOR_ACTION_COMMENTS,
523      X_LAST_UPDATE_DATE,
524      X_LAST_UPDATED_BY,
525      X_LAST_UPDATE_DATE,
526      X_LAST_UPDATED_BY,
527      X_LAST_UPDATE_LOGIN,
528      1,
529      X_SPONSOR_ACTION_CODE,
530      X_SPONSOR_ACTION_DATE
531      );
532 
533    end if;
534 
535 EXCEPTION
536   WHEN OTHERS THEN
537     FND_MSG_PUB.add_exc_msg( p_pkg_name    => 'IGW_PROPOSALS_ALL_TBH'
538                               ,p_procedure_name => 'UPDATE_SPONSOR_ACTION' );
539     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540     RAISE;
541 
542 end UPDATE_SPONSOR_ACTION;
543 
544 ---------------------------------------------------------------------------------
545 
546 end IGW_PROPOSALS_ALL_TBH;