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 |