MAGDHRC0 ;WOIFO/PMK - Read HL7 and generate DICOM ; 28 Mar 2011 10:30 AM
Source file <MAGDHRC0.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDATA(FLD,REP,CMP,SUB) | ; get an element from HL7PARSE
|
|
DEQUOTE(X) | ; convert HL7 double quote data (that is, "") to empty string
|
|
GETEXIST(FLD,REP,CMP,SUB) | ; does the element (segment/field/rep/comp) exist
|
|
GETSEG(SEGMENT) | ; check if the named segment exists
|
|
GETCOUNT() | ; get highest index number from HL7PARSE
|
|
GETNAME(J,K) | ; get a person's name - return in DICOM format
; also used for provider's name - first piece is code - others shifted |
Name | Line Occurrences |
---|---|
$$DEQUOTE | GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CMP | GETDATA~, GETDATA+3, GETDATA+4, GETDATA+5, GETEXIST~, GETEXIST+3, GETEXIST+4, GETEXIST+5 |
FLD | GETDATA~, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETEXIST~, GETEXIST+1, GETEXIST+2, GETEXIST+3 , GETEXIST+4, GETEXIST+5 |
>> HL7PARSE | GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETEXIST+1, GETEXIST+2, GETEXIST+3, GETEXIST+4, GETEXIST+5 , GETSEG+1, GETCOUNT+1 |
>> HL7SEGNO | GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETEXIST+1, GETEXIST+2, GETEXIST+3, GETEXIST+4, GETEXIST+5 |
I | GETNAME+2~, GETNAME+3*, GETNAME+5, GETNAME+6 |
J | GETNAME~, GETNAME+5 |
K | GETNAME~, GETNAME+3*, GETNAME+5 |
LAST | GETNAME+2~, GETNAME+3*, GETNAME+5*, GETNAME+8 |
NAME | GETNAME+2~, GETNAME+3*, GETNAME+6*, GETNAME+8 |
REP | GETDATA~, GETDATA+2, GETDATA+3, GETDATA+4, GETDATA+5, GETEXIST~, GETEXIST+2, GETEXIST+3, GETEXIST+4, GETEXIST+5 |
SEGMENT | GETSEG~, GETSEG+1 |
SUB | GETDATA~, GETDATA+4, GETDATA+5, GETEXIST~, GETEXIST+4, GETEXIST+5 |
X | DEQUOTE~, DEQUOTE+1, GETNAME+2~, GETNAME+4~, GETNAME+5*, GETNAME+6 |