project BLF > class BSODLog > method AddLogEntry


Parameters


icRuleinputcharacter
icStatusinputcharacter
icUsrLogininputcharacter
icDomainCodeinputcharacter
icCompanyCodeinputcharacter
icRole1Nameinputcharacter
icRole2Nameinputcharacter
icCategory1Codeinputcharacter
icCategory2Codeinputcharacter
icResource1URIinputcharacter
icResource2URIinputcharacter
icExclusionLevelinputcharacter


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.