dbo.QER_ZPWODecisionRuleMakeProc

1      create   procedure QER_ZPWODecisionRuleMakeProc ( @SlotNumberDummy int , @UID_PWODecisionRule varchar(38) , @Dummy varchar(38) , @GenProcID
2 varchar(38) ) as begin  declare @UsageArea char(1) declare @FunctionName varchar(30) declare @Komplett nvarchar(max) declare @DebugSwitch int = 0 declare
3 @DebugLevel char(1) = 'W'  declare @Statements QBM_YCursorbuffer declare @ResetMessage nvarchar(4000) SET XACT_ABORT OFF BEGIN TRY select @FunctionName
4 = dbo.QER_FCVRuleGUIDToFunctionName(@UID_PWODecisionRule) if @DebugSwitch > 0 begin print 'Codename ' + @FunctionName end select top 1 @UsageArea = r.UsageArea
5 from PWODecisionRule r where r.UID_PWODecisionRule = @UID_PWODecisionRule if @UsageArea is null begin if @DebugSwitch > 0 begin print 'dann gibt es diese Regel nicht (mehr), gedropt haben wir, können wir Schluß machen'
6 end goto DropOnly end insert into @Statements(ContentFull, UID1) select d.SQLQuery, d.UID_PWODecisionRuleRulerDetect from PWODecisionRuleRulerDetect d
7 where d.UID_PWODecisionRule = @UID_PWODecisionRule BEGIN TRY  if exists (select top 1 1 from @Statements s where left(ltrim(s.ContentFull),4) = 'exec'
8 ) begin  if @DebugSwitch > 0 begin print 'wir bauen das als Prozedur zusammen' end exec QER_P30907EB9FB8232867B_proc  @Statements  , @UsageArea  , @FunctionName
9  , @UID_PWODecisionRule  , @Komplett output  if @DebugSwitch > 0 begin select @Komplett end exec QBM_PProcedureDrop @FunctionName exec QBM_PSQLCreate 
10@FunctionName, 'P', @komplett, @UnComment = 0, @unformat = 0 end else begin  if @DebugSwitch > 0 begin print 'das wird wine function' end exec QER_P30907EB9FB8232867B_func
11   @Statements  , @UsageArea  , @FunctionName  , @UID_PWODecisionRule  , @Komplett output  if @DebugSwitch > 0 begin select @Komplett end  exec QBM_PFunctionDrop
12 @FunctionName exec QBM_PSQLCreate @FunctionName, 'F', @komplett, @UnComment = 0, @unformat = 0 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default
13 select @ResetMessage = ERROR_MESSAGE() if @@TRANCOUNT > 0 begin rollback end  exec QBM_PDBQueueCurrentResetNGen @SlotNumberDummy , @ResetMessage , @@PROCID
14 END CATCH END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return DropOnly:  exec QBM_PFunctionDrop
15 @FunctionName exec QBM_PProcedureDrop @FunctionName return end 
16