переделал процедуру вот так

GetOstByExtCode(code,kpr)
n res,ost,str
s ost = 0
s res = ##class(%ResultSet).%New()
s str = "SELECT SUM(OST) as Ost FROM PartiesGoods WHERE (DrugsID = ?) AND (KprID = ?)"
d res.Prepare(str)
d res.Execute(code,kpr)
d res.Next()
s ost=res.Data("Ost")
d res.Close()
q ost

результат остался тот же

и еще заметил вот что
когда используется эта функция в запрсе типа INSERT ошибка может выдаваться при вставке любой записи т.е. из этого можно сделать вывод что ошибка не во входных параметрах а в построении самой функции ... а где именно понять не могу...

есть аналогичная функция

ostbar(div,DrugsId,dat)
n que,str,ost,regi
s que=##class(%ResultSet).%New()
s str="SELECT ReggIID FROM PartiesGoods WHERE (KprID = ?) AND (DrugsID = ?)"
d que.Prepare(str)
d que.Execute(div,DrugsId)
s ost=0
f q:'que.Next() d
. s regi=que.Get("ReggIID") q:regi=""
. s ost=ost+$$ost(div,regi,dat)
d que.Close()
q ost

которая работает без ошибок

и почему эта ошибка повторяется только пи перезапуске каше ? если повторно вызывать запрос с этой функцией то ошибки нет.. где смысл не понятно :) мистика какая то

наконечто все решилось :)

вот рабочий код

GetOstByExtCode(Extcode,Kpr)
n (Extcode,Kpr,res,ost)
s ost = 0
s res = ##class(%Library.ResultSet).%New()
d res.Prepare("SELECT SUM(OST) FROM PartiesGoods WHERE (DrugsID = ?) and (Kprid=?)")
d res.Execute(Extcode,Kpr)
i res.Next() s ost=res.GetData(1)
d res.Close()
q ost

ключевая строчка - n (Extcode,Kpr,res,ost)