method PostTransaction

Description

Actions to take after final commit of the transaction.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

unused

program code (program/bresource.p)

<ANCESTOR-CODE>

/* ================================================================= */
/* Update SOD violations when resources are added to a SOD category. */
/* ================================================================= */
if viCategoryIDForSODCheck <> -1
then do:
    <I-66 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule1"}>
    <M-67 run CheckRule1
       (input  0 (iiRoleID), 
        input  viCategoryIDForSODCheck (iiSODCategoryID), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule1>
    <I-93 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule1"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
    
    <I-73 {bFcStartAndOpenInstance
         &CLASS                = "BSODViolationRule2"}>
    <M-6 run CheckRule2
       (input  0 (iiUsrID), 
        input  0 (iiRoleID), 
        input  viCategoryIDForSODCheck (iiSODCategoryID), 
        input  '' (icUsrLogin), 
        output viFcReturnSuper (oiReturnStatus)) in BSODViolationRule2>
    <I-7 {bFcCloseAndStopInstance
         &CLASS           = "BSODViolationRule2"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.

    viCategoryIDForSODCheck = -1.
end.