PROCEDURE maintain_custacseq IS
l_error_code varchar2(100) ;
l_error_param varchar2(1000) ;
al_ret pls_integer ;
Begin
if :parameter.prm_action_code ='N' then
if not stpkss_upload_cust_account.fn_Insert_CustAcSeq (
:blk_sttms_cust_account.branch_code,
:blk_sttms_cust_account.cust_no,
:BLK_STTMS_CUST_ACCOUNT.CUST_ac_no,
l_error_code,
l_error_param)
then
ovpkCS.pr_debug_msg(l_error_param);
al_ret := ovpkcs.fn_dispmsg('ST-UPCA0033;', ';', ';');
Raise Form_Trigger_Failure;
end if ;
end if ;
End ;

Модератор: Тема перенесена из форума "Oracle".