Analytics Software

Hi Experts.

I'm having a problem with the rule to populate the Automated Consolidation Journals for all Elim. entries made during the HFM consolidation process.

My application is set to use Consolidation Rules and I have incorporated the standard consolidation rules and they are working fine.

An Oracle tutorial says to use the HS.Con "",vPCon,"text identifier").

I added this rule at the end of my consolidate section, and the Journals were getting generating at the "Elimination" value member, but the amounts were not the correct Elimination amounts we should be seeing.

'   Call Hs.Con with Nature to track elims so that Automated Consolidation Journals can be generated.

Set vDataUnit = HS.OpenDataUnit("")

vPCon = HS.Node.PCon("")

vNumItems = vDataUnit.GetNumItems()

For i = 0 To vNumItems - 1

Call vDataUnit.GetItem(i, vAccount, vICP, vCustom1, vCustom2, vCustom3, vCustom4, dData)

If HS.Account.IsICP(vAccount) Then

Call HS.Con("V#[Elimination]", vPCon, "Elimination")

End If

Next

End Sub

So I then tried to integrate Oracle’s suggested rule HS.Con("", vPCon, "Elimination") right into the main consolidation script, but then we don’t get any parent level data when consolidating (like it breaks the consolidation before it can finish properly).

Should we be using a rule something like this to ensure we are grabbing the Elimination value member when running the Open Data Unit loop?

Set vDataUnit = HS.OpenDataUnit("")

vNumItems = vDataUnit.GetNumItems()

For i = 0 To vNumItems - 1

Call vDataUnit.GetItem(i, vAccount, vICP, vCustom1, vCustom2, vCustom3, vCustom4, dData)

If HS.Account.IsICP(vAccount) Then

povValue= "[Elimination]" or use a variable like Set vElim = HS.Account.Elimination

Call HS.Con (vElim,vpCon, "Elimination")

End If

Next

Do you have any suggestions for how to make the rule work to populate the journals with the data from the Elimination value member of each ICP account?

Thanks very much in advance.
Mark Smith

Here is the data I get in my journals:

Sample Report showing Elim Journals

Here is another rule we tried but it didn’t work:

Dim vPCon

Dim vElim

Dim vNumItems

vPCon = HS.Node.PCon("")

Set vDataUnit = HS.OpenDataUnit("")

vNumItems = vDataUnit.GetNumItems()

For i = 0 To vNumItems - 1

Call vDataUnit.GetItem(i, vAccount, vICP, vCustom1, vCustom2, vCustom3, vCustom4, vData)

If HS.Account.IsICP(vAccount) Then

Set vElim =HS.Account.Elim(vAccount)

Call HS.Con(vElim, vPCon, "Elimination")

End If

Next