본문 바로가기

SMH

(8)
PB_DLL File Exists Check IF FileExists("C:\병원업무\공통DLL\kppodb.dll") Then run("regsvr32 /s C:\병원업무\공통DLL\kppodb.dll") End If IF FileExists("C:\병원업무\공통DLL\kppoupdate.dll") Then run("regsvr32 /s C:\병원업무\공통DLL\kppoupdate.dll") End If
PB_File log make /* 파일 출력 */ //string ls_string, ls_fname //integer outfile, loops //long l, ll_len // //ls_fname = "d:\log.txt" // //outfile = fileopen(ls_fname, LineMode!, Write!, LockWrite!, Append!) // //ll_len = len(ls_rqst) //filewrite(outfile, ls_rqst) // //ll_len = len(ls_rspn) //filewrite(outfile, ls_rspn) // //fileclose(outfile)
VB_주민번호체크(내국인+외국인) ' str : 주민번호 입력(13자리) Function chk_Jumin(str As String) As Boolean Dim i_Sum As Integer Dim i_Odd As Integer Dim i_Arr(13) As Integer Dim s_Jumin1 As String Dim s_Jumin2 As String Dim s_YY As String Dim s_MM As String Dim s_DD As String Dim i_N As Integer Dim Genda As String Dim i As Integer s_Jumin1 = Mid(str, 1, 6) s_Jumin2 = Mid(str, 7, 7) s_YY = Mid(s_Jumin1, 1, 2) s_MM = Mid(s_Jumin1, 3, 2)..
VB_file write Private Sub Form_Load() Dim A1 As String Dim A2 As String Dim A3 As String Dim A4 As String Dim FileNumber As Integer Dim TheFileName As String FileNumber = FreeFile TheFileName = "TEST1.txt" A1 = "TEST" A2 = "00000000" A3 = "김춘식" A4 = "20060203" Open TheFileName For Output As #FileNumber ' 기존파일열때 내용이 삭제됨 'Open TheFileName For Append As #FileNumber '기존파일 끝에 내용을 쓸때 Print #FileNumber, A1 + A2 + A3..
VB_farpoint Initailize Private Sub SS_Clear() Dim I, J As Integer Dim strT1, strT2 As String SS1.Row = 1: SS1.Row2 = SS1.MaxRows SS1.Col = 1: SS1.Col2 = SS1.MaxCols For I = 0 To I < SS1.Row2 For J = 0 To J < SS1.Col2 SS1.Row2 = I SS1.Col2 = J SS1.Text = "" Next J Next I SS1.BlockMode = True SS1.Text = "" SS1.BlockMode = False End Sub
[고시2010-133호 관련]치료재료 급여ㆍ비급여목록 및 급여 상한금액표 정정고시(복지부 고시2010-133호) 관련 수정사항 안내 보건복지부 고시 제2010 - 133호 국민건강보험법 시행령 제24조제3항, 국민건강보험 요양급여의 기준에 관한 규칙 제8조제2항에 따른 치료재료 급여․비급여목록 및 급여상한금액표(보건복지부고시 제2010-122호, '10.12.24)를 다음과 같이 정정고시합니다. 2010년 12월 29일 보건복지부장관 치료재료 급여․비급여목록 및 급여상한금액표 중 정정안 “치료재료 급여․비급여목록 및 급여 상한금액표”(보건복지부 고시 제2010-122호, 2010.12.24) 중 “별지6”과 ”별지10, 11“의 일부품목의 코드, 제조회사, 상한금액 등을 다음과 같이 정정한다.
[보험 제 2010-617호]넥사바정 청구코드 안내 1. 관련근거 : 가. 건강보험심사평가원 공고 제2010-13호(2010.12.29) 나. 보건복지부 보험약제과-3037(2010.12.29) 다. 대병협 보험 제2010-616(2010.12.30) 2. 상기 대호와 관련, 간세포성암 환자에게 넥사바정을 공고기준에 합당하게 투여하는 경우 약값의 일부를 급여하고 초과하는 금액은 환자가 부담하는 것으로 공고기준이 개정되었습니다.('11.1.1 시행) 3. 이에 보건복지부에서는 동 급여기준 개정에 따른 넥사바정 약제 청구코드 등에 대하여 붙임과 같이 알려온 바 안내하오니 업무에 참고하시기 바랍니다. 붙 임 : 넥사바정 청구코드 1부 [붙임 내용] □ 아래와 같은 경우의 청구코드 - 아래의 조건을 모두 만족하는 수술 또는 국소치료가 불가능한 진행성 간세포성암 ..
VB_DB Connection(MSSQL/MYSQL/DB2/ORACLE) Option Explicit Public adocn As New ADODB.Connection Public adocn2 As New ADODB.Connection Public adocn3 As New ADODB.Connection Public adocn4 As New ADODB.Connection Public adors As New ADODB.Recordset Public adoPara As New ADODB.Parameter Public AdoCmd As New ADODB.Command Public Result As Integer Public nMPointer As Integer Public rowindicator As Long Public strMsg As String Public strSQL As ..