persistent 0 %Persistent 0 %String 1 %String 1 %Boolean 0 Res.Portal.Location 1 %String %String %Integer %Integer %Boolean 0 %String %Boolean 1 %String 1 Set {MakovaParamPiece}=##class(Res.Portal.Program).GetMakovaParamPiece({ProgramName},{IsProject},{ExtraMakovaParamPiece}) 1 1 ProgramName,IsProject,ExtraMakovaParamPiece:%String %String ProgramName,IsProject,ExtraMakovaParamPiece:%String %String DestLocationID:%String NS:%Library.String %SQLQuery Caption As LocationCaption,GroupNr FROM Res_Portal.Program ORDER BY Location->VolgNr,GroupNr,VolgNr]]> %SQLQuery paLocation:%String Caption As LocationCaption,GroupNr FROM Res_Portal.Program WHERE (Location=:paLocation) AND (Active=1) ORDER BY GroupNr,VolgNr]]> %Library.CacheStorage ^Res.Port.ProgramD ProgramDefaultData ^Res.Port.ProgramD ^Res.Port.ProgramI ^Res.Port.ProgramS listnode %%CLASSNAME Name IsProject ProgramName Location Icon MakovaParamPiece ExtraMakovaParamPiece Active GroupNr VolgNr Busy BusyStr