dbo.QER_ZRiskIndexCalculate

1     create   procedure QER_ZRiskIndexCalculate (@SlotNumber int , @UID_DialogColumn varchar(38) , @SubObject varchar(38) , @GenProcID varchar(38
2) ) as begin declare @procname nvarchar(64) declare @Erg int declare @DebugSwitch int = 0 declare @Debuglevel varchar(1) = 'W' declare @Debugmessage nvarchar
3(1000) declare @SlotResetType int = dbo.QBM_FGIDBQueueSlotResetType('Waiting')  declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare
4 @UID_MeineTask varchar(38) = 'QER-K-QERRiskIndexCalculate'  BEGIN TRY if exists (select top 1 1 from QERRiskIndexColumnDepend dep join (  select q.Object
5 as UID_DialogColumnPred from DialogDBQueue q with (readpast) where q.UID_Task = @UID_MeineTask and q.Generation >= 0 union select cu.UID_Parameter from
6 QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber <> 0 and cu.UID_Task = @UID_MeineTask ) as act on act.UID_DialogColumnPred = dep.UID_DialogColumnSource
7 where dep.UID_DialogColumnTarget = @UID_DialogColumn ) begin if @DebugSwitch > 0 begin select @Debugmessage = concat( @UID_DialogColumn, ' mich selber wieder einstellen für den nächsten Versuch'
8 ) exec QBM_PJournal @Debugmessage, @@procid, 'D', @Debuglevel end          if not exists (select top 1 1 from QBMDBQueueCurrent cu with (readpast) where
9 cu.UID_Task = @UID_MeineTask and cu.UID_Parameter = @UID_DialogColumn and cu.SlotNumber < 0 ) begin exec QBM_PDBQueueCurrentResetNGen @SlotNumber, 'waiting for predecessors'
10, 0  if @DebugSwitch > 0 begin select @Debugmessage = concat( @UID_DialogColumn, ' wirklich wieder eingestellt' ) exec QBM_PJournal @Debugmessage, @@procid
11, 'D', @Debuglevel end end goto endLabel end  select @erg = 0   select @procname = dbo.QER_FGIRiskIndexProcname(@UID_DialogColumn)   if not exists (select
12 top 1 1 from sys.procedures where name = @procname and type = 'P' ) begin if @DebugSwitch > 0 begin print 'prozedur ' + @procname + 'existiert nicht' 
13end goto endLabel end  exec QBM_PSessionContextSet 'GenProcID', @GenProcID exec @erg = @procname  if @DebugSwitch > 0 begin print 'geändert ' + str(@erg
14) end if @Erg = 0 begin goto endlabel end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: 
15exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
16