TECH.RegisteredObject %b)&&(%v<%e) set Global = "^TRANSP" for { set Global = $q(@Global) q:Global="" if ( $ql(Global)=4) && ( $P(@Global,"\",1)=12958) && ( $$$InRange($zd($P(@Global,"\",10),8),20100101,20160101)) { W !,$zd($P(@Global,"\",10),8)," ",Global if $data(@Global@("DistributeurDataIDs")) { set Items = @Global@("DistributeurDataIDs") set lbIterator = ##class(TECH.ListbuildIterator).%New(Items) while lbIterator.HasNext() { set Item = lbIterator.Next() set O = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%OpenId(Item) write " "_O.Referentie } } } } ]]>