Essbase & Hyperion Enterprise API

Question

Is there anyone out there that has done extensive calls to Essbase or to Hyperion Enterprise 5.5 using API?Has anyone developed an application that does outline maintenance outside of Application manager? We have a very manual process since we do not pull everything out of enterprise and make that part of our outline dynamically through like a load rule. We bring all the accounts into a dimension and then drag them to where they need to go.Any Help would be appreciated.Paul [email protected]

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