---

::xo::db::Class ::xo::db::sql::apm_service

Class Hierarchy of ::xo::db::sql::apm_service

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

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

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

  getExitHandler, setExitHandler, unsetExitHandler

• ::xo::db::sql::apm_service

  Meta-class:

  ::xo::db::Class

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

  delete, new

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc delete (public)

  ::xo::db::sql::apm_service delete [ -dbn dbn ] -service_id service_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -service_id (required)

  ::1306782 proc delete {{-dbn {}} -service_id:required} {
          #function_args: {SERVICE_ID {}}
          foreach var [list SERVICE_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select apm_service__delete($_SERVICE_ID)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

• proc new (public)

  ::xo::db::sql::apm_service new [ -dbn dbn ] [ -service_id service_id ] \
      [ -instance_name instance_name ] -package_key package_key  \
      [ -object_type object_type ] [ -creation_date creation_date ] \
      [ -creation_user creation_user ] [ -creation_ip creation_ip ] \
      [ -context_id context_id ] [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -service_id (optional)

  -instance_name (optional)

  -package_key (required)

  -object_type (defaults to "apm_service") (optional)

  -creation_date (defaults to "now()") (optional)

  -creation_user (optional)

  -creation_ip (optional)

  -context_id (optional)

  -childof (optional)

  ::1306782 proc new {{-dbn {}} -service_id -instance_name -package_key:required {-object_type apm_service} {-creation_date now()} -creation_user -creation_ip -context_id -childof} {
          #function_args: {SERVICE_ID null} {INSTANCE_NAME null} {PACKAGE_KEY {}} {OBJECT_TYPE apm_service} {CREATION_DATE now()} {CREATION_USER null} {CREATION_IP null} {CONTEXT_ID null}
          foreach var [list SERVICE_ID INSTANCE_NAME PACKAGE_KEY OBJECT_TYPE CREATION_DATE CREATION_USER CREATION_IP CONTEXT_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              set $var [set $varname]
              set _$var :$var
            } else {
              set _$var null
            }
          }
          set sql "
          select apm_service__new($_SERVICE_ID, $_INSTANCE_NAME, $_PACKAGE_KEY, $_OBJECT_TYPE, $_CREATION_DATE, $_CREATION_USER, $_CREATION_IP, $_CONTEXT_ID)
        "
          db_with_handle -dbn $dbn db {
            #ns_log notice "--sql=$sql"
            return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
          }
        }
  

---