persistent 1 %Persistent 0 %String 1 %String 1 %String 1 %String 1 %String %String %String %String %String %String 1 1 Type,IDNr,VolgNr 1 1 pool:%String,type:%String,idNr:%String,taal:%String,weekDagen:%String,vanUur:%String,totUur:%String %String 3:3,1:$L(pool,";")) Do . Quit:$P(pool,";",I)="" . Set IPNr=$G(^vhUSER("II",$P(pool,";",I))) . Set:IPNr="" Error="Niet gevonden pool : "_$P(pool,";",I) . Quit:IPNr="" . Set PoolList=PoolList_$LB(IPNr) set anItem.Pool = $Get(PoolList) Set Status=anItem.%Save() If $$$ISERR(Status) Quit $$ParseStatus^vhLib(Status) Quit ]]> 1 %String 1 type:%String,idNr:%String %Integer %Library.CacheStorage ^Derde.TAPI.PoolItemD PoolItemDefaultData ^Derde.TAPI.PoolItemD ^Derde.TAPI.PoolItemI ^Derde.TAPI.PoolItemS %%CLASSNAME Dagen Pool Taal TotUur VanUur IDNrDescr PoolDescr