진료과 파생·입퇴원과 8종 — 144종 → 152종, OCM_진료과 개원일 분기 복원

진료과 파생 4종(bzDataInterface.vb:5556-6007): 그룹코드("한글명(그룹
코드)" 결합 — 행이 있으면 조각이 비어도 결합), 영어(DepEngNam),
대외명칭(DepOfcNam), 약어명칭(DepBrfNam). 전부 프리페치된 진료과
행(M_DepMst SELECT *)의 다른 컬럼이라 왕복이 늘지 않는다. 레거시의
시점 판정(퇴원→퇴원시점·재원→현재·외래→접수)은 문맥 적용일시와 같은
규칙이다 — 자격이 퇴원보다 먼저 끝난 희귀 케이스만 갈린다(주석).

입원과 2종(:6009-6110)은 접수 시점, 퇴원과 2종(:6162-6318)은
퇴원(ILV)/현재 시점의 진료과 — 문맥과 다른 시점이라
DepartmentCodeAt(GetCodInfDT 대응, 시작일시 최신 1행 고정)과
DischargeDepartment(P_ComInf 에 날짜 조건만으로 M_DepMst 를 조인하는
원문 모양 그대로)를 신설했다. 퇴원과 본체의 If/Else 동일 쿼리(낮병동
주석과 달리 복붙 결함 — 퇴원일시 비면 0행→빈)도 그대로 보존,
한글명칭만 접수일시 폴백이 실제로 있다.

OCM_진료과: 개원일(HspStrDte)이 요양기관 행에 생겨 레거시 분기
(2022-07-01 이후 개원 + 대외명칭 있음 → 대외명칭)를 그대로 복원 —
전에는 개원일이 없어 DepKorNam 으로 고정했었다.

- dotnet test 338/338 · --edit-smoke 실패 0 (이름 검사 152종)
- --db-patient ①~㉝ 전건 통과
- --db-render P062 md5 8d683835f5d81e7bb41c79071d6bf954 불변

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

src/SheetMe.Data/Stores/PatientContextStore.cs

@@ -94,6 +94,50 @@ public sealed class PatientContextStore
         return new PatientContext(comNum, adpDtm, patInf, comInf, codInf, coiInf, cowInf);
     }
 
+    /// <summary>
+    /// 특정 시점의 진료과 코드 — 레거시 <c>GetCodInfDT(comNum, moment, 1)</c> 의 첫 행 대응.
+    /// 입원과(접수 시점)·퇴원과(퇴원/현재 시점) 태그가 문맥의 적용일시와 <b>다른 시점</b>을
+    /// 물을 때 쓴다. 원문 GetCodInfDT 는 ORDER BY 가 없어 임의 행이었다 — 문맥 로드와
+    /// 같은 규칙(시작일시 최신 1행)으로 고정한다. moment 가 비면 서버 현재시각이다.
+    /// </summary>
+    public string DepartmentCodeAt(decimal comNum, string? moment)
+    {
+        using var connection = new OracleConnection(connectionString);
+        connection.Open();
+        var at = (moment ?? string.Empty).Trim();
+        var row = Row(connection,
+            "SELECT CodDepCod FROM (SELECT CodDepCod FROM P_CodInf WHERE CodComNum = :k AND CodMtiSeq = 0"
+            + (at.Length >= 12
+                ? " AND :t BETWEEN CodStrDtm AND CodEndDtm"
+                : " AND TO_CHAR(SYSDATE, 'YYYYMMDDHH24MI') BETWEEN CodStrDtm AND CodEndDtm")
+            + " ORDER BY CodStrDtm DESC) WHERE ROWNUM = 1",
+            at.Length >= 12
+                ? new (string, object)[] { ("k", comNum), ("t", at[..12]) }
+                : new (string, object)[] { ("k", comNum) });
+        return PatientContext.Value(row, "CodDepCod");
+    }
+
+    /// <summary>
+    /// 퇴원과 조회(bzDataInterface.vb:6162-6231) — 내원의 퇴원일시(또는 접수일시)가
+    /// 유효기간 안인 진료과 행. 원문이 P_ComInf 에 M_DepMst 를 <b>날짜 조건만으로</b> 조인하는
+    /// 특이한 모양이라 그대로 옮겼다. anchorColumn 은 ComLevDtm 또는 ComAcpDtm.
+    /// </summary>
+    public IReadOnlyDictionary<string, string> DischargeDepartment(decimal comNum, string depCod, string anchorColumn)
+    {
+        if (anchorColumn is not ("ComLevDtm" or "ComAcpDtm"))
+        {
+            throw new ArgumentOutOfRangeException(nameof(anchorColumn));
+        }
+        using var connection = new OracleConnection(connectionString);
+        connection.Open();
+        return Row(connection,
+            "SELECT * FROM (SELECT DepOfcNam, DepKorNam FROM P_ComInf"
+            + " INNER JOIN M_DepMst ON DepCod = :d"
+            + $" AND {anchorColumn} BETWEEN DepStrDte AND DepEndDte || '2359'"
+            + " WHERE ComNum = :k) WHERE ROWNUM <= 1",
+            ("d", depCod), ("k", comNum));
+    }
+
     /// <summary>
     /// 한 행을 컬럼명 → 값 사전으로. 없으면 빈 사전.
     /// 컬럼명은 <b>대문자</b>로 담는다 — 오라클이 대문자로 돌려주고, 호출부가 대소문자로 헷갈리면