혈액형·LMP·BST·체중 파생 8종 — 156종 → 164종

OCM_혈액형(bzDataInterface.vb:11783 — S_BlpInf.BlpAboTyp, 갱신일시
최신 고정), OCM_LMP(:11813 — O_PrgInf.PrgLmpDte, 같은 표를 읽는
임신주기의 갱신일시 최신순으로 고정), OCM_BST/BST_LAST(:12042/:12710 —
바이탈과 다른 표 E_EmdInf_BST, VitalStore 를 표 인자화),
OCM_BMI(:12159 — 차트 전체 최신 체중/키², 반올림 2자리),
OCM_표준체중_LAST(:12234 — (키/100)²×여21·남22),
OCM_조정체중_LAST(:12284 — 표준+(실제-표준)×0.25, 키·체중이 같은 행),
OCM_비만도(:12333 — 이것만 내원 기준, 체중/Round(표준,0)×100).

BMI·표준·조정은 내원(EmrComNum)이 아니라 차트(EmrChtNum) 기준이다 —
주석 처리된 EmrComNum 이 그 흔적. 성별 불명이면 표준·조정은 레거시
그대로 "0" 이 찍히고, 비만도는 0 나눗셈이라 사유로 말한다.
OCM_임신주기는 사용자별 레지스트리 설정(DB_REGISTRY, UidCod 컬럼에
UidNam 을 비교하는 수상한 조건 포함) 의존이라 보류 — 별도 조사 대상.

- dotnet test 338/338 · --edit-smoke 실패 0 (이름 검사 164종)
- --db-patient ①~㉞ 전건 통과 (S_BlpInf·O_PrgInf·E_EmdInf_BST 실행 확인)
- --db-render P062 md5 8d683835f5d81e7bb41c79071d6bf954 불변

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

src/SheetMe.Data/Stores/PatientExtraStore.cs

@@ -196,6 +196,28 @@ public sealed class PatientExtraStore
             + " ORDER BY DcpStrDte DESC) WHERE ROWNUM = 1",
             ("m", comNum));
 
+    /// <summary>
+    /// 혈액형(OCM_혈액형, :11783) — S_BlpInf.BlpAboTyp. 원문 Rows(0) 에 ORDER BY 가 없다 —
+    /// 갱신일시 최신 행으로 고정한다(마지막 판정이 현재 혈액형이다).
+    /// BlpChtNum 은 VARCHAR2 라 저장 형태를 확정할 수 없어 두 형태 모두 본다.
+    /// </summary>
+    public string BloodType(string chtNum)
+        => Scalar(
+            "SELECT v FROM (SELECT BlpAboTyp v FROM S_BlpInf"
+            + " WHERE BlpChtNum IN (:c, RPAD(:c, 10))"
+            + " ORDER BY BlpUpdDtm DESC NULLS LAST) WHERE ROWNUM = 1",
+            ("c", chtNum));
+
+    /// <summary>
+    /// 최종 월경일(OCM_LMP, :11813) — O_PrgInf.PrgLmpDte. 원문 Rows(0) 에 ORDER BY 가 없다 —
+    /// 같은 표를 읽는 임신주기(:11845)가 갱신일시 최신순을 쓰므로 그 정렬로 고정한다.
+    /// </summary>
+    public string Lmp(decimal comNum)
+        => Scalar(
+            "SELECT v FROM (SELECT PrgLmpDte v FROM O_PrgInf"
+            + " WHERE PrgComNum = :m ORDER BY PrgUpdDtf DESC) WHERE ROWNUM = 1",
+            ("m", comNum));
+
     /// <summary>스칼라 1칸 — 0행이거나 NULL 이면 빈 문자열. 잔여 공백은 걷는다(문맥 행과 같은 규칙)</summary>
     private string Scalar(string sql, params (string Name, object Value)[] binds)
     {

src/SheetMe.Data/Stores/VitalStore.cs

@@ -32,16 +32,37 @@ public sealed class VitalStore
     /// <param name="orderBy">정렬 절 — 예: "EmdDte ASC, EmdTime ASC"</param>
     public string One(decimal comNum, string selectExpr, string pick,
         string[] notNullColumns, string orderBy)
+        => Fetch("E_EmdInf_VITAL", "EmrComNum = :k", comNum, selectExpr, pick, notNullColumns, orderBy);
+
+    /// <summary>
+    /// BST 는 표가 다르다(E_EmdInf_BST, bzDataInterface.vb:12042-12080·12710-12747) —
+    /// 같은 조인 틀에 표만 바뀐다.
+    /// </summary>
+    public string OneBst(decimal comNum, string orderBy)
+        => Fetch("E_EmdInf_BST", "EmrComNum = :k", comNum, "EmdBst", "EmdBst",
+            new[] { "EmdBst" }, orderBy);
+
+    /// <summary>
+    /// BMI·표준체중·조정체중은 내원이 아니라 <b>차트 전체</b>에서 최신 측정을 집는다
+    /// (bzDataInterface.vb:12159-12333 — EmrChtNum 조건, 주석 처리된 EmrComNum 이 그 흔적).
+    /// </summary>
+    public string OneByChart(string chtNum, string selectExpr, string pick,
+        string[] notNullColumns, string orderBy)
+        => Fetch("E_EmdInf_VITAL", "EmrChtNum = RPAD(:k, 10)", chtNum, selectExpr, pick,
+            notNullColumns, orderBy);
+
+    private string Fetch(string table, string where, object key, string selectExpr, string pick,
+        string[] notNullColumns, string orderBy)
     {
         var filters = string.Concat(notNullColumns.Select(c =>
             $" AND ({c} IS NOT NULL AND {c} <> ' ') "));
         var sql =
             "SELECT * FROM ("
             + $" SELECT {selectExpr}"
-            + " FROM E_EmdInf_VITAL"
+            + $" FROM {table}"
             + " INNER JOIN E_EmrInf ON EmrKey = EmdEmrKey"
             + " AND (EmrSttFlg IS NULL OR EmrSttFlg <> 'D')"
-            + " WHERE EmrComNum = :iComNum"
+            + $" WHERE {where}"
             + filters
             + $" ORDER BY {orderBy}"
             + " ) WHERE ROWNUM = 1";
@@ -51,7 +72,7 @@ public sealed class VitalStore
         using var command = connection.CreateCommand();
         command.BindByName = true;
         command.CommandText = sql;
-        command.Parameters.Add(new OracleParameter("iComNum", comNum));
+        command.Parameters.Add(new OracleParameter("k", key));
         using var reader = command.ExecuteReader();
         if (!reader.Read())
         {