Get AX 2012 AOT Tree object in MS SQL

SELECT AOT_PARENT, AOT_CHILD--, ElementType, ElementTypeName
FROM( SELECT
CASE
WHEN AOT_PARENT ='Data Dictionary'THEN 1
WHEN AOT_PARENT ='Macros'THEN 2
WHEN AOT_PARENT ='Classes'THEN 3
WHEN AOT_PARENT ='Forms'THEN 4
WHEN AOT_PARENT ='Parts'THEN 5
WHEN AOT_PARENT ='Data Sets'THEN 6
WHEN AOT_PARENT ='SSRS Reports'THEN 7
WHEN AOT_PARENT ='Reports'THEN 8
WHEN AOT_PARENT ='Visual Studio Projects'THEN 9
WHEN AOT_PARENT ='Report Libraries'THEN 10
WHEN AOT_PARENT ='Queries'THEN 11
WHEN AOT_PARENT ='Jobs'THEN 12
WHEN AOT_PARENT ='Menus'THEN 13
WHEN AOT_PARENT ='Menu Items'THEN 14
WHEN AOT_PARENT ='Web'THEN 15
WHEN AOT_PARENT ='Services'THEN 16
WHEN AOT_PARENT ='Service Groups'THEN 17
WHEN AOT_PARENT ='Workflow'THEN 18
WHEN AOT_PARENT ='Security'THEN 19
WHEN AOT_PARENT ='Resources'THEN 20
WHEN AOT_PARENT ='Label Files'THEN 21
WHEN AOT_PARENT ='References'THEN 22
WHEN AOT_PARENT ='Help Document Sets'THEN 23
WHEN AOT_PARENT ='System Documentation'THEN 24
END AS AOT_OBJECT_PARENT_INDEX,
CASE
WHEN AOT_CHILD ='Tables'THEN 1
WHEN AOT_CHILD ='Maps'THEN 2
WHEN AOT_CHILD ='Views'THEN 3
WHEN AOT_CHILD ='Extended Data Types'THEN 4
WHEN AOT_CHILD ='Base Enums'THEN 5
WHEN AOT_CHILD ='License Codes'THEN 6
WHEN AOT_CHILD ='Configuration Keys'THEN 7
WHEN AOT_CHILD ='Security Keys'THEN 8
WHEN AOT_CHILD ='Table Collections'THEN 9
WHEN AOT_CHILD ='Perspectives'THEN 10
WHEN AOT_CHILD ='Info Parts'THEN 1
WHEN AOT_CHILD ='Form Parts'THEN 2
WHEN AOT_CHILD ='Cues'THEN 3
WHEN AOT_CHILD ='Cue Groups'THEN 4
WHEN AOT_CHILD ='Reports'THEN 1
WHEN AOT_CHILD ='Report Style Templates'THEN 2
WHEN AOT_CHILD ='Report Datasources'THEN 3
WHEN AOT_CHILD ='Report Images'THEN 4
WHEN AOT_CHILD ='Report Templates'THEN 1
WHEN AOT_CHILD ='Section Templates'THEN 2
WHEN AOT_CHILD ='Dynamics AX Model Projects'THEN 1
WHEN AOT_CHILD ='C Sharp Projects'THEN 2
WHEN AOT_CHILD ='Visual Basic Projects'THEN 3
WHEN AOT_CHILD ='Web Application Projects'THEN 4
WHEN AOT_CHILD ='Analysis Services Projects'THEN 5
WHEN AOT_CHILD ='Display'THEN 1
WHEN AOT_CHILD ='Output'THEN 2
WHEN AOT_CHILD ='Action'THEN 3
WHEN AOT_CHILD ='Web Menu Items'THEN 1
WHEN AOT_CHILD ='Web Content'THEN 2
WHEN AOT_CHILD ='Web Menus'THEN 3
WHEN AOT_CHILD ='Web Files'THEN 4
WHEN AOT_CHILD ='Web Modules'THEN 5
WHEN AOT_CHILD ='Workflow Categories'THEN 1
WHEN AOT_CHILD ='Approvals'THEN 2
WHEN AOT_CHILD ='Tasks'THEN 3
WHEN AOT_CHILD ='Automated Tasks'THEN 4
WHEN AOT_CHILD ='Workflow Types'THEN 5
WHEN AOT_CHILD ='Providers'THEN 6
WHEN AOT_CHILD ='Code Permissions'THEN 1
WHEN AOT_CHILD ='Privileges'THEN 2
WHEN AOT_CHILD ='Duties'THEN 3
WHEN AOT_CHILD ='Roles'THEN 4
WHEN AOT_CHILD ='Process Cycles'THEN 5
WHEN AOT_CHILD ='Policies'THEN 6
WHEN AOT_CHILD ='ApplicationHelpOnTheWeb'THEN 1
WHEN AOT_CHILD ='DeveloperDocumentation'THEN 2
WHEN AOT_CHILD ='Glossary'THEN 3
WHEN AOT_CHILD ='SystemAdministratorHelpOnTheWeb'THEN 4
WHEN AOT_CHILD ='UserDocumentation'THEN 5
WHEN AOT_CHILD ='Reserved Words'THEN 1
WHEN AOT_CHILD ='Functions'THEN 2
WHEN AOT_CHILD ='Tables'THEN 3
WHEN AOT_CHILD ='Types'THEN 4
WHEN AOT_CHILD ='Enums'THEN 5
WHEN AOT_CHILD ='Classes'THEN 6
END AS AOT_OBJECT_CHILD_INDEX,
*
FROM (SELECT
  REPLACE(LEFT(SUBSTRING(TREENODENAME+'\',2,LEN(TREENODENAME+'\')),CHARINDEX('\', SUBSTRING(TREENODENAME+'\',2,LEN(TREENODENAME+'\')))),'\','') AS AOT_PARENT,
  REPLACE(REPLACE(TREENODENAME,REPLACE(LEFT(SUBSTRING(TREENODENAME+'\',2,LEN(TREENODENAME+'\')),CHARINDEX('\', SUBSTRING(TREENODENAME+'\',2,LEN(TREENODENAME+'\')))),'\',''),''),'\','') AS AOT_CHILD,
  ELEMENTTYPE,
  ELEMENTTYPENAME,
  PARENTTYPE,
  TREENODENAME
  FROM ELEMENTTYPES
  WHERE TREENODENAME LIKE '\%'
  AND PARENTTYPE = 0) AS AOTLIST) AS AOT
WHERE AOT_OBJECT_PARENT_INDEX IS NOT NULL
ORDER BY AOT_OBJECT_PARENT_INDEX, AOT_OBJECT_CHILD_INDEX