CWEXPIMP ; Export en import van bestanden
 ;
 ;Quit
 ;
GEXPORT(Global,Titel)
 New File,ZRef,Data
 Set Global="^"_$TR(Global,"^","")
 Do:$D(@Global)
 . Set Titel=$G(Titel,$E(Global,2,99))
 . Set File=$$OPEN^vhDEV("\\NOTES01\SHARED\C W\","Global.GLO","W","M")
 . Use File
 . Write Titel,!,"Global: ",Global,"  ",$$FMTDT^vhDTyp(),!
 . If $D(@Global)#1 Set Data=@Global,ZRef=$ZR Write ZRef,"=",Data,!
 . For  Set Global=$Q(@Global) Quit:Global=""  Do
 .. Set Data=@Global,ZRef=$ZR
 .. Write ZRef,"=",Data,!
 . Close File
 Quit
 ;
GIMPORT
 New File,ZRef,Data
 If $ZU(5)="DEV-ADMIN1" Do
 . Write !,"CW Global restore",!
 . Set File=$$OPEN^vhDEV("\\NOTES01\SHARED\C W\","Global.GLO","R","M")
 . Read Rec
 . Use 0
 . Write !,Rec,!
 . Use File
 . For  Read Rec Quit:Rec=""  Do
 .. Set ZRef=$P(Rec,"="),Data=$P(Rec,"=",2,9999)
 .. If $E(Rec,1,8)="Global: " Use 0 Write !,Rec Use File
 .. If $E(ZRef)="^" Set @ZRef=Data
 Close File
 Write !!,"Done",!!
 Quit
 ;