23: WHERE rowid = p_rowid;
24:
25: IF l_last_updated_by <> Fnd_Global.User_Id THEN
26:
27: x_return_status := Fnd_Api.G_Ret_Sts_Error;
28: Fnd_Message.Set_Name('IGW','IGW_PROPOSAL_COMMENT');
29: Fnd_Msg_Pub.Add;
30:
31: END IF;
55: /*
56: ** Initialize
57: */
58:
59: x_return_status := Fnd_Api.G_Ret_Sts_Success;
60:
61: IF p_rowid IS NOT NULL AND p_record_version_number IS NOT NULL THEN
62:
63: SELECT 'N'
71: EXCEPTION
72:
73: WHEN no_data_found THEN
74:
75: x_return_status := Fnd_Api.G_Ret_Sts_Error;
76: Fnd_Message.Set_Name('IGW','IGW_SS_RECORD_CHANGED');
77: Fnd_Msg_Pub.Add;
78:
79: WHEN others THEN
77: Fnd_Msg_Pub.Add;
78:
79: WHEN others THEN
80:
81: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
82:
83: Fnd_Msg_Pub.Add_Exc_Msg
84: (
85: p_pkg_name => G_PKG_NAME,
85: p_pkg_name => G_PKG_NAME,
86: p_procedure_name => l_api_name
87: );
88:
89: RAISE Fnd_Api.G_Exc_Unexpected_Error;
90:
91: END Check_Lock;
92:
93: ---------------------------------------------------------------------------
93: ---------------------------------------------------------------------------
94:
95: PROCEDURE Create_Prop_Comment
96: (
97: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
98: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
99: p_commit IN VARCHAR2 := Fnd_Api.G_False,
100: x_rowid OUT NOCOPY VARCHAR2,
101: p_proposal_id IN NUMBER,
94:
95: PROCEDURE Create_Prop_Comment
96: (
97: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
98: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
99: p_commit IN VARCHAR2 := Fnd_Api.G_False,
100: x_rowid OUT NOCOPY VARCHAR2,
101: p_proposal_id IN NUMBER,
102: p_proposal_number IN VARCHAR2,
95: PROCEDURE Create_Prop_Comment
96: (
97: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
98: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
99: p_commit IN VARCHAR2 := Fnd_Api.G_False,
100: x_rowid OUT NOCOPY VARCHAR2,
101: p_proposal_id IN NUMBER,
102: p_proposal_number IN VARCHAR2,
103: p_comments IN VARCHAR2,
124: /*
125: ** Initialize
126: */
127:
128: x_return_status := Fnd_Api.G_Ret_Sts_Success;
129:
130: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
131:
132: Fnd_Msg_Pub.Initialize;
126: */
127:
128: x_return_status := Fnd_Api.G_Ret_Sts_Success;
129:
130: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
131:
132: Fnd_Msg_Pub.Initialize;
133:
134: END IF;
161: p_user_id => Fnd_Global.User_Id
162: )
163: = 'N' THEN
164:
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
167: Fnd_Msg_Pub.Add;
168: RAISE Fnd_Api.G_Exc_Error;
169:
164:
165: x_return_status := Fnd_Api.G_Ret_Sts_Error;
166: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
167: Fnd_Msg_Pub.Add;
168: RAISE Fnd_Api.G_Exc_Error;
169:
170: END IF;
171: */
172:
174: /*
175: ** Discontinue processing if API invoked in validation mode
176: */
177:
178: IF Fnd_Api.To_Boolean(p_validate_only) THEN
179:
180: RETURN;
181:
182: END IF;
198: /*
199: ** Commit data if API invoked in commit mode
200: */
201:
202: IF Fnd_Api.To_Boolean(p_commit) THEN
203:
204: COMMIT;
205:
206: END IF;
207:
208:
209: EXCEPTION
210:
211: WHEN Fnd_Api.G_Exc_Error THEN
212:
213: ROLLBACK TO Create_Prop_Comment_Pvt;
214:
215: x_return_status := Fnd_Api.G_Ret_Sts_Error;
211: WHEN Fnd_Api.G_Exc_Error THEN
212:
213: ROLLBACK TO Create_Prop_Comment_Pvt;
214:
215: x_return_status := Fnd_Api.G_Ret_Sts_Error;
216:
217: Fnd_Msg_Pub.Count_And_Get
218: (
219: p_count => x_msg_count,
219: p_count => x_msg_count,
220: p_data => x_msg_data
221: );
222:
223: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
224:
225: ROLLBACK TO Create_Prop_Comment_Pvt;
226:
227: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
223: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
224:
225: ROLLBACK TO Create_Prop_Comment_Pvt;
226:
227: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
228:
229: Fnd_Msg_Pub.Count_And_Get
230: (
231: p_count => x_msg_count,
235: WHEN others THEN
236:
237: ROLLBACK TO Create_Prop_Comment_Pvt;
238:
239: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
240:
241: Fnd_Msg_Pub.Add_Exc_Msg
242: (
243: p_pkg_name => G_PKG_NAME,
255: ---------------------------------------------------------------------------
256:
257: PROCEDURE Update_Prop_Comment
258: (
259: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
260: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
261: p_commit IN VARCHAR2 := Fnd_Api.G_False,
262: p_rowid IN VARCHAR2,
263: p_proposal_id IN NUMBER,
256:
257: PROCEDURE Update_Prop_Comment
258: (
259: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
260: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
261: p_commit IN VARCHAR2 := Fnd_Api.G_False,
262: p_rowid IN VARCHAR2,
263: p_proposal_id IN NUMBER,
264: p_proposal_number IN VARCHAR2,
257: PROCEDURE Update_Prop_Comment
258: (
259: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
260: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
261: p_commit IN VARCHAR2 := Fnd_Api.G_False,
262: p_rowid IN VARCHAR2,
263: p_proposal_id IN NUMBER,
264: p_proposal_number IN VARCHAR2,
265: p_comment_id IN NUMBER,
288: /*
289: ** Initialize
290: */
291:
292: x_return_status := Fnd_Api.G_Ret_Sts_Success;
293:
294: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
295:
296: Fnd_Msg_Pub.Initialize;
290: */
291:
292: x_return_status := Fnd_Api.G_Ret_Sts_Success;
293:
294: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
295:
296: Fnd_Msg_Pub.Initialize;
297:
298: END IF;
317: END IF;
318:
319: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
320:
321: RAISE Fnd_Api.G_Exc_Error;
322:
323: END IF;
324:
325:
335: p_user_id => Fnd_Global.User_Id
336: )
337: = 'N' THEN
338:
339: x_return_status := Fnd_Api.G_Ret_Sts_Error;
340: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
341: Fnd_Msg_Pub.Add;
342: RAISE Fnd_Api.G_Exc_Error;
343:
338:
339: x_return_status := Fnd_Api.G_Ret_Sts_Error;
340: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
341: Fnd_Msg_Pub.Add;
342: RAISE Fnd_Api.G_Exc_Error;
343:
344: END IF;
345:
346: */
359:
360:
361: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
362:
363: RAISE Fnd_Api.G_Exc_Error;
364:
365: END IF;
366:
367:
384:
385:
386: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
387:
388: RAISE Fnd_Api.G_Exc_Error;
389:
390: END IF;
391:
392:
396: */
397:
398: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
399:
400: RAISE Fnd_Api.G_Exc_Error;
401:
402: END IF;
403:
404:
405: /*
406: ** Discontinue processing if API invoked in validation mode
407: */
408:
409: IF Fnd_Api.To_Boolean(p_validate_only) THEN
410:
411: RETURN;
412:
413: END IF;
431: /*
432: ** Commit data if API invoked in commit mode
433: */
434:
435: IF Fnd_Api.To_Boolean(p_commit) THEN
436:
437: COMMIT;
438:
439: END IF;
440:
441:
442: EXCEPTION
443:
444: WHEN Fnd_Api.G_Exc_Error THEN
445:
446: ROLLBACK TO Update_Prop_Comment_Pvt;
447:
448: x_return_status := Fnd_Api.G_Ret_Sts_Error;
444: WHEN Fnd_Api.G_Exc_Error THEN
445:
446: ROLLBACK TO Update_Prop_Comment_Pvt;
447:
448: x_return_status := Fnd_Api.G_Ret_Sts_Error;
449:
450: Fnd_Msg_Pub.Count_And_Get
451: (
452: p_count => x_msg_count,
452: p_count => x_msg_count,
453: p_data => x_msg_data
454: );
455:
456: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
457:
458: ROLLBACK TO Update_Prop_Comment_Pvt;
459:
460: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
456: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
457:
458: ROLLBACK TO Update_Prop_Comment_Pvt;
459:
460: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
461:
462: Fnd_Msg_Pub.Count_And_Get
463: (
464: p_count => x_msg_count,
468: WHEN others THEN
469:
470: ROLLBACK TO Update_Prop_Comment_Pvt;
471:
472: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
473:
474: Fnd_Msg_Pub.Add_Exc_Msg
475: (
476: p_pkg_name => G_PKG_NAME,
488: ---------------------------------------------------------------------------
489:
490: PROCEDURE Delete_Prop_Comment
491: (
492: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
493: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
494: p_commit IN VARCHAR2 := Fnd_Api.G_False,
495: p_rowid IN VARCHAR2,
496: p_proposal_id IN NUMBER,
489:
490: PROCEDURE Delete_Prop_Comment
491: (
492: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
493: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
494: p_commit IN VARCHAR2 := Fnd_Api.G_False,
495: p_rowid IN VARCHAR2,
496: p_proposal_id IN NUMBER,
497: p_record_version_number IN NUMBER,
490: PROCEDURE Delete_Prop_Comment
491: (
492: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
493: p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
494: p_commit IN VARCHAR2 := Fnd_Api.G_False,
495: p_rowid IN VARCHAR2,
496: p_proposal_id IN NUMBER,
497: p_record_version_number IN NUMBER,
498: x_return_status OUT NOCOPY VARCHAR2,
516: /*
517: ** Initialize
518: */
519:
520: x_return_status := Fnd_Api.G_Ret_Sts_Success;
521:
522: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
523:
524: Fnd_Msg_Pub.Initialize;
518: */
519:
520: x_return_status := Fnd_Api.G_Ret_Sts_Success;
521:
522: IF Fnd_Api.To_Boolean(p_init_msg_list) THEN
523:
524: Fnd_Msg_Pub.Initialize;
525:
526: END IF;
538: p_user_id => Fnd_Global.User_Id
539: )
540: = 'N' THEN
541:
542: x_return_status := Fnd_Api.G_Ret_Sts_Error;
543: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
544: Fnd_Msg_Pub.Add;
545: RAISE Fnd_Api.G_Exc_Error;
546:
541:
542: x_return_status := Fnd_Api.G_Ret_Sts_Error;
543: Fnd_Message.Set_Name('IGW','IGW_SS_SEC_NO_MODIFY_RIGHTS');
544: Fnd_Msg_Pub.Add;
545: RAISE Fnd_Api.G_Exc_Error;
546:
547: END IF;
548: */
549:
561:
562:
563: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
564:
565: RAISE Fnd_Api.G_Exc_Error;
566:
567: END IF;
568:
569: /*
583: */
584:
585: IF Fnd_Msg_Pub.Count_Msg > 0 THEN
586:
587: RAISE Fnd_Api.G_Exc_Error;
588:
589: END IF;
590:
591:
592: /*
593: ** Discontinue processing if API invoked in validation mode
594: */
595:
596: IF Fnd_Api.To_Boolean(p_validate_only) THEN
597:
598: RETURN;
599:
600: END IF;
614: /*
615: ** Commit data if API invoked in commit mode
616: */
617:
618: IF Fnd_Api.To_Boolean(p_commit) THEN
619:
620: COMMIT;
621:
622: END IF;
623:
624:
625: EXCEPTION
626:
627: WHEN Fnd_Api.G_Exc_Error THEN
628:
629: ROLLBACK TO Delete_Prop_Comment_Pvt;
630:
631: x_return_status := Fnd_Api.G_Ret_Sts_Error;
627: WHEN Fnd_Api.G_Exc_Error THEN
628:
629: ROLLBACK TO Delete_Prop_Comment_Pvt;
630:
631: x_return_status := Fnd_Api.G_Ret_Sts_Error;
632:
633: Fnd_Msg_Pub.Count_And_Get
634: (
635: p_count => x_msg_count,
635: p_count => x_msg_count,
636: p_data => x_msg_data
637: );
638:
639: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
640:
641: ROLLBACK TO Delete_Prop_Comment_Pvt;
642:
643: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
639: WHEN Fnd_Api.G_Exc_Unexpected_Error THEN
640:
641: ROLLBACK TO Delete_Prop_Comment_Pvt;
642:
643: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
644:
645: Fnd_Msg_Pub.Count_And_Get
646: (
647: p_count => x_msg_count,
651: WHEN others THEN
652:
653: ROLLBACK TO Delete_Prop_Comment_Pvt;
654:
655: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error;
656:
657: Fnd_Msg_Pub.Add_Exc_Msg
658: (
659: p_pkg_name => G_PKG_NAME,