(:
   OBSOLETED!
   date:   22-June-2010
   author: Gary Lewis
   notes:  Replaced by count_distinct_unitids_all_years_v2.xq when the 25 distinct_unitds_by_year.xm files
           were eliminated.
:)

(:
   file:     distinct_unitids_all_years.xq
   date:     18-May-2010
   author:   Gary Lewis
   purpose:  Returns the distinct count of unitids across all IPEDS data files with directory information.
   usage:    Program should be run from directory in which it is located.
             The distince_unitids_by_year.xml should include the path relative to program.
   example:  zorba -f -q distinct_unitids_all_years.xq -z indent=yes
:)

<results>
{
let $i := fn:doc("../2008/HD2008/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $j := fn:doc("../2007/HD2007/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $k := fn:doc("../2006/HD2006/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $l := fn:doc("../2005/HD2005/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $m := fn:doc("../2004/HD2004/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $n := fn:doc("../2003/HD2003/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $o := fn:doc("../2002/HD2002/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $p := fn:doc("../2001/FA2001HD/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $q := fn:doc("../2000/FA2000HD/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $r := fn:doc("../1998/IC98hdac/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $s := fn:doc("../1997/ic9798_HDR/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $t := fn:doc("../1996/ic9697_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $u := fn:doc("../1995/ic9596_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $v := fn:doc("../1994/IC1994_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $w := fn:doc("../1993/IC1993_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $x := fn:doc("../1992/IC1992_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $y := fn:doc("../1991/IC1991_hdr/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $z := fn:doc("../1990/IC90HD/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $a := fn:doc("../1989/IC1989_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $b := fn:doc("../1988/IC1988_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $c := fn:doc("../1987/IC1987_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $d := fn:doc("../1986/IC1986_A/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $e := fn:doc("../1985/IC1985/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $f := fn:doc("../1984/IC1984/distinct_unitids_by_year.xml")/directory/inst/@unitid,
    $g := fn:doc("../1980/IC1980/distinct_unitids_by_year.xml")/directory/inst/@unitid
return count(distinct-values(($i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$t,$u,$v,$w,$x,$y,$z,$a,$b,$c,$d,$e,$f,$g)))
}
</results>