This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc sgml::DTDAttribute {name type default value} {
upvar attlist al
# This needs further work
set al($name) [list $default $value]
}