Compile function Override_Log_Services(@Service, @Params) #pragma precomp SRP_PreCompiler $insert LOGICAL $Insert OVERRIDE_LOG_EQUATES Declare function Datetime, NextKey, Error_Services Declare subroutine Database_Services GoToService Return Response or "" //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Service Parameter Options //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Options OVERRIDE_TYPES = 'ROTR_BLOCK,UNSIGN,CLEAN_INSP,REACTOR_PROVE_IN,REACTOR_LOG_PM' //----------------------------------------------------------------------------- // SERVICES //----------------------------------------------------------------------------- Service Create(Table, Key, OverrideUser, OverrideComment, OverrideType=OVERRIDE_TYPES, OverrideCause='') RecKey = Nextkey('OVERRIDE_LOG') orRec = '' orRec = Table orRec = Key orRec = OverrideUser orRec = OverrideComment orRec = Datetime() orRec = OverrideType orRec = OverrideCause Database_Services('WriteDataRow', 'OVERRIDE_LOG', RecKey, orRec) If Error_Services('NoError') then Response = RecKey end else Response = '' end End Service