3 ms·
> Everyone is deathly afraid of making too many changes too fast because when those systems break the money stops flowing and a health system will literally go
by ineptech 4y ago
> Everyone is deathly afraid of making too many changes too fast because when those systems break the money stops flowing and a health system will literally go insolvent.
Isn't this the desired outcome, that such organizations go broke? And let their assets, employees and customers go to some other organization that isn't saddled with technical debt?
- junofan 4y agoThe code looks like this: ``` I X?1.N1"H" S X=X3600,%H=$H,@("X=$P(%H,"","",2)"_Y_X),%=$S(X<0:- 1,1:0)+(X\86400),X=X#86400,%H=$P(%H,",")+%_","_X G RT D DMW G 1^%DT:'% S @("%H=$H"_Y_%),%H=%H_","_$P($H,",",2) RT D TT S %=$P(%H,",",2) D S S %=X_% I %DT'["S" S %=+$E(%,1,12) Q:'$D(%(0)) S Y=% G E^%DT PF S %H=$H D YMD S %(9)=X,X=%DT["F"2-1 I @("%I(1)*100+%I(2)"_$E("> <",X+2)_"$E(%(9),4,7)") S %I(3)=%I(3)+X ``` I mean, I can see why reimplementing could be scary even with org churn.
- yuretz 4y agoWhat language is it?
- Ndymium 4y agoFrom the context I'm guessing MUMPS, and it kinda seems to resemble it, if it had more line breaks: https://github.com/programarivm/mumps-examples/blob/f160bfb6660298a2868b24beba20089fef9429dd/06-databases/basic-sql-crud/Main.m https://github.com/programarivm/mumps-examples/blob/f160bfb6...
- peteradio 4y agoBinary looks like this 010100101001010 or something, surely the task of writing a mumps parser is long done?
- adolph 4y agoThat is from VA Fileman, right? I did a "lite" replatforming a few years ago. https://www.hardhats.org/fileman/pm/index.htm https://www.hardhats.org/fileman/pm/index.htm