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

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

2、出入庫(kù)復(fù)核時(shí)，將電子監(jiān)管碼前7位與藥品基礎(chǔ)信息對(duì)比，用于確定藥品信息，將20將電子監(jiān)管用于上傳藥監(jiān)局的XML文件生成。文件格式入說明：(實(shí)施時(shí)需將藍(lán)色文字替換成相應(yīng)內(nèi)容寫入CHR239)+CHR(187)+CHR(191)v?xml version="1.0"?><Document><Events>vEvent Name=" 單據(jù)類型"MainAction=" 出入庫(kù)">位電子監(jiān)管碼存入“電子監(jiān)管碼”表。XML不知道為什么，不在文件前寫入這 幾個(gè)字符上傳會(huì)提示文件錯(cuò)誤 固定格式單據(jù)類型常用四種情況對(duì)

3、應(yīng)值：采購(gòu)入庫(kù)：PurchaseWareHouseln 采購(gòu)?fù)顺?ReturnWareHouseOut 銷售出庫(kù):SalesWareHouseOut 銷售退回:ReturnWareHouseln 岀入庫(kù)兩種情況對(duì)應(yīng)值：入庫(kù)：WareHouseln出庫(kù)：WareHouseOut還有其他的不常用的情況，可采用 分析通過原來的方法生成的上傳 文件提取，或祥見附件電子監(jiān)管技 術(shù)文件：數(shù)據(jù)采集器接口標(biāo)準(zhǔn)V3(20100623) .doc<DataField>固定格式<Data Code="20位電子監(jiān)管碼"Actor="操作員"ActDate=&

4、quot;20位電子監(jiān)管碼日期"CorpOrderlD="單據(jù)編號(hào)"CorpProductID="00" CorpBatchNo="" 掃描到的電子監(jiān)管碼ProduceDate="" />'操作員默認(rèn)值：1111可更改日期掃描時(shí)間格式:yyyy-mm-dd hh:mm:ss例:2010-04-21 17:02:41單據(jù)編號(hào)經(jīng)營(yíng)企業(yè)流通的實(shí)際單據(jù)編號(hào)該行內(nèi)容在XML文件中一直重復(fù),本單據(jù)的包含的每個(gè)電子監(jiān)管碼 重復(fù)一次。v/DataField>v/Event></Events

5、></Document>固定格式因?yàn)樵谏蟼黜?yè)面需要選擇往來客戶名稱，再提交需上傳的文件。 建議在操作設(shè)計(jì)成： 選擇有電子監(jiān)管記錄的單據(jù)編號(hào)，界面上顯示出往來單位名稱、單據(jù)類型，然后點(diǎn)擊生成。操作員每生成一個(gè)上傳一個(gè)，已生成過XML的單據(jù)做一個(gè)標(biāo)記標(biāo)識(shí)，避免重復(fù)生成。在業(yè)務(wù)軟件中加入此模塊可以用普通藥店的掃描槍掃電子監(jiān)管碼，減少流程。石柱縣重慶鴻宇醫(yī)藥楊勇 二O一一年一月十八日附件一：數(shù)據(jù)采集器接口標(biāo)準(zhǔn) V3 ( 20100623) .doc(另一文件) 附二：用于電子監(jiān)管上傳 XML文件生成的VF代碼輸入表的結(jié)構(gòu)表結(jié)構(gòu)：數(shù)據(jù)記錄數(shù)：盤近更新的時(shí)間：代碼頁(yè)：字段字段名1 COD

6、EID2 CORFOEDERID3 BZ_CODE4 ACTEATE5 NWNTION6 A£_TION7 VFLOAD*總計(jì)*E： VEBITINtJV電子監(jiān)管XSHIJGM. DEF 404/21/10936SSS型型型型型型度 qlsm舊20201寬位100代碼：*!*導(dǎo)岀表中數(shù)據(jù)為xml文件*!* 修改時(shí)間：2010-4-15PROCEDURXML_OUT*!*接收準(zhǔn)備導(dǎo)岀數(shù)據(jù)的表名PARAMETERSAIias*!* 初始化返回值nreturn=0*!*!* 預(yù)處理：將OUTTABL設(shè)定為準(zhǔn)備導(dǎo)出數(shù)據(jù)的表名*!* #DEFINE OUTTABLE tmpjgm*!*獲得文件

7、輸岀路徑cPath=outpath(1)&&取得存于表中的“默認(rèn)路徑”pcPath=GETDIRcPath,'請(qǐng)選擇文件的輸出位置：輸出目錄選擇,64)IF EMPTY(pcPath)RETURN1ENDIFIF USED(cAIias)T_tabIe1=.F.ELSET_tabIe1=.T.ENDIFIF USED(outliebiao)SELECToutliebiaoUSEENDIFSELECTO*!* 獲得準(zhǔn)備在輸出表中的單據(jù)編號(hào)，一個(gè)單據(jù)編號(hào)生成一個(gè)XMI文件。SELECT distinct corporderid FROM&cAIias. INTO C

8、URSOFOutliebiao outwjs= RECCOUINTIF outwjs<1MESSAGEBO股有可導(dǎo)出的內(nèi)容！",0,"提示")IF USED('outliebiao').SELECToutliebiaoUSEENDIFIF T_table1 .AND. USEDAIias)SELECT&cAIias.USEENDIFRETURN2ENDIFFOR i=1 TO outwjsSELECToutliebiao&& 單據(jù)編號(hào)表GOicDjbh= ALLTRIMcorporderid)&& 單據(jù)

9、編號(hào)*!*取得當(dāng)前單據(jù)編號(hào)對(duì)應(yīng)的電子監(jiān)管碼IF USED('tmpoutxml') SELECTtmpoutxml USEWHEREorporderid=cDjbhINTO CURSORmpoutxml&&岀入庫(kù)標(biāo)識(shí)&&單據(jù)類型標(biāo)識(shí)&&單據(jù)編號(hào)&&文件名&&帶路徑的文件名&&是否打開舊文件ENDIF SELECT0 SELECT* FROM&cAlias.GO TOP cmaintion= ALLTRIM(maintion) cMainName=ALLTRIMac_tion)

10、 cDjbh= ALLTRIMcorporderid) XmlFile=cMainName+'_'+cDjbh+'.xml' cXmlFile=pcPath+XmlFile Opfile=.F.IF FILE (cXmlFile)IF MESSAGEBQX已存在文件"+XmlFile+"，是否重新生成。",4,"")=6 fp_xml1= FOPEI(tXmlFile,12)Opfile=.T.ELSEcXmlFile= PUTFILE"保存為(&N):",cXmlFile,"

11、;xml") fp_xml1= FCREAT(cXmlFile,0)ENDIFELSEfp_xml1= FCREATEXmlFile,0)ENDIFDOWHILfp_xml1<0 .AND. MESSAGEBQXF能建立新文件"+XmlFile+"，是否再試一次？ ",4,"提示")=6IF FILE (cXmlFile)IF MESSAGEBQX 已存在文件"+XmlFile+"，是否重新生成。",4,"")=6fp_xml1= FOPENXmlFile,12)Opfile=.

12、T.ELSEcXmlFile= PUTFILE("保存為(&N):",cXmlFile,"xml") fp_xml1= FCREAT(CXmlFile,O)ENDIFELSEfp_xml1= FCREAT(CXmlFile,0)ENDIFENDDOIF fp_xml1>0*!* 寫文件* lf=0 &&初始化文件長(zhǎng)度IF Opfile=FSEEI(fp_xml1,0,0)&&將文件指針到文件開頭ENDIFlf=lf+ FWRITEfp_xml1, CHR239)+CHR187)+CHR191)lf=lf+ F

13、PUTSfp_xml1,'v?xml version="1.0" encoding="utf-8"?>')lf=lf+ FPUTSfp_xml1,'<Document>')lf=lf+ FPUTSfp_xml1,' <Events>')lf=lf+ FPUTSfp_xml1,' <Event Name="'+cMainName+"' MainAction="'+cmaintion+"'>

14、')lf=lf+ FPUTSfp_xml1,' <DataField>')SCAN ALLcdzcode=ALLTRIMdz_code)lf=lf+ FPUTSfp_xml1,' <Data Code="'+cdzcode+'" Actor="1111"ActDate="'+ ALLTRIMActDate)+"' CorpOrderlD="'+cDjbh+"' CorpProductlD="00"

15、CorpBatchNo="" ProduceDate="" />')SELECT&cAlias.UPDATE&cAlias. SET upload=.T. WHERorporderid=cDjbh .AND. dz_code=cdzcodeSELECTtmpoutxmlENDSCANlf=lf+FPUTSfp_xml1,'</DataField>')lf=lf+FPUTSfp_xml1,'</Event>')lf=lf+FPUTSfp_xml1,'</Events>')lf=lf+FPUTSfp_xml1,'v/Document>')IF Opfile=FCHSIZEfp_xml1,lf)&& 截?cái)辔募﨓NDIFFCLOSEp_xml1)*ELSEMESSAGEBQXf 能建立新文件"+XmlFile,0," 提示")=FCLOS(fp_xml1)nreturn=nreturn+1ENDIFENDFORIF USED("tmpoutxml")SELECTtmpou