58:
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60:
61: if FND_API.to_Boolean (p_init_msg_list) then
62: FND_MSG_PUB.initialize;
63: end if;
64:
65: -- Initialize API return status to success
66:
107: if (c1%notfound) then
108: close c1;
109:
110: FND_MESSAGE.Set_Name('PSB', 'PSB_NO_DATA_FOUND');
111: FND_MSG_PUB.Add;
112: RAISE FND_API.G_EXC_ERROR ;
113: end if;
114: -- End of API body.
115:
120: end if;
121:
122: -- Standard call to get message count and if count is 1, get message info.
123:
124: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
125: p_data => p_msg_data);
126:
127: EXCEPTION
128:
131: rollback to INSERT_ROW_PVT;
132:
133: p_return_status := FND_API.G_RET_STS_ERROR;
134:
135: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
136: p_data => p_msg_data);
137:
138:
139: when FND_API.G_EXC_UNEXPECTED_ERROR then
141: rollback to INSERT_ROW_PVT;
142:
143: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144:
145: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
146: p_data => p_msg_data);
147:
148:
149: when OTHERS then
151: rollback to INSERT_ROW_PVT;
152:
153: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
156:
157: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
158: l_api_name);
159: end if;
153: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
156:
157: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
158: l_api_name);
159: end if;
160:
161: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
157: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
158: l_api_name);
159: end if;
160:
161: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
162: p_data => p_msg_data);
163:
164: END INSERT_ROW;
165:
209:
210: -- Initialize message list if p_init_msg_list is set to TRUE.
211:
212: if FND_API.to_Boolean (p_init_msg_list) then
213: FND_MSG_PUB.initialize;
214: end if;
215:
216: -- Initialize API return status to success
217:
248: end if;
249:
250: -- Standard call to get message count and if count is 1, get message info.
251:
252: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
253: p_data => p_msg_data);
254:
255: EXCEPTION
256:
259: rollback to UPDATE_ROW_PVT;
260:
261: p_return_status := FND_API.G_RET_STS_ERROR;
262:
263: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
264: p_data => p_msg_data);
265:
266:
267: when FND_API.G_EXC_UNEXPECTED_ERROR then
269: rollback to UPDATE_ROW_PVT;
270:
271: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272:
273: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
274: p_data => p_msg_data);
275:
276:
277: when OTHERS then
279: rollback to UPDATE_ROW_PVT;
280:
281: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282:
283: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
284:
285: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
286: l_api_name);
287: end if;
281: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
282:
283: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
284:
285: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
286: l_api_name);
287: end if;
288:
289: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
285: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
286: l_api_name);
287: end if;
288:
289: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
290: p_data => p_msg_data);
291:
292: END UPDATE_ROW;
293:
330:
331: -- Initialize message list if p_init_msg_list is set to TRUE.
332:
333: if FND_API.to_Boolean (p_init_msg_list) then
334: FND_MSG_PUB.initialize;
335: end if;
336:
337: /* Bug 1308558 Start */
338: -- We need to conditionally delete the master record for
393: /* Bug 1308558 End */
394:
395: -- Standard call to get message count and if count is 1, get message info.
396:
397: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
398: p_data => p_msg_data);
399:
400: -- Standard check of p_commit.
401:
411: rollback to DELETE_ROW_PVT;
412:
413: p_return_status := FND_API.G_RET_STS_ERROR;
414:
415: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
416: p_data => p_msg_data);
417:
418:
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
421: rollback to DELETE_ROW_PVT;
422:
423: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424:
425: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
426: p_data => p_msg_data);
427:
428:
429: when OTHERS then
431: rollback to DELETE_ROW_PVT;
432:
433: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
434:
435: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
436:
437: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
438: l_api_name);
439: end if;
433: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
434:
435: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
436:
437: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
438: l_api_name);
439: end if;
440:
441: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
437: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
438: l_api_name);
439: end if;
440:
441: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
442: p_data => p_msg_data);
443: END DELETE_ROW;
444:
445: PROCEDURE LOCK_ROW(
490: END IF;
491: --
492:
493: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
494: FND_MSG_PUB.initialize ;
495: END IF;
496: --
497: p_return_status := FND_API.G_RET_STS_SUCCESS ;
498: p_row_locked := FND_API.G_TRUE ;
502: FETCH C INTO Recinfo;
503: IF (C%NOTFOUND) then
504: CLOSE C;
505: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
506: FND_MSG_PUB.Add;
507: RAISE FND_API.G_EXC_ERROR ;
508: END IF;
509:
510: /* Bug 1308558 End */
538: THEN
539: Null;
540: ELSE
541: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
542: FND_MSG_PUB.Add;
543: RAISE FND_API.G_EXC_ERROR ;
544: END IF;
545: ELSE
546: -- For FTE records
568: THEN
569: Null;
570: ELSE
571: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
572: FND_MSG_PUB.Add;
573: RAISE FND_API.G_EXC_ERROR ;
574: END IF;
575: /* Bug 1308558 End */
576: END IF;
579: IF FND_API.To_Boolean ( p_commit ) THEN
580: COMMIT WORK;
581: END iF;
582: --
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
584: p_data => p_msg_data );
585: --
586: EXCEPTION
587: --
589: --
590: ROLLBACK TO Lock_Row_Pvt ;
591: p_row_locked := FND_API.G_FALSE;
592: p_return_status := FND_API.G_RET_STS_ERROR;
593: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
594: p_data => p_msg_data );
595: --
596: WHEN FND_API.G_EXC_ERROR THEN
597: --
596: WHEN FND_API.G_EXC_ERROR THEN
597: --
598: ROLLBACK TO Lock_Row_Pvt ;
599: p_return_status := FND_API.G_RET_STS_ERROR;
600: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
601: p_data => p_msg_data );
602: --
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: --
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: --
605: ROLLBACK TO Lock_Row_Pvt ;
606: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
608: p_data => p_msg_data );
609: --
610: WHEN OTHERS THEN
611: --
611: --
612: ROLLBACK TO Lock_Row_Pvt ;
613: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: --
615: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
617: l_api_name);
618: END if;
619: --
612: ROLLBACK TO Lock_Row_Pvt ;
613: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: --
615: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
617: l_api_name);
618: END if;
619: --
620: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
616: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
617: l_api_name);
618: END if;
619: --
620: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
621: p_data => p_msg_data );
622: END LOCK_ROW;
623:
624:
666: END IF;
667: --
668:
669: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
670: FND_MSG_PUB.initialize ;
671: END IF;
672: --
673: p_return_status := FND_API.G_RET_STS_SUCCESS ;
674: --
691: IF FND_API.To_Boolean ( p_commit ) THEN
692: COMMIT WORK;
693: END iF;
694: --
695: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
696: p_data => p_msg_data );
697: --
698: EXCEPTION
699: --
700: WHEN FND_API.G_EXC_ERROR THEN
701: --
702: ROLLBACK TO Check_Unique_Pvt ;
703: p_return_status := FND_API.G_RET_STS_ERROR;
704: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
705: p_data => p_msg_data );
706: --
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: --
707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
708: --
709: ROLLBACK TO Check_Unique_Pvt ;
710: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
712: p_data => p_msg_data );
713: --
714: WHEN OTHERS THEN
715: --
715: --
716: ROLLBACK TO Check_Unique_Pvt ;
717: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: --
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
716: ROLLBACK TO Check_Unique_Pvt ;
717: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: --
719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
724: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
720: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
721: l_api_name);
722: END if;
723: --
724: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
725: p_data => p_msg_data );
726: --
727: END Check_Unique;
728:
770: END IF;
771: --
772:
773: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
774: FND_MSG_PUB.initialize ;
775: END IF;
776: --
777: p_return_status := FND_API.G_RET_STS_SUCCESS ;
778: --
795: IF FND_API.To_Boolean ( p_commit ) THEN
796: COMMIT WORK;
797: END iF;
798: --
799: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
800: p_data => p_msg_data );
801: --
802: EXCEPTION
803: --
804: WHEN FND_API.G_EXC_ERROR THEN
805: --
806: ROLLBACK TO Check_Unique_Pvt ;
807: p_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
809: p_data => p_msg_data );
810: --
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: --
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: --
813: ROLLBACK TO Check_Unique_Pvt ;
814: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
816: p_data => p_msg_data );
817: --
818: WHEN OTHERS THEN
819: --
819: --
820: ROLLBACK TO Check_Unique_Pvt ;
821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: --
823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
824: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
825: l_api_name);
826: END if;
827: --
820: ROLLBACK TO Check_Unique_Pvt ;
821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: --
823: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
824: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
825: l_api_name);
826: END if;
827: --
828: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
824: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
825: l_api_name);
826: END if;
827: --
828: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
829: p_data => p_msg_data );
830: --
831: END Check_Global_Default;
832:
873: END IF;
874: --
875:
876: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
877: FND_MSG_PUB.initialize ;
878: END IF;
879: --
880: p_return_status := FND_API.G_RET_STS_SUCCESS ;
881: --
897: IF FND_API.To_Boolean ( p_commit ) THEN
898: COMMIT WORK;
899: END iF;
900: --
901: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
902: p_data => p_msg_data );
903:
904: EXCEPTION
905: --
906: WHEN FND_API.G_EXC_ERROR THEN
907: --
908: ROLLBACK TO Check_References_Pvt ;
909: p_return_status := FND_API.G_RET_STS_ERROR;
910: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
911: p_data => p_msg_data );
912: --
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: --
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: --
915: ROLLBACK TO Check_References_Pvt ;
916: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
917: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
918: p_data => p_msg_data );
919: --
920: WHEN OTHERS THEN
921: --
921: --
922: ROLLBACK TO Check_References_Pvt ;
923: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: --
925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
927: l_api_name);
928: END if;
929: --
922: ROLLBACK TO Check_References_Pvt ;
923: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: --
925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
927: l_api_name);
928: END if;
929: --
930: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
926: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
927: l_api_name);
928: END if;
929: --
930: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
931: p_data => p_msg_data );
932: --
933: END Check_References;
934: