Hygeia城镇职工基本医疗保险管理信息系统接口说明(修订版).doc

HygeiaHygeia 城镇职工基本医疗保险管理信息系统城镇职工基本医疗保险管理信息系统 医医院院前前台台接接口口说说明明 ( (V V5 5. .0 0) ) 创智软件园有限公司 2002.01.08 目目 录录 1运行环境说明运行环境说明.1 2函数功能函数功能1 2.1函数说明函数说明1 2.1.1long newinterface()1 2.1.2Long newinterfacewithinit(char *Addr, int Port, char *Servlet)1 2.1.3int init(Interface *p_inter, char *Addr, int Port, char *Servlet)1 2.1.4destoryinterface(Interface *p_inter)1 2.1.5int start(Interface *p_inter, long FUNC_ID)2 2.1.6int put(Interface *p_inter, long row, String p_name, p_value).2 2.1.7int putcol(Interface *p_inter, String p_name, p_value)2 2.1.8long run(Interface *p_inter,).2 2.1.9long setresultset(Interface *p_inter, String result_name)2 2.1.10int nextrow(Interface *p_inter,)3 2.1.11int prevrow(Interface *p_inter,)3 2.1.12int firstrow(Interface *p_inter)3 2.1.13int lastrow(Interface *p_inter).3 2.1.14int getbyname(Interface *p_inter, String p_name, void *p_value)3 2.1.15int getbyindex(Interface *p_inter, int index, void *p_name , void *p_value).4 2.1.16long getmessage(Interface *p_inter, char *err).4 2.1.17long getexception(Interface *p_inter, char *exception).4 2.1.18long getresultnamebyindex(Interface *p_inter, int index, char *resultname)4 2.1.19long getrowcount(Interface *p_inter)4 2.1.20long set_ic_commport(Interface *p_inter, int comm).5 2.1.21long encode64(char *pSrc, int nSize, char *pDest)5 2.1.22long decode64(char *pSrc, int nSize, char *pDest)5 2.1.23long encodesize( int nSize)5 2.1.24long decodesize( int nSize)5 2.1.25long decode64_tofile(char *pSrc, int nSize, char *filename)5 2.1.26int setdebug(Long pinter,integer flag,String direct).6 2.2函数调用说明函数调用说明6 2.2.1接口函数调用顺序6 2.2.2接口函数调用时指针的用法说明6 2.3程序中接口函数定义：程序中接口函数定义：7 2.3.1在 PB 中定义函数程序.7 2.3.2在 Delphi 中定义函数程序.7 2.3.3在 VB 中定义函数程序8 2.4函数调用样例函数调用样例9 2.4.1在 PB 中调用接口函数程序：.9 2.4.2在 Delphi 中调用接口函数程序：.10 2.4.3在 VB 中调用接口函数程序：10 3功能编号及功能描述功能编号及功能描述12 3.1登录登录(0).12 3.1.1登录到中心12 3.2项目匹配项目匹配(1001).12 3.2.1取医保中心项目信息(100102).12 3.2.2取匹配项目信息(100103).13 3.2.3删除匹配信息(100104).14 3.2.4重置匹配信息(100105).15 3.2.5项目匹配(100106).15 3.3普通门诊业务费用录入普通门诊业务费用录入(含改费含改费) (1101).17 3.3.1通过个人标识提取病人的个人基本信息、个人帐户信息及基金冻结信息(110101) 17 3.3.2校验计算并保存录入的费用明细信息 (110104).20 3.3.3通过个人标识提取以往的门诊业务信息 (110110).23 3.3.4通过业务序列号提取相应的费用明细信息 (110111).27 3.4普通住院入院登记普通住院入院登记 (1201).28 3.4.1通过个人标识提取病人个人信息(120101).28 3.4.2校验保存普通住院入院信息(120104).31 3.5住院出院结算住院出院结算(1202).32 3.5.1获取病人的个人基本信息、业务信息、费用信息、计算结果(120202).33 3.5.2计算(120206).35 3.5.3收费(120214).36 3.5.4出院(120204).37 3.5.5取消住院收费(120218).37 3.6住院信息修改住院信息修改(1203).38 3.6.1修改住院信息(120302).38 3.7预付款处理预付款处理(1204).39 3.7.1保存预付款信息(120402).39 3.8普通住院费用录入普通住院费用录入 (1205).40 3.8.1通过住院号提取病人个人信息、业务信息及基金冻结信息(120501).40 3.8.2校验保存录入的费用明细信息 (120502).41 3.8.3提取已保存的费用明细信息 (120503).42 3.8.4计算费用信息(120504).44 3.8.5通过医院项目或药品编码校验其是否已匹配(120507).44 3.8.6通过药品编码提取需退费及已退费的药品项目的信息(120509).46 3.9日结计算日结计算(1206).47 3.9.1取医院病人信息(120601).47 3.9.2日结计算(120602).48 3.10普通住院登记取消普通住院登记取消(1211).48 3.10.1取消登记(121104).48 3.11取消出院取消出院 (1212).49 3.11.1查询时间段内的已出院信息(121201).49 3.11.2取消出院(121202).50 3.12转院住院入院登记转院住院入院登记(1221).51 3.12.1通过个人标识提取病人个人信息(122101).51 3.12.2校验保存转院住院入院信息(122104).54 3.13门诊急救转住院入院登记门诊急救转住院入院登记 (1231).56 3.13.1通过个人标识提取病人个人信息(123101).56 3.13.2校验保存门诊急救转住院入院信息(123104).59 3.14门诊规定病业务费用录入门诊规定病业务费用录入(含改费含改费) (1305).60 3.14.1通过个人标识提取病人的个人基本信息、个人帐户信息及基金冻结信息(130501) 61 3.14.2通过医院项目或药品编码校验其是否已匹配(130503).63 3.14.3校验计算并保存录入的费用明细信息 (130504).64 3.14.4通过个人标识提取以往的门诊规定病业务信息 (130510).66 3.15特殊业务申请特殊业务申请(1306).71 3.15.1提取参保人个人信息业务功能(130601).71 3.15.2获取规定病种疾病信息(130606).73 3.15.3获取项目信息(160606).73 3.15.4校验参保人是否可以(追加)申请特殊业务(门诊规定病或家庭病床)(130607)74 3.15.5校验参保人是否可以(追加)申请特殊业务(特治特检)(160607)76 3.15.6保存门诊规定病或家庭病床申请信息(130610).77 3.15.7查询门诊规定病或家庭病床的审核信息(130611).79 3.15.8保存特治特检申请信息(160609).80 3.15.9查询特制特检的审核信息(160611).81 3.15.10获取已申请有效的特治特检的项目信息(160610).83 3.16门诊急救转住院门诊急救转住院(1502).84 3.16.1获取病人的个人基本信息、业务信息 (150202).84 3.16.2重计算(150206).86 3.16.3收费(150207).87 3.17门诊急救业务费用录入门诊急救业务费用录入(含改费含改费) (1505).88 3.17.1通过个人标识提取病人的个人基本信息和个人帐户信息及基金冻结信息(150501) 88 3.17.2通过医院项目或药品编码校验其是否已匹配(150503).91 3.17.3校验计算并保存录入的费用明细信息 (150504).92 3.17.4通过药品编码提取退费的相应明细信息 (150509).94 3.17.5通过个人标识提取以往的门诊急救业务信息 (150510).95 3.18转院申请转院申请(1210).99 3.18.1获取病人的个人基本信息、业务信息 (121002).99 3.18.2校验转院申请信息 (121003).102 3.18.3保存转院申请信息 (121005).102 3.18.4查询转院申请审核信息(121006).104 3.18.5获取医院信息(121007).105 3.19公用功能公用功能(2000).106 3.19.1取参保人个人信息(200001).106 3.19.2取参保人业务基本信息(200002).107 3.19.3取参保人个人帐户信息(200004).110 3.19.4提取参保人业务累计信息(200005).111 3.19.5提取参保人基金使用信息(200006).112 3.19.6校验参保人基本信息(200007).113 3.19.7校验参保人业务信息(200008).114 3.19.8判断卡证是否在黑名单中(200009).114 3.19.9取人员类别列表(200010).115 3.19.10取地区代码列表(200011).115 3.19.11取单位基本信息(200012).116 3.19.12提取计算结果(200015).117 3.19.13提取已录入的费用信息(200016).118 3.19.14提取疾病目录(200017).119 3.19.15提取药品目录(200018).121 3.19.16提取诊疗项目目录(200025).123 3.19.17提取发票打印信息(200040).125 3.19.18提取系统时间(200050).128 3.20提取结算单提取结算单 (20003).128 3.20.1提取住院结算单(200030).128 3.20.2提取门诊结算单(200031).130 3.20.3提取特殊业务结算单(200032).132 3.20.4提取计算序列号(200034).134 3.21统计报表统计报表134 3.21.1医院与中心的住院结算汇总表(200035)134 3.21.2医院与中心的门诊结算汇总表(200037)136 3.21.3医院与中心的门诊规定病种结算汇总表(200038).137 3.22附录附录138 3.22.1busi_type业务类型对照表138 3.22.2fund_id基金类别对照表.138 3.22.3medi_item_type药品项目类型对照表139 3.22.4match_type匹配类型对照表.139 1 运行环境说明运行环境说明 本接口采用 VC 编写，运行在 Win2000 操作系统下，它心须在以下软件的支持下运行： Win2000 Pro 或 Win2000Server IE5.5 MFC4.2 MSXML Parser 3 2 函数功能函数功能 2.1函数说明函数说明 2.1.1long newinterface() 该函数建立一个新的接口实例，但这个函数没有初始化接口，必须再调用 init 函 数初始化接口，此函数返回接口指针 p_inter，它将作为其他函数入口参数。 2.1.22.1.2Long newinterfacewithinit(char *Addr, int Port, char *Servlet) 该函数建立一个新的接口实例并将接口初始化，不需要再调用 init 函数。参数 Addr 为应用服务器 IP 地址，Port 为应用服务器端口号，Servlet 为应用服务器入口 Servlet 的名称，此函数返回接口指针 p_inter，它将作为其他函数入口参数。 2.1.32.1.3int init(Interface *p_inter, char *Addr, int Port, char *Servlet) 初始化接口。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值，参数 Addr 为应用服务器 IP 地址，Port 为应用服务器端口号，Servlet 为 应用服务器入口 Servlet 的名称。返回-1 表示没有 Start 成功，返回 1 表示调用成功。 2.1.4destoryinterface(Interface *p_inter) 从内存中释放接口的实例。 2.1.5int start(Interface *p_inter, long FUNC_ID) 该函数为一次接口调用的开始，入口参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值，参数 FUNC_ID 为要进行的业务的功能号，在上一次 Start 的业务没有进行完之前不能进行下一次 Start。返回-1 表示没有 Start 成功， 返回 1 表示调用成功。 2.1.6int put(Interface *p_inter, long row, String p_name, p_value) 该函数用来在一次接口调用中传入业务所需的参数，参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值，row 为多行参数的行号， p_name 为参数名称，以字符串表示，p_value 为参数值，可以是字符串和数值型。返 回-1 表示没有 Put 成功，返回大于零表示 Put 成功 ，此值同时为当前的行号。如果 入参有多个记录集，可用 setresultset 函数设置要传参数的记录集。 2.1.7int putcol(Interface *p_inter, String p_name, p_value) 该函数用来在一次接口调用中传入业务所需的参数，参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值，在当前的行，p_name 为参数 名称，以字符串表示，p_value 为参数值，可以是字符串和数值型。返回-1 表示没有 Put 成功，返回大于零表示 Put 成功，此值同时为当前的行号。 2.1.8long run(Interface *p_inter,) 该函数开始一次接口运行，直接将参数打包成送往 Servlet，如果出错，将返回 一个错误。返回-1 表示没有 Run 成功，返回大于零的值为返回参数的记录条数。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.9long setresultset(Interface *p_inter, String result_name) 参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 当取结果时： 将当前记录集设置为由 result_name 指定的记录集，如果指的记录集不存在，则 不会改变当前记录集。返回1 表示不成功，返回大于等于零的值为记录集记录数。 当设置入参时： 将当前记录集设置为由 result_name 指定的记录集，如果指的记录集存在，则改 变当前记录集为存在的记录集，其中有个特殊的记录集 Parameters, 它是个参数集， 没有记录行，其他都有记录行，通过 nextrow, prevrow, firstrow, lastrow。返回 1 表示不成功，返回大于等于零的值为记录集记录数。 2.1.10int nextrow(Interface *p_inter,) 跳到结果集后一行记录，返回1 表示调用不成功，返回大于零表示调用成功， 同时此值为当前的行号。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.11int prevrow(Interface *p_inter,) 跳到结果集前一行记录，返回1 表示调用不成功，返回大于零表示调用成功， 同时此值为当前的行号。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.12int firstrow(Interface *p_inter) 跳到结果集第一行记录，返回1 表示调用不成功，返回 1 表示调 用成功。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.13int lastrow(Interface *p_inter) 跳到结果集最后一行记录，返回1 表示调用不成功，返回大于零表示为当前记 录集记录数。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返 回值。 2.1.14int getbyname(Interface *p_inter, String p_name, void *p_value) 该函数用来从接口取得返回的参数值。返回值小于零, 表示没有 Get 成功，返回 大于零表示为当前记录集的第几条记录。用 getmessage 可以取得最近一次出错的错误 信息。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.15int getbyindex(Interface *p_inter, int index, void *p_name , void *p_value) 该函数用来从接口取得返回的参数值。返回值小于零, 表示没有调用成功，返回 值大于零, 表示调用成功。用 getmessage 可以取得最近一次出错的错误信息。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.16long getmessage(Interface *p_inter, char *err) 该函数在所有函数出错时，调用它，将得到一个错误信息，错误信息存放在 err 指向的一片内存空间中，当入参 err 为空指针(NULL)时，将返回 message 的长度。调 用此函数应保证 err 指向的内存有足够的长度存放返回的错误信息。函数返回值小于 零时，函数执行不成功。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.17long getexception(Interface *p_inter, char *exception) 该函数在所有函数出错时，调用它，将得到一个详细的错误信息，通过 exception 串返回，当 exception 为 NULL 时，将返回 message 的长度。函数返回值小 于零时，函数执行不成功。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.18long getresultnamebyindex(Interface *p_inter, int index, char *resultname) 该函数用来从接口取得第 index 的记录集名。返回值小于零, 表示没有成功，返 回值大于零, 表示调用成功。用 getmessage 可以取得最近一次出错的错误信息。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.19long getxmlstr(Interface *p_inter, char* xmlstr) 该函数用来从接口取得业务执行之后的 XML 字符串。返回值小于零, 表示没有成 功，返回值大于零, 表示调用成功。用 getmessage 可以取得最近一次出错的错误信息。 参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。参数 xmlstr 为调用 run 函数之后返回的完整 XML 字符串。 2.1.20long getrowcount(Interface *p_inter) 该函数用来从接口取得返回的当前记录集的记录行数。返回值小于零, 表示没有 Get 成功，返回值大于零, 表示当前记录集的记录行数。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。 2.1.21long set_ic_commport(Interface *p_inter, int comm) 该函数用来设置 IC 卡设备的串口号。返回值小于零, 表示没有成功，返回值大于 等于零, 表示调用成功。参数 p_inter 为函数 newinterface()或者 newinterfacewithinit 的返回值。参数 comm 为与 IC 卡连接的串口号。 2.1.22long encode64(char *pSrc, int nSize, char *pDest) 该函数用来将数据按 base64 格式编码；返回值小于零, 表示没有成功，返回值大 于等于零, 表示为编码后的字节数。参数 pSrc 为源数据，nSize 为源数据长度， pDest 为编码后的数据。 2.1.23long decode64(char *pSrc, int nSize, char *pDest) 该函数用来将数据按 base64 格式解码；返回值小于零, 表示没有成功，返回值大 于等于零, 表示为解码后的字节数。参数 pSrc 为源数据，nSize 为源数据长度， pDest 为解码后的数据。 2.1.24long encodesize( int nSize) 该函数用来将数据按 base64 格式编码时，用源数据长度来获得编码后的数据长度； 返回值小于零, 表示没有成功，返回值大于等于零, 表示为编码后的字节数。参数 nSize 为源数据长度。 2.1.25long decodesize( int nSize) 该函数用来将数据按 base64 格式解码时，用源数据长度来获得解码后的数据长度； 返回值小于零, 表示没有成功，返回值大于等于零, 表示为解码后的字节数。参数 nSize 为源数据长度。 2.1.26long decode64_tofile(char *pSrc, int nSize, char *filename) 该函数用来将数据按 base64 格式解码，并将解码后的数据存到 filename 文件里； 返回值小于零, 表示没有成功，返回值大于等于零, 表示为解码后的字节数。参数 pSrc 为源数据，nSize 为源数据长度，filename 为解码后的数据要保存的文件名。 2.1.27int setdebug(Long pinter,integer flag,String direct) 该函数用来设置接口的运行模式，当 flag 为 1 时将产生调试信息并且写入指定目 录 direct 下的日志文件中。返回值小于零, 表示没有成功，返回值大于等于零, 表示 成功。参数 pinter 为函数 newinterface()或者 newinterfacewithinit 的返回值， flag 为调试标志，0 表示不作调试，其它为可调试，direct 为存放调试信息日志文件 的目录，注意此目录必须是存在的。 2.2函数调用说明函数调用说明 2.2.1接口函数调用顺序接口函数调用顺序 1.接口初始化调用 newinterface()或者 newinterfacewithinit，这二个函 数的区别在于，前者仅进行接口初始化，而后者还要建立与服务器的连接。 要注意另一个与初始化有关的函数 init，它的作用是建立与服务器的连 接，它在二种情况下用，一个是用 newinterface()初始化时，调用它建 立与服务器连接，而另一个是程序将要与二个服务器连接时，使用它，而 不必调 destoryinterface 后，重新初始化接口。 2.调用功能号 0 登录到中心。 3.执行其他功能。 4.每个功能的执行顺序如下: 1)调 start 启动接口。 2)多次调 put 或者 putcol 将参数传入接口。 3)如果有记录集，调 setresultset 设置记录集名，多次调 put 或者 putcol 将记录集的各域值传入接口。 4)调 run 将数据送入后台。 5)多次调 get 将后台传回的数据取回，有多行记录时用 nexrow, prevrow, firstrow, lastrow 来移动行号。当返回的数据存在多个记录集时，可 用 setresultset 函数设置当前取数据的记录集。 2.2.2接口函数调用时指针的用法说明接口函数调用时指针的用法说明 在接口中有很多指针参数，这些参数在传入时，pb 都可以用字符串来代替，但必 须先赋值来定义其空间，delphi 中可直接用指针，然后用 StrAlloc 或者 StrNew 来定 义空间，但一定要用 StrDispose 来释放空间。 2.3程序中接口函数定义：程序中接口函数定义： 2.3.1在在 PB 中定义函数程序中定义函数程序 FUNCTION long newinterface() LIBRARY “HG_interface.dll“ FUNCTION long init(long pint, string Addr, long port, string Servlet ) LIBRARY “HG_interface.dll“ FUNCTION long getrowcount(long pint) LIBRARY “HG_interface.dll“ FUNCTION long newinterfacewithinit(string Addr, long port, string Servlet ) LIBRARY “HG_interface.dll“ SUBROUTINE destoryinterface( long pint ) LIBRARY “HG_interface.dll“ FUNCTION int start( long pint, long id ) LIBRARY “HG_interface.dll“ FUNCTION long put( long pint, long row, string pname, string pvalue ) LIBRARY “HG_interface.dll“ FUNCTION long putcol( long pint, string pname, string pvalue ) LIBRARY “HG_interface.dll“ FUNCTION long run( long pint ) LIBRARY “HG_interface.dll“ FUNCTION long getbyname ( long pint,string pname, ref string pvalue ) LIBRARY “HG_interface.dll“ FUNCTION long getbyindex ( long pint,long index, ref string pvalue ) LIBRARY “HG_interface.dll“ FUNCTION Long getmessage ( long pint, ref string msg ) LIBRARY “HG_interface.dll“ FUNCTION Long getexception ( long pint, ref string msg ) LIBRARY “HG_interface.dll“ FUNCTION int firstrow(long pint) LIBRARY “HG_interface.dll“ FUNCTION int nextrow(long pint) LIBRARY “HG_interface.dll“ FUNCTION int prevrow(long pint) LIBRARY “HG_interface.dll“ FUNCTION int lastrow(long pint) LIBRARY “HG_interface.dll“ FUNCTION int setresultset(long pint,string result_name) LIBRARY “HG_interface.dll“ 2.3.2在在 Delphi 中定义函数程序中定义函数程序 FUNCTION newinterface ( ):pointer; stdcall;external HG_interface.dll; FUNCTION newinterfacewithinit (Addr:string; port:integer; Servlet:string ):Pointer; stdcall;external HG_interface.dll; FUNCTION init(pint:Pointer;Addr:string; port:integer; Servlet:string ):integer; stdcall;external HG_interface.dll; Procedure destoryinterface ( pint:Pointer ); stdcall;external HG_interface.dll; FUNCTION start ( pint:Pointer; id:integer ):integer; stdcall;external HG_interface.dll; FUNCTION put ( pint:Pointer; row:integer; pname:string; pvalue:string ):integer; stdcall;external HG_interface.dll; FUNCTION putcol ( pint:Pointer; pname:string; pvalue:string ):integer; stdcall;external HG_interface.dll; FUNCTION run ( pint:Pointer ):integer; stdcall;external HG_interface.dll; FUNCTION getbyname ( pint:Pointer; pname:string; ref string pvalue:pchar):integer; stdcall;external HG_interface.dll; FUNCTION getbyindex ( pint:Pointer; index:integer; ref string pname:pchar; ref string pvalue:pchar ):integer; stdcall;external HG_interface.dll; FUNCTION getmessage ( pint:Pointer; ref string msg:pchar ):integer; stdcall;external HG_interface.dll; FUNCTION getexception ( pint:Pointer; ref string msg:pchar ):integer; stdcall;external HG_interface.dll; FUNCTION getresultnamebyindex(pint:Pointer;ndex:integer; ref string resultname:pchar ):integer; stdcall;external HG_interface.dll; FUNCTION getrowcount ( pint:Pointer ):integer; stdcall;external HG_interface.dll; FUNCTION setresultset(pint:Pointer; result_set:string):integer;stdcall;external HG_interface.dll; FUNCTION nextrow(pint:Pointer):integer;stdcall;external HG_interface.dll; FUNCTION firstrow(pint:Pointer):integer;stdcall;external HG_interface.dll; FUNCTION lastrow(pint:Pointer):integer;stdcall;external HG_interface.dll; FUNCTION prevrow(pint:Pointer):integer;stdcall;external HG_interface.dll; 2.3.3在在 VB 中定义函数程序中定义函数程序 Public Declare Function newinterface Lib “HG_interface.dll“ () As Long Public Declare Function init Lib “HG_interface.dll“ (ByVal pint As Long, ByVal addr As String, ByVal port As Long, ByVal servlet As String) As Long Public Declare Function start Lib “HG_interface.dll“ (ByVal pint As Long, ByVal id As Long) As Long Public Declare Function dataput Lib “HG_interface.dll“ Alias “put“ (ByVal pint As Long, ByVal row As Long, ByVal pname As String, ByVal pvalue As String) As Long Public Declare Function run Lib “HG_interface.dll“ (ByVal pint As Long) As Long Public Declare Function setdebug Lib “HG_interface.dll“ (ByVal pint As Long, ByVal flag As Integer, ByVal in_direct As String) As Long Public Declare Function getbyname Lib “HG_interface.dll“ (ByVal pint As Long, ByVal pname As String, ByVal pvalue As String) As Long Public Declare Function getbyindex Lib “HG_interface.dll“ (ByVal pint As Long, ByVal pindex As Long, ByVal pvalue As String) As Long Public Declare Function getmessage Lib “HG_interface.dll“ (ByVal pint As Long, ByVal msg As String) As Long Public Declare Function getexception Lib “HG_interface.dll“ (ByVal pint As Long, ByVal msg As String) As Long Public Declare Sub destoryinterface Lib “HG_interface.dll“ (ByVal pint As Long) Public Declare Function firstrow Lib “HG_interface.dll“ (ByVal pint As Long) As Integer Public Declare Function nextrow Lib “HG_interface.dll“ (ByVal pint As Long) As Integer Public Declare Function prevrow Lib “HG_interface.dll“ (ByVal pint As Long) As Integer Public Declare Function lastrow Lib “HG_interface.dll“ (ByVal pint As Long) As Integer Public Declare Function setresultset Lib “HG_interface.dll“ (ByVal pint As Long, ByVal result_name As String) As Integer 2.4函数调用样例函数调用样例 2.4.1在在 PB 中调用接口函数程序：中调用接口函数程序： public function integer test_dll(); Long ll_pinterface Integer li_ret; Stringls_value; ll_pinterface = newinterfacewithinit(“172.18.20.71”, 8080, “ProcessAll”); if IsNull(ll_pinterface) or ll_pinterface 0 end function 2.4.2在在 Delphi 中调用接口函数程序：中调用接口函数程序： procedure test_dll(); var il_pinterface: Pointer; il_ret: int; ls_p:pchar; begin il_pinterface := newinterfacewithinit(“172.18.20.71”, 8080, “ProcessAll”); if (start(il_pinterface, 200017)0) then exit; nextrow(il_pinterface); if (getbyname(il_pinterface, “indi_id”, ls_p)0) then exit; StrDispose(ls_p); end; 2.4.3在在 VB 中调用接口函数程序：中调用接口函数程序： Private Sub Command1_Click() Dim pint As Long, ret As Long, port As Long Dim addr As String, servlet As String, retval As String Dim as_name As String, as_val As String addr = “172.18.20.71“ port = 7001 servlet = “ProcessAll“ pint = newinterface() ret = init(pint, addr, port, servlet) port = 120202 ret = setdebug(pint, 1, “D:“) ret = start(pint, port) If ret = 0 Then as_name = “hospital_id“ as_val = “33040048001“ retval = Space(1000) ret = dataput(pint, 1, as_name, as_val) ret = dataput(pint, 1, “indi_id“, “302309“) ret = run(pint) MsgBox “start run“ If ret 0 Then MsgBox “success“ ret = getbyname(pint, “name“, retval) MsgBox retval Else MsgBox “fail“ ret = getmessage(pint, retval) MsgBox retval End If MsgBox “end run“ End If destoryinterface (pint) End Sub 3 功能编号及功能描述功能编号及功能描述 3.1登录登录(0) 3.1.1登录到中心登录到中心 功能编码： 0 功能描述： 通过输入的员工号和员工密码，登录系统。 入参定义： 序号入参入参说明最大长度是否可为空备注 1staff_id 登录 ID否 2staff_pwd 登录密码否 出参定义： 返回值说明： 返回值=0, 登录成功； 返回值0,执行删除匹配信息成功； 返回值0,重置匹配信息成功； 返回值0,执行提取个人基本信息、个人帐户信息和基金冻结信息成功, 请注意： 当返回值等于 1 或大于 1 时，二者返回数