method GetFRWTreeNodeMainMethod

Parameters

icTargetChart	input	character
icCubeName	input	character
icTreeNodeCode	input	character
icFilterAnCode	input	character
icFromReportPeriod	input	character
icToReportPeriod	input	character
icFromReportYear	input	character
icToReportYear	input	character
icViewCurrency	input	character
icViewForUser	input	character
icAmountInView	input	character
iiNodeID	input	integer
iiNodeLevel	input	integer
tNewNode	output	temp-table
tErrorTable	output	temp-table
icCurrentLanguage	input	character
bcTempParams	input-output	character
iiNumOfDecimals	input	integer
oiReturnStatus	output	integer

Internal usage

QadFinancials

method BFRWTreeView.GetFRWTreeViewBalance
method BFRWTreeView.GetFRWTreeViewMeas

program code (program1/tfrwtreeview.p)

assign viNumOfDecimals = iiNumOfDecimals.

/* ================================================================= */
/* If node level is 3, get into GetFRWTreeLevel3Node branch          */
/* ================================================================= */
if iiNodeLevel = 3 then
do:
  <M-4 run GetFRWTreeLevel3Node
     (input  icFromReportYear (icfromreportyear), 
      input  icToReportYear (ictoreportyear), 
      input  icFromReportPeriod (icfromreportperiod), 
      input  icToReportPeriod (ictoreportperiod), 
      input  icCubeName (icCubeName), 
      input  INTEGER(icAmountInView) (iiAmountInView), 
      input  icTargetChart (icTaregetChart), 
      input  icFilterAnCode (icAnCodeCode), 
      input  iiNodeID (iiNodeID), 
      output tNewNode (tNewNode), 
      output tErrorTable (tErrorTable), 
      input-output bcTempParams (bcTempParams), 
      output viFcReturnSuper (oiReturnStatus)) in TFRWTreeView>
end.
/* ================================================================= */
/* If node level is 2, get into GetFRWTreeLevel2Node branch          */
/* ================================================================= */
else do:

   <M-54 run GetFRWTreeLevel2Node
      (input  icTargetChart (icTargetChart), 
       input  icCubeName (icCubeName), 
       input  icTreeNodeCode (icTreeNodeCode), 
       input  icFilterAnCode (icFilterAnCode), 
       input  icFromReportPeriod (icFromReportPeriod), 
       input  icToReportPeriod (icToReportPeriod), 
       input  icFromReportYear (icFromReportYear), 
       input  icToReportYear (icToReportYear), 
       input  icViewCurrency (icViewCurrency), 
       input  icViewForUser (icViewForUser), 
       input  icAmountInView (icAmountInView), 
       output tNewNode (tNewNode), 
       output tErrorTable (tErrorTable), 
       input  icCurrentLanguage (icCurrentLanguage), 
       input-output bcTempParams (bcTempParams), 
       output viFcReturnSuper (oiReturnStatus)) in TFRWTreeView>

end.

/* Calculate Net Activity Column */
for each tNewNode:
    assign tNewNode.tdNetActivity = tNewNode.tdActivityDR - tNewNode.tdActivityCR.
end.

assign oiReturnStatus = viFcReturnSuper.