Best Way to Split Class into Multiple Classes

For a handful of methods the manual method is likely the fastest... in case, you have a real big bunch of methods to copy put this "short" method into a class and let it run...

/// Transfer all or selected methods from a class into/// individual classes/// cls : the donor class/// list: list of methods to be transfered: "method1,method2,..."///       or empty to transfer all methodsClassMethod Transfer(cls, list = "")
{
    s old=##class(%Dictionary.ClassDefinition).%OpenId(cls)
    s:list]"" list=$lfs(list)
    
    i old {
        f i=old.Methods.Count():-1:1 {
            s met=old.Methods.GetAt(i)				// grab the next method
            i list]"",'$lf(list,met.Name) continue// skip if not to copysnew=old.%ConstructClone()				// duplicate old classs tmp=old.Name							// grab the old classnames$p(tmp,".",*)="Parts."_met.Name		// create a new classnamesnew.Name=tmp
            snew.Abstract=1// make the class abstractsnew.Super=""// remove all superclassess dup=met.%ConstructClone()				// duplicate the old methods dup.Name=met.Name						// but keep the old namednew.Properties.Clear()					// remove all propertiesdnew.Parameters.Clear()				// remove all parameters			dnew.Methods.Clear()					// remove all methodsdnew.Methods.Insert(dup)				// insert the copied method onlyd old.Methods.RemoveAt(i)				// Remove this method from old class
            i old.Super="" { sd="" } else { sd="," }
            s old.Super=old.Super_d_new.Name		// add the new class to extends-lists st=new.%Save()						// save the new classwnew.Name,"-->",$s(st:"OK",1:$system.Status.GetOneErrorText(st)),!
            // Possibly compile the class: do $system.OBJ.Compile(...)
            
        }
        s st=old.%Save()							// save the old classw old.Name,"-->",$s(st:"OK",1:$system.Status.GetOneErrorText(st)),!
        // Possibly compile...
    }