Index: PRLINK.mac.rou
===================================================================
diff -u -r734 -r1672
--- PRLINK.mac.rou	(.../PRLINK.mac.rou)	(revision 734)
+++ PRLINK.mac.rou	(.../PRLINK.mac.rou)	(revision 1672)
@@ -136,8 +136,8 @@
  If $L(R) Do
  .Do STORE^vhTERMINA()
  .Set HFCode=$P(R,D,4)
- .Set sFL(1)=$G(^PRBS("BS",PRNr,HFCode))
- .Set sFL(2)=$G(^PRBS("BS",PRNr,HFCode,"D"))
+ .Set sFL(1)=$G(^HADPR("P",PRNr,"HF",HFCode))
+ .Set sFL(2)=$G(^HADPR("P",PRNr,"HF",HFCode,"D"))
  .Quit:sFL(1)=""
  .Set HFPRNr=$P(sFL(1),D),Aantal=$P(sFL(1),D,2)
  .Set IsDim="PR"'[$P($G(^KPR(HFPRNr,15)),D,10)
@@ -147,11 +147,11 @@
  .Quit:'$G(%SC)
  .Set $P(sFL(1),D,5)=$G(sUser)
  .Set $P(sFL(1),D,6)=$H
- .;Set ^HADPR("P",PRNr,"HF",HFCode)=sFL(1)
- .;If IsDim,$TR(sFL(2),D,"")'="" Do
- .. ;Set ^HADPR("P",PRNr,"HF",HFCode,"D")=sFL(2)
- .;Else  Do
- .. ;Kill ^HADPR("P",PRNr,"HF",HFCode,"D")
+ .Set ^HADPR("P",PRNr,"HF",HFCode)=sFL(1)
+ .If IsDim,$TR(sFL(2),D,"")'="" Do
+ .. Set ^HADPR("P",PRNr,"HF",HFCode,"D")=sFL(2)
+ .Else  Do
+ .. Kill ^HADPR("P",PRNr,"HF",HFCode,"D")
  .Set R=$G(^HULP(%J,"L",List("SELECT")))
  .Set $P(R,D,1)=$P(sFL(1),D,1)
  .Set $P(R,D,3)=$P(sFL(1),D,2)
@@ -177,11 +177,11 @@
  Set IsDim="PR"'[$P($G(^KPR($P(sFL(1),D),15)),D,10)
  Set $P(sFL(1),D,5)=$G(sUser)
  Set $P(sFL(1),D,6)=$H
- ;Set ^HADPR("P",PRNr,"HF",HFCode)=sFL(1)
- ;If IsDim,$TR(sFL(2),D,"")'="" Do
- ;. Set ^HADPR("P",PRNr,"HF",HFCode,"D")=sFL(2)
- ;Else  Do
- ;. Kill ^HADPR("P",PRNr,"HF",HFCode,"D")
+ Set ^HADPR("P",PRNr,"HF",HFCode)=sFL(1)
+ If IsDim,$TR(sFL(2),D,"")'="" Do
+ . Set ^HADPR("P",PRNr,"HF",HFCode,"D")=sFL(2)
+ Else  Do
+ . Kill ^HADPR("P",PRNr,"HF",HFCode,"D")
  Set R=""
  Set $P(R,D,1)=$P(sFL(1),D,1)
  Set $P(R,D,2)=HFCode
@@ -199,7 +199,7 @@
  .Set HFCode=$P(R,D,4)
  .Set R=$$^vhTXTPOP("PRLINK","DELETEHF","",HFCode)
  .Quit:'R
- .;Kill ^HADPR("P",PRNr,"HF",HFCode)
+ .Kill ^HADPR("P",PRNr,"HF",HFCode)
  .Do DELETE^vhLISTE(.List)
  Quit
  
@@ -291,6 +291,7 @@
  ..Set R=^HULP(%J,"L",Next)
  ..Quit:R="&S"  Quit:'$P(R,D)
  ..Set KPRNr=$P($P(R,D),";"),Aantal=$P(R,D,3),OrgVerp=$P(R,D,4)
+ ..Quit:'Aantal
  ..Set R=Aantal_D_OrgVerp,^PRLINK("D",PRNr,KPRNr)=R
  ..Set Stock=$P(^KPR(KPRNr,0),D,14)/Aantal
  ..Set:MinStock>Stock MinStock=Stock
@@ -421,4 +422,12 @@
  Set AantKind=0,KPRNr=""
  For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Set R=^PRLINK("D",MPRNr,KPRNr),AantKind=AantKind+$P(R,D)
  Quit AantKind
+ 
+ ; Bepaal het aantal kinderen van een moeder
+AANTKIND2(MPRNr) 
+ New R,AantKind,KPRNr
+ Set AantKind=0,BSKey=""
+ For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Set R=^PRBS("BS",MPRNr,BSKey) Set:$P(R,"\",3)="K" AantKind=AantKind+$P(R,D,2)
+ Quit AantKind
+ 
  ;
\ No newline at end of file