【文章內(nèi)容簡介】 eturn long服務(wù)作用：新增一條空的門診憑單信息，并將憑單指針指向新增的憑單,每插入一條憑單信息前，都要先調(diào)用該服務(wù)，用于生成一條保存憑單信息的記錄，如果是多條藥品需要反復(fù)調(diào)用該服務(wù)服務(wù)返回值：0。 表示該過程正常。其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù):無返回結(jié)果集：無 (2)服務(wù)名稱： set_mz_item_string(string p_xm,string p_value) returns long set_mz_item_dec(string p_xm,decimal p_value) returns long set_mz_item_datetime(string p_xm,datetime p_value) returns long服務(wù)作用: 向當(dāng)前的憑單指針指定的項目(p_xm)賦值服務(wù)返回值: 0 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù): p_xm 費用憑單列名稱p_value 費用憑單列的值具體傳遞的參數(shù)說明：：（其中標(biāo)注*的為HIS必須傳遞的非空參數(shù)）： p_xm 類型 含義Yyxmbm varchar2(20) *醫(yī)院項目編碼Dj decimal *最小包裝的單價Sl decimal *大包裝數(shù)量bzsl number(12,4) 大包裝中包含的小包裝數(shù)量（如果不上傳以在地緯醫(yī)療機構(gòu)結(jié)算系統(tǒng)中維護(hù)的為準(zhǔn)） Gg varchar2(20) 規(guī)格 Dw varchar2(20) 單位 Zje decimal *總金額(zje=dj*sl*bzsl) Ksbm varchar2(20) *執(zhí)行科室編碼Kdksbm varchar2(20) *開單科室編碼Sxzfbl decimal *自付比例 返回結(jié)果集：無(3)服務(wù)名稱:save_mz_item() return long服務(wù)作用:結(jié)束門診憑單錄入服務(wù)返回值: 0 表示該過程正常。其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取 傳遞參數(shù):無返回結(jié)果集：無Pb示例：一張費用憑單信息可能會包含多種費用信息，該處需要循環(huán)調(diào)用產(chǎn)生憑單的服務(wù)。首先需要新增一條憑單記錄，然后向當(dāng)前憑單插入需要的項目，依次循環(huán)。for() //新增一行憑單記錄/* 以下為當(dāng)前行憑單插入各個項目值*/(‘yyxmbm’,‘sdyp0010_SI’)//醫(yī)院項目編碼(‘dj’,10) //最小包裝單價(‘sl’,10) //大包裝數(shù)量(‘bzsl’,10) //(‘zje’,1000) //總金額(‘kdksbm’,’001’) ///開單科室(‘ksbm’,’001’) //執(zhí)行科室(‘sxzfbl’,100) //自付比例() //結(jié)束當(dāng)前行憑單記錄的錄入next普通門診結(jié)算服務(wù)（結(jié)算并打印發(fā)票） 服務(wù)名稱：settle_mz(string p_sbjbm,p_ylzbh) return long服務(wù)作用 :消費結(jié)算并打印發(fā)票,普通門診消費完畢之后直接打印發(fā)票。服務(wù)返回值：0 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù):（其中標(biāo)注*的為HIS必須傳遞的非空參數(shù)） 名稱 類型 含義 p_sbjbm string *社保局編碼 p_ylzbh string *醫(yī)?？ㄌ? 返回結(jié)果集：vzje =(39。zje 39。) ：本次消費總金額vgrzhzf =(39。 grzhzf 39。) : 本次消費個人帳戶金額vxj =(39。 xj 39。) : 本次消費現(xiàn)金vmzzdlsh =(39。 mzzdlsh 39。) : 門診單據(jù)號 vjmje= (39。 jmje 39。) :優(yōu)撫對象減免金額普通門診退費服務(wù)destroy_mz(string p_mzzdlsh，string p_sbjbm,p_ylzbh) return long服務(wù)作用：退費并打印發(fā)票。服務(wù)返回值：0。 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù): （其中標(biāo)注*的為his必須傳遞的非空參數(shù)）： 名稱 類型 含義 P_mzzdlsh string *要退費的單據(jù)號 p_sbjbm string *社保局編碼 p_ylzbh string *醫(yī)?？ㄌ柗祷亟Y(jié)果集： vzje =(39。zje 39。) ：本次退費費用總金額vgrzhzf =(39。 grzhzf 39。) : 本次退費個人帳戶金額vxj =(39。 xj 39。) : 本次退費現(xiàn)金vcxlsh =(39。cxlsh39。) : 退費產(chǎn)生的單據(jù)號vjmje= (39。 jmje 39。) :優(yōu)撫對象減免金額pb示例：()if (mzzdlsh,’370100’,ylzbh)0 then messagebox(‘退費失敗’,()) returnend if 1急診結(jié)算服務(wù)急診的初始化和急診產(chǎn)生急診費用的過程和普通門診完全一致，可以直接利用普通門診的相關(guān)服務(wù)。服務(wù)名稱：settle_jz(string p_sbjbm,p_ylzbh) return long服務(wù)作用 :急診結(jié)算并打印發(fā)票,急診消費完畢之后直接打印發(fā)票。服務(wù)返回值：0 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù):（其中標(biāo)注*的為HIS必須傳遞的非空參數(shù)） 名稱 類型 含義 p_sbjbm string *社保局編碼 p_ylzbh string *醫(yī)?？ㄌ? 返回結(jié)果集：vzje =(39。zje 39。) ：本次消費總金額vgrzhzf =(39。 grzhzf 39。) : 本次消費個人帳戶金額vxj =(39。 xj 39。) : 本次消費現(xiàn)金vmzzdlsh =(39。 mzzdlsh 39。) : 急診單據(jù)號vjmje= (39。 jmje 39。) :優(yōu)撫對象減免金額1急診退費服務(wù)destroy_jz(string p_mzzdlsh，string p_sbjbm,p_ylzbh) return long服務(wù)作用：急診退費并打印發(fā)票。服務(wù)返回值：0。 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù): （其中標(biāo)注*的為his必須傳遞的非空參數(shù)）： 名稱 類型 含義 P_mzzdlsh string *要退費的單據(jù)號 p_sbjbm string *社保局編碼 p_ylzbh string *醫(yī)?？ㄌ柗祷亟Y(jié)果集： vzje =(39。zje 39。) ：本次退費費用總金額vgrzhzf =(39。 grzhzf 39。) : 本次退費個人帳戶金額vxj =(39。 xj 39。) : 本次退費現(xiàn)金vcxlsh =(39。cxlsh39。) : 退費產(chǎn)生的單據(jù)號vjmje= (39。 jmje 39。) :優(yōu)撫對象減免金額pb示例：()if (mzzdlsh,’370100’,ylzbh)0 then messagebox(‘退費失敗’,()) returnend if1住院讀卡服務(wù)服務(wù)名稱 :readcardzy() return Long服務(wù)作用: 讀醫(yī)?？ǖ男畔⒎?wù)返回值: 0。 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù):無返回結(jié)果集: （其中標(biāo)注*的為HIS必須接收并需要通過界面展示的結(jié)果集）vshbzhm=(‘shbzhm’) : *身份證號碼vkh=(‘ylzbh) : *醫(yī)保卡號vsbjbm=(‘sbjbm’) : *社保局編碼 ,濟(jì)南為370100vdwmc= (‘dwmc’) :單位名稱vrylb= (‘ylrylb’) : *醫(yī)療人員類別vrylbcode=(‘ylrylbcode’):醫(yī)療人員類別代碼 vye= (‘ye’) : *余額vzfbz= (‘zfbz’) :灰白名單標(biāo)志 1:白名單,0 灰名單vzfsm= (‘zfsm’) :灰白名單的說明vzhzybz= (‘zhzybz’) :有無15(醫(yī)保參數(shù)制)天內(nèi)的住院記錄1:有 ,0 :無vzhzysm= (‘zhzysm’) :15(醫(yī)保參數(shù)控制)天內(nèi)的住院記錄說明vxm= (‘xm’) ：*姓名vxb= (‘xb’) ：性別zcyymc=(‘zcyymc’) :轉(zhuǎn)出醫(yī)院名稱(如果zcyymc不為’’,則表示本次住院時候市內(nèi)轉(zhuǎn)院來的)vyfdxbz=(‘yfdxbz’) 優(yōu)撫對象標(biāo)志,’1’為優(yōu)撫對象vyfdxlb=(‘yfdxlb’) 優(yōu)撫對象人員類別(漢字說明)vsbjglx=(‘sbjglx’) 社保結(jié)構(gòu)類型,標(biāo)識持卡人的身份(‘A’ 城鎮(zhèn)職工人員,’B’ 城鎮(zhèn)居民人員)1普通住院登記服務(wù)（有卡登記服務(wù)）服務(wù)名稱：save_zyxx(string p_blh, string p_shbzhm, string p_ickh, string p_xm, string p_xb, string p_yltclb, string p_sbjbm, string p_syzhlx, string p_ksbm, datetime p_zyrq, string p_qzys, string p_mzks) return long服務(wù)作用：保存有卡參保職工的住院登記信息。如果該參保人員在住院前有急診費用，則住院登記的時候會提示有急診費用，工作人員可以把急診費用轉(zhuǎn)成住院的費用。服務(wù)返回值: 0。 表示該過程正常。 其它 表示該過程出現(xiàn)錯誤，錯誤數(shù)據(jù)由get_errtext()獲取傳遞參數(shù): （其中標(biāo)注*的為HIS必須傳遞的非空參數(shù)） 名稱 類型 含義 p_blh string *病例號 p_shbzhm string *身份證號碼 p_ickh string *IC卡號 p_xm string *姓名 p_xb string 性別 1:男 2:女 p_yltclb string *住院類別 1:住院 2:家床 p_sbjbm string *社保局編碼:濟(jì)南 370100 p_syzhlx string *使用醫(yī)?？愋? （0:不使用醫(yī)?？?,1銀行卡,2 cpu 卡，3，濟(jì)南醫(yī)?？ǎ? p_ksbm varchar2(20) *科室編碼 p_zyrq datetime *住院日期p_qzys string 確診醫(yī)師 p_mzks varchar2(20)