xo::db::sql::acs_reference proc new (public)

 xo::db::sql::acs_reference new [ -dbn dbn ] \
    [ -repository_id repository_id ] -table_name table_name  \
    [ -internal_data_p internal_data_p ] \
    [ -package_name package_name ] [ -last_update last_update ] \
    [ -source source ] [ -source_url source_url ] \
    [ -effective_date effective_date ] [ -expiry_date expiry_date ] \
    [ -maintainer_id maintainer_id ] [ -notes notes ] \
    [ -first_names first_names ] [ -last_name last_name ] \
    [ -creation_ip creation_ip ] [ -object_type object_type ] \
    [ -creation_user creation_user ] [ -childof childof ]

Defined in packages/xotcl-core/tcl/05-db-procs.tcl

Automatically generated method

Switches:

-dbn

(optional)

-repository_id

(optional)

-table_name

(required)

-internal_data_p

(defaults to ""f"") (optional)

-package_name

(optional)

-last_update

(defaults to "sysdate") (optional)

-source

(optional)

-source_url

(optional)

-effective_date

(defaults to "sysdate") (optional)

-expiry_date

(optional)

-maintainer_id

(optional)

-notes

(defaults to "null (not Oracle empty_blob())") (optional)

-first_names

(optional)

-last_name

(optional)

-creation_ip

(optional)

-object_type

(defaults to ""acs_reference_repository"") (optional)

-creation_user

(optional)

-childof

(optional)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

#function_args: {REPOSITORY_ID null} {TABLE_NAME {}} {INTERNAL_DATA_P {"f"}} {PACKAGE_NAME null} {LAST_UPDATE sysdate} {SOURCE null} {SOURCE_URL null} {EFFECTIVE_DATE sysdate} {EXPIRY_DATE null} {MAINTAINER_ID null} {NOTES {null (not Oracle empty_blob())}} {FIRST_NAMES null} {LAST_NAME null} {CREATION_IP null} {OBJECT_TYPE {"acs_reference_repository"}} {CREATION_USER null}
foreach var [list REPOSITORY_ID TABLE_NAME INTERNAL_DATA_P PACKAGE_NAME LAST_UPDATE SOURCE SOURCE_URL EFFECTIVE_DATE EXPIRY_DATE MAINTAINER_ID NOTES FIRST_NAMES LAST_NAME CREATION_IP OBJECT_TYPE CREATION_USER]  {
  set varname [string tolower $var]
  if {[info exists $varname]} {
    set $var [set $varname]
    set _$var :$var
  } else {
    set _$var null
  }
}
set sql "
select acs_reference__new($_REPOSITORY_ID, $_TABLE_NAME, $_INTERNAL_DATA_P, $_PACKAGE_NAME, $_LAST_UPDATE, $_SOURCE, $_SOURCE_URL, $_EFFECTIVE_DATE, $_EXPIRY_DATE, $_MAINTAINER_ID, $_NOTES, $_FIRST_NAMES, $_LAST_NAME, $_CREATION_IP, $_OBJECT_TYPE, $_CREATION_USER) 
    "
db_with_handle -dbn $dbn db {
  #ns_log notice "--sql=$sql"
  return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
}

XQL Not present:

Generic, PostgreSQL, Oracle