::xo::db::Class ::xo::db::sql::acs_object

Class Hierarchy of ::xo::db::sql::acs_object

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::xo::db::sql::acs_object

  Meta-class:

  ::xo::db::Class

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  check_representation, default_name, del, get_attribute, get_attribute_storage, name, new, package_id, set_attribute, update_last_modified

Class Relations

• superclass: ::xotcl::Object

::xo::db::Class create ::xo::db::sql::acs_object \
     -superclass ::xotcl::Object

Methods

• proc check_representation (public)

  ::xo::db::sql::acs_object check_representation [ -dbn dbn ] \
      [ -object_id object_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  ::xo::db::sql::acs_object proc check_representation {{-dbn {}} -object_id} {
          #function_args: {OBJECT_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.check_representation($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc default_name (public)

  ::xo::db::sql::acs_object default_name [ -dbn dbn ] \
      [ -object_id object_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  ::xo::db::sql::acs_object proc default_name {{-dbn {}} -object_id} {
          #function_args: {OBJECT_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.default_name($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc del (public)

  ::xo::db::sql::acs_object del [ -dbn dbn ] [ -object_id object_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  ::xo::db::sql::acs_object proc del {{-dbn {}} -object_id} {
          #function_args: {OBJECT_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN acs_object.del($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc get_attribute (public)

  ::xo::db::sql::acs_object get_attribute [ -dbn dbn ] \
      [ -object_id_in object_id_in ] \
      [ -attribute_name_in attribute_name_in ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id_in (optional)

  -attribute_name_in (optional)

  ::xo::db::sql::acs_object proc get_attribute {{-dbn {}} -object_id_in -attribute_name_in} {
          #function_args: {OBJECT_ID_IN NULL} {ATTRIBUTE_NAME_IN NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.get_attribute($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_attribute_storage (public)

  ::xo::db::sql::acs_object get_attribute_storage [ -dbn dbn ] \
      [ -object_id_in object_id_in ] \
      [ -attribute_name_in attribute_name_in ] [ -v_column v_column ] \
      [ -v_table_name v_table_name ] [ -v_key_sql v_key_sql ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id_in (optional)

  -attribute_name_in (optional)

  -v_column (optional)

  -v_table_name (optional)

  -v_key_sql (optional)

  ::xo::db::sql::acs_object proc get_attribute_storage {{-dbn {}} -object_id_in -attribute_name_in -v_column -v_table_name -v_key_sql} {
          #function_args: {OBJECT_ID_IN NULL} {ATTRIBUTE_NAME_IN NULL} {V_COLUMN NULL} {V_TABLE_NAME NULL} {V_KEY_SQL NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN V_COLUMN V_TABLE_NAME V_KEY_SQL]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN acs_object.get_attribute_storage($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc name (public)

  ::xo::db::sql::acs_object name [ -dbn dbn ] [ -object_id object_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  ::xo::db::sql::acs_object proc name {{-dbn {}} -object_id} {
          #function_args: {OBJECT_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.name($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc new (public)

  ::xo::db::sql::acs_object new [ -dbn dbn ] [ -object_id object_id ] \
      [ -object_type object_type ] [ -creation_date creation_date ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
      [ -context_id context_id ] \
      [ -security_inherit_p security_inherit_p ] [ -title title ] \
      [ -package_id package_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  -object_type (optional)

  -creation_date (optional)

  -creation_user (optional)

  -creation_ip (optional)

  -context_id (optional)

  -security_inherit_p (optional)

  -title (optional)

  -package_id (optional)

  ::xo::db::sql::acs_object proc new {{-dbn {}} -object_id -object_type -creation_date -creation_user -creation_ip -context_id -security_inherit_p -title -package_id} {
          #function_args: {OBJECT_ID NULL} {OBJECT_TYPE NULL} {CREATION_DATE NULL} {CREATION_USER NULL} {CREATION_IP NULL} {CONTEXT_ID NULL} {SECURITY_INHERIT_P NULL} {TITLE NULL} {PACKAGE_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID OBJECT_TYPE CREATION_DATE CREATION_USER CREATION_IP CONTEXT_ID SECURITY_INHERIT_P TITLE PACKAGE_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.new($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc package_id (public)

  ::xo::db::sql::acs_object package_id [ -dbn dbn ] \
      [ -object_id object_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  ::xo::db::sql::acs_object proc package_id {{-dbn {}} -object_id} {
          #function_args: {OBJECT_ID NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := acs_object.package_id($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc set_attribute (public)

  ::xo::db::sql::acs_object set_attribute [ -dbn dbn ] \
      [ -object_id_in object_id_in ] \
      [ -attribute_name_in attribute_name_in ] [ -value_in value_in ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id_in (optional)

  -attribute_name_in (optional)

  -value_in (optional)

  ::xo::db::sql::acs_object proc set_attribute {{-dbn {}} -object_id_in -attribute_name_in -value_in} {
          #function_args: {OBJECT_ID_IN NULL} {ATTRIBUTE_NAME_IN NULL} {VALUE_IN NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID_IN ATTRIBUTE_NAME_IN VALUE_IN]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN acs_object.set_attribute($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc update_last_modified (public)

  ::xo::db::sql::acs_object update_last_modified [ -dbn dbn ] \
      [ -object_id object_id ] [ -modifying_user modifying_user ] \
      [ -modifying_ip modifying_ip ] [ -last_modified last_modified ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -object_id (optional)

  -modifying_user (optional)

  -modifying_ip (optional)

  -last_modified (optional)

  ::xo::db::sql::acs_object proc update_last_modified {{-dbn {}} -object_id -modifying_user -modifying_ip -last_modified} {
          #function_args: {OBJECT_ID NULL} {MODIFYING_USER NULL} {MODIFYING_IP NULL} {LAST_MODIFIED NULL}
          set sql_args [list]
          foreach var [list OBJECT_ID MODIFYING_USER MODIFYING_IP LAST_MODIFIED]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN acs_object.update_last_modified($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }