广东省版病案首页HIS项目归类语句参考.docx

广东省版病案首页HIS项目归类语句参考.docx

《广东省版病案首页HIS项目归类语句参考.docx》由会员分享，可在线阅读，更多相关《广东省版病案首页HIS项目归类语句参考.docx（15页珍藏版）》请在冰豆网上搜索。

广东省版病案首页HIS项目归类语句参考

广东省2012版病案HIS项目归类语句（参考）

这里比较有用的应该是归类的省代码区间，语句内容只是作参考用，在更改前要大概查看下所要更改的内容是符合，如符合就从update选择到语句尾部开始执行语句即可。

-------中成药

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=41

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

WHERE（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））AND（BsItem.LsRpTypeIN

（1））

-------西药

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=40

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

WHERE（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））AND（BsItem.LsRpTypeIN

（2））

--------中草药

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=26

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

WHERE（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））AND（BsItem.LsRpTypeIN（3））

---------诊查费（110200001-110200005）

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=1

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

whereBsItem.idin（SELECTid

FROM[BsItem]wheref1>='110200001'andf1<='110200005'）and（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））

---------一般医疗服务费（110100001-110900005）

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=36

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

whereBsItem.idin（SELECTid

FROM[BsItem]wheref1>='110100001'andf1<='110900005'）and（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））

---------一般治疗操作费（120200001-121700001）

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=3

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

whereBsItem.idin（SELECTid

FROM[BsItem]wheref1>='120200001'andf1<='121700001'）and（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））

---------护理费（120100001-120100014）

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=4

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

whereBsItem.idin（SELECTid

FROM[BsItem]wheref1>='120100001'andf1<='120100014'）and（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））

---------其他费用（130100001-140100004）

SELECTBsItem.NameASExpr1,BsZyFeety.NameASExpr2,BsItemFirstPage.ItemId,

BsItemFirstPage.PsFeeName,BsItemFirstPageType.Name,BsItem.LsRpType

-----updateBsItemFirstPagesetpsfeename=5

FROMBsItemFirstPageINNERJOIN

BsItemONBsItemFirstPage.ItemId=BsItem.IDINNERJOIN

BsZyFeetyONBsItem.FeeZyId=BsZyFeety.IDLEFTOUTERJOIN

BsItemFirstPageTypeON

BsItemFirstPage.PsFeeName=BsItemFirstPageType.ID

whereBsItem.idin（SELECTid

FROM[BsItem]wheref1>='130100001'andf1<='140100004'）and（（BsItemFirstPage.PsFeeNameISNULL）OR

（BsItemFirstPage.PsFeeName=0））

---------病理诊断费（270100001-2708000