project BLF > class BSODCategoryExclusion > method PostTransaction

Description

Actions to take after final commit of the transaction.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/bsodcategoryexclusion.p)

<ANCESTOR-CODE>

/* ================================================================= */
/* Update SOD violations when exclusions are created.                */
/* ================================================================= */
if viSODCategoryIDToCheck <> -1
then do:
    <I-90 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule1"}>
    <M-49 run CheckRule1
       (input  0 (iiRoleID), 
        input  viSODCategoryIDToCheck (iiSODCategoryID), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule1>
    <I-70 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule1"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
    
    <I-34 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule2"}>
    <M-7 run CheckRule2
       (input  0 (iiUsrID), 
        input  0 (iiRoleID), 
        input  viSODCategoryIDToCheck (iiSODCategoryID), 
        input  '' (icUsrLogin), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule2>
    <I-5 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule2"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.

    viSODCategoryIDToCheck = -1.
end.