Cómo obtener mediante programación las definiciones de propiedades escritas en una clase

Preguntas frecuentes de InterSystems

La información sobre las propiedades definidas en una clase se puede obtener usando las siguientes clases del sistema:

%Dictionary.ClassDefinetion

%Dictionary.PropertyDefinition

El ejemplo de descripción del código es el siguiente.

Class ISJ.Sample
{
ClassMethod getPropInfo(classname As %String)
{
    set cls=##class(%Dictionary.ClassDefinition).%OpenId(classname,,.status)
    if $$$ISERR(status) {
        write "Specified class does nt exist",!
        quit
    }
    set x=cls.Properties
    for i=1:1:x.Count() {
        // Get property info (%Dictionary.PropertyDefinition)
        set prop=x.GetAt(i)
        if prop="" {
            continue
        }
        set propname=prop.Name // property name
        set proptype=prop.Type // property type
        if propname="" {
            continue
        }
        write propname," ",proptype,!
    }
}
}
ObjectScript
ObjectScript

Un ejemplo de ejecución sería:

USER>do ##class(ISJ.Sample).getPropInfo("Taxi.Driver")
DriverID %String
Name %String
Phone %String
ObjectScript
ObjectScript

Artículo relacionado: Cómo obtener todos los campos de una tabla con SQL