Index: vhCARETAKER.mac.rou =================================================================== diff -u -r74116 -r74297 --- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 74116) +++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 74297) @@ -1317,6 +1317,25 @@ do OnError } quit + +OpkuisDataAfdrukkenVoorraadIdentificatie ; Verwijderen verkeerdelijk nog openstaande toeleveringen voor AfdrukkenVoorraadIdentificatie + try { + Do InitRuntimeContext + #dim ToeleveringsNr As %Integer + + SET ToeleveringsNr=$ORDER(^AfdrukkenVoorraadIdentificatie("")) + WHILE (ToeleveringsNr'="") { + Do DELOBJ^FLOWTOE3(ToeleveringsNr) + Kill ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringsNr) + Do ##class(vhLib.Logger).%New("VoorraadIdentificatie").Debug("Toelevering verwijderd", "Toelevering '"_ ToeleveringsNr _"' werd verwijderd in de context van voorraadidentificatie door de backgroundjob 'OpkuisDataAfdrukkenVoorraadIdentificatie'.") + SET ToeleveringsNr = $ORDER(^AfdrukkenVoorraadIdentificatie(ToeleveringsNr)) + } + + } + catch(Exceptie) { + do OnError + } + quit OnError