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

SELECT SUM(OST) FROM PartiesGoods WHERE DrugsID->ExtCode = ?

insert into Real_INF 
select 
drugs->lastobj->fullname,
drugs->extcode,
$$GetOstByExtCode^InfUtils(drugs->extcode),
sum(Quantity),
sum(SumCenaRoz),
sum(SumCenaRoz)-sum(Quantity*CenaZak)
from docdata 
where daterec between "01/01/2007" and "03/01/2007" 
and destroyed= 0  
and docs->status1= 1 
and docs->doctype->tablename in ( 15 , 20 ) 
and kpr->extcode= 4  
group by drugs->lastobj->fullname, drugs->extcode

/// Тест
Class tmp.Test Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

/// Прибыл
Property Dat1 As %Date;

/// Убыл
Property Dat2 As %Date;

}

CREATE
 n
 s o=##class(tmp.Test).%New()
 s o.Dat1= 60266 
 s o.Dat2=+$h
 d o.%Save()
 d o.%Close()
 q

select
 *,
 Dat2-Dat1+ 1 
 from
 tmp.Test

GetOstByExtCode(Extcode)
 n (Extcode)
 ...