persistent class %BI.CodeTable
extends %Persistent
property Code
as %String(TRUNCATE=1);
property Data
as %List;
property Type
as %String(TRUNCATE=1);
query ByType(Type As %String)
SQL Query
:
SELECT Code,Data FROM CodeTable
WHERE (Type = :Type)
ORDER BY Code
query TypeAll()
SQL Query
:
SELECT %ID,Type FROM CodeTable GROUP BY Type
index (MainIndex on Type,Code) [IdKey,Unique];