MDCUTL ;HINES OIFO/DP/BJ/TJ - HL7 Message Utilities;07 June 2007
Source file <MDCUTL.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 |
|---|---|---|
| MOREDLMS | ;; maintain HL7 delimiters based on prev. HL7 INIT for the protocol
|
|
| EMPTY(SEG,ERR,HLQFLAG,STFIELD,ENDFIELD) | ;
|
|
| EMPTYERR(NAME) | ;Error message module
|
|
| ESC(FIELD) | ;
|
|
| REP(STR,REM,REP) | ; remove all occurrences of REM from STR and replace with REP
|
|
| REMQQ(STR) | ; removes two double quotes surrounded by HL7 delimiters from STR
|
|
| MAKESEG(RAWARAY,SEGARAY,SEGNUM,SEGID) | ;Make segment using obtained fields
|
|
| RETRANS | ; Retransmit ADT from file 704.005
; Get the entry from file 704.005 |
| FileNo | Call Tags |
|---|---|
| ^MDC(704.005 - [#704.005] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$REMQQ | REMQQ+10, REMQQ+12 |
| $$REP | ESC+13, REP+3 |
| EMPTYERR | EMPTY+39, EMPTY+41, EMPTY+43 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AFTER | REMQQ+2~, REMQQ+8*, REMQQ+10 |
| BEFORE | REMQQ+2~, REMQQ+7*, REMQQ+10 |
| COMP | EMPTY+37~, EMPTY+44*, EMPTY+45, EMPTY+46, EMPTY+47 |
| DEL | ESC+2~ |
| DEL( | ESC+12, ESC+13 |
| DEL(1 | ESC+5* |
| DEL(2 | ESC+6* |
| DEL(3 | ESC+7* |
| DEL(4 | ESC+8* |
| DEL(5 | ESC+9* |
| DELIMS | REMQQ+2~, REMQQ+3*, REMQQ+10 |
| DIC | RETRANS+2~, RETRANS+3* |
| DIC(0 | RETRANS+3* |
| DYNAMIC | RETRANS+2~ |
| ENDFIELD | EMPTY~, EMPTY+42*, EMPTY+43, EMPTY+44 |
| ERR | EMPTY~, EMPTYERR+12* |
| EVNTDRVR | RETRANS+2~ |
| FIELD | ESC~, ESC+12, ESC+13*, ESC+15 |
| >> HL("ECH" | MOREDLMS+3, MOREDLMS+4, MOREDLMS+5, ESC+4, ESC+6, ESC+7, ESC+9, REMQQ+3 |
| >> HL("FS" | MOREDLMS+2, ESC+8, REMQQ+3 |
| >> HL("Q" | MOREDLMS+5 |
| >> HL7RC | MOREDLMS+5*, EMPTY+46, EMPTY+47 |
| >> HLCM | MOREDLMS+3*, MOREDLMS+5 |
| >> HLECH | MOREDLMS+5* |
| HLES | MOREDLMS+4*, MOREDLMS+5, ESC+2~, ESC+4*, ESC+5, ESC+13 |
| >> HLFS | MOREDLMS+2*, MOREDLMS+5, EMPTY+41, EMPTY+42, EMPTY+43, EMPTY+44, MAKESEG+52 |
| >> HLMAXLEN | MOREDLMS+1*, MAKESEG+38 |
| >> HLQ | MOREDLMS+5*, EMPTY+46, REMQQ+5 |
| HLQFLAG | EMPTY~, EMPTY+38*, EMPTY+39, EMPTY+46, EMPTY+47 |
| >> HLRP | MOREDLMS+3*, MOREDLMS+5 |
| >> HLSC | MOREDLMS+4*, MOREDLMS+5 |
| IDEL | ESC+2~, ESC+11*, ESC+12, ESC+13 |
| LASTSEQ | MAKESEG+29~, MAKESEG+41*, MAKESEG+43 |
| MDCFDA | RETRANS+8! |
| MDCFDA( | RETRANS+11*, RETRANS+12* |
| MDCPARM | EMPTYERR+2~, EMPTYERR+12 |
| MDCPARM(1 | EMPTYERR+8* |
| >> MDCPEVNT | RETRANS+4*, RETRANS+6, RETRANS+11 |
| >> MDCPMSG | RETRANS+5* |
| >> MDCPPAIR | RETRANS+7* |
| >> MDIENS | RETRANS+3*, RETRANS+4, RETRANS+5, RETRANS+7, RETRANS+11, RETRANS+12 |
| NAME | EMPTYERR~, EMPTYERR+8 |
| POS | REMQQ+2~, REMQQ+5*, REMQQ+6, REMQQ+7, REMQQ+8, REMQQ+10, REMQQ+12 |
| PTSS | MAKESEG+29~, MAKESEG+31*, MAKESEG+33*, MAKESEG+49 |
| RAWARAY | MAKESEG~ |
| RAWARAY( | MAKESEG+45, MAKESEG+52 |
| RAWARAY("" | MAKESEG+41 |
| REM | REP~, REP+2, REP+3 |
| REP | ESC+2~, REP~, REP+3 |
| REP( | ESC+13 |
| REP(1 | ESC+5* |
| REP(2 | ESC+6* |
| REP(3 | ESC+7* |
| REP(4 | ESC+8* |
| REP(5 | ESC+9* |
| REQIEN | RETRANS+2~ |
| RETRN | RETRANS+2~, RETRANS+11, RETRANS+12 |
| SEG | EMPTY~, EMPTY+36, EMPTY+41, EMPTY+42, EMPTY+43, EMPTY+44 |
| SEGARAY | MAKESEG~ |
| SEGID | MAKESEG~, MAKESEG+36 |
| SEGNUM | MAKESEG~, MAKESEG+33 |
| SEQ | MAKESEG+29~, MAKESEG+43*, MAKESEG+45, MAKESEG+48, MAKESEG+51, MAKESEG+52 |
| SMAXL | MAKESEG+29~, MAKESEG+38*, MAKESEG+45 |
| SPILL | MAKESEG+29~, MAKESEG+40*, MAKESEG+47* |
| SPILLON | MAKESEG+29~, MAKESEG+40*, MAKESEG+48*, MAKESEG+51 |
| SPOT | MAKESEG+29~, MAKESEG+51*, MAKESEG+52 |
| SPTR | MAKESEG+29~, MAKESEG+31*, MAKESEG+33*, MAKESEG+35, MAKESEG+36, MAKESEG+45, MAKESEG+49*, MAKESEG+52* |
| STFIELD | EMPTY~, EMPTY+40*, EMPTY+41, EMPTY+44 |
| STR | REP~, REP+2, REP+3, REMQQ~, REMQQ+5, REMQQ+6, REMQQ+7, REMQQ+8, REMQQ+10, REMQQ+12 |
| STYPE | RETRANS+2~, RETRANS+6*, RETRANS+7 |
| >> X | RETRANS+9*, RETRANS+10 |
| >> Y | RETRANS+3 |
