atk ;NEW PROGRAM [ 10/10/96  11:17 AM ]
 ;
 Set Count=0
 Kill ^atk
 Write !,"POP"
 Set Atk=$O(^LD("L","ATK"),-1)
 For  Set Atk=$O(^POP(Atk)) Quit:$E(Atk,1,3)'="ATK"  Do
 .Set Text=""
 .For  Set Text=$O(^POP(Atk,"D",Text)) Quit:Text=""  Do
 ..Set Frans=$G(^POP(Atk,"D",Text,"F"))
 ..Quit:Frans=""
 ..Set GloRef=$ZR,Nederl=$G(^POP(Atk,"D",Text,"N"))
 ..Set R=Nederl_$C(9)_Frans_$C(9)_$C(9)_GloRef,Count=Count+1,^atk(Count)=R
 Write !,"MN"
 For I=1:1 Quit:'$D(^MN("D","ATK","F",I))  Do
 .Set R=$P(^MN("D","ATK","F",I),"`")
 .Quit:R'["(F)"
 .Set Frans=R,GloRef=$ZR,Nederl=$P(^MN("D","ATK","F",I-1),"`")
 .Set R=Nederl_$C(9)_Frans_$C(9)_$C(9)_"$P("_GloRef_",""`"")",Count=Count+1,^atk(Count)=R
 Write !,"LD"
 Set Atk=$O(^LD("L","ATK"),-1)
 For  Set Atk=$O(^LD("L",Atk)) Quit:$E(Atk,1,3)'="ATK"  Do
 .For I=1:1 Quit:'$D(^LD("L",Atk,"H","F",I))  Do
 ..Set Frans=^LD("L",Atk,"H","F",I)
 ..Quit:Frans=""
 ..Set GloRef=$ZR,Nederl=^LD("L",Atk,"H","N",I)
 ..Set R=Nederl_$C(9)_Frans_$C(9)_$C(9)_GloRef,Count=Count+1,^atk(Count)=R
 Quit
 ;
EXPORT 
 Kill
 Do INIT^vhTERMINA
 Write @F11,@F1
 ;Do atk
 Set FP=2003
 Write @F,@F1,"Ok voor begin export"
 Read R
 For I=1:1 Quit:'$D(^atk(I))  Write !,^atk(I)
 Write "~~~"
 Quit
 ;
IMPORT 
 Kill
 Kill ^atkimp
 Do INIT^vhTERMINA
 Write @F11,@F1
 Set FP=2003
 Write @F,@F1,"Ok voor begin import"
 Read R
 For I=1:1 Read R Quit:R=""  Set ^atkimp(I)=R
 Quit
 ;
REPLACE 
 Kill
 Do VANNAAR^vhTERMINA("MC")
 For I=2:1 Quit:'$D(^atkimp(I))  Do
 .Set R=^atk(I-1),N=$P(R,$C(9),1),X=$P(R,$C(9),4),R=^atkimp(I)
 .If $P(R,$C(9))'=N Write *7,!!,N,!,R Read R Quit
 .Set R=$P(R,$C(9),2),R=$TR(R,FNAAR,FVAN)
 .Xecute "Set "_X_"=R"
 .Write !,"Set ",X,"=",R
 Quit
 ;