229 lines
8.5 KiB
Plaintext
229 lines
8.5 KiB
Plaintext
CREATE OR REPLACE PACKAGE telsale_policy_check_pkg IS
|
|
|
|
-- Author : 王炜
|
|
-- Created : 2021/6/21 10:18:01
|
|
-- Purpose : 电销保单数据验证
|
|
|
|
/***************************************************************************/
|
|
--定义异常
|
|
--保单号不存在
|
|
POLICYNO_NOT_EXIST_EXCEPT_CODE CONSTANT INTEGER := -20000;
|
|
POLICYNO_NOT_EXIST_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '保单号不存在。';
|
|
|
|
--保单号已存在
|
|
POLICYNO_IS_EXIST_EXCEPT_CODE CONSTANT INTEGER := -20001;
|
|
POLICYNO_IS_EXIST_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '保单号重复。';
|
|
|
|
--经办人不存在
|
|
OPERATOE_CODE_NOT_EXIST_EXCEPT_CODE CONSTANT INTEGER := -20002;
|
|
OPERATOE_CODE_NOT_EXIST_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '经办人工号不存在。';
|
|
|
|
--录入人不存在
|
|
ENTRY_STAFF_CODE_NOT_EXIST_EXCEPT_CODE CONSTANT INTEGER := -20003;
|
|
ENTRY_STAFF_CODE_NOT_EXIST_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '录入人工号不存在。';
|
|
|
|
--经办人工号所在科室与保单不匹配
|
|
OPERATOE_CODE_NOT_MATCH_EXCEPT_CODE CONSTANT INTEGER := -20004;
|
|
OPERATOE_CODE_NOT_MATCH_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '经办人工号所在科室与保单归属不匹配。';
|
|
|
|
/***************************************************************************/
|
|
FUNCTION policy_check(a_policy_no VARCHAR2) RETURN BOOLEAN;
|
|
|
|
FUNCTION staff_check(a_stuff_code VARCHAR2) RETURN BOOLEAN;
|
|
|
|
PROCEDURE save_policy
|
|
(
|
|
a_policy_no IN VARCHAR2,
|
|
a_operator_code IN VARCHAR2,
|
|
a_operator_name OUT VARCHAR2,
|
|
a_operator_sectionoffice_code OUT VARCHAR2,
|
|
a_operator_sectionoffice_name OUT VARCHAR2,
|
|
a_operator_department_code OUT VARCHAR2,
|
|
a_operator_department_name OUT VARCHAR2,
|
|
a_entry_staff_code IN VARCHAR2,
|
|
a_entry_staff_name OUT VARCHAR2,
|
|
a_entry_staff_sectionoffice_code OUT VARCHAR2,
|
|
a_entry_staff_sectionoffice_name OUT VARCHAR2,
|
|
a_entry_staff_department_code OUT VARCHAR2,
|
|
a_entry_staff_department_name OUT VARCHAR2
|
|
);
|
|
|
|
END telsale_policy_check_pkg;
|
|
/
|
|
CREATE OR REPLACE PACKAGE BODY telsale_policy_check_pkg IS
|
|
|
|
/*********************************************************************************/
|
|
FUNCTION staff_check(a_stuff_code VARCHAR2) RETURN BOOLEAN IS
|
|
l_count INTEGER;
|
|
BEGIN
|
|
SELECT COUNT(*)
|
|
INTO l_count
|
|
FROM idst0.rydm_t@xmcx1.cpicxm ry
|
|
WHERE ry.staff_code = a_stuff_code;
|
|
|
|
IF l_count = 0
|
|
THEN
|
|
RETURN FALSE;
|
|
END IF;
|
|
|
|
RETURN TRUE;
|
|
END;
|
|
|
|
/*********************************************************************************/
|
|
FUNCTION policy_check(a_policy_no VARCHAR2) RETURN BOOLEAN IS
|
|
l_count INTEGER;
|
|
BEGIN
|
|
SELECT COUNT(*)
|
|
INTO l_count
|
|
FROM idst0.auto_agreement_t@xmcx1.cpicxm a
|
|
WHERE a.policy_no = a_policy_no;
|
|
|
|
IF l_count = 0
|
|
THEN
|
|
RETURN FALSE;
|
|
END IF;
|
|
|
|
RETURN TRUE;
|
|
END;
|
|
|
|
/*********************************************************************************/
|
|
PROCEDURE save_policy
|
|
(
|
|
a_policy_no IN VARCHAR2,
|
|
a_operator_code IN VARCHAR2,
|
|
a_operator_name OUT VARCHAR2,
|
|
a_operator_sectionoffice_code OUT VARCHAR2,
|
|
a_operator_sectionoffice_name OUT VARCHAR2,
|
|
a_operator_department_code OUT VARCHAR2,
|
|
a_operator_department_name OUT VARCHAR2,
|
|
a_entry_staff_code IN VARCHAR2,
|
|
a_entry_staff_name OUT VARCHAR2,
|
|
a_entry_staff_sectionoffice_code OUT VARCHAR2,
|
|
a_entry_staff_sectionoffice_name OUT VARCHAR2,
|
|
a_entry_staff_department_code OUT VARCHAR2,
|
|
a_entry_staff_department_name OUT VARCHAR2
|
|
) IS
|
|
l_policy_sectionoffice_code VARCHAR2(6);
|
|
l_policy_department_code VARCHAR2(6);
|
|
BEGIN
|
|
NULL;
|
|
|
|
--判断保单号是否存在，以及保单号的科室部门和经办人是否相同
|
|
--验证保单号是否存在，获取保单归属科室和部门
|
|
BEGIN
|
|
SELECT bd.section_office_code,
|
|
bd.department_code
|
|
INTO l_policy_sectionoffice_code,
|
|
l_policy_department_code
|
|
FROM idst0.auto_agreement_t@xmcx1.cpicxm bd
|
|
WHERE bd.policy_no = a_policy_no;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN
|
|
raise_application_error(POLICYNO_NOT_EXIST_EXCEPT_CODE,
|
|
POLICYNO_NOT_EXIST_EXCEPT_TEXT);
|
|
END;
|
|
|
|
--验证经办人是否存在
|
|
BEGIN
|
|
SELECT ry.staff_name,
|
|
ksh.section_office_code,
|
|
ksh.section_office_name,
|
|
bm.department_code,
|
|
bm.department_name
|
|
INTO a_operator_name,
|
|
a_operator_sectionoffice_code,
|
|
a_operator_sectionoffice_name,
|
|
a_operator_department_code,
|
|
a_operator_department_name
|
|
FROM idst0.rydm_t@xmcx1.cpicxm ry,
|
|
idst0.ks_t@xmcx1.cpicxm ksh,
|
|
idst0.bm_t@xmcx1.cpicxm bm
|
|
WHERE ry.section_office_code = ksh.section_office_code
|
|
AND ry.department_code = bm.department_code
|
|
AND ry.staff_code = a_operator_code;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN
|
|
raise_application_error(OPERATOE_CODE_NOT_EXIST_EXCEPT_CODE,
|
|
OPERATOE_CODE_NOT_EXIST_EXCEPT_TEXT);
|
|
END;
|
|
|
|
--验证录入人是否存在
|
|
IF a_entry_staff_code IS NOT NULL
|
|
THEN
|
|
BEGIN
|
|
SELECT ry.staff_name,
|
|
ksh.section_office_code,
|
|
ksh.section_office_name,
|
|
bm.department_code,
|
|
bm.department_name
|
|
INTO a_entry_staff_name,
|
|
a_entry_staff_sectionoffice_code,
|
|
a_entry_staff_sectionoffice_name,
|
|
a_entry_staff_department_code,
|
|
a_entry_staff_department_name
|
|
FROM idst0.rydm_t@xmcx1.cpicxm ry,
|
|
idst0.ks_t@xmcx1.cpicxm ksh,
|
|
idst0.bm_t@xmcx1.cpicxm bm
|
|
WHERE ry.section_office_code = ksh.section_office_code
|
|
AND ry.department_code = bm.department_code
|
|
AND ry.staff_code = a_entry_staff_code;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND THEN
|
|
raise_application_error(OPERATOE_CODE_NOT_EXIST_EXCEPT_CODE,
|
|
OPERATOE_CODE_NOT_EXIST_EXCEPT_TEXT);
|
|
END;
|
|
END IF;
|
|
|
|
--判断保单归属和经办人所在部门是否匹配，不匹配视为错误
|
|
IF l_policy_sectionoffice_code != a_operator_sectionoffice_code OR
|
|
l_policy_department_code != a_operator_department_code
|
|
THEN
|
|
raise_application_error(ENTRY_STAFF_CODE_NOT_EXIST_EXCEPT_CODE,
|
|
ENTRY_STAFF_CODE_NOT_EXIST_EXCEPT_TEXT);
|
|
END IF;
|
|
|
|
--没错误后，保存记录
|
|
BEGIN
|
|
INSERT INTO telsale.电销保单信息表
|
|
(保单号,
|
|
经办人代码,
|
|
经办人名称,
|
|
经办人科室代码,
|
|
经办人科室名称,
|
|
经办人部门代码,
|
|
经办人部门名称,
|
|
操作员代码,
|
|
操作员名称,
|
|
操作员科室代码,
|
|
操作员科室名称,
|
|
操作员部门代码,
|
|
操作员部门名称,
|
|
操作日期)
|
|
VALUES
|
|
(a_policy_no,
|
|
a_operator_code,
|
|
a_operator_name,
|
|
a_operator_sectionoffice_code,
|
|
a_operator_sectionoffice_name,
|
|
a_operator_department_code,
|
|
a_operator_department_name,
|
|
a_entry_staff_code,
|
|
a_entry_staff_name,
|
|
a_entry_staff_sectionoffice_code,
|
|
a_entry_staff_sectionoffice_name,
|
|
a_entry_staff_department_code,
|
|
a_entry_staff_department_name,
|
|
SYSDATE);
|
|
EXCEPTION
|
|
--保单号重复
|
|
WHEN DUP_VAL_ON_INDEX THEN
|
|
raise_application_error(POLICYNO_IS_EXIST_EXCEPT_CODE,
|
|
POLICYNO_IS_EXIST_EXCEPT_TEXT);
|
|
END;
|
|
END;
|
|
|
|
BEGIN
|
|
NULL;
|
|
END telsale_policy_check_pkg;
|
|
/
|