jclLIB
 
 
 
 
ClassChangedSince(AmericanDate)
 
	N Horolog Set Horolog = $$AmericanDate2Horolog(AmericanDate)
	N IdxClass Set IdxClass="" 
	For  Set IdxClass = $Order(^oddDEF(IdxClass)) Quit:IdxClass=""  Do
	. I ( +$G(^oddDEF(IdxClass,63)) ) > ( +Horolog ) W !, IdxClass
	. Q
	Q
	
 
RoutineChangedSince(AmericanDate)
	N Horolog Set Horolog = $$AmericanDate2Horolog(AmericanDate)
	N IdxRoutine Set IdxRoutine="" 
	For  Set IdxRoutine = $Order(^ROUTINE(IdxRoutine)) Quit:IdxRoutine=""  Do
	. I ( +$G(^ROUTINE(IdxRoutine,0)) ) > ( +Horolog ) W !, IdxRoutine
	. Q
	Q
 
	
	;---------------
	
AmericanDate2Horolog(AmericanDate)
 quit $zdateh(AmericanDate,8)_",00001"