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

1、電子監(jiān)管碼與藥品銷(xiāo)售購(gòu)銷(xiāo)出入庫(kù)一碼掃描實(shí)施方案隨著藥監(jiān)局規(guī)定基本藥品目錄產(chǎn)品必須進(jìn)行電子監(jiān)管文件的下達(dá)，意味著醫(yī)藥銷(xiāo)售行業(yè)按目前工作模式下將迎來(lái)進(jìn)出貨更大工作量。在醫(yī)藥銷(xiāo)售行業(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)”出入庫(kù)復(fù)核時(shí)，將電子監(jiān)管碼前7位與藥品基礎(chǔ)信息對(duì)比，用于確

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

3、通過(guò)原來(lái)的方法生成的上傳文件提取，或祥見(jiàn)附件電子監(jiān)管技術(shù)文件:數(shù)據(jù)采集器接口標(biāo)準(zhǔn)V3（20100623）.doc 固定格式 20位電子監(jiān)管碼掃描到的電子監(jiān)管碼操作員默認(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ù)一次。 固定格式因?yàn)樵谏蟼黜?yè)面需要選擇往來(lái)客戶名稱(chēng)，再提交需上傳的文件。建議在操作設(shè)計(jì)成：選擇有電子監(jiān)管記錄的單據(jù)編號(hào)，界面上顯示出往來(lái)單位名稱(chēng)、單據(jù)類(lèi)型，然后點(diǎn)擊生成。操作員每生成一個(gè)上傳一個(gè)，已生成過(guò)XML的單據(jù)

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

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

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

7、ENDIFSELECT 0SELECT * FROM &cAlias. WHERE corporderid=cDjbh INTO CURSOR tmpoutxmlGO TOPcmaintion=ALLTRIM(maintion)& 出入庫(kù)標(biāo)識(shí)cMainName=ALLTRIM(ac_tion)& 單據(jù)類(lèi)型標(biāo)識(shí)cDjbh=ALLTRIM(corporderid)& 單據(jù)編號(hào)XmlFile=cMainName+_+cDjbh+.xml& 文件名cXmlFile=pcPath+XmlFile& 帶路徑的文件名Opfile=.F.& 是否打開(kāi)舊文件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*!* 寫(xiě)文件*lf=0& 初始化文件長(zhǎng)度IF Opfile=FSEEK(fp_xml1,0,0)& 將文件指針到文件開(kāi)頭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)& 截?cái)辔募﨓NDIFFCLOSE(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