TM1 Forum

Code: Select all

IF (PContract@='');
   PContract= 'Unspec Contract';
ENDIF;

IF (DIMIX(DimName,PContract)=0);
   DimensionElementInsert(DimName, '', PContract,  'C');
   DimensionElementComponentAdd(DimName, 'Total Project ID by Contract', PContract, 1);
ENDIF;

DimensionElementComponentAdd(DimName, PContract, ElName, 1);

Code: Select all

vIndex = 1;
vElParN = ELPARN(DimName, Project_ID);


While (vIndex<=vElParN);
   vElPar  = ELPAR (DimName, Project_id, vindex);


## This code is to unwind the project hierarchies but only for the project hierarchies we are creating in Dim Project ID 7. Consolidation by Class
## This is because the TI there adds into the hierarchy but does not delete redundant ones
## Added by James Webber IRL 120427 see TMI-241
## Based on Ben Hills Example http://blog.tm1tutorials.com/tag/dimensionelementcomponentdelete/

# Frist lets check to see if the Parent of the project is total contract
If (vElpar @= 'Total Project ID by Contract');
   # Now how many children are there underneath?
      ChildCount =  ELCOMPN(DimName, Project_Id);
                  # find the name of each of the children
                 WHILE(ChildCount > 0);
                 sChildElm = ELCOMP(DimName, Project_Id,ChildCount);                       
                      #Now check the child name is an ancestor (child) of the project_ID, i.e the node in this case
                       #IF (ELISANC(DimName, Project_Id, sChildElm) = 1);
                       # If so remove it from the hierarchy
                       DimensionElementComponentDelete(DimName, Project_Id, sChildElm);
                       #ENDIF;

                ChildCount = ChildCount - 1;
               end;
ENDIF;

vElParN = vElParN-1;

END;