Parameter CATEGORY="TEST";

Parameter APPLICATION="CP";
ClassMethod OnPage() As %Status
{
    Quit 1
}

ClassMethod AppDescription()
{
    
    Q "test"
}

ClassMethod StoreIntoGBL() [ CodeMode = objectgenerator, GenerateAfter = OnAfterClassCompile ]
{
    Set class = %class.Name
    If ##class(%Dictionary.CompiledClass).%ExistsId(class){
        Do ..SaveList(class)
    }
    Quit $$$OK
}
/*
ClassMethod %OnCompile() [ CodeMode = objectgenerator, Internal ]
{
    Set class = %class.Name
    If ##class(%Dictionary.CompiledClass).%ExistsId(class){
        Do ..SaveList(class)
    }
    Quit $$$OK
}*/
ClassMethod SaveList(class)
{
    
    If ##class(%Dictionary.CompiledClass).%ExistsId(class) {
        Set applicationName  = $Parameter(class,"APPLICATION")
        Set:applicationName="" applicationName=class
        Set category  = $Parameter(class,"CATEGORY")
        set:category="" category="General"
        If $SYSTEM.CLS.IsMthd(class,"AppDescription") {
            Set description = $ClassMethod(class,"AppDescription")
        }
        S ^T(class)=$LB(applicationName,category,description)
    }
}

}