serial Default %Library.TMFormClass 60284,50652 60284,50651 %Library.TMForm %TMLabel %TMMenuItem %TMMenuItem %TMSpeedButton %TMButton %TMButton %TMButton %TMButton %TMComboBox %Library.TMButton %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMRichEdit initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal QueryID:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal QueryID:%Library.String="" cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal MaxTimeDiff Do ... Set MaxTimeDiff=$LG(Line,2) ... Set MaxTimeDiffQID=QueryID . Set Index=$G(aSorted(MaxTimeDiff),0)+1 . Set aSorted(MaxTimeDiff)=Index . Set aSorted(MaxTimeDiff,Index)=QueryID Set (MaxTimeDiff,Index)="" If +Sender=+..pmiMostExpensive Do . Do ..reLog.Lines.Add("Most expensive (maximum)") . Do ..reLog.Lines.Add("") . For Set MaxTimeDiff=$O(aSorted(MaxTimeDiff),-1) Quit:(MaxTimeDiff="") Do .. For Set Index=$O(aSorted(MaxTimeDiff,Index)) Quit:(Index="") Do ... Do ..reLog.Lines.Add($j(MaxTimeDiff,7,3)_" s: "_aSorted(MaxTimeDiff,Index)) Else Do . Do ..reLog.Lines.Add("Least expensive (maximum)") . Do ..reLog.Lines.Add("") . For Set MaxTimeDiff=$O(aSorted(MaxTimeDiff)) Quit:(MaxTimeDiff="") Do .. For Set Index=$O(aSorted(MaxTimeDiff,Index),-1) Quit:(Index="") Do ... Do ..reLog.Lines.Add($j(MaxTimeDiff,7,3)_" s: "_aSorted(MaxTimeDiff,Index)) ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal STRING EXEC %Library.CacheSerialState "%Library.TMFormClass" Address Form Label1 btnClose cbbQuery reLog fds btnClear btnClearAll btnRefreshcbbQuery SpeedButton1 pm pmViews pmiMostFreqUsed pmiLeastFreqUsed MenuItem1 MenuItem2 MenuItem3 MenuItem4 MenuItem5 pmiLeastExpensive pmiMostExpensive pmiLeastExpensiveAVG pmiMostExpensiveAVG