project BLF > class BSODViolationRule2 > method DeleteByDomain

Description

delete violations


Parameters


iiDomainIDinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BDomain.AdditionalUpdates


program code (program1/bsodviolationrule2.p)

if oiReturnStatus = 0
then oiReturnStatus = -98.

vcFreeform = "for each SODViolation2"
           +   " where SODViolation2.Domain_ID = " + string(iiDomainID).
<M-1 run DataLoad
   (input  '' (icRowids), 
    input  '' (icPkeys), 
    input  '' (icObjectIds), 
    input  vcFreeform (icFreeform), 
    input  yes (ilKeepPrevious), 
    output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule2>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.

<M-2 run DeleteAndLog
   (input  0 (iiRoleID), 
    input  0 (iiResourceID), 
    input  iiDomainID (iiDomainID), 
    input  0 (iiCompanyID), 
    input  0 (iiUsrID), 
    input  0 (iiSODCategory1ID), 
    input  0 (iiSODCategory2ID), 
    output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule2>    
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.

if oiReturnStatus = -98
then oiReturnStatus = 0.