IVMPRECZ ;ALB/SEK,RTK,TDM - ROUTINE TO PROCESS V1.5 ORF-Z06 INCOMING HL7 MESSAGES ; 8/15/08 10:28am
Source file <IVMPRECZ.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 |
|---|---|---|
| GET | ; get HL7 segment from ^HL
|
|
| ACK | ; - prepare acknowledgment (ACK) message
|
|
| NXTSEG(MSGIEN,CURLINE,SEG) | ;
|
|
| ERRBULL | ; build mail message for transmission to IVM mail group notifying site
; of upload error. |
|
| ORF | ;entry point for Means Test Signature Z06 msgs.
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COMP | ORF+1~ |
| CURLINE | NXTSEG~, NXTSEG+11*, NXTSEG+12 |
| DATA | ORF+50~, ORF+52 |
| DATA( | ORF+51* |
| DFN | ACK+3, ERRBULL+2, ORF+1~, ORF+17*, ORF+18, ORF+32 |
| DGLY | ORF+28*, ORF+56! |
| DGMTP | ORF+35*, ORF+56! |
| >> ERRMSG | ORF+18 |
| EVENT | ORF+1~, ORF+5*, ORF+6 |
| FMDATE | ORF+56! |
| >> HLDA | GET+1, GET+8, GET+9, GET+10, ORF+3, ORF+9 |
| >> HLECH | ORF+5, ORF+8* |
| HLERR | ACK+3, ACK+4, ORF+10!, ORF+14*, ORF+18*, ORF+23*, ORF+40*, ORF+42*, ORF+47*, ORF+48* , ORF+53 |
| >> HLEVN | ACK+4*, ORF+2* |
| >> HLFS | GET+6, ACK+3, NXTSEG+18, NXTSEG+20, ORF+7*, ORF+11, ORF+27, ORF+34, ORF+51 |
| >> HLMID | ACK+3, ORF+11* |
| >> HLSDATA(1 | ACK+2 |
| >> HLSDT | ACK+2*, ACK+3 |
| >> I | GET+7*, NXTSEG+18*, NXTSEG+20* |
| ICN | ORF+1~, ORF+17*, ORF+18 |
| >> IVMCT | ACK+1*, ACK+2*, ACK+3 |
| >> IVMDA | GET+1*, GET+8, GET+9*, GET+10, ORF+9*, ORF+21 |
| IVMDAP | ORF+21*, ORF+56! |
| IVMDAS | ORF+56! |
| IVMDAZ | ORF+56! |
| IVMDGLY | ORF+56! |
| >> IVMERROR | ACK+4* |
| IVMFLG7 | ORF+56! |
| IVMFLGC | ORF+12*, ORF+56! |
| IVMMT31 | ORF+35*, ORF+36, ORF+42, ORF+46, ORF+48, ORF+56! |
| IVMMTDT | ORF+27*, ORF+28, ORF+31, ORF+36, ORF+37, ORF+42, ORF+56! |
| IVMMTIEN | ORF+31*, ORF+32*, ORF+34, ORF+56! |
| >> IVMPAT | ERRBULL+2*, ERRBULL+3, ERRBULL+7, ERRBULL+8 |
| IVMPID | GET+5!, GET+12 |
| IVMPID(3 | ORF+16 |
| IVMSEG | GET+1*, GET+2, GET+6, GET+10*, GET+11, ORF+9*, ORF+11, ORF+27, ORF+34, ORF+51 , ORF+56! |
| IVMSEG1 | GET+2*, GET+3, ORF+13, ORF+22, ORF+56! |
| IVMSTAT | ORF+46*, ORF+47, ORF+56! |
| IVMTEXT | ORF+56! |
| IVMTEXT(1 | ERRBULL+4* |
| IVMTEXT(2 | ERRBULL+5* |
| IVMTEXT(3 | ERRBULL+6* |
| IVMTEXT(4 | ERRBULL+7* |
| IVMTEXT(5 | ERRBULL+8* |
| IVMTEXT(6 | ERRBULL+9*, ORF+38* |
| MSGID | ORF+1~ |
| MSGIEN | NXTSEG~, NXTSEG+12 |
| MTDATE | ORF+31*, ORF+32, ORF+56! |
| >> MTFND | ORF+31*, ORF+32, ORF+34* |
| NOPID | GET+4~, GET+6*, GET+7, GET+8* |
| PID3ARY | ORF+1~, ORF+16, ORF+19! |
| PID3ARY("NI" | ORF+17 |
| PID3ARY("PI" | ORF+17 |
| PIDCNTR | GET+4~, GET+6*, GET+11* |
| PIDSTR | GET+4~, GET+12 |
| PIDSTR( | GET+6*, GET+11* |
| SEG | NXTSEG~, ORF+1~, ORF+3 |
| SEG( | NXTSEG+18*, NXTSEG+20* |
| SEG("TYPE" | NXTSEG+13*, NXTSEG+16, ORF+4 |
| SEG(1 | NXTSEG+17* |
| SEG(9 | ORF+5 |
| >> SEGMENT | NXTSEG+12*, NXTSEG+13, NXTSEG+17, NXTSEG+18, NXTSEG+20 |
| TMPARY | ORF+1~, ORF+16, ORF+19! |
| TMPARY(3 | ORF+16* |
| UPMTS | ORF+30~, ORF+31*, ORF+34*, ORF+35, ORF+52 |
| XMSUB | ERRBULL+3*, ORF+56! |
| >> Y | ORF+37*, ORF+38, ORF+42* |
