CREATE OR REPLACE PACKAGE telsale_archievement_pkg IS

    -- Author  : WANGWEI-202
    -- Created : 2023/3/10 15:13:34
    -- Purpose : 桌面霸屏项目基础数据生成包

    PROCEDURE department_archievement
    (
        a_department_code IN VARCHAR2,
        a_attaching_rate  OUT VARCHAR2,
        a_renewal_rate    OUT VARCHAR2
    );

END telsale_archievement_pkg;
/
CREATE OR REPLACE PACKAGE BODY telsale_archievement_pkg IS

    -- 保费渗透率
    PROCEDURE department_archievement
    (
        a_department_code IN VARCHAR2,
        a_attaching_rate  OUT VARCHAR2,
        a_renewal_rate    OUT VARCHAR2
    ) IS
        l_this_month      VARCHAR2(4);
        l_department_name VARCHAR2(100);
    BEGIN
        l_this_month := to_char(SYSDATE,
                                'mm') || '月';
    
        SELECT decode(SUM(cf.车险个人客户保费),
                      0,
                      0,
                      round((SUM(cf.车非融合保费) / SUM(cf.车险个人客户保费) * 100),
                            2))
          INTO a_attaching_rate
          FROM 车非每日保费 cf
         WHERE cf.月份 = l_this_month
           AND 部门代码 = a_department_code;
    
        SELECT bm.department_name
          INTO l_department_name
          FROM idst0.bm_t bm
         WHERE bm.department_code = a_department_code;
    
        SELECT decode(SUM(到期数),
                      0,
                      0,
                      round(SUM(已续保累计) / SUM(到期数) * 100,
                            2))
          INTO a_renewal_rate
          FROM 坐席续保统计
         WHERE 部门 = l_department_name;
    END;

BEGIN
    NULL;
END telsale_archievement_pkg;
/