with
  set [Measure Set] as '{[Measures].[ACTUAL_PPD]}'
  set [Company Set] as 'Filter({[Corporate Enterprise].[Company].Members}, ([Corporate Enterprise].CurrentMember.Properties("Accounting Number") = 151))'


  member Time.ref as [Time].[Date].[2011-12-31]

 set DateRangeMonth as lastPeriods(12,
    Ancestor([Time].[Date].[2011-12-31],Time.Month)
   )

set DateRangeToday as lastPeriods(30,[Time].[Date].[2011-12-31])

set DateRangeTrailing as

Order({[Time].[Date].[2011-12-31].lag( 0),
[Time].[Date].[2011-12-31].lag(30),
[Time].[Date].[2011-12-31].lag(60),
[Time].[Date].[2011-12-31].lag(90),
[Time].[Date].[2011-12-31].lag(120),
[Time].[Date].[2011-12-31].lag(150),
[Time].[Date].[2011-12-31].lag(180),
[Time].[Date].[2011-12-31].lag(210),
[Time].[Date].[2011-12-31].lag(240),
[Time].[Date].[2011-12-31].lag(270),
[Time].[Date].[2011-12-31].lag(300),
[Time].[Date].[2011-12-31].lag(330)
},Time.currentMember.level.ordinal)


set dateset as DateRangeMonth

  member [Measures].[MCD_FLAG Days] as 'Aggregate(LastPeriods(30,Time.currentMember), ([Measures].[MCD_FLAG]))'
  member [Measures].[MCA_FLAG Days] as 'Aggregate(LastPeriods(30,Time.currentMember), ([Measures].[MCA_FLAG]))'

  member [Measures].[Actual PPD new Days] as 'Aggregate(LastPeriods(30,Time.currentMember), ([Measures].[Actual PPD new]))'


  member [Measures].[MCD_FLAG] as '(1.0 - [Measures].[MCD])'
  member [Measures].[MCA_FLAG] as '(1.0 - [Measures].[MCA])'

  member [Measures].[ACTUAL_PPD] as 'IIf(([Income Statement].CurrentMember.Name = "Medicare Part A Total"), [Measures].[MCA_PPD], [Measures].[MCD_PPD])'

  member [Measures].[MCD_PPD] as 'IIf(([Measures].[MCD_FLAG Days] = 1.0), NULL, [Measures].[Actual PPD new])'
  member [Measures].[MCA_PPD] as 'IIf(([Measures].[MCA_FLAG Days] = 1.0), NULL, [Measures].[Actual PPD new])'

select
  dateset ON COLUMNS,
  ([Company Set] * [Measure Set]) ON ROWS
from [GL Actual and Budget]
where [Income Statement].[Income Statement].[Revenues].[Patient Care Revenue].[Medicare Part A Total]