In another thread about VistA, I quoted a snippet of WorldVistA code. I reproduce it here so you can judge for yourself. I didn't go out of my way to choose a particularly bad snippet, this is just a random bit:
; get billing info from 350 ; first find the charges and sort K ^TMP("IBECEA",$J) S Y="" F S Y=$O(^IB("AFDT",DFN,Y)) Q:'Y I -Y'>IBEDT S Y1=0 F S Y1=$O(^IB("AFDT",DFN,Y,Y1)) Q:'Y1 D . S IBX=0 F S IBX=$O(^IB("AF",Y1,IBX)) Q:'IBX D .. Q:'$D(^IB(IBX,0)) S IBZ=^(0) .. Q:$P(IBZ,"^",8)["ADMISSION" .. I $P(IBZ,"^",15)<IBBDT!($P(IBZ,"^",14)>IBEDT) Q .. S ^TMP("IBECEA",$J,+$P(IBZ,"^",14),IBX)=""There's another two million lines of this, in about 25000 tiny files with names like IBCNEHL3.m Of course, it's possible that none of this is a problem with the language, and the programmers of this project happened to like to write their code that way. I just don't think it's likely.
Copyright © 2017, Eklektix, Inc.
Comments and public postings are copyrighted by their creators.
Linux is a registered trademark of Linus Torvalds