ACMAINT: Classifications

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

#
#  Show list of classifications
#
proc show_classif { } {
        global ACMAINT_OK

        #
        #  Find account information
        #
        set CLASSIFS [fetch Classif {classifCode classifName} {ClassifCode Like '%'}]
        if {[lindex $CLASSIFS 0] != $ACMAINT_OK} {
                error "Cannot get classification information"
        }
        set CLASSIFS [lsort [lindex [lindex $CLASSIFS 1] 1]]

        #
        #  Create command file
        #
        foreach CLASSIF $CLASSIFS {
                set CLASSIFCODE [lindex $CLASSIF 0]
                set CLASSIFNAME [lindex $CLASSIF 1 ]
                puts "$CLASSIFCODE $CLASSIFNAME"
        }
}