@fam:=ЛЦ1
@name:=ЛЦ2
@otch:=ЛЦ3
loop(ЛЦ84_Л1,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);
						loop(ЛЦ84_Л1,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);
												loop(ЛЦ84_Л1,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)))))))
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)