목록2020/01 (4)
C#,Delphi,Oracle,MSSQL 개발자블로그
청구시에 심사에 도움이 되는 참고자료를 기재하여서 같이 청구해야 하는 경우가 있습니다. 과거 수기 청구시에는 환자의 데이터 ( 간장약 시용시 간기능 검사 결과지 ) 를 직접 첨부하여 청구 하였다는 말을 들은 적이 있는데, 이제는 다행히도 청구서에 참고자료를 메모로 입력하면 이를 대부분 인정하고 특별한 경우에만 심평원에서 추가 자료를 요청하고 있는 것 같습니다. 이런 참고자료를 적는 공간이 과거에는 '명세서 기재메모 ' 였습니다. 그러나 2006년부터 이런 용어는 사라지고, 이를 '특정내역' 이라고 말하고 그 내용을 세분화 하였습니다. 1. 특정내역 이란 '특정내역' 은 1) 명세서단위 특정내역 ( M____ 로 표시 ) 2) 진료내역 줄번호단위 특정내역 ( J____로 표시 ) 3) 처방내역 줄번호..
ReplaceText(INSERT, UPDATE 등 쿼리,'''',''''''); 델파이에서 MSSQL로 홑따옴표가 포함된 문자열을 넣기 위해서는, 홑따옴표를 쌍으로 맞추어 넣어야 한다.
uses Windows procedure TForm1.Button3Click(Sender: TObject); var pWnd : THandle; begin ShowMessage(IntToStr(FindWindow('폼의 클래스명(Ex. TfrmXXX)', nil))); end; FindWindow는 특정 폼이 실행중이면 0이 아닌 값, 실행중이 아니면 0을 리턴한다. 자신의 실행파일 내에 있는 폼이 아니라, 다른 실행파일에서 실행된 폼이어도 동작한다.
uses DateUtils, System procedure TForm1.Button10Click(Sender: TObject); var dte1,dte2:TDateTime; begin dte1 := StrToDate('2019-09-24'); dte2 := StrToDate('2019-09-30'); ShowMessage(IntToStr(DaysBetween(dte2, dte1))); end; DaysBetween(TDateTime,TDateTime)는 두 날짜사이의 차를 일수로 구한다. 앞과 뒤 파라미터 중 어느 값이 작고 큼에 관계없이 양수를 반환한다.