怎么可以把这个存储过程效率提高

procedure pro_wlan_ap_tpm(v_date date) is
v_time date;
v_sql varchar2(200);begin
v_time := v_date;
v_sql := 'alter table wlan_ap_tpm truncate partition part'||to_char(v_time-2,'d')||''
execute immediate v_sql;
commit;
for i in 0..23 loop
insert /*append */ into wlan_ap_tpm ID，
WEEK，
HOUR，
BEGINTIME，
REGION_NAME，
CITY_NAME，
HOT_NAME，
AP_COVER，
APPROVE_SUCCESS_RATE，
PEAK_RELEV_TERL_AMT，
WEEK_SIGNAL_TERM_AMT，
RELEVANCE_SUCCESS_RATE，
RELEVANCE_JAM_RATE，
REC_AVG_SIG_STRENGTH，
REC_MAX_SIG_STRENGTH，
REC_MIN_SIG_STRENGTH，
WLESS_PT_DOWN_REP_NUMB，
WLESS_PT_RE_PHY_ERR_NUM，
WLS_PT_RE_FCSMAC_ERR_NUM，
WLS_PT_RE_MICMAC_ERR_NUM，
WLS_PT_RE_PWD_ERR_MAC_NUM，
LOST_RATE，
REPEAT_SEND_RATE，
WIRE_UPDOWN_FLOW_SUM，
WIRE_UP_AVERAGE_RATE，
WIRE_UP_PEAK_RATE，
WIRE_DOWN_AVERAGE_RATE，
WIRE_DOWN_PEAK_RATE
select SEQ_WLAN_AP_TPM.NEXTVAL,to_number(to_char(begintime-1,'d')),
to_number(to_char(begintime,'HH24')),
begintime,
city_name,
area_name,
hotspot_name,
ap_address,
Auth_Suc_Rate,
MAX_APSTATIONASSOCSUM,
MAX_WEAKSIGNAL_STATION,
ASSOC_SUC_RATE,
Assoc_Congestion_Rate,
AvgRxSignalStrength,
HighestRxSignalStrength,
LowestRxSignalStrength,
DwlinkTotRetryPkts,
PhyErrPkts,
MacFcsErrPkts,
MacMicErrPkts,
MacDecryptErrPkts,
Packet_Loss_Rate,
PACKET_RETRY_RATE,
eth_throughput_sum,
AVG_ETH_SPEED_UP,
MAX_ETH_SPEED_UP,
AVG_ETH_SPEED_DOWN,
max_ETH_SPEED_DOWN 
from wlan_ap_tpm_1 where to_char(begintime,'yyyy-mm-dd')=to_char(v_time,'yyyy-mm-dd') and to_number(to_char(begintime,'HH24'))=i
commit;
end loop;
因为wlan_ap_tpm_1这里面有很多数据