MDCADT ;HINES OIFO/DP/BJ/TJ - HL7 Build ADT Axx Messages;10 Aug 2007
Source file <MDCADT.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 |
|---|---|---|
| VALID | ;HL7 MESSAGE BUILDER
; Creates HL7 V2.4 "Axx Type" message ; stolen from GMVVDEF1 ; segments returned will fall into 1 of four categories ; Case 1 = simple unsubscripted variable e.g. SEG="IN1^Blue Cross.....^^" ; Case 2 = single segment, 2 or more nodes e.g. SEG="PD1^Smith,John...^^" ; SEG(1)="3505 94ST^....^^" ; Case 3 = Multiple segments, 1 node each e.g. SEG(1,0)="NK1^Smith,Mary^2...^^" ; SEG(2,0)="NK1^Smith,Joey^3...^^" ; Case 4 = Multiple segments, 1 or more nodes e.g. SEG(1,0)="ZCL^ data ...^^" ; SEG(1,0,1)="^ more data ...^^" ; SEG(1,0,2)="^ end of data ...^^" ; SEG(2,0)="ZCL^ all of segment ^^" ; SEG(3,0)="ZCL^ another segment ^^" ; SEG(3,0,1)=" etc., etc. ^^" ; I $D(SEG)=1 Case 1 ; I $D(SEG)=11 Case 2 ; I $D(SEG)=10 Case 3 or 4 |
|
| BLDMSG(KEY,VFLAG,OUT,MSHP,MDCEVN) | ;
|
|
| EVN | ; EVN - Event Type with EVN.7.1 - required
|
|
| PID | ; PID - Patient Identification - required
|
|
| PV1 | ; PV1 - Patient Visit - required or empty
|
|
| SAVE | ;
|
|
| ERR(MDCERR) | ;
; Input: MDCERR - Error message. |
|
| MAILERR | ; mail error notification to g.developers
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | BLDMSG+35 |
| ^MDC(704.005 - [#704.005] | BLDMSG+24 |
| ^TMP("HLS" | BLDMSG+19!, SAVE+14!* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | MAILERR+1~, MAILERR+3 |
| >> ARRAY | BLDMSG+21*, SAVE+3, SAVE+10, SAVE+15* |
| >> DFN | BLDMSG+34*, BLDMSG+35, BLDMSG+36, PID+1, PID+3, PV1+3 |
| EV | BLDMSG+15~ |
| >> HL("SAN" | MAILERR+4 |
| HL7DATE | MAILERR+1~, MAILERR+3* |
| I | SAVE+5~, SAVE+6*, SAVE+7, SAVE+8*, SAVE+10 |
| IENS | BLDMSG+17, ERR+2~, ERR+3* |
| IENSSAVE | BLDMSG+14~, BLDMSG+17*, ERR+3 |
| KEY | BLDMSG~, BLDMSG+18, BLDMSG+24, BLDMSG+29, MAILERR+8 |
| MDCDATA | BLDMSG+24*, BLDMSG+28, PV1+1, PV1+9! |
| MDCDATA(0 | BLDMSG+34 |
| MDCERAY | BLDMSG+15~, BLDMSG+30, BLDMSG+37 |
| MDCERAY(1 | BLDMSG+29*, BLDMSG+36* |
| MDCERR | BLDMSG+15~, BLDMSG+30*, BLDMSG+31, BLDMSG+37*, BLDMSG+38, EVN+1, EVN+4*, EVN+5, PID+1, PID+4* , PID+5, PV1+1, PV1+4*, PV1+5, ERR~, MAILERR+10 |
| MDCEVN | BLDMSG~, EVN+1, MAILERR+8 |
| MDCIEN | BLDMSG+15~, BLDMSG+18*, EVN+1, EVN+3, PV1+3, ERR+3 |
| MDCMAIL | BLDMSG+14~ |
| MDCMAIL(1 | MAILERR+10* |
| MDCPARM | EVN+4, PID+4, PV1+4, ERR+6! |
| MDCPARM( | PV1+3* |
| MDCPARM(1 | EVN+3*, PID+3*, PV1+3* |
| MDCPARM(2 | EVN+3*, PID+3* |
| MDCPARM(3 | EVN+3*, PID+3*, PV1+3* |
| MDCS | BLDMSG+15~, BLDMSG+18*, SAVE+2*, SAVE+9* |
| MDCSEG | BLDMSG+15~, EVN+1, EVN+2, PID+1, PID+2, PV1+1, PV1+2, SAVE+1, SAVE+3, SAVE+4 , SAVE+11! |
| MDCSEG( | SAVE+8, SAVE+10 |
| MDCSITE | PV1+9! |
| MSHP | BLDMSG~ |
| OUT | BLDMSG~, BLDMSG+19!, ERR+6! |
| OUT("HLS" | SAVE+14! |
| PARAM | PV1+9! |
| RECEIVER | MAILERR+1~, MAILERR+4*, MAILERR+5*, MAILERR+7 |
| TARGET | BLDMSG+14~, BLDMSG+21*, BLDMSG+28, BLDMSG+35, EVN+1, EVN+2, PID+1, PID+2, PV1+1, PV1+2 , PV1+10, SAVE+13, SAVE+15* |
| U | BLDMSG+34, SAVE+13, SAVE+15, MAILERR+5 |
| VFLAG | BLDMSG~ |
| XMDUZ | MAILERR+1~, MAILERR+6* |
| XMSUB | MAILERR+1~, MAILERR+8* |
| XMTEXT | MAILERR+1~, MAILERR+9* |
| XMY | MAILERR+1~ |
| XMY( | MAILERR+7* |
| ZTSTOP | ERR+2~, ERR+5* |
