Class sys.users Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

Relationship dep As sys.department [ Cardinality = one, Inverse = usr ];

Index depIndex On dep;

Property name As %String;

Relationship access As sys.access [ Cardinality = many, Inverse = user ];

}

Class sys.access Extends %Persistent
{

Relationship user As sys.users [ Cardinality = one, Inverse = access ];

Index userIndex On user;

Relationship table As data.database [ Cardinality = one, Inverse = access ];

Index tableIndex On db;

}

Class data.database Extends %Persistent
{

Relationship access As sys.access [ Cardinality = many, Inverse = db ];

Property name As %String;

}