| Quintiq file version 2.0 | 
| #parent: #root | 
| Method GetAllParentsOfUnitDimensionNonConst () as owning UnitPeriods | 
| { | 
|   Description: 'Returns all parents of the unit dimension' | 
|   TextBody: | 
|   [* | 
|     unitperiods := construct( UnitPeriods ) | 
|      | 
|     unitperiod := this.ParentOfUnitDimension(); | 
|      | 
|     while( not isnull( unitperiod ) ) | 
|     { | 
|      unitperiods.Add( unitperiod ) | 
|      unitperiod := unitperiod.ParentOfUnitDimension() | 
|     } | 
|      | 
|     return &unitperiods | 
|   *] | 
|   InterfaceProperties { Accessibility: 'Extensible' } | 
| } |