&uf('+1W56#' &uf('DRDR,|RI='v1002,'|,(|*|v56|*|)'),

ref(val(v1011),

&uf('+7W1#',(&uf('Pv910^d')/)), 

&uf('+7W5#'), 


/* Выбор свободного экземпляра
/* Пример g5=НБ^A99^B99АИСУ ПГУПС^A3000^B3000
(if p(g1) then &uf('+7W2#'),&uf('+7W2#',g1),&uf('6EXUVL'),fi/),

/*(g5/)


&uf('+1W4#',
        (
                if &uf('Kmhr_web.mnu\',&uf('G0^',g5))<>'' and p(g5^b) then 
                        &uf('G0^',g5)
                fi
        /)
),

/*(g4/)


&uf('+1W6#',(&uf('+1Omhrkv.mnu|',g4)/)),

if p(g6) then 
        &uf('+1W7#',(&uf('+1Okv.mnu|',g6)/)),
else
        &uf('+1W6#'(g4/))
        &uf('+1W7#',(&uf('+1Omhr_web.mnu|',g6)/)),
fi,


/* Исключаем неоригинальные значения 

&uf('+7G6'), 
&uf('+7G7'), 

/* Все кафедры в kv.mnu должны полностью соответствоать кафедрам mhrkv.mnu. Если этого нет, выводим ошибку. 

(if s(g6,g7)<>'' then 
        if a(g6) or a(g7) then  
                &uf('+1W6#DUMMY'#'DUMMY'#'DUMMY'),
                &uf('+1W7#Ошибка! Различный перечень '#' мест  хранения в kv.mnu и mhrkv.mnu,'#' или дублирование отделов! '),     
        fi, 
fi),


/* kv.mnu:
/* Аббревиатура кафедры выдачи
/* Полное название кафедры выдачи


/* mhrkv.mnu:
/* Место хранения
/* Полное название кафедры выдачи



(if p(g6) then 
       if &uf('+1R56'): s('*'g6'*') or &uf('+1R56')='' then 
               '<option value=','"',g6,'">',
                 g7
               '</option>',#
       fi,
fi), 
 


)