---

Class ::xo::db::sql::workflow

::xo::db::sql::workflow create ...

Defined in

Class Relations

• class: ::xo::db::Class
• superclass: ::xotcl::Object

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

Methods (to be applied on the object)

• add_arc (scripted, public)

   xo::db::sql::workflow add_arc [ -dbn dbn ] -workflow_key workflow_key  \
      -from_place_key from_place_key  \
      -to_transition_key to_transition_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -from_place_key (required)

  -to_transition_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {FROM_PLACE_KEY {}} {TO_TRANSITION_KEY {}}
  foreach var [list WORKFLOW_KEY FROM_PLACE_KEY TO_TRANSITION_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_arc($_WORKFLOW_KEY, $_FROM_PLACE_KEY, $_TO_TRANSITION_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_place (scripted, public)

   xo::db::sql::workflow add_place [ -dbn dbn ] \
      -workflow_key workflow_key  -place_key place_key  \
      -place_name place_name  -sort_order sort_order 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -place_key (required)

  -place_name (required)

  -sort_order (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {PLACE_KEY {}} {PLACE_NAME {}} {SORT_ORDER {}}
  foreach var [list WORKFLOW_KEY PLACE_KEY PLACE_NAME SORT_ORDER]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_place($_WORKFLOW_KEY, $_PLACE_KEY, $_PLACE_NAME, $_SORT_ORDER) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_role (scripted, public)

   xo::db::sql::workflow add_role [ -dbn dbn ] \
      -workflow_key workflow_key  -role_key role_key  \
      -role_name role_name  -sort_order sort_order 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -role_key (required)

  -role_name (required)

  -sort_order (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}} {ROLE_NAME {}} {SORT_ORDER {}}
  foreach var [list WORKFLOW_KEY ROLE_KEY ROLE_NAME SORT_ORDER]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_role($_WORKFLOW_KEY, $_ROLE_KEY, $_ROLE_NAME, $_SORT_ORDER) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_trans_attribute_map (scripted, public)

   xo::db::sql::workflow add_trans_attribute_map [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -attribute_id attribute_id  -sort_order sort_order 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -attribute_id (required)

  -sort_order (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ATTRIBUTE_ID {}} {SORT_ORDER {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY ATTRIBUTE_ID SORT_ORDER]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_trans_attribute_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ATTRIBUTE_ID, $_SORT_ORDER) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_trans_role_assign_map (scripted, public)

   xo::db::sql::workflow add_trans_role_assign_map [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -assign_role_key assign_role_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -assign_role_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ASSIGN_ROLE_KEY {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY ASSIGN_ROLE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_trans_role_assign_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ASSIGN_ROLE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• add_transition (scripted, public)

   xo::db::sql::workflow add_transition [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -transition_name transition_name  -role_key role_key  \
      -sort_order sort_order  [ -trigger_type trigger_type ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -transition_name (required)

  -role_key (required)

  -sort_order (required)

  -trigger_type (optional, defaults to "user")

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {TRANSITION_NAME {}} {ROLE_KEY {}} {SORT_ORDER {}} {TRIGGER_TYPE user}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY TRANSITION_NAME ROLE_KEY SORT_ORDER TRIGGER_TYPE]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__add_transition($_WORKFLOW_KEY, $_TRANSITION_KEY, $_TRANSITION_NAME, $_ROLE_KEY, $_SORT_ORDER, $_TRIGGER_TYPE) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• create_attribute (scripted, public)

   xo::db::sql::workflow create_attribute [ -dbn dbn ] \
      -workflow_key workflow_key  -attribute_name attribute_name  \
      -datatype datatype  -pretty_name pretty_name  \
      [ -pretty_plural pretty_plural ] [ -table_name table_name ] \
      [ -column_name column_name ] [ -default_value default_value ] \
      [ -min_n_values min_n_values ] [ -max_n_values max_n_values ] \
      [ -sort_order sort_order ] [ -storage storage ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -attribute_name (required)

  -datatype (required)

  -pretty_name (required)

  -pretty_plural (optional)

  -table_name (optional)

  -column_name (optional)

  -default_value (optional)

  -min_n_values (optional, defaults to "1")

  -max_n_values (optional, defaults to "1")

  -sort_order (optional)

  -storage (optional, defaults to "generic")

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ATTRIBUTE_NAME {}} {DATATYPE {}} {PRETTY_NAME {}} {PRETTY_PLURAL null} {TABLE_NAME null} {COLUMN_NAME null} {DEFAULT_VALUE null} {MIN_N_VALUES 1} {MAX_N_VALUES 1} {SORT_ORDER null} {STORAGE generic}
  foreach var [list WORKFLOW_KEY ATTRIBUTE_NAME DATATYPE PRETTY_NAME PRETTY_PLURAL TABLE_NAME COLUMN_NAME DEFAULT_VALUE MIN_N_VALUES MAX_N_VALUES SORT_ORDER STORAGE]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__create_attribute($_WORKFLOW_KEY, $_ATTRIBUTE_NAME, $_DATATYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_TABLE_NAME, $_COLUMN_NAME, $_DEFAULT_VALUE, $_MIN_N_VALUES, $_MAX_N_VALUES, $_SORT_ORDER, $_STORAGE) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• create_workflow (scripted, public)

   xo::db::sql::workflow create_workflow [ -dbn dbn ] \
      -workflow_key workflow_key  -pretty_name pretty_name  \
      [ -pretty_plural pretty_plural ] [ -description description ] \
      -table_name table_name  [ -id_column id_column ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -pretty_name (required)

  -pretty_plural (optional)

  -description (optional)

  -table_name (required)

  -id_column (optional, defaults to "case_id")

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {PRETTY_NAME {}} {PRETTY_PLURAL null} {DESCRIPTION null} {TABLE_NAME {}} {ID_COLUMN case_id}
  foreach var [list WORKFLOW_KEY PRETTY_NAME PRETTY_PLURAL DESCRIPTION TABLE_NAME ID_COLUMN]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__create_workflow($_WORKFLOW_KEY, $_PRETTY_NAME, $_PRETTY_PLURAL, $_DESCRIPTION, $_TABLE_NAME, $_ID_COLUMN) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete (scripted, public)

   xo::db::sql::workflow delete [ -dbn dbn ] \
      -delete_workflow_id delete_workflow_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -delete_workflow_id (required)

  Testcases:

  No testcase defined.

  #function_args: {DELETE_WORKFLOW_ID {}}
  foreach var [list DELETE_WORKFLOW_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete($_DELETE_WORKFLOW_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_arc (scripted, public)

   xo::db::sql::workflow delete_arc [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -place_key place_key  -direction direction 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -place_key (required)

  -direction (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {PLACE_KEY {}} {DIRECTION {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY PLACE_KEY DIRECTION]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_arc($_WORKFLOW_KEY, $_TRANSITION_KEY, $_PLACE_KEY, $_DIRECTION) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_cases (scripted, public)

   xo::db::sql::workflow delete_cases [ -dbn dbn ] \
      -workflow_key workflow_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}}
  foreach var [list WORKFLOW_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_cases($_WORKFLOW_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_place (scripted, public)

   xo::db::sql::workflow delete_place [ -dbn dbn ] \
      -workflow_key workflow_key  -place_key place_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -place_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {PLACE_KEY {}}
  foreach var [list WORKFLOW_KEY PLACE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_place($_WORKFLOW_KEY, $_PLACE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_role (scripted, public)

   xo::db::sql::workflow delete_role [ -dbn dbn ] \
      -workflow_key workflow_key  -role_key role_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -role_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
  foreach var [list WORKFLOW_KEY ROLE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_role($_WORKFLOW_KEY, $_ROLE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_trans_attribute_map (scripted, public)

   xo::db::sql::workflow delete_trans_attribute_map [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -attribute_id attribute_id 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -attribute_id (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ATTRIBUTE_ID {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY ATTRIBUTE_ID]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_trans_attribute_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ATTRIBUTE_ID) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_trans_role_assign_map (scripted, public)

   xo::db::sql::workflow delete_trans_role_assign_map [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key  \
      -assign_role_key assign_role_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  -assign_role_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}} {ASSIGN_ROLE_KEY {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY ASSIGN_ROLE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_trans_role_assign_map($_WORKFLOW_KEY, $_TRANSITION_KEY, $_ASSIGN_ROLE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• delete_transition (scripted, public)

   xo::db::sql::workflow delete_transition [ -dbn dbn ] \
      -workflow_key workflow_key  -transition_key transition_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -transition_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {TRANSITION_KEY {}}
  foreach var [list WORKFLOW_KEY TRANSITION_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__delete_transition($_WORKFLOW_KEY, $_TRANSITION_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• drop_attribute (scripted, public)

   xo::db::sql::workflow drop_attribute [ -dbn dbn ] \
      -workflow_key workflow_key  -attribute_name attribute_name 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -attribute_name (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ATTRIBUTE_NAME {}}
  foreach var [list WORKFLOW_KEY ATTRIBUTE_NAME]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__drop_attribute($_WORKFLOW_KEY, $_ATTRIBUTE_NAME) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• drop_workflow (scripted, public)

   xo::db::sql::workflow drop_workflow [ -dbn dbn ] \
      -workflow_key workflow_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}}
  foreach var [list WORKFLOW_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__drop_workflow($_WORKFLOW_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• move_role_down (scripted, public)

   xo::db::sql::workflow move_role_down [ -dbn dbn ] \
      -workflow_key workflow_key  -role_key role_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -role_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
  foreach var [list WORKFLOW_KEY ROLE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__move_role_down($_WORKFLOW_KEY, $_ROLE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• move_role_up (scripted, public)

   xo::db::sql::workflow move_role_up [ -dbn dbn ] \
      -workflow_key workflow_key  -role_key role_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  -role_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}} {ROLE_KEY {}}
  foreach var [list WORKFLOW_KEY ROLE_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__move_role_up($_WORKFLOW_KEY, $_ROLE_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

• new (scripted, public)

   xo::db::sql::workflow new [ -dbn dbn ] -short_name short_name  \
      -pretty_name pretty_name  -package_key package_key  \
      -object_id object_id  -object_type object_type  \
      -creation_user creation_user  -creation_ip creation_ip  \
      -context_id context_id  [ -childof childof ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -short_name (required)

  -pretty_name (required)

  -package_key (required)

  -object_id (required)

  -object_type (required)

  -creation_user (required)

  -creation_ip (required)

  -context_id (required)

  -childof (optional)

  Testcases:

  No testcase defined.

  #function_args: {SHORT_NAME {}} {PRETTY_NAME {}} {PACKAGE_KEY {}} {OBJECT_ID {}} {OBJECT_TYPE {}} {CREATION_USER {}} {CREATION_IP {}} {CONTEXT_ID {}}
  foreach var [list SHORT_NAME PRETTY_NAME PACKAGE_KEY OBJECT_ID OBJECT_TYPE 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 workflow__new($_SHORT_NAME, $_PRETTY_NAME, $_PACKAGE_KEY, $_OBJECT_ID, $_OBJECT_TYPE, $_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 ]
  }

• simple_p (scripted, public)

   xo::db::sql::workflow simple_p [ -dbn dbn ] \
      -workflow_key workflow_key 

  Automatically generated method

  Switches:

  -dbn (optional)

  -workflow_key (required)

  Testcases:

  No testcase defined.

  #function_args: {WORKFLOW_KEY {}}
  foreach var [list WORKFLOW_KEY]  {
    set varname [string tolower $var]
    if {[info exists $varname]} {
      set $var [set $varname]
      set _$var :$var
    } else {
      set _$var null
    }
  }
  set sql "
  select workflow__simple_p($_WORKFLOW_KEY) 
      "
  db_with_handle -dbn $dbn db {
    #ns_log notice "--sql=$sql"
    return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
  }

---