Class %Dictionary.LegacyQuery

abstract class %Dictionary.LegacyQuery

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

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($piece($piece(CompiledProperty.Parameters,'CAPTION=',2),',',1),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,
$piece($piece(CompiledProperty.Parameters,'MAXLEN=',2),',',1) 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,
$piece($piece(Parameters,'CONTAINID=',2),',',1) AS ConatainId
FROM %Dictionary.CompiledQuery WHERE parent = :pClassName

This query is to supersede query %Library.CompiledQuery:QueryInfo


[BASEXML] > [%Dictionary] > [LegacyQuery]		Private Storage