Back to OIM Explorer

dbo.QBM_FCVGuidToTransfer

Scalar FunctionSQL_SCALAR_FUNCTIONSandbox DB

Scalar Function.

Source: sandbox-db sys.sql_modules

Source size: 2.387 characters

Interpretation

  • Database function. Usually supports views, validation, or calculated predicates; look at referenced-by entries for callers.

Relations

  • No extracted relations.

Typed Edges

  • references source dbo.QBM_FGIGuidIsValid source text reference

References

Referenced By

Complete Source

SQL147 lines
1CREATE FUNCTION dbo.QBM_FCVGuidToTransfer(2  @GuidNonTransferable varchar(38),3  @ModuleName varchar(3)4) RETURNS varchar(385)6AS7BEGIN8  DECLARE @work varchar(200)9  DECLARE @work2 varchar(200)10  DECLARE @erg varchar(38)11  DECLARE @l int12  DECLARE @i int13  DECLARE @char varchar(1)14  DECLARE @GuidType int15  SELECT @GuidType = dbo.QBM_FGIGuidIsValid(@GuidNonTransferable)16  IF(@GuidType & 2 > 0 AND17  LEFT(@GuidNonTransferable, 3) = @ModuleName) OR(@GuidType = 0)18  BEGIN19    SELECT @erg = @GuidNonTransferable20    GOTO ende21  END22  IF @GuidType = 123  BEGIN24    SELECT25      @erg = CONCAT(upper(@ModuleName),26      '-',27      replace(@GuidNonTransferable, '-', ''))28      GOTO ende29  END30  IF @GuidType & 2 > 0 AND @GuidNonTransferable NOT LIKE @Modulename + '-%'31  BEGIN32    SELECT @erg = @GuidNonTransferable33    GOTO ende34  END35  SELECT @work2 = ''36  IF @GuidNonTransferable LIKE 'default%'37  BEGIN38    SELECT39      @work = replace(replace(replace(@GuidNonTransferable, 'default_', ''), 'default-', ''),40      'default',41      '')42    SELECT @i = 143    SELECT @l = len(@work)44    WHILE @i <= @l45    BEGIN46      SELECT47        @char = substring(@work,48        @i,49        1)50      IF @char LIKE '[0-Z]'51      BEGIN52        SELECT53          @work2 = CONCAT(@work2,54          @char)55      END56      ELSE57      BEGIN58        IF @char = '_' OR @char = '-'59        BEGIN60          SELECT61            @work2 = CONCAT(@work2,62            '-')63        END64      END65      SELECT @i += 166    END67    SELECT68      @erg = CONCAT(upper(@modulename),69      '-',70      substring(@work2, 1, 32))71      GOTO ende72  END73  SELECT @work2 = ''74  IF @GuidNonTransferable LIKE @moduleName+ '-%'75  BEGIN76    SELECT77      @work = substring(@GuidNonTransferable,78      5,79      33)80    SELECT @i = 181    SELECT @l = len(@work)82    WHILE @i <= @l83    BEGIN84      SELECT85        @char = substring(@work,86        @i,87        1)88      IF @char LIKE '[0-Z]'89      BEGIN90        SELECT91          @work2 = CONCAT(@work2,92          @char)93      END94      ELSE95      BEGIN96        IF @char = '_' OR @char = '-'97        BEGIN98          SELECT99            @work2 = CONCAT(@work2,100            '-')101        END102      END103      SELECT @i += 1104    END105    SELECT106      @erg = CONCAT(upper(@modulename),107      '-',108      substring(@work2, 1, 32))109      GOTO ende110  END111  ELSE112  BEGIN113    SELECT @i = 1114    SELECT @l = len(@GuidNonTransferable)115    WHILE @i <= @l116    BEGIN117      SELECT118        @char = substring(@GuidNonTransferable,119        @i,120        1)121      IF @char LIKE '[0-Z]'122      BEGIN123        SELECT124          @work2 = CONCAT(@work2,125          @char)126      END127      ELSE128      BEGIN129        SELECT130          @work2 = CONCAT(@work2,131          replace(convert(varchar(200), convert(varbinary(100), @char, 0), 2), '3', ''))132      END133      SELECT @i += 1134    END135  END136  WHILE len(@work2) < 32 AND len(@work2) > 0137  BEGIN138    SELECT139      @work2 = CONCAT(@work2,140      @work2)141  END142  SELECT143    @erg = CONCAT(upper(@modulename),144    '-',145    substring(@work2, 1, 32)) ende:146  RETURN(@erg)147END
Open raw exported source
SQL ยท Raw17 lines
1   create   function dbo.QBM_FCVGuidToTransfer( @GuidNonTransferable varchar(38), @ModuleName varchar(3) ) returns varchar(38) as begin declare 2@work varchar(200) declare @work2 varchar(200) declare @erg varchar(38) declare @l int declare @i int declare @char varchar(1) declare @GuidType int select3 @GuidType = dbo.QBM_FGIGuidIsValid(@GuidNonTransferable) if (@GuidType & 2 > 0 and LEFT(@GuidNonTransferable, 3) = @ModuleName ) or (@GuidType = 0  ) 4begin  select @erg = @GuidNonTransferable goto ende end if @GuidType = 1 begin  select @erg = concat(upper(@ModuleName) , '-' , replace(@GuidNonTransferable5, '-', '') ) goto ende end  if @GuidType & 2 > 0 and @GuidNonTransferable not like @Modulename + '-%' begin  select @erg = @GuidNonTransferable goto ende6 end  select @work2 = '' if @GuidNonTransferable like 'default%' begin select @work = replace(replace(replace(@GuidNonTransferable, 'default_', ''), 'default-'7, ''), 'default', '') select @i = 1 select @l = len(@work) while @i <= @l begin select @char = substring(@work, @i, 1) if @char like '[0-Z]'   begin select8 @work2 = concat(@work2 , @char) end else begin if @char = '_' or @char = '-' begin select @work2 = concat(@work2 , '-') end end select @i += 1 end select9 @erg = concat(upper(@modulename) , '-' , substring(@work2,1,32) ) goto ende end  select @work2 = '' if @GuidNonTransferable like @moduleName+'-%' begin10 select @work = substring(@GuidNonTransferable, 5, 33) select @i = 1 select @l = len(@work) while @i <= @l begin select @char = substring(@work, @i, 1)11 if @char like '[0-Z]'  begin select @work2 = concat(@work2 , @char) end else begin if @char = '_' or @char = '-' begin select @work2 = concat(@work2 ,12 '-') end end select @i += 1 end select @erg = concat(upper(@modulename) , '-' , substring(@work2,1,32) ) goto ende end else begin  select @i = 1 select13 @l = len(@GuidNonTransferable) while @i <= @l begin select @char = substring(@GuidNonTransferable, @i, 1) if @char like '[0-Z]'  begin select @work2 =14 concat(@work2 , @char) end else begin    select @work2 = concat(@work2 , replace(convert(varchar(200), convert(varbinary(100), @char, 0), 2), '3', '')15 ) end select @i += 1 end end while len(@work2) < 32 and len(@work2) > 0  begin select @work2 = concat(@work2 , @work2) end select @erg = concat(upper(@modulename16) , '-' , substring(@work2,1,32) ) ende: return(@erg) end 17