HLOSRVR1 ;IRMFO-ALB/CJM - Reading messages, sending acks;03/24/2004 14:43 ;09/13/2006
Source file <HLOSRVR1.m>
Package | Total | Caller Graph |
---|---|---|
Health Level Seven | 3 | HLOAPI HLOCLNT1 HLOSRVR |
Name | Comments | DBIA/ICR reference |
---|---|---|
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
|
|
SQUISH(SEG) | ;
|
|
DUP(HLMSTATE) | ;
|
|
READMSG(HLCSTATE,HLMSTATE) | ;
|
|
ERROR | ;error trap
|
|
CHECKMSG(HLMSTATE) | ;
|
|
SPLITHDR(HDR) | ;
|
|
ADDAC(HLMSTATE) | ;adds the AC xref for the message that was just received
|
Name | Field # of Occurrence |
---|---|
^%ZTER | ERROR+5, ERROR+11 |
UNWIND^%ZTER | ERROR+22 |
$$ACTION^HLOAPP | CHECKMSG+17 |
$$SAVEMSG^HLOF778 | READMSG+66 |
ADDMSG2^HLOMSG | READMSG+57 |
ADDSEG^HLOMSG | READMSG+52, READMSG+65 |
$$PARSEHDR^HLOPRS | READMSG+20 |
END^HLOSRVR | ERROR+2 |
NEWMSG^HLOSRVR2 | READMSG+23 |
COUNT^HLOSTAT | READMSG+75 |
$$READHDR^HLOT | READMSG+16 |
$$READSEG^HLOT | READMSG+31, READMSG+37 |
CLOSE^HLOT | READMSG+22, READMSG+77 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^HLA - [#777] | DEL777+2! |
^HLB - [#778] | DUP+23, CHECKMSG+23, DEL778+2! |
^HLB("AC" | ADDAC+5*, DUP+18 |
^HLB("B" | READMSG+44 |
^HLTMP("LOG ALL ERRORS" | ERROR+5 |
^TMP("HL7 ERRORS" | ERROR+17*, ERROR+19! |
Name | Line Occurrences |
---|---|
$$DUP | READMSG+27 |
ADDAC | READMSG+74 |
CHECKMSG | READMSG+73 |
DEL777 | READMSG+70 |
DEL778 | READMSG+70 |
SPLITHDR | READMSG+17, READMSG+55 |
SQUISH | SPLITHDR+4 |
>> | 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+17, CHECKMSG+18 |
CODE | READMSG+38~, READMSG+42*, READMSG+43, READMSG+50, READMSG+63 |
COUNT | SQUISH+6~, SQUISH+8*, SQUISH+13*, SQUISH+14* |
DUP | DUP+11~, DUP+12*, DUP+18, DUP+19*, DUP+28*, DUP+30 |
FROM | ADDAC+3~, ADDAC+4*, ADDAC+5, DUP+11~, DUP+17*, DUP+18 |
FS | READMSG+35~, READMSG+36*, READMSG+42, READMSG+56, SPLITHDR+3~, SPLITHDR+5*, SPLITHDR+6, SPLITHDR+8 |
HDR | CHECKMSG+11*, CHECKMSG+17, SPLITHDR~, SPLITHDR+4 |
HDR("ACCEPT A | CK TYPE" , CHECKMSG+12 |
HDR("PROCESSI | NG ID" , CHECKMSG+27 |
HDR("RECEIVIN | G FACILITY" , CHECKMSG+35, CHECKMSG+36, CHECKMSG+37, CHECKMSG+38, CHECKMSG+39 |
HDR(1 | SPLITHDR+5, SPLITHDR+6, SPLITHDR+8, SPLITHDR+10* |
HDR(2 | SPLITHDR+9* |
HLCSTATE | READMSG~, READMSG+16, READMSG+22, READMSG+23, READMSG+31, READMSG+37, READMSG+75, READMSG+77 |
HLCSTATE("LINK" | ERROR+14 |
HLCSTATE("MES | SAGE ENDED" , READMSG+21*, READMSG+66, READMSG+68, READMSG+77, READMSG+78 |
HLCSTATE("SYSTEM" | CHECKMSG+27, CHECKMSG+35, CHECKMSG+38, CHECKMSG+39, CHECKMSG+40, SQUISH+7 |
HLMSTATE | READMSG~, READMSG+23, READMSG+27, READMSG+52, READMSG+57, READMSG+65, READMSG+66, READMSG+73, READMSG+74, ADDAC~ , DUP~, CHECKMSG~ |
HLMSTATE("ACK | TO" , READMSG+48*, READMSG+49*, READMSG+50*, READMSG+51*, CHECKMSG+17, CHECKMSG+21, CHECKMSG+23, CHECKMSG+24*, CHECKMSG+34 |
HLMSTATE("BATCH" | READMSG+46, READMSG+60, READMSG+61*, READMSG+62*, READMSG+63*, READMSG+64*, READMSG+75 |
HLMSTATE("BODY" | READMSG+70, READMSG+71* |
HLMSTATE("HDR" | READMSG+26, READMSG+36, READMSG+75, ADDAC+4, ADDAC+5, DUP+17, DUP+18, DUP+19, CHECKMSG+11 |
HLMSTATE("ID" | READMSG+24, READMSG+49, ADDAC+5, DUP+15, DUP+18 |
HLMSTATE("IEN" | READMSG+70, READMSG+71*, ADDAC+5 |
HLMSTATE("MSA" | READMSG+26*, DUP+24*, DUP+25, DUP+26*, DUP+27*, CHECKMSG+16*, CHECKMSG+17*, CHECKMSG+24*, CHECKMSG+27*, CHECKMSG+40* , CHECKMSG+41* |
HLMSTATE("ORI | GINAL MODE" , CHECKMSG+12, CHECKMSG+16 |
HLMSTATE("STATUS" | CHECKMSG+16*, CHECKMSG+17*, CHECKMSG+18*, CHECKMSG+21, CHECKMSG+24*, CHECKMSG+25*, CHECKMSG+27*, CHECKMSG+40* |
HLMSTATE("UNS | TORED LINES" , READMSG+66 |
I | READMSG+13~, SQUISH+6~, SQUISH+8*, SQUISH+9*, SQUISH+10, SQUISH+12 |
IEN | READMSG+38~, READMSG+44*, READMSG+45*, READMSG+51, READMSG+64, DUP+11~, DUP+12*, DUP+18*, DUP+23 |
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 | READMSG+38~, READMSG+41*, READMSG+42 |
NEWMSGID | READMSG+38~, READMSG+56*, READMSG+62 |
NODE | DUP+22~, DUP+23*, DUP+24, DUP+26, DUP+27, CHECKMSG+22~, CHECKMSG+23*, CHECKMSG+24, CHECKMSG+25 |
OLDMSGID | READMSG+38~, READMSG+42*, READMSG+44, READMSG+45, READMSG+48, READMSG+61 |
PASS | CHECKMSG+10~, CHECKMSG+31*, CHECKMSG+34*, CHECKMSG+35*, CHECKMSG+36*, CHECKMSG+37*, CHECKMSG+38*, CHECKMSG+39*, CHECKMSG+40, CHECKMSG+41 |
QUEUE | CHECKMSG+10~, CHECKMSG+17, CHECKMSG+18 |
SEG | READMSG+13~, READMSG+16, READMSG+17, READMSG+20, READMSG+23, READMSG+31, READMSG+37, READMSG+52, READMSG+55, READMSG+57 , READMSG+65, SQUISH~, SQUISH+15!, SQUISH+16* |
SEG( | SQUISH+9, SQUISH+10, SQUISH+12 |
SEG(1 | READMSG+39, READMSG+41, SQUISH+4 |
SEG(2 | READMSG+39, READMSG+41, READMSG+56 |
SEG(3 | READMSG+41 |
SEGTYPE | READMSG+38~, READMSG+39*, READMSG+40, READMSG+43*, READMSG+47, READMSG+54, READMSG+59 |
STORE | READMSG+13~, READMSG+15*, READMSG+25*, READMSG+27*, READMSG+30, READMSG+68, READMSG+72 |
SUBIEN | READMSG+60~*, READMSG+61, READMSG+62, READMSG+63, READMSG+64 |
TEMP | SPLITHDR+3~ |
TEMP(1 | SPLITHDR+6*, SPLITHDR+8, SPLITHDR+10 |
TEMP(2 | SPLITHDR+7*, SPLITHDR+8*, SPLITHDR+9 |
WANTACK | CHECKMSG+10~, CHECKMSG+13*, CHECKMSG+15*, CHECKMSG+17, CHECKMSG+24, CHECKMSG+27, CHECKMSG+40, CHECKMSG+41 |