DP44/DataPRO/Modules/Database/DatabaseMigrationScripts/.svn/pristine/64/6458349c7892f64df85d92b642e78440b5d30d4c.svn-base

<EFBFBD><EFBFBD>
ALTER PROCEDURE [dbo].[sp_DBImportSensorsSquib]
		 @SquibSensors				xml
		,@errorNumber				int				output
		,@errorMessage				nvarchar(250)	output 
AS
BEGIN
	set @errorNumber = 0
	set @errorMessage = ''

	declare @tSensorsSquib table
				([SerialNumber] [nvarchar](50),
				[SquibBypassCurrentFilter] [bit],
				[SquibBypassVoltageFilter] [bit],
				[SquibDelayMS] [float],
				[SquibDurationMS] [float],
				[SquibFireMode] [smallint],
				[ISOCode] [nvarchar](50),
				[SquibMeasurementType] [smallint],
				[SquibOutputCurrent] [float],
				[SquibToleranceLow] [float],
				[SquibToleranceHigh] [float],
				[LimitDuration] [bit],
				[ArticleId] [nvarchar](50),
				[LocalOnly] [bit],
				[Version] [int],
				[LastModified] [datetime],
				[LastModifiedBy] [nvarchar](50),
				[UserValue1] [nvarchar](255),
				[UserValue2] [nvarchar](255),
				[UserValue3] [nvarchar](255),
				/*[UserTags] [varbinary](max),*/
				[UserTagsText] [nvarchar](4000),
				[Processed]	[bit])

	insert into @tSensorsSquib
			(SerialNumber
			, SquibBypassCurrentFilter
			, SquibBypassVoltageFilter
			, SquibDelayMS
			, SquibDurationMS
			, SquibFireMode
			, ISOCode
			, SquibMeasurementType
			, SquibOutputCurrent
			, SquibToleranceLow
			, SquibToleranceHigh
			, LimitDuration
			, ArticleId
			, LocalOnly
			, [Version]
			, LastModified
			, LastModifiedBy
			, UserValue1
			, UserValue2
			, UserValue3
			/*, UserTags*/
			, UserTagsText
			,Processed)
	select
		  t.x.value('SerialNumber[1]', 'nvarchar(50)')		as SerialNumber
		, t.x.value('SquibBypassCurrentFilter[1]', 'bit')						as SquibBypassCurrentFilter
		, t.x.value('SquibBypassVoltageFilter[1]', 'bit')				as SquibBypassVoltageFilter
		, t.x.value('SquibDelayMS[1]', 'float')						as SquibDelayMS
		, t.x.value('SquibDurationMS[1]', 'float')						as SquibDurationMS
		, dbo.foo_SquibFireModeConverterToInt(t.x.value('SquibFireMode[1]', 'nvarchar(50)'))					as SquibFireMode
		, t.x.value('IsoCode[1]', 'varchar(50)')					as ISOCode
		, dbo.foo_SquibMeasurementTypeConverterToInt(t.x.value('SquibMeasurementType[1]', 'varchar(50)'))			as SquibMeasurementType
		, t.x.value('SquibSquibOutputCurrent[1]', 'float')				as SquibOutputCurrent
		, t.x.value('SquibSquibToleranceLow[1]', 'float')				as SquibToleranceLow
		, t.x.value('SquibSquibToleranceHigh[1]', 'float')				as SquibToleranceHigh
		, t.x.value('SquibLimitDuration[1]', 'bit')					as LimitDuration
		, t.x.value('SquibArticleId[1]', 'varchar(max)')				as SquibArticleId
		, t.x.value('LocalOnly[1]', 'bit')						as LocalOnly
		, t.x.value('Version[1]', 'int')							as Version
		, getdate()												as LastModified /* t.x.value('@LastModified', 'datetime') */
		, 'DBImport'											as ModifiedBy	/* t.x.value('@ModifiedBy', 'varchar(50)') */

		, t.x.value('UserValue1[1]', 'nvarchar(50)')				as UserValue1
		, t.x.value('UserValue2[1]', 'nvarchar(50)')				as UserValue2
		, t.x.value('UserValue3[1]', 'nvarchar(50)')				as UserValue3
		/*, CASE WHEN t.x.value('UserTags[1]', 'varbinary(max)') IS NULL THEN 0
				ELSE t.x.value('UserTags[1]', 'varbinary(max)') end	        as UserTags */
		, CASE WHEN t.x.value('UserTags[1]', 'nvarchar(4000)') IS NULL THEN ''
				ELSE t.x.value('UserTags[1]', 'nvarchar(4000)') end	        as UserTagsText 
		, 0
	from @SquibSensors.nodes('/Sensors/SensorData') t(x) OPTION (OPTIMIZE FOR ( @SquibSensors = NULL ))

	while (Select Count(*) From @tSensorsSquib Where Processed = 0) > 0
	Begin
		begin try
			begin transaction tSensorsSquib

			declare     @SerialNumber			nvarchar(50)
					   ,@SquibBypassCurrentFilter	bit
					   ,@SquibBypassVoltageFilter	bit
					   ,@SquibDelayMS				float
					   ,@SquibDurationMS				float
					   ,@SquibFireMode				smallint
					   ,@ISOCode				nvarchar(50)
					   ,@SquibMeasurementType		smallint
					   ,@SquibOutputCurrent		float
					   ,@SquibToleranceLow		float
					   ,@SquibToleranceHigh		float
					   ,@LimitDuration			bit
					   ,@ArticleId				nvarchar(50)
					   ,@LocalOnly				bit
					   ,@Version				int
					   ,@LastModified			datetime
					   ,@LastModifiedBy			nvarchar(50)
					   ,@UserValue1				nvarchar(255)
					   ,@UserValue2				nvarchar(255)
					   ,@UserValue3				nvarchar(255)
					   ,@UserTags				varbinary(max)
					   ,@UserTagsText			nvarchar(4000)
					   ,@new_id					int				
			
			select top 1
				 @SerialNumber				= SerialNumber		
				,@SquibBypassCurrentFilter		= SquibBypassCurrentFilter
				,@SquibBypassVoltageFilter		= SquibBypassVoltageFilter
				,@SquibDelayMS					= SquibDelayMS			
				,@SquibDurationMS				= SquibDurationMS			
				,@SquibFireMode					= SquibFireMode			
				,@ISOCode					= ISOCode			
				,@SquibMeasurementType			= SquibMeasurementType	
				,@SquibOutputCurrent		= SquibOutputCurrent	
				,@SquibToleranceLow			= SquibToleranceLow	
				,@SquibToleranceHigh		= SquibToleranceHigh	
				,@LimitDuration				= LimitDuration		
				,@ArticleId					= ArticleId			
				,@LocalOnly					= LocalOnly			
				,@Version					= Version			
				,@LastModified				= LastModified		
				,@LastModifiedBy			= LastModifiedBy		
				,@UserValue1				= UserValue1			
				,@UserValue2				= UserValue2			
				,@UserValue3				= UserValue3			
				/*,@UserTags				= UserTags*/
				,@UserTagsText				= UserTagsText
			from @tSensorsSquib where Processed = 0

			declare @tagTable TABLE (Element nvarchar(4000), Processed bit)
			declare @tagIdTable TABLE (Id int, Processed bit)
			insert into @tagTable (Element, Processed) select * from dbo.foo_SplitDelimitedString(@UserTagsText, ',')

			/*call foo_IdGetTag to get the tag id */
			while (Select Count(*) From @tagTable Where Processed = 0) > 0
			Begin
				begin try
					declare @tagName nvarchar(4000)
					declare @tagIdTemp   int
					select top 1 @tagName = Element from @tagTable where Processed = 0
					set @tagIdTemp = dbo.foo_IdGetTag(@tagName)
					insert into @tagIdTable (Id, Processed) VALUES (@tagIdTemp, 0)
				end try
				begin catch
					set @errorNumber = error_number()
					set @errorMessage = error_message()
					rollback transaction tSensorsAnalog
				end catch;
				update @tagTable set Processed = 1 where Element = @tagName
			End

			/*store in a byte array*/
			while (Select Count(*) From @tagIdTable Where Processed = 0) > 0
			Begin
				begin try
					declare @tagId		int
					declare @tagIdByte	varbinary(4)
					select top 1 @tagId = Id from @tagIdTable where Processed = 0
					--set @tagIdByte = dbo.foo_ConvertIntToBytes(@tagId) 
					set @tagIdByte = CONVERT(VARBINARY(MAX), REVERSE(CONVERT(VARBINARY(4), @tagId)))
					set @UserTags = CONVERT(varbinary(max), CONCAT(@UserTags, @tagIdByte))
				end try
				begin catch
					set @errorNumber = error_number()
					set @errorMessage = error_message()
					rollback transaction tSensorsAnalog
				end catch;
				update @tagIdTable set Processed = 1 where Id = @tagId
			End

			exec dbo.sp_SensorsSquibUpdateInsert @SerialNumber
												,@SquibBypassCurrentFilter	
												,@SquibBypassVoltageFilter	
												,@SquibDelayMS				
												,@SquibDurationMS			
												,@SquibFireMode				
												,@ISOCode				
												,@SquibMeasurementType		
												,@SquibOutputCurrent	
												,@SquibToleranceLow		
												,@SquibToleranceHigh	
												,@LimitDuration			
												,@ArticleId				
												,@LocalOnly				
												,@Version				
												,@LastModified			
												,@LastModifiedBy		
												,@UserValue1			
												,@UserValue2			
												,@UserValue3			
												,@UserTags
												,@new_id					output 	
												,@errorNumber				output
												,@errorMessage				output

			update @tSensorsSquib set Processed = 1 where SerialNumber = @SerialNumber
			commit transaction tSensorsSquib
		end try
		begin catch
			set @errorNumber = error_number()
			set @errorMessage = error_message()
			rollback transaction tSensorsSquib
		end catch;
	end
END