apm_one_package_descendents (private)

 apm_one_package_descendents package_key

Defined in packages/acs-tcl/tcl/apm-procs.tcl

Returns a list of package keys of all packages that inherit from the given package

Parameters:

package_key (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    foreach descendent [db_list get_descendents {}] {
        if { [info exists ::apm_visited_package_keys($descendent)] } {
            continue
        }
        set ::apm_visited_package_keys($descendent) 1
        lappend ::apm_package_descendents $descendent
        apm_one_package_descendents $descendent
    }

Generic XQL file:

<fullquery name="apm_one_package_descendents.get_descendents">
    <querytext>
      select apv.package_key
      from apm_package_versions apv, apm_package_dependencies apd
      where apd.version_id = apv.version_id
        and apv.enabled_p = 't'
        and apd.dependency_type in ('extends', 'embeds')
        and apd.service_uri = :package_key
    </querytext>
</fullquery>

packages/acs-tcl/tcl/apm-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/apm-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/apm-procs-oracle.xql