All times are UTC - 5 hours [ DST ]


It is currently Tue Jun 09, 2026 7:24 pm


Forum rules


1) This is PG 13 so please warn if you are posting something not suitable for little eyes or work.
NSFW is standard to denote this in the thread title.
However anything too unsuitable will get you a warning!

2)This is SPAM not Sparta: Avoid controversial issues such as politics or religion please and be nice. Niceness costs nothing and will gain SHINY!

3) Eternal does not ever apply to spam.

4)This is not the art forum: If you really must post many pictures then using links is helpful nice and stops people getting bogged down.

5) Reiteration: Being abusive to someone because of their age, size, sex, sexual orientation, race etc is NOT allowed. We love humour but even humour has limits. Think twice before posting something that could offend


Post new topic Reply to topic  [ 27 posts ]  Go to page 1, 2  Next
Author Message
 Post subject: *vents*
PostPosted: Thu Oct 30, 2014 1:42 pm 
Offline

Joined: Thu May 08, 2014 8:42 pm
Posts: 32
So, I can't debug for shiat, but I've chosen to become a computer science major...

I apparently either can't apply the same logic in "the stove hurts, so I won't press my hand down on one" to daily life, or I just hate myself more than I'll ever hate anything else. The latter is a justifiable conclusion in any case.
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Fri Jun 19, 2015 5:01 pm 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
daydreamer wrote:
So, I can't debug for shiat, but I've chosen to become a computer science major...

I apparently either can't apply the same logic in "the stove hurts, so I won't press my hand down on one" to daily life, or I just hate myself more than I'll ever hate anything else. The latter is a justifiable conclusion in any case.


Ahhh yes, the joys of wrestling with compilers. You're on the front porch of Computer Science Club at the moment. Once they let you in the door, you'll being into theory like algorithm analysis.... No more debugging lines of code, but a whole lotta calculus II....

:-)
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Sat Jun 27, 2015 12:23 am 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
99 little bugs in the code
99 little bugs in the code
take one down, patch it around...

127 little bugs in the code...

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Mon Jul 06, 2015 9:13 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
99 little bugs in the code
99 little bugs in the code
take one down, patch it around...

127 little bugs in the code...


Haha! Sounds like my 9 to 5..... It's never a dull moment in the world of MUMPS programming.
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Mon Oct 05, 2015 2:51 pm 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
Here was the last "line" of code that I wrote in the course of my day. This was what we refer to as a "One-Liner" or, a "one line FOR loop".

F I=1:0 Q:'$O(^AUPNPAT("D",I)) S J=I S I=$O(^AUPNPAT("D",I)) S X=$O(^AUPNPAT("D",J,0)) I X S Y=$O(^AUPNPAT("D",J,X)) I (Y)&&(X'=Y) S COUNT=COUNT+1 W "DUPLICATE FOUND. MRN '"_J_"' IS HELD BY '"_$P(^DPT(X,0),U,1)_"' AND '"_$P(^DPT(Y,0),U,1)_"'",

I basically wrote it to prove a point. :-D
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Mon Oct 05, 2015 4:14 pm 
Offline

Joined: Thu May 08, 2014 8:42 pm
Posts: 32
zhammy wrote:
F I=1:0 Q:'$O(^AUPNPAT("D",I)) S J=I S I=$O(^AUPNPAT("D",I)) S X=$O(^AUPNPAT("D",J,0)) I X S Y=$O(^AUPNPAT("D",J,X)) I (Y)&&(X'=Y) S COUNT=COUNT+1 W "DUPLICATE FOUND. MRN '"_J_"' IS HELD BY '"_$P(^DPT(X,0),U,1)_"' AND '"_$P(^DPT(Y,0),U,1)_"'",


... What black language is this?
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Tue Oct 06, 2015 6:31 pm 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
daydreamer wrote:
zhammy wrote:
F I=1:0 Q:'$O(^AUPNPAT("D",I)) S J=I S I=$O(^AUPNPAT("D",I)) S X=$O(^AUPNPAT("D",J,0)) I X S Y=$O(^AUPNPAT("D",J,X)) I (Y)&&(X'=Y) S COUNT=COUNT+1 W "DUPLICATE FOUND. MRN '"_J_"' IS HELD BY '"_$P(^DPT(X,0),U,1)_"' AND '"_$P(^DPT(Y,0),U,1)_"'",


... What black language is this?


That is the Dark Speech of Massachusetts General Hospital Utility Multi-Programming System or MUMPS for short. It is a language that found its beginnings at the Massachusetts General Hospital and has faded in and out since then. Lately it's seen a renaissance by InterSystems, and is currently the most prevalent language and database schema for Health Information and Financial Systems (banks, Ameritrade, etc). I could go into more specifics... But typing chapters on my OnePlus isn't what I would define as a "good time." If you can smell what I'm cooking.....

The above code was handcrafted by yours truly to look for instances of duplicate MRN (Medical Record Numbers) across all patients within the database. It found 2500!! I was working with the Radiology Supervisor at a hospital and we were running into issues with PowerScribe for dictations, due to duplicate MRNs. She talked to the Medical Records Supervisor who said something to the effect of "you need to export the entire patient list and then import it into Excel and sort and blah blah blah...." When the Radiology Sup called me to ask if I saw that reply I was like "hold on.... I'm almost done..."

Export to Excel my bum!
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Tue Oct 06, 2015 10:01 pm 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
I'll stick with Perl and Java, thank you. :)

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 07, 2015 12:39 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
I'll stick with Perl and Java, thank you. :)


I remember when I was first learning this language, I was working on an elaborate set of VBS scripts that wrote to and pulled drive mapping data from unused fields in Active Directory. After about three weeks of that, I sat down to write some MUMPS code and couldn't even remember how to compile the darn thing...I was so lost, the only thing I could think of was VBScript and C (not C++, I was thinking writeln, not c.out)...

MUMPS is like Haitian Creole of programming language .
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 07, 2015 1:18 am 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
:lol: I like that a lot of the more popular languages are C-like. If you know the syntax of one, you can pick up the syntax of another pretty easily.

There are the outliers though... like FORTRAN. *shudders*

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 07, 2015 9:21 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
:lol: I like that a lot of the more popular languages are C-like. If you know the syntax of one, you can pick up the syntax of another pretty easily.

There are the outliers though... like FORTRAN. *shudders*


Yep, there is definitely a comfort in working with the C-style languages; C, PHP, NWScript ;-) and then you have the more obscure languages like Cobol, Fortran, MUMPS, LISP, and so on.

Wait a minute.... Write and Writeln were statements in PASCAL, werent they? Shoot... We need a meta-language that combines the syntax and intricacies of all languages, then I wouldn't have to try to remember how to handle whichever language is pit in front of me at that moment.....

...and call it Babel! (Microsoft will rename it to B#, of course).
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 07, 2015 3:30 pm 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
zhammy wrote:
zeppelinmage wrote:
:lol: I like that a lot of the more popular languages are C-like. If you know the syntax of one, you can pick up the syntax of another pretty easily.

There are the outliers though... like FORTRAN. *shudders*


Yep, there is definitely a comfort in working with the C-style languages; C, PHP, NWScript ;-) and then you have the more obscure languages like Cobol, Fortran, MUMPS, LISP, and so on.

Wait a minute.... Write and Writeln were statements in PASCAL, werent they? Shoot... We need a meta-language that combines the syntax and intricacies of all languages, then I wouldn't have to try to remember how to handle whichever language is pit in front of me at that moment.....

...and call it Babel! (Microsoft will rename it to B#, of course).


The compiler would be insane. :shock:

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 14, 2015 7:32 am 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
The most complicated thing I've coded recently is a Star Trek star system generator. Yes, really.

A friend of mine convinced me to help her with it... so I had to teach myself PHP in an afternoon. :shock: Luckily(?), the most I really did was make sure the math was coded properly and worked. :lol: She did all the web interfacing, etc.

Here's a piece of it, simply generating mass, density, gravity, and radius for different planetary classes:
Code:
if (Class == "D") {
   $P_MASS_KG = (mt_rand(59722,2986095))*1E16;
   $P_DENSITY = mt_rand(1500,3500);
   $P_RADIUS_M = pow((3*$P_MASS_KG)/(4*M_PI*$P_DENSITY),1/3);
} elseif (Class == "I") {
   $P_MASS_KG = (mt_rand(4479,189800))*1E22;
   $P_DENSITY = mt_rand(1000,2000);
   $P_RADIUS_M = pow((3*$P_MASS_KG)/(4*M_PI*$P_DENSITY),1/3);
} elseif (Class == "J") {
   $P_MASS_KG = (mt_rand(4479,189800))*1E22;
   $P_DENSITY = mt_rand(100,2000);
   $P_RADIUS_M = pow((3*$P_MASS_KG)/(4*M_PI*$P_DENSITY),1/3);
} elseif (Class == "S") {
   $P_MASS_KG = (mt_rand(189800,1423500))*1E22;
   $P_RADIUS_M = mt_rand(69911000,73406000);
   $P_DENSITY = $P_MASS_KG / ((4/3)*M_PI*pow($P_RADIUS_M,3));
} elseif (Class == "T") {
   $P_MASS_KG = (mt_rand(14235,151840))*1E24;
   $P_RADIUS_M = mt_rand(73406000,80398000);
   $P_DENSITY = $P_MASS_KG / ((4/3)*M_PI*pow($P_RADIUS_M,3));
} else {
   $P_MASS_KG = (mt_rand(2986,4479000))*1E19;
   $P_DENSITY = mt_rand(3500,6000);
   $P_RADIUS_M = pow((3*$P_MASS_KG)/(4*M_PI*$P_DENSITY),1/3)
}
$P_RADIUS_KM = $P_RADIUS_M / 1000;
$P_DENSITY_GCC = $P_DENSITY / 1000;

$P_MASS_EARTH = $P_MASS_KG / 5.971219E24;
$P_RADIUS_EARTH = $P_RADIUS_KM / 6371;

$GRAVITY_MS = ($P_MASS_KG / pow($P_RADIUS_M,2))*GRAV_CONS;
$GRAVITY_G = $GRAVITY_MS / 9.8;

$P_RADIUS_KM = $P_RADIUS_M / 1000;
$P_DENSITY_GCC = $P_DENSITY / 100;
$P_MASS_EARTH = $P_MASS_KG / KG_EARTH_MASS;
$P_RADIUS_EARTH = $P_RADIUS_KM / KM_EARTH_RADIUS;
$GRAVITY_G = $P_MASS_EARTH / pow($P_RADIUS_EARTH,2);
$GRAVITY_MS = $GRAVITY_G * 9.8;

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Tue Oct 20, 2015 4:33 pm 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
Very very cool! What's the application for?

It reminds me of the old TradeWars 2002 game from (way) back in the day. Ever play that one?

I had once upon a time ran a BBS, and that game, of course, was added first and foremost. When you first initialized the game, it would procedurally build a random galaxy which was essentially sectors that were linked together. So every TW2002 game was different. On top of that, I believe the players could build planets, but I can't recall 100% if that is the case.

I miss the old BBS days. Those were good times, yes'er'ee...
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Oct 21, 2015 1:41 pm 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
Ah yes BBS days. :lol: I remember wasting many, many hours on ISCABBS. :shifty:

The script above is basically for a Star Trek RP game. We call it a "sim", but it's more or less collaborative fanfiction. (Though with unique characters and etc.) When there's need for a planetary system either as a function of plot, or for a character background, we can hit a button and generate one. :D

Never did play Tradewars; I didn't get into that type of game until WAY late. Played a few MUDs and the like in the late 90s.

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Sat Oct 24, 2015 6:49 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
Ah yes BBS days. :lol: I remember wasting many, many hours on ISCABBS. :shifty:


I've got one word for ya, two phonemes:

Fido...Net...!

FidoNet was like the pony express compared to the internet, but it was awesome having access to these message groups from around the world and to able to see it move from one BBS to another, usually once per day when one BBS calls another and does a data transfer. Purely magical to my little teenage heart... :-)

zeppelinmage wrote:
The script above is basically for a Star Trek RP game. We call it a "sim", but it's more or less collaborative fanfiction. (Though with unique characters and etc.) When there's need for a planetary system either as a function of plot, or for a character background, we can hit a button and generate one. :D


Oh yes, I believe that you've mentioned this before. Very cool. Always nice to be able to whip a planet outta your pocket on demand! :-O

zeppelinmage wrote:
Never did play Tradewars; I didn't get into that type of game until WAY late. Played a few MUDs and the like in the late 90s.


Never really got into the MUDS personally. That's quite remarkable when I think of that, given my extensive history and or inventory of first and second edition AD&D crap. I've still managed to hold onto all of that, even though I lost my entire hardcover book collection to a leaky shed and a tote full of mold. Death Gate, Shanara, Covenant, etc. No Tolkien....again, surprising. But I've atoned for that tragedy already...

I loved me some Death Gate! :-)
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Sun Oct 25, 2015 4:36 am 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
Dude, I have boxes of AD&D stuff. 1st Ed stuff from my father-in-law, too. He played with his Army buddies in the late 70s. :D Quite a bit Forgotten Realms, Dragon Mountain, Underdark box set, and literally a tote full of modules.

MUDs were different, from what I remember... I never really saw a connection to D&D, except just as another way to RP/Adventure. Though I must confess, I didn't do a lot in the way of MUDing anyway... at the time, Talkers were more my speed. :lol:

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Tue Nov 17, 2015 7:33 pm 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
Phew! What a day....what a day.

Spent the morning teaching the self some basic winsock programming with the goal being to write a TCP/IP interface into a MUMPS box so that I can create Windows applications that can access that data. In that endeavor, I was successful.

The rest of the day was spent WTF'ing over what happens to those packets once they make it into the database. I've gone back and forth over what to do once I can get data into and out of the system. At first I figured I would use the existing XWB framework (RPC and M2M Brokers) developed by the VA in the 90's, since it works and has a lot of features. However, those were developed to target Delphi API's, so I may spend more time recreating the wheel there so that I can utilize it in C++. So the other option is create my own broker, from the ground up. It'll be the YAM Broker (Yet Another MUMPS Broker), utilizing YAMB for a namespace. The problem there is that I may spend a lot of time recreating the wheel in regards to packet and data manipulation. So there is the dilemma.

A few more steps before I can start work on my PACS....

And I really don't want to use the BMX brokers. Writing SQL calls to access a MUMPS DB is beyond ridiculous and shows how little the application developers that I am working with actually know. "Eww...I don't want to learn MUMPS...I was to use SQL and VB to develop enterprise level healthcare applications.... " Flipping pansies, can't even statically link a library to an executable. Ugh..I hate knowing more than the clowns that get paid 4x my wage yet couldn't code a "Hello World" if it wasn't drag and drop.....

Beer. Must.....find....beer....



.....and pizza!
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Tue Nov 17, 2015 11:01 pm 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
10 Print "Hello World!"
20 Goto 10

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Wed Nov 18, 2015 9:19 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
f i=99:-1:1 w !,i," bottle",$S(i=1:"",1:"s"), " of beer on the wall, ",i," bottle",$S(i=1:"",1:"s")," of beer.",!,"Take one down, pass it around, ", i-1," bottle",$S(i=2:"",1:"s")," of beer on the wall.",!


That's my "status" message on Lync (@ work)

:-)
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Thu Nov 19, 2015 12:35 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
Made awesome progress today! I came up with another idea this morning for interfacing into this system. Create a client and a server application. The server executable of course would reside on a MUMPS server. Client and server obviously communicate, and then there is a command in MUMPS that can be run to execute and external command on the host, including the ability to pass arguments and return values to the code. Simply loop this and check for incoming messages every x number of seconds. Take the message as input into the MUMPS code, and pass the return values back. I've written this code to do a byte-wise compare of two files....

Then I got to work, and tried one of the existing methods and made some mad progress. I managed to successfully connect, pass the system login message, and authenticate with my credentials into the server. There I stopped because the encryption isn't adding up, so until I can decode that piece, there I stay.

However, now that I really hash out my first idea, that really seems to be a lot cleaner and may be much easier to implement. Using TCP in and out of this system is ugly at best, and requires a lot of mapping of decimal to octal and weird format of characters in specific sequences. There also seems to be a lot of arbitrary numbers that don't seem to make much sense.

I almost forgot, in order to make part deux happen today, I ended up writing a quick application to basically listen for incoming connections and display all data. Pretty cool. I'll need that ability when I really get elbows deep into HL7 programming, which isn't far off. I'll be writing an interface real soon and saving $30,000 which is what they would have paid a contractor to do it.

Actual development is awesome. Dealing with people that say "it doesn't work" isn't. ;-)
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Thu Nov 19, 2015 3:10 am 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
O.o *boggles*

I could recognize some of that. I'm just a lowly hobbyist over here. :lol:

_________________
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Thu Nov 19, 2015 8:20 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
10 Print "Hello World!"
20 Goto 10


ZEPP;; WOC/ZAM. ;;19 NOV 2015
;;ENTRY POINT FOR ZEPP'S BASIC LOOP
10
;
W "HELLO WORLD",!

20
;
D 10
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Fri Nov 20, 2015 7:59 am 
User avatar
Offline

Joined: Tue Jun 16, 2015 6:44 am
Posts: 106
zeppelinmage wrote:
O.o *boggles*

I could recognize some of that. I'm just a lowly hobbyist over here. :lol:


Nonsense. "Professionals" are just paid hobbyists. The irony in your quote is, well, ironic. Most of what deal with now, MUMPS, DICOM, , HL7, and 90% of the code in the whole darn system was created by "non-computer" people. It was all developed and conceived by doctors originally. And the funny thing is that, especially with DICOM, it mimics most fundamental of communication handshakes and protocols. I believe the former was created without prior knowledge of the latter. And when I'm talking about DICOM, I mean the transport protocol not the file format (ambiguity can be a pain)
Top
  Profile  
Reply with quote  
 Post subject: Re: *vents*
PostPosted: Fri Nov 20, 2015 4:50 pm 
User avatar
Offline

Joined: Wed May 07, 2014 9:59 pm
Posts: 589
Location: New Hampshire
:lol: Well, I know my skill level is nowhere near yours; I'd probably take one look at what you're doing and...

Image

I mean, I've done file handlers, I've manipulated data... but once you get into specific protocols/resources, then it's beyond me. :)

_________________
Top
  Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 27 posts ]  Go to page 1, 2  Next

All times are UTC - 5 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 6 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to: