Pj3定点医疗机构门诊门慢API接口技术方案
2.4 函数调用样例 2.4.1
在PB中调用接口函数程序
1．创建和初始化接口示例： Long ll_pinterface Long ll_port String ls_server String ls_servle
ls_server =”http://172.18.3.214/HygeiaWebService_GZ/web/ProcessAll.asmx” ll_port = 7001 ls_servlet =”hygeia”
ll_pinterface = newinterface()
if IsNull(ll_pinterface) or ll_pinterface < 0 then MessageBox(?错误?, ?创建接口失败！?) return -1
end if
ll_return = init(ll_pinterface, ls_server, ll_port, ls_servlet) if ll_return<0 then
messagebox(?错误?, ?初始化接口失败！) return end if
**前面创建和初始化接口两条语句也可以用以下一条语句实现：ll_pinterface = newinterfacewithinit(ls_server, ll_port, ls_servlet)
2．调用业务功能示例： long ll_return
integer li_ret = -1 //函数返回值
ls_func_id = “BIZH131102” //功能号 ll_return = Start(gl_pinterface,ls_func_id) if ll_return < 0 then return li_ret
//设置参数
if put(gl_pinterface, 1, \
Powerise?创智
10
Pj3定点医疗机构门诊门慢API接口技术方案
if put(gl_pinterface, 1, \if put(gl_pinterface, 1, \ //运行
ll_return = run(gl_pinterface) if ll_return < 0 then ls_value = Space(1024)
getmessage(gl_pinterface, ref ls_value); MessageBox(?错误?, ls_value) return li_ret end if
//获取结果
setresultset(gl_pinterface,”personinfo”) li_size = getrowcount(gl_pinterface) if ll_size > 1 then
//在此处处理多条人员信息的情况
elseif ll_size = 1 then
getbyname(gl_pinterface, “indi_id”, ref ls_ value) end if
setresultset(gl_pinterface,”bizinfo”) //逐行取出的数据 do
ls_ hospital_id= Space(100) //调用getbyname函数前, 必须每次分配足够大的内存 ls_biz_type = Space(50)
if getbyname(pinterface, “hospital_id_id”, ref ls_ value) < 0 then return li_ret if getbyname(pinterface, “biz_type”, ref ls_biz_type) < 0 then return li_ret loop while nextRow(pinterface) > 0 li_ret = 1 return li_ret
2.4.2 在Delphi中调用接口函数程序
1．创建和初始化接口示例：
Powerise?创智
11
Pj3定点医疗机构门诊门慢API接口技术方案
procedure test_dll(); var
ll_pinterface: Pointer; ll_port: Pointer; ls_server:pchar; ls_servle:pchar; ll_ret: int; ls_p:pchar; begin
ls_server: =”http://172.18.3.214/HygeiaWebService_GZ/web/ProcessAll.asmx”;ll_port: = 7001; ls_servlet: =”hygeia”;
il_pinterface :=newinterfacewithinit(ls_server, ll_port, ls_servlet);
//必须每次调用getbyname函数前分配足够大的内存 if (start(il_pinterface,”BIZH131102”)<0) then exit; ls_p:=StrAlloc(1024); if (run(ll_pinterface)<0) then begin
getmessage(ll_pinterface, ls_p); howmessage(ls_p); exit; end;
if (getbyname(ll_pinterface, “indi_id”, ls_p)>0) then exit; nextrow(ll_pinterface);
if (getbyname(ll_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 Char *, servlet As Char *, retval As Char *,func As Char* Dim as_name As Char *, as_val As Char *
Powerise?创智
12
Pj3定点医疗机构门诊门慢API接口技术方案
addr =”http://172.18.3.214/HygeiaWebService_GZ/web/ProcessAll.asmx” port = 7001 servlet = \pint = newinterface()
ret = init(pint, addr, port, servlet) func=”BIZH131102”
ret = start(pint, func) If ret >= 0 Then //设置参数
if put(pint, 1, \if put(pint, 1, \if put(pint, 1, \
ret = run(pint)
retval = Space(100) //必须每次调用getbyname函数前分配足够大的内存
If ret > 0 Then MsgBox \
ret = getbyname(pint, \
Else
MsgBox \
ret = getmessage(pint, retval) MsgBox retval End If End If
destoryinterface (pint) End Sub
3 功能编号及功能描述
3.1 系统(0) 3.1.1
登录到前置服务器 (0)
? 功能编码：
Powerise?创智
13
Pj3定点医疗机构门诊门慢API接口技术方案
0
? 功能描述：
通过输入的医疗机构的登录号和登录密码，登录系统。系统启动后至少要成功登录前置服务器一次。 ? 入参定义： 序号 入参 1 2 login_id login_password 入参说明 登录ID 登录密码 最大长度 20 40 是否可为空 否 否 备注 使用所分配的定点医疗机构编码 默认密码：定点医疗机构编码。 定点医疗机构的系统管理员应在系统启动后修改密码。 ?
出参定义：
? 返回值说明：
返回值=0, 登录成功； 返回值<0,登录失败。 ? 返回数据集个数: 零个
? 返回数据集名称及其内容： 无。
3.2 门诊业务 3.2.1
3.2.1.1
门诊挂号登记
通过个人标识取人员信息（BIZH131001）
? 业务功能编码：
BIZH131001
? 业务功能描述：
普通门诊登记时，通过个人标识（电脑号、姓名、公民身份号、借记卡号）取参保人信息、个人帐户信息及基金冻结信息。 ? 入参定义：
通过四种不同的入参均可获取病人个人信息、个人帐户信息及基金冻结信息。 1.通过参保人电脑号 序号 1 2 3 4 入参 indi_id hospital_id biz_type biz_date 入参说明 个人电脑号 医疗机构编码 业务类型 业务时间 最大长度 是否可为空 20 20 3 否 否 否 否 格式：yyyy-mm-dd 14
备注 Powerise?创智
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库PJ3定点医疗机构门诊业务API嵌入式接口技术方案(4)在线全文阅读。
相关推荐：