TECH.RegisteredObject TECH.ResultSet 1 %Date 1 TECH.ResultSetIterator 1 AXimpl.SqlQueryConnection 1 1 1 %Status 1 FirstDate:%String,LastDate:%String 1 '7.777.777.7' " Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement) } ]]> ItemID:%String,LoopCnt:%Integer=0 PRNr:%String,LoopCnt:%Integer=0 ",AltItemID," ",PRNr," -> ",AltPRNr,! If PRNr,AltPRNr { Set ^APPS.AltItemID("I",ItemID)=$lb(AltItemID,..RefDate) Set ^APPS.AltItemID("P",PRNr)=$lb(AltPRNr,..RefDate) } } } ; Opkuis oude Alternatieve Set ItemID=$O(^APPS.AltItemID("I","")) While ItemID'="" { if $LI(^APPS.AltItemID("I",ItemID),2)'=..RefDate { Kill ^APPS.AltItemID("I",ItemID) } Set ItemID=$O(^APPS.AltItemID("I",ItemID)) } ; Opkuis oude Alternatieve Set PRNr=$O(^APPS.AltItemID("P","")) While PRNr'="" { if $LI(^APPS.AltItemID("P",PRNr),2)'=..RefDate { Kill ^APPS.AltItemID("P",PRNr) } Set PRNr=$O(^APPS.AltItemID("P",PRNr)) } ]]> 1 1 %Status 1