DRGs读书笔记原创
网红流浪大师与DRGs--这也能扯下关系?--因为他说:“距离浩如烟海的文化本身,我们都是井底之蛙,一定要不断的学习。”

DRGs读书笔记原创

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

 


DRGs读书笔记原创
按产科专家们的建议,他们DRGs改版时“接生”--以出生体重为分类的,改为按产妇年龄为分类--老外们做DRGs是政府部门和大学、临床委员会,医院协会,医疗数据采集顾问……一起干的

DRGs读书笔记原创
台湾健保局DRGs分类手册和支付通则:按诊断,合并症,年龄等详细的分类及编码--有类似的分组表才能同医院聊天,有编码和计算方法才能同软件商聊天

DRGs读书笔记原创

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


DRGs读书笔记原创

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


DRGs读书笔记原创

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


DRGs读书笔记原创

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


杂七杂八原创

天地玄黄,宇宙洪荒。”荒” 字阶英语教学法--荒,即“无边”,手机随便搜来的,互联网无边无际,故为“荒”


Subscribe to Home