dbo.QBM_PDialogColumnDelete

1    create   procedure QBM_PDialogColumnDelete( @TableName nvarchar(64), @GenProcID varchar(38) = '' ) as begin  declare @Columnname nvarchar(64
2) declare @uid_dialogColumn varchar(38) declare @msg nvarchar(1000) declare @XUser nvarchar(64) declare @XDate datetime  declare @uid_dialogTable varchar
3(38)  declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @XUser_R nvarchar(64) = dbo.QBM_FGISessionContext('XUser') declare @DebugLevel
4 char(1) = 'W' declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN TRY if isnull(@GenProcID
5, '') = '' begin select @GenProcID = @GenProcID_R end select @XUser = @XUser_R select @Xdate = getUTCDate() select top 1 @uid_dialogTable = t.UID_DialogTable
6 from DialogTable t where t.TableName = @TableName  insert into @ElementBuffer (UID1, Ident1) select c.uid_dialogcolumn , c.Columnname from dialogcolumn
7 c join DialogTable t on c.UID_DialogTable = t.UID_DialogTable left outer join QBM_VSchemaColumns ic on t.TableName = ic.table_name and c.columnname = 
8ic.column_name where ic.table_name is null and t.TableName = @TableName select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex 
9<= @ElementCount begin select top 1 @uid_dialogColumn = bu.UID1 , @Columnname = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex 
10select @msg = N'Column in DialogColumn deleted : ' + @TableName + N'.' + @Columnname print @msg exec QBM_PJournal @msg, @@PROCID, 'I', @DebugLevel exec
11 QBM_PSessionContextSet 'GenProcID', @GenProcID exec QBM_PSessionContextSet 'XUser', @XUser delete DialogColumn where uid_dialogColumn = @uid_dialogColumn
12 select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow()
13 RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH  ende: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R exec QBM_PSessionContextSet 'XUser', @XUser_R
14 return end 
15