TELVERS ; [ 10/03/96  2:18 PM ]
 ;
 Do INIT
 For Dev=80,81 Set Local="Dev"_Dev Do BUILDLOG(Dev,.@Local,FromDate,ToDate),CLEANUP(.@Local)
 Kill Dev
 Merge Dev=Dev80,Dev=Dev81
 Do CLEANUP(.Dev)
 Quit
 ;
BUILDLOG(Dev,Local,FromDate,ToDate) 
 New Time
 For  Set FromDate=$O(^vhLOGGING(Dev,Dev,FromDate)) Quit:FromDate=""!(FromDate>ToDate)  Do
 .Set Time=""
 .For  Set Time=$O(^vhLOGGING(Dev,Dev,FromDate,Time)) Quit:Time=""  Do
 ..Set Local(FromDate,Time)=$P(^vhLOGGING(Dev,Dev,FromDate,Time),D)
 Quit
 ;
CLEANUP(Local) 
 New Date,Time,Last,Prev,Next
 Set (Date,Last)=""
 For  Set Date=$O(Local(Date)) Quit:Date=""  Do
 .Set Time=""
 .For  Set Time=$O(Local(Date,Time)) Quit:Time=""  Do
 ..Set Prev=$$PREV(.Local,Date,Time),Next=$$NEXT(.Local,Date,Time)
 ..If Local(Date,Time)="On" Do  Quit
 ...If Next="" Set Local(Date,86399)="Off"
 ...If Next="On" Kill Local(Date,Time)
 ..If Local(Date,Time)="Mn" Do  Quit
 ...If Prev="" Set Local(Date,1)="On"
 ...If Next="" Set Local(Date,86399)="Off"
 ...If Prev="Off" Set Local(Date,Time)="On"
 ...If Next="On" Set Local(Date,Time)="Off"
 ...If Local(Date,Time)="Mn" Kill Local(Date,Time)
 ..If Local(Date,Time)="Off" Do
 ...If Prev="" Set Local(Date,1)="On"
 ...If Prev="Off" Kill Local(Date,Time)
 Quit
 ;
PREV(Local,Date,Time) 
 New Prev
 For  Set Time=$O(Local(Date,Time),-1) Quit:Time  Set Date=$O(Local(Date),-1) Quit:'Date
 Set Prev="" Set:Date&Time Prev=Local(Date,Time)
 Quit Prev
 ;
NEXT(Local,Date,Time) 
 New Next
 For  Set Time=$O(Local(Date,Time)) Quit:Time  Set Date=$O(Local(Date)) Quit:'Date
 Set Next="" Set:Date&Time Next=Local(Date,Time)
 Quit Next
 ;
INIT 
 Kill
 Do INIT^vhTERMINA
 Set FromDate=$$INTDATE^vhLib.DataTypes("16.07.96")-1,ToDate=$$INTDATE^vhLib.DataTypes("16.09.96")
 For I="R","G","Z" Set T=$T(@T) w !,T r r Do
 .Set Tarief($P(T,";"))=$P(T,";",2)
 .Xecute "For I="_$P(T,";",3)_" Set Time=$$INTTIME^vhLib.DataTypes(I),Tarief(Time)=$P(T,"";"") w !,Time"
 Quit
 ;
R ;150;9,"11:59:59"
G ;180;8,"8:59:59",12,"13:29:59",17,"18:29:59"
Z ;360;"18:30","7:59:59"
 ;