IterOverOrder

gistfile1.txt

 // Create an list
    Set data = ##class(%Library.ListOfDataTypes).%New()
    // Insert numbers from 0 to size
    
   	Set key = $Order(^Ens.Metrics("QueueMetric",1,"QueueLength",""))
   
    While (key '= "") {
     // Write out contents
     do data.Insert(^Ens.Metrics("QueueMetric",1,"QueueLength",key))
     // Find next node
     Set key = $Order(^Ens.Metrics("QueueMetric",1,"QueueLength",key))

 	}