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* |