/*&uf('+7W225#1991'),&uf('+7W909#'),
&uf('+7W5#'),&uf('+7W16#'),
if v909<>'' then
&uf('+7U5#'(if p(v909) then
if v909^q=&uf('Ag225#1') then
if p(v909^d) and &unifor(|Kmhrvn.mnu\|v909^d)<>''then else
if v909^h:'Подш' then else
&uf('Ag225#1'),'=',|компл. |v909^k,| (|v909^d|)|,
if p(v909^f) then
if val(v909^f.1)=0 and (not('I X V 0':v909^f.1)) then' ' else
if &unifor('Av210^8#1')<>''then' '&unifor('Av210^8#1')' ' else ' т.'
fi fi,v909^f| | fi,
if p(v909^h) then | |+d909^h
if val(v909^h.1)=0 and (not(v909^h.1='0'))then' ' else
if &unifor('Av210^9#1')<>''then' '&unifor('Av210^9#1')' ' else' № '
fi fi fi,v909^h,| (|v909^v|)|
fi fi fi fi/)),
&uf('+7U16#'(if p(v909) then
if v909^h:'Подш' then
if v909^q=&uf('Ag225#1') then
if &uf('Ag5#1')='' then &uf('Ag225#1'),'='fi,|^Dв |v909^d
if &uf('Av423#1')=''
then &uf('D,!I='&uf(|Av903#1|d909),|/|v909^q,|/|v909^f,|/|v909^h'!,v936|: (номера |v931^c")"+|; |')
else &uf('7,?I='v909^p,if v909^p='' then &uf(|Av903#1|d909),|/|v909^q,|/|v909^f,|/|v909^h fi,'?,@Jwh_vlp')
fi fi fi fi/)),
fi,
if g5<>''
then &uf('+7U909#'(if g5 <>'' then
if &uf('+90')='1' then '^Q',mfn,&uf('G0='g5),'^B' else if g5<>'' then '; ' fi fi,&uf('G2='g5)
fi),
if g16<>'' then "
Есть переплетенные номера: ",|; |+g16^D fi)
else &uf('+7U909#'(if g16<>'' then
if &uf('+90')='1' then '^Q',mfn,&uf('G0='g16),'^BЕсть переплетенные номера: 'g16^D else |; |g16^D fi
fi)),
fi
/*(|g6: |g6|
|)
/*(|g16: |g16|
|),
/*(|g5: |g5|
|)
/*(|g909: |g909|
|)