Index: PV2.mac.rou
===================================================================
diff -u -r762 -r948
--- PV2.mac.rou	(.../PV2.mac.rou)	(revision 762)
+++ PV2.mac.rou	(.../PV2.mac.rou)	(revision 948)
@@ -1,5 +1,5 @@
 PV2 ;Produkt duplicering ,# NIET VERWIJDEREN ;[ 10/08/2002  2:01 PM ]
-	If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
+ If ($ZU(5)'="DEV-ADMIN1")&&($ZU(5)'="TST-ADMIN1") Write "ongeldige namespace moet 'DEV-ADMIN1' of 'TST-ADMIN1'zijn !",! Quit
  d ^cA604
  S NameSpace="JRNL-ADMIN1"
  
@@ -29,9 +29,14 @@
  s PRNr=1000
  f  s PRNr=$O(^|NameSpace|KPR(PRNr)) Q:'PRNr  Do BuildKPR
  
+ Write "Copy HADPR(""P"")",!
+ Kill ^HADPR("P")
+ Merge ^HADPR("P")=^|NameSpace|HADPR("P") 
+ 
  Write "Copy bouwstenen",!
  Kill ^PRBS
  Merge ^PRBS("BS")=^|NameSpace|PRBS("BS")
+ Merge ^PRBS("BSS")=^|NameSpace|PRBS("BSS")
  Merge ^PRBS("IP")=^|NameSpace|PRBS("IP")
  
  Write "Copy kenmerken",!
@@ -91,6 +96,11 @@
 	. X "Merge ^"_GlobName_"=^[NameSpace]"_GlobName
 	. Write:I<$L(GlobList,";") ", "
 	Write !
+ 
+   Write "Copy HADPR",!
+   Kill ^HADPR
+   Merge ^HADPR=^|NameSpace|HADPR
+ 
 	Quit
 	
 KLANT