@fam := УД2
if УД16#"" then @fam := @fam<<@ENDOFLINE<<"("<<УД16<<")"
@name := УД3
if УД17#"" then @name := @name<<@ENDOFLINE<<"("<<УД17<<")"
@otch := УД4
if УД18#"" then @otch := @otch<<@ENDOFLINE<<"("<<УД18<<")"
@FIO:=@fam<<@ENDOFLINE<<@name<<@ENDOFLINE<<@otch<<@ENDOFLINE;
@ret:=@FIO;
 

@fam := УД2
@ret:=CAT(УД34_У1,
[
CAT(У12_УД, @fam1 := "("<<УД2<<")"
]
))
@name := УД3
@ret:=CAT(УД34_У1,
[
CAT(У12_УД, @name1 := "("<<УД3<<")"
]
))
@otch := УД4
@ret:=CAT(УД34_У1,
[
CAT(У12_УД, @otch1 := "("<<УД4<<")"
]
))
@FIO:=@fam<<@ENDOFLINE<<@fam1<<@ENDOFLINE<<@name<<@ENDOFLINE<<@name1<<@otch<<@ENDOFLINE<<@otch1;
@ret:=@FIO;
 

@RET := @fam1 := ÓÄ2
loop(ÓÄ34_Ó1,
Loop(Ó12_ÓÄ,
    @fam2:=ÓÄ2;
    if trim(@fam2)#"" then
      @a:=@a<<@ENDOFLINE<<"("<<@fam2<<")"
);
if trim(@a)#"" then
@RET:=@fam1<<trim(@ENDOFLINE@a));

@RET := @name1 := ÓÄ3
loop(ÓÄ34_Ó1,
Loop(Ó12_ÓÄ,
    @name2:=ÓÄ3;
    if trim(@name2)#"" then
      @b:=@b<<@ENDOFLINE<<"("<<@name2<<")"
);
if trim(@b)#"" then
@RET:=@name2<<trim(@ENDOFLINE@b));

@RET := @otch1 := ÓÄ4
loop(ÓÄ34_Ó1,
Loop(Ó12_ÓÄ,
    @otch2:=ÓÄ4;
    if trim(@otch2)#"" then
      @c:=@c<<@ENDOFLINE<<"("<<@otch2<<")"
);
if trim(@c)#"" then
@RET:=@otch2<<trim(@ENDOFLINE@c));

loop(ÓÄ22_ÃÐ,
loop(ÃÐ4_ÏÄ,
@d := ÏÄ6
@FIO:=@fam1<<@a<<@ENDOFLINE<<@name1<<@b<<@ENDOFLINE<<@otch1<<@c<<@ENDOFLINE<<@d;
@ret:=TRIM(SWAP(@FIO));
))
 

@fam:=Л12
@name:=Л13
@otch:=Л14
@f:=Л19_Л2
while @f do [
				userecord(Л2{@f}, loop(Л24_Л1,
				if @fam#Л12 then @fam1:=@fam1<<", "<<Л12;
				if @name#Л13 then @name1:=@name1<<", "<<Л13;
				if @otch#Л14 then @otch1:=@otch1<<", "<<Л14;
				@f:=Л19_Л2))
				]
if @fam1 then "("<<@fam1<<")"
if @name1 then "("<<@name1<<")"
if @otch1 then "("<<@otch1<<")"
@FIO:=@fam<<@fam1<<@ENDOFLINE<<@name<<@name1<<@ENDOFLINE<<@otch<<@otch1
@ret:=TRIM(SWAP(@FIO)) 

@fam:=ЛЦ1
@name:=ЛЦ2
@otch:=ЛЦ3
@f:=ЛЦ84_Л1
@arr:=valcount(@f)
@i:=1
while @arr>=@i do [
                     userecord(Л1{@f(@i)}, loop(Л13_ЛЦ,
                     if @fam#ЛЦ2 then @fam1(-1):=ЛЦ2;
                     if @name#ЛЦ3 then @name1(-1):=ЛЦ3;
                     if @otch#ЛЦ4 then @otch1(-1):=ЛЦ4)
			@i:=@i+1)
                   ]

if @fam1 then @fam1:=swap(char(40)<<@fam1<<char(41),@valueseparator,", ")
if @name1 then @name1:=swap(char(40)<<@name1<<char(41),@valueseparator,", ")
if @otch1 then @otch1:=swap(char(40)<<@otch1<<char(41),@valueseparator,", ")
@FIO:=@fam<<@fam1<<@ENDOFLINE<<@name<<@name1<<@ENDOFLINE<<@otch<<@otch1
@ret:=TRIM(@FIO) 

@fam:=ЛЦ1
@name:=ЛЦ2
@otch:=ЛЦ3
@f:=ЛЦ84_Л1
@i:=1
while valcount(ЛЦ84_Л1)>=@i do [
                     userecord(Л1{@f(@i)}, loop(Л13_ЛЦ,
                     if @fam#ЛЦ1 then @fam1:=ADDVALUECHECK(@fam1,ЛЦ1);
                     if @name#ЛЦ2 then @name1:=ADDVALUECHECK(@name1,ЛЦ2);
                     if @otch#ЛЦ3 then @otch1:=ADDVALUECHECK(@otch1,ЛЦ3);
							@s:=ЛЦ84_Л1
							@a:=1
							while valcount(ЛЦ84_Л1)>=@a do [
												userecord(Л1{@s(@a)}, loop(Л13_ЛЦ,
												if @fam#ЛЦ1 then @fam1:=ADDVALUECHECK(@fam1,ЛЦ1);
												if @name#ЛЦ2 then @name1:=ADDVALUECHECK(@name1,ЛЦ2);
												if @otch#ЛЦ3 then @otch1:=ADDVALUECHECK(@otch1,ЛЦ3))
												@a:=@a+1)
												])
                     @i:=@i+1)
                   ]

if @fam1 then @fam1:=swap(char(40)<<@fam1<<char(41),@valueseparator,", ")
if @name1 then @name1:=swap(char(40)<<@name1<<char(41),@valueseparator,", ")
if @otch1 then @otch1:=swap(char(40)<<@otch1<<char(41),@valueseparator,", ")
@FIO:=@fam<<@fam1<<@ENDOFLINE<<@name<<@name1<<@ENDOFLINE<<@otch<<@otch1
@ret:=TRIM(@FIO)