Search found 464 matches
- Tue May 02, 2017 10:00 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Jeff Re DICOM Parsing a DICOM file is not that hard but it is somewhat more involved than parsing HL7 files in that: there are options as to how it is encoded it supports binary data you have to read the lengths of data elements to determine where the next one starts can switch between MSB and LS...
- Tue May 02, 2017 9:53 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Jeff I thought the following might be useful information just in case you run into a source of HL7 messages where the preferred deliniators were not used In HL7 messaging, the separator characters are also known as the message delimiters or special encoding characters. The following are the HL7 r...
- Tue May 02, 2017 9:42 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Jeff
I forgot to mention that at one time you had to pay to get the HL7 specification but now it can be downloaded free of charge.
BTW the DICOM specification has always been available for download free of charge.
Regards
Doug
I forgot to mention that at one time you had to pay to get the HL7 specification but now it can be downloaded free of charge.
BTW the DICOM specification has always been available for download free of charge.
Regards
Doug
- Tue May 02, 2017 9:40 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Jeff In production I am creating HL7 messages not reading them and extracting data. However as part of developing my code I wanted to test it before inflicting my messages on anyone so I wrote some code to read test messages that my software wrote and extract the original data out of them. I'll t...
- Fri Apr 28, 2017 10:49 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Jeff Re HL7 I am sending HL7 messages in production use. Currently only 2 message types - from memory (will check when back in at work) REF and LAB2. In practice I found that local (Australian) implementations whilst supposedly following the standards had their own variations. Happy to share code...
- Tue Sep 20, 2011 9:28 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Ivan The HL7 message that I have to generate is a REF message (a referral). You probably need a different message although some of the segments are probably common. I don't have the HL7 specification (you have to purchase it and it isn't cheap) but I do have sufficient information to generate an ...
- Thu Sep 15, 2011 8:23 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Ivan What is the format of file you need to generate - HL7 or DICOM? An HL7 file will begin with "MSH" (for Message Header) and if it is using the standard separator will contain lots of "|" characters and should be all text. A DICOM file will begin with "DICOM " (fr...
- Thu Sep 15, 2011 12:37 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 12504
Re: Interfacing with Dicom sistems
Hi Ivan I haven't touched my DICOM code for some time now as other projects took priority. When I last used it I had it correctly requesting a session, processing the reply, requesting a session close and getting the acknowledgment. I wasn't getting a response to a request for a list of scans so the...
- Fri Mar 18, 2011 3:07 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi again And finally (for today) my TDateTime class // TDateTime.prg #include "hbclass.ch" CLASS TDateTime DATA cDateTime DATA dDate DATA nTime DATA nHours DATA nMins DATA nSecs DATA nHuns DATA cDate DATA cHours DATA cMins DATA cSecs DATA cHuns METHOD New() CONSTRUCTOR METHOD Now() METHOD ...
- Fri Mar 18, 2011 2:59 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi again Herewith class TDBQuery which holds together the details of the actual database query // DBQuery.prg #include "hbclass.ch" #include "rapids.ch" CLASS TDBQuery // the following properties are normally set at the time of object (query) creation // and are not subsequen...
- Fri Mar 18, 2011 2:54 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi all Herewith class TServerQuery which handles the receipt of the query request on the server // TServerQuery.prg #include "hbclass.ch" CLASS TServerQuery DATA arr_Status DATA arr_Response DATA arr_Request DATA int_QueryID METHOD New() METHOD Request( pClient ) // METHOD LocalRequest( aI...
- Fri Mar 18, 2011 2:50 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi all And now TSingleData // TSingleData.prg #include "hbclass.ch" #include "DBErrors.ch" #include "rapids.ch" #define default_LOCK_TRIES 6 #define default_LOCK_RETRY_TIME 0.5 #define wa_KEY_ALLOCATOR 201 CLASS TSingleData FROM TData METHOD New() CONSTRU...
- Fri Mar 18, 2011 2:48 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi all Herewith the class TListData // TListData.prg #include "hbclass.ch" #include "rapids.ch" CLASS TListData FROM TData DATA int_JoinType DATA int_SubQuery DATA int_JoinWhere DATA obj_MasterQuery DATA arr_Master DATA arr_Sub DATA int_JoinToQuery DATA var_JoinSe...
- Fri Mar 18, 2011 2:46 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
Hi all Now I can start with the code that sets up the individual components of the "compiled" queries. Class TData is the base class for class TSingleData (for a read or a write of a single record) and class TListData (for a read of a list of zero, 1 or more records). // TData.prg #include...
- Tue Mar 15, 2011 12:06 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 3197
Re: A Client-Server Data Base Server in Harbour
To understand how DBEmphasis.prg works you need to know DBQuery.ch which is as follows: // DBQuery.ch #xcommand ENDXQUERYFORMAT => ; :SetUp() ;; END #xcommand XQUERYFORMAT <name> AREA <area> KEY BUCKET <bucket> ID <id> => ; arr_Select\[<id>] := TSingleData():New( <area>, <bucket>, <"name&...