SQL，获取 ID 的历史状态
sas系统的表tb存储病人的医疗历史记录，当Visit_code=Surgery时表示手术，Visit_code=Office表示咨询，每个病人有多条Visit_code，有时只有Surgery或只有Office：
| Id | Visit_Date | Visit_code |
| A30 | 5/15/2004 | Surgery |
| A30 | 2/5/2005 | Office |
| B01 | 12/7/2002 | Office |
| B01 | 11/21/2002 | Surgery |
| C01 | 12/1/2001 | Office |
| C01 | 11/1/2001 | Office |
| C01 | 5/15/2001 | Surgery |
| C01 | 4/15/2001 | Surgery |
| C02 | 12/1/2001 | Surgery |
| C03 | 12/1/2001 | Office |
要求计算出每个病人的历史状态，如果有过咨询，则 Office_Visit=1，否则为 0；如果手术后 6 个月内进行过咨询，则 SX_past_6mo=1，否则为 0：
| Id | Office_Visit | SX_past_6mo |
| A30 | 1 | 0 |
| B01 | 1 | 1 |
| C01 | 1 | 1 |
| C02 | 0 | 0 |
| C03 | 1 | 0 |
编写SPL代码：
| A | |
| 1 | =sas1.query("select * from tb order by Id,Visit_Date") |
| 2 | =A1.group(Id) .new(Id,(S=0,~.max( if( Visit_code=="Office", if( S==0 && Visit_code[-1]=="Surgery" && interval@m(Visit_Date[-1],Visit_Date)<=6,S=1,1),0))):Office_Visit, S: SX_past_6mo) |
A1：通过JDBC从 sas 表取数，按Visit_code,Visit_Date 的顺序排序。
A2：按 Id 分组，根据分组新建二维表。~ 表示当前组，Visit_code[-1] 表示上一条记录的 Visit_code 字段，interval@m 用于求月份的间隔。
SPL开源地址