/// Класс-метод ВыдатьЭкземпляр класса <class>Библиотека.Экземпляр</class><br/>
/// Уменьшает счетчик имеющихся экземпляров книги на единицу<br/>
/// <var>КодЭкземпляра</var> - идентификатор Экземпляра Книги<br/>
/// Возвращает результат типа <a href="http://docs.intersystems.com/cache20122/csp/documatic/%25CSP.Documatic.cls?PAGE=CLASS&LIBRARY=%25SYS&CLASSNAME=%25Library.Status">%Status</a>
ClassMethod ВыдатьЭкземпляр(КодЭкземпляра As %String ) As %Status {
 
 s sc="" //В переменную [s]tatus [c]ode запишем результат открытия объекта

 // Пытаемся открыть объект, используя значение concurrency по умолчанию
 // http://docs.intersystems.com/cache20122/csp/docbook/DocBook.UI.Page.cls?KEY=GOBJ_concurrency
 
 // Переменную sc передаем в метод по ссылке -> .sc
 s Экземпляр=##class(Библиотека.Экземпляр).%OpenId(КодЭкземпляра,,.sc) 
 
 // Проверяем результат открытия объекта с укзанным идентификтором
 // Если результат не равен 1, выходим передавая ошибку
 Q:'sc sc
 
 // Проверяем корректность действия к открытому объекту
 if (Экземпляр.Выдан) { //если в экземпляре выставлена отметка о том, что он уже выдан

   k Экземпляр // закрываем открытый объект
   // Выходим, создавая общую ошибку приложения с поясняющим текстом
   Q $$$ERROR($$$GeneralError,"Экземпляр уже выдан") 

 }
 
 /// Основная логика метода 
 s Книга= Экземпляр.Книга // Через связь Экземпляр-Книга получаем доступ к связанному объекту Книга
 , Выдано=Книга.Выдано // и получаем значение свойства Выдано (Экземпляров) объекта Книга

 s Книга.Выдано=Выдано+1 // Увеличиваем счетчик выданных экземпляров в Книге
 , Экземпляр.Выдан=1 // и выставляем отметку в экземпляре, что его больше не выдавали

 /// Возвращаем результат сохранения Экземпляр с новым значением свойства
 /// При сохранении Экземпляра, автоматически сохранится и связанный с ним объект Книга
 Q Экземпляр.%Save()

}