HLOSRVR2 ;ALB/CJM-HL7 - Sends an application ack over an open connection, for original mode ;02/04/2004
Source file <HLOSRVR2.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Health Level Seven | 2 | HLOSRVR1 HLOSRVR2 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ACKNOW(MSG,ERROR) | ; | |
| NEWMSG(HLCSTATE,HLMSTATE,HDR) | ; | |
| END | ; | |
| ERROR | ;error trap for ACKNOW | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^HLB - [#778] | END+2, END+5*, END+6* | 
| ^HLB("B" | NEWMSG+36 | 
| ^HLB("ERRORS" | END+7* | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> ACK("HDR" | ACKNOW+19 | 
| ERROR | ACKNOW~, ACKNOW+6*, ACKNOW+8*, ACKNOW+14*, ACKNOW+15*, ACKNOW+17*, END+4, ERROR+1* | 
| HDR | NEWMSG~, NEWMSG+23 | 
| HDR("ACCEPT A | CK TYPE" , NEWMSG+39 | 
| HDR("APP ACK | TYPE" , NEWMSG+39 | 
| HDR("BATCH CO | NTROL ID" , NEWMSG+17 | 
| HDR("MESSAGE | CONTROL ID" , NEWMSG+22 | 
| HDR("SEGMENT | TYPE" , NEWMSG+15 | 
| HDR("SENDING | FACILITY" , NEWMSG+29 | 
| HLCSTATE | NEWMSG~, ACKNOW+17, ACKNOW+19 | 
| HLCSTATE("CONNECTED" | ACKNOW+7 | 
| HLCSTATE("ERR | OR PURGE" , ACKNOW+12 | 
| HLCSTATE("LINK" | NEWMSG+28 | 
| HLCSTATE("SYSTEM" | NEWMSG+24 | 
| HLMSTATE | NEWMSG~, NEWMSG+8! | 
| HLMSTATE("ACK | TO" , NEWMSG+34*, NEWMSG+35*, NEWMSG+37*, NEWMSG+38* | 
| HLMSTATE("BATCH" | NEWMSG+16*, NEWMSG+18*, NEWMSG+21*, NEWMSG+32, NEWMSG+39 | 
| HLMSTATE("BODY" | NEWMSG+10* | 
| HLMSTATE("CUR | RENT SEGMENT" , NEWMSG+12* | 
| HLMSTATE("DIRECTION" | NEWMSG+11* | 
| HLMSTATE("HDR" | NEWMSG+23* | 
| HLMSTATE("ID" | NEWMSG+17*, NEWMSG+22*, NEWMSG+32, NEWMSG+34, NEWMSG+36, NEWMSG+44 | 
| HLMSTATE("IEN" | NEWMSG+9* | 
| HLMSTATE("LIN | E COUNT" , NEWMSG+14* | 
| HLMSTATE("MSA" | NEWMSG+43*, NEWMSG+44* | 
| HLMSTATE("ORI | GINAL MODE" , NEWMSG+40*, NEWMSG+42* | 
| HLMSTATE("STATUS" | NEWMSG+25*, NEWMSG+26*, NEWMSG+27*, NEWMSG+28*, NEWMSG+29* | 
| HLMSTATE("SYSTEM" | NEWMSG+24* | 
| HLMSTATE("UNS | TORED LINES" , NEWMSG+13*, TORED MSH" , NEWMSG+19* | 
| I | NEWMSG+43~* | 
| IEN | NEWMSG+33~, NEWMSG+36*, NEWMSG+37, END+7 | 
| MSG | ACKNOW~, ACKNOW+14, ACKNOW+15, ACKNOW+17 | 
| MSG("DT/TM CR | EATED" , ACKNOW+11*, ACKNOW+12, END+7 | 
| MSG("HDR" | END+7 | 
| MSG("IEN" | END+1, END+2, END+5, END+6 | 
| MSG("STATUS" | ACKNOW+9*, ACKNOW+10*, ACKNOW+12*, ACKNOW+16, END+1, END+3*, END+4*, END+5, END+6 | 
| MSG("UNSTORED | LINES" , ACKNOW+14 | 
| SENT | ACKNOW+5~, ACKNOW+6*, ACKNOW+18*, END+1, END+9, ERROR+1* |