method AdditionalUpdates

Description

This method is part of the SetPublicTables flow.
When executed, data in the input class tables (prefix t_s) is validated and found correct, and copied into the class tables (prefix t_o).
This method can be extended to do updates that do not require a validation or that involve running business methods of other business classes. These classes should be started with ADD-TO-TRANSACTION = 'true'. Also make sure to add these classes in method StopExternalInstances.

Parameters

oiReturnStatus

output

integer

Internal usage

BLF

method BResource.ApiLinkResource
method BResource.ApiSetResourceCategories
method BResource.ApiSynchronize
method BResource.CreateResource

program code (program/bresource.p)

<ANCESTOR-CODE>

for each tResources where
         tResources.ResourceURI begins "urn:gencodegroup:" and
         tResources.tc_Status = "N" on error undo, throw:
    vcRsIDs  = vcRsIDs  + "," + string(tResources.Resource_ID).
    vcRsURIs = vcRsURIs + "," + tResources.ResourceURI.
end.

if vcRsIDs <> ""
then do:
    <I-2 {bFcAddToTransaction
         &CLASS           = "BRole"}>

    <M-57 run AddGenCodeGroupToRoles
       (input  substring (vcRsIDs,2,-1,'CHARACTER') (icResourceIDs), 
        input  substring (vcRsURIs,2,-1,'CHARACTER') (icResourceURIs), 
        output viFcReturnSuper (oiReturnStatus)) in BRole>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then do:
        <I-27 {bFcCloseAndStopInstance
             &CLASS           = "BRole"}>
        return.
    end.
end.