1 %RegisteredObject 0 Get a List of all Basetables and Views. %Query 1 1 %Status 1 %Status 0 { set Row=$lb($p(^mdd(1,%TableId,1),$c(1),17)_"."_$p($p(^mdd(1,%TableId,1),$c(1),1),$C(1,1))) set AtEnd = $order(^mdd(1,%TableId))'>0 } else { set AtEnd = 1 } QUIT $$$OK ]]> 1 %Status Get a List of all Basetables and Views. %Query 1 1 %Status 1 %Status 0 { set Row=$lb($p(^mdd(3,%ViewId,1),$c(1),12)_"."_$p($p(^mdd(3,%ViewId,1),$c(1),1),$C(1,1))) set AtEnd = $order(^mdd(3,%ViewId))'>0 } else { set AtEnd = 1 } QUIT $$$OK ]]> 1 %Status