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 |