MOUNT()                              ; Проверить на наличие и монтирование
 N obl,obls,dir
 ; PathMK определяется в SERVER^AMCL
 s dir=PathMK
 S dir=dir_"\"
 s:$$UNIX^ACACHE dir="/cachebd/bdmcl/"
 i '$$Exists D Osh^POCHDI("Нет доступа к мобильному клиенту!","В "_dir_" нет файла БД") q ""
 S obl="^^"_dir
 S $ET="D ERRMNT^ACACHE1",$EC=""
 S obls=$ZU(5)
 I $zu(17,dir,0,0)'= 1  ZT "NODB"
 I obl="" S $ET="D ^AERROR",$EC="" Q ""
 i '##class(%File).Exists(dir_"CACHE.lck") ZT "NOUNM"
 ;I $ZU(140,1,dir_"cache.lck")'> 0  ZT "NOUNM"
 I obl="" S $ET="D ^AERROR",$EC="" Q ""
 zn "%SYS"
 s res=##class(SYS.Database).DismountDatabase(dir)
 s res=##class(SYS.Database).MountDatabase(dir, 0 )
 zn obls  
 ZT:'res "CLS"
 s ^|obl|testmcl=""
 ZN obl
 S $ET="D ^AERROR",$EC=""
 ZN obls
 Q obl
Exists()                           ; Есть файл с БД
 n ok
 s ok=##class(%File).Exists(dir_"CACHE.DAT")
 q ok

ERRMNT                             ; Обработка ошибки при
 n err,str,tit
 s err=$ZE
 s err=$P(err,"<", 2 )
 s err=$P(err,">")
 s str="" 
 s tit="Примонтировать том не удалось!"
 i err["NODB" s str="нет файла: "_$E(obl, 3 ,$L(obl))
 i err["NOUN" s str="файл примонтирован клиентом"
 i str="" s str="неизвестная ошибка "_$ZE
 i err["CLS" {
 	s str=$zcvt($system.Status.GetErrorText($G(%objlasterror)),"O","CP866")
  zn "%SYS"
  d ##class(SYS.Database).DismountDatabase(dir)
  zn obls
 }
 i err["PROT" s tit="БД смонтирована в режиме только для чтения" s str="" 
 D Osh^POCHDI(tit,str)
 S obl=""
 S $EC=""
 Q 

i err["PROT" //...