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 ...
Search found 464 matches
- Tue May 02, 2017 10:00 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
- Tue May 02, 2017 9:53 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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 ...
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 ...
- Tue May 02, 2017 9:42 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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: 13754
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 ...
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 ...
- Fri Apr 28, 2017 10:49 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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 ...
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 ...
- Tue Sep 20, 2011 9:28 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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 ...
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 ...
- Thu Sep 15, 2011 8:23 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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 " (from memory) and will contain ...
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 " (from memory) and will contain ...
- Thu Sep 15, 2011 12:37 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Interfacing with Dicom sistems
- Replies: 41
- Views: 13754
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 ...
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 ...
- Fri Mar 18, 2011 3:07 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
Re: A Client-Server Data Base Server in Harbour
Hi again
And finally (for today) my TDateTime class
// TDateTime.prg#include "hbclass.ch"CLASS TDateTimeDATA cDateTimeDATA dDateDATA nTimeDATA nHoursDATA nMinsDATA nSecsDATA nHunsDATA cDateDATA cHoursDATA cMinsDATA cSecsDATA cHunsMETHOD New() CONSTRUCTORMETHOD Now()METHOD Format2 ...
And finally (for today) my TDateTime class
// TDateTime.prg#include "hbclass.ch"CLASS TDateTimeDATA cDateTimeDATA dDateDATA nTimeDATA nHoursDATA nMinsDATA nSecsDATA nHunsDATA cDateDATA cHoursDATA cMinsDATA cSecsDATA cHunsMETHOD New() CONSTRUCTORMETHOD Now()METHOD Format2 ...
- Fri Mar 18, 2011 2:59 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
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 subsequently altered DATA int ...
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 subsequently altered DATA int ...
- Fri Mar 18, 2011 2:54 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
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 TServerQueryDATA arr_StatusDATA arr_ResponseDATA arr_RequestDATA int_QueryIDMETHOD New()METHOD Request( pClient )// METHOD LocalRequest ...
Herewith class TServerQuery which handles the receipt of the query request on the server
// TServerQuery.prg#include "hbclass.ch"CLASS TServerQueryDATA arr_StatusDATA arr_ResponseDATA arr_RequestDATA int_QueryIDMETHOD New()METHOD Request( pClient )// METHOD LocalRequest ...
- Fri Mar 18, 2011 2:50 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
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 201CLASS TSingleData FROM TDataMETHOD New() CONSTRUCTORMETHOD SetUp()METHOD ...
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 201CLASS TSingleData FROM TDataMETHOD New() CONSTRUCTORMETHOD SetUp()METHOD ...
- Fri Mar 18, 2011 2:48 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
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_JoinSeekValue METHOD New() ...
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_JoinSeekValue METHOD New() ...
- Fri Mar 18, 2011 2:46 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: A Client-Server Data Base Server in Harbour
- Replies: 11
- Views: 2731
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 ...
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: 2731
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 ...
// DBQuery.ch#xcommand ENDXQUERYFORMAT => ; :SetUp() ;; END#xcommand XQUERYFORMAT <name> AREA <area> KEY BUCKET <bucket> ID <id> => ; arr_Select\[<id>] := TSingleData():New( <area ...