/// ФИО гражданина
/// <table>
/// <tr>
/// <td><b>Urn</b></td>
/// <td>Urn гражданина</td>
/// </tr>
/// <tr>
/// <td><b>Date</b></td>
/// <td>На какую дату (формат ODBC или хоролог)</td>
/// </tr>
/// <tr>
/// <td><b>Type</b></td>
/// <td>0-Ф|И|О, 1-фамилия, 2-имя, 3-отчество, 4-фамилия и инициалы, 5-инициалы и фамилия</td>
/// </tr>
/// </table>
ClassMethod name(Urn As %String, Date As %String, Type As %Integer) As %String [ SqlProc ]
{
	s:$g(Date)="" Date=+$h
	s Type=$g(Type)
	s:Date["-" Date=$zdh("2013-03-01",3)
	d $system.SQL.SetSelectMode(0)
	s sql="Select Top 1 * "
	s sql=sql_" From soi_arh_data_cls.name as a"
	s sql=sql_" Where a.parent in ("
	s sql=sql_"    Select b.urn"
	s sql=sql_"    From soi_arh_data.name as b"
	s sql=sql_"    Where b.citizen=?"
	s sql=sql_" )"
	s sql=sql_" And a.Dat<=?"
	s sql=sql_" Order by Dat desc"
	s o=##class(%ResultSet.SQL).%Prepare(sql,.err,"",Urn,Date)
	s name=""
	s dlm="|"
	if o.%Next() {
		s $p(name,dlm)=o.%Get("surname")
		s $p(name,dlm,2)=o.%Get("name")
		s $p(name,dlm,3)=o.%Get("patronymic")
	}
	k o
	q:Type=0 name
	q:Type>3 $$nameShort(Type-3)
	q:Type $p(name,dlm,Type)
	q $tr(name,dlm," ")
nameShort(Type) // Фимилия + инициалы
	s str=$p(name,dlm)
	s str1=""
	s val=$p(name,dlm,2)
	s:val'="" str1=$e(val)_"."
	s val=$p(name,dlm,3)
	s:val'="" str1=str1_$e(val)_"."
	i Type=1 s:str1'="" str=str_" "_str1
	i Type=2 s:str1'="" str=str1_" "_str
	q str
}