How to create a function that calls Symbolize from the Notation package

Questions
,
1

Hello,

I use Symbolize from the notation package to symbolize some expressions. When calling Symbolize twice it can happen that the same expression is not the same symbol anymore.
Is there a way to create a function that first checks whether an expression has already been symbolized before doing so.

My current Idea is doing something like this:

IsNotSymbolized[symbol_] := 
 If[StringCount[ToString[FullForm[symbol]], "UnderBracket"] > 0 || 
   NumericQ[symbol] || VectorQ[symbol] || MatrixQ[symbol] || 
   ArrayQ[symbol] || StringQ[symbol],
  False,
  True
  ]

Which is then use like this:

If[IsNotSymbolized[Subscript[S, R]], Symbolize[
ParsedBoxWrapper[
SubscriptBox["S", "R"]]], "Already Symbolized"]

Which actually looks like this:

mathematica1.png

I would like to put all this in one function that symbolizes if it hasn’t been already.

Kind Regards,
Mathias Breuss
[1]: /c/portal/getImageAttachment?filename=mathematica1.png&userId=248944

2

the missing image:

mathematica1.png