dbo.QER_P30907EB9FB8232867B_proc

1  create   procedure QER_P30907EB9FB8232867B_proc  ( @Statements QBM_YCursorbuffer readonly , @UsageArea char(1) , @ProcedureName varchar(30) , 
2@UID_PWODecisionRule varchar(38) , @Komplett nvarchar(max) output  ) as begin declare @Muster nvarchar(max) declare @Body nvarchar(max) = N'' declare @DebugSwitch
3 int = 0 declare @DebugLevel char(1) = 'W' select @Muster = 'create or alter procedure %ProcedureName% (
4								%parameters%
5							)
6 as
7begin
8declare @erg table(UID_Person varchar(38) collate database_default
9					, UID_PWORulerOrigin varchar(38) collate database_default
10				)
11SET XACT_ABORT OFF
12
13BEGIN TRY
14
15-- definition for rule 	%UID_PWODecisionRule%					
16drop table if Exists #Ruler
17create table #Ruler(UID_Person varchar(38) collate database_default
18				, UID_PWORulerOrigin varchar(38) collate database_default
19					)
20
21%body%
22
23-- ende mit Rückgabe in temp-Tabelle
24	insert into #Ruler_Main(UID_Person, UID_PWORulerOrigin)
25	select z.UID_Person as UID_Person
26		,  max(convert(varchar(38), y.UID_PWORulerOrigin)) as UID_PWORulerOrigin
27		--, convert(varchar(128), ''decision rule %UID_PWODecisionRule%'')  as SourceInfo
28	from (
29			select x.UID_Person, x.UID_PWORulerOrigin
30			from @erg x
31		) as y join Person z on y.UID_Person = z.UID_Person 
32							and z.IsInActive = 0	
33	group by z.UID_Person					
34	
35END TRY
36BEGIN CATCH
37
38	exec QBM_PSessionErrorAdd default 	,N''decision rule %UID_PWODecisionRule%''
39	
40	RAISERROR ('''', 18, 1)  WITH NOWAIT
41
42END CATCH
43	                                	        	
44endLabel:
45	
46end
47
48'
49 select @Body = string_agg(concat( '	--insert into @erg (UID_Person, UID_PWORulerOrigin)
50', case when left(ltrim(d.ContentFull), 4) = 'Exec' then concat
51('	-- code from PWODecisionRuleRulerDetect: ' , d.UID1 , nchar(13) , nchar(10) ,dbo.QBM_FCVStringToIndent(d.ContentFull , 1) , nchar(13) , nchar(10) , 
52'insert into @erg(UID_Person,UID_PWORulerOrigin)
53						select UID_Person,UID_PWORulerOrigin
54							from #ruler
55						-- / code from PWODecisionRuleRulerDetect'
56 , nchar(13) , nchar(10) ) else concat( '	insert into @erg(UID_Person,UID_PWORulerOrigin)
57					select x.UID_Person, x.UID_PWORulerOrigin
58		from (
59	-- code from PWODecisionRuleRulerDetect: '
60 , d.UID1, nchar(13) , nchar(10) , dbo.QBM_FCVStringToIndent(d.ContentFull , 1) , '
61						
62	-- / code from PWODecisionRuleRulerDetect
63			) as x ', nchar
64(13) , nchar(10) ) end )  , nchar(13) + nchar(10) )  from @Statements  d if @DebugSwitch > 0 begin print '#####################' select @Body print '#####################'
65 end  select @Komplett = replace(replace(replace(REPLACE(@Muster , '%ProcedureName%', @ProcedureName) , '%parameters%', case @UsageArea when 'I' then '@uid_PersonWantsOrg varchar(38)'
66 Else '@uid_AttestationCase varchar(38)' end + '	, @UID_QERWorkingStep varchar(38)') , '%Body%', dbo.qbm_fcvstringtoindent( @Body, 1)) , '%UID_PWODecisionRule%'
67, @UID_PWODecisionRule)  end 
68