📄 pkg_ken_migapi.pck
字号:
,CONVERTED
,NEW_CHARGE_CREDITS
)
VALUES (
:V_ACCOUNT_NO
,:V_CURRENCY_CODE
,:V_BILL_REF_NO
,:V_BILL_REF_RESETS
,:V_PPDD_DATE
,:V_ORIG_PPDD_DATE
,:V_CLOSED_DATE
,:V_NEW_CHARGES
,:V_NET_NEW_CHARGES
,:V_TOTAL_DUE
,:V_TOTAL_ADJ
,:V_TOTAL_PAID
,:V_BALANCE_DUE
,:V_DISPUTE_AMT
,:V_LATE_EXEMPT_CHARGES
,:V_COLLECTION_INDICATOR
,:V_CHG_DATE
,:V_CHG_WHO
,:V_GL_AMOUNT
,:V_REFINANCE_TRACKING_ID
,:V_REFINANCE_TRACKING_ID_SERV
,:V_OPEN_ITEM_ID
,:V_EXTERNAL_ID
,:V_CONVERTED
,:V_NEW_CHARGE_CREDITS
)'
using t_cbd(indx).ACCOUNT_NO, t_cbd(indx).CURRENCY_CODE, t_cbd(indx).BILL_REF_NO, t_cbd(indx).BILL_REF_RESETS, t_cbd(indx).PPDD_DATE, t_cbd(indx).ORIG_PPDD_DATE, t_cbd(indx).CLOSED_DATE, t_cbd(indx).NEW_CHARGES, t_cbd(indx).NET_NEW_CHARGES, t_cbd(indx).TOTAL_DUE, t_cbd(indx).TOTAL_ADJ, t_cbd(indx).TOTAL_PAID, t_cbd(indx).BALANCE_DUE, t_cbd(indx).DISPUTE_AMT, t_cbd(indx).LATE_EXEMPT_CHARGES, t_cbd(indx).COLLECTION_INDICATOR, t_cbd(indx).CHG_DATE, t_cbd(indx).CHG_WHO, t_cbd(indx).GL_AMOUNT, t_cbd(indx).REFINANCE_TRACKING_ID, t_cbd(indx).REFINANCE_TRACKING_ID_SERV, t_cbd(indx).OPEN_ITEM_ID, t_cbd(indx).EXTERNAL_ID, t_cbd(indx).CONVERTED, t_cbd(indx).NEW_CHARGE_CREDITS;
indx := indx + 1;
EXIT WHEN indx = t_cbd.LAST + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
prc_print_exception;
raise;
end prc_ins_cbd;
/*************** CMF_STATUS_HISTORY *****************************************/
procedure prc_ins_csh(schema_name varchar2) as
indx NUMBER;
BEGIN
indx := 1;
LOOP
EXECUTE IMMEDIATE 'insert into ' || schema_name ||
'CMF_STATUS_HISTORY
(
ACCOUNT_NO
,CMF_STATUS_TYPE
,CMF_STATUS
,CMF_STATUS_CHG_REASON
,ACTIVE_DT
,INACTIVE_DT
,CHG_WHO
,CHG_DT
)
VALUES (
:V_ACCOUNT_NO
,:V_CMF_STATUS_TYPE
,:V_CMF_STATUS
,:V_CMF_STATUS_CHG_REASON
,:V_ACTIVE_DT
,:V_INACTIVE_DT
,:V_CHG_WHO
,:V_CHG_DT
)'
using t_csh(indx).ACCOUNT_NO, t_csh(indx).CMF_STATUS_TYPE, t_csh(indx).CMF_STATUS, t_csh(indx).CMF_STATUS_CHG_REASON, t_csh(indx).ACTIVE_DT, t_csh(indx).INACTIVE_DT, t_csh(indx).CHG_WHO, t_csh(indx).CHG_DT;
indx := indx + 1;
EXIT WHEN indx = t_csh.LAST + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
prc_print_exception;
raise;
end prc_ins_csh;
/*************** PRODUCT_RATE_OVERRIDE *****************************************/
procedure prc_ins_pro(schema_name varchar2) as
indx NUMBER;
BEGIN
indx := 1;
LOOP
EXECUTE IMMEDIATE 'insert into ' || schema_name ||
'PRODUCT_RATE_OVERRIDE
(tracking_id
,tracking_id_serv
,active_dt
,override_rate
,currency_code
,inactive_dt
)
VALUES(
:tracking_id,
:tracking_id_serv,
:active_dt,
:override_rate,
:currency_code,
:inactive_dt
)'
using t_pro(indx).Tracking_ID, t_pro(indx).tracking_id_serv, t_pro(indx).active_dt, t_pro(indx).override_rate, t_pro(indx).currency_code, t_pro(indx).inactive_dt;
indx := indx + 1;
EXIT WHEN indx = t_pro.LAST + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
prc_print_exception;
raise;
end prc_ins_pro;
/*************** PRODUCT_RATE_KEY *****************************************/
procedure prc_ins_prk(schema_name varchar2) as
indx NUMBER;
BEGIN
indx := 1;
LOOP
EXECUTE IMMEDIATE 'insert into ' || schema_name ||
'PRODUCT_RATE_KEY
(tracking_id,
tracking_id_serv,
active_dt,
origin_location_code,
target_location_code,
jurisdiction,
units,
units_type,
chg_who,
chg_dt,
inactive_dt
)
VALUES(
:l_TrackingID,
:l_ServerID,
:l_BilledThruDt
,:l_origin_location_code
,:l_target_location_code
,:l_jurisdiction
,:l_Units
,:l_Units_Type
,:chg_who
,:chg_dt
,:inactive_dt)'
using t_prk(indx).Tracking_ID, t_prk(indx).tracking_id_serv, t_prk(indx).active_dt, t_prk(indx).origin_location_code, t_prk(indx).target_location_code, t_prk(indx).jurisdiction, t_prk(indx).units, t_prk(indx).units_type, t_prk(indx).chg_who, t_prk(indx).chg_dt, t_prk(indx).inactive_dt;
indx := indx + 1;
EXIT WHEN indx = t_prk.LAST + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
prc_print_exception;
raise;
end prc_ins_prk;
/*************** PRODUCT_CHARGE_MAP *****************************************/
procedure prc_ins_pcm(schema_name varchar2) as
indx NUMBER;
BEGIN
indx := 1;
LOOP
EXECUTE IMMEDIATE 'insert into ' || schema_name ||
'PRODUCT_CHARGE_MAP
(tracking_id,
tracking_id_serv,
active_dt,
billing_account_no,
billed_thru_dt,
bill_period,
no_bill,
parent_account_no,
open_item_id,
in_arrears_override,
activation_code,
termination_code,
inactive_dt
)
VALUES(
:tracking_id,
:tracking_id_serv,
:active_dt,
:billing_account_no,
:billed_thru_dt,
:bill_period,
:no_bill,
:parent_account_no,
:open_item_id,
:in_arrears_override,
:activation_code,
:termination_code,
:inactive_dt
)'
USING t_pcm(indx).tracking_id, t_pcm(indx).tracking_id_serv, t_pcm(indx).active_dt, t_pcm(indx).billing_account_no, t_pcm(indx).billed_thru_dt, ---maybe equal 'null'
t_pcm(indx).bill_period, t_pcm(indx).no_bill, t_pcm(indx).parent_account_no, t_pcm(indx).open_item_id, t_pcm(indx).in_arrears_override, t_pcm(indx).activation_code, t_pcm(indx).termination_code, ---may be change
t_pcm(indx).inactive_dt;
indx := indx + 1;
EXIT WHEN indx = t_pcm.LAST + 1;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
prc_print_exception;
raise;
end prc_ins_pcm;
/*************** PRODUCT *****************************************/
procedure prc_ins_p(schema_name varchar2) as
indx NUMBER;
BEGIN
indx := 1;
LOOP
EXECUTE IMMEDIATE 'insert into ' || schema_name ||
'PRODUCT
(tracking_id,
tracking_id_serv,
auto_activation,
bill_period,
billing_account_no,
billing_active_dt,
billing_inactive_dt,
charge_order,
chg_who,
chg_dt,
connect_reason,
DISCONNECT_REASON,
element_id,
has_product_keys,
has_overrides,
in_arrears_override,
contract_association_type,
is_part_of_component,
no_bill,
open_item_id,
ORDER_NUMBER,
parent_account_no,
parent_subscr_no,
parent_subscr_no_resets,
contract_tracking_id,
contract_tracking_id_serv,
product_active_dt,
product_inactive_dt,
PREV_PRODUCT_INACTIVE_DT,
SALES_CHANNEL_ID,
SERIAL_NUMBER,
component_id,
view_id
)
VALUES(
:tracking_id,
:tracking_id_serv,
:auto_activation,
:bill_period,
:billing_account_no,
:billing_active_dt,
:billing_inactive_dt,
:charge_order,
:chg_who,
:chg_dt,
:connect_reason,
:DISCONNECT_REASON,
:element_id,
:has_product_keys,
:has_overrides,
:in_arrears_override,
:contract_association_type,
:is_part_of_component,
:no_bill,
:open_item_id,
:⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -