260 lines
16 KiB
PHP
Executable File
260 lines
16 KiB
PHP
Executable File
<?php
|
||
|
||
declare(strict_types=1);
|
||
|
||
/**
|
||
* 复诊接诊率 v2 计算器（RevisitRateCalculator）纯函数单测，不连库。
|
||
* php server/tests/RevisitRateInheritSlotTest.php
|
||
* 覆盖（方案 §1.1 / §11 需求 1）：
|
||
* 示例计算（9 月 B 继承 k=3 → entry=4）、k 计算与同一秒对偶、from==to 忽略、多次继承取最早、
|
||
* NI 与 IH 同诊单只算 NI、k=0 归二诊、历史回退行按继承处理、拒收/退款剔除同时作用于继承、
|
||
* 部门去重与 entry 取 min、slots 上界含 maxEntry、entry>50 只进合计分母、
|
||
* exclude 模式退化（IH=∅、不忽略 from==to、不豁免回退行、den=assigned_count）、visit2_rate_new_assign 两种模式一致。
|
||
*/
|
||
|
||
require dirname(__DIR__) . '/vendor/autoload.php';
|
||
|
||
use app\adminapi\logic\stats\RevisitRateCalculator as C;
|
||
|
||
$checks = 0;
|
||
function expect(bool $condition, string $message): void
|
||
{
|
||
global $checks;
|
||
if (!$condition) {
|
||
fwrite(STDERR, "FAIL: {$message}\n");
|
||
exit(1);
|
||
}
|
||
$checks++;
|
||
}
|
||
|
||
$ts = static fn (string $dt): int => (int) strtotime($dt);
|
||
$monthRange = static function (string $month) use ($ts): array {
|
||
$start = $ts($month . '-01 00:00:00');
|
||
|
||
return [$start, $ts(date('Y-m-t', $start) . ' 23:59:59')];
|
||
};
|
||
|
||
/** 日志行构造：id 自增，默认 operator=100 */
|
||
$logSeq = 0;
|
||
$log = static function (int $did, int $from, int $to, string $dt, int $inherit = 0, int $op = 100) use (&$logSeq, $ts): array {
|
||
return [
|
||
'id' => ++$logSeq,
|
||
'diagnosis_id' => $did,
|
||
'from_assistant_id' => $from,
|
||
'to_assistant_id' => $to,
|
||
'operator_admin_id' => $op,
|
||
'create_time' => $ts($dt),
|
||
'is_inherit' => $inherit,
|
||
'inherit_visit_slot' => 0,
|
||
];
|
||
};
|
||
$orderSeq = 0;
|
||
$order = static function (int $did, string $dt) use (&$orderSeq, $ts): array {
|
||
return ['id' => ++$orderSeq, 'order_no' => 'N' . $orderSeq, 'diagnosis_id' => $did, 'create_time' => $ts($dt), 'amount' => 100, 'creator_id' => 0];
|
||
};
|
||
/** 日志/订单按计算器要求排序 */
|
||
$sortLogs = static function (array $rows): array {
|
||
usort($rows, static fn (array $a, array $b): int => [$a['diagnosis_id'], $a['create_time'], $a['id']] <=> [$b['diagnosis_id'], $b['create_time'], $b['id']]);
|
||
|
||
return $rows;
|
||
};
|
||
$sortOrders = static function (array $rows): array {
|
||
usort($rows, static fn (array $a, array $b): int => [$a['diagnosis_id'], $a['create_time'], $a['id']] <=> [$b['diagnosis_id'], $b['create_time'], $b['id']]);
|
||
|
||
return $rows;
|
||
};
|
||
$slotCounts = static function (array $calc, int $aid): array {
|
||
$out = [];
|
||
foreach ($calc['slotOrdersByAssistant'][$aid] ?? [] as $slot => $orders) {
|
||
$out[$slot] = \count($orders);
|
||
}
|
||
|
||
return $out;
|
||
};
|
||
|
||
// ───────────────────────── 示例计算（§1.1）：A 持有 D 三单，09-10 继承给 B，09-25 B 名下第 4 单 ─────────────────────────
|
||
$A = 1;
|
||
$B = 2;
|
||
$D = 10;
|
||
[$s9, $e9] = $monthRange('2026-09');
|
||
$logs = $sortLogs([
|
||
$log($D, 0, $A, '2026-05-01 09:00:00'),
|
||
$log($D, $A, $B, '2026-09-10 10:00:00', 1),
|
||
]);
|
||
$orders = $sortOrders([
|
||
$order($D, '2026-05-03 10:00:00'),
|
||
$order($D, '2026-06-12 10:00:00'),
|
||
$order($D, '2026-08-20 10:00:00'),
|
||
$order($D, '2026-09-25 10:00:00'),
|
||
]);
|
||
$calc = C::compute($logs, $orders, [], [], [], $s9, $e9, C::MODE_SLOT);
|
||
expect($calc['inheritMode'] === 'slot', '模式归一化');
|
||
expect(!isset($calc['diagsByAssistant'][$B]), 'B 无新指派');
|
||
expect(($calc['inheritEntryByAssistant'][$B][$D] ?? null) === 4, 'k=3 → entry=4');
|
||
expect(\count($calc['inheritPairs']) === 1 && $calc['inheritPairs'][0]['inherit_visit_slot'] === 3 && $calc['inheritPairs'][0]['entry_slot'] === 4, 'inheritPairs 带 k/entry');
|
||
expect(($slotCounts($calc, $B)[4] ?? 0) === 1, '09-25 第 4 单归 B 的 visit4');
|
||
expect(!isset($calc['slotOrdersByAssistant'][$A]), 'A 9 月无成交');
|
||
expect($calc['maxEntry'] === 4, 'maxEntry=4');
|
||
$slots = C::slotRange($calc['slotOrdersByAssistant'], $calc['maxEntry']);
|
||
expect($slots === [2, 3, 4], 'slots 2~4');
|
||
$packB = C::metricPack(0, $calc['inheritEntryByAssistant'][$B], $slotCounts($calc, $B), $slots, 0);
|
||
expect($packB['assigned_count'] === 0 && $packB['inherit_count'] === 1 && $packB['assigned_total_count'] === 1, 'B 新指派 0 / 继承 1 / 合计 1');
|
||
expect($packB['visit2_den'] === 0 && $packB['visit3_den'] === 0 && $packB['visit4_den'] === 1, 'visit2/3_den 不含 D，visit4_den 含 D');
|
||
expect($packB['visit2_rate'] === null && $packB['visit4_count'] === 1 && $packB['visit4_rate'] === 100.0, 'visit2_rate=null、visit4_rate=100');
|
||
expect($packB['visit_all_count'] === 1 && $packB['visit_all_den'] === 1 && $packB['visit_all_rate'] === 100.0, '合计列 1/1=100');
|
||
expect($packB[C::FIELD_RATE_NEW_ASSIGN] === null, 'B 旧口径新指派 0 → null');
|
||
|
||
// exclude 模式退化：B assigned_count=0、visit4_count=1、visit4_rate=null（与线上现状一致）
|
||
$calcEx = C::compute($logs, $orders, [], [], [], $s9, $e9, C::MODE_EXCLUDE);
|
||
expect($calcEx['inheritEntryByAssistant'] === [] && $calcEx['inheritPairs'] === [] && $calcEx['maxEntry'] === 0, 'exclude：IH=∅');
|
||
expect(($slotCounts($calcEx, $B)[4] ?? 0) === 1, 'exclude：分子不变');
|
||
$packBEx = C::metricPack(0, [], $slotCounts($calcEx, $B), C::slotRange($calcEx['slotOrdersByAssistant'], 0), 0);
|
||
expect($packBEx['assigned_count'] === 0 && $packBEx['visit4_count'] === 1 && $packBEx['visit4_rate'] === null, 'exclude：B assigned=0、visit4_rate=null');
|
||
expect($packBEx['inherit_count'] === 0 && $packBEx['visit4_den'] === 0 && $packBEx['visit_all_den'] === 0, 'exclude：新键存在但为 0');
|
||
|
||
// 变体：继承时无任何有效订单（k=0）→ entry=2，与新指派等价
|
||
$calc0 = C::compute(
|
||
$sortLogs([$log(11, 0, $A, '2026-08-01 09:00:00'), $log(11, $A, $B, '2026-09-10 10:00:00', 1)]),
|
||
$sortOrders([$order(11, '2026-09-20 10:00:00')]),
|
||
[],
|
||
[],
|
||
[],
|
||
$s9,
|
||
$e9,
|
||
C::MODE_SLOT
|
||
);
|
||
expect(($calc0['inheritEntryByAssistant'][$B][11] ?? null) === 2, 'k=0 → entry=2');
|
||
expect($calc0['inheritPairs'][0]['inherit_visit_slot'] === 0, 'k=0 记录');
|
||
|
||
// 变体：订单与继承同一秒 → 订单归 B 且不计入 k
|
||
$calcSame = C::compute(
|
||
$sortLogs([$log(12, 0, $A, '2026-05-01 09:00:00'), $log(12, $A, $B, '2026-09-10 10:00:00', 1)]),
|
||
$sortOrders([$order(12, '2026-08-01 10:00:00'), $order(12, '2026-09-10 10:00:00')]),
|
||
[],
|
||
[],
|
||
[],
|
||
$s9,
|
||
$e9,
|
||
C::MODE_SLOT
|
||
);
|
||
expect(($calcSame['inheritEntryByAssistant'][$B][12] ?? null) === 2, '同一秒：k=1（不含同秒订单）→ entry=2');
|
||
expect(($slotCounts($calcSame, $B)[2] ?? 0) === 1 && !isset($calcSame['slotOrdersByAssistant'][$A]), '同一秒：订单归新持有人 B');
|
||
|
||
// 偏移：offset=2，继承前 1 单 → k=3，entry=4
|
||
$calcOff = C::compute(
|
||
$sortLogs([$log(13, 0, $A, '2026-05-01 09:00:00'), $log(13, $A, $B, '2026-09-10 10:00:00', 1)]),
|
||
$sortOrders([$order(13, '2026-08-01 10:00:00')]),
|
||
[13 => 2],
|
||
[],
|
||
[],
|
||
$s9,
|
||
$e9,
|
||
C::MODE_SLOT
|
||
);
|
||
expect(($calcOff['inheritEntryByAssistant'][$B][13] ?? null) === 4, '偏移 2 + 1 单 → k=3 → entry=4');
|
||
|
||
// ───────────────────────── from == to 忽略（仅 slot）；exclude 不忽略 ─────────────────────────
|
||
$logsSelf = $sortLogs([
|
||
$log(20, 0, $A, '2026-09-02 09:00:00'),
|
||
$log(20, $A, $A, '2026-09-05 09:00:00'), // 指派给自己（非继承）
|
||
$log(21, $B, $B, '2026-09-06 09:00:00', 1), // 继承给自己
|
||
]);
|
||
$calcSelf = C::compute($logsSelf, [], [], [], [], $s9, $e9, C::MODE_SLOT);
|
||
expect(isset($calcSelf['diagsByAssistant'][$A][20]) && \count($calcSelf['pairsRaw']) === 1, 'slot：from==to 的非继承行忽略，不重复计 pairsRaw');
|
||
expect(!isset($calcSelf['inheritEntryByAssistant'][$B]), 'slot：from==to 的继承行忽略');
|
||
expect(isset($calcSelf['excludeDiagsByAssistant'][$A][20]) && !isset($calcSelf['excludeDiagsByAssistant'][$B]), '旧口径集合：is_inherit=0 计入、=1 不计');
|
||
$calcSelfEx = C::compute($logsSelf, [], [], [], [], $s9, $e9, C::MODE_EXCLUDE);
|
||
expect(\count($calcSelfEx['pairsRaw']) === 2 && isset($calcSelfEx['diagsByAssistant'][$A][20]), 'exclude：from==to 行照旧计入 pairsRaw');
|
||
expect($calcSelfEx['diagsByAssistant'] === $calcSelfEx['excludeDiagsByAssistant'], 'exclude：NI === NI_exclude');
|
||
|
||
// ───────────────────────── 多次继承取最早；NI 与 IH 同诊单只算 NI ─────────────────────────
|
||
$logsMulti = $sortLogs([
|
||
$log(30, 0, $A, '2026-05-01 09:00:00'),
|
||
$log(30, $A, $B, '2026-09-03 09:00:00', 1), // 最早继承：此时 1 单 → k=1 → entry=2
|
||
$log(30, $B, $A, '2026-09-10 09:00:00'),
|
||
$log(30, $A, $B, '2026-09-20 09:00:00', 1), // 第二次继承：此时 2 单 → k=2 → entry=3（应忽略）
|
||
$log(31, 0, $B, '2026-09-04 09:00:00'), // 31 新指派给 B
|
||
$log(31, $B, $A, '2026-09-05 09:00:00'),
|
||
$log(31, $A, $B, '2026-09-06 09:00:00', 1), // 31 又继承给 B → 只算 NI
|
||
]);
|
||
$ordersMulti = $sortOrders([$order(30, '2026-08-01 10:00:00'), $order(30, '2026-09-15 10:00:00')]);
|
||
$calcMulti = C::compute($logsMulti, $ordersMulti, [], [], [], $s9, $e9, C::MODE_SLOT);
|
||
expect(($calcMulti['inheritEntryByAssistant'][$B][30] ?? null) === 2, '多次继承取最早（entry=2 而非 3）');
|
||
$pair30 = array_values(array_filter($calcMulti['inheritPairs'], static fn (array $p): bool => $p['diagnosis_id'] === 30))[0];
|
||
expect($pair30['assign_count'] === 2 && $pair30['inherit_visit_slot'] === 1, '继承行 assign_count=2、k 取最早');
|
||
expect(isset($calcMulti['diagsByAssistant'][$B][31]) && !isset($calcMulti['inheritEntryByAssistant'][$B][31]), '既新指派又继承给同一医助 → 只算 NI');
|
||
expect(isset($calcMulti['diagsByAssistant'][$A][30]) && isset($calcMulti['diagsByAssistant'][$A][31]), 'A 的两条非继承指派计 NI(A)');
|
||
// 09-15 的第 2 单：持有人为 09-10 指派后的 A
|
||
expect(($slotCounts($calcMulti, $A)[2] ?? 0) === 1 && !isset($calcMulti['slotOrdersByAssistant'][$B]), '持有人按时间线：09-15 订单归 A');
|
||
|
||
// ───────────────────────── 历史回退行按继承处理（仅 slot） ─────────────────────────
|
||
$rbTime = '2026-09-12 09:00:00';
|
||
$logsRb = $sortLogs([
|
||
$log(40, 0, 5, '2026-05-01 09:00:00'), // 一中心 5 持有
|
||
$log(40, 5, $B, '2026-09-01 09:00:00', 0, 0), // 系统自动分配给 B
|
||
$log(40, $B, 5, $rbTime, 0, 77), // 回退（历史行 is_inherit=0，operator=77）
|
||
]);
|
||
$rbKeys = [C::rollbackKey(40, $ts($rbTime), 77) => true];
|
||
$ordersRb = $sortOrders([$order(40, '2026-06-01 10:00:00'), $order(40, '2026-07-01 10:00:00')]);
|
||
$calcRb = C::compute($logsRb, $ordersRb, [], [], $rbKeys, $s9, $e9, C::MODE_SLOT);
|
||
expect(isset($calcRb['diagsByAssistant'][$B][40]), '自动分配行计 NI(B)');
|
||
expect(!isset($calcRb['diagsByAssistant'][5]) && ($calcRb['inheritEntryByAssistant'][5][40] ?? null) === 3, '回退行按继承：k=2 → entry=3');
|
||
expect($calcRb['inheritPairs'][0]['is_rollback'] === 1, '回退行标记 is_rollback');
|
||
$calcRbEx = C::compute($logsRb, $ordersRb, [], [], $rbKeys, $s9, $e9, C::MODE_EXCLUDE);
|
||
expect(isset($calcRbEx['diagsByAssistant'][5][40]) && $calcRbEx['inheritEntryByAssistant'] === [], 'exclude：回退行不豁免，照旧计 NI(5)');
|
||
$calcRbNoKey = C::compute($logsRb, $ordersRb, [], [], [], $s9, $e9, C::MODE_SLOT);
|
||
expect(isset($calcRbNoKey['diagsByAssistant'][5][40]), '无回退键集合时按普通新指派');
|
||
|
||
// ───────────────────────── 拒收/退款剔除同时作用于 NI / IH / NI_exclude ─────────────────────────
|
||
$calcR = C::compute($logs, $orders, [], [$D => true], [], $s9, $e9, C::MODE_SLOT);
|
||
expect($calcR['inheritEntryByAssistant'] === [] && $calcR['inheritPairs'] === [], 'R 剔除继承诊单');
|
||
$calcR2 = C::compute($logsSelf, [], [], [20 => true], [], $s9, $e9, C::MODE_SLOT);
|
||
expect($calcR2['diagsByAssistant'] === [] && $calcR2['excludeDiagsByAssistant'] === [] && $calcR2['pairsRaw'] === [], 'R 剔除 NI 与 NI_exclude');
|
||
|
||
// ───────────────────────── 部门去重与 entry 取 min ─────────────────────────
|
||
$C_ = 3;
|
||
$ni = [$A => [100 => true, 101 => true], $B => [101 => true, 102 => true], $C_ => []];
|
||
$ih = [$A => [200 => 5, 102 => 3], $B => [200 => 3, 201 => 4], $C_ => [100 => 2]];
|
||
[$niSet, $ihEntries] = C::mergeInheritEntries($ni, $ih, [$A, $B, $C_]);
|
||
expect(\count($niSet) === 3, 'NI_dept 去重：100/101/102');
|
||
expect(!isset($ihEntries[102]) && !isset($ihEntries[100]), 'IH_dept 剔除已在 NI_dept 的诊单');
|
||
expect(($ihEntries[200] ?? null) === 3 && ($ihEntries[201] ?? null) === 4, 'entry 取部门内最小');
|
||
$deptPack = C::metricPack(\count($niSet), $ihEntries, [2 => 4, 3 => 2, 4 => 1, 5 => 1], [2, 3, 4, 5], 3);
|
||
expect($deptPack['visit2_den'] === 3 && $deptPack['visit3_den'] === 4 && $deptPack['visit4_den'] === 5 && $deptPack['visit5_den'] === 5, '部门分母逐列累计');
|
||
expect($deptPack['assigned_total_count'] === 5 && $deptPack['visit_all_count'] === 8 && $deptPack['visit_all_rate'] === 160.0, '合计列：8/5=160%（可超 100%）');
|
||
expect($deptPack[C::FIELD_RATE_NEW_ASSIGN] === round(4 / 3 * 100, 2), 'visit2_rate_new_assign = Num_2 / NI_exclude');
|
||
// 子行之和 >= 部门去重
|
||
$packA = C::metricPack(2, $ih[$A], [], [2, 3, 4, 5], 2);
|
||
$packBd = C::metricPack(2, $ih[$B], [], [2, 3, 4, 5], 2);
|
||
$packC = C::metricPack(0, $ih[$C_], [], [2, 3, 4, 5], 0);
|
||
expect($packA['visit5_den'] + $packBd['visit5_den'] + $packC['visit5_den'] >= $deptPack['visit5_den'], '部门 den <= 子行之和');
|
||
expect(C::unionDiagSets($ni, [$A, $B]) === [100 => true, 101 => true, 102 => true], 'unionDiagSets');
|
||
|
||
// ───────────────────────── slots 上界含 maxEntry；entry>50 只进合计分母 ─────────────────────────
|
||
expect(C::slotRange([], 7) === range(2, 7), '只有继承到第 6 诊（entry=7）也显示到七诊列');
|
||
expect(C::slotRange([1 => [9 => [[]]]], 0) === range(2, 9), '分子最大 slot 决定上界');
|
||
expect(C::slotRange([], 0) === [2, 3, 4], '最少到四诊');
|
||
expect(C::slotRange([], 99) === range(2, 50), '上界封顶 50');
|
||
$big = C::compute(
|
||
$sortLogs([$log(50, 0, $A, '2026-01-01 09:00:00'), $log(50, $A, $B, '2026-09-10 10:00:00', 1)]),
|
||
$sortOrders([$order(50, '2026-08-01 10:00:00')]),
|
||
[50 => 20],
|
||
[],
|
||
[],
|
||
$s9,
|
||
$e9,
|
||
C::MODE_SLOT
|
||
);
|
||
expect(($big['inheritEntryByAssistant'][$B][50] ?? null) === 22 && $big['maxEntry'] === 22, '偏移 20 + 1 单 → entry 22');
|
||
$packBig = C::metricPack(0, [50 => 60], [], [2, 3], 0);
|
||
expect($packBig['visit2_den'] === 0 && $packBig['inherit_count'] === 1 && $packBig['visit_all_den'] === 1, 'entry>50：不进诊次列、只进合计分母');
|
||
|
||
// ───────────────────────── 辅助函数 ─────────────────────────
|
||
expect(C::normalizeMode('EXCLUDE') === 'exclude' && C::normalizeMode('bogus') === 'slot' && C::normalizeMode('', 'exclude') === 'exclude', 'normalizeMode 白名单与默认');
|
||
expect(C::monthAssignedDiagIds($logsMulti, $s9, $e9) === [30, 31], 'monthAssignedDiagIds 含继承行、按月过滤');
|
||
expect(C::candidateDiagIds($logsRb) === [40], 'candidateDiagIds');
|
||
$packEmpty = C::metricPack(0, [], [], [2, 3, 4], 0);
|
||
expect($packEmpty['visit2_rate'] === null && $packEmpty['visit_all_rate'] === null && $packEmpty[C::FIELD_RATE_NEW_ASSIGN] === null, '分母 0 → null');
|
||
|
||
echo "RevisitRateInheritSlotTest OK ({$checks} checks)\n";
|