CWSCHADUW ;
 Quit
 
SCHADUW
 If $ZU(5)'="DEV-ADMIN1" Do
 . Write !,"Dit mag niet draaien op ",$ZU(5)
 Else  Do
 . Write @F11,@F1
 . Read !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,"Doorgaan ? Ja[] ",Ok
 . Quit:Ok'="Ja"
 . Write !,"Copieren ^KKL"
 . Set KlKey=0
 . For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Kill ^KKL(KlKey)
 . Set KlKey=0
 . For  Set KlKey=$O(^|"JRNL-ADMIN1"|KKL(KlKey)) Quit:KlKey=""  Merge ^KKL(KlKey)=^|"JRNL-ADMIN1"|KKL(KlKey)
 . Set ^KKL(0,1)=^|"JRNL-ADMIN1"|KKL(0,1)
 . Write !,"Copieren ^KK1"
 . Kill ^KK1
 . Merge ^KK1=^|"JRNL-ADMIN1"|KK1
 . Write !,"Copieren ^KLPUTZ"
 . Kill ^KLPUTZ
 . Merge ^KLPUTZ=^|"JRNL-ADMIN1"|KLPUTZ
 . Write !,"Copieren ^KSTKL"
 . Kill ^KSTKL
 . Merge ^KSTKL=^|"JRNL-ADMIN1"|KSTKL
 . Write !,"Copieren ^KSTPR"
 . Kill ^KSTPR
 . Merge ^KSTPR=^|"JRNL-ADMIN1"|KSTPR
 . Write !,"Copieren ^KPSG,^KPSG1"
 . Kill ^KPSG,^KPSG1
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPSG","^KPSG")
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPSG1","^KPSG1")
 . Write !,"Copieren ^KPGR,^KPGR1"
 . Kill ^KPGR,^KPGR1
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPGR","^KPGR")
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPGR1","^KPGR1")
 . Write !,"Copieren ^KPHG,^KPHG1"
 . Kill ^KPHG,^KPHG1
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPHG","^KPHG")
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KPHG1","^KPHG1")
 . Write !,"Copieren ^KLAS"
 . Kill ^KLAS
 . Do COPYBOOM^vhRtn1("^|""JRNL-ADMIN1""|KLAS","^KLAS")
 . Kill ^KPR1,^KPR2,^KPH,^KPM,^KPL
 . Write !,"Copieren ^KPR"
 . Set PRNr=0
 . For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .. If '$D(^|"JRNL-ADMIN1"|KPR(PRNr)) Kill ^KPR(PRNr) Quit
 .. For I=0:1:20 Kill ^KPR(PRNr,I) Merge ^KPR(PRNr,I)=^|"JRNL-ADMIN1"|KPR(PRNr,I)
 .. Set I="I"
 .. For  Set I=$O(^KPR(PRNr,I)) Quit:$E(I)'="I"  Kill ^KPR(PRNr,I)
 .. Set I="I"
 .. For  Set I=$O(^|"JRNL-ADMIN1"|KPR(PRNr,I)) Quit:$E(I)'="I"  Merge ^KPR(PRNr,I)=^|"JRNL-ADMIN1"|KPR(PRNr,I)
 .. Set J="J"
 .. For  Set J=$O(^KPR(PRNr,J)) Quit:$E(J)'="J"  Kill ^KPR(PRNr,J)
 .. Set J="J"
 .. For  Set J=$O(^|"JRNL-ADMIN1"|KPR(PRNr,J)) Quit:$E(J)'="J"  Merge ^KPR(PRNr,J)=^|"JRNL-ADMIN1"|KPR(PRNr,J)
 .. Kill ^KPR(PRNr,"G")
 .. Merge ^KPR(PRNr,"G")=^|"JRNL-ADMIN1"|KPR(PRNr,"G")
 .. Do BLDIND^PRODUKT2(PRNr)
 . Set PRNr=$O(^KPR(""),-1)
 . For  Set PRNr=$O(^|"JRNL-ADMIN1"|KPR(PRNr)) Quit:PRNr=""  Do
 .. For I=0:1:20 Merge ^KPR(PRNr,I)=^|"JRNL-ADMIN1"|KPR(PRNr,I)
 .. Set I="I"
 .. For  Set I=$O(^|"JRNL-ADMIN1"|KPR(PRNr,I)) Quit:$E(I)'="I"  Merge ^KPR(PRNr,I)=^|"JRNL-ADMIN1"|KPR(PRNr,I)
 .. Set J="J"
 .. For  Set J=$O(^|"JRNL-ADMIN1"|KPR(PRNr,J)) Quit:$E(J)'="J"  Merge ^KPR(PRNr,J)=^|"JRNL-ADMIN1"|KPR(PRNr,J)
 .. Merge ^KPR(PRNr,"G")=^|"JRNL-ADMIN1"|KPR(PRNr,"G")
 .. Do BLDIND^PRODUKT2(PRNr)
 .For I=1,"GLNR","HDNR","MAILCNT","PLNR","SGNR","TBXNR","TLMNR" Set ^KPR(0,I)=^|"JRNL-ADMIN1"|KPR(0,I)
 Quit