Index: PERS2.mac.rou
===================================================================
diff -u -r1032 -r1343
--- PERS2.mac.rou	(.../PERS2.mac.rou)	(revision 1032)
+++ PERS2.mac.rou	(.../PERS2.mac.rou)	(revision 1343)
@@ -3,144 +3,6 @@
 TNODEK ;AB:2.11;AK:2.12;VK:2.13;BH:2.14;TE:3.4;PR:3.5;AA:6.1;x1:6.2;x2:6.3;x3:6.4;x4:6.5;x5:6.6
 TNODEL ;AB:2.11;AK:2.12;VK:2.13;BH:2.14;TE:3.4;PR:3.5;x1:6.1;VA:6.2;x2:6.3;x3:6.4;x4:6.5;x5:6.6
  
-CONV2OLD(ObjType,ObjRef) ;Conversie van de ^PERS naar ^KKL
- q
- Quit:ObjType'="K"  ; Leveranciers worden NIET geconverteerd !
- Set PersNr=""
- Set KLId=$G(^KK1(ObjRef))
- Quit:'$L(KLId)
- ; Opbouw hulp struktuur
- Set Nodes=$P($T(TNODEK),";",2,99)
- For I=1:1:$L(Nodes,";") Do
- .Set VA($P($P(Nodes,";",I),":",1))=$P($P(Nodes,";",I),":",2)
- ; Conversie 
- Set Unknown=0
- For  Set PersNr=$O(^PERS(ObjType,ObjRef,PersNr)) Quit:PersNr=""  Do
- .Set Rec=^PERS(ObjType,ObjRef,PersNr)
- .Set Type=$P(Rec,D,5)
- .Set Naam=$P(Rec,D,2)_$S($L($P(Rec,D,3)):" "_$P(Rec,D,3),1:"")
- .If $P($G(VA(Type),D_1),D,2)'="" Do
- ..Set Unknown=Unknown+1
- ..Set Type="x"_Unknown
- .Quit:'$D(VA(Type))
- .Set $P(VA(Type),D,2)=Naam
- ;Opslaan in ^KKL
- Set Type=""
- For  Set Type=$O(VA(Type)) Quit:Type=""  Do
- .Set Node=$P(VA(Type),D)
- .Set $P(^KKL(KLId,$P(Node,".")),D,$P(Node,".",2))=$P(VA(Type),D,2)
- Quit
- 
-CONV2NEW ;Eenmalige routine voor de conversie van de ^KKL en ^LEV geg. naar ^PERS
- Set %J=$$%J^vhRtn1()
- ; Klanten
- Set KLId=0
- For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
- .Set KLNr=$P(^KKL(KLId,0),D)
- .Do CONV2KL(KLNr)
- ; Leveranciers
- Set LEId=0
- For  Set LEId=$O(^KLE(LEId)) Quit:LEId=""  Do
- .Set LEVNr=$P(^KLE(LEId,0),D)
- .Do CONV2LE(LEVNr)
- Quit
- 
-CONV2KL(KLNr,Ask) 
- Set ObjType="K"
- Set Cnt=0
- Kill ^HULP(%J)
- Set KLId=^KK1(KLNr)
- Write !,KLNr,$P(^KKL(KLId,0),D,2)
- Set Nodes=$P($T(TNODEK),";",2,99)
- B:KLNr=11708
- For I=1:1:$L(Nodes,";") Do
- .Set Node=$P($P(Nodes,";",I),":",2)
- .Set Type=$P($P(Nodes,";",I),":",1)
- .Set:Type["x" Type="XX"
- .Set VA=$P(^KKL(KLId,$P(Node,".")),D,$P(Node,".",2))
- .;W !,I," ",Node," ",VA
- .Set TRIMVA=$$UPTRIMAN^vhRtn1(VA)
- .Quit:TRIMVA=""
- .Set Rec=""
- .Set $P(Rec,D,5)=Type
- .Set UPVA=$$UPCASE^vhRtn1(VA)
- .Set Aanspr=$P(UPVA," ")
- .Set:$E(Aanspr,$L(Aanspr))="." $E(Aanspr,$L(Aanspr))=""
- .Set:Aanspr="H&H" Aanspr="DHR"
- .Set:Aanspr="DHRN" Aanspr="DHR"
- .Set:Aanspr="MR" Aanspr="DHR"
- .Set:Aanspr="MEV" Aanspr="MVR"
- .Set:Aanspr="MEVR" Aanspr="MVR"
- .If $L(Aanspr),$D(^RES("PERS","PI","AANSPR","D",Aanspr)) Do
- ..Set Naam=$P(VA," ",2,99)
- ..Quit:'$L(Naam)
- ..Set $P(Rec,D,2)=Naam
- ..Set $P(Rec,D,4)=Aanspr
- .Else  Set $P(Rec,D,2)=VA
- .Lock +^PERS("N")
- .Set UniNr=^PERS("N")+1
- .Set ^PERS("N")=UniNr
- .Set $P(Rec,D)=UniNr
- .Lock -^PERS("N")
- .Set Cnt=Cnt+1,^HULP(%J,"L",Cnt)=Cnt
- .Set SelKey=$$SORTKEY^PERS(Cnt,Rec)
- .Set ^HULP(%J,"S",SelKey)=Cnt
- .Set ^HULP(%J,"P",Cnt)=Rec
- .W !,"    ",Rec
- d:KLNr=11708 ^%G
- Q:'Cnt
- Set Modif=1
- Set ObjRef=KLNr
- Do SAVE^PERS
- Quit
- 
-CONV2LE(LEVNr,Ask) 
- Set ObjType="L"
- Set Cnt=0
- Kill ^HULP(%J)
- Set LEVId=^KL1(LEVNr)
- Write !,LEVNr," ",$P(^KLE(LEVId,0),D,2)
- Set Nodes=$P($T(TNODEL),";",2,99)
- For I=1:1:$L(Nodes,";") Do
- .Set Node=$P($P(Nodes,";",I),":",2)
- .Set Type=$P($P(Nodes,";",I),":",1)
- .Set:Type["x" Type="XX"
- .Set VA=$P(^KLE(LEVId,$P(Node,".")),D,$P(Node,".",2))
- .;w !,VA
- .Set TRIMVA=$$UPTRIMAN^vhRtn1(VA)
- .Quit:TRIMVA=""
- .Set Rec=""
- .Set $P(Rec,D,5)=Type
- .Set UPVA=$$UPCASE^vhRtn1(VA)
- .Set Aanspr=$P(UPVA," ")
- .Set:$E(Aanspr,$L(Aanspr))="." $E(Aanspr,$L(Aanspr))=""
- .Set:Aanspr="H&H" Aanspr="DHR"
- .Set:Aanspr="DHRN" Aanspr="DHR"
- .Set:Aanspr="MR" Aanspr="DHR"
- .Set:Aanspr="MEV" Aanspr="MVR"
- .Set:Aanspr="MEVR" Aanspr="MVR"
- .If $L(Aanspr),$D(^RES("PERS","PI","AANSPR","D",Aanspr)) Do
- ..Set Naam=$P(VA," ",2,99)
- ..Quit:'$L(Naam)
- ..Set $P(Rec,D,2)=Naam
- ..Set $P(Rec,D,4)=Aanspr
- .Else  Set $P(Rec,D,2)=VA
- .Lock +^PERS("N")
- .Set UniNr=^PERS("N")+1
- .Set ^PERS("N")=UniNr
- .Set $P(Rec,D)=UniNr
- .Lock -^PERS("N")
- .Set Cnt=Cnt+1,^HULP(%J,"L",Cnt)=Cnt
- .Set SelKey=$$SORTKEY^PERS(Cnt,Rec)
- .Set ^HULP(%J,"S",SelKey)=Cnt
- .Set ^HULP(%J,"P",Cnt)=Rec
- .W !,"    ",Rec
- Q:'Cnt
- Set Modif=1
- Set ObjRef=LEVNr
- Do SAVE^PERS
- Quit
- 
 CORR Set KLId=0
  Set Nodes=$P($T(TNODEK),";",2,99)
  For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do  ;Quit