Name: View Member Definition
 
Action Target
    Target Type: Cells
    Target object: All cells
 
Action Content
    Type: URL
    Action expression: "http://i.domain.com/doc/Defs.aspx#" 
                       + [Measures].CurrentMember.Name
 
Additional Properties
    Invocation: Interactive
    Description: View Member Definition
    "View Definition Of " + [Measures].CurrentMember.Name + "..."
    Caption is MDX: True

<div id="dataDictionary">
    <div id="termNotFound">Specified definition could not be found.</div>
 
    <div>
        <h1>Term goes here</h1>
        <p>Definition goes here</p>
        <h2>Additional Comments</h2>
        <ul>
            <li>comment</li>
        </ul>
    </div>
    <div>
        <h1>Other Term goes here</h1>
        <p>Other Definition goes here</p>
        <h2>Additional Comments</h2>
        <ul>
            <li>comment</li>
        </ul>
    </div>
</div>

function parseUri (str) {
	var	o   = parseUri.options,
		m   = o.parser[o.strictMode ? "strict" : "loose"].exec(str),
		uri = {},
		i   = 14;
 
	while (i--) uri[o.key[i]] = m[i] || "";
 
	uri[o.q.name] = {};
	uri[o.key[12]].replace(o.q.parser, function ($0, $1, $2) {
		if ($1) uri[o.q.name][$1] = $2;
	});
 
	return uri;
};
 
parseUri.options = {
	strictMode: false,
	key: ["source","protocol","authority","userInfo","user","password","host","port","relative","path","directory","file","query","anchor"],
	q:   {
		name:   "queryKey",
		parser: /(?:^|&)([^&=]*)=?([^&]*)/g
	},
	parser: {
		strict: /^(?:([^:\/?#]+):)?(?:\/\/((?:(([^:@]*):?([^:@]*))?@)?([^:\/?#]*)(?::(\d*))?))?((((?:[^?#\/]*\/)*)([^?#]*))(?:\?([^#]*))?(?:#(.*))?)/,
		loose:  /^(?:(?![^:@]+:[^:@\/]*@)([^:\/?#.]+):)?(?:\/\/)?((?:(([^:@]*):?([^:@]*))?@)?([^:\/?#]*)(?::(\d*))?)(((\/(?:[^?#](?![^?#\/]*\.[^?#\/.]+(?:[?#]|$)))*\/?)?([^?#\/]*))(?:\?([^#]*))?(?:#(.*))?)/
	}
};

function ScrollToElement(theElement){
 
  var selectedPosX = 0;
  var selectedPosY = 0;
 
  while(theElement != null){
    selectedPosX += theElement.offsetLeft;
    selectedPosY += theElement.offsetTop;
    theElement = theElement.offsetParent;
  }
 
 window.scrollTo(selectedPosX,selectedPosY);
 
}

function trim(str, chars) {
	return ltrim(rtrim(str, chars), chars);
}
 
function ltrim(str, chars) {
	chars = chars || "\\s";
	return str.replace(new RegExp("^[" + chars + "]+", "g"), "");
}
 
function rtrim(str, chars) {
	chars = chars || "\\s";
	return str.replace(new RegExp("[" + chars + "]+$", "g"), "");
}

function hotlink() {
	var colP = document.getElementsByTagName('p');
	if ( colP.length > 0 ) {
		for(var i=0; i<colP.length; i++) {
			colP[i].innerHTML = colP[i].innerHTML.replace(new RegExp("(" + ddTerms + "^$)","g"),"<a href=\"javascript:findTerm('$1')\"'>$1</a>");
		}
	}
}
 
function findTerm(term) {
	var colDIV = document.getElementsByTagName('div');
	if ( colDIV.length > 0 ) {
		for(var i=0; i<colDIV.length; i++) {
			if (i % 2 == 0) {
				colDIV[i].className = 'alt';
			}
			else {
				className = '';
			}
		}
	}
 
	var colH1 = document.getElementsByTagName('h1');
	if ( colH1.length > 0 ) {
		var found = false;
		for(var i=0; i<colH1.length; i++) {
			var ddTerm = trim(colH1[i].innerHTML.toLowerCase());
			if (ddTerm == term.toLowerCase()) {
				found = true;
				colH1[i].parentNode.className = 'selected';
				ScrollToElement(colH1[i]);
			}
			ddTerms += "\\b" + ddTerm.replace(new RegExp("(\\(|\\))", "g"), "\\$1") + "\\b|";
		}
 
		if (!found && term.length > 0) {
			var tnf = document.getElementById('termNotFound');
			tnf.style.display = 'block';
			ScrollToElement(tnf);
		}
	}
}
 
var ddTerms = '';
 
window.onload = function () {
	findTerm(unescape(parseUri(window.location.href).anchor));
	hotlink();
}

	#dataDictionary a { font-style: italic; text-decoration: underline; }
	#dataDictionary 
	{
		font-size: 110%;
	}
 
	#dataDictionary div 
	{ 
		background-color: #ccccff; 
		margin-bottom: 4pt;
	}
 
	#dataDictionary div p
	{ 
		margin: 2pt;
	}
 
	#dataDictionary div ul
	{ 
		margin-top: 2pt;
	}
 
	#termNotFound 
	{ 
		display: none; 
		color: red; 
		font-weight: bold; 
		font-style: italic; 
		border: 2px dotted red;
		background-color: #ffff77 !important;
		padding: 2pt;
	}
 
	#dataDictionary div h1 
	{ 
		font-size: 130%; 
		border-bottom: 1px solid white; 
		background-color: #ccbbff;
		margin: 0pt, 0pt, 2pt, 0pt;
	}
	#dataDictionary div h2 { 
		font-size: 115%; 
		margin: 3pt, 0pt, 2pt, 0pt;
	}
 
	#dataDictionary div ul 
	{
		margin-bottom: 2pt;
	}
 
	#dataDictionary div.alt  h1
	{ 
		background-color: #88ff88; 
	}
	#dataDictionary div.alt 
	{ 
		background-color: #bbffaa; 
	}	
 
	#dataDictionary div.selected h1 
	{ 
		background-color: #ff7755; 
	}
	#dataDictionary div.selected 
	{ 
		background-color: #ff9988; 
		font-size: 125%;
	}

WITH 
  MEMBER [Measures].[This Week] AS 
    Aggregate
    ([Time].[Calendar Date].LastChild:[Time].[Calendar Date].LastChild.Lag(6)
     ,[Measures].[Revenue])
 
  MEMBER [Measures].[Previous Week] AS 
     Aggregate([Time].[Calendar Date].LastChild.Lag(7)
     :
     [Time].[Calendar Date].LastChild.Lag(13)
     ,[Measures].[Revenue])
SELECT 
  NON EMPTY 
    {[Measures].[Previous Week], [Measures].[This Week]} ON 0
 ,NON EMPTY 
    { 
        [Time].[Date Time].[Date Time].MEMBERS 
        * 
        [Time].[24 Hour].[24 Hour].ALLMEMBERS
    } ON 1
FROM 
(
  SELECT 
    Tail(
         Filter(
               [Time].[24 Hour].[24 Hour].MEMBERS
               ,Sum([Time].[Calendar Date].LastChild,[Measures].[Revenue]) > 0
         ), 1
    ) ON 0
  FROM 
  (SELECT 
      {
            [Time].[Calendar Date].LastChild
            :
            [Time].[Calendar Date].LastChild.Lag(13)
      } ON 0
    FROM [Cube]
  )
)

Sub AddCalculatedMeasure() 
	Dim pvt As PivotTable
	Dim strName As String
	Dim strFormula As String 
 
	Set pvt = Sheet1.PivotTables("PivotTable1")
	strName = "[Measures].[Internet Sales Amount 25 %]"
	strFormula = "[Measures].[Internet Sales Amount]*1.25"
	pvt.CalculatedMembers.Add Name:=strName, Formula:=strFormula, Type:=xlCalculatedMember 
End Sub 
 
Sub AddCalculatedMember() 
	Dim pvt As PivotTable
	Dim strName As String
	Dim strFormula As String 
 
	Set pvt = Sheet1.PivotTables("PivotTable1")
	strName = "[Product].[Product Categories].[Bikes].[Mountain Bikes].[Mountain-100 Silver, 38 25 %]"
	strFormula = "[Product].[Product Categories].[Bikes].[Mountain Bikes].[Mountain-100 Silver, 38]*1.25"
	pvt.CalculatedMembers.Add Name:=strName, Formula:=strFormula, Type:=xlCalculatedMember
	pvt.ViewCalculatedMembers = True 
End Sub 
 
Sub AddNamedSet() 
	Dim pvt As PivotTable
	Dim strName As String
	Dim strFormula As String
	Dim cbf As CubeField 
 
	Set pvt = Sheet1.PivotTables("PivotTable1")
	strName = "[My Mountain Bikes]"
	strFormula = "[Product].[Product Categories].[Bikes].[Mountain Bikes].children"
	pvt.CalculatedMembers.Add Name:=strName, Formula:=strFormula, Type:=xlCalculatedSet
	Set cbf = pvt.CubeFields.AddSet(Name:="[My Mountain Bikes]", Caption:="Mountain Bikes") 
End Sub

DECLARE @PercentOfAverage AS DECIMAL(10, 2)
DECLARE @Yesterday AS DECIMAL(10, 2)
DECLARE @SevenDayAverage AS DECIMAL(10, 2)
 
 
SELECT SliceName,Threshold
INTO #Temp_SliceList
FROM (
	SELECT 'Slice1' AS 'SliceName', .8 AS 'Threshold'
	UNION
	SELECT 'Slice2', 0.9
) a
 
DECLARE @tsql NVARCHAR(MAX)
 
DECLARE @slice VARCHAR(255)
DECLARE @threshold DECIMAL(10,2)
DECLARE @slicecursor CURSOR
 
SET @slicecursor = CURSOR FOR
	SELECT slicename,threshold FROM #Temp_SliceList
 
OPEN @slicecursor
 
FETCH NEXT FROM @slicecursor INTO @slice, @threshold
 
WHILE (@@FETCH_STATUS = 0) 
BEGIN
 
 
	CREATE TABLE #Temp_MdxResults 
	  (Yesterday DECIMAL(10,2),
		SevenDayAverage DECIMAL(10,2),
		PercentOfAverage DECIMAL(10,2))
 
	SET @tsql = '
INSERT INTO #Temp_MdxResults (Yesterday, SevenDayAverage, PercentOfAverage)
SELECT    ISNULL("[Measures].[Yesterday Foo]", 0) AS ''Yesterday'',
						ISNULL("[Measures].[Average 7-Day Foo]", 0) AS ''SevenDayAverage'',
						ISNULL("[Measures].[Percent Change]", 0) AS ''PercentOfAverage''
			  FROM      OpenRowset(''MSOLAP'',
								   ''DATA SOURCE=SERVER\INSTANCE; Initial Catalog=SSASDB;'',''
WITH 
MEMBER Measures.[Yesterday Foo] AS SUM
(
	{
		StrToMember("[Time].[Calendar Date].[" + VBA!format(VBA!dateadd("d",-1,VBA![date]()),"yyyy-MM-dd 00:00:00") + "]")
	},
	[Measures].[Foo]		
)
MEMBER Measures.[Average 7-Day Foo] AS AVG
(
	{
		StrToMember("[Time].[Calendar Date].[" + VBA!format(VBA!dateadd("d",-2,VBA![date]()),"yyyy-MM-dd 00:00:00") + "]"):StrToMember("[Time].[Calendar Date].[" + VBA!format(VBA!dateadd("d",-9,VBA![date]()),"yyyy-MM-dd 00:00:00") + "]")
	},
	[Measures].[Foo]		
)
MEMBER Measures.[Percent Change] AS Measures.[Yesterday Foo]/Measures.[Average 7-Day Foo]
SELECT 
{Measures.[Yesterday Foo], Measures.[Average 7-day Foo], Measures.[Percent Change]} ON 0,
{
	[Slice Dimension].[Slice Attribute].&[' + @slice + ']
}ON 1
FROM [Cube]'') a'
 
	EXEC (@tsql)
 
	SELECT  
		@PercentOfAverage = CAST(tot.PercentOfAverage AS DECIMAL(10, 2)),
		@Yesterday = CAST(tot.Yesterday AS DECIMAL(10, 2)),
		@SevenDayAverage = CAST(tot.SevenDayAverage AS DECIMAL(10, 2))
	FROM    #Temp_MdxResults tot
 
	DROP TABLE #Temp_MdxResults
 
	IF @PercentOfAverage < @Threshold 
		BEGIN
			--Do Something useful here
 
		END
	FETCH NEXT FROM @slicecursor INTO @slice, @threshold
END