K ^Test.PrimGlD
	k ^CacheTempMorpho ;($j)
	if $g(init)# 2  {
		s rc=##class(%Text.Russian).DropDictionary()
		i rc s rc=##class(%Text.Russian).LoadDict("C:\Temp\folder\morphs.mrd") ;именно в таком порядке! ;AM01
		i rc s rc=##class(%Text.Russian).ExcludeCommonTerms( 1000 )
		k ^DictNew
		i 'rc 
		{
		i 'rc { d $system.OBJ.DisplayError(rc) } 
		q
		}
		w !,"Словари загружены"
	}
	if $g(init)\ 2 # 2  {
		s rc=##class(Test.PrimGl).%KillExtent() i 'rc 
		{
		i 'rc { d $system.OBJ.DisplayError(rc) } 
		q
		}
		w !,"Хранилище документов очищено"
	}

/*код создания глобала*/

ftload(init,folder) ; init# 2  - перезагружает словари ; init\ 2 # 2  - перезагружает документы. Т.е.:
			 ;  0  - ничего не делает со словарями, добавит в БД документы;
			 ;  1  - перезагрузит словари и добавит в БД документы, 
			 ;  2  - сотрет старое содержимое БД документов и добавит в БД документы
			 ;  3  - перезагрузит словари, сотрет старое содержимое БД документов и добавит в БД документы
			 ;
			 ; folder - каталог, где хранятся файл словаря morphs.mrd и тексты для загрузки в ft.doc
			 ;
			 ; NB! ^CacheTempMorpho стирается перед прогоном всегда! (он заполняется, если #%Text.Russian.DEBUG= 1 )
	i $g(folder)="" w !,"Каталог для загрузки словаря и/или текстов не задан" q
	s:$e(folder,$l(folder))'="\" folder=folder_"\"
	k ^CacheTempMorpho ;($j)
	if $g(init)#2 {
		s rc=##class(%Text.Russian).DropDictionary()
		i rc s rc=##class(%Text.Russian).LoadDict(folder_"morphs.mrd") ;именно в таком порядке! ;AM01
		i rc s rc=##class(%Text.Russian).ExcludeCommonTerms(1000)
		k ^DictNew
		i 'rc g fterrex
		w !,"Словари загружены"
	}
	if $g(init)\ 2 # 2  {
		s rc=##class(ft.doc).%KillExtent() i 'rc g fterrex
		w !,"Хранилище документов очищено"
	}
fterrex
	i 'rc { d $system.OBJ.DisplayError(rc) } 
	q 
/*код создания глобала*/