Skip to content

Commit

Permalink
Standardize code syntax
Browse files Browse the repository at this point in the history
  • Loading branch information
@psteiwer
psteiwer committed Jan 29, 2019
1 parent 667fe86 commit d640192
Show file tree
Hide file tree
Showing 14 changed files with 1,306 additions and 1,342 deletions.
672 changes: 336 additions & 336 deletions AnalyzeThis/Dashboard/AutoPivot.cls
View file

Large diffs are not rendered by default.

6 changes: 3 additions & 3 deletions AnalyzeThis/Dashboard/MetaData.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -30,11 +30,11 @@ ClassMethod Delete(pCubeName As %String) As %Status
{
Set exist=""
&sql(SELECT %ID INTO :exist FROM AnalyzeThis_Dashboard.MetaData WHERE (CubeName=:pCubeName))
if ((SQLCODE = 0)&&(exist'=""))
{
If ((SQLCODE = 0)&&(exist'="")) {
&sql(DELETE FROM AnalyzeThis_Dashboard.MetaData WHERE (CubeName=:pCubeName))
}
quit $$$OK

Quit $$$OK
}

Storage Default
Expand Down
148 changes: 76 additions & 72 deletions AnalyzeThis/Dashboard/MetaDataAnalyze.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3,55 +3,56 @@ Class AnalyzeThis.Dashboard.MetaDataAnalyze Extends %DeepSee.Utils

ClassMethod EvaluateCube(pCube As %String) As %Status
{
Set tSC = $$$OK
Set tSC=$$$OK
Try {
If (pCube="") {
Quit
}
Set tCube = $$$UPPER(pCube)
Set tFactClass = $$$UPPER(..%GetCubeFactClass(tCube))
Set tCube=$$$UPPER(pCube)
Set tFactClass=$$$UPPER(..%GetCubeFactClass(tCube))
If (tFactClass="") {
Quit
}

//Delete Existing MetaData for the Cube
DO ##class(AnalyzeThis.Dashboard.MetaData).Delete(tCube)
Do ##class(AnalyzeThis.Dashboard.MetaData).Delete(tCube)

Set tSC = ..%GetCubeLevels(tCube,.tLevels,1,1)
Set tSC=..%GetCubeLevels(tCube,.tLevels,1,1)
If $$$ISERR(tSC) Quit

Set tFactCount = ..%GetCubeFactCount(tCube)
Set tFactCount=..%GetCubeFactCount(tCube)

If (tFactCount>0) {

Set n = $O(tLevels(""))
Set n=$O(tLevels(""))
While (n'="") {
kill tMeta
Set tMeta= ##class(AnalyzeThis.Dashboard.MetaData).%New()
Kill tMeta
Set tMeta=##class(AnalyzeThis.Dashboard.MetaData).%New()
Set tMeta.CubeName=tCube
Set tMDXnull="", tMDXavg="", tMDXstd=""
set tSpec=""
Set tSpec=""
Set tWord=0
Set tGender=0
Set ttName=$$$UPPER($LG(tLevels(n),3))

Set tType = $LG(tLevels(n),1)
Set tType=$LG(tLevels(n),1)

//Dimensions
If (tType="l") {
Set tSpec = "["_$LG(tLevels(n),2)_"].["_$LG(tLevels(n),3)_"].["_$LG(tLevels(n),4)_"]"
Set tMDXnull = "SELECT "_tSpec_".&[<null>] ON ROWS FROM ["_tCube_"]"
Set tSpec="["_$LG(tLevels(n),2)_"].["_$LG(tLevels(n),3)_"].["_$LG(tLevels(n),4)_"]"
Set tMDXnull="SELECT "_tSpec_".&[<null>] ON ROWS FROM ["_tCube_"]"

Set ttName=$$$UPPER($LG(tLevels(n),4))

//Word Recognition
If (ttName["MEASURE") {
Set tWord=1
}

If ((ttName["SEX")||(ttName["GENDER")) {
Set tWord=tWord+1
Set tMeta.DataType="Gender"
}
}

If (ttName["STATE") {
Set tWord=tWord+1
Set tMeta.DataType="State"
Expand All @@ -60,63 +61,67 @@ ClassMethod EvaluateCube(pCube As %String) As %Status
//Measures
ElseIf (tType="m") {
If ($LG(tLevels(n),3)'="%COUNT") {
Set tSpec = "["_$LG(tLevels(n),2)_"].["_$LG(tLevels(n),3)_"]"
Set tMDXnull = "SELECT FROM ["_tCube_"] WHERE %SEARCH.&["_tSpec_" IS NULL]"
Set tSpec="["_$LG(tLevels(n),2)_"].["_$LG(tLevels(n),3)_"]"
Set tMDXnull="SELECT FROM ["_tCube_"] WHERE %SEARCH.&["_tSpec_" IS NULL]"
Set tMDXavg="SELECT "_tSpec_".AVG ON 0 FROM ["_tCube_"]"
d ##class(%DeepSee.Utils).%GetDimensionInfo(tCube,tSpec,.tDim,.tHier,.tLevel)
d ##class(%DeepSee.Utils).%GetDimensionFact(tCube,tDim,tHier,tLevel,.sqlname)
Do ##class(%DeepSee.Utils).%GetDimensionInfo(tCube,tSpec,.tDim,.tHier,.tLevel)
Do ##class(%DeepSee.Utils).%GetDimensionFact(tCube,tDim,tHier,tLevel,.sqlname)
Set tablename=##class(%DeepSee.Utils).%GetCubeFactTable(tCube)

kill sql, statement,st,rs
Kill sql, statement,st,rs
Set sql="SELECT STDDEV("_sqlname_") As SD,MAX("_sqlname_") As MX ,MIN("_sqlname_") As MN FROM "_tablename
Set statement=##class(%SQL.Statement).%New()
Set st=statement.%Prepare(sql)
if (st) {
If (st) {
Set rs=statement.%Execute()
while (rs.%Next()'=0) {
set tMeta.STDDEV=rs.%Get("SD")
set tMeta.Maximum=rs.%Get("MX")
set tMeta.Minimum=rs.%Get("MN")
While (rs.%Next()'=0) {
Set tMeta.STDDEV=rs.%Get("SD")
Set tMeta.Maximum=rs.%Get("MX")
Set tMeta.Minimum=rs.%Get("MN")
}
}

Set ttName=$$$UPPER($LG(tLevels(n),3))
//Word Recognition
If (ttName["SCORE")
{Set tWord=1}
If (ttName["AVERAGE")
{Set tWord=tWord+1}
If (ttName["TOTAL")
{Set tWord=tWord+1}
If (ttName["REVENUE")
{Set tWord=tWord+1}
If (ttName["SCORE") {
Set tWord=1
}
If (ttName["AVERAGE") {
Set tWord=tWord+1
}
If (ttName["TOTAL") {
Set tWord=tWord+1
}
If (ttName["REVENUE") {
Set tWord=tWord+1
}
}
}
//Relations
ElseIf (tType="r") {
// find null ref for relation
Set tRelation = $LG(tLevels(n),2)
Set tNullRef = $G($$$DeepSeeMetaGLVN("cubes",tCube,"relations",$$$UPPER(tRelation),"nullReplacement"))
Set tRelation=$LG(tLevels(n),2)
Set tNullRef=$G($$$DeepSeeMetaGLVN("cubes",tCube,"relations",$$$UPPER(tRelation),"nullReplacement"))
If (tNullRef'="") {
Set tSpec = "["_tRelation_"]"
Set tMDXnull = "SELECT FROM ["_tCube_"] WHERE "_tSpec_".&["_tNullRef_"]"
Set tSpec="["_tRelation_"]"
Set tMDXnull="SELECT FROM ["_tCube_"] WHERE "_tSpec_".&["_tNullRef_"]"
}
}

//Get Cardinality
set tCard=0
if tSpec'="" {
d ##class(%DeepSee.Utils).%GetDimensionInfo(tCube,tSpec,.tDim,.tHier,.tLevel)
if tDim=0 {
set tIndex=$G($$$DeepSeeMetaGLVN("cubes",tCube,"msr#",$LG($$$DeepSeeMetaGLVN("cubes",tCube,"mbr#",tDim,tHier,tLevel),5)))_"Search"
} else {
set tIndex=$LG($$$DeepSeeMetaGLVN("cubes",tCube,"mbr#",tDim,tHier,tLevel),5)
Set tCard=0
If tSpec'="" {
Do ##class(%DeepSee.Utils).%GetDimensionInfo(tCube,tSpec,.tDim,.tHier,.tLevel)
If tDim=0 {
Set tIndex=$G($$$DeepSeeMetaGLVN("cubes",tCube,"msr#",$LG($$$DeepSeeMetaGLVN("cubes",tCube,"mbr#",tDim,tHier,tLevel),5)))_"Search"
} Else {
Set tIndex=$LG($$$DeepSeeMetaGLVN("cubes",tCube,"mbr#",tDim,tHier,tLevel),5)
}

Set tValue = $O($$$DeepSeeIndexGLVN(tCube,tIndex,""))
While (tValue '= "") {
Set tCard = tCard + 1
Set tValue = $O($$$DeepSeeIndexGLVN(tCube,tIndex,tValue))
Set tValue=$O($$$DeepSeeIndexGLVN(tCube,tIndex,""))
While (tValue '="") {
Set tCard=tCard + 1
Set tValue=$O($$$DeepSeeIndexGLVN(tCube,tIndex,tValue))
}
Set tMeta.Cardinality=tCard
}
Expand All @@ -127,69 +132,68 @@ ClassMethod EvaluateCube(pCube As %String) As %Status
Set tMeta.LevelType=$Case(tType,"l":"Dimension","m":"Measure","r":"Relation",:tType)
Set tMeta.WordRecognition=tWord
Set listVals=$lb(tMDXnull,tMDXavg,tMDXstd)
for i=1:1:$listlength(listVals) {
set tMDX=$listget(listVals,i)
if tMDX'="" {
Set tRS = ##class(%DeepSee.ResultSet).%New()
Set tSC = tRS.%PrepareMDX(tMDX)
For i=1:1:$listlength(listVals) {
Set tMDX=$listget(listVals,i)
If tMDX'="" {
Set tRS=##class(%DeepSee.ResultSet).%New()
Set tSC=tRS.%PrepareMDX(tMDX)
If $$$ISERR(tSC) Quit
Set tSC = tRS.%Execute()
Set tSC=tRS.%Execute()
If $$$ISERR(tSC) Quit
Set tVal = tRS.%GetOrdinalValue()
if i=1 {
Set tVal=tRS.%GetOrdinalValue()
If i=1 {
Set tMeta.Null=(tVal/tFactCount)
} elseif i=2 {
} ElseIf i=2 {
Set tMeta.Mean=tVal
} elseif i=3 {
} ElseIf i=3 {
Set tMeta.STDDEV=tVal
}
}
}

Set tSC=tMeta.%Save()
If $$$ISERR(tSC) QUIT
If $$$ISERR(tSC) Quit

Set n = $O(tLevels(n))
Set n=$O(tLevels(n))
}
}

Set namespace=$NAMESPACE
Set tCubeClass=##class(%DeepSee.Utils).%GetCubeClass(tCube)
Set tSC = $zobjclassmethod(tCubeClass,"%GetSourceInfo",.tSourceInfo)
Set tSC=$zobjclassmethod(tCubeClass,"%GetSourceInfo",.tSourceInfo)
Set tSourceClass=tSourceInfo("sourceClass")
Set class=##class(%Dictionary.ClassDefinition).%OpenId(tSourceClass,,.st)

if (st) {
for i=1:1:class.Properties.Count() {
set prop=class.Properties.GetAt(i)
set tType=prop.Type
if (tType="%Library.Date") {
If (st) {
For i=1:1:class.Properties.Count() {
Set prop=class.Properties.GetAt(i)
Set tType=prop.Type
If (tType="%Library.Date") {
Kill propName,sql,statement,st,rs
Set propName="%"_prop.Name_"%"
Set sql="UPDATE AnalyzeThis_Dashboard.MetaData (DataType) VALUES ('Date') WHERE LevelName LIKE ?"
Set statement=##class(%SQL.Statement).%New("deffered")
Set st=statement.%Prepare(sql)
if (st) {
If (st) {
Set rs=statement.%Execute(propName)
}
}
if (($$$UPPER(prop.Name)[$$$UPPER("year"))&&(tType'="%Library.Date")) {
If (($$$UPPER(prop.Name)[$$$UPPER("year"))&&(tType'="%Library.Date")) {
Kill propName,sql,statement,st,rs
Set propName="%"_prop.Name_"%"
Set sql="UPDATE AnalyzeThis_Dashboard.MetaData (DataType) VALUES ('Year') WHERE LevelName LIKE ?"
Set statement=##class(%SQL.Statement).%New("deffered")
Set st=statement.%Prepare(sql)
if (st) {
If (st) {
Set rs=statement.%Execute(propName)
}
}
}
}
} Catch(ex) {
Set tSC=ex.AsStatus()
}

Catch(ex) {
Set tSC = ex.AsStatus()
}
If $$$ISERR(tSC) {
Do $System.Status.DisplayError(tSC)
}
Expand Down
33 changes: 16 additions & 17 deletions AnalyzeThis/Dashboard/Utils.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,11 +9,11 @@ ClassMethod DeleteAll(pName As %String) As %Status
Quit $$$ERROR($$$GeneralError,"Please enter a valid cube name")
}

set tCubeName=$$$UPPER(pName)
Set tCubeName=$$$UPPER(pName)

set tCubeClass=##class(%DeepSee.Utils).%GetCubeClass(tCubeName)
set tCubeFactClass=##class(%DeepSee.Utils).%GetCubeFactClass(tCubeName)
set tSourceClass=$$$DeepSeeMetaGLVN("cubes",tCubeName,"sourceClass")
Set tCubeClass=##class(%DeepSee.Utils).%GetCubeClass(tCubeName)
Set tCubeFactClass=##class(%DeepSee.Utils).%GetCubeFactClass(tCubeName)
Set tSourceClass=$$$DeepSeeMetaGLVN("cubes",tCubeName,"sourceClass")

//Delete pivots associated with the cube
Do ##class(AnalyzeThis.Dashboard.Utils).GetPivotList(.pivots,,pName)
Expand All @@ -25,36 +25,37 @@ ClassMethod DeleteAll(pName As %String) As %Status

Do ##class(AnalyzeThis.Dashboard.Utils).DeleteDashboards(pName)

set tSC=$classmethod(tCubeFactClass,"%DeleteExtent")
Set tSC=$classmethod(tCubeFactClass,"%DeleteExtent")
If $$$ISERR(tSC) {
Quit tSC
}
set tSC=$system.OBJ.Delete(tCubeClass,"/displayerror=0 /displaylog=0")

Set tSC=$system.OBJ.Delete(tCubeClass,"/displayerror=0 /displaylog=0")
If $$$ISERR(tSC) {
Quit tSC
}

set tSC=$classmethod(tSourceClass,"%DeleteExtent")
Set tSC=$classmethod(tSourceClass,"%DeleteExtent")
If $$$ISERR(tSC) {
Quit tSC
}
set tSC=$system.OBJ.Delete(tSourceClass,"/displayerror=0 /displaylog=0")

Set tSC=$system.OBJ.Delete(tSourceClass,"/displayerror=0 /displaylog=0")
If $$$ISERR(tSC) {
Quit tSC
}

//Delete MetaDataAnalysis associated with cube
set tSC=##class(AnalyzeThis.Dashboard.MetaData).Delete(pName)
Set tSC=##class(AnalyzeThis.Dashboard.MetaData).Delete(pName)
If $$$ISERR(tSC) {
Quit tSC
}


If $$$ISERR(tSC) {
Quit tSC
}

k ^AnalyzeThis.ImportCSV(pName)
Kill ^AnalyzeThis.ImportCSV(pName)

Quit tSC
}
Expand All @@ -71,7 +72,7 @@ ClassMethod GetPivotList(Output pList, pHidden As %Boolean = 0, pCubeName As %St
Set tSC = $$$OK
Kill pList
Try {
set i=1
Set i=1
Set tFlag = $zu(115,8,0)
Set tStatement = ##class(%SQL.Statement).%New(,"DEFAULT_SCHEMA")
Set tSC = tStatement.%Prepare("SELECT ID FROM %DeepSee_Dashboard.Pivot")
Expand All @@ -90,15 +91,14 @@ ClassMethod GetPivotList(Output pList, pHidden As %Boolean = 0, pCubeName As %St
If ((pCubeName="")||(pCubeName=$$$UPPER(tItem.cubeName))) {
If (tItem.%CheckResource()) {
Set pList(i) = tItem.fullName
set i=i+1
Set i=i+1
}
}
}
}
}
}
}
Catch(ex) {
} Catch(ex) {
Set tSC = ex.AsStatus()
}
Set tFlag = $zu(115,8,tFlag)
Expand All @@ -113,7 +113,7 @@ ClassMethod DeleteDashboards(pCubeName As %String)

Set dashIdx = $O(dashboards(""))
While dashIdx '= "" {
set dashName=dashboards(dashIdx)
Set dashName=dashboards(dashIdx)
Set dash=##class(%DeepSee.Dashboard.Utils).%DashboardExists(dashName)
If (dash) {
Set tSC=##class(%DeepSee.Dashboard.Utils).%DeleteDashboard(dashName)
Expand All @@ -124,7 +124,6 @@ ClassMethod DeleteDashboards(pCubeName As %String)

Set dashIdx = $O(dashboards(dashIdx))
}

}

}
Loading

0 comments on commit d640192

Please sign in to comment.