Index: BLIMP.mac.rou
===================================================================
diff -u -r734 -r922
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 734)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 922)
@@ -4,29 +4,33 @@
  Write @F11,@F1,@FMTI," VAN HOECKE : Importeren van BLUM bestand ",@FMTi
  Set FP=2201 Write @F,@F1,"Ingave het te importeren bestand"
  
- Set Dir=^BLBeri("MSMGATEWAY")_"\EDI_IN\"
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Set Dir=MSMGATEWAY_"\EDI_IN\"
  Set File=$$DISPDIR^vhDEV(Dir,"*.*")
  Quit:File=""
  Do CONVERT(Dir,File)
  
  ; Verwijderen van oude archives
- Do SCANDIR^vhDEV(^BLBeri("MSMGATEWAY")_"\EDI_IN\ARCHIVE\","*.*",$NA(Local),"X",30)
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Do SCANDIR^vhDEV(MSMGATEWAY_"\EDI_IN\ARCHIVE\","*.*",$NA(Local),"X",30)
  
  D ^cA604,INIT^vhTERMINA
  Do ^BLVWIMP ; Verdergaan met verwerking van lijst
  Quit
  
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
- Set Dir=^BLBeri("MSMGATEWAY")_"\EDI_IN\"
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Set Dir=MSMGATEWAY_"\EDI_IN\"
  Set File=$$DISPDIR^vhDEV(Dir,"*.*")
  Quit:File=""
  Do CONVERT(Dir,File)
  Quit
  
 SCAN ; Achtergrond job dat alle EDI-bestanden verwerkt 
- New Dir,File
+ New Dir,File,MSMGATEWAY
  S Q="K" D ^cA604
- Set Dir=^BLBeri("MSMGATEWAY")_"\EDI_IN\"
+ Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+ Set Dir=MSMGATEWAY_"\EDI_IN\"
  Do SCANDIR^vhDEV(Dir,"*.*",$NA(Local)) 
  Set File=""
  For  Set File=$O(Local(File)) Quit:File=""  Do