计算参考日期前后 12 个月的连续入学人数

Question

我是索赔数据的新手，对 SQL 也比较陌生...非常感谢您的帮助。

我有类似这样的数据：

Customer    Group   Member  ServiceDt
ABCDE       123     1111    01-Jan-12
            123     1111    01-Feb-12
            123     1111    01-Mar-12
            123     1112    01-Feb-12
            123     1112    01-Mar-12
FGHIJ       456     1116    01-Feb-12
KLMNO       567     1117    01-Mar-12
            678     1118    01-Feb-12
            789     1119    01-Mar-12

会员每月可以有一个条目来指示有效注册日期。因此，一个会员可以有 24 行，用于两年的注册。另一个可能只有五行，依此类推……每个成员都是一个组的一部分，而组又是一个客户的一部分。 （一个客户可以有多个组 - 每个组中有许多成员，每个成员每月有一行）。

我需要评估从服务日期前 12 个月到前 12 个月（服务日期前后一年的注册）的连续注册，然后按 CUSTOMER 和 GROUP 编号将其汇总到组中。

我尝试过 intck/intcx 函数，但似乎做错了什么。当我尝试第一个。最后。方式，我迷路了。这些数据对我来说太新鲜了。:)

这是我目前尝试的代码的 sn-ps（不包括服务器连接的东西）：

beg1ylag = intnx('month',&eff ,-12,'m');
add1yfut = intnx('month',&eff , 12,'m');

If first.member_id then do;
    mth_cnt     = 0;
    lag_mth_cnt = 0;
    fut_mth_cn  = 0;
End;

 mth_cnt+1;
  if eff_dt < servicedt then lag_mth_cnt+1;
  if eff_dt > servicedt then fut_mth_cnt+1;

  if last.member_id then output;


Proc SQL;
Select (x,y,z

 beg1ylag = intnx('month',servicedt,-12,'m');
 add1yfut = intnx('month',servicedt, 12,'m');

call symput('_beg1ylag',cats("'",year(beg1ylag),'-',put(month(beg1ylag),z2.),"Middle'"));
call symput('_add1yfut',cats("'",year(add1yfut),'-',put(month(add1yfut),z2.),"Middle'"));
Quit;

我得到的结果是空行。我不知道我在做什么或做错了什么......请指导我。另外，请注意，服务不是固定的。每个成员都可以有一个不同的成员 - 正如您在上面看到的。最终，如果他们在 servicedt 周围有 24 个月的连续会员资格，我需要能够选择成员并按他们的组号对他们进行分组。

Answer 1

如果我能很好地解释你的问题，你需要

%let eff = '01Feb2012'd;
%let span = 12;

Title "Members enrolled continuously from &span months before &eff till &span months after &eff";
proc sql;
    select Customer, Group, Member
    from   enrol
    where  ServiceDt between intnx('month',&eff ,-&span,'b') and intnx('month',&eff ,+&span,'b')
    group by Customer, Group, Member
    having count(*) EQ 1 + INTCK('month', intnx('month',&eff ,-&span,'b'), intnx('month',&eff ,+&span,'b'));
quit;

请注意，您应该使用 intnx 和 'b' 作为开始，而不是使用 'm' 作为中间，因为您的数据也提到了月份日期的开始。

Answer 2

如果您的源数据在 SAS 数据集中，并且您可以在数据所在的服务器上运行 SAS 代码，则以下方法非常有效。

%let span = 12;

Data Continuous (keep=Customer Group Member eff);
    set Service;
    by Customer Group Member ServiceDt;

** 对于每个新成员或服务中断 开始一个新的连续服务间隔**；

    retain From;
    if first.Member or dif(ServiceDt) GT 31 
        then From = ServiceDt;

** 如果服务至少在 2 个月前开始 然后跨月前是中心 足够长的连续服务间隔**；

    if INTCK('month', From, ServiceDt) GE %eval(2 * &span) then do;
        eff = intnx('month', ServiceDt,-&span,'b');
        output;
    end;
run;

它会同时为您提供每个可能的服务间隔中心 (=eff) 的结果。