107: END IF;
108:
109:
110: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
111: FND_MSG_PUB.initialize ;
112: END IF;
113:
114: p_return_status := FND_API.G_RET_STS_SUCCESS ;
115:
275: IF FND_API.To_Boolean ( p_commit ) THEN
276: COMMIT WORK;
277: END iF;
278:
279: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
280: p_data => p_msg_data );
281:
282: EXCEPTION
283:
284: WHEN FND_API.G_EXC_ERROR THEN
285:
286: ROLLBACK TO Insert_Row_Pvt ;
287: p_return_status := FND_API.G_RET_STS_ERROR;
288: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
289: p_data => p_msg_data );
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292:
293: ROLLBACK TO Insert_Row_Pvt ;
294: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
296: p_data => p_msg_data );
297:
298: WHEN OTHERS THEN
299:
299:
300: ROLLBACK TO Insert_Row_Pvt ;
301: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
302:
303: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
304: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
305: l_api_name);
306: END if;
307:
300: ROLLBACK TO Insert_Row_Pvt ;
301: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
302:
303: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
304: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
305: l_api_name);
306: END if;
307:
308: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
304: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
305: l_api_name);
306: END if;
307:
308: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
309: p_data => p_msg_data );
310:
311: END Insert_Row;
312:
416: END IF;
417:
418:
419: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
420: FND_MSG_PUB.initialize ;
421: END IF;
422:
423: p_return_status := FND_API.G_RET_STS_SUCCESS ;
424: p_lock_row := FND_API.G_TRUE;
427: fetch c into recinfo;
428: if (c%notfound) then
429: close c;
430: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
431: FND_MSG_PUB.ADD;
432: raise FND_API.G_EXC_ERROR;
433: end if;
434: close c;
435:
706: THEN
707: null;
708: ELSE
709: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
710: FND_MSG_PUB.Add;
711: RAISE FND_API.G_EXC_ERROR ;
712: END IF;
713:
714: IF FND_API.To_Boolean ( p_commit ) THEN
714: IF FND_API.To_Boolean ( p_commit ) THEN
715: COMMIT WORK;
716: END iF;
717:
718: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
719: p_data => p_msg_data );
720:
721: EXCEPTION
722:
724:
725: ROLLBACK TO Lock_Row_Pvt ;
726: p_lock_row := FND_API.G_FALSE;
727: p_return_status := FND_API.G_RET_STS_ERROR;
728: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
729: p_data => p_msg_data );
730:
731: WHEN FND_API.G_EXC_ERROR THEN
732:
732:
733: ROLLBACK TO Lock_Row_Pvt ;
734: p_lock_row := FND_API.G_FALSE;
735: p_return_status := FND_API.G_RET_STS_ERROR;
736: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
737: p_data => p_msg_data );
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740:
741: ROLLBACK TO Lock_Row_Pvt ;
742: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
744: p_data => p_msg_data );
745:
746: WHEN OTHERS THEN
747:
747:
748: ROLLBACK TO Lock_Row_Pvt ;
749: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750:
751: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
752: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
753: l_api_name);
754: END if;
755:
748: ROLLBACK TO Lock_Row_Pvt ;
749: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750:
751: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
752: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
753: l_api_name);
754: END if;
755:
756: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
752: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
753: l_api_name);
754: END if;
755:
756: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
757: p_data => p_msg_data );
758:
759: END Lock_Row;
760:
857: END IF;
858:
859:
860: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
861: FND_MSG_PUB.initialize ;
862: END IF;
863:
864: p_return_status := FND_API.G_RET_STS_SUCCESS ;
865:
945: IF FND_API.To_Boolean ( p_commit ) THEN
946: COMMIT WORK;
947: END iF;
948:
949: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
950: p_data => p_msg_data );
951:
952: EXCEPTION
953:
954: WHEN FND_API.G_EXC_ERROR THEN
955:
956: ROLLBACK TO Update_Row_Pvt ;
957: p_return_status := FND_API.G_RET_STS_ERROR;
958: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
959: p_data => p_msg_data );
960:
961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
962:
961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
962:
963: ROLLBACK TO Update_Row_Pvt ;
964: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
965: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
966: p_data => p_msg_data );
967:
968: WHEN OTHERS THEN
969:
969:
970: ROLLBACK TO Update_Row_Pvt ;
971: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972:
973: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
975: l_api_name);
976: END if;
977:
970: ROLLBACK TO Update_Row_Pvt ;
971: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972:
973: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
975: l_api_name);
976: END if;
977:
978: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
974: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
975: l_api_name);
976: END if;
977:
978: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
979: p_data => p_msg_data );
980:
981: END Update_Row;
982:
1008: END IF;
1009:
1010:
1011: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1012: FND_MSG_PUB.initialize ;
1013: END IF;
1014:
1015: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1016:
1023: IF FND_API.To_Boolean ( p_commit ) THEN
1024: COMMIT WORK;
1025: END iF;
1026:
1027: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1028: p_data => p_msg_data );
1029:
1030: EXCEPTION
1031:
1032: WHEN FND_API.G_EXC_ERROR THEN
1033:
1034: ROLLBACK TO Delete_Row_Pvt ;
1035: p_return_status := FND_API.G_RET_STS_ERROR;
1036: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1037: p_data => p_msg_data );
1038:
1039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1040:
1039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1040:
1041: ROLLBACK TO Delete_Row_Pvt ;
1042: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1043: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1044: p_data => p_msg_data );
1045:
1046: WHEN OTHERS THEN
1047:
1047:
1048: ROLLBACK TO Delete_Row_Pvt ;
1049: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1052: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1053: l_api_name);
1054: END if;
1055:
1048: ROLLBACK TO Delete_Row_Pvt ;
1049: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1052: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1053: l_api_name);
1054: END if;
1055:
1056: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1052: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1053: l_api_name);
1054: END if;
1055:
1056: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1057: p_data => p_msg_data );
1058:
1059: END Delete_Row;
1060: