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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 1 | DGENUPL7 |
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* |