void Func()
  {
    TMsgDlgButtons MSG  = mbYes + mbNo;
    try{
           ExecSql(“ALTER TABLE TEST DROM COLUMN ID”);
    } catch(…){
        if(MessageDlg("Продолжить выполнение процедуры?", mtConfirmation, MSG,  0 ) == mrNo) return;
      }
  ExecSql(“…”);
  …
}

if(MessageDlg("Продолжить выполнение процедуры?", mtConfirmation, MSG,  0 ) == mrNo) return;

ClassMethod Error(Message As %String) As %String
{
 n $ETRAP
 set $ETRAP="s $ZERROR="""_$G(Message)_""""  set $ECODE=",Uerror,"
}

ClassMethod ReturnSQLResultSet(Sql As %String) As %ResultSet
{
 n SQLCODE,result
 s result =##class(%ResultSet).%New()
 if result.Prepare(Sql) if result.Execute() Quit result
 if (SQLCODE <  0 ) {
    d result.Close() k result
    set CODETEXT = $SYSTEM.SQL.SQLCODE(SQLCODE)
    do ..Error("Error "_SQLCODE_": "_CODETEXT_";\nSQL: "_Sql)
 }
}

ClassMethod Exec(Sql As %String, Value As %String =  0 ) As %String
{
 n result s result = ..ReturnSQLResultSet(Sql)
 s Val = $G(Value) 
 if (Val =  0 ) goto END
 if (Val = "") goto END
 if result.Next() set Temp = $G(result.Data(Val))  quit Temp
 quit ""
END 
 k result Quit ""
}

ClassMethod SetMasterDetail(TableName As %String, MasterField As %String, DetailField As %String, RefTable As %String, ID As %String) [ Language = cache ]
{
 SET $ZTRAP="ERR1"
 set sql = "ALTER TABLE "_TableName_" DROP CONSTRAINT FKAUTO"_TableName   do ..Exec(sql, 0 )
ERR1
 SET $ZTRAP="ERR2"
 set sql = "DROP INDEX AUTOINDEX"_TableName  do ..Exec(sql, 0 ) 
ERR2
 SET $ZTRAP="ERR3"
 set sql = "ALTER TABLE "_TableName_" DROP COLUMN "_DetailField  do ..Exec(sql, 0 ) 
ERR3
 set sql = "ALTER TABLE "_TableName_" ADD COLUMN "_DetailField_" %Numeric"   do ..Exec(sql, 0 ) 
 ...
}