HLOSRVR1 ;IRMFO-ALB/CJM/OAK/PIJ - Reading messages, sending acks;03/24/2004 14:43 ;03/08/2012
Source file <HLOSRVR1.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 |
|---|---|---|
| Health Level Seven | 4 | HLOAPI HLOCLNT1 HLOPRSR3 HLOSRVR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| READMSG(HLCSTATE,HLMSTATE) | ;
|
|
| ZB29 | ||
| ZB30 | ||
| ADDAC(HLMSTATE) | ;adds the AC xref for duplicates detection
|
|
| DUP(HLMSTATE) | ;
|
|
| CHECKMSG(HLMSTATE) | ;
|
|
| DEL777(IEN777) | ;delete a record from file 777 where the read did not complete
|
|
| DEL778(IEN778) | ;delete a record from file 778 where the read did not complete
|
|
| SPLITHDR(HDR) | ;
|
|
| SQUISH(SEG) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$ACTION^HLOAPP | CHECKMSG+20, CHECKMSG+34 |
| $$GETEVENT^HLOCLNT2 | CHECKMSG+32 |
| $$SAVEMSG^HLOF778 | ZB30+42 |
| ADDMSG2^HLOMSG | ZB30+33 |
| ADDSEG^HLOMSG | ZB30+28, ZB30+41 |
| $$ACKTOIEN^HLOMSG1 | ZB30+18 |
| $$ESCAPE^HLOPBLD | ZB30+16 |
| $$PARSEHDR^HLOPRS | READMSG+20 |
| NEWMSG^HLOSRVR2 | ZB29+8 |
| COUNT^HLOSTAT | ZB30+51 |
| $$READHDR^HLOT | READMSG+16 |
| $$READSEG^HLOT | ZB30+4, ZB30+10 |
| CLOSE^HLOT | ZB29+1, ZB29+6, ZB30+53 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HLA - [#777] | DEL777+2! |
| ^HLB - [#778] | ZB30+26, DUP+21, CHECKMSG+25, DEL778+2! |
| ^HLB("AC" | ADDAC+4*, DUP+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | SQUISH+6~, SQUISH+16 |
| A( | SQUISH+12* |
| ACK | READMSG+13~ |
| ACTION | CHECKMSG+10~, CHECKMSG+20, CHECKMSG+21, CHECKMSG+34 |
| CODE | ZB30+11~, ZB30+15*, ZB30+17, ZB30+23, ZB30+39 |
| COUNT | SQUISH+6~, SQUISH+8*, SQUISH+13*, SQUISH+14* |
| DUP | DUP+9~, DUP+10*, DUP+16, DUP+17*, DUP+26*, DUP+28 |
| ERROR | CHECKMSG+10~, CHECKMSG+12*, CHECKMSG+18, CHECKMSG+20*, CHECKMSG+22, CHECKMSG+26*, CHECKMSG+27* |
| FROM | ADDAC+2~, ADDAC+3*, ADDAC+4, DUP+9~, DUP+15*, DUP+16 |
| FS | ZB30+7~, ZB30+9*, ZB30+15, ZB30+16, ZB30+32, SPLITHDR+3~, SPLITHDR+5*, SPLITHDR+6, SPLITHDR+8 |
| HDR | CHECKMSG+11*, CHECKMSG+20, CHECKMSG+34, SPLITHDR~, SPLITHDR+4 |
| HDR("ACCEPT A | CK TYPE" , CHECKMSG+13 |
| HDR("EVENT" | CHECKMSG+32* |
| HDR("PROCESSI | NG ID" , CHECKMSG+36 |
| HDR("RECEIVIN | G FACILITY" , CHECKMSG+43, CHECKMSG+44, CHECKMSG+45, CHECKMSG+46, CHECKMSG+47 |
| HDR(1 | SPLITHDR+5, SPLITHDR+6, SPLITHDR+8, SPLITHDR+10* |
| HDR(2 | SPLITHDR+9* |
| HLCSTATE | READMSG~, READMSG+16, ZB29+1, ZB29+6, ZB29+8, ZB30+4, ZB30+10, ZB30+51, ZB30+53 |
| HLCSTATE("MES | SAGE ENDED" , ZB29*, ZB29+5*, ZB30+42, ZB30+44, ZB30+53, ZB30+54 |
| HLCSTATE("SYSTEM" | CHECKMSG+36, CHECKMSG+43, CHECKMSG+46, CHECKMSG+47, CHECKMSG+48, SQUISH+7 |
| HLMSTATE | READMSG~, ZB29+8, ZB29+12, ZB30+16, ZB30+28, ZB30+33, ZB30+41, ZB30+42, ZB30+49, ZB30+50 , ADDAC~, DUP~, CHECKMSG~ |
| HLMSTATE("ACK | TO IEN" , ZB30+25*, CHECKMSG+25, CHECKMSG+26*, CHECKMSG+27*, CHECKMSG+32, TO" , ZB30+21*, ZB30+22*, ZB30+23* , ZB30+26*, ZB30+27*, CHECKMSG+18, CHECKMSG+42 |
| HLMSTATE("BATCH" | ZB30+19, ZB30+36, ZB30+37*, ZB30+38*, ZB30+39*, ZB30+40*, ZB30+51 |
| HLMSTATE("BODY" | ZB30+46, ZB30+47* |
| HLMSTATE("HDR" | ZB29+11, ZB30+9, ZB30+51, ADDAC+3, ADDAC+4, DUP+15, DUP+16, DUP+17, CHECKMSG+11, CHECKMSG+32 |
| HLMSTATE("ID" | ZB29+9, ZB30+22, ADDAC+4, DUP+13, DUP+16, CHECKMSG+27 |
| HLMSTATE("IEN" | ZB30+46, ZB30+47*, ADDAC+4 |
| HLMSTATE("MSA" | ZB29+11*, DUP+22*, DUP+23, DUP+24*, DUP+25*, CHECKMSG+17*, CHECKMSG+20*, CHECKMSG+26*, CHECKMSG+27*, CHECKMSG+36* , CHECKMSG+48*, CHECKMSG+49* |
| HLMSTATE("ORI | GINAL MODE" , CHECKMSG+13, CHECKMSG+17 |
| HLMSTATE("STATUS" | CHECKMSG+17*, CHECKMSG+20*, CHECKMSG+21*, CHECKMSG+26*, CHECKMSG+27*, CHECKMSG+29*, CHECKMSG+30*, CHECKMSG+34*, CHECKMSG+36*, CHECKMSG+48* |
| HLMSTATE("UNS | TORED LINES" , ZB30+42 |
| >> HLO("MSGID" | ZB29+4 |
| I | READMSG+13~, ZB29+3*, ZB29+4, SQUISH+6~, SQUISH+8*, SQUISH+9*, SQUISH+10, SQUISH+12 |
| IEN | ZB30+11~, ZB30+18*, ZB30+24, ZB30+25, ZB30+26, ZB30+40, DUP+9~, DUP+10*, DUP+16*, DUP+21 |
| IEN777 | DEL777~, DEL777+2 |
| IEN778 | DEL778~, DEL778+2 |
| J | SQUISH+6~, SQUISH+8*, SQUISH+12, SQUISH+14* |
| K | SQUISH+6~, SQUISH+11*, SQUISH+12 |
| LEN | SQUISH+6~, SQUISH+10*, SQUISH+11 |
| MAX | SQUISH+6~, SQUISH+7*, SQUISH+14 |
| MSA | ZB30+11~, ZB30+14*, ZB30+15, ZB30+16 |
| NEWMSGID | ZB30+7~, ZB30+8*, ZB30+32*, ZB30+38 |
| NODE | DUP+20~, DUP+21*, DUP+22, DUP+24, DUP+25, CHECKMSG+24~, CHECKMSG+25*, CHECKMSG+26, CHECKMSG+27, CHECKMSG+29 , CHECKMSG+30 |
| OLDMSGID | ZB30+11~, ZB30+15*, ZB30+18, ZB30+21, ZB30+37 |
| PASS | CHECKMSG+10~, CHECKMSG+39*, CHECKMSG+42*, CHECKMSG+43*, CHECKMSG+44*, CHECKMSG+45*, CHECKMSG+46*, CHECKMSG+47*, CHECKMSG+48, CHECKMSG+49 |
| QUEUE | CHECKMSG+10~, CHECKMSG+20, CHECKMSG+21, CHECKMSG+34 |
| SEG | READMSG+13~, READMSG+16, READMSG+17, READMSG+20, ZB29+8, ZB30+4, ZB30+10, ZB30+28, ZB30+31, ZB30+33 , ZB30+41, SQUISH~, SQUISH+15!, SQUISH+16* |
| SEG( | SQUISH+9, SQUISH+10, SQUISH+12 |
| SEG("BATCH CO | NTROL ID" , ZB29+3 |
| SEG("MESSAGE | CONTROL ID" , ZB29+3 |
| SEG("SEGMENT | TYPE" , ZB29+3 |
| SEG(1 | ZB30+12, ZB30+14, SQUISH+4 |
| SEG(2 | ZB30+12, ZB30+14, ZB30+32 |
| SEG(3 | ZB30+14 |
| SEGTYPE | ZB30+11~, ZB30+12*, ZB30+13, ZB30+17*, ZB30+20, ZB30+30, ZB30+35 |
| STORE | READMSG+13~, READMSG+15*, ZB29+10*, ZB29+12, ZB30*, ZB30+3, ZB30+44, ZB30+48 |
| SUBIEN | ZB30+36~*, ZB30+37, ZB30+38, ZB30+39, ZB30+40 |
| TEMP | SPLITHDR+3~ |
| TEMP(1 | SPLITHDR+6*, SPLITHDR+8, SPLITHDR+10 |
| TEMP(2 | SPLITHDR+7*, SPLITHDR+8*, SPLITHDR+9 |
| TEXT | ZB30+11~, ZB30+16*, ZB30+27 |
| WANTACK | CHECKMSG+10~, CHECKMSG+14*, CHECKMSG+16*, CHECKMSG+20, CHECKMSG+26, CHECKMSG+27, CHECKMSG+36, CHECKMSG+48, CHECKMSG+49 |