{"id":485,"date":"2013-04-22T06:43:08","date_gmt":"2013-04-22T10:43:08","guid":{"rendered":"https:\/\/risacher.org\/jfdi\/?p=485"},"modified":"2023-07-20T15:58:16","modified_gmt":"2023-07-20T19:58:16","slug":"vista-mumps-and-nosql","status":"publish","type":"post","link":"https:\/\/risacher.org\/jfdi\/2013\/04\/vista-mumps-and-nosql\/","title":{"rendered":"VistA, MUMPS and NoSQL"},"content":{"rendered":"<p><em>[Extra disclaimer: I am not currently involved in any deliberations with regard to AHLTA or VistA or iEHR, and have no particular knowledge of current thinking on EHR inside the Pentagon. I briefed the Hon. <a title=\"DCMO\" href=\"http:\/\/dcmo.defense.gov\/\">Beth McGrath<\/a> on Open Source Software in April 2011 &#8211; a long time ago.]<\/em><\/p>\n<p>As some of you probably know, Jon Stewart of the Daily Show recently ran a clip about <a title=\"Jon Stewart on iEHR\" href=\"http:\/\/bcove.me\/dp7b0ni2\">AHLTA vs VistA<\/a>. (embedded below for convenience)<\/p>\n<p>One of the interesting side-stories from this is the open-source vs proprietary angle which Stewart did not address.&nbsp; The VA was (is?) a big supporter of Open Source Software.&nbsp; (It is less clear how much commitment remains, now that both Roger Baker and Peter Levin have left the VA.)<\/p>\n<p>An Open Source Software model makes perfect sense for VA. They had the business problem of 133 treatment facilities with 133 custom versions of VistA.&nbsp; One of the beautiful things about VistA was that it was open to customization at the various installations so that it could be tailored to specific needs and this allowed innovation at point of service.&nbsp; The problem is that the overall operational cost increases over time as the versions diverge, and there is the possibility that interoperability decreases.&nbsp; The VA created <a title=\"OSEHRA\" href=\"http:\/\/www.osehra.org\/\">OSEHRA<\/a> to bring these forks back together.&nbsp; By using open source methodologies, they created a common &#8220;<a title=\"VA Enterprise VistA\" href=\"http:\/\/www.osehra.org\/content\/va-enterprise-vista-standard\">VA Enterprise VistA<\/a>&#8221; baseline, gives a place for all those local improvements to be merged into a best-of-breed VistA.<\/p>\n<p>This collaborative model is a huge win for innovation and continuous modernization.&nbsp; Allowing local innovation is both good and bad: the innovation part is good, but the loss of standardization is bad.&nbsp; Coupling a tolerance for local innovation with a enterprise reference standard makes the prospect win-win.<\/p>\n<p>I&#8217;ve personally fixed three bugs in the Linux kernel, and successfully gotten those patches incorporated into the Torvalds-approved <a title=\"kernel.org\" href=\"https:\/\/www.kernel.org\/\">kernel.org kernel<\/a>. I fixed the bugs because they affected me personally.&nbsp;&nbsp; I worked to get them into the upstream because I didn&#8217;t want to have to keep re-applying my patches every time a new kernel was released.&nbsp; There is also a non-trivial pride and ego-boost associated with that accomplishment.&nbsp; These same incentives will cause VA doctors and IT staff to work to improve VistA locally, and also to merge those changes into an enterprise baseline.<\/p>\n<p>These arguments in favor of an open-source development model could apply to the DoD also, or to a joint DoD-VA approach.<\/p>\n<p>What&#8217;s <em><strong>not<\/strong><\/em> clear to me is how much VistA should play a starring role in that future.<\/p>\n<p>Here&#8217;s an issue:&nbsp; building a vibrant, collaborative community around a software development project is about people and process as much as it is about technology.&nbsp; <a title=\"Steven Weber's book\" href=\"http:\/\/www.amazon.com\/Success-Open-Source-Steven-Weber\/dp\/0674018583\/\">Some<\/a> <a title=\"Kerl Fogel's book\" href=\"http:\/\/www.amazon.com\/How-Successful-Free-Software-Project\/dp\/1441437711\/\">great<\/a> <a title=\"Eric S Raymond's book\" href=\"http:\/\/www.amazon.com\/The-Cathedral-Bazaar-Accidental-Revolutionary\/dp\/0596001088\/\">books<\/a> <a title=\"Stallman's book\" href=\"http:\/\/www.amazon.com\/Free-Software-Society-Selected-Stallman\/dp\/1441436855\/\">have<\/a> <a title=\"Open Sources 2.0\" href=\"http:\/\/www.amazon.com\/Open-Sources-2-0-Continuing-Evolution\/dp\/0596008023\/\">been<\/a> <a title=\"Ron Goldman's book\" href=\"http:\/\/www.amazon.com\/Innovation-Happens-Elsewhere-Business-Strategy\/dp\/1558608893\/\">written<\/a> <a title=\"Dan Woods' book\" href=\"http:\/\/www.amazon.com\/Open-Source-Enterprise-Managing-Reaping\/dp\/0596101198\/\">about<\/a> <a title=\"Bernard Golden's book\" href=\"http:\/\/www.amazon.com\/Succeeding-Open-Source-Bernard-Golden\/dp\/0321268539\">this<\/a>.&nbsp; It will be difficult to get bright, talented software engineers to work on VistA, because of the 30-year old tools and design practices.&nbsp; I have two degrees in computer science from MIT and you couldn&#8217;t pay me enough to work on VistA.&nbsp; Literally.&nbsp; Even if you aren&#8217;t a software engineer, take a look at this <a title=\"VistA code from Git repo\" href=\"http:\/\/code.osehra.org\/gitweb?p=VistA-M.git;a=blob_plain;f=Packages\/Consult+Request+Tracking\/Routines\/GMRCEDT1.m;hb=refs\/heads\/master\">random sample of VistA source code<\/a>, which is barely distinguishable from <a title=\"line noise on Wiktionary\" href=\"http:\/\/en.wiktionary.org\/wiki\/line_noise\">line noise<\/a>:<\/p>\n<div style=\"border-width: 2px; border-style: dotted; height: 175px; overflow: auto;\">\n<pre><tt>GMRCEDT1 ;SLC\/DCM,JFR - EDIT A CONSULT AND RE-SEND AS NEW ;08\/20\/09  12:16\n ;;3.0;CONSULT\/REQUEST TRACKING;**1,5,12,15,22,33,47,66**;DEC 27, 1997;Build 30\n ;\n ; This routine invokes IA #2638 (^ORD(100.01,), #3991 (ICDAPIU), #10117 (VALM10)\n ;                         #10103 (XLFDT), #10104 (XLFSTR), #10060 (access ^VA(200)), #2056 (GET1^DIQ)\n ;\nEN(GMRCO) ;GMRCO=IEN of consult from file 123\n ;GMRCSS=To Service   GMRCPROC=Procedure Request Type\n ;GMRCURG=Urgency     GMRCPL=Place Of Consultation\n ;GMRCATN=Attention   GMRCINO=Service is In\/Out Patient\n ;GMRCPNM=Patient Name  GMRCDIAG=Provisional Diagnosis\n ;GMRCERDT=Earliest Appr. Date\n ;GMRCPROS=Prosthetics Service y\/n\n N GMRCSS,GMRCPROC,GMRCURG,GMRCPL,GMRCATN,GMRCINO,GMRCDIAG,LN,GMRCRESP,GMRCERDT,GMRCPROS,IDX\n K ^TMP(\"GMRCR\",$J,\"ED\") S GMRCLNO=1\n I $L($P(^GMR(123,+GMRCO,0),\"^\",12)) S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"  CURRENT STATUS: (Not Editable): \"_$P(^ORD(100.01,$P(^(0),\"^\",12),0),\"^\",1),GMRCLNO=GMRCLNO+1\n S GMRCD=0 F  S GMRCD=$O(^GMR(123,+GMRCO,40,\"B\",GMRCD)) Q:'GMRCD  S GMRCDD=\"\" F  S GMRCDD=$O(^GMR(123,GMRCO,40,\"B\",GMRCD,GMRCDD)) Q:'GMRCDD  D\n .I $P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",2)=19 S LN=0 D\n ..N GMRCPERS,GMRCTX\n ..I '$D(^GMR(123,+GMRCO,12)) D\n ...S GMRCPERS=+$P($G(^GMR(123,+GMRCO,40,GMRCDD,0)),\"^\",5)\n ...S GMRCPERS=$GET1^DIQ(200,GMRCPERS,.01)\n ..I $D(^GMR(123,+GMRCO,12)) D\n ...I $P(^GMR(123,+GMRCO,12),U,5)=\"P\" D\n ....S GMRCPERS=$P($G(^GMR(123,+GMRCO,40,GMRCDD,2)),U,1)\n ...I $P(^GMR(123,+GMRCO,12),U,5)=\"F\" D\n ....S GMRCPERS=$P($G(^GMR(123,+GMRCO,40,GMRCDD,0)),U,5)\n ....S GMRCPERS=$GET1^DIQ(200,GMRCPERS,.01)\n ..S GMRCTX=\"  CANCELLED BY (Not Editable): \"_GMRCPERS\n ..S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=GMRCTX,GMRCLNO=GMRCLNO+1\n ..S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"  CANCELLED COMMENT (Not Editable):\",GMRCLNO=GMRCLNO+1\n ..S LN=$O(^GMR(123,+GMRCO,40,GMRCDD,1,LN)) Q:LN=\"\"!(LN?1A.E)  I $L(^GMR(123,+GMRCO,40,GMRCDD,1,LN,0))&gt;75 S FLG=1 D WPSET^GMRCUTIL(\"^GMR(123,+GMRCO,40,GMRCDD,1)\",\"^TMP(\"\"GMRCR\"\",$J,\"\"ED\"\")\",\"\",.GMRCLNO,\"\",FLG)\n ..I '$D(FLG) S LN=0 F  S LN=$O(^GMR(123,+GMRCO,40,GMRCDD,1,LN)) Q:LN=\"\"!(LN?1A.E)  S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^(LN,0),GMRCLNO=GMRCLNO+1\n ..S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"\",$P(^(0),\"-\",79)=\"\"\n ..S GMRCLNO=GMRCLNO+1\n ..Q\n .Q\n S GMRCSS=$S($D(GMRCEDT(1)):GMRCEDT(1),1:$P(^GMR(123,+GMRCO,0),\"^\",5)_U_$P(^GMR(123.5,$P(^GMR(123,+GMRCO,0),\"^\",5),0),U))\n S GMRCPROC=$S($D(GMRCED(1)):GMRCED(1),1:$P(^GMR(123,+GMRCO,0),\"^\",8)_U_$GET1^DIQ(123.3,+$P(^GMR(123,+GMRCO,0),\"^\",8),.01))\n I $D(GMRCED(2)) S GMRCINO=GMRCED(2)\n I '$D(GMRCINO) S GMRCINO=$P(^GMR(123,+GMRCO,0),U,18)_U_$S($P(^(0),U,18)=\"I\":\"Inpatient\",1:\"Outpatient\")\n S GMRCURG=$S($D(GMRCED(3)):GMRCED(3),1:$P(^GMR(123,+GMRCO,0),\"^\",9)_U_$GET1^DIQ(101,+$P(^(0),\"^\",9),1))\n S GMRCPL=$S($D(GMRCED(4)):GMRCED(4),1:$P(^GMR(123,+GMRCO,0),\"^\",10)_U_$GET1^DIQ(101,+$P(^(0),U,10),1))\n S GMRCPROS=$G(^GMR(123.5,$P(GMRCSS,U),\"INT\")) I $G(GMRCPROS)=\"\" D\n .S GMRCERDT=$S($D(GMRCED(5)):GMRCED(5),1:$P(^GMR(123,+GMRCO,0),\"^\",24)_U_$FMTE^XLFDT($P(^GMR(123,GMRCO,0),U,24)))\n S GMRCATN=$S($D(GMRCED(6)):GMRCED(6),1:$P(^GMR(123,+GMRCO,0),\"^\",11)_U_$GET1^DIQ(200,+$P(^(0),U,11),.01))\n I '$D(^GMR(123,GMRCO,30.1)) D\n . I $D(GMRCED(7)),$L($P(GMRCED(7),U,2)) D  Q\n .. S GMRCDIAG=$P(GMRCED(7),U)_\" (\"_$P(GMRCED(7),U,2)_\")\"\n . S GMRCDIAG=$S($D(GMRCED(7)):GMRCED(7),1:$G(^GMR(123,+GMRCO,30)))\n I $D(^GMR(123,GMRCO,30.1)) D\n . I $D(GMRCED(7)),$L(GMRCED(7)) D  Q\n .. S GMRCDIAG=$P(GMRCED(7),U)_\" (\"_$P(GMRCED(7),U,2)_\")\"\n . S GMRCDIAG=$G(^GMR(123,+GMRCO,30))\n . I '$STATCHK^ICDAPIU(^GMR(123,GMRCO,30.1),DT) D\n .. S GMRCDIAG=GMRCDIAG_\"   \"\n S GMRCREQ=$S(+$P(^GMR(123,+GMRCO,0),U,17)=\"P\":\"Procedure\",1:\"Consult\")\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"SENDING PROVIDER (Not Editable): \"_$S($P($G(^GMR(123,+GMRCO,12)),U,6):$P(^GMR(123,+GMRCO,12),U,6),$P(^GMR(123,+GMRCO,0),\"^\",14):$GET1^DIQ(200,+$P(^GMR(123,+GMRCO,0),\"^\",14),.01),1:\"UNKNOWN\"),GMRCLNO=GMRCLNO+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"REQUEST TYPE (Not Editable): \"_GMRCREQ,GMRCLNO=GMRCLNO+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=$REPEAT^XLFSTR(\"-\",79),GMRCLNO=GMRCLNO+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"  TO SERVICE (Not Editable): \"_$P(GMRCSS,U,2) S GMRCLNO=GMRCLNO+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\" \",GMRCLNO=GMRCLNO+1\n S IDX=1,^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" PROCEDURE: \"_$P(GMRCPROC,U,2)\n D:+GMRCPROC RVRS(GMRCLNO,$D(GMRCED(IDX))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" Performed as INPT OR OUTPT: \"_$P(GMRCINO,U,2) D RVRS(GMRCLNO,$D(GMRCED(2))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" URGENCY: \"_$P(GMRCURG,U,2) D RVRS(GMRCLNO,$D(GMRCED(3))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" PLACE OF CONSULTATION: \"_$P(GMRCPL,U,2) D RVRS(GMRCLNO,$D(GMRCED(4))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n I $G(GMRCPROS)=\"\" S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" EARLIEST APPROPRIATE DATE: \"_$P(GMRCERDT,U,2) D RVRS(GMRCLNO,$D(GMRCED(5))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" ATTENTION (CONSULTANT): \"_$P(GMRCATN,U,2) D RVRS(GMRCLNO,$D(GMRCED(6))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" PROVISIONAL DIAGNOSIS: \"_GMRCDIAG D RVRS(GMRCLNO,$D(GMRCED(7))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" REASON FOR REQUEST:\" D RVRS(GMRCLNO,$D(^TMP(\"GMRCED\",$J,20))) S GMRCLNO=GMRCLNO+1,IDX=IDX+1 D\n . I $D(^TMP(\"GMRCED\",$J,20)) D  Q\n .. N ND S ND=0\n .. F  S ND=$O(^TMP(\"GMRCED\",$J,20,ND)) Q:'ND  D\n ... D KILL^VALM10(GMRCLNO)\n ... S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^TMP(\"GMRCED\",$J,20,ND,0)\n ... S GMRCLNO=GMRCLNO+1\n . N ND S ND=0\n . F  S ND=$O(^GMR(123,+GMRCO,20,ND)) Q:ND=\"\"  D\n .. S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^GMR(123,+GMRCO,20,ND,0)\n .. S GMRCLNO=GMRCLNO+1\n .Q\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"\",GMRCLNO=GMRCLNO+1,^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=IDX_\" COMMENT(S): (Add Only)\" D RVRS(GMRCLNO) S GMRCLNO=GMRCLNO+1\n I $D(^TMP(\"GMRCED\",$J,40)) D\n . D KILL^VALM10(GMRCLNO)\n . S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"  New Comment:\",GMRCLNO=GMRCLNO+1\n . N ND S ND=0 F  S ND=$O(^TMP(\"GMRCED\",$J,40,ND)) Q:'ND  D\n .. S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^TMP(\"GMRCED\",$J,40,ND,0)\n .. S GMRCLNO=GMRCLNO+1\n N GMRCEDCT\n S GMRCD=0,GMRCEDCT=0 F  S GMRCD=$O(^GMR(123,+GMRCO,40,\"B\",GMRCD)) Q:'GMRCD  S GMRCDD=\"\",GMRCDD=$O(^GMR(123,+GMRCO,40,\"B\",GMRCD,GMRCDD)) Q:'GMRCDD  D\n .I $P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",2)=20 S LN=0,GMRCEDCT=GMRCEDCT+1,GMRCEDCM(GMRCEDCT)=GMRCDD D\n ..S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"\",GMRCLNO=GMRCLNO+1,^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"ADDED COMMENT (Not Editable) Entered: \"_$P($FMTE^XLFDT($P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",1)),\"@\",1)\n ..S GMRCRESP=$S($L($P($G(^GMR(123,+GMRCO,40,GMRCDD,0)),\"^\",5)):$GET1^DIQ(200,$P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",5),.01),$L($P($G(^GMR(123,+GMRCO,40,GMRCDD,2)),\"^\",1)):$P(^GMR(123,+GMRCO,40,GMRCDD,2),\"^\",1),1:\"UNKNOWN\")\n ..S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)_\" BY: \"_GMRCRESP,GMRCLNO=GMRCLNO+1\n ..;S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)_\" BY: \"_$S($L($P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",4)):$P(^VA(200,$P(^GMR(123,+GMRCO,40,GMRCDD,0),\"^\",4),0),\"^\",1),1:\"UNKNOWN\"),GMRCLNO=GMRCLNO+1\n ..S LN=$O(^GMR(123,+GMRCO,40,GMRCDD,1,LN)) Q:LN=\"\"!(LN?1A.E)  I $L(^GMR(123,+GMRCO,40,GMRCDD,1,LN,0))&gt;75 S FLG=1 D WPSET^GMRCUTIL(\"^GMR(123,+GMRCO,40,GMRCDD,1)\",\"^TMP(\"\"GMRCR\"\",$J,\"\"ED\"\")\",\"\",.GMRCLNO,\"\",FLG) Q\n ..S LN=0 F  S LN=$O(^GMR(123,+GMRCO,40,GMRCDD,1,LN)) Q:LN=\"\"!(LN?1A.E)  S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=^(LN,0),GMRCLNO=GMRCLNO+1\n ..Q\n .Q\n S ^TMP(\"GMRCR\",$J,\"ED\",GMRCLNO,0)=\"\"\n K FLG\n Q\nRVRS(LINE,EDITED) ;reverse video for fields that can be edited\n I '$G(EDITED) D CNTRL^VALM10(LINE,1,1,IORVON,IORVOFF) Q\n D CNTRL^VALM10(LINE,1,1,IORVON_IOINHI,IORVOFF_IOINORM)\n Q<\/tt><\/pre>\n<\/div>\n<p>Not all the VistA code is this bad; some of it is worse.<\/p>\n<p>That said, the DoD alternative (<a title=\"AHLTA on wikipedia\" href=\"http:\/\/en.wikipedia.org\/wiki\/Armed_Forces_Health_Longitudinal_Technology_Application\">AHLTA<\/a>) &#8211; and in fact the most well-known <a title=\"Epic Systems\" href=\"http:\/\/en.wikipedia.org\/wiki\/Epic_Systems\">proprietary alternative<\/a>&nbsp; &#8211; all share the same obscure programming language (MUMPS) and are almost certainly equally bad &#8211; but since their code is not public, it&#8217;s harder to critique them.&nbsp; In fact, I would expect them to be worse since they were not written with collaborative development in mind.<\/p>\n<p>Say all the nice things about MUMPS you want:&nbsp; In the end, the choice of an ugly, archaic technology will decrease interest in any project by prospective contributors, thus decreasing the value of the collaborative model.&nbsp; This is <a title=\"Wikipedia\" href=\"http:\/\/en.wikipedia.org\/wiki\/Technical_debt\">Technical Debt<\/a> we may not be able to repay.<\/p>\n<p>Interestingly, Philip Newcomb, CEO of The Software Revolution Inc., <a title=\"Q&amp;A with Newcom on FierceGov't IT\" href=\"http:\/\/www.fiercegovernmentit.com\/story\/qa-philip-newcomb-mumps-and-vista-refactoring\/2011-06-26\">has asserted<\/a> that his company&#8217;s technology could convert VistA from MUMPS to J2EE in about a year for $10m. If true, this would be a bargain, IMHO.&nbsp; I&#8217;ve met with Phil twice in the past decade, and his claims are impressive, although I have no personal experience with the results of his company&#8217;s work.&nbsp; Other companies perform similar services &#8211; <a title=\"Hatha Systems\" href=\"http:\/\/hathasystems.com\/software-analysis-solutions.htm\">Hatha Systems<\/a> for example claims to do automated analysis of MUMPS.<\/p>\n<p>Tom Munnecke, one of the original architects of VistA has <a title=\"Tom Munnecke on FierceGov't IT\" href=\"http:\/\/www.fiercegovernmentit.com\/story\/guest-commentary-tom-munnecke-vista-lessons-learned\/2010-10-17\">eloquently defended<\/a> the MUMPS database design, pointing out that medical data is rarely suited to the structured, SQL-esque approach of relational databases.&nbsp; He makes some fabulous points, and I actually think that he&#8217;s right in that many of the decisions that were made for MUMPS and VistA were remarkably prescient.&nbsp; It&#8217;s taken the rest of the IT world three decades to rediscover <a title=\"MongoDB\" href=\"http:\/\/www.mongodb.org\/\">document-structured<\/a> <a title=\"Cassandra\" href=\"http:\/\/cassandra.apache.org\/\">non-relational<\/a> <a title=\"Accumulo\" href=\"http:\/\/accumulo.apache.org\/\">databases<\/a>, <a title=\"Google BigTable\" href=\"http:\/\/en.wikipedia.org\/wiki\/BigTable\">now<\/a> <a title=\"CouchDB\" href=\"http:\/\/couchdb.apache.org\/\">known<\/a> <a title=\"Amazon Dynamo\" href=\"http:\/\/en.wikipedia.org\/wiki\/Dynamo_(storage_system)\">collectively<\/a> <a title=\"Redis\" href=\"http:\/\/redis.io\/\">as<\/a> <a title=\"NoSQL on Wikipedia\" href=\"https:\/\/en.wikipedia.org\/wiki\/NoSQL\">NoSQL<\/a>.&nbsp; Now that there&#8217;s a huge-amount of energy and expertise focused on large-scale non-relational data stores, maybe we should consider how to use that talent and energy for EHR?<\/p>\n<p>In short, I think the VA should keep doing the OSEHRA thing to consolidate and modernize VistA.&nbsp; There&#8217;s two threads to that:&nbsp; first, they need to consolidate into an enterprise version of VistA for the VA to bring together the forks (which they are doing), and second, they should refactor and modernize the architecture and the tooling (which they claim they are doing).&nbsp; I am suspicious that they aren&#8217;t being <a title=\"Roger Baker on retaining MUMPS\" href=\"http:\/\/fcw.com\/articles\/2010\/08\/27\/mumps-va-vista-system-roger-baker.aspx\">bold enough<\/a>, but I don&#8217;t know.<\/p>\n<p>I remain skeptical that VistA can survive in the long term as a vibrant, community-driven open source project, if it continues as it is.&nbsp; In order to make VistA a viable project, the current MUMPS-based database need&nbsp; to be replaced with a modern NoSQL datastore of some kind, and the hyper-abbreviated MUMPS code needs to be replaced with something readable and maintainable.&nbsp; A colleague of mine (David Wheeler) once pointed out that MUMPS code doesn&#8217;t <em>have<\/em> to be unreadable, but the coding practices of VistA do not lend themselves to readability.&nbsp; A bold step would be to re-write the thing in Java or some other modern language; a mimimalist step would just re-write it in MUMPS that doesn&#8217;t suck so much.&nbsp; In&nbsp; David&#8217;s words:<\/p>\n<blockquote><p>I think you should note another alternative as well: Keep MUMPS, but translate the current MUMPS into readable code.<\/p>\n<p>Yes, you\u2019d still be working in an uncommon language.&nbsp; But that transformation would be especially trivial to do (and trivial to automate), and the risks from auto-translation would be far lower because the underlying environment and assumptions would be unchanged.<\/p>\n<p>It seems to me that the big problem here isn\u2019t really MUMPS, it\u2019s the way MUMPS has been used.&nbsp; Developers have used MUMPS\u2019 \u201cyou can abbreviate anything\u201d combined with \u201cuse bad names\u201d, which perhaps made sense 30 years ago but is a bad idea today.&nbsp; But you do not *<b>HAVE<\/b>* to create ugly code in MUMPS.<\/p>\n<p>Using the Wikipedia MUMPS article example, here\u2019s some line noise:<\/p>\n<pre><tt>hello() w \"Hello, World!\",! q<\/tt><\/pre>\n<p>But here\u2019s legal MUMPS \u2013 it\u2019s the same code, but unencrypted:<\/p>\n<pre><tt>\nhello()\n    write \"Hello, World!\",!\n  quit\n<\/tt><\/pre>\n<p>I have no idea if translating to another language would be a better trade-off than translating it to readable MUMPS.&nbsp; But it\u2019d be easy to hire somebody to briefly investigate the options, pros, and cons, so that a reasonable decision (based on EVIDENCE) could be made.&nbsp; And I think, in fairness, that alternative should be considered.<\/p><\/blockquote>\n<p>I also have concerns about the governance model of OSEHRA, but, as this blog post is already too long, I&#8217;ll save that for another article.<\/p>\n<p>As promised at the top: Jon Stewart on AHLTA vs VistA:<\/p>\n<p>Alas, this video is no longer available on Comedy Central.  It was from March 2013, and was hilarious but tragic.  If you can find it, post a link in the comments.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>[Extra disclaimer: I am not currently involved in any deliberations with regard to AHLTA or VistA or iEHR, and have no particular knowledge of current thinking on EHR inside the Pentagon. I briefed the Hon. Beth McGrath on Open Source Software in April 2011 &#8211; a long time ago.] As some of you probably know, [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14,5,11,12],"tags":[],"class_list":["post-485","post","type-post","status-publish","format-standard","hentry","category-ehr","category-it","category-oss","category-work"],"_links":{"self":[{"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/posts\/485","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/comments?post=485"}],"version-history":[{"count":64,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/posts\/485\/revisions"}],"predecessor-version":[{"id":1728,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/posts\/485\/revisions\/1728"}],"wp:attachment":[{"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/media?parent=485"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/categories?post=485"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/risacher.org\/jfdi\/wp-json\/wp\/v2\/tags?post=485"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}