@Input_ColumnNumber integer 
AS SELECT DISTINCT dbo.Variables.ProgIDReference, dbo.ProgramAliases.AliasName AS ProgramName, dbo.Paths.PathStr, dbo.Occurrences.StartRow, dbo.Variables.IsCopy
FROM         dbo.Variables INNER JOIN
                      dbo.VariablePos ON dbo.Variables.VarID = dbo.VariablePos.VarId INNER JOIN
                      dbo.Occurrences ON dbo.Variables.OccurID = dbo.Occurrences.OccurID INNER JOIN
                      dbo.Paths ON dbo.Occurrences.PathID = dbo.Paths.PathID INNER JOIN
                      dbo.Programs ON dbo.Variables.ProgIDReference = dbo.Programs.ProgramID INNER JOIN
		dbo.ProgramAliases ON dbo.ProgramAliases.ProgramId = dbo.Programs.ProgramID
			AND dbo.ProgramAliases.AliasType = 0
WHERE     (dbo.Variables.iUsage = 3) 
	AND (dbo.VariablePos.UsageColumn IS NOT NULL) 
	AND (dbo.VariablePos.UsageColumn <> @Input_ColumnNumber) 
	AND (dbo.Programs.ProgramTypeID = 1)
	AND (dbo.VariablePos.UsageText = 'PACKED-DECIMAL') 
ORDER BY dbo.ProgramAliases.AliasName, dbo.Paths.PathStr, dbo.Occurrences.StartRow 