mpl,
if 'ASP AUNTD':v920 and (a(v910) or v910^a:'p')  then 
   (if p(v463) then '<br> ', if &unifor('Av463#2')<>'' then |<b> |v463^w| : </b> | fi, 
       if p(v463^w) then 
          if l(|I=|v463^w)>0 then 
              ref(l(|I=|v463^w), 
              if v910^a:'7' or 
                 rsum((if p(v910) then 
                          if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''then '0;' else 
                             if 'C U':v910^a then 
                                if p(v910^v) then 
                                   if val(v910^x,|1;|n910^x)-val(v910^z,|0;|n910^z) = val(v910^1) 
                                   then '0;' else|1;|d910^v fi 
                                 else |1;|d910^c fi 
                             else |1;|d910^c 
                       fi fi fi,'0;')) = 0 
              then 
                 if v910^a:'6' or p(v940) then '<br><b> ~~Все экземпляры списаны~~ </b> 'fi  
              else '<br><b>~~Имеются экземпляры в отделах~~: </b> ' 
                 if s(v905^d)<>''or &unifor('IPRIVATE,FPI,')<>''then 
                    (if p(v910) then 
                        if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''or 
                           v910^a:'U' and (p(v910^v) and val(v910^x,|1;|n910^x)-val(v910^z,|0;|n910^z) = val(v910^1)) 
                        then else '<br> ' 
                           if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,'))<>''then 
                              if p(v910^c)then v910^d, 
                                 if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'1'then
                                    ' ('v910^c*6.2'.'v910^c*4.2'.'v910^c.4'~~г.~~'fi, 
                                    if v910^a:'U'then| ~~Инв./УК~~ |v910^b else 
                                       if &uf('Av920#1'):'NJ' then | ~~Экз.~~ |v910^b else | ~~Инв.~~|v910^b fi 
                                    fi,| (~~колл.~~ |v910^q|)|,| (|v910^1| ~~экз.)~~|, 
                                    if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'3'then else ' - ',v910^e, 
                                       if val(v910^e)>0 then v910^L,
                                          if a(v910^L) and &unifor('Av10^c#1')<>''then &unifor('Av10^c#1') 
                                          else &unifor('Korg.mnu|3') 
                                       fi fi, 
                                       if a(v910^e) then &unifor('Av10^d#1'), 
                                       if val(&unifor('Av10^d#1'))>0 then 
                                          if &unifor('Av10^c#1')<>''then &unifor('Av10^c#1') 
                                          else &unifor('Korg.mnu|3') 
                                       fi fi, 
                                       if &unifor('Av10^d#1')=''then'~~Б.ц.~~'fi 
                                 fi fi, 
                                 if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'1'then |)|d910^c fi, 
                                 if v910^a:'1' then ' (~~выдан)~~' else 
                                    if v910^a:'0' then ' (~~свободен)~~' else 
                                       if v910^a:'U' then 
                                          if val(v910^2)=val(v910^1) then '~~Все экз-ры выданы~~' else 
                                             ' - ~~свободны~~ 'f(val(v910^1)-val(v910^2),0,0),
                                 fi fi fi fi
                    fi fi fi fi) 
                 else 
                    if rsum((if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''then else|1;|d910^c fi,'0;'))>0 
                    then ,EXU_H, 
              fi fi fi,'<br>'&uf('+7W100#'),&uf('+7W101#'),&uf('+7W102#'),
              (if &unifor(|Kmhrvn.mnu\|v910^d)=''then 
                  if v910^a:'p'then &uf('+7W910#'),&uf('+7W910#'v910^d),
                     | ~~Экз.~~ |v910^b,| (|v910^d|)|,' ~~переплетен~~ ',|(~~см.~~ |v910^p|)|, 
                     if &uf(|D,!I=|v910^p|!,(if p(v910) then if v910^d=&uf('Ag910#1') then v910^a fi fi)|):'0' 
                     then ' - c~~вободен~~<br>'else' - ~~занят~~<br>' 
                  fi fi,  
                  if '19':v910^a then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~занят~~<br>'fi, 
                  if 'U':v910^a and p(v910^c) and val(v910^2)= val(v910^1) then 
                     | ~~Все экз-ры~~ |v910^b,| (|v910^1,|-|v910^d|)|,' ~~заняты~~<br>' fi
                  if v910^a:'2'or 'CU':v910^a and a(v910^c) then &uf(|+7U100#|v910^d) fi,
                  if v910^a:'0'or v910^a:'U' and p(v910^c) and val(v910^1)>val(v910^2) then &uf(|+7U101#|v910^d) fi,
                  if v910^a:'C' and p(v910^c) then &uf(|+7U102#|v910^d) fi,
                  if v910^a:'3'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~в переплете~~<br>'fi, 
                  if v910^a:'4'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~утерян~~<br>'fi, 
                  if v910^a:'5'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~временно не выдается~~<br>' fi, 
                  if v910^a:'8'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~поступил, но еще не дошел до места хранения~~<br>'fi 
               fi)            
              if p(g100) then &uf('+7g100')," ~~Заказаны экз~~-~~ры для отделов~~: "g100+|, |,'<br>'fi,
              if g101='' and g102<>'' and 
                 rsum((if v910^a:'C' and p(v910^c) and &uf('Kmhrvn.mnu\'v910^d)=''then '1;' fi)) = 
                 rsum((if &uf('Kmhrvn.mnu\'v910^d)='' then |1;|d910^c fi)) 
              then '<b>~~Издания есть только в отделениях/филиалах~~</b><br>' fi,
              if p(v993) then'<br><b> ~~Копия~~: </b> ',(| ; |+d993,&unifor('G2='v993^a),
                 | ~~Шифр~~ |v993^b,| (|v993^d|)|)'<br>' fi, 
              "<b> ~~Нет сведений об экземплярах~~</b> "n910,
              ) 
          else |<b> ~~Нет сведений об экземплярах (Источник в БД не найден)~~</b> <br>|d463^w, 
          fi,  |<b> ~~Нет сведений об экземплярах (Нет сведений об источнике)~~</b> <br>|n463^w, 
       fi 
    else |<b> <br>~~Нет сведений об экземплярах (Источник в БД не найден)~~</b> <br>|d463^w, 
   fi) 
else    
   if v910^a:'7' or 
      rsum((if p(v910) then 
               if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''then '0;' else 
                  if 'C U':v910^a then 
                     if p(v910^v) then 
                        if val(v910^x,|1;|n910^x)-val(v910^z,|0;|n910^z) = val(v910^1) 
                        then '0;' else|1;|d910^v fi 
                     else |1;|d910^c fi 
                  else |1;|d910^c 
            fi fi fi,'0;')) = 0 
   then 
      if v910^a:'6' or p(v940) then '<br><b> ~~Все экземпляры списаны~~ </b> 'fi  
   else '<br><b>~~Имеются экземпляры в отделах~~: </b> ' 
      if s(v905^d)<>''or &unifor('IPRIVATE,FPI,')<>''then 
         (if p(v910) then 
             if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''or 
                v910^a:'U' and (p(v910^v) and val(v910^x,|1;|n910^x)-val(v910^z,|0;|n910^z) = val(v910^1)) 
             then else '<br> ' 
                if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,'))<>''then 
                   if p(v910^c)then v910^d, 
                      if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'1'then
                      ' ('v910^c*6.2'.'v910^c*4.2'.'v910^c.4'~~г.~~'fi, 
                      if v910^a:'U'then| ~~Инв./УК~~ |v910^b else 
                         if &uf('Av920#1'):'NJ' then | ~~Экз.~~ |v910^b else | ~~Инв.~~|v910^b fi 
                      fi,| (~~колл.~~ |v910^q|)|,| (|v910^1| ~~экз.)~~|, 
                      if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'3'then else 
                      ' - ',v910^e, 
                         if val(v910^e)>0 then 
                            if &unifor('Av10^c#1')<>''then &unifor('Av10^c#1') 
                            else &unifor('Korg.mnu|3') 
                         fi fi, 
                         if a(v910^e)then &unifor('Av10^d#1'), 
                            if val(&unifor('Av10^d#1'))>0 then 
                               if &unifor('Av10^c#1')<>''then &unifor('Av10^c#1') 
                               else &unifor('Korg.mnu|3') 
                            fi fi, 
                            if &unifor('Av10^d#1')=''then'~~Б.ц.~~'fi 
                     fi fi, 
                     if s(&unifor('Av905^d#1'),&unifor('IPRIVATE,FPI,')):'1'then |)|d910^c fi, 
                     if v910^a:'1' then ' (~~выдан)~~' else 
                        if v910^a:'0' then ' (~~свободен)~~' else 
                           if v910^a:'U' then 
                              if val(v910^2)=val(v910^1) then '~~Все экз~~-~~ры выданы~~' else 
                                 ' - ~~свободны~~ 'f(val(v910^1)-val(v910^2),0,0),
                     fi fi fi fi
         fi fi fi fi) 
      else 
         if rsum((if '2 6 7':v910^a or &unifor(|Kmhrvn.mnu\|v910^d)<>''then else|1;|d910^c fi,'0;'))>0 
         then ,EXU_H, 
   fi fi fi,'<br>'&uf('+7W100#'),
   (if &unifor(|Kmhrvn.mnu\|v910^d)=''then 
       if v910^a:'p'then &uf('+7W910#'),&uf('+7W910#'v910^d),
          | ~~Экз.~~ |v910^b,| (|v910^d|)|,' ~~переплетен~~ ',|(~~см.~~ |v910^p|)|, 
          if &uf(|D,!I=|v910^p|!,(if p(v910) then if v910^d=&uf('Ag910#1') then v910^a fi fi)|):'0' 
          then ' - c~~вободен~~<br>'else' - ~~занят~~<br>' 
       fi fi,  
       if '19':v910^a then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~занят~~<br>'fi, 
       if 'U':v910^a and p(v910^c) and val(v910^2)= val(v910^1) then 
          | ~~Все экз~~-~~ры~~ |v910^b,| (|v910^1,|-|v910^d|)|,' ~~заняты~~<br>' fi
       if v910^a:'2'or 'CU':v910^a and a(v910^c) then &uf(|+7U100#|v910^d) fi,
       if v910^a:'0'or v910^a:'U' and p(v910^c) and val(v910^1)>val(v910^2) then &uf(|+7U101#|v910^d) fi,
       if v910^a:'C' and p(v910^c) then &uf(|+7U102#|v910^d) fi,
       if v910^a:'3'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~в переплете~~<br>'fi, 
       if v910^a:'4'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~утерян~~<br>'fi, 
       if v910^a:'5'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~временно не выдается~~<br>' fi, 
       if v910^a:'8'then| ~~Экз.~~|v910^b,| (|v910^d|)|,' ~~поступил, но еще не дошел до места хранения~~<br>'fi 
   fi)            
   if p(g100) then &uf('+7g100')," ~~Заказаны экз~~-~~ры для отделов~~: "g100+|, |,'<br>'fi,
   if g101='' and g102<>'' and 
      rsum((if v910^a:'C' and p(v910^c) and &uf('Kmhrvn.mnu\'v910^d)=''then '1;' fi)) = 
      rsum((if &uf('Kmhrvn.mnu\'v910^d)='' then |1;|d910^c fi)) 
   then '<b>~~Издания есть только в отделениях/филиалах~~</b><br>' fi,
   if p(v993) then'<br><b> ~~Копия~~: </b> ',(| ; |+d993,&unifor('G2='v993^a),
      | ~~Шифр~~ |v993^b,| (|v993^d|)|)'<br>' fi, 
   "<b> ~~Нет сведений об экземплярах~~</b> "n910,
fi,