Index: PRKLEUR.mac.rou
===================================================================
diff -u -r29059 -r31098
--- PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 29059)
+++ PRKLEUR.mac.rou	(.../PRKLEUR.mac.rou)	(revision 31098)
@@ -44,32 +44,34 @@
  Set %SC=1
  Quit
  ;
-LEXTERN(Kode,Nederl,Frans,Duits,Engels) 
+LEXTERN(Kode,Vertalingen...) 
  New sFL,%SC,%TC,Count,Kleur,Extern
  Do ADD^vhLock("^KCOL")
  If '%TC Do LDISP^vhLock("^KCOL","Kleurenkodes") Quit
- Set Extern=1,sFL(1)=$G(Kode)_D_$G(Nederl)_D_$G(Frans)_D_$G(Duits)_D_$G(Engels)
- Do FETCH,STORE^vhTERMINA(),NIEUW^vhScherm("PRKLEURD"),REFRESH^vhTERMINA()
+ Set Extern=1,sFL(1)=$G(Kode)_"\"_##class(TECH.MultiDimUtils).OneDimValuesToString(.Vertalingen,"\")
+  Do FETCH,STORE^vhTERMINA(),NIEUW^vhScherm("PRKLEURD"),REFRESH^vhTERMINA()
  If %SC Set Count=$O(Kleur("D",""),-1)+1,Kleur("D",Count)=sFL(1) Do SAVE
  Do REMOVE^vhLock("^KCOL")
  Quit
  ;
 FETCH 
- New R,Kode,Count
+ New R,Kode,Count,FieldIndex
  Set Kode="",Count=0
  For  Set Kode=$O(^KCOL(Kode)) Quit:Kode=""  Do
- .Set R=$TR(Kode," ","")_D_$G(^KCOL(Kode,"N"))_D_$G(^KCOL(Kode,"F"))_D_$G(^KCOL(Kode,"D"))_D_$G(^KCOL(Kode,"E"))
+ .Set R=$TR(Kode," ","")_D
+ .Set FieldIndex=1
+ .For  Set FieldIndex=$order(^SD("D","PRKLEURD","F",FieldIndex)) Quit:FieldIndex=""  set R = R _ $G(^KCOL(Kode,$classmethod("DOM.enu.Taal",$piece(^SD("D","PRKLEURD","F",FieldIndex),"`",3))))_"\"
  .Set Count=Count+1,Kleur("D",Count)=R,Kleur("I",Kode)=""
  Quit
  ;
 SAVE 
- New R,Kode,Count
+ New R,Kode,Count,FieldIndex
  Set Kode=""
  For  Set Kode=$O(^KCOL(Kode)) Quit:Kode=""  Kill ^KCOL(Kode)
  For Count=1:1 Quit:'$D(Kleur("D",Count))  Do
  .Set R=Kleur("D",Count),Kode=$J($P(R,D),4)_" "
- .Set ^KCOL(Kode,"N")=$P(R,D,2),^KCOL(Kode,"F")=$P(R,D,3)
- .Set ^KCOL(Kode,"D")=$P(R,D,4),^KCOL(Kode,"E")=$P(R,D,5)
+ .set FieldIndex=1
+ .For  Set FieldIndex=$order(^SD("D","PRKLEURD","F",FieldIndex)) Quit:FieldIndex=""  set ^KCOL(Kode,$classmethod("DOM.enu.Taal",$piece(^SD("D","PRKLEURD","F",FieldIndex),"`",3)))=$piece(R,"\",FieldIndex) 
  Quit
  ;
 PRINT