Search found 464 matches

by xProgrammer
Tue May 02, 2017 10:00 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Tue May 02, 2017 9:53 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Tue May 02, 2017 9:42 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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
by xProgrammer
Tue May 02, 2017 9:40 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Fri Apr 28, 2017 10:49 am
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Tue Sep 20, 2011 9:28 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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 ...
by xProgrammer
Thu Sep 15, 2011 8:23 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Thu Sep 15, 2011 12:37 am
Forum: FiveWin for Harbour/xHarbour
Topic: Interfacing with Dicom sistems
Replies: 41
Views: 11036

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...
by xProgrammer
Fri Mar 18, 2011 3:07 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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 ...
by xProgrammer
Fri Mar 18, 2011 2:59 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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...
by xProgrammer
Fri Mar 18, 2011 2:54 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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...
by xProgrammer
Fri Mar 18, 2011 2:50 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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...
by xProgrammer
Fri Mar 18, 2011 2:48 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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...
by xProgrammer
Fri Mar 18, 2011 2:46 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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...
by xProgrammer
Tue Mar 15, 2011 12:06 am
Forum: FiveWin for Harbour/xHarbour
Topic: A Client-Server Data Base Server in Harbour
Replies: 11
Views: 2637

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&...