230: /*Commenting the exception block for the bug 3355209 since it is again standards
231: Exception
232: When Others Then
233: Bug2510641 Begin
234: -- FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
235: FND_MESSAGE.SET_NAME('PA' ,'PA_UNEXPECTED_ERROR_WTH_TKNS');
236: FND_MESSAGE.SET_TOKEN('PACKAGE_NAME','PA_Resource_List_tbl_Pkg');
237: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','Insert_Row');
238: FND_MESSAGE.SET_TOKEN('ERROR_TEXT ',SQLERRM);
231: Exception
232: When Others Then
233: Bug2510641 Begin
234: -- FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
235: FND_MESSAGE.SET_NAME('PA' ,'PA_UNEXPECTED_ERROR_WTH_TKNS');
236: FND_MESSAGE.SET_TOKEN('PACKAGE_NAME','PA_Resource_List_tbl_Pkg');
237: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','Insert_Row');
238: FND_MESSAGE.SET_TOKEN('ERROR_TEXT ',SQLERRM);
239: Bug2510641 End
232: When Others Then
233: Bug2510641 Begin
234: -- FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
235: FND_MESSAGE.SET_NAME('PA' ,'PA_UNEXPECTED_ERROR_WTH_TKNS');
236: FND_MESSAGE.SET_TOKEN('PACKAGE_NAME','PA_Resource_List_tbl_Pkg');
237: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','Insert_Row');
238: FND_MESSAGE.SET_TOKEN('ERROR_TEXT ',SQLERRM);
239: Bug2510641 End
240: APP_EXCEPTION.RAISE_EXCEPTION;*/
233: Bug2510641 Begin
234: -- FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
235: FND_MESSAGE.SET_NAME('PA' ,'PA_UNEXPECTED_ERROR_WTH_TKNS');
236: FND_MESSAGE.SET_TOKEN('PACKAGE_NAME','PA_Resource_List_tbl_Pkg');
237: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','Insert_Row');
238: FND_MESSAGE.SET_TOKEN('ERROR_TEXT ',SQLERRM);
239: Bug2510641 End
240: APP_EXCEPTION.RAISE_EXCEPTION;*/
241: END Insert_Row;
234: -- FND_MESSAGE.SET_NAME('PA' ,SQLERRM);
235: FND_MESSAGE.SET_NAME('PA' ,'PA_UNEXPECTED_ERROR_WTH_TKNS');
236: FND_MESSAGE.SET_TOKEN('PACKAGE_NAME','PA_Resource_List_tbl_Pkg');
237: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','Insert_Row');
238: FND_MESSAGE.SET_TOKEN('ERROR_TEXT ',SQLERRM);
239: Bug2510641 End
240: APP_EXCEPTION.RAISE_EXCEPTION;*/
241: END Insert_Row;
242:
333: FETCH C INTO Recinfo;
334: If (C%NOTFOUND) THEN
335: --hr_utility.trace('NOT FOUND');
336: Close C;
337: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
338: APP_EXCEPTION.RAISE_EXCEPTION;
339: END If;
340: CLOSE C;
341: IF (
361: ) Then
362: Return;
363: Else
364: --hr_utility.trace('ELSE IF');
365: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
366: APP_EXCEPTION.RAISE_EXCEPTION;
367: END If;
368:
369: End Lock_Row;