126: END IF;
127: --
128:
129: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
130: FND_MSG_PUB.initialize ;
131: END IF;
132: --
133: p_return_status := FND_API.G_RET_STS_SUCCESS ;
134: --
320: IF FND_API.To_Boolean ( p_commit ) THEN
321: COMMIT WORK;
322: END iF;
323: --
324: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
325: p_data => p_msg_data );
326: --
327: EXCEPTION
328: --
329: WHEN FND_API.G_EXC_ERROR THEN
330: --
331: ROLLBACK TO Insert_Row_Pvt ;
332: p_return_status := FND_API.G_RET_STS_ERROR;
333: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
334: p_data => p_msg_data );
335: --
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: --
336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
337: --
338: ROLLBACK TO Insert_Row_Pvt ;
339: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
341: p_data => p_msg_data );
342: --
343: WHEN OTHERS THEN
344: --
344: --
345: ROLLBACK TO Insert_Row_Pvt ;
346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: --
348: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
349: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
350: l_api_name);
351: END if;
352: --
345: ROLLBACK TO Insert_Row_Pvt ;
346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: --
348: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
349: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
350: l_api_name);
351: END if;
352: --
353: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
349: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
350: l_api_name);
351: END if;
352: --
353: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
354: p_data => p_msg_data );
355: --
356:
357: END Insert_Row;
479: END IF;
480: --
481:
482: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
483: FND_MSG_PUB.initialize ;
484: END IF;
485: --
486: p_return_status := FND_API.G_RET_STS_SUCCESS ;
487: p_row_locked := FND_API.G_TRUE ;
490: FETCH C INTO Recinfo;
491: IF (C%NOTFOUND) THEN
492: CLOSE C;
493: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
494: FND_MSG_PUB.Add;
495: RAISE FND_API.G_EXC_ERROR ;
496: END IF;
497: CLOSE C;
498:
731: THEN
732: Null;
733: ELSE
734: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
735: FND_MSG_PUB.Add;
736: RAISE FND_API.G_EXC_ERROR ;
737: END IF;
738:
739: --
740: IF FND_API.To_Boolean ( p_commit ) THEN
741: COMMIT WORK;
742: END iF;
743: --
744: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
745: p_data => p_msg_data );
746: --
747: EXCEPTION
748: --
750: --
751: ROLLBACK TO Lock_Row_Pvt ;
752: p_row_locked := FND_API.G_FALSE;
753: p_return_status := FND_API.G_RET_STS_ERROR;
754: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
755: p_data => p_msg_data );
756: --
757: WHEN FND_API.G_EXC_ERROR THEN
758: --
757: WHEN FND_API.G_EXC_ERROR THEN
758: --
759: ROLLBACK TO Lock_Row_Pvt ;
760: p_return_status := FND_API.G_RET_STS_ERROR;
761: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
762: p_data => p_msg_data );
763: --
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO Lock_Row_Pvt ;
763: --
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO Lock_Row_Pvt ;
766: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
768: p_data => p_msg_data );
769: --
770: WHEN OTHERS THEN
771: --
771: --
772: ROLLBACK TO Lock_Row_Pvt ;
773: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: --
775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
777: l_api_name);
778: END if;
779: --
772: ROLLBACK TO Lock_Row_Pvt ;
773: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: --
775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
777: l_api_name);
778: END if;
779: --
780: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
776: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
777: l_api_name);
778: END if;
779: --
780: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
781: p_data => p_msg_data );
782: --
783: END Lock_Row;
784: /*-------------------------------------------------------------------------*/
900: END IF;
901: --
902:
903: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
904: FND_MSG_PUB.initialize ;
905: END IF;
906: --
907: p_return_status := FND_API.G_RET_STS_SUCCESS ;
908: --
998: IF FND_API.To_Boolean ( p_commit ) THEN
999: COMMIT WORK;
1000: END iF;
1001: --
1002: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1003: p_data => p_msg_data );
1004: --
1005: EXCEPTION
1006: --
1007: WHEN FND_API.G_EXC_ERROR THEN
1008: --
1009: ROLLBACK TO Update_Row_Pvt ;
1010: p_return_status := FND_API.G_RET_STS_ERROR;
1011: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1012: p_data => p_msg_data );
1013: --
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: --
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: --
1016: ROLLBACK TO Update_Row_Pvt ;
1017: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1018: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1019: p_data => p_msg_data );
1020: --
1021: WHEN OTHERS THEN
1022: --
1022: --
1023: ROLLBACK TO Update_Row_Pvt ;
1024: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: --
1026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1027: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1028: l_api_name);
1029: END if;
1030: --
1023: ROLLBACK TO Update_Row_Pvt ;
1024: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: --
1026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1027: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1028: l_api_name);
1029: END if;
1030: --
1031: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1027: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1028: l_api_name);
1029: END if;
1030: --
1031: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1032: p_data => p_msg_data );
1033: --
1034: END Update_Row;
1035: /*-------------------------------------------------------------------------*/
1073: END IF;
1074: --
1075:
1076: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1077: FND_MSG_PUB.initialize ;
1078: END IF;
1079: --
1080: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1081: --
1105: IF FND_API.To_Boolean ( p_commit ) THEN
1106: COMMIT WORK;
1107: END iF;
1108: --
1109: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1110: p_data => p_msg_data );
1111:
1112: EXCEPTION
1113: --
1114: WHEN FND_API.G_EXC_ERROR THEN
1115: --
1116: ROLLBACK TO Delete_Row_Pvt ;
1117: p_return_status := FND_API.G_RET_STS_ERROR;
1118: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1119: p_data => p_msg_data );
1120: --
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: --
1121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1122: --
1123: ROLLBACK TO Delete_Row_Pvt ;
1124: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1126: p_data => p_msg_data );
1127: --
1128: WHEN OTHERS THEN
1129: --
1129: --
1130: ROLLBACK TO Delete_Row_Pvt ;
1131: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: --
1133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1134: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1135: l_api_name);
1136: END if;
1137: --
1130: ROLLBACK TO Delete_Row_Pvt ;
1131: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1132: --
1133: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1134: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1135: l_api_name);
1136: END if;
1137: --
1138: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1134: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1135: l_api_name);
1136: END if;
1137: --
1138: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1139: p_data => p_msg_data );
1140: --
1141: END Delete_Row;
1142: /*-------------------------------------------------------------------------*/