856: EXCEPTION
857:
858: WHEN FND_API.G_EXC_ERROR THEN
859: --
860: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
861: p_print_header => FND_API.G_TRUE );
862: retcode := 2 ;
863: COMMIT WORK ;
864: --
863: COMMIT WORK ;
864: --
865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
866: --
867: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
868: p_print_header => FND_API.G_TRUE );
869: retcode := 2 ;
870: COMMIT WORK ;
871: --
878: END IF ;
879: --
880: l_return_status := FND_API.G_RET_STS_ERROR;
881:
882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
883: p_print_header => FND_API.G_TRUE );
884: --
885: retcode := 2 ;
886: COMMIT WORK ;