Home

DRGs拆分标准中－－“不一定满意的标准“的说法－－大概就是坐办公室好不容易分出来后很激动，拿到医院医生说：沙梨木……

Option Compare Database

Private Sub Form_Current()
    DoCmd.Maximize
End Sub
Private Sub Command11_Click()
Dim strWhere As String
    strWhere = "拼音 Like '*" & Me.Text6 & "*'"
    Me.S窗体.Form.Filter = strWhere
    Me.S窗体.Form.FilterOn = True
End Sub

Private Sub Command130_Click()
Dim strWhere As String
    strWhere = "五笔 Like '*" & Me.Text162 & "*'"
    Me.S窗体.Form.Filter = strWhere
    Me.S窗体.Form.FilterOn = True
End Sub

Private Sub Fdelall_Click()
     SQLSTR = "delete * from grade"
     DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示
    Me.F窗体.Form.Requery
End Sub

Option Compare Database

Private Sub S序号_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S项目编码_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S项目名称_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S剂型_DblClick(Cancel As Integer)
  Call llx
End Sub
Private Sub S规格_DblClick(Cancel As Integer)
  Call llx
End Sub

Private Sub S厂家_DblClick(Cancel As Integer)
  Call llx
End Sub

Sub llx()
    SQLSTR = "insert into grade(项目编号, 项目名称,剂型, 厂家, 规格) SELECT  项目编号, 项目名称,剂型, 厂家, 规格 FROM ypk WHERE 序号 = " & Me.序号 & ""

    DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示

    Me.Parent.F窗体.Form.Requery
End Sub

Option Compare Database

Private Sub F项目编号_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Private Sub F项目名称_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Private Sub F厂家_DblClick(Cancel As Integer)
   Call Fdelone
End Sub

Private Sub F规格_DblClick(Cancel As Integer)
 Call Fdelone
End Sub
Private Sub F剂型_DblClick(Cancel As Integer)
 Call Fdelone
End Sub

Sub Fdelone()
     SQLSTR = "delete * from grade WHERE  序号  = " & Me.序号 & ""
     DoCmd.SetWarnings False              ' 取消系统提示
    DoCmd.RunSQL SQLSTR            ' 运行查询
    DoCmd.SetWarnings True                ' 恢复系统提示
    Me.Form.Requery
End Sub

All Patient DRGs －－所有病人的医疗数据分析，以病人为中心等意思－－把病人当亲人？每当见到媒体宣传某医生把病人当亲人总替他们捏把汗！1.情感因素会干扰专业上的决断力，2.都亲人了，还怎好意思收人家钱

重点来了：澳洲2000年前，由于他们第二诊断的数据比美国相对少，他们把年龄的权重比调高，合并症、并发症的权重比降低－－那么对于收费数据，很多可能连第一诊断都会没有的地方，咋整？

澳洲DRGs 运行论文，由悉尼大学健康信息管理学院、健康科学系一教授及头目发表的－－这个学院，这个系，应该就是医学知识懂一点，计算机应用也懂点－－好像挺适合我去……

新加坡采用的是澳大利亚的DRGs，因此转搜澳洲政府网－－这两国家政府网都没他们领导开会的照片，可能因为他们开会都在吵架，拍照片不好看吧！－－澳洲DRGs是和他们的悉尼大学一起弄的