cwCopyAll
 
 If $ZU(5)'="DEV-ADMIN1" Write "ongeldige namespace moet 'DEV-ADMIN1' zijn !",! Quit
 
 Write !,"Copieren KLAS, PRODUCT, KLANT, FLOW-order, FLOW-bon, FLOW-toel, EWMS"
 Write !!,"Weet u zeker dat u wil doorgaan?"
 Write !,"[Doorgaan] = Doorgaan"
 Read !,R
 Quit:R'="Doorgaan"
 
 Do ^cA604
 Set NameSpace="JRNL-ADMIN1"
 
 Write "Delete KLAS",!
 Kill ^KPSG,^KPSG1,^KPHG,^KPHG1,^KPGR,^KPGR1,^KLAS
 
 Write "Copy KLAS",!
 Merge ^KPSG=^[NameSpace]KPSG
 Merge ^KPSG1=^[NameSpace]KPSG1
 Merge ^KPHG=^[NameSpace]KPHG
 Merge ^KPHG1=^[NameSpace]KPHG1
 Merge ^KPGR=^[NameSpace]KPGR
 Merge ^KPGR1=^[NameSpace]KPGR1
 Merge ^KLAS=^[NameSpace]KLAS
 
 Write "Delete PRODUCT",!
 Kill ^KPR1,^KPR2,^KPH,^KPM,^KPL,^PRSTOCK,^PRHIST
 Set PRNr=1000
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Kill ^KPR(PRNr)
 
 Write "Copy PRODUCT",!
 Set ^KPR(0,1)=^[NameSpace]KPR(0,1)
 Set PRNr=1000
 For  Set PRNr=$O(^[NameSpace]KPR(PRNr)) Quit:PRNr=""  Do BUILDPR
 Merge ^PRSTOCK=^[NameSpace]PRSTOCK
 Merge ^PRHIST=^[NameSpace]PRHIST
 
 Write "Delete KLANT",!
 Kill ^KK1,^PERS,^KLPUTZ
 Set KlKey=0
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Kill ^KKL(KlKey)
 
 Write "Copy KLANT",!
 Set ^KKL(0,1)=^[NameSpace]KKL(0,1)
 Set KlKey=0
 For  Set KlKey=$O(^[NameSpace]KKL(KlKey)) Quit:KlKey=""  Do BUILDKL
 Merge ^KK1=^[NameSpace]KK1
 Merge ^PERS=^[NameSpace]PERS
 Merge ^KLPUTZ=^[NameSpace]KLPUTZ
 
 Write "Delete FLOW-Order",!
 Kill ^KO1,^KO2,^KOB,^ORD
 Set KLNr=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Kill ^KOD(KLNr)
 
 Write "Copy FLOW-Order",!
 Set ^KOD(0,"F","UR")=^[NameSpace]KOD(0,"F","UR")
 Set KLNr=0
 For  Set KLNr=$O(^[NameSpace]KOD(KLNr)) Quit:KLNr=""  Merge ^KOD(KLNr)=^[NameSpace]KOD(KLNr)
 Merge ^KO1=^[NameSpace]KO1
 Merge ^KO2=^[NameSpace]KO2
 Merge ^ORD=^[NameSpace]ORD
 
 Write "Delete FLOW-Bon",!
 Kill ^KU1,^KU2,^KU3,^KUB,^BON
 Set KLNr=0
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Kill ^KUL(KLNr)
 
 Write "Copy FLOW-Bon",!
 Set ^KUL(0,"F","UR")=^[NameSpace]KUL(0,"F","UR")
 Set KLNr=0
 For  Set KLNr=$O(^[NameSpace]KUL(KLNr)) Quit:KLNr=""  Merge ^KUL(KLNr)=^[NameSpace]KUL(KLNr)
 Merge ^KU1=^[NameSpace]KU1
 Merge ^KU2=^[NameSpace]KU2
 Merge ^KU3=^[NameSpace]KU3
 Merge ^BON=^[NameSpace]BON
 
 Write "Delete FLOW-Toel",!
 Kill ^KTO1,^KTO2,^KTOB,^TO
 Set LEVNr=0
 For  Set LEVNr=$O(^KTO(LEVNr)) Quit:LEVNr=""  Kill ^KTO(LEVNr)
 
 Write "Copy FLOW-Toel",!
 Set ^KTO(0,"F","TR")=^[NameSpace]KTO(0,"TR")
 Set LEVNr=0
 For  Set LEVNr=$O(^[NameSpace]KTO(LEVNr)) Quit:LEVNr=""  Merge ^KTO(LEVNr)=^[NameSpace]KTO(LEVNr)
 Merge ^KTO1=^[NameSpace]KTO1
 Merge ^KTO2=^[NameSpace]KTO2
 Merge ^TO=^[NameSpace]TO
 
 Write "Delete FLOW-EWMS",!
 Kill ^ORDW,^RCP
 
 Write "Copy FLOW-EWMS",!
 Merge ^ORDW=^[NameSpace]ORDW
 Merge ^RCP=^[NameSpace]RCP
 
 Quit
 
BUILDPR
 For I=0:1:15 Merge ^KPR(PRNr,I)=^[NameSpace]KPR(PRNr,I)
 For I="I","J","G","W" Do
 . Set Key=I
 . For  Set Key=$O(^[NameSpace]KPR(PRNr,Key)) Quit:$E(Key)'=I  Merge ^KPR(PRNr,Key)=^[NameSpace]KPR(PRNr,Key)
 . If I'="I",I'="J" Quit
 . Set:$E($O(^KPR(PRNr,I)))=I ^KPR(PRNr,I)=""
 Do BLDIND^PRODUKT2(PRNr)
 Quit
 
BUILDKL
 For I=0:1:12 Merge ^KKL(KlKey,I)=^[NameSpace]KKL(KlKey,I)
 For I="L" Do
 . Set Key=I
 . For  Set Key=$O(^[NameSpace]KKL(KlKey,Key)) Quit:$E(Key)'=I  Merge ^KKL(KlKey,Key)=^[NameSpace]KKL(KlKey,Key)
 Quit