Consolidaton rule in HFM

Question

Hi,
We have a requirement of rule-driven consolidation in our project. Client wants consolidation and ICP elimination should be happen through rule.
Please validate if following steps are correct.
Sub Consolidate()
Entity=HS.Entity.Member
Pcon=HS.Node.PCon("")
Set DataUnit=HS.OpenDataUnit("")
NumItems=DataUnit.GetNumItems
For i=0 to NumItems-1
Call DataUnit.GetItem(i,Account,ICP,Custom1,Custom2,Custom3,Custom4,Data)
If Data<>0 Then
          Acc="A#" & Account
          Elim=".V#[Elimination]"
          Cust=".C1#" & Custom1
HS.Con Acc,PCon,""                          
Plug = "A#" & HS.Account.PlugAcct("")
ICPPCon= HS.Node.Pcon("E#" & ICP)
Min=Minimum(PCon,ICPPCon)
HS.Con Acc & Cust & Elim,Min*(-1),""
HS.Con Plug & Cust & Elim,Min,""
Function Minimum(Par1,Par2)
If Par1 > Par2 Then Minimum = Par2 Else Minimum = Par1
End Function
Above rule is getting aborted,please advise how it can be improved.
We are almost closed to deadline but didnt get any solution.
Thanks

Answer 1

That was typo error ,it was Data <> 0.Now I have changed the rule.Also done some changes.
Below rule runs but it doesnt give the correct result.Here it is not stroing the values in Plug account.
Not sure,whats wrong..Please advise.
Sub Consolidate()
Dim MyDataUnit
     Dim dPcon
     Dim lNumItems
     Dim i
     Dim strAccount
     Dim strICP
     Dim strCustom1
     Dim strCustom2
     Dim strCustom3
     Dim strCustom4
     Dim dData
     Dim strEntity
     Dim splug
     Dim vplug
Set ConsUnit = Hs.OpenDataUnit("")
NumItems = ConsUnit.GetNumItems
For i = 0 to NumItems - 1
     Call ConsUnit.GetItem(i,strAccount,strICP,strCustom1,strCustom2,strCustom3,strCustom4,dData)
     IF HS.Account.IsConsolidated(strAccount) and dData<>0 THEN
          HS.Con " ", HS.Node.PCon(""), " "
          call Eliminate(strAccount,strICP)
     End if
Next
End Sub
'* FUNCTIONS *
' Minimum
'Function Minimum(Par1,Par2)
' If Par1 > Par2 Then Minimum = Par2 Else Minimum = Par1
'End Function
Sub Eliminate (strAccount, strICP)
     Dim CanEliminate
Dim strPlug
     Dim dPCon
     dim NegatePlug
CanEliminate = TRUE
NegatePlug = FALSE
          'Do NOT eliminate IF Intercompnay partner is [ICP None]
     IF (StrComp(strICP, "[ICP None]", vbTextCompare) = 0) THEN
     CanEliminate = FALSE
          'Do NOT eliminate IF account is not ICP
     ELSEIF (HS.Account.IsICP(strAccount) = FALSE) THEN
     CanEliminate = FALSE
     'Do NOT eliminate IF intercompany partner has a different parent
          ELSEIF (HS.Node.ISDESCENDANT(HS.PARENT.Member,strICP,"") = FALSE) THEN
     CanEliminate = FALSE
     'Do NOT eliminate IF the account doesn't have a plug account
          ELSE
     strPlug = HS.Account.PlugAcct(strAccount)
     IF (strPlug = "") THEN CanEliminate = FALSE
     END IF
     IF CanEliminate THEN
               dPCon = HS.Node.PCon("")
               ' Standard elimination at 100%
               call HS.Con("V#[Elimination]",dPCon*(-1),"")     
               call HS.Con("V#[Elimination].A#" & strPlug,dPCon,"")
     END IF
End Sub '(Eliminate)
Edited by: user3017122 on Sep 30, 2010 11:08 PM