List element names in a given model

static void ListElementsInModel(Args _args)
{
    SysModelElement     sysModelElement;
    SysModelElementData sysModelElementData;
    UtilElementType     elementType = UtilElementType::SharedProject;
    ModelRecId          modelIdFrom = 1662;    // ModelId source, SysModelStore::getModelId("ModelName", "ModelPublisher")
    
    while select sysModelElement
        where sysModelElement.ElementType == elementType
            && !(sysModelElement.Name like "*VK*")
            join sysModelElementData
                where sysModelElementData.ModelElement  == sysModelElement.RecId
                    &&sysModelElementData.ModelId       == modelIdFrom
    {
        info(sysModelElement.Name);
    }
}