How to reference current ICP in calc script?

Question

Hello Everyone,
I am working on an HFM calc script. I am trying to assign the current ICP member to a variable. I attempted this using the following line of code:
POV_ICP = HS.ICP.MemberFromID(HS.ICP.IDFromMember(""))
I don't receive any error messages, but I don't seem to be populating the POV_ICP variable either.
Your help is greatly appreciated!
Chris

Answer 1

Ha ha... Good one.
I came back to post A solution and low and behold - you arrived at the same...
You've probable realized that the POV_ICP was only ever going to reference the ICP_None account under any condition.
Glad to hear you're back on track - G'Luck
Public Const WriteToFilePath = "C:\Documents and Settings\Admin\My Documents\!WRITEtoFILE" 'Will write log to app server you are currently logged on to. Need to ensure this path exists on each app server
Sub WriteToFile(txtStringToWrite)
On Error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\DemoUser\My Documents\!WRITEtoFILE\RulesLog.txt", ForAppending, True)
f.WriteLine txtStringToWrite & " " & Now()
f.Close
On Error GoTo 0
End Sub
'CALCULATE
SUB Calculate()
'Set current POV members
POV_YEAR = HS.Year.Member
POV_PERIOD = HS.Period.Member
POV_SCENARIO = HS.Scenario.Member
POV_ENTITY = HS.Entity.Member
POV_VALUE = HS.Value.Member
'Variables
vPeriodNum = Hs.Period.Number()
vPeriod = HS.Period.Member()
vScenario = Hs.Scenario.Member()
vYear = Hs.Year.Member()
vEntity = Hs.Entity.Member()
vValue = Hs.Value.Member()
vEntisBase = HS.Entity.IsBase("","")
IF vEntisBase = TRUE AND (vValue = "<Entity Currency>" or vValue = "<Entity Curr Adjs>" or vvalue = "[Elimination]") THEN
'Check for value in ICP
SET DataUnit = HS.OpenDataUnit("")
lNumItems = DataUnit.GetNumItems
FOR i = 0 TO lNumItems-1
'Get the next item from the dataunit     
CALL DataUnit.GetItem(i, strAccount, strICP, strCustom1, strCustom2, strCustom3, strCustom4, dData)           
CALL WriteToFile(POV_SCENARIO & " " & POV_YEAR & " " & POV_PERIOD & " " & POV_ENTITY & " " & POV_VALUE & " " & (strAccount & " " & strICP & " " & strCustom1 & " " & strCustom2 & " " & strCustom3 & " " & strCustom4 & " " & dData))
     IF strAccount = "X" THEN
     'Do Nothing
     ElseIf dData <> "0" THEN
''      ElseIf dData = "1" THEN
     END IF
     NEXT
END IF
END SUB
This taken from the Rules.txt file...
Actual 2007 Jan EntityCashPool <Entity Currency> [ACashPool] WI [None] [None] [None] [None] 555555 2/1/2011 11:33:22 PM
Actual 2007 Jan EntityCashPool [Elimination] [ACashPool] WI [None] [None] [None] [None] -555555 2/1/2011 11:33:22 PM
Actual 2007 Jan EntityCashPool [Elimination] ICRecPayDiff WI [None] [None] [None] [None] 555555 2/1/2011 11:33:23 PM