private/Get-ReferencedObjects.ps1

function Find-RefObject($node, $list) {
    #Write-Verbose "Type = $($node.GetType().Name)"

    $script:ind++
    if ($null -eq $node) { $script:ind--; return }
    if ($node.GetType().Name -notin ('Object[]','PSCustomObject')) { $script:ind--; return }
    if ($null -ne $node.PSobject -and $node.PSobject.Properties.Name -contains 'referenceName' -and $node.PSobject.Properties.Name -contains 'type') {
        [string] $type = $node.type
        if ($type.EndsWith('Reference')) {
            $type = $type.Substring(0, $type.Length-9)
            #Write-Verbose "$type.$($node.referenceName)"
            $list.Add("$type.$($node.referenceName)") | Out-Null
        }
    }

    if ($node.GetType().Name -eq 'Object[]')
    {
        foreach ($item in $node) {
            Find-RefObject -node $item -list $list
        }
    }
    if ($node.GetType().Name -eq 'PSCustomObject')
    { 
        $m = Get-Member -InputObject $node -MemberType 'NoteProperty'
        $m | ForEach-Object {
            $name = $_.Name
            Write-Debug ("-"+"."*2*$script:ind + "$name")
            if ($name.Length -gt 0)
            {
                Invoke-Expression "`$in = `$node.`'$name`'"
                Find-RefObject -node $in -list $list
            }
        }
    }
    $script:ind--
}


function Get-ReferencedObjects {
    [CmdletBinding()]
    param (
        [parameter(Mandatory = $true)] [AdfObject] $obj
    )
    
    Write-Debug "BEGIN: Get-ReferencedObjects(obj=$obj)"

    $script:ind = 0
    [System.Collections.ArrayList] $arr = [System.Collections.ArrayList]::new()
    #$arr = Find-RefObject -node $obj.Body -list $arr
    Find-RefObject -node $obj.Body -list $arr
    
    Write-Debug "END: Get-ReferencedObjects()"
    return $arr
}