電子監(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 位加密碼)，可修改藥品流通軟件達到這一要求。實施方案如下：將藥品的基礎信息加入“監(jiān)管碼”字段，長度為7 字符。第一次建立資料時將掃描的20 位電子監(jiān)管碼前 7 位截取，存入“監(jiān)管碼”字段。增加“電子監(jiān)管碼”表，字段包含“單據(jù) IDint ”、“電子監(jiān)管碼 char(20)出入庫復核時，將電子監(jiān)管碼前 7 位與

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

3、庫兩種情況對應值： 入庫： WareHouseIn 出庫： WareHouseOut日期vDataField還有其他的不常用的情況，可采 用分析通過原來的方法生成的上 傳文件提取，或祥見附件電子監(jiān) 管技術(shù)文件 : 數(shù)據(jù)采集器接口標準 V3() .doc 固定格式vData Code=20 位電子監(jiān)管碼 Actor= 操作員 ActDate=20 位電子監(jiān)管碼CorpOrderID= 單據(jù)編號CorpProductID=00掃描到的電子監(jiān)管碼操作員CorpBatchNo= ProduceDate= /默認值： 1111 可更改日期掃描時間格式 :yyyy-mm-dd hh:mm:ss 例 :20

4、10-04-21 17:02:41 單據(jù)編號 經(jīng)營企業(yè)流通的實際單據(jù)編號該行內(nèi)容在XML文件中一直重復,本單據(jù)的包含的每個電子監(jiān)管碼 重復一次。固定格式因為在上傳頁面需要選擇往來客戶名稱,再提交需上傳的文件。建議在操作設計成： 選擇有電子監(jiān)管記錄的單據(jù)編號,界面上顯示出往來單位名稱、單據(jù)類型,然后點擊生成。 操作員每生成一個上傳一個,已生成過 XML 的單據(jù)做一個標記標識,避免重復生成。在業(yè)務軟件中加入此模塊可以用普通藥店的掃描槍掃電子監(jiān)管碼,減少流程。石柱縣重慶鴻宇醫(yī)藥楊勇二0一一年一月十八日附件一 : 數(shù)據(jù)采集器接口標準 V3（） .doc（ 另一文件 ）附二：用于電子監(jiān)管上傳 XML 文

5、件生成的 VF 代碼輸入表的結(jié)構(gòu)表結(jié)構(gòu)：數(shù)據(jù)記錄數(shù)：掾近更新的時間： 代碼頁：字段字段名1 C0BEID2 CQRFORBEKIE3 DECODE4 ACXDATE5 MAIKTI0H6 AC_TI0N7 UPLOAD*總計*1型型型型型型 10型型符苻符符符輯 21/類整字字字字字邏 4/364 0 9DBF寬度415ZD192020 i100小數(shù)位代碼：*!*導岀表中數(shù)據(jù)為xml文件*!* 修改時間：2010-4-15PROCEDUFXML_OUT*!*接收準備導岀數(shù)據(jù)的表名PARAMETERSKIias*!*初始化返回值nreturn=0*!*!*預處理：將OUTTABL設定為準備導出數(shù)

6、據(jù)的表名*!* #DEFINEOUTTABLEmpjgm*!*獲得文件輸岀路徑cPath=outpath&取得存于表中的“默認路徑 ”pcPath=GETDIRcPath,請選擇文件的輸出位置：輸出目錄選擇,64)IF EMPT(pcPath)RETURN1ENDIFIF USEDAIias)T_tabIe1=.F.ELSET_tabIe1=.T.ENDIFIF USEDoutliebiao)SELECToutliebiaoUSEENDIFSELECTO*!* 獲得準備在輸出表中的單據(jù)編號，一個單據(jù)編號生成一個XML文件SELECTdistinct corporderid FROM&cAIia

7、s. INTO CURSOR)utliebiao outwjs= RECCOUINTIF outwjs1MESSAGEB(O沒有可導出的內(nèi)容！,0,提示)IF USED(outliebiao)SELECToutliebiaoUSEENDIFIF T_table1 .AND. USED(cAlias) SELECT&cAlias. USEENDIFRETURN-2ENDIFFORi=1 TO outwjsSELECToutliebiao & 單據(jù)編號表GOicDjbh= ALLTRIM(corporderid)& 單據(jù)編號*!* 取得當前單據(jù)編號對應的電子監(jiān)管碼IF USED(tmpoutxml

8、)SELECTtmpoutxmlUSEENDIFSELECT0SELECT* FROM&cAlias.GOTOPWHEREcorporderid=cDjbhcmaintion= ALLTRIM(maintion) cMainName=ALLTRIM(ac_tion) cDjbh=ALLTRIM(corporderid) XmlFile=cMainName+_+cDjbh+.xml cXmlFile=pcPath+XmlFileOpfile=.F.IF FILE (cXmlFile)INTO CURSORtmpoutxml& 出入庫標識& 單據(jù)類型標識& 單據(jù)編號& 文件名& 帶路徑的文件名&

9、是否打開舊文件=6IF MESSAGEBQ)已存在文件+XmlFile+，是否重新生成。,4,)=6fp_xml1= FOPEN(cXmlFile,12)Opfile=.T.ELSEcXmlFile= PUTFILE( 保存為 (&N):,cXmlFile,xml) fp_xml1= FCREAT(EcXmlFile,0)ENDIFELSEfp_xml1= FCREAT(EcXmlFile,0)ENDIFDOWHIL fp_xml10* *!* 寫文件*lf=0 & 初始化文件長度IF Opfile =FSEEK(fp_xml1,0,0)& 將文件指針到文件開頭ENDIFlf=lf+ FWRI

10、TE(fp_xml1, CHR(239)+ CHR(187)+ 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, )SCANALL cdzcode=ALLTRIM(dz_code) lf=lf+ FPUTS(fp_xml1, )SELECT&cAlias.UPDATE&cAlias. SET upload=.T. WHEREcorporderid=cDjbh .AND. dz_code=cdzcode S

11、ELECTtmpoutxmlENDSCANlf=lf+ FPUTS(fp_xml1,)lf=lf+ FPUTS(fp_xml1,)lf=lf+ FPUTS(fp_xml1,)lf=lf+ FPUTS(fp_xml1,)IF Opfile=FCHSIZE(fp_xml1,lf)& 截斷文件ENDIFFCLOS(Efp_xml1)*ELSEMESSAGEBOX不能建立新文件+XmlFile,0, 提示)=FCLOS(Efp_xml1) nreturn=nreturn+1ENDIFENDFORIF USED(tmpoutxml)SELECTtmpoutxmlUSEENDIFIF USED(outliebiao)SELECToutliebiaoUSEENDIFIF T_table1 .AND.