Что-то не пойму почему хранимая процедура возвращает пусто...
Есть такая процедурка/// ФИО гражданина
/// <table>
/// <tr>
/// <td><b>Urn</b></td>
/// <td>Urn гражданина</td>
/// </tr>
/// <tr>
/// <td><b>Date</b></td>
/// <td>На какую дату</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 %Date, Type As %Integer) As %String [ SqlProc ]
{
s:$g(Date)="" Date=+$h
s Type=$g(Type)
s sql="Select * "
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 ^tmp(Urn)=o
s name=""
s dlm="|"
if o.%Next() {
s ^tmp(Urn,1)=o.%Get("surname")
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
}
Нормально работает с командной строки
1.
2.
CHB>w ##class(soi.arh.data.citizen).name("ARD-2013-1")
ДЗЮБА РАИСА ИВАНОВНА
А в запросе возвращает пустоту (см.картинку)Select
soi_arh_data.citizen_name(urn) as fio,
*
From soi_arh_data.citizen
----------
Cache for Windows (x86-64) 2010.2.3 (Build 702) Tue Feb 15 2011 14:20:27 EST
Cache for Windows (x86-64) 2012.1.1 (Build 602) Wed Mar 7 2012 22:36:34 EST
