project QadFinancials > class BBudget > method BudgetWBSAutoLinkCycle

Description

This submethod of Method BudgetWBSAutoLink is recursive method that will call method BudgetWBSAutoLinkAssignFDS & method BudgetWBSAutoLinkCycle.


Parameters


iiParentBudgetWBSIDinputintegerParentBudgetWBSID
bcBudgetWBSCodesinput-outputcharacterBudgetWBSCodes
icBudgetFRWChartCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBudget.BudgetWBSAutoLink
method BBudget.BudgetWBSAutoLinkCycle


program code (program9/bbudget.p)

for each tNewBudgetWBS where
         tNewBudgetWBS.ParentBudgetWBS_ID = iiParentBudgetWBSID
         no-lock:

    <M-1 run BudgetWBSAutoLinkAssignFDS
       (input-output bcBudgetWBSCodes (bcBudgetWBSCodes), 
        input  icBudgetFRWChartCode (icBudgetFRWChartCode), 
        output viFcReturnSuper (oiReturnStatus)) in BBudget>
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 
    then return. 

    <M-2 run BudgetWBSAutoLinkCycle
       (input  tNewBudgetWBS.BudgetWBS_ID (iiParentBudgetWBSID), 
        input-output bcBudgetWBSCodes (bcBudgetWBSCodes), 
        input  icBudgetFRWChartCode (icBudgetFRWChartCode), 
        output viOwnReturnSuper (oiReturnStatus)) in BBudget>
    if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0)
    then assign oiReturnStatus = viFcReturnSuper.
    if oiReturnStatus < 0 
    then return. 

end.