Hyperion Enterprise API: consolidation status

Question

Hi, collegues.
In formulas we need to check if some entity had been already consolidated(passed calculation). Are there functions that in combination would return logical or numeric value of condition like "whether the entity had been consolidated"?
I appreciate your help.

Answer 1

I found this set of instructions that could help you create your own Status Function, but you really need to know Visual Basic, anyway here it is:
Dim selectaddrc As Long
Dim wStatus As Integer
Dim iDataView As Integer
Dim sDataView As String
Dim iView As Integer
Dim lpBuf As String * 127
Dim lpAPIs As apiStruct
sigCat = EntFindStrN(glhSelect, HYP_ID_CATEGORY, HYP_NONE, szCategory, 0)
If sigCat = HYP_NONE Then
nRC = MsgBox("Unable to obtain Category signature.", vbExclamation, sMsgTitle)
Exit Function
End If
sigEntity = HYP_NONE
If szEntity <> "" Then
sigEnt = EntGetEntitySig(glhSelect, szEntity, NAME_EXPLICIT)
End If
dValue# = 0
lpAPIs.sigCat = sigCat&
lpAPIs.sigName = sigEnt&
lpAPIs.sigParent = HYP_NONE
lpAPIs.wType = ID_REGULAR
lpAPIs.lStartPeriod = StPer& - 1
lpAPIs.lEndperiod = StPer& - 1
lpAPIs.u_Dfa.sigAcct = -1
lpAPIs.u_Dfa.iFreq = -1
lpAPIs.u_Dfa.bAutoRecalc = False
lpAPIs.u_Dfa.bPeriodic = iDataView%
lpAPIs.u_Dfa.sViewType = HYP_NONE
lpAPIs.u_Dfa.sigAccumFreq = HYP_NONE
lpAPIs.lpimrData = EntGetVarAddr(dValue#)
lpAPIs.lpseStatus = EntGetVarAddr(wStatus%)
selectaddrc& = EntSelectTableAdd(HYP_ID_PSFDATA + HYP_ID_ASSOC, sigCat, glhSelect&, APILOCK_READONLY, 0, 0, 0, 0, lpAPIs)
If selectaddrc& = -1 Then
Exit Function
End If
rc = EntQueryExStr(glhSelect, HYP_ID_PSFDATA, HYP_PSF_GETSTATUSTEXT, -1, -1, Len(lpBuf$), lpBuf$, lpAPIs)
If rc% = 0 Then
GetPSFStatusA = UCase$(CToB(lpBuf$))
Select Case GetPSFStatusA
Case "LOCKED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "OK"
FlGrdPSFStatus.CellForeColor = &H8000&
Case "NO DATA"
FlGrdPSFStatus.CellForeColor = &H0&
Case "CHANGED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "IMPACTED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "CALC"
FlGrdPSFStatus.CellForeColor = &HC0&
Case Else
'FlGrdPSFStatus.Font = "Arial Narrow"
FlGrdPSFStatus.CellForeColor = &H0&
End Select
End If
glhSelect& = EntUnSelect(glhSelect&, HYP_ID_PSFDATA, sigCat, 1, rc%, lpAPIs)
End Function