Delphi医保支付【支持重庆，湖南，湖北，河南，江苏，黑龙江，吉林等医保接口】

sm2签名，sm4加解密，签到签退，文件上传下载，医保结算，冲正交易，目录下载，医保对账

{

"infno": "9001",

"msgid": "P22072200668202109192345543433",

"mdtrtarea_admvs": "220722",

"insuplc_admdvs": "220722",

"recer_sys_code": "1",

"dev_no": "",

"dev_safe_info": "",

"cainfo": "jvFGEiKVq/2Xkr8z8czsRt5TEIeBCXUiVzOvbcjJY9oZYIPmOezBru6Ve1q41YLOLb/9yn0R+w0s/uFM1pG5sQ==",

"signtype": "SM2",

"infver": "V1.0",

"opter_type": "1",

"opter": "admin",

"opter_name": "管理员",

"inf_time": "2021-09-19 23:45:54",

"fixmedins_code": "H22072200145",

"fixmedins_name": "长岭县疾病预防控制中心",

"sign_no": "",

"input": "uA+YZcFLqgd6Sm/CmYyr2+HvgPYF1nHyKJuQYXgmaG/Tl9u+AXOBp5TlJbTDrn2X0mVs9xXxXNvWctpfc4hRDF2a03zwzd3uHulUVXqulfghsCw0DD+raNqV1/D+XbTL"

}

procedure TForm1.Button2Click(Sender: TObject);
var
input,cainfo,instr: string;
json: ISuperObject;
begin
//业务参数
json := SO;
try
json.S['signIn.mac'] := '00E066EA27FA'; //签到MAC地址
json.S['signIn.opter_no'] := '94_00001_王璐璐22'; //操作员编号
json.S['signIn.ip'] := '10.25.2.54'; //签到IP地址
instr := json.AsString;

Edit_cainfo.Text := Sm2Sign(instr, sm2key); //sm2签名
Edit_input.Text := Sm4Encrypt(instr, sm4key); //sm4加密

cainfo := Trim(Edit_cainfo.Text);
input := Trim(Edit_input.Text);
finally
json := nil;
end;

json := SO;
try
//公共参数
json.S['infno'] := Trim(Edit_infno.Text); //交易编号
json.S['msgid'] := GetMsgid(Trim(Edit_fixmedins_code.Text)); //发送方报文ID
json.S['mdtrtarea_admvs'] := Trim(Edit_mdtrtarea_admvs.Text); //就医地医保区划
json.S['insuplc_admdvs'] := Trim(Edit_insuplc_admdvs.Text); //参保地医保区划
json.S['recer_sys_code'] := '1'; //接收方系统代码
json.S['dev_no'] := ''; //设备编号
json.S['dev_safe_info'] := ''; //设备安全信息
json.S['cainfo'] := cainfo; //数字签名信息
json.S['signtype'] := 'SM2'; //签名类型
json.S['infver'] := 'V1.0'; //接口版本号
json.S['opter_type'] := '1'; //经办人类别
json.S['opter'] := Trim(Edit_opter.Text); //经办人
json.S['opter_name'] := Trim(Edit_opter_name.Text); //经办人姓名
json.S['inf_time'] := FormatDateTime('YYYY-MM-DD hh:nn:ss',now); //交易时间
json.S['fixmedins_code'] := Trim(Edit_fixmedins_code.Text); //定点医药机构编号
json.S['fixmedins_name'] := Trim(Edit_fixmedins_name.Text); //定点医药机构名称
json.S['sign_no'] := Trim(Edit_sign_no.Text); //交易签到流水号
json.S['input'] := input; //交易输入

instr := json.AsString;

Memo_in.Clear;
Memo_in.Lines.Add(instr);
finally
json := nil;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
lvresult: Integer;
instr,outstr,output: string;
json: ISuperObject;
begin
instr := Trim(Memo_in.Text);
if instr ='' then
begin
ShowMessage('入参为空！');
Exit;
end;

try
lvresult := YBYWCL(instr, outstr);
if lvresult =0 then
begin
Memo_out.Lines.Add(outstr);

//解析json
json := SO(outstr);
try
if json.S['infcode'] ='0' then //成功
begin
output := json.S['output'];
end
else //失败
begin
ShowMessage(json.S['err_msg']);
end;
finally
json := nil;
end;
end
else
begin
ShowMessage(outstr);
end;
except
on E: Exception do
begin
ShowMessage(e.Message);
end;
end;
end;

Delphi医保支付【支持重庆，湖南，湖北，河南，江苏，黑龙江，吉林等医保接口】相关推荐

中央重磅文件明确互联网医疗服务可用医保支付！
文章目录中央重磅文件明确互联网医疗服务可用医保支付! 中央重磅文件明确互联网医疗服务可用医保支付! 当下,互联网医疗机构已加入到新冠防治的"主战场",在分流线下诊疗发挥了很大作用 ...
从“刷卡”到“点付”，微信医保支付如何助力新医改
从2016年开始出现的微信医保支付,正在助力国内创新医疗改革的道路上,开启着"极速前进". (微信医保支付解决了"三长一短"的就诊痛点) 微信医保支付全国落地加 ...
广州医保个账支付接口开发微信医保支付
一.背景说明微信医保支付是由微信与各地人社局联合推出的"线上医保移动支付"的结算方式.对用户而言,在人社局指定的医院就医后,可以直接通过微信进行医保支付结算,无需线下窗口排队:对 ...
DRG在医保支付中的应用
DRG在医保支付中的应用前言 DRG全称是"按疾病诊断相关分组",它根据病人的年龄.性别.住院天数.临床诊断.病症.手术.疾病严重程度.合并症与并发症.转归等因素把病人分入不同 ...
《微信》医保支付功能介绍
微信电子社保卡已经上线了,可以为用户提供线上社保查询.社保缴费.挂号看病.药店买药等功能,极大方便了日常生活. 现在微信医保支付有了新的变化,深圳.成都.武汉.郑州.厦门.沈阳.嘉兴.潍坊.合肥.永康 ...
CHS-DRG医保支付(不区分城市)分组解读第二篇：分组规则MDCZ篇
1.总规则遵循 CHS-DRG医保支付(甘肃省庆阳市)分组解读第一篇:分组规则总述. 2.MDCZ组介绍严重多发性创伤是指在同一致伤因素作用下,l机体同时或相继有两个以上的解剖部位或脏器受到严重损 ...
delphi Mercadopago阿根廷支付（支持获取账户信息和余额、创建商店，商店查询、创建二维码、二维码查询、创建订单、订单查询、订单退款）
下载链接:https://download.csdn.net/download/liushenglin123/11435379 [delphi Mercadopago阿根廷支付]支持获取账户信息和余额 ...
【支付架构】医保支付-支付宝小程序
1 方案场景介绍 1.1 背景据统计2020年全国参保职工医保3.4亿人,其中在职职工2.5亿人,参保人员医疗总费用1.3万亿,其中医疗机构发生费用1.1万亿,医保个人账户支付费用2千亿,占总额的1 ...
微信可绑定医保卡直接支付四川省人民医院移动医保支付功能上线
成都商报继2017年10月,四川省人民医院开通移动支付功能后,近日又放大招,即四川省人民医院微信可绑定成都市医保卡,这意味着,在省医院看病,既可以选择微信支付,还可以用医保卡支付. 如何医保卡支付? ...
php医保支付,医保支付价的发展方向
[财新网](专栏作家赵衡孙雯艺)医保支付价格呼之欲出,如果出台,对目前的医院用药以及药品市场格局将有明显的影响,这将是支付方从被动支付到主动支付的一个重要转变,不过在目前中国市场情况下,执行医保支 ...

Delphi医保支付【支持重庆，湖南，湖北，河南，江苏，黑龙江，吉林等医保接口】

Delphi医保支付【支持重庆，湖南，湖北，河南，江苏，黑龙江，吉林等医保接口】相关推荐

最新文章

热门文章