method AddLogEntry

Parameters

icRule	input	character
icStatus	input	character
icUsrLogin	input	character
icDomainCode	input	character
icCompanyCode	input	character
icRole1Name	input	character
icRole2Name	input	character
icCategory1Code	input	character
icCategory2Code	input	character
icResource1URI	input	character
icResource2URI	input	character
icExclusionLevel	input	character

Internal usage

BLF

method BSODViolationRule1.CheckRule1
method BSODViolationRule1.DeleteFinish
method BSODViolationRule2.CheckRule2
method BSODViolationRule2.DeleteFinish

program code (program1/bsodlog.p)

<M-1 run AddDetailLine
   (input  'SODLog' (icTable), 
    input  '' (icParentRowid), 
    output viFcReturnSuper (oiReturnStatus)) in BSODLog>

assign session:timezone            = 0
       tSODLog.SODLogDateTime      = string(now)
       tSODLog.SODLogRule          = icRule
       tSODLog.SODLogStatus        = icStatus
       tSODLog.SODLogUsrLogin      = icUsrLogin
       tSODLog.SODLogDomainCode    = icDomainCode
       tSODLog.SODLogCompanyCode   = icCompanyCode
       tSODLog.SODLogRole1Name     = icRole1Name
       tSODLog.SODLogRole2Name     = icRole2Name
       tSODLog.SODLogCategory1Code = icCategory1Code
       tSODLog.SODLogCategory2Code = icCategory2Code
       tSODLog.SODLogResource1URI  = icResource1URI
       tSODLog.SODLogResource2URI  = icResource2URI
       tSODLog.SODLogExclusionLevel = icExclusionLevel
       tSODLog.SODLogModifyingUsrLogin = vcUserLogin.

/* no need to validate */
assign vlFcDataValidated = yes.

finally:
    assign session:timezone = viTimeOffset.
end finally.