DGENUPL8 ;ISA/KWP,RTK,PHH,ERC,KUM,JAM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;03/11/20 12:41pm
Source file <DGENUPL8.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 |
|---|---|---|
| ENRUPLD(DGENR,DGPAT) | ;
|
|
| EXIT | ||
| DUP(DGENR1,DGENR2) | ;
|
|
| STOREHIS(DGENR,PRIORTO) | ;
|
|
| OTHUPLD(DFN,DGOTH,DGSSN,PRELIG) | ; uploads OTH data. DG*5.3*952
|
|
| CHKTS(IEN33,DGOTH) | ; check "last edited" timestamps in file 33 DG*5.3*952
|
|
| CHKTSX | ; exit point
|
|
| SORTOTH(DGOTH) | ; re-sort DGOTH array DG*5.3*952
|
| Name | Field # of Occurrence |
|---|---|
| $$FINDCUR^DGENA | ENRUPLD+23 |
| $$FINDPRI^DGENA | STOREHIS+15 |
| $$GET^DGENA | ENRUPLD+30 |
| $$STORE^DGENA1 | STOREHIS+18 |
| $$STORECUR^DGENA1 | ENRUPLD+29, ENRUPLD+33, ENRUPLD+42, ENRUPLD+62, ENRUPLD+67, ENRUPLD+74, ENRUPLD+83 |
| $$UPD^DGENDBS | STOREHIS+25 |
| ADDERROR^DGENUPL | ENRUPLD+49, OTHUPLD+13, OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+39, OTHUPLD+53, OTHUPLD+56 |
| ADDMSG^DGENUPL3 | ENRUPLD+51 |
| NOTIFY^DGENUPL3 | ENRUPLD+52 |
| $$FILAUTH^DGOTHUT1 | OTHUPLD+55 |
| $$FILDEN^DGOTHUT1 | OTHUPLD+38 |
| $$FILPEND^DGOTHUT1 | OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+53 |
| ^DIK | OTHUPLD+30, OTHUPLD+46, OTHUPLD+47 |
| $$GET1^DIQ | OTHUPLD+12, OTHUPLD+15, CHKTS+12, CHKTS+16, CHKTS+21 |
| FileNo | Call Tags |
|---|---|
| ^DGOTH(33 - [#33] | GET1^DIQ |
| 33.03 | GET1^DIQ |
| 33.11 | GET1^DIQ |
| ^DIC(8 - [#8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGOTH(33 - [#33] | OTHUPLD+11, OTHUPLD+30, OTHUPLD+44, OTHUPLD+46, CHKTS+13, CHKTS+14, CHKTS+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | OTHUPLD+10~, OTHUPLD+32*, OTHUPLD+33, OTHUPLD+35, OTHUPLD+38, OTHUPLD+49*, OTHUPLD+50, OTHUPLD+52, OTHUPLD+55, SORTOTH+4~ , SORTOTH+8*, SORTOTH+9, SORTOTH+12*, SORTOTH+14* |
| CURENR | ENRUPLD+16~, ENRUPLD+30, ENRUPLD+36 |
| CURENR("EFFDATE" | ENRUPLD+66 |
| CURENR("SOURCE" | ENRUPLD+39 |
| CURENR("STATUS" | ENRUPLD+48, ENRUPLD+61, ENRUPLD+66, ENRUPLD+73 |
| CURIEN | ENRUPLD+16~, ENRUPLD+23*, ENRUPLD+26, ENRUPLD+30 |
| DA | OTHUPLD+9~, OTHUPLD+30*, OTHUPLD+31!, OTHUPLD+46*, OTHUPLD+47!* |
| DA(1 | OTHUPLD+29*, OTHUPLD+45*, OTHUPLD+47* |
| DA(2 | OTHUPLD+45* |
| DATA | STOREHIS+23~, STOREHIS+25 |
| DATA( | STOREHIS+24* |
| DFN | OTHUPLD~, OTHUPLD+11, OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+38, OTHUPLD+53, OTHUPLD+55 |
| DGENR | ENRUPLD~, ENRUPLD+29, ENRUPLD+33, ENRUPLD+36, ENRUPLD+42, ENRUPLD+62, ENRUPLD+67, ENRUPLD+74, ENRUPLD+83, STOREHIS~ , STOREHIS+18 |
| DGENR("DFN" | ENRUPLD+23 |
| DGENR("EFFDATE" | ENRUPLD+66 |
| DGENR("PRIORREC" | STOREHIS+15* |
| DGENR("SOURCE" | ENRUPLD+20* |
| DGENR("STATUS" | ENRUPLD+19, ENRUPLD+29, ENRUPLD+33, ENRUPLD+42, ENRUPLD+48, ENRUPLD+61, ENRUPLD+66, ENRUPLD+73, ENRUPLD+83 |
| DGENR1 | DUP~ |
| DGENR1( | DUP+13, DUP+18 |
| DGENR1("ELIG" | DUP+21 |
| DGENR2 | DUP~ |
| DGENR2( | DUP+18 |
| DGENR2("ELIG" | DUP+21 |
| DGENRIEN | STOREHIS+11~, STOREHIS+18*, STOREHIS+19, STOREHIS+24 |
| DGOTH | OTHUPLD~, OTHUPLD+12, OTHUPLD+25, CHKTS~, SORTOTH~ |
| DGOTH( | SORTOTH+8, SORTOTH+9, SORTOTH+12!, SORTOTH+14* |
| DGOTH("A" | OTHUPLD+43, OTHUPLD+49, OTHUPLD+50, OTHUPLD+52, OTHUPLD+55, CHKTS+26 |
| DGOTH("D" | OTHUPLD+27, OTHUPLD+32, OTHUPLD+33, OTHUPLD+35, OTHUPLD+38, CHKTS+27 |
| DGOTH("P" | OTHUPLD+17, OTHUPLD+19, OTHUPLD+20, CHKTS+25 |
| DGPAT | ENRUPLD~, ENRUPLD+52 |
| DGPAT("DEATH" | ENRUPLD+48 |
| DGPAT("SSN" | ENRUPLD+49 |
| DGSSN | OTHUPLD~, OTHUPLD+13, OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+39, OTHUPLD+53, OTHUPLD+56 |
| DIK | OTHUPLD+9~, OTHUPLD+29*, OTHUPLD+45*, OTHUPLD+47* |
| >> ERRCOUNT | ENRUPLD+49, OTHUPLD+13, OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+39, OTHUPLD+53, OTHUPLD+56 |
| >> ERROR | ENRUPLD+53* |
| IEN33 | OTHUPLD+10~, OTHUPLD+11*, OTHUPLD+12, OTHUPLD+15, OTHUPLD+29, OTHUPLD+30, OTHUPLD+44, OTHUPLD+45, OTHUPLD+46, OTHUPLD+47 , CHKTS~, CHKTS+8, CHKTS+11, CHKTS+13, CHKTS+14, CHKTS+15, CHKTS+19, CHKTS+20 |
| IEN3301 | OTHUPLD+10~, OTHUPLD+44*, OTHUPLD+45, OTHUPLD+46, OTHUPLD+47 |
| IENS | CHKTS+7~, CHKTS+11*, CHKTS+12, CHKTS+15*, CHKTS+16, CHKTS+20*, CHKTS+21 |
| LASTTS1 | CHKTS+7~, CHKTS+9*, CHKTS+12*, CHKTS+16*, CHKTS+21*, CHKTS+23, CHKTS+29 |
| LASTTS2 | CHKTS+7~, CHKTS+9*, CHKTS+25*, CHKTS+26*, CHKTS+27*, CHKTS+29 |
| >> MSGID | ENRUPLD+49, OTHUPLD+13, OTHUPLD+18, OTHUPLD+20, OTHUPLD+36, OTHUPLD+39, OTHUPLD+53, OTHUPLD+56 |
| >> MSGS | ENRUPLD+51, ENRUPLD+52 |
| OK | STOREHIS+11~, STOREHIS+12*, STOREHIS+19*, STOREHIS+22 |
| PNDCRTS | OTHUPLD+10~, OTHUPLD+15*, OTHUPLD+35, OTHUPLD+52 |
| PRELIG | OTHUPLD~, OTHUPLD+12 |
| PRIORTO | STOREHIS~, STOREHIS+9, STOREHIS+15, STOREHIS+25 |
| QFLG | OTHUPLD+10~, OTHUPLD+11*, OTHUPLD+18*, OTHUPLD+20*, OTHUPLD+23, OTHUPLD+27, OTHUPLD+32, OTHUPLD+35, OTHUPLD+36*, OTHUPLD+39* , OTHUPLD+43, OTHUPLD+49, OTHUPLD+52, OTHUPLD+53*, OTHUPLD+56* |
| RES | CHKTS+7~, CHKTS+8*, CHKTS+29*, CHKTSX+1 |
| SAME | DUP+10~, DUP+11*, DUP+18*, DUP+19, DUP+21*, DUP+22 |
| SUB | DUP+10~, DUP+12*, DUP+13*, DUP+14, DUP+15, DUP+16, DUP+17, DUP+18, DUP+20*, DUP+21* |
| TMP | SORTOTH+4~, SORTOTH+8! |
| TMP( | SORTOTH+10*, SORTOTH+13, SORTOTH+14 |
| TMPTS | CHKTS+7~, CHKTS+12*, CHKTS+16*, CHKTS+21*, CHKTS+25*, CHKTS+26*, CHKTS+27* |
| TYPE | SORTOTH+4~, SORTOTH+7*, SORTOTH+8, SORTOTH+9, SORTOTH+12, SORTOTH+14 |
| U | OTHUPLD+18, OTHUPLD+19, OTHUPLD+20, OTHUPLD+33, OTHUPLD+35, OTHUPLD+36, OTHUPLD+39, OTHUPLD+50, OTHUPLD+52, OTHUPLD+53 , OTHUPLD+56, CHKTS+25, CHKTS+26, CHKTS+27, SORTOTH+9 |
| VAL | SORTOTH+4~, SORTOTH+9*, SORTOTH+10 |
| Z | OTHUPLD+10~, OTHUPLD+18*, OTHUPLD+20*, OTHUPLD+36*, OTHUPLD+38*, OTHUPLD+39, OTHUPLD+53*, OTHUPLD+55*, OTHUPLD+56, CHKTS+7~ , CHKTS+13*, CHKTS+14, CHKTS+15, CHKTS+19*, CHKTS+20, CHKTS+26*, CHKTS+27*, SORTOTH+4~, SORTOTH+9*, SORTOTH+10 , SORTOTH+13*, SORTOTH+14 |
| Z1 | CHKTS+7~, CHKTS+14*, CHKTS+15, SORTOTH+4~, SORTOTH+9*, SORTOTH+10, SORTOTH+14* |