ATKDEM ; Afstand-toegang voor klanten [ 05/20/99   2:43 PM ]
 ;
 Write !!,"Routines"
 Do ^cR
 Write !!,"Globals"
 For Global="INTRAST","KBA","KCOL","KK1","KKAAP","KKL","KL1","KLE","KLPUTZ","KOD","KPBI","KPR","KPR1","KPR2","MBLOG","PAKKET" Do
 .Write !,"Global: ",Global
 .Kill @("^[""DEM,DEM""]"_Global)
 .Merge @("^[""DEM,DEM""]"_Global)=@("^[""ADMIN1""]"_Global)
 .Write ?19,"--merged"
 Write !,"Global: KUL"
 Kill ^["DEM,DEM"]KUL
 For KLNr=0:1:5000 Merge ^["DEM,DEM"]KUL(KLNr,"F")=^["ADMIN1"]KUL(KLNr,"F")
 Write ?19,"--merged"
 Write !,"Global: KFA"
 Kill ^["DEM,DEM"]KFA
 Set MaxDate=$$INTDATE^vhLib.DataTypes("01-07-96")-1,MaxDate=-MaxDate
 For KLNr=0:1:5000 Do
 .Set Date=MaxDate
 .For  Set Date=$O(^["ADMIN1"]KFA1("F",KLNr,Date),-1) Quit:Date=""  Do
 ..Set FANr=0
 ..For  Set FANr=$O(^["ADMIN1"]KFA1("F",KLNr,Date,FANr)) Quit:FANr=""  Do
 ...Merge ^["DEM,DEM"]KFA("F",FANr)=^["ADMIN1"]KFA("F",FANr)
 Write ?19,"--merged"
 Write !,"Global: KFA1"
 Kill ^["DEM,DEM"]KFA1
 For KLNr=0:1:5000 Do
 .Set Date=MaxDate
 .For  Set Date=$O(^["ADMIN1"]KFA1("F",KLNr,Date),-1) Quit:Date=""  Do
 ..Merge ^["DEM,DEM"]KFA1("F",KLNr,Date)=^["ADMIN1"]KFA1("F",KLNr,Date)
 Write ?19,"--merged"
 Quit
 ;