; *** Экспорт программ. Вызов:
 ; 
 ; $$Rexp([file],.rtns,[title])
 ; 
 ; На входе:
 ; file - имя файла для экспорта; умолчание: send.rsa;
 ; rtns - непрерывный текстовый массив - список экспортируемых программ; допустимы программы типа MAC, INT, и INC.
 ;        NB: rtns( 1 )=прогр_1,...,rtns(n)=прогр_n; значение rtns не используется.
 ; title - заголовок файла; умолчание: "Программы, экспортированные из "_$zu( 5 )_" "_$zd($h, 4 )
 ; 
 ; На выходе:
 ; код завершения =  1  - все нормально, иначе - были ошибки;
 ; ^%utility($j) - стерт (k ^%utility($j)).
 ; NB! начиная с Cache  5 . 1 : ^CacheTempJ($j) 
 ;
#define CacheVersion $p($p($zv,") ", 2 )," ", 1 ) 
 
Rexp(file,rtns,title) ; routine export
#if $$$CacheVersion'<5.1
 k ^CacheTempJ($j)
 i $d(rtns)>1 m ^CacheTempJ($j)=rtns
#else
 k ^%utility($j)
 i $d(rtns)>1 m ^%utility($j)=rtns
#endif 
 e  s rc="-1;Нечего экспортировать" g RexpQ
rexp ; rou export
 n TYPE,autoload,format,printf,rc,silent
 s TYPE="MAC"
 ; if autoload=1: 1) INT only! 2) to load: o file u file r xxx x xxx
 s file=$g(file,"send.rsa")_":(""NW"")",title=$G(title,"Программы, экспортированные из "_$zu(5)_" "_$zd($h,4)),format="Cache",printf=0,autoload=0,silent=1
#if $$$CacheVersion'< 5 . 1 
 s rc=$$rsave^%ZWr(TYPE,file,title,format,printf,autoload,silent)
 k ^CacheTempJ($j)
#else
 s rc=$$rsave^%Wr(TYPE,file,title,format,printf,autoload,silent)
 k ^%utility($j)
#endif 
RexpQ 
 q:$q rc q
 
  ; *** Импорт программ. Вызов:
 ; 
 ; $$Rimp(file[,selection][,over])
 ; 
 ; На входе:
 ; 
 ; file - имя файла для импорта; умолчание: send.rsa;
 ; 
 ; selection - импорт только избранных программ;
 ;   =  0  - нет, импортировать все (умолчание)
 ;   =  1  - да, импортировать избранные, которые должны быть занесены в глобал следующего вида:
 ;   ^%utility($j,rou,type)=<не важно, что>, где
 ;    rou - имя программы
 ;    type - тип (MAC, INT или INC);
 ; NB! начиная с Cache  5 . 1 : ^CacheTempJ($j,rou,type)
 ;    
 ; over - переписывать существующие;
 ;   =  2  - да (умолчание)
 ;   =  0  - нет, существующие программы переписаны не будут
 ; 
 ; На выходе:
 ; 
 ; код завершения =  1  - все нормально, иначе - были ошибки;
 ; ^%utility($j) очищен.
 ; NB! начиная с Cache  5 . 1 : ^CacheTempJ($j)
 ; 
 ; Программы импортируются с жестко заданными параметрами:
 ; - компилировать
 ; - синтаксис не проверять
 ; - версий MAC-программ не создавать
 ; - статус не показывать
 ; - режим языка = как сохранен в файле
 ; - pasting= 0  (?)
 ; 
Rimp(file,selection,over) ; routine import (?overwrite,?compile,no syntax checking,no MAC backup)
rimp
 n backup,compile,format,langmode,pasting,showstat,syntax
 s selection=$G(selection, 0 ),over=$G(over, 2 )
 s file=$g(file,"send.rsa"),format="Cache"
 s compile= 1 ,syntax= 0 ,backup= 0 ,showstat= 0 ,langmode="",pasting= 0 
#if $$$CacheVersion'< 5 . 1 
 s rc=$$rload^%ZWr(file,format,selection,over,compile,syntax,backup,showstat,langmode,pasting)
#else
 s rc=$$rload^%Wr(file,format,selection,over,compile,syntax,backup,showstat,langmode,pasting)
#endif 
 q rc