ChargeTrace 
 
RPLKL(KLNr)
 New %J,RS,Query,tmpStatus,LD,Count,TempDatum,TempProductNr,Input
 New Rec,ProductNr,ChargeID,Qty,Datum,ParentChargeTraceID,IsComposite,Level,OrderRef,CommRef,Leveringsbon,Factuur,FromComposite
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set Query="ProdHist.ChargeTrace:QGetChargeViaKlant"
 Set RS=##class(%ResultSet).%New(Query)
 Set tmpStatus=RS.Execute(KLNr) 
 Set Count=0,(TempDatum,TempProductNr)=""
 For  Quit:('RS.Next())  Do
 . Set ProductNr=RS.Data("ProductNr")
 . Set ChargeID=RS.Data("ChargeID")
 . Set Qty=RS.Data("Qty")
 . Set Datum=RS.Data("Datum")
 . Set Leveringsbon=RS.Data("Leveringsbon")
 . Set Factuur=RS.Data("Factuur")
 . Set FromComposite=RS.Data("FromComposite")
 . Set Rec=ProductNr_D_ChargeID_D_Qty_D_Datum_D_FromComposite_D_Leveringsbon_D_Factuur
 . Set Rec=Rec_D_$S(ProductNr=TempProductNr:$S(+Datum=TempDatum:"",1:ProductNr),1:ProductNr)_D_$S(+Datum=TempDatum:"",1:Datum)
 . If Count,+Datum'=TempDatum Set Count=Count+1,^HULP(%J,Count)="&S"
 . Set Count=Count+1,^HULP(%J,Count)=Rec
 . Set TempProductNr=ProductNr,TempDatum=+Datum
 
 Do INIT^vhLIST("CHARGETRACEID","LIJSTK",.LD)
 Do WRITE^vhLIST(.LD)
 For  Set (Input,U4)=$$SCROLL^vhLIST(.LD) Do  Quit:Input="-"
 . Do:Input="COM" CALL^vhMenu("CHARGETRK")
 . Do EXEC^vhMenu("CHARGETRK",.Input)
 Kill ^HULP(%J)
 Quit
 
RPLPR(PRNr)
 New %J,RS,Query,tmpStatus,LD,Count,TempDatum,TempKlantNr,Input
 New Rec,KlantNr,ChargeID,Qty,Datum,ParentChargeTraceID,IsComposite,Level,OrderRef,CommRef,Leveringsbon,Factuur,FromComposite
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set Query="ProdHist.ChargeTrace:QGetChargeViaProd"
 Set RS=##class(%ResultSet).%New(Query)
 Set tmpStatus=RS.Execute(PRNr) 
 Set Count=0,(TempDatum,TempKlantNr)=""
 For  Quit:('RS.Next())  Do
 . Set KlantNr=RS.Data("KlantNr")
 . Set ChargeID=RS.Data("ChargeID")
 . Set Qty=RS.Data("Qty")
 . Set Datum=RS.Data("Datum")
 . Set Leveringsbon=RS.Data("Leveringsbon")
 . Set Factuur=RS.Data("Factuur")
 . Set FromComposite=RS.Data("FromComposite")
 . Set Rec=KlantNr_D_ChargeID_D_Qty_D_Datum_D_FromComposite_D_Leveringsbon_D_Factuur
 . Set Rec=Rec_D_$S(KlantNr=TempKlantNr:$S(+Datum=TempDatum:"",1:KlantNr),1:KlantNr)_D_$S(+Datum=TempDatum:"",1:Datum)
 . If Count,+Datum'=TempDatum Set Count=Count+1,^HULP(%J,Count)="&S"
 . Set Count=Count+1,^HULP(%J,Count)=Rec
 . Set TempKlantNr=KlantNr,TempDatum=+Datum
 
 Do INIT^vhLIST("CHARGETRACEID","LIJSTP",.LD)
 Do WRITE^vhLIST(.LD)
 For  Set (Input,U4)=$$SCROLL^vhLIST(.LD) Do  Quit:Input="-"
 . Do:Input="COM" CALL^vhMenu("CHARGETRP")
 . Do EXEC^vhMenu("CHARGETRP",.Input)
 Kill ^HULP(%J)
 Quit