Suppressing warning using TCL command

Hi,

How do I suppress a certain warning (say 10222) using a command in TCL script.

Suppress manager suppresses warning after Analysis and Elaboration is done.

But if I want to use a command in my TCL script so that such warnings are suppressed while doing Analysis and Elaboration, what command should I use ?

Thanks and Regards,

Bhargava