USEGEAR - 博客园

医院单病种核算，对于公立和民营的意义？

摘要：一、单病种付费及单病种成本核算的定义单病种付费是指在对某一单纯性疾病付费进行成本测算的基础上制定出相应的付费标准。单病种成本核算是指以某单一病种为核算对象，从该种疾病患者入院到最终达到临床治愈标准出院的整个治疗过程中，对该病种产生所需消耗的成本进行归集核算的过程。二、单病种成本核算的意义（一）阅读全文

posted @ 2022-09-08 18:06 USEGEAR 阅读(430) 评论(0) 推荐(0)

unidbgrid的rowedit=true

摘要：正常情况下：解决蠢办法：阅读全文

posted @ 2022-09-06 15:53 USEGEAR 阅读(331) 评论(0) 推荐(0)

医院科室成本管控体系如何建立？

摘要：建立科室成本管控体系不仅是新医改新制度政策的宏观方向，是加强医院管理科学化、专业化、精细化的基础，更是医院发展的重要手段之一。强化管控分析成本范畴内涵管理成本是为了完成特定的成本管理目的，如成本预测、成本决策、成本计划、成本控制、成本分析和成本考核等，提供有用的成本管理信息。它是在充分动员和组织全阅读全文

posted @ 2022-08-31 10:29 USEGEAR 阅读(191) 评论(0) 推荐(0)

fastreport的汉化

摘要： fastreport的语言包，是通过不同的xml实现的。它是UTF8编码。可是我们D的IDE默认的是ansi。希望设定成默认UTF8.怎么做： Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\B 阅读全文

posted @ 2022-08-29 10:50 USEGEAR 阅读(1977) 评论(0) 推荐(0)

uniGUIServer.TUniSessionRestrict Enumeration(12)

摘要： TUniSessionRestrict = ( srNone, srOnePerIP, srOnePerPC ); Members Description srNone No restrictions are applied to the uniGUI server.uniGUI服务器没有任何限制。阅读全文

posted @ 2022-08-26 11:31 USEGEAR 阅读(145) 评论(0) 推荐(0)

Delphi使用TStopwatch计时器精确计时【转】

摘要：引用 System.Diagnostics 单元属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn 阅读全文

posted @ 2022-08-20 16:03 USEGEAR 阅读(322) 评论(0) 推荐(0)

让人纠结的PG字段json类型

摘要： PostgreSQL确实牛逼得很。 PostgreSQL有个json数据类型。当你用json类型设定表的字段时，你用select语句相当爽。问题是当你使用中间件时如FireDAC等，进行数据保存时，就会出现啥啥错误operator does not exist: json=json。数据保存不了，保阅读全文

posted @ 2022-08-20 11:30 USEGEAR 阅读(450) 评论(0) 推荐(0)

蹉跎pg

摘要：由于字段记录的内容超过规定or顶格长度。导致数据commit屡屡出错。智能化导致许多临界问题，由于急功近利，结果找不出原因，形成大把蹉跎时间。记录至此，警醒提示。阅读全文

posted @ 2022-08-13 17:53 USEGEAR 阅读(26) 评论(0) 推荐(0)

PG清晰的Filter Where语句

摘要： SELECT "HDCD_DeptType"||'-'||"HDCD_DeptName", sum("HDCD_DetailSum") FILTER (WHERE "HDCD_TypeName"='人员费用') AS 人员费用, sum("HDCD_DetailSum") FILTER (WHERE 阅读全文

posted @ 2022-07-28 15:02 USEGEAR 阅读(403) 评论(0) 推荐(0)

pg狗日的to_char

摘要： pg中to_char函数功能强大。注意：to_char前面有一个符号位。to_char(2022,'9999')返回的是5位，前面一位是空格，是正数。 select to_char(2022,'9999')结果 ' 2022'。看清楚了，该坑已经掉进去多次了。阅读全文

posted @ 2022-06-28 16:20 USEGEAR 阅读(1403) 评论(0) 推荐(0)

pg 没有匹配指定名称和参数类型的函数. 您也许需要增加明确的类型转换

摘要：这个问题真TMD狗血。做了一个函数，调试完成后运行都ok。 CREATE OR REPLACE FUNCTION "public"."fn_UpsertDeptAppParms"("pyear" int2, "pmonth" int2) RETURNS "pg_catalog"."bool" AS 阅读全文

posted @ 2022-06-10 17:24 USEGEAR 阅读(5402) 评论(0) 推荐(0)

cxgrid的使用模糊搜索

摘要： //增加一行；焦点到当前指定cell。 frm.cxgrd1.SetFocus; frm.cxgrdbtblvwGrid1DBTableView1.DataController.AppendRecord;//or FDMemTable.Applend; frm.cxgrdbtblvwGrid1DBT 阅读全文

posted @ 2022-05-27 18:16 USEGEAR 阅读(316) 评论(0) 推荐(0)

pg中函数调用中的SQL语句

摘要： PG的sql语句的组织，由于特殊有点小麻烦。掌握方法就简单了函数:"fn_BillsCharge2Account"("aSQlConditionStr" varchar)调用： SELECT "public"."fn_BillsCharge2Account"('("科室代码" = ''101001 阅读全文

posted @ 2022-05-14 14:47 USEGEAR 阅读(305) 评论(0) 推荐(0)

pg的雪花函数

摘要： pg雪花算法，摘录网上，记录在此以备查。在此感谢原作者。建一个序列： CREATE SEQUENCE "public"."table_id_seq" INCREMENT 1 MINVALUE 1 MAXVALUE 999999999999999 START 1 CACHE 1 CYCLE ; SE 阅读全文

posted @ 2022-05-12 15:59 USEGEAR 阅读(573) 评论(0) 推荐(0)

pg函数的参数一种用法

摘要： CREATE OR REPLACE FUNCTION "public"."fn_BillsCharge2Account"("aSQlStr" varchar) RETURNS "pg_catalog"."varchar" AS $BODY$BEGIN EXECUTE $1 ; RETURN '1'; 阅读全文

posted @ 2022-05-12 10:37 USEGEAR 阅读(291) 评论(0) 推荐(0)

PG的递归

摘要： WITH RECURSIVE "CTE" AS( SELECT m."Exp_No",m."Exp_Code",m."Exp_Name",m."Exp_PCode" --,m."Exp_PCode" AS "Root" FROM "ExpenseManagement"."ExpList" m WHE 阅读全文

posted @ 2022-05-06 16:36 USEGEAR 阅读(1156) 评论(0) 推荐(0)

学习cxgrid换肤

摘要： cxgrid的换肤有时有点绕人。贴图依葫芦画瓢即可。阅读全文

posted @ 2022-05-05 16:50 USEGEAR 阅读(80) 评论(0) 推荐(0)

win下的PG12安装plpython3u

摘要： Python实在是太牛B。在pg中使用函数等使用Python，是否会上天呢？在网上折腾好久，关于如何安装plpython3u，五花八门云里雾里。洒家的过程如下： 1、安装Python。注意64和32的问题。应该你同时需要64和32。更要注意Pg版本是对应的Python版本。通过depends22 阅读全文

posted @ 2022-04-27 11:12 USEGEAR 阅读(502) 评论(0) 推荐(0)

IDEA中的代码块批量修改

摘要： IDEA是解放生产力的神一般存在的IDE，没有之一。C#，DELPHI等专业IDE除外。那么如何在代码块中批量修改？把光标放在你要修改的单词上，然后ALT+J 就会指定选择，一次ALT+J就会选择一次。n次后，选择n个你要的单词然后control+R进行替换对话。 NMD，真够蠢的。阅读全文

posted @ 2022-04-25 10:46 USEGEAR 阅读(1292) 评论(0) 推荐(0)

Python的32和64位共存在win

摘要：为什么？在win安装了64位，学习和练习代码都很爽。可是真正玩点啥就有问题了。为什么？除非大量计算的Python使用64位，但是一般应用还是在32万机器上跑你的程序。因此... 怎么做？下载32forwin，执行安装。安装到你指定目录。勾选PATH。至此已经ok。还有最后一步：到32位目阅读全文

posted @ 2022-04-22 17:28 USEGEAR 阅读(995) 评论(0) 推荐(0)

study Python3【4】字符串的判断

摘要：判断类型： result为True和False str = '1122abc' str.isalnum()是数字或者字母 str = 'MDCA' str.isalpha() 是字母 str = '1122' str.isdigit()是数字 str.islower()是小写 str.isupper 阅读全文

posted @ 2022-04-21 14:24 USEGEAR 阅读(64) 评论(0) 推荐(0)

FDMemtable如何增加一条自身复制的记录

摘要： procedure TFrame_Bill.CopyARecord; var lAFDmemtable : TFDMemTable; begin {$REGION '增加一条复制的记录'} try lAFDmemtable := TFDMemTable.Create(nil); lAFDmemtab 阅读全文

posted @ 2022-04-16 15:54 USEGEAR 阅读(205) 评论(0) 推荐(0)

study Python3【3】的函数

摘要： Python的函数定义简单，但灵活度非常大。功能强大意味复杂。为了复习，把廖雪峰老师的该课程做个回顾。参数有：必选参数、默认参数、可变参数、关键字参数、命名关键字参数。计算x的n次方函数： def power(x,n): s=1 while n > 0: n=n-1 s=s*x return s 阅读全文

posted @ 2022-04-09 09:03 USEGEAR 阅读(65) 评论(0) 推荐(0)

远程连接到轻量应用服务器PG数据库

摘要：不建议这样做，但是开发时方便需要。进入正题。 PG是不支持远程连接的，需要连接直接该参数。在其data目录里，有二个配置文件： pg_hba.conf：配置数据库的访问权限 postgresql.conf：配置数据库服务的相关参数 # # pg_hba.conf： # # IPv4 local c 阅读全文

posted @ 2022-04-08 11:18 USEGEAR 阅读(236) 评论(0) 推荐(0)

RegisterClass注册后getclass总是nil，why？

摘要：这个问题有点老。但是有点烦人。一般流程是 RegisterClass后通过getclass or findclass就会成功。可是莫名其妙出现总是返回nil。咱也不清楚，网上找了好久，一个久远的帖子解决了问题。为什么？不知道。 RTTI据说可以解决同样的问题，待有时间熟悉。找到了一个办法，随便阅读全文

posted @ 2022-03-31 11:13 USEGEAR 阅读(62) 评论(0) 推荐(0)

再说PG的连接

摘要：前面说过连接PG的方法，但是遇到问题又不通了。按照前面的做法还是不行，正是鼻子气歪了。到pg老家下载PGODBC，安装了，还是不行。其实仅仅copy一个libpg.dll是不够的。因为libpg.dll还依赖其他相关dll。因此，all copy过来到当前目录or搜索到的path就行了。真是一阅读全文

posted @ 2022-03-17 11:09 USEGEAR 阅读(320) 评论(0) 推荐(0)

pg获取tree完整的数据

摘要：一个表： DRGCode DRGParend DRGName 这样一个tree表结构。任意查询string，希望得到一个查询完整的tree。怎么做？ SELECT * FROM "DRG"."ADRG" WHERE "DRGCode" IN(WITH RECURSIVE T AS (SELECT 阅读全文

posted @ 2022-02-22 15:15 USEGEAR 阅读(127) 评论(0) 推荐(0)

TMS WEB Core的DEMO

摘要： TMS WEB Core的思路就是把你界面设计转换成js。这个打通了，将会使生产效率呈几何级数提高。说如何让其demo的能跑起来： 1、看图。增加参数（TMSHttpConfig.exe）。 2、运行：TMSWebServer.exe 3、运行demo，将会生成js文件的目录：这个就是自动生成的阅读全文

posted @ 2022-02-16 16:27 USEGEAR 阅读(656) 评论(0) 推荐(0)

DRG，医改分水岭！

摘要： 2020-11-04 (2021年政府推出2.0版DRG。增加MCC和CC，各自政府的医保支付中增加了人性化的支付倍率的处理) 假设某疾病病组支付标准10000元，患者自付自费比例40%，分三种情况，分析费用分担情况。具体情况如下表：医院盈收=支付标准-病人一次住院诊疗成本 DRG付费使得多方都会阅读全文

posted @ 2022-02-05 12:26 USEGEAR 阅读(106) 评论(0) 推荐(0)

java学习-8【EnumMap】

摘要： EnumMap和EnumSet几乎是一样的，区别时EnumMap的key时Enum。 public enum Types { RED,GREEN,BLACK,YELLO } @Test public void useEnumMap(){ EnumMap<Types,String> activityM 阅读全文

posted @ 2022-01-19 09:40 USEGEAR 阅读(144) 评论(0) 推荐(0)

高格发票勾稽之BUG

摘要： select (INVNO) AS INVCODE, SDATE ,* FROM STKSALE1 WHERE LEN(INVSCODE) > 0 AND INVSCODE = '3100000000' AND INVNO= 'Z0825269' 场景：用户增加销售发票，把发票号码加进了字母。由于增阅读全文

posted @ 2022-01-05 14:42 USEGEAR 阅读(112) 评论(0) 推荐(0)

java学习-7-捕获异常处理

摘要： Java使用异常来表示错误，并通过try ... catch捕获异常；1、Error错误是你的程序无能为力的，也无法捕获的，比如内存耗尽，最终会由JVM进行捕获打印出信息。几乎听天由命。但是老手程序员会遇见到做一些预见处理； 2、运行时错误RuntimeException的异常，如果不手动捕获最终也阅读全文

posted @ 2022-01-03 15:32 USEGEAR 阅读(266) 评论(0) 推荐(0)

java学习-6-核心类：字符串StringJoiner 和数组一起玩

摘要： public class Main { public static void main(String[] args) { String[] names = {"Bob", "Alice", "Grace"}; var sj = new StringJoiner("-"); for (String n 阅读全文

posted @ 2021-12-30 12:26 USEGEAR 阅读(84) 评论(0) 推荐(0)

java学习-5-核心类：字符串StringBuilder

摘要：对字符串进行拼接，用java标准库提供的可变对象：StringBuilder。 StringBuilder sb = StringBuilder(1024); for (int i = 0;i < 1000;i++){ sb.append(','); sb.append(i); }String s 阅读全文

posted @ 2021-12-30 12:05 USEGEAR 阅读(29) 评论(0) 推荐(0)

java学习-4-核心类：字符串

摘要：实际上字符串String内部是通过一个char[]数组表示的。因此 String s = new String(new char[] {'h','e','l','l','o'}; 和 String s = "hello"; 是等价的因为java的字符串作为对象放入常量池的。所以：字符串比较不要用阅读全文

posted @ 2021-12-30 11:55 USEGEAR 阅读(42) 评论(0) 推荐(0)

PG的json类型

摘要： 1、json分成json（纯字符串）和jsonb（二进制） 2、查询json CREATE TABLE "test"."test_json1" ( "id" serial2, "name" json, PRIMARY KEY ("id") )；INSERT INTO "test_json1" ("n 阅读全文

posted @ 2021-12-08 12:38 USEGEAR 阅读(2308) 评论(0) 推荐(0)

PG的子查询：insert 没有就插入记录，update有则更新记录

摘要： insert into t --进行插入 values(1,'name') ON CONFLICT(id) --如果id这个键存在 do update set --更新以下字段 name=EXCLUDED.name ; insert into t (a1,b1,c1) select a2,b2,c2 阅读全文

posted @ 2021-12-01 16:56 USEGEAR 阅读(1461) 评论(0) 推荐(0)

要命的DRG成本核算！

摘要：改开几十年的三座大山之一，鬼见愁的问题。会随着DRG的推进而让平头老百姓过上翻身做主的日子呢！？对于DRG，首先医保部门需要了解病种成本状况，确定给你结算多少银子。第二，咱们医院靠医保吃饭，那就更需要了解自己看病花了本钱，科室也更需要需要查看了解了，因为和切身利益相关。（1）医保部门需要了解病阅读全文

posted @ 2021-11-16 10:54 USEGEAR 阅读(398) 评论(0) 推荐(0)

dxSpreadSheet的报表demo-关于设计报表模板问题

摘要：学习 dxSpreadSheetReportDesigner过程中发现： dxSpreadSheet通过dxSpreadSheetReportDesigner点击右键出现弹出菜单，自动生成如图的菜单和actions，不用写一句代码。对于懒人来说酷毙了。但是Master-Detail和GroupHe 阅读全文

posted @ 2021-11-03 18:44 USEGEAR 阅读(304) 评论(0) 推荐(0)

dxSpreadSheet的报表demo-关于设计报表模板的Datagroup问题

摘要：看随机的报表DEMO，主从表也好，数据分组也好。呈现的非常到位。问题：可是自己在实现数据分组时，一旦设定分组字段就出现了混乱的数据记录。问题的原因：看一下一个报表页面设计时需要理清的概念。页头 Header（headerSection）表体 detail页脚Footer（FooterSect 阅读全文

posted @ 2021-11-03 15:59 USEGEAR 阅读(233) 评论(0) 推荐(0)

导航

公告