;-------------------------------------------------------------------------
	; AUTOMATIC OBJECT CREATOR: %SYSTEM.Task
	;-------------------------------------------------------------------------
	#Include %occInclude
	Write "Automatic object creation: %SYSTEM.Task",!
	Write "---------------------------------------",!
 
	New TaskObj
	
	Set TaskObj=##class(%SYSTEM.Task).%New()
	Set TaskObj.ContinueAfterError=0
	Set TaskObj.DailyEndTime=0
	Set TaskObj.DailyFrequency=1
	Set TaskObj.DailyFrequencyTime=0
	Set TaskObj.DailyIncrement=5
	Set TaskObj.DailyStartTime=0
	Set TaskObj.Description="Compare globals cache02 (JRNL-ADMIN1) met cache01 (ADMIN1)"
	Set TaskObj.DisplayErrorDate=""
	Set TaskObj.DisplayErrorNumber=""
	Set TaskObj.DisplayFinished=""
	Set TaskObj.DisplayInterval=""
	Set TaskObj.DisplayNextScheduled=""
	Set TaskObj.DisplayRun=""
	Set TaskObj.DisplayStarted=""
	Set TaskObj.DisplayStatus=""
	Set TaskObj.ER=""
	Set TaskObj.EmailOnCompletion=""
	Do TaskObj.EmailOnError.Insert("cw@vanhoecke.be")
	Set TaskObj.EmailOutput=0
	Set TaskObj.EndDate=0
	Set TaskObj.Error="Success"
	Set TaskObj.ExecuteCode="Do TASKMGR^vhBAD"
	Set TaskObj.Expires=0
	Set TaskObj.ExpiresDays=""
	Set TaskObj.ExpiresHours=""
	Set TaskObj.ExpiresMinutes=""
	Set TaskObj.IsBatch=0
	Set TaskObj.Name="Compare ADMIN1"
	
  New PrevID
  Set PrevID=##class(%SYSTEM.Task).FindId(TaskObj.Name)
	If PrevID'="" Do
	. Do ##class(%SYSTEM.Task).%DeleteId(PrevID)
	. w "Previous obj deleted!",!
	
	Set TaskObj.NameSpace="JRNL-ADMIN1"
	Set TaskObj.Number=0
	Set TaskObj.OpenOutputFile=0
	Set TaskObj.OutputDirectory=""
	Set TaskObj.OutputFilename=""
	Set TaskObj.Priority=0
	Set TaskObj.RescheduleOnStart=0
	Set TaskObj.RunAfterJobNumber=""
	Set TaskObj.RunningJobNumber=""
	Set TaskObj.StartDate=$P($H,",",1)
	Set TaskObj.Status=1
	Set TaskObj.Suspended=2
	Set TaskObj.TimePeriod=1
	Set TaskObj.TimePeriodDay=1
	Set TaskObj.TimePeriodEvery=1
	Set TaskObj.Type=2
	Set TaskObj.UIC="0,0"
	Set TaskObj.Variables=""
	Write "Saving..."
	Set Status=TaskObj.%Save()
	Write TaskObj.%Id()_": "
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Write "Resuming..."
	Set Status=TaskObj.Resume(TaskObj.%Id())
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
 
	;========================================================
 
	Set TaskObj=##class(%SYSTEM.Task).%New()
	Set TaskObj.ContinueAfterError=0
	Set TaskObj.DailyEndTime=0
	Set TaskObj.DailyFrequency=1
	Set TaskObj.DailyFrequencyTime=0
	Set TaskObj.DailyIncrement=5
	Set TaskObj.DailyStartTime=0
	Set TaskObj.Description="Compare globals cache02 (JRNL-HALUX) met cache01 (HALUX)"
	Set TaskObj.DisplayErrorDate=""
	Set TaskObj.DisplayErrorNumber=""
	Set TaskObj.DisplayFinished=""
	Set TaskObj.DisplayInterval=""
	Set TaskObj.DisplayNextScheduled=""
	Set TaskObj.DisplayRun=""
	Set TaskObj.DisplayStarted=""
	Set TaskObj.DisplayStatus=""
	Set TaskObj.ER=""
	Set TaskObj.EmailOnCompletion=""
	Do TaskObj.EmailOnError.Insert("cw@vanhoecke.be")
	Set TaskObj.EmailOutput=0
	Set TaskObj.EndDate=0
	Set TaskObj.Error="Success"
	Set TaskObj.ExecuteCode="Do TASKMGR^|""JRNL-ADMIN1""|vhBAD"
	Set TaskObj.Expires=0
	Set TaskObj.ExpiresDays=""
	Set TaskObj.ExpiresHours=""
	Set TaskObj.ExpiresMinutes=""
	Set TaskObj.IsBatch=0
	Set TaskObj.Name="Compare HALUX"
 
  New PrevID
  Set PrevID=##class(%SYSTEM.Task).FindId(TaskObj.Name)
	If PrevID'="" Do
	. Do ##class(%SYSTEM.Task).%DeleteId(PrevID)
	. w "Previous obj deleted!",!
 
	Set TaskObj.NameSpace="JRNL-HALUX"
	Set TaskObj.Number=0
	Set TaskObj.OpenOutputFile=0
	Set TaskObj.OutputDirectory=""
	Set TaskObj.OutputFilename=""
	Set TaskObj.Priority=0
	Set TaskObj.RescheduleOnStart=0
	Set TaskObj.RunAfterJobNumber=""
	Set TaskObj.RunningJobNumber=""
	Set TaskObj.StartDate=$P($H,",",1)
	Set TaskObj.Status=1
	Set TaskObj.Suspended=2
	Set TaskObj.TimePeriod=1
	Set TaskObj.TimePeriodDay=1
	Set TaskObj.TimePeriodEvery=1
	Set TaskObj.Type=2
	Set TaskObj.UIC="0,0"
	Set TaskObj.Variables=""
	Write "Saving..."
	Set Status=TaskObj.%Save()
	Write TaskObj.%Id()_": "
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Write "Resuming..."
	Set Status=TaskObj.Resume(TaskObj.%Id())
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
 
	;========================================================
 
	Set TaskObj=##class(%SYSTEM.Task).%New()
	Set TaskObj.ContinueAfterError=0
	Set TaskObj.DailyEndTime=0
	Set TaskObj.DailyFrequency=1
	Set TaskObj.DailyFrequencyTime=0
	Set TaskObj.DailyIncrement=5
	Set TaskObj.DailyStartTime=0
	Set TaskObj.Description="Compare global cache02 (JRNL-ADMIN2) met cache01 (ADMIN2)"
	Set TaskObj.DisplayErrorDate=""
	Set TaskObj.DisplayErrorNumber=""
	Set TaskObj.DisplayFinished=""
	Set TaskObj.DisplayInterval=""
	Set TaskObj.DisplayNextScheduled=""
	Set TaskObj.DisplayRun=""
	Set TaskObj.DisplayStarted=""
	Set TaskObj.DisplayStatus=""
	Set TaskObj.ER=""
	Set TaskObj.EmailOnCompletion=""
	Do TaskObj.EmailOnError.Insert("cw@vanhoecke.be")
	Set TaskObj.EmailOutput=0
	Set TaskObj.EndDate=0
	Set TaskObj.Error="Success"
	Set TaskObj.ExecuteCode="Do TASKMGR^|""JRNL-ADMIN1""|vhBAD"
	Set TaskObj.Expires=0
	Set TaskObj.ExpiresDays=""
	Set TaskObj.ExpiresHours=""
	Set TaskObj.ExpiresMinutes=""
	Set TaskObj.IsBatch=0
	Set TaskObj.Name="Compare ADMIN2"
 
  New PrevID
  Set PrevID=##class(%SYSTEM.Task).FindId(TaskObj.Name)
	If PrevID'="" Do
	. Do ##class(%SYSTEM.Task).%DeleteId(PrevID)
	. w "Previous obj deleted!",!
 
	Set TaskObj.NameSpace="JRNL-ADMIN2"
	Set TaskObj.Number=0
	Set TaskObj.OpenOutputFile=0
	Set TaskObj.OutputDirectory=""
	Set TaskObj.OutputFilename=""
	Set TaskObj.Priority=0
	Set TaskObj.RescheduleOnStart=0
	Set TaskObj.RunAfterJobNumber=""
	Set TaskObj.RunningJobNumber=""
	Set TaskObj.StartDate=$P($H,",",1)
	Set TaskObj.Status=1
	Set TaskObj.Suspended=2
	Set TaskObj.TimePeriod=1
	Set TaskObj.TimePeriodDay=1
	Set TaskObj.TimePeriodEvery=1
	Set TaskObj.Type=2
	Set TaskObj.UIC="0,0"
	Set TaskObj.Variables=""
	Write "Saving..."
	Set Status=TaskObj.%Save()
	Write TaskObj.%Id()_": "
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Write "Resuming..."
	Set Status=TaskObj.Resume(TaskObj.%Id())
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
 
	;========================================================
 
	Set TaskObj=##class(%SYSTEM.Task).%New()
	Set TaskObj.ContinueAfterError=0
	Set TaskObj.DailyEndTime=0
	Set TaskObj.DailyFrequency=1
	Set TaskObj.DailyFrequencyTime=0
	Set TaskObj.DailyIncrement=1
	Set TaskObj.DailyStartTime=0
	Set TaskObj.Description="Vergelijken van $H op Cache02 met $H op Cache01"
	Set TaskObj.DisplayErrorDate=""
	Set TaskObj.DisplayErrorNumber=""
	Set TaskObj.DisplayFinished=""
	Set TaskObj.DisplayInterval=""
	Set TaskObj.DisplayNextScheduled=""
	Set TaskObj.DisplayRun=""
	Set TaskObj.DisplayStarted=""
	Set TaskObj.DisplayStatus=""
	Set TaskObj.ER=""
	Set TaskObj.EmailOnCompletion=""
	Do TaskObj.EmailOnError.Insert("cw@vanhoecke.be")
	Set TaskObj.EmailOutput=0
	Set TaskObj.EndDate=0
	Set TaskObj.Error="Success"
	Set TaskObj.ExecuteCode="Do CHECK^vhJRNL"
	Set TaskObj.Expires=0
	Set TaskObj.ExpiresDays=""
	Set TaskObj.ExpiresHours=""
	Set TaskObj.ExpiresMinutes=""
	Set TaskObj.IsBatch=0
	Set TaskObj.Name="Check journaling"
 
  New PrevID
  Set PrevID=##class(%SYSTEM.Task).FindId(TaskObj.Name)
	If PrevID'="" Do
	. Do ##class(%SYSTEM.Task).%DeleteId(PrevID)
	. w "Previous obj deleted!",!
 
	Set TaskObj.NameSpace="JRNL-ADMIN1"
	Set TaskObj.Number=0
	Set TaskObj.OpenOutputFile=0
	Set TaskObj.OutputDirectory=""
	Set TaskObj.OutputFilename=""
	Set TaskObj.Priority=0
	Set TaskObj.RescheduleOnStart=0
	Set TaskObj.RunAfterJobNumber=""
	Set TaskObj.RunningJobNumber=""
	Set TaskObj.StartDate=$P($H,",",1)
	Set TaskObj.Status=1
	Set TaskObj.Suspended=2
	Set TaskObj.TimePeriod=0
	Set TaskObj.TimePeriodDay=""
	Set TaskObj.TimePeriodEvery=1
	Set TaskObj.Type=2
	Set TaskObj.UIC="0,0"
	Set TaskObj.Variables=""
	Write "Saving..."
	Set Status=TaskObj.%Save()
	Write TaskObj.%Id()_": "
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!
	Write "Resuming..."
	Set Status=TaskObj.Resume(TaskObj.%Id())
	If $$$ISERR(Status) Do 
	. Write "Error ("_$$ParseStatus^vhLib(Status)_")",!
	Else  Do 
	. Write "Ok.",!