BLEXP ;Exporteren van het BLExport bestand naar BLUM; [ 12/27/2003  9:44 AM ]
 ;Write @F11,@F1,@FMTI," VAN HOECKE : TRANSFERT BLUM EXPORT BESTAND ",@FMTi
 ;If $P(^cLOG(boot,"DEV",$$IO^cQ5),D)'="MC" Set FP=2301 Write @F,*7,*7,"Dit toestel is geen Macintosh (Druk een toets in)" Read *K Quit
 ;If '$O(^BLExport("")) Set FP=2301 Write @F,*7,*7,"Geen data in export bestand  (Druk een toets in)" Read *K Quit
 
 If '$O(^BLExport("")) Quit
 New MagNaarBlumExporteren,MSMGATEWAY
 Set MagNaarBlumExporteren = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BLEXP.MAC_MagBLExportUitvoeren")
 If (MagNaarBlumExporteren) { ; Enkel op 'DEN ADMIN'
	 Set FP=2401 Write @F
	 Set FileNm="Data"_$$EXTDATE^vhDTyp($H,"J4")_$E(100+$$EXTDATE^vhDTyp($H,"MN"),2,3)_$E(100+$$EXTDATE^vhDTyp($H,"DMN"),2,3)
	 Set Tijd=$$EXTTIME^vhDTyp($P($H,",",2),"TKS")
	 Set FileNm=FileNm_$E(100+$P(Tijd,":",1),2,3)_$E(100+$P(Tijd,":",2),2,3)_$E(100+$P(Tijd,":",3),2,3)_".OUT"
	 ;Set FileNm="DATA.OUT"
	 Set MSMGATEWAY=##Class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
	 Set Dev=$$OPEN^vhDEV(##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_OUT\"),FileNm,"W","M")
	 Use Dev
	 Set I=""
	 For  Set I=$O(^BLExport(I)) Quit:I=""  Do
	 . Write ^BLExport(I),$C(13)
	 Close Dev
 }
 Quit