F016 - 진료 구분에 따른 환자 검색

인증기준번호
  • F016
  • 등급
유형별 필수 여부
  • 유형 1 : 필수
  • 유형 2 : 필수
  • 유형 3 : 필수
분류
원무
인증기준
진료 구분에 따른 환자 검색
인증기준 설명

환자 진료 구분에 따라 환자를 검색할 수 있어야 함.

용어 정의: 
- ‘진료 구분’은 입원, 외래, 응급 등 수진에 따른 구분을 말한다. 

개발가이드
보기(레이어 팝업)
산출소스

'환자등록번호를 기준으로 환자 수정이력을 조회
Public Sub PatientInfoUpdateHistorySelect(ByVal sPrmEmrRegNum as String) 

   Dim dtPateintInfoUpdate as DataTable 

   dtPatientInfoUpdate = PatientInfoUpdateHistorySelectQuery(sPrmEmrRegNum)

   if (dtPatientInfoUpdate.Rows.Count > 1) Then

        for I as Integer = 0 to dtPatientInfoUpdate.Rows.count-1

'Display.인적사항수정이력List.SetData(dtPatientInfoUpdate.Rows.count(i)(“사용자ID”))
          Display.인적사항수정이력List.SetData(“김OO”)

'Display.인적사항수정이력List.SetData(dtPatientInfoUpdate.Rows.count(i)(“일시”))
          Display.인적사항수정이력List.SetData(“YYYY-MM-D3”)

'Display.인적사항수정이력List.SetData(dtPatientInfoUpdate.Rows.count(i)(“변경코드”))
          Display.인적사항수정이력List.SetData(“전화번호”)

'Display.인적사항수정이력List.SetData(dtPatientInfoUpdate.Rows.count(i)(“변경내역”))  
          Display.인적사항수정이력List.SetData(“010-1234-5678”)

        Next
       
   else
 
     MsgBox.Shot(“수정이력이 없습니다.”)
     Exit Sub

   End if

End sub