dbo.CCC_VBScriptFind

SQL_STORED_PROCEDURE

Created 2026-04-14T14:19:32.380 · modified 2026-04-14T14:19:32.380 · source: live DB sys.objects/sys.sql_expression_dependencies.

Open formatted source/search result

Parameters

Name	Type	Output
`@vOld`	nvarchar	no

Referenced objects

Schema	Object	Class
	Dialogcolumn	OBJECT_OR_COLUMN
	DialogTable	OBJECT_OR_COLUMN
	QBM_PCursorDrop	OBJECT_OR_COLUMN
	QBM_PExecuteSQLWithRetry_LLP	OBJECT_OR_COLUMN
	QBM_PRollbackIfAllowed	OBJECT_OR_COLUMN
dbo	QBM_FGIErrorMessage_Code	OBJECT_OR_COLUMN

Source excerpt

First extracted SQL definition lines from the exported source. Use the full source page for complete context.

Open full formatted source

1CREATE procedure [dbo].[CCC_VBScriptFind] (@vOld nvarchar(255)) as
2begin
3
4 set nocount on
5
6 declare @old nvarchar(255)
7 declare @oldvgl nvarchar(255)
8BEGIN TRY
9
10
11 select @old = replace (@vold, N'''', N'''''')
12 select @oldvgl = replace(@old, N'[', N'[[]')
13
14 declare @cmdMuster  nvarchar(max)
15 select @cmdMuster = N'select * from  %TableName%  where %ColumnName% like N''%%oldvgl%%'''
16 
17 declare @SQLcmd nvarchar(max)
18
19 declare @tablename nvarchar(64)
20 declare @columnname nvarchar(64)
21 
22 DECLARE schr_VBNetCode CURSOR LOCAL FORWARD_ONLY FAST_FORWARD READ_ONLY FOR 
23    select t.TableName, c.ColumnName
24 from Dialogcolumn c
25 join DialogTable t on c.UID_DialogTable = t.UID_DialogTable
26 where SyntaxType like N'VB.%'
27  
28  OPEN schr_VBNetCode
29  FETCH NEXT FROM schr_VBNetCode into @tablename, @columnname 
30  WHILE (@@fetch_status <> -1)
31  BEGIN
32 print @tablename + N', ' + @columnname
33
34 select @SQLcmd = replace(@cmdMuster, N'%TableName%', @tablename) 
35    select @SQLcmd = replace(@SQLcmd, N'%ColumnName%', @ColumnName) 
36    select @SQLcmd = replace(@SQLcmd, N'%old%', @old) 
37    select @SQLcmd = replace(@SQLcmd, N'%oldvgl%', @oldvgl) 
38
39     -- exec QBM_PExecuteSQL @SQLcmd, @@procid
40     exec QBM_PExecuteSQLWithRetry_LLP @SQLcmd
41
42     FETCH NEXT FROM schr_VBNetCode INTO @tablename, @columnname 
43  END
44 close schr_VBNetCode
45 deallocate schr_VBNetCode
46
47END TRY
48BEGIN CATCH
49 declare @ErrorMessage nvarchar(4000)
50    declare @ErrorSeverity int
51    declare @ErrorState int
52
53 select @ErrorSeverity = ERROR_SEVERITY()
54    select @ErrorState = 1
55    select @ErrorMessage = dbo.QBM_FGIErrorMessage_Code(Substring(@SQLcmd,1,2000))
56
57 exec QBM_PCursorDrop N'schr_VBNetCode'
58 exec QBM_PRollbackIfAllowed
59
60 RAISERROR (@ErrorMessage, @ErrorSeverity, @ErrorState)  WITH NOWAIT
61END CATCH
62
63ende:
64 set nocount off
65 return                                                 
66
67 end
68
69

Module relation graph

Loading module relation graph…

Source-derived context

Generated from exported SQL module definitions plus read-only sandbox sys.objects/sys.parameters/sys.sql_expression_dependencies metadata. This is factual source evidence, not a semantic guess.

provenance: SQL definition export provenance: sandbox DB metadata modified: 2026-04-14T14:19:32.380

has TRY/CATCH error handling

Summary: calls QBM_PExecuteSQLWithRetry_LLP, QBM_PCursorDrop, QBM_PRollbackIfAllowed; reads/joins Dialogcolumn, DialogTable, schr_VBNetCode

Declared parameters

Parameter	Type	Direction
`@vOld`	`nvarchar(255)`	input

DML targets

None extracted.

Called routines

Read/join references

SQL dependency metadata

Config/session

Config: None extracted.

Session: None extracted.

DBQueue/tasks

None extracted.

Temp tables / referenced variables

Temp: None extracted.

Variables: @vOld @old @oldvgl @vold @cmdMuster @SQLcmd @tablename @columnname @fetch_status @ColumnName @ErrorMessage @ErrorSeverity @ErrorState

Referenced by / reverse dependencies

Generated from live DB metadata, FK rows, and exported SQL dependency/source extraction. This is factual linkage evidence, not inferred behavior.

No reverse dependencies extracted.