dbo.QER_ZITShopOrderAbort

1   create   procedure QER_ZITShopOrderAbort (@SlotNumber int)  as begin  declare @uid_personwantsorg varchar(38) declare @GenProcID varchar(38) 
2declare @CfgUseGenProcID bit = dbo.QBM_FCVStringToBit(dbo.QBM_FGIConfigparmValue('Common\ProcessState\UseGenProcIDFromPWO')) declare @cond nvarchar(1000
3) declare @BasisObjectKey varchar(138) declare @AbortMethod nvarchar(64)  declare @reason nvarchar(1000) declare @ElementBuffer QBM_YCursorBuffer declare
4 @ElementCount int declare @ElementIndex int declare @DBQueueCurrent QBM_YDBQueueCurrent BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter
5, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber
6 = @SlotNumber if @@rowcount = 0 begin goto EndLabel end insert into @ElementBuffer (UID1, UID2, ObjectKey1, Ident1) select pwo.uid_Personwantsorg , dbo.QER_FGIGenProcIDForPWO
7(pwo.GenProcID, p.GenProcID, @CfgUseGenProcID) as GenProcID , PWO.XObjectKey     , 'Abort'  from @DBQueueCurrent p join personwantsorg pwo on p.uid_parameter
8 = pwo.uid_personwantsorg select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_personwantsorg
9 = bu.UID1 , @GenProcID = bu.UID2 , @BasisObjectkey = bu.ObjectKey1 , @AbortMethod = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex
10 select @cond = N'uid_personwantsorg = ''' + rtrim(@uid_personwantsorg) + N'''' select @reason = dbo.QBM_FCVStringTrimLDSPrefix('#LDS#Automatic system approval: Assigned Element was deleted or workflow has changed.|'
11) exec QBM_PJobCreate_HOCallMethod 'PersonWantsOrg', @cond, @save = 1, @MethodName = @AbortMethod , @GenProcID = @GenProcID , @ObjectKeysAffected = DEFAULT
12 , @param1 = @reason , @IsToFreezeOnError = 1 , @Retries = 3 , @checkForExisting = 1  , @WhereClauseAdditional = ' OrderState in (''Assigned'', ''Granted'', ''New'', ''OrderProduct'', ''OrderProlongate'', ''OrderUnsubscribe'', ''Waiting'')'
13  , @BasisObjectKey = @BasisObjectKey select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT
14 END CATCH  endLabel: return end 
15