Klachten opvolging persistent VHOpslag %Library.Persistent 0 %SQLQuery Datum:%Date,DerdeType:%String = :Datum) and DerdeType=:DerdeType]]> %Library.Date 1 Set {*}=+{RegistratieTijdstip} 1 %Library.Date %Integer %Integer %Integer Derde.KlachtRegDocs children Klacht 1 Derde.KlachtBehandDocs children Klacht 1 %Library.Boolean Res.InternePersoon Sys.cTimeStampDisp %String %String %Library.Boolean %Library.Boolean %Library.Float Res.InternePersoon Sys.cTimeStampDisp %Library.String %Library.String %Library.String %Library.Integer %Library.Integer Res.InternePersoon Sys.cTimeStampDisp %Library.String %Library.String Res.InternePersoon %Library.String %Library.Integer 1 %Integer 1 1 %Library.Float 1 1 Verantw,VerantwGroep %String 1 Set {*}=##class(Derde.Klacht).VerantwOmsGet2({Verantwoordelijke},{VerantwGroep}) 1 %Library.String %Library.Date Res.InternePersoon Sys.cTimeStampDisp Index voor property Derde DerdeType,Derde,ID 1 Uniekheid index voor property KlachtID 1 1 ID 1 1 KlachtID:%String,Vertaald:%Boolean=0 0 %String 1 RechtZetType:%String %String 1 KlachtID:%String,SEP:%String %String expression SEP:%String=": " %String 0 Set Node="L" ; Nalevering ... Else If $P(ULRec,D,3)<0 Set Node="T" ; Terugname ... Quit:Node="" ... Set:'$G(Bon(Node)) $LI(..RechtZetTelling(Node),1)=$LG($G(..RechtZetTelling(Node)),1)+1 ... Set Bon(Node)=1 ... Set $LI(..RechtZetTelling(Node),2)=$LG($G(..RechtZetTelling(Node)),2)+1 Quit ]]> w ##class(Derde.Klacht).AantalKlachten("K",1051,$H-30,$H) 1 DerdeType:%String,Derde:%Integer,Van:%Date,Tot:%Date Tot . Set Aantal=Aantal+1 Quit Aantal ]]> 1 idxlist:%List="" 1 %Status 1 idxlist:%List="" 1 %Status insert:%Boolean 1 %Status %CacheSQLStorage ^Derde.KlachtS data ^KlachtD delimited {ID} "\" 25 "\" 26 "\" 27 "\" 28 "\" 10 "\" 22 "\" 3 "\" 2 "\" 1 "\" 23 "\" 24 "\" 5 "\" 4 "\" 9 "\" 6 "\" 20 "\" 21 "\" 30 "\" 31 "\" 11 "\" 7 "\" 8 "\" 32 "\" 33