persistent 0 %Persistent 0 Res.Portal.Program Res.Portal.Program array %String 1 %String %String %Boolean 0 1 NTUserName 1 %String 1 Set {MakovaParamPiece}=##class(Res.Portal.MakovaUser).GetMakovaParamPiece({MakovaUser},{MakovaPassword}) 1 1 MakovaUser,MakovaPassword:%String %String MakovaUser,MakovaPassword:%String %String NTUserName:%String,DeleteCurrentProfile:%Boolean=1 SourceNTUserName:%String %Boolean %SQLQuery SELECT %ID,FullAccess,MakovaPassword,MakovaUser,NTUserName,MakovaParamPiece FROM Res_Portal.MakovaUser %Library.CacheStorage ^Res.Port.MakovaUserD MakovaUserDefaultData ^Res.Port.MakovaUserD ^Res.Port.MakovaUserI ^Res.Port.MakovaUserS listnode %%CLASSNAME NTUserName Name FullAccess MakovaPassword MakovaUser DefaultFavoriteProgram StdFavorProg aFavoriteProgs subnode "aFavoriteProgs"