EXCEPTION   WHEN OTHERS   THEN      ROLLBACK;      v_rtncode := 2;      v_sqlmsg  := SUBSTR(SQLERRM, 1, 100);      SP_WRITE_LOG (v_spname, v_spdesc, USER, 'ERROR',v_trace || '-'||'SP_EWT_CASE_REASSIGN Error'|| '..' || v_sqlmsg);      SP_EMAIL_SMS_NOTICE (v_spname, v_spdesc);      RETURN;

IF FN_BATCH_PROCESS_CHK(strRunDate, strSpName,'NULL','W')=TRUE THEN     SP_WRITE_LOG(strSpName,strSpDesc,USER,'END','Process complete.');  ELSE     SP_WRITE_LOG(strSpName,strSpDesc,USER,'END','Process complete but update BATCH_PROCESS fail');  END IF;

----------------------------------------------- -- Export file for user CIPT                 -- -- Created by xuelin on 2007-11-27, 14:47:49 -- ----------------------------------------------- spool load_all_ewt_procedure.log prompt prompt Creating type ACCOUNT_ATTRIBUTE_TYPE prompt ==================================== prompt @@account_attribute_type.tps prompt prompt Creating function FN_GET_RPT_NAME prompt ============================================ prompt @@fn_get_rpt_name.fnc prompt prompt Creating function FN_EWT_CHECK_ASSIGN_STATUS prompt ============================================ prompt @@fn_ewt_check_assign_status.fnc prompt prompt Creating procedure SP_EWT_ASSIGN_PROCESS prompt ======================================== prompt @@sp_ewt_assign_process.prc prompt

# Visit with IP

    if { ! [catch {IP::addr $req_host mask 255.255.255.255}] } {

set host_ip 1

if { $static::DEBUG_LOG } {log local3.info "<==LOG2.2.1==>Got IP address from request $req_host"}

} else {

set req_ip_address [session lookup uie $req_host]

set req_with_ip [expr { $req_ip_address ne "" }]

}

# UCBrowser

if { [HTTP::header User-Agent] contains "UCBrowser" } {

set uc_browser 1

}

# Go to wap gateway

if { ! [class match $req_host contains "wapgw_proxy"] | ($host_ip) | ($uc_browser) } {

set go_wapgw 1

}