DGENUPL1 ;ALB/CJM,ISA,KWP,CKN,LBD,LMD,TDM,TGH,DJS,HM,JAM,KUM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;30 Oct 2017 7:32PM
Source file <DGENUPL1.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 |
|---|---|---|
| PARSE(MSGIEN,MSGID,CURLINE,ERRCOUNT,DGPAT,DGELG,DGENR,DGCDIS,DGOEIF,DGSEC,DGNTR,DGMST,DGNMSE,DGHBP,DGOTH,DGZHF) | ;
|
|
| CONVERT(VAL,DATATYPE,ERROR) | ;
|
|
| MAP(VALUE) | ;
|
|
| ACCEPT(MSGID) | ;
|
|
| MVERRORS | ;
|
|
| CHKNXT(DGNVAL,DGNSEG) | ; Check the SEG in the next segment manually
; DGNVAL = CURLINE or CURLINE+1 ; DGNSEG = SEG (3 character SEG) ; Returns 1 if there is a match or 0 if there is no match |
| Name | Field # of Occurrence |
|---|---|
| $$HL7TODSC^DGENA5 | CONVERT+36 |
| $$HL7TORSN^DGENA5 | CONVERT+33 |
| $$HLTOLIMB^DGENA5 | CONVERT+31 |
| ADDERROR^DGENUPL | PARSE+46, PARSE+107, PARSE+125 |
| NXTSEG^DGENUPL | PARSE+40, PARSE+53, PARSE+67, PARSE+72, PARSE+76, PARSE+83, PARSE+87, PARSE+95, PARSE+99, PARSE+103 , PARSE+114, PARSE+123, PARSE+146, PARSE+150, PARSE+158 |
| OBX^DGENUPL2 | PARSE+159 |
| ZCD^DGENUPL2 | PARSE+116 |
| ZEL^DGENUPL2 | PARSE+44, PARSE+55 |
| ZMH^DGENUPL2 | PARSE+147 |
| ZRD^DGENUPL2 | PARSE+152 |
| ZSP^DGENUPL2 | PARSE+124 |
| ZCE^DGENUPLB | PARSE+86 |
| ZE2^DGENUPLB | PARSE+59 |
| ZHF^DGENUPLB | PARSE+68 |
| ZHP^DGENUPLB | PARSE+98 |
| ZTE^DGENUPLB | PARSE+75 |
| EN^DGNOZMH | PARSE+141 |
| $$GET1^DIQ | PARSE+61 |
| $$FMDATE^HLFNC | CONVERT+42, CONVERT+46 |
| INIT^HLFNC2 | ACCEPT+10 |
| MSH^HLFNC2 | ACCEPT+14 |
| CREATE^HLTF | ACCEPT+11 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(27.18 - [#27.18] | PARSE+61, CONVERT+78 |
| ^DG(408.32 - [#408.32] | CONVERT+38 |
| ^DGHBP(25.11 - [#25.11] | CONVERT+83 |
| ^DIC(21 - [#21] | CONVERT+68 |
| ^DIC(35 - [#35] | CONVERT+73 |
| ^DIC(4 - [#4] | CONVERT+62, CONVERT+63 |
| ^DIC(8 - [#8] | MAP+11, MAP+12 |
| ^DIC(8.1 - [#8.1] | MAP+25 |
| ^TMP("HLS" | ACCEPT+15*, ACCEPT+20*, MVERRORS+5* |
| ^TMP("IVM" | MVERRORS+5, MVERRORS+6! |
| ^TMP($J | PARSE+34!*, PARSE+136, PARSE+137, PARSE+141!, PARSE+162!, CHKNXT+5 |
| Name | Line Occurrences |
|---|---|
| $$CHKNXT | PARSE+66, PARSE+71, PARSE+82, PARSE+94, PARSE+114, PARSE+122, PARSE+145, PARSE+150, PARSE+155, PARSE+157 |
| $$MAP | CONVERT+57 |
| @( | PARSE+43, PARSE+105 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | PARSE+31~, PARSE+53*, PARSE+55, PARSE+114*, PARSE+150*, MAP+7~, MAP+9*, MAP+14*, MAP+17, MAP+20 , MAP+23 |
| CURLINE | PARSE~, PARSE+40, PARSE+50*, PARSE+53, PARSE+54*, PARSE+59*, PARSE+66, PARSE+67, PARSE+71, PARSE+72 , PARSE+74*, PARSE+76, PARSE+82, PARSE+83, PARSE+85*, PARSE+87, PARSE+94, PARSE+95, PARSE+97*, PARSE+99 , PARSE+103, PARSE+111*, PARSE+114, PARSE+115*, PARSE+122, PARSE+123, PARSE+128*, PARSE+135, PARSE+145, PARSE+146 , PARSE+150, PARSE+151*, PARSE+155, PARSE+157, PARSE+158 |
| CURLN | PARSE+135~*, PARSE+136*, PARSE+137 |
| DATATYPE | CONVERT~, CONVERT+30, CONVERT+32, CONVERT+35, CONVERT+37, CONVERT+40, CONVERT+44, CONVERT+48, CONVERT+52, CONVERT+56 , CONVERT+59, CONVERT+65, CONVERT+70, CONVERT+75, CONVERT+80 |
| >> DFN | PARSE+61, PARSE+141 |
| DGCCPC | PARSE+31~, PARSE+81* |
| DGCDIS | PARSE~, PARSE+36! |
| DGELG | PARSE~, PARSE+36! |
| DGEN | PARSE+36! |
| DGENR | PARSE~ |
| DGHBP | PARSE~, PARSE+92! |
| DGMST | PARSE~, PARSE+36! |
| DGNMSE | PARSE~ |
| DGNSEG | CHKNXT~, CHKNXT+5 |
| DGNTR | PARSE~, PARSE+36! |
| DGNVAL | CHKNXT~, CHKNXT+5 |
| DGOEIF | PARSE~ |
| DGOTH | PARSE~, PARSE+71!, PARSE+82! |
| DGPAT | PARSE~, PARSE+36! |
| DGPAT( | PARSE+63* |
| DGPAT("SSN" | PARSE+46, PARSE+107, PARSE+125 |
| DGRTN | PARSE+43~*, PARSE+105~* |
| DGSEC | PARSE~ |
| DGZHF | PARSE~ |
| ECODE | MAP+7~, MAP+9*, MAP+11*, MAP+12, MAP+14, MAP+24*, MAP+26*, MAP+27 |
| ECODE( | MAP+14*, MAP+26 |
| ECODE(0 | MAP+17 |
| ERRCOUNT | PARSE~, PARSE+46, PARSE+107, PARSE+125 |
| ERROR | PARSE+31~, PARSE+38*, PARSE+39, PARSE+47*, PARSE+53, PARSE+58, PARSE+66, PARSE+71, PARSE+82, PARSE+94 , PARSE+96, PARSE+98, PARSE+102, PARSE+108*, PARSE+114, PARSE+122, PARSE+126*, PARSE+134, PARSE+144, PARSE+150 , PARSE+155, PARSE+163, CONVERT~, CONVERT+26*, CONVERT+39*, CONVERT+41*, CONVERT+43*, CONVERT+45*, CONVERT+47*, CONVERT+51* , CONVERT+55*, CONVERT+58*, CONVERT+64*, CONVERT+69*, CONVERT+74*, CONVERT+79*, CONVERT+84* |
| HL | ACCEPT+9!, ACCEPT+10, ACCEPT+14 |
| HLDT | ACCEPT+9!, ACCEPT+11 |
| HLDT1 | ACCEPT+9!, ACCEPT+11 |
| >> HLEID | ACCEPT+10 |
| >> HLEVN | ACCEPT+12*, ACCEPT+13 |
| >> HLFS | ACCEPT+18*, ACCEPT+20 |
| HLMID | ACCEPT+9!, ACCEPT+11, ACCEPT+13 |
| HLMTIEN | ACCEPT+9!, ACCEPT+11 |
| >> HLRES | ACCEPT+14, ACCEPT+15 |
| >> IVMRTN | PARSE+136, PARSE+137, CHKNXT+5 |
| MHSTYP | PARSE+135~, PARSE+137*, PARSE+138 |
| MID | ACCEPT+8~, ACCEPT+13*, ACCEPT+14 |
| MSECNT | PARSE+135~*, PARSE+138*, PARSE+141, PARSE+142 |
| MSGID | PARSE~, PARSE+46, PARSE+107, PARSE+125, ACCEPT~, ACCEPT+20 |
| MSGIEN | PARSE~, PARSE+40, PARSE+53, PARSE+67, PARSE+72, PARSE+76, PARSE+83, PARSE+87, PARSE+95, PARSE+99 , PARSE+103, PARSE+114, PARSE+123, PARSE+146, PARSE+150, PARSE+158 |
| NAME | MAP+7~, MAP+25*, MAP+26 |
| NFLG | PARSE+31~, PARSE+38*, PARSE+40, PARSE+41*, PARSE+45* |
| NODE | MAP+7~, MAP+12*, MAP+14 |
| NONMSE | PARSE+135~*, PARSE+139*, PARSE+142 |
| OLDVAL | CONVERT+60~, CONVERT+61*, CONVERT+62, CONVERT+63, CONVERT+66~, CONVERT+67*, CONVERT+68, CONVERT+71~, CONVERT+72*, CONVERT+73 , CONVERT+76~, CONVERT+77*, CONVERT+78, CONVERT+81~, CONVERT+82*, CONVERT+83 |
| PSUB | PARSE+62~, PARSE+63* |
| QFLG | PARSE+31~, PARSE+73*, PARSE+74*, PARSE+84*, PARSE+85*, PARSE+96*, PARSE+97*, PARSE+144*, PARSE+145* |
| SEG | PARSE+31~, PARSE+39*, PARSE+40, PARSE+41, PARSE+42, PARSE+43, PARSE+44, PARSE+46, PARSE+53*, PARSE+66* , PARSE+67, PARSE+71*, PARSE+72, PARSE+76, PARSE+82*, PARSE+83, PARSE+87, PARSE+94*, PARSE+95, PARSE+99 , PARSE+102*, PARSE+103, PARSE+104, PARSE+105, PARSE+107, PARSE+114*, PARSE+122*, PARSE+123, PARSE+125, PARSE+134* , PARSE+145, PARSE+146, PARSE+150*, PARSE+155*, PARSE+157, PARSE+158 |
| SEG("TYPE" | PARSE+41, PARSE+42, PARSE+53, PARSE+59, PARSE+60, PARSE+68, PARSE+74, PARSE+85, PARSE+97, PARSE+104 , PARSE+114, PARSE+124, PARSE+150 |
| SEGNAM | PARSE+135~*, PARSE+137* |
| SGMNT | PARSE+135~, PARSE+137* |
| U | PARSE+137 |
| VAL | CONVERT~, CONVERT+28, CONVERT+29*, CONVERT+31*, CONVERT+33*, CONVERT+36*, CONVERT+38*, CONVERT+39, CONVERT+41, CONVERT+42* , CONVERT+43, CONVERT+45, CONVERT+46*, CONVERT+47, CONVERT+49*, CONVERT+50*, CONVERT+53*, CONVERT+54*, CONVERT+57*, CONVERT+58 , CONVERT+61, CONVERT+62*, CONVERT+63*, CONVERT+64, CONVERT+67, CONVERT+68*, CONVERT+69, CONVERT+72, CONVERT+73*, CONVERT+74 , CONVERT+77, CONVERT+78*, CONVERT+79, CONVERT+82, CONVERT+83*, CONVERT+84, CONVERT+85 |
| VALUE | MAP~, MAP+11, MAP+25 |