Learning
Documentation
Community
Open Exchange
Global Masters
Home / Class Reference / ENSLIB namespace / %Dictionary.LegacyQuery
Private  Storage   

%Dictionary.LegacyQuery


abstract class %Dictionary.LegacyQuery

This class contains SQL queries to replace old queries in %Library.ClassDefinition et al. classes.

Inventory


Parameters Properties Methods Queries Indices ForeignKeys Triggers
3


Summary


This class has no methods or properties.

Queries


• query CompiledIndexInfo(pClassName As %String)
Selects Name As %String, Attributes As %String, Type As %String, PrimaryKey As %Integer, Unique As %Integer
SQL Query :
SELECT Name,
Properties AS Attributes,
CASE WHEN IdKey = 1 THEN 'idkey' WHEN Extent = 1 THEN 'extent' ELSE Type END AS Type,
PrimaryKey,
_Unique
FROM %Dictionary.CompiledIndex WHERE parent = :pClassName
This query is to supersede query %Library.CompiledClass:IndexInfo
• query CompiledPropertyInfo(pClassName As %String)
SQL Query :
SELECT CompiledProperty.Name AS PropertyName,
CASE WHEN TypeClass.ClassType = 'datatype' THEN 1 ELSE 0 END AS Datatype,
CompiledProperty.Type,
CompiledProperty.Collection,
coalesce(%Dictionary.GetParameterValue(CompiledProperty.Parameters,'CAPTION'),CompiledProperty.Name) AS Caption,
CASE WHEN TypeClass.ClassType = 'serial' THEN 1 ELSE 0 END AS Serial,
CASE WHEN CompiledProperty.Calculated = 0 THEN 1 WHEN ( SetMethod.Runnable <> 0 OR SetMethod.Stub IS NOT NULL ) THEN 1 ELSE 0 END AS Editable,
%Dictionary.GetParameterValue(CompiledProperty.Parameters,'MAXLEN') AS MaxLen,
CompiledProperty.Required,
CASE WHEN TypeClass.ClassType = 'stream' THEN TypeClass.ClientDataType ELSE NULL END AS Stream
FROM %Dictionary.CompiledProperty AS CompiledProperty
LEFT OUTER JOIN %Dictionary.CompiledMethod AS SetMethod ON CompiledProperty.Parent = SetMethod.Parent AND SetMethod.Name = ( CompiledProperty.Name || 'Set' )
LEFT OUTER JOIN %Dictionary.CompiledClass AS TypeClass ON CompiledProperty.Type = TypeClass.Name
WHERE CompiledProperty.parent = :pClassName
AND CompiledProperty.Private = 0
This query is to supersede query %Library.CompiledProperty:PropertyInfo
• query CompiledQueryInfo(pClassName As %String)
Selects Name As %String, ContainId As %String
SQL Query :
SELECT Name AS Name,
%Dictionary.GetParameterValue(Parameters,'CONTAINID') AS ContainId
FROM %Dictionary.CompiledQuery WHERE parent = :pClassName
This query is to supersede query %Library.CompiledQuery:QueryInfo