수술 8종을 옮긴다 — 그리고 이 시험 DB 에는 O_OprInf 가 없다는 것을 알았다. 51종 → 59종
## GetOprInfDT(bzDataInterface.vb:13203-13363)의 이식 상병과 달리 병원 분기가 없다(Select Case 0회). 바인드는 내원번호 하나 — 접수일자 조건은 원문에서 이미 주석 처리된 죽은 코드다. SQL 133줄을 원문에서 기계 추출했다(O_OprInf 축, 수술명·부위·상병·집도의·마취의 LISTAGG). 소비 태그 8종이 전부 <b>첫 행에서 컬럼 하나</b>를 집는다: OCM_OPNAME · OPRCODNAM · DX · 수술상병(OkdNam) · 수술부위(OprRegionName) 수술_OprPatETC · 수술집도의(OprDtrNam) · 수술마취의사(AneUidCod) 원문 Catch 는 ErrorMessageBox 를 띄운다 — 조회 함수의 대화상자 부작용은 옮기지 않고 던져서 해석기가 사유로 바꾼다. 수술 조회도 상병과 같은 지연 정책이다 (수술 태그가 없는 서식이 다수라 환자를 붙일 때 무조건 읽지 않는다). ## 검증의 한계를 정확히 적는다 --db-patient ㉘ 이 O_OprInf 에서 내원을 못 찾았고, 처음엔 "행이 없다"로 적었다. 가려 보니 <b>ORA-00942 — 이 시험 DB(SRCH_TEST)에 표 자체가 없다.</b> 즉 수술 태그는 여기서 실행 검증이 불가능하고 운영 DB 에서만 확인할 수 있다. SKIP 문구를 그 사실대로 고쳤다 — "확인했다"고 적을 뻔한 것을 진단이 막았다. 런타임에서는 해석기가 예외를 잡아 "수술 조회에 실패했습니다"로 말한다. ## 게이트 - dotnet test 338/338 · --edit-smoke 실패 0(이름 검사 59종) - --db-patient ①~㉗ 통과, ㉘ SKIP(표 부재 명시) - --db-render P062 md5 8d683835f5d81e7bb41c79071d6bf954 불변 Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
Msystech
co-authored by
Claude Opus 5
Claude Opus 5
parent
0da3305a75
commit
460f6c4a91
@@ -0,0 +1,192 @@
|
||||
using Oracle.ManagedDataAccess.Client;
|
||||
|
||||
namespace SheetMe.Data.Stores;
|
||||
|
||||
/// <summary>
|
||||
/// 수술 정보 조회 — 레거시 <c>GetOprInfDT</c>(bzDataInterface.vb:13203-13363)의 이식.
|
||||
///
|
||||
/// 상병과 달리 <b>병원 분기가 없다</b>(Select Case 0회). 바인드는 내원번호 하나뿐이고
|
||||
/// 접수일자 조건은 원문에서 이미 주석 처리되어 있다(:sAcpDte — 죽은 코드).
|
||||
///
|
||||
/// SQL 은 원문에서 기계 추출했다(133줄 그대로). O_OprInf 를 축으로 수술명·부위·상병·
|
||||
/// 집도의·마취의를 LISTAGG 로 접는 큰 조회이고, 소비 태그 8종이 전부
|
||||
/// <b>첫 행에서 컬럼 하나</b>를 집는다 — 그래서 행 목록만 돌려주고 선택은 해석기가 한다.
|
||||
///
|
||||
/// 원문의 Catch 는 ErrorMessageBox 를 띄운다 — 여기서는 던진다(해석기가 사유로 바꾼다).
|
||||
/// 조회 함수가 대화상자를 띄우는 부작용은 옮기지 않는다.
|
||||
/// </summary>
|
||||
public sealed class SurgeryStore
|
||||
{
|
||||
#region Member Fields
|
||||
private readonly string connectionString;
|
||||
|
||||
/// <summary>원문 그대로의 조회 — 바인드는 :iComNum 하나다</summary>
|
||||
private const string Query = @"
|
||||
With
|
||||
OprInfRec
|
||||
AS
|
||||
(
|
||||
SELECT Opr.*
|
||||
FROM (
|
||||
|
||||
SELECT /* 수술 정보 */
|
||||
OprKey
|
||||
, OprDte
|
||||
, OprChtNum
|
||||
, OprComNum, OprOrgCom, OprGbnCod, OprStt
|
||||
, OprRomCod
|
||||
, OprUseTms, OprStrTms, OprDayNum
|
||||
, OprActStt
|
||||
, OprNam
|
||||
, OprDtrCod, OprDepCod, OprSplCmt
|
||||
, CASE OprRegion WHEN '1' THEN '오른쪽'
|
||||
WHEN '2' THEN '왼쪽'
|
||||
WHEN '3' THEN '양쪽'
|
||||
ELSE '없음'
|
||||
END AS OprRegionName
|
||||
, OprPatEtc
|
||||
, OPR.OprUpdDtf
|
||||
|
||||
/* 인적 정보 */
|
||||
, PatNam
|
||||
, PatSexTyp
|
||||
, ComPatTyp
|
||||
, SUBSTR(ComAcpDtm, 1, 8) AS ComAcpDte
|
||||
|
||||
/* 관련 정보 */
|
||||
, PRGSTSDTL.DtlCodNam AS OprActFlg
|
||||
, UIDOPRDTR.UidNam AS OprDtrNam /* 집도의 명 */
|
||||
, UIDCODDTR.UidNam AS CodDtrNam /* 주치의 명 */
|
||||
|
||||
, ROW_NUMBER() OVER (PARTITION BY OprKey ORDER BY CodStrDtm DESC ) AS RN
|
||||
|
||||
FROM S_OprInf OPR
|
||||
LEFT JOIN P_PatInf
|
||||
ON PatChtNum = OprChtNum
|
||||
|
||||
/* 수술정보의 내원정보 */
|
||||
LEFT JOIN P_ComInf
|
||||
ON OprComNum = ComNum
|
||||
LEFT JOIN P_CodInf
|
||||
ON CodComNum = ComNum
|
||||
AND CASE WHEN ComPatTyp = 'I' THEN OprDte ||'2359'
|
||||
ELSE CodStrDtm
|
||||
END BETWEEN CodStrDtm AND CodEndDtm
|
||||
|
||||
LEFT JOIN M_DtlMst PRGSTSDTL
|
||||
ON PRGSTSDTL.DtlTblCod = 'OPRPRGSTS'
|
||||
AND PRGSTSDTL.DtlCod = OprActStt
|
||||
/* 집도의 */
|
||||
LEFT JOIN M_UidMst UIDOPRDTR
|
||||
ON UIDOPRDTR.UidCod = OprDtrCod
|
||||
AND OprDte BETWEEN UIDOPRDTR.UidStrDte AND UIDOPRDTR.UidEndDte
|
||||
/* 주치의 */
|
||||
LEFT JOIN M_UidMst UIDCODDTR
|
||||
ON UIDCODDTR.UidCod = CodDtrCod
|
||||
AND OprDte BETWEEN UIDCODDTR.UidStrDte AND UIDCODDTR.UidEndDte
|
||||
|
||||
WHERE 1 = 1
|
||||
AND OprStt = 'E'
|
||||
-- AND OprDte = :sAcpDte
|
||||
AND OprComNum = :iComNum
|
||||
-- AND OprDepCod IN ('0100','0101','0200','0201','0300','1601','1900','2100','2301','7001','0400','0500','0501','0550','0600','0601','0900','0901','1000','1100','1300','2601','0800','1400','1500','1600','5500')
|
||||
|
||||
) OPR
|
||||
|
||||
WHERE RN = 1
|
||||
)
|
||||
,
|
||||
OprTypRec
|
||||
AS
|
||||
(
|
||||
SELECT OprTypKey, DX, OPNAME
|
||||
, SUBSTR(ANECOD, 1, LENGTH(ANECOD)-1) AS ANECOD
|
||||
, SUBSTR(ANECODNAM, 1, LENGTH(ANECODNAM)-1) AS ANECODNAM
|
||||
, SUBSTR(ANEUIDCOD, 1, LENGTH(ANEUIDCOD)-1) AS ANEUIDCOD
|
||||
, SUBSTR(OKDNAM, 1, LENGTH(OKDNAM)) AS OKDNAM
|
||||
, SUBSTR(OPRCODNAM, 1, LENGTH(OPRCODNAM)) AS OPRCODNAM
|
||||
FROM (
|
||||
SELECT OprKey AS OprTypKey
|
||||
, MAX(DX.OprCodNam) AS DX
|
||||
, MAX(OPNAME.OprCodNam) AS OPNAME
|
||||
, regexp_replace(LISTAGG(ANECOD.OprCod || ',') WITHIN GROUP ( ORDER BY ANECOD.OprTypKey ), '([^,]+)(,\1)+', '\1') AS ANECOD
|
||||
, regexp_replace(LISTAGG(ANECOD.OprCodNam || ',') WITHIN GROUP ( ORDER BY ANECOD.OprTypKey ), '([^,]+)(,\1)+', '\1') AS ANECODNAM
|
||||
, regexp_replace(LISTAGG(ANEUID.OprCodNam || ',') WITHIN GROUP ( ORDER BY ANEUID.OprTypKey ), '([^,]+)(,\1)+', '\1') AS ANEUIDCOD
|
||||
, MIN(OKDNAM.OprCodNam) AS OKDNAM
|
||||
, MIN(OPRCODNAM.OprCodNam) AS OPRCODNAM
|
||||
|
||||
FROM OprInfRec
|
||||
LEFT JOIN S_OprTyp DX
|
||||
ON OprKey = DX.OprKeyNum
|
||||
AND DX.OprTyp = 'DX'
|
||||
LEFT JOIN S_OprTyp OPNAME
|
||||
ON OprKey = OPNAME.OprKeyNum
|
||||
AND OPNAME.OprTyp = 'OPNAME'
|
||||
LEFT JOIN S_OprTyp ANECOD
|
||||
ON OprKey = ANECOD.OprKeyNum
|
||||
AND ANECOD.OprTyp = 'ANECOD'
|
||||
LEFT JOIN S_OprTyp ANEUID
|
||||
ON OprKey = ANEUID.OprKeyNum
|
||||
AND ANEUID.OprTyp = 'ANEUIDCOD'
|
||||
LEFT JOIN S_OprTyp OKDNAM
|
||||
ON OprKey = OKDNAM.OprKeyNum
|
||||
AND OKDNAM.OprTyp = 'OKD'
|
||||
LEFT JOIN S_OprTyp OPRCODNAM
|
||||
ON OprKey = OPRCODNAM.OprKeyNum
|
||||
AND OPRCODNAM.OprTyp = 'OPRCOD'
|
||||
AND ROWNUM = 1
|
||||
|
||||
WHERE 1 = 1
|
||||
GROUP BY OprKey
|
||||
)
|
||||
|
||||
)
|
||||
,
|
||||
OprLstRec
|
||||
AS
|
||||
(
|
||||
SELECT *
|
||||
FROM OprInfRec
|
||||
LEFT JOIN OprTypRec
|
||||
ON OprKey = OprTypKey
|
||||
)
|
||||
|
||||
--SELECT * FROM OprInfRec
|
||||
--SELECT * FROM OprTypRec
|
||||
SELECT * FROM OprLstRec
|
||||
ORDER BY OprComNum, OprDte DESC, OprDayNum ASC
|
||||
";
|
||||
#endregion
|
||||
|
||||
#region Constructors
|
||||
public SurgeryStore(string connectionString) => this.connectionString = connectionString;
|
||||
#endregion
|
||||
|
||||
#region Methods
|
||||
/// <summary>이 내원의 수술 행들 — 없으면 빈 목록</summary>
|
||||
public List<Dictionary<string, string>> Surgeries(decimal comNum)
|
||||
{
|
||||
using var connection = new OracleConnection(connectionString);
|
||||
connection.Open();
|
||||
using var command = connection.CreateCommand();
|
||||
command.BindByName = true;
|
||||
command.CommandText = Query;
|
||||
command.Parameters.Add(new OracleParameter("iComNum", comNum));
|
||||
|
||||
var rows = new List<Dictionary<string, string>>();
|
||||
using var reader = command.ExecuteReader();
|
||||
while (reader.Read())
|
||||
{
|
||||
var row = new Dictionary<string, string>(StringComparer.OrdinalIgnoreCase);
|
||||
for (var i = 0; i < reader.FieldCount; i++)
|
||||
{
|
||||
row[reader.GetName(i)] = reader.IsDBNull(i)
|
||||
? string.Empty
|
||||
: reader.GetValue(i).ToString()!.Trim();
|
||||
}
|
||||
rows.Add(row);
|
||||
}
|
||||
return rows;
|
||||
}
|
||||
#endregion
|
||||
}
|
||||
Reference in New Issue
Block a user