DECLARE
v_ptnl_ler_for_per_id NUMBER;
v_obv_number NUMBER;
v_error VARCHAR2 (4000);
BEGIN
DBMS_OUTPUT.ENABLE (1000000);
apps.ben_ptnl_ler_for_per_api.create_ptnl_ler_for_per
(p_validate
=> FALSE,
p_ptnl_ler_for_per_id
=> v_ptnl_ler_for_per_id,
p_lf_evt_ocrd_dt
=> SYSDATE
--v_lf_evt_ocrd_dt
,
p_ptnl_ler_for_per_stat_cd => 'UNPROCD',
p_ler_id
=> 17,
p_person_id
=> 2596,
p_business_group_id
=> 0,
p_unprocd_dt
=> SYSDATE,
p_ntfn_dt
=> SYSDATE,
p_object_version_number
=> v_obv_number,
p_effective_date => SYSDATE
);
EXCEPTIONWHEN OTHERS
THEN
v_error := SUBSTR (SQLERRM, 1, 250);
DBMS_OUTPUT.put_line (v_error);
END;
No comments:
Post a Comment