電子監(jiān)管碼與藥品銷售購銷出入庫一碼掃描

1、電子監(jiān)管碼與藥品銷售購銷出入庫一碼掃描實施方案隨著藥監(jiān)局規(guī)定基本藥品目錄產(chǎn)品必須進行電子監(jiān)管文件的下達，意味著醫(yī)藥銷售行業(yè)按目前工作模式下將迎來進出貨更大工作量。在醫(yī)藥銷售行業(yè)大量呼吁將電子監(jiān)管并入自身藥品出入庫流程的情況下，根據(jù)電子監(jiān)管碼的編碼規(guī)則（7位本位碼+9位監(jiān)管序列號+4位加密碼），可修改藥品流通軟件達到這一要求。實施方案如下：將藥品的基礎(chǔ)信息加入“監(jiān)管碼”字段，長度為7字符。第一次建立資料時將掃描的20位電子監(jiān)管碼前7位截取，存入“監(jiān)管碼”字段。增加“電子監(jiān)管碼”表，字段包含“單據(jù)IDint”、“電子監(jiān)管碼char(20)”出入庫復核時，將電子監(jiān)管碼前7位與藥品基礎(chǔ)信息對比，用于確

2、定藥品信息，將20位電子監(jiān)管碼存入“電子監(jiān)管碼”表。將電子監(jiān)管用于上傳藥監(jiān)局的XML文件生成。文件格式入說明：（實施時需將藍色文字替換成相應內(nèi)容寫入XML）CHR(239)+CHR(187)+CHR(191)不知道為什么，不在文件前寫入這幾個字符上傳會提示文件錯誤 固定格式 單據(jù)類型常用四種情況對應值：采購入庫:PurchaseWareHouseIn采購退出:ReturnWareHouseOut銷售出庫:SalesWareHouseOut銷售退回:ReturnWareHouseIn出入庫兩種情況對應值：入庫：WareHouseIn出庫：WareHouseOut還有其他的不常用的情況，可采用分析

3、通過原來的方法生成的上傳文件提取，或祥見附件電子監(jiān)管技術(shù)文件:數(shù)據(jù)采集器接口標準V3（20100623）.doc 固定格式 20位電子監(jiān)管碼掃描到的電子監(jiān)管碼操作員默認值：1111 可更改日期掃描時間格式:yyyy-mm-dd hh:mm:ss例:2010-04-21 17:02:41單據(jù)編號經(jīng)營企業(yè)流通的實際單據(jù)編號該行內(nèi)容在XML文件中一直重復，本單據(jù)的包含的每個電子監(jiān)管碼重復一次。 固定格式因為在上傳頁面需要選擇往來客戶名稱，再提交需上傳的文件。建議在操作設(shè)計成：選擇有電子監(jiān)管記錄的單據(jù)編號，界面上顯示出往來單位名稱、單據(jù)類型，然后點擊生成。操作員每生成一個上傳一個，已生成過XML的單據(jù)

4、做一個標記標識，避免重復生成。在業(yè)務軟件中加入此模塊可以用普通藥店的掃描槍掃電子監(jiān)管碼，減少流程。石柱縣重慶鴻宇醫(yī)藥楊勇二一一年一月十八日附件一:數(shù)據(jù)采集器接口標準V3（20100623）.doc(另一文件)附二：用于電子監(jiān)管上傳XML文件生成的VF代碼輸入表的結(jié)構(gòu):代碼：*!*導出表中數(shù)據(jù)為xml文件*!*修改時間：2010-4-15PROCEDURE XML_OUT*!*接收準備導出數(shù)據(jù)的表名PARAMETERS cAlias*!*初始化返回值nreturn=0*!*!*預處理：將OUTTABLE設(shè)定為準備導出數(shù)據(jù)的表名*!*#DEFINE OUTTABLE tmpjgm*!*獲得文件輸出

5、路徑cPath=outpath(1) &取得存于表中的“默認路徑”pcPath=GETDIR(cPath,請選擇文件的輸出位置：,輸出目錄選擇,64)IF EMPTY(pcPath)RETURN -1ENDIFIF USED(cAlias)T_table1=.F.ELSET_table1=.T.ENDIFIF USED(outliebiao)SELECT outliebiaoUSEENDIFSELECT 0*!*獲得準備在輸出表中的單據(jù)編號，一個單據(jù)編號生成一個XML文件。SELECT distinct corporderid FROM &cAlias. INTO CURSOR outlieb

6、iaooutwjs=RECCOUNT()IF outwjs1MESSAGEBOX(沒有可導出的內(nèi)容！,0,提示)IF USED(outliebiao)SELECT outliebiaoUSEENDIFIF T_table1 .AND. USED(cAlias)SELECT &cAlias.USEENDIFRETURN -2ENDIFFOR i=1 TO outwjsSELECT outliebiao& 單據(jù)編號表GO icDjbh=ALLTRIM(corporderid)& 單據(jù)編號*!*取得當前單據(jù)編號對應的電子監(jiān)管碼IF USED(tmpoutxml)SELECT tmpoutxmlUSE

7、ENDIFSELECT 0SELECT * FROM &cAlias. WHERE corporderid=cDjbh INTO CURSOR tmpoutxmlGO TOPcmaintion=ALLTRIM(maintion)& 出入庫標識cMainName=ALLTRIM(ac_tion)& 單據(jù)類型標識cDjbh=ALLTRIM(corporderid)& 單據(jù)編號XmlFile=cMainName+_+cDjbh+.xml& 文件名cXmlFile=pcPath+XmlFile& 帶路徑的文件名Opfile=.F.& 是否打開舊文件IF FILE(cXmlFile)IF MESSAGE

8、BOX(已存在文件+XmlFile+，是否重新生成。,4,)=6fp_xml1=FOPEN(cXmlFile,12)Opfile=.T.ELSEcXmlFile=PUTFILE(保存為(&N):,cXmlFile,xml)fp_xml1=FCREATE(cXmlFile,0)ENDIFELSEfp_xml1=FCREATE(cXmlFile,0)ENDIFDO WHIL fp_xml10*!* 寫文件*lf=0& 初始化文件長度IF Opfile=FSEEK(fp_xml1,0,0)& 將文件指針到文件開頭ENDIFlf=lf+FWRITE(fp_xml1,CHR(239)+CHR(187)+

9、CHR(191)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )SCAN ALLcdzcode=ALLTRIM(dz_code)lf=lf+FPUTS(fp_xml1, )SELECT &cAlias.UPDATE &cAlias. SET upload=.T. WHERE corporderid=cDjbh .AND. dz_code=cdzcodeSELECT tmpoutxmlENDSCANlf=lf+FPUTS(fp_x

10、ml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1,)IF Opfile=FCHSIZE(fp_xml1,lf)& 截斷文件ENDIFFCLOSE(fp_xml1)*ELSEMESSAGEBOX(不能建立新文件+XmlFile,0,提示)=FCLOSE(fp_xml1)nreturn=nreturn+1ENDIFENDFORIF USED(tmpoutxml)SELECT tmpoutxmlUSEENDIFIF USED(outliebiao)SELECT outliebiaoUSEENDIFIF T_table1 .AND. USED(cAlias)SELECT &cA