method UpdateReportTreeNodeDesc

Description

Update the report tree node desc by analysis code description.

Parameters

icFRWTreeNodeIDs	input	character
icFRWAnCodeDescription	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BFRWAnalysisCode.AdditionalUpdatesReportTree

program code (program1/breporttree.p)

assign oiReturnStatus = -98.

if icFRWTreeNodeIDs = '':U or icFRWTreeNodeIDs = ? then
do:
   assign oiReturnStatus = 0.
   return.
end.

<M-78 run DataLoad
   (input  ? (icRowids), 
    input  icFRWTreeNodeIDs (icPkeys), 
    input  ? (icObjectIds), 
    input  ? (icFreeform), 
    input  yes (ilKeepPrevious), 
    output viFcReturnSuper (oiReturnStatus)) in BReportTree>
do viCountTreeNodeID = 1 to num-entries(icFRWTreeNodeIDs, chr(4)):
    for each tFRWTreeNode where tFRWTreeNode.FRWTreeNode_ID = integer(entry(viCountTreeNodeID,icFRWTreeNodeIDs,chr(4))):
          assign tFRWTreeNode.FRWTreeNodeDescription = icFRWAnCodeDescription
                 tFRWTreeNode.tc_Status = 'C':U.
    end.
end.
<M-56 run ValidateBC  (output viFcReturnSuper (oiReturnStatus)) in BReportTree>
if viFcReturnSuper <> 0
then Assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then Return. 

assign oiReturnStatus = 0.