create or replace package PKG_BILL_NPLSREVOKE is
--提档存储过程--
PROCEDURE nplsrevoke_to_s_app(in_appId in number, --流程id
in_rcvblAmtId in number,--应收费用标识
in_empId in varchar2, --处理员工号,默认系统empid
in_appSrc in varchar2, --申请来源,01营业厅、02批量导入、03网站申请、04接口同步
rtncode OUT VARCHAR2 --返回码
) is
begin
--1.应收核销细节提档
insert into V_RCV_VERIFICT_DET
(PROCESS_REC_ID,
APP_ID,--流程标识
APP_NO, --申请编号
APP_TIME,--申请时间
APP_SRC,--申请来源
HANDLER,--处理员工号
RCVBL_AMT_ID,
CALC_ID,
AMT_TYPE,
RCVBL_YM,
CONS_NO,
ORG_NO,
RCVBL_AMT,
RCVED_AMT,
RCVBL_PENALTY,
RCVED_PENALTY,
STATUS_CODE,
SETTLE_FLAG,
PENALTY_BGN_DATE,
RELEASE_DATE)
select pkg_comm.getseqid('S_APP.APP_ID'),
in_appId,
pkg_comm.getseqno('S_APP_CONS.APP_NO'),--申请编号
sysdate,--申请时间
in_appSrc,
in_empId,
RCVBL_AMT_ID,
CALC_ID,
AMT_TYPE,
RCVBL_YM,
CONS_NO,
ORG_NO,
RCVBL_AMT,
RCVED_AMT,
RCVBL_PENALTY,
RCVED_PENALTY,
STATUS_CODE,
SETTLE_FLAG,
PENALTY_BGN_DATE,
RELEASE_DATE
from A_RCVBL_FLOW
where RCVBL_AMT_ID=in_rcvblAmtId;
rtncode := '00000';
EXCEPTION
WHEN OTHERS THEN
rtncode := '10100';
ROLLBACK;
END nplsrevoke_to_s_app;
END PKG_BILL_NPLSREVOKE;
这条语句有什么问题