|
.版本 2 .支持库 spec .支持库 EThread .子程序 获取平台患者信息, 逻辑型 .参数 患者姓名参数, 逻辑型, , 逻辑型,如需要读取填“真”,默认不需要的为“假”,以下参数相同 .参数 身份证号参数, 逻辑型, 可空 .参数 年龄参数, 逻辑型, 可空 .参数 性别参数, 逻辑型, 可空 .参数 诊断参数, 逻辑型, 可空 .参数 主诉参数, 逻辑型, 可空 .参数 接诊医生参数, 逻辑型, 可空 .参数 站点参数, 逻辑型, 可空 .参数 患者电话参数, 逻辑型, 可空 .参数 现病史参数, 逻辑型, 可空 .参数 户籍参数, 逻辑型, 可空 .参数 住址参数, 逻辑型, 可空 .参数 家庭医生参数, 逻辑型, 可空 .参数 目前血压参数, 逻辑型, 可空 .参数 体温参数, 逻辑型, 可空 .参数 呼吸参数, 逻辑型, 可空 .参数 脉搏参数, 逻辑型, 可空 .参数 家属参数, 逻辑型, 可空 .局部变量 句柄2, 整数型 .局部变量 窗口句柄2, 整数型 .局部变量 身份对象, 对象 .局部变量 a, 对象 .局部变量 i, 整数型 .局部变量 id, 文本型 窗口句柄2 = 窗口_取句柄 (, , , ) 句柄2 = 获取社卫平台句柄IE () 网页填表.初始化 (句柄2, , ) .如果 (句柄2 = 0) MessageBoxTimeoutA (窗口句柄2, “请先打开平台”, “标题”, 0, 0, 1500) .否则 .如果 (网页填表.就绪判断 (“东莞市”) = 假) MessageBoxTimeoutA (窗口句柄2, “请打开医生工作台-寮步内)”, “标题”, 0, 0, 2000) .否则 .如果真 (住址参数 = 真) 住址1 = 网页填表.文本框_取内容 (“id=hrperson*caddress”) .如果真 (住址1 = “” 且 窗口3常用文书.选择框2.选中 = 假) id = 网页填表.通用方法_取值 (“id=personId2”, “input”) 网页填表.链接_点击 (“href=javascript:toPersonHealth('” + id + “')”) 延时 (1500) 住址1 = 网页填表.文本框_取内容 (“id=hrperson*caddress”) .如果真结束 调试输出 (0) .如果真结束 调试输出 (11) .如果真 (患者姓名参数 = 真) 现病人名字1 = 文本_取出文本中汉字 (取文本左边 (网页填表.div_取文本 (“Id=personSummary”), 8)) 现病人名字1 = 删首尾空 (现病人名字1) .如果真结束 调试输出 (1) .如果真 (身份证号参数 = 真) 网页填表.取操作元素 (“innerText= 健康监测”, 身份对象, “a”) ' 配合提取身份证号 身份证号1 = 删首尾空 (文本_取出中间文本 (网页填表.操作元素_属性 (身份对象, “href”, ), “idno=”, #引号 + “)”, , )) ' 提取身份证号 .如果真 (身份证号1 = “”) 身份证号1 = 删首尾空 (网页填表.文本框_取内容 (“id=hrperson*idno”)) ' 在个人档案中取,如果不行+IE句柄获取 .如果真结束 .如果真结束 调试输出 (2) .如果真 (年龄参数 = 真) i = 到整数 (取文本左边 (时间_取身份证日期 (身份证号1), 4)) .如果 (i > 0) 年龄1 = 到文本 (取年份 (取现行时间 ()) - i) .否则 网页填表.取操作元素 (“id=birthday”, a, “td”) 年龄1 = 删首尾空 (文本_取出中间文本 (网页填表.表格_取文本 (a), “”, “岁”, , )) ' 取文本右边 (文本_取出中间文本 (网页填表.div_取文本 (“Id=personSummary”), “)”, “岁”, , ), 2) ' 年龄微凉模块 .如果结束 .如果真结束 调试输出 (3) .如果真 (性别参数 = 真) 性别1 = 时间_取身份证性别 (身份证号1) .如果真 (性别1 = “”) 性别1 = 删首尾空 (文本_取出中间文本 (网页填表.div_取文本 (“Id=personSummary”), #换行符 + #换行符, “ (”, , )) ' 现病人年龄 .如果真结束 .如果真结束 调试输出 (4) .如果真 (诊断参数 = 真) 诊断1 = 删首尾空 (网页填表.div_取文本 (“class=datagrid-cell datagrid-cell-c8-issueName”)) ' 诊断 .如果真结束 调试输出 (5) .如果真 (主诉参数 = 真) 主诉1 = 网页填表.div_取文本 (“className=datagrid-cell datagrid-cell-c7-value”) .如果真结束 调试输出 (6) .如果真 (接诊医生参数 = 真) .如果真 (接诊医生1 = “”) 接诊医生1 = 删首尾空 (文本_取出中间文本 (文本_取出文本中汉字 (网页填表.span_取文本 (“2”)), “”, “医生”, , )) ' 医生名,微凉模块 .如果真结束 .如果真结束 调试输出 (7) .如果真 (站点参数 = 真) 站点1 = 读配置项 (#启动目录C盘 + “confi2025.ini”, “站点记录”, “站点”, ) ' 文本_取出文本中汉字 (取文本中间 (网页填表.div_取文本 (“className=head2”), 10, 32)) .如果真结束 调试输出 (8) .如果真 (患者电话参数 = 真) 患者电话1 = 删首尾空 (取文本中间 (网页填表.通用方法_取文本 (“id=phone”, “td”), 10, 11)) ' 电话与病种相近位置 .如果真 (患者电话1 = “”) 患者电话1 = 网页填表.文本框_取内容 (“id=hrperson*telephone”) ' ’在个人档案中取 .如果真结束 .如果真结束 调试输出 (9) .如果真 (现病史参数 = 真) 现病史1 = 网页填表.多行文本框_取文本 (“Id=illnessContent”) ' 风险告知书要用到 .如果真结束 调试输出 (10) .如果真 (户籍参数 = 真) 户籍1 = 网页填表.文本框_取内容 (“id=hrperson*domiciliaryAddress”) .如果真结束 .如果真 (家庭医生参数 = 真) 家庭医生1 = 网页填表.通用方法_取文本 (“id=famliyId”, “td”) .如果真结束 调试输出 (13) .如果真 (目前血压参数 = 真) 收缩压1 = 到整数 (网页填表.文本框_取内容 (“Id=systolicPressure”)) ' 获取收缩压 舒张压1 = 到整数 (网页填表.文本框_取内容 (“Id=diastolicPressure”)) ' 获取舒张压 目前血压1 = 到文本 (收缩压1) + “/” + 到文本 (舒张压1) .如果真结束 .如果真 (呼吸参数 = 真) 呼吸1 = 网页填表.文本框_取内容 (“Id=breathe”) .如果真结束 .如果真 (脉搏参数 = 真) 脉搏1 = 网页填表.文本框_取内容 (“Name=pulse”) ' 脉搏 .如果真结束 .如果真 (体温参数 = 真) 体温1 = 网页填表.文本框_取内容 (“Id=temperature”) ' 体温 .如果真结束 .如果真 (家属参数 = 真) 家属姓名1 = 网页填表.文本框_取内容 (“Id=hrperson*guardian”) .如果真结束 倒计时计次循环逻辑 = 真 返回 (真) .如果结束 倒计时计次循环逻辑 = 真 返回 (假) .如果结束 倒计时计次循环逻辑 = 真 返回 (假) .子程序 子程序2打印启动线程, , , 5秒后自动关闭线程 .参数 打印子程序, 子程序指针, , 如:&子程序1无第3方打印 .局部变量 线程句柄局变量, 整数型 启动线程 (打印子程序, , 线程句柄局变量) 程序_延时 (10, 1) 关闭线程句柄 (线程句柄局变量) .子程序 获取社卫平台句柄IE, 整数型 .局部变量 句柄局, 整数型 句柄局 = 窗口_取句柄_模糊 (“东莞社区卫生平台”, “IEFrame”) 句柄局 = 窗口_取IE浏览框句柄 (句柄局) 返回 (句柄局) |
|