Excellent information. Minor point, according to Microsoft's documentation on sp_getapplock the error trap code should actually be as follows:

IF @Result < 0

BEGIN

ROLLBACK TRAN

RAISERROR('Procedure Already Running - Concurrent execution...