75: END IF;
76: --
77:
78: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
79: FND_MSG_PUB.initialize ;
80: END IF;
81: --
82: p_return_status := FND_API.G_RET_STS_SUCCESS ;
83: --
176: IF FND_API.To_Boolean ( p_commit ) THEN
177: COMMIT WORK;
178: END iF;
179: --
180: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
181: p_data => p_msg_data );
182: --
183: EXCEPTION
184: --
185: WHEN FND_API.G_EXC_ERROR THEN
186: --
187: ROLLBACK TO Insert_Row_Pvt ;
188: p_return_status := FND_API.G_RET_STS_ERROR;
189: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
190: p_data => p_msg_data );
191: --
192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
193: --
192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
193: --
194: ROLLBACK TO Insert_Row_Pvt ;
195: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
197: p_data => p_msg_data );
198: --
199: WHEN OTHERS THEN
200: --
200: --
201: ROLLBACK TO Insert_Row_Pvt ;
202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: --
204: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
205: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
206: l_api_name);
207: END if;
208: --
201: ROLLBACK TO Insert_Row_Pvt ;
202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: --
204: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
205: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
206: l_api_name);
207: END if;
208: --
209: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
205: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
206: l_api_name);
207: END if;
208: --
209: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
210: p_data => p_msg_data );
211: --
212: END Insert_Row;
213:
311: END IF;
312: --
313:
314: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
315: FND_MSG_PUB.initialize ;
316: END IF;
317: --
318: p_return_status := FND_API.G_RET_STS_SUCCESS ;
319: --
423: ) then
424: p_lock_row := FND_API.G_TRUE;
425: ELSE
426: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
427: FND_MSG_PUB.Add;
428: RAISE FND_API.G_EXC_ERROR ;
429: END IF;
430:
431: --
432: IF FND_API.To_Boolean ( p_commit ) THEN
433: COMMIT WORK;
434: END iF;
435: --
436: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
437: p_data => p_msg_data );
438: --
439: EXCEPTION
440: --
442: --
443: ROLLBACK TO Lock_Row_Pvt ;
444: p_lock_row := FND_API.G_FALSE;
445: p_return_status := FND_API.G_RET_STS_ERROR;
446: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
447: p_data => p_msg_data );
448: --
449: WHEN FND_API.G_EXC_ERROR THEN
450: --
450: --
451: ROLLBACK TO Lock_Row_Pvt ;
452: p_lock_row := FND_API.G_FALSE;
453: p_return_status := FND_API.G_RET_STS_ERROR;
454: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
455: p_data => p_msg_data );
456: --
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: --
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: --
459: ROLLBACK TO Lock_Row_Pvt ;
460: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
462: p_data => p_msg_data );
463: --
464: WHEN OTHERS THEN
465: --
465: --
466: ROLLBACK TO Lock_Row_Pvt ;
467: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: --
469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
470: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
471: l_api_name);
472: END if;
473: --
466: ROLLBACK TO Lock_Row_Pvt ;
467: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: --
469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
470: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
471: l_api_name);
472: END if;
473: --
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
470: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
471: l_api_name);
472: END if;
473: --
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
475: p_data => p_msg_data );
476: --
477: END Lock_Row;
478:
539: END IF;
540: --
541:
542: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
543: FND_MSG_PUB.initialize ;
544: END IF;
545: --
546: p_return_status := FND_API.G_RET_STS_SUCCESS ;
547: --
593: IF FND_API.To_Boolean ( p_commit ) THEN
594: COMMIT WORK;
595: END iF;
596: --
597: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
598: p_data => p_msg_data );
599: --
600: EXCEPTION
601: --
602: WHEN FND_API.G_EXC_ERROR THEN
603: --
604: ROLLBACK TO Update_Row_Pvt ;
605: p_return_status := FND_API.G_RET_STS_ERROR;
606: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
607: p_data => p_msg_data );
608: --
609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
610: --
609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
610: --
611: ROLLBACK TO Update_Row_Pvt ;
612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
613: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
614: p_data => p_msg_data );
615: --
616: WHEN OTHERS THEN
617: --
617: --
618: ROLLBACK TO Update_Row_Pvt ;
619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: --
621: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
622: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
623: l_api_name);
624: END if;
625: --
618: ROLLBACK TO Update_Row_Pvt ;
619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
620: --
621: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
622: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
623: l_api_name);
624: END if;
625: --
626: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
622: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
623: l_api_name);
624: END if;
625: --
626: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
627: p_data => p_msg_data );
628: --
629: END Update_Row;
630:
693: --
694: -- Initialize message list if p_init_msg_list is set to TRUE.
695: --
696: if FND_API.to_Boolean (p_init_msg_list) then
697: FND_MSG_PUB.initialize;
698: end if;
699: --
700: p_return_status := FND_API.G_RET_STS_SUCCESS ;
701: --
807: if FND_API.to_Boolean (p_commit) then
808: commit work;
809: end if;
810: -- Standard call to get message count and if count is 1, get message info.
811: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
812: p_data => p_msg_data);
813: --
814:
815: EXCEPTION
817: when FND_API.G_EXC_ERROR then
818: --
819: rollback to ADD_ROW ;
820: p_return_status := FND_API.G_RET_STS_ERROR;
821: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
822: p_data => p_msg_data);
823: --
824: when FND_API.G_EXC_UNEXPECTED_ERROR then
825: --
824: when FND_API.G_EXC_UNEXPECTED_ERROR then
825: --
826: rollback to ADD_ROW ;
827: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
828: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
829: p_data => p_msg_data);
830: --
831: when OTHERS then
832: --
831: when OTHERS then
832: --
833: rollback to ADD_ROW ;
834: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
836: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
837: l_api_name);
838: END if;
839: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
832: --
833: rollback to ADD_ROW ;
834: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
835: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
836: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
837: l_api_name);
838: END if;
839: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
840: p_data => p_msg_data);
835: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
836: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
837: l_api_name);
838: END if;
839: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
840: p_data => p_msg_data);
841: --
842: END ADD_ROW;
843:
870: END IF;
871: --
872:
873: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
874: FND_MSG_PUB.initialize ;
875: END IF;
876: --
877: p_return_status := FND_API.G_RET_STS_SUCCESS ;
878: --
885: IF FND_API.To_Boolean ( p_commit ) THEN
886: COMMIT WORK;
887: END iF;
888: --
889: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
890: p_data => p_msg_data );
891:
892: EXCEPTION
893: --
894: WHEN FND_API.G_EXC_ERROR THEN
895: --
896: ROLLBACK TO Delete_Row_Pvt ;
897: p_return_status := FND_API.G_RET_STS_ERROR;
898: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
899: p_data => p_msg_data );
900: --
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: --
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: --
903: ROLLBACK TO Delete_Row_Pvt ;
904: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
905: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
906: p_data => p_msg_data );
907: --
908: WHEN OTHERS THEN
909: --
909: --
910: ROLLBACK TO Delete_Row_Pvt ;
911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: --
913: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
914: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
915: l_api_name);
916: END if;
917: --
910: ROLLBACK TO Delete_Row_Pvt ;
911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
912: --
913: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
914: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
915: l_api_name);
916: END if;
917: --
918: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
914: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
915: l_api_name);
916: END if;
917: --
918: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
919: p_data => p_msg_data );
920: --
921: END Delete_Row;
922: