ACMAINT: Departments

Below is a list of department codes used in the user record. The way to see the most up to date list of department codes is through the fetch commands:

#
#  Show list of departments
#
proc show_dept { } {
        global ACMAINT_OK

        #
        #  Find account information
        #
        set DEPTS [fetch Dept {deptCode deptName} {deptCode Like '%'}]
        if {[lindex $DEPTS 0] != $ACMAINT_OK} {
                error "Cannot get department information"
        }
        set DEPTS [lsort [lindex [lindex $DEPTS 1] 1]]

        #
        #  Create command file
        #
        foreach DEPT $DEPTS {
                set DEPTCODE [lindex $DEPT 0]
                set DEPTNAME [lindex $DEPT 1 ]
                puts "$DEPTCODE $DEPTNAME"
        }
}

When specifying a dept in "ah", note that they are all capitalized.