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 |