HLLP ;AISC/SAW-HL7 Hybrid Lower Level Protocol Receiver/Sender ;9/5/96 10:50 [ 04/02/2003 8:36 AM ]
Source file <HLLP.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CHKSEND | ;Check if there are HL7 messages to send | |
| ERR | ;Trap error | |
| SEND | ;Send a Message | |
| INIT | ;Initialize Variables | |
| CHKREC | ;Check if there are HL7 messages to receive | |
| EX | ||
| REC | ;Receive a Message | |
| CSUM | ;Calculate Checksum | |
| EXIT | ||
| REC1 | ||
| CS1 | ||
| LOOP | ;Infinite loop to check for HL7 messages to send/receive | |
| SENDN | 
| Name | Line Occurrences | 
|---|---|
| Function Call: READ | 
 | 
| Function Call: READ | 
 | 
| Function Call: READ | 
 | 
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("EOFF" | INIT+9, INIT+10 | 
| ^%ZOSF("ERRTN" | ERR+1 | 
| ^%ZOSF("LPC" | INIT+11 | 
| ^%ZOSF("OS" | INIT+9 | 
| ^%ZOSF("RM" | INIT+11 | 
| ^%ZOSF("TRAP" | INIT+5 | 
| ^%ZOSF("TRMON" | INIT+11 | 
| ^%ZOSF("TRMRD" | INIT+11 | 
| ^%ZOSF("TYPE-AHEAD" | INIT+7 | 
| ^HL(770 - [#770] | LOOP+1, CHKSEND+2 | 
| ^HL(772 - [#772] | CHKSEND+3, CHKSEND+4 | 
| ^TMP("HL" | REC1+1*, REC1+5*, REC1+7*, SEND+2*, SENDN*, SENDN+1*, SENDN+2* | 
| ^TMP("HLR" | ERR+1!, CS1!, EX!, REC+1!, REC1+2* | 
| ^TMP("HLS" | ERR+1!, CHKSEND+12*, EX!, SENDN+1 | 
| ^XMB(3.9 - [#3.9] | CHKSEND+8, CHKSEND+10, CHKSEND+12 | 
| Name | Line Occurrences | 
|---|---|
| @( | ERR+1 | 
| CHKREC | LOOP+1, CHKREC+1 | 
| CHKSEND | LOOP+1 | 
| CS1 | CS1 | 
| CSUM | REC1+1, REC1+2, SEND+2, SENDN, SENDN+1 | 
| EX | CHKSEND+3, CHKSEND+4, CHKSEND+6, CHKSEND+8, CHKSEND+10, CS1+1, CS1+2, CS1+3 | 
| EXIT | INIT+5, INIT+6, INIT+7 | 
| REC | CHKREC+1, CS1 | 
| REC1 | REC1 | 
| SEND | CS1 | 
| SENDN | CHKREC+1 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | SENDN+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | INIT+7, INIT+8! | 
| %H | INIT+8! | 
| %I | INIT+8! | 
| DTIME | INIT+8*, REC1, REC1+1, REC1+2, REC1+8 | 
| HLAC | CS1+2*, CS1+3*, EX! | 
| >> HLB | REC1+6*, REC1+7 | 
| >> HLC | REC1+6*, REC1+7 | 
| >> HLC1 | CHKREC+1*, CSUM+1*, REC+1*, REC1+6, REC1+7, SEND+1*, SENDN+2 | 
| >> HLC2 | CHKREC+1*, CSUM+1*, REC+1*, REC1+6, SEND+1*, SENDN+2 | 
| >> HLCSUM | REC1+6*, REC1+7 | 
| HLDA | CHKSEND+3*, CHKSEND+4, CHKSEND+7, CHKSEND+9, CHKSEND+11, CS1+2, CS1+3, EX! | 
| HLDA0 | CHKSEND+4*, CHKSEND+5, CHKSEND+12, EX! | 
| HLDTOUT | CHKREC+1, CHKREC+2, CS1, CS1+1, REC+1!, REC1*, REC1+1*, REC1+2*, REC1+6, REC1+8* | 
| HLERR | CHKREC+1!, CHKREC+2!, EX!, REC1+6*, SENDN | 
| HLI | CHKSEND+12*, EX!, REC+1*, REC1+1*, REC1+5*, SENDN*, SENDN+1* | 
| >> HLII | REC1+4*, REC1+5 | 
| >> HLION | INIT+5, INIT+6*, LOOP+1, REC1+1, REC1+5, REC1+7, SEND+2, SENDN, SENDN+1, SENDN+2 | 
| HLJ | CHKSEND+12*, EX! | 
| >> HLK | REC1+2* | 
| HLL | REC+1! | 
| HLL( | REC1+2* | 
| HLL(1 | ERR+1!, CS1+3 | 
| >> HLLOG | LOOP+1*, REC1+1, REC1+2, REC1+7, SEND+2, SENDN, SENDN+1, SENDN+2 | 
| >> HLLPC | INIT+11*, CSUM+1, REC1+6, SENDN+2 | 
| >> HLMID | CS1+4 | 
| HLMSG | CS1+2*, CS1+3*, EX! | 
| >> HLMTN | CS1+4 | 
| >> HLNDAP | CHKSEND+1, CHKSEND+2 | 
| >> HLNDAP0 | INIT+8, CHKSEND+2*, CHKSEND+3 | 
| HLSDATA | CHKREC+1!, CS1!, EX!, SENDN+1* | 
| HLSDATA( | SENDN | 
| HLSDATA(1 | CHKREC+1* | 
| HLSDT | CHKSEND+12*, EX!, SENDN, SENDN+1 | 
| >> HLTIME | INIT+7*, CS1+4, REC+1*, REC1+1, REC1+2, REC1+5, REC1+7, SEND+2, SENDN, SENDN+1 , SENDN+2 | 
| HLTRIED | CHKSEND+12*, CS1*, EX! | 
| >> HLTRIES | INIT+8*, CS1 | 
| >> HLTRM | INIT+11*, REC1, REC1+2 | 
| HLXMZ | CHKSEND+5*, CHKSEND+6, CHKSEND+8, CHKSEND+9, CHKSEND+10, CHKSEND+11, CHKSEND+12, CS1+4! | 
| IO | INIT+7, CHKREC+2, CHKREC+3 | 
| IO(0 | INIT+7, INIT+9, INIT+10, REC1, REC1+1, REC1+2, REC1+8, SEND+2, SENDN, SENDN+1 , SENDN+2 | 
| ION | INIT+6 | 
| IOP | INIT+5*, INIT+7*! | 
| >> IOT | INIT+2 | 
| >> POP | INIT+5, INIT+6, INIT+7 | 
| U | CHKSEND+3 | 
| X | INIT+5*, INIT+8!, INIT+11*, CSUM+1*, REC1*, REC1+1*, REC1+2*, REC1+6*, SEND+1~, SEND+2* , SENDN*, SENDN+1*, SENDN+2* | 
| >> X0 | CS1, CS1+2, REC1+1* | 
| >> X1 | CS1+2, REC1+2*, REC1+4*, REC1+5*, REC1+6 | 
| >> X2 | REC1+8* | 
| Y | CSUM+1, REC1, REC1+2, REC1+6, SEND+1~, SENDN+2 | 
| >> ZTSTOP | LOOP+1* |