©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm
Source file <HLOFILER.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERROR2 | ;
|
|
| ERROR3 | ;error trap for application context
|
|
| ERROR | ;error trap
|
|
| GETWORK(QUE) | ;
|
|
| DEQUE(MSGIEN,PURGE,ACKTOIEN) | ;
|
|
| ENDWORK | ;where the execution resumes upon an error
|
|
| DOWORK(QUEUE) | ;sends the messages on the queue
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSCH("TASK" | ERROR2+32 |
| ^HLA - [#777] | ERROR2+16 |
| ^HLB - [#778] | DEQUE+9, DEQUE+16, DEQUE+18*, DEQUE+19*, ERROR2+8, ERROR2+14*, ERROR2+18 |
| ^HLB("AD" | DEQUE+17*, DEQUE+18*, ERROR2+12!, ERROR2+15* |
| ^HLB("ERRORS" | ERROR2+24* |
| ^HLB("QUEUE" | GETWORK+17, GETWORK+18, GETWORK+20, GETWORK+21, GETWORK+23, GETWORK+24, DOWORK+8, DOWORK+11 |
| ^HLTMP("HL7 RUNNING PROCESSES" | ERROR2+35 |
| ^HLTMP("LOG ALL ERRORS" | ERROR+10 |
| ^TMP("HL7 ERRORS" | ERROR+6*, ERROR+7 |
| Name | Line Occurrences |
|---|---|
| DEQUE | DOWORK+15, ENDWORK+1, ERROR+3, ERROR2+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKTOIEN | DOWORK+9~, DOWORK+14*, DOWORK+15, DEQUE~, DEQUE+2, DEQUE+5~, DEQUE+7*, DEQUE+18 |
| ACTION | DOWORK+9~, DOWORK+12*, DOWORK+16, DOWORK+20 |
| CS | ERROR2+7~, ERROR2+21*, ERROR2+22 |
| DEQUE | DOWORK+3~, DOWORK+5*, DOWORK+17~, DEQUE+2*, DEQUE+3, DEQUE+20!* |
| DEQUE( | DEQUE+2*, DEQUE+4, DEQUE+6 |
| DUZ | DOWORK+17~ |
| FROM | GETWORK+9~, GETWORK+15*, GETWORK+16, GETWORK+17, GETWORK+18, GETWORK+19, GETWORK+20*, GETWORK+21, GETWORK+22, GETWORK+23* , GETWORK+24, GETWORK+25 |
| FS | ERROR2+7~, ERROR2+19*, ERROR2+20, ERROR2+22 |
| HDR | ERROR2+7~, ERROR2+18*, ERROR2+19, ERROR2+21, ERROR2+22 |
| HLMSGIEN | DOWORK+17~, DOWORK+19* |
| MCODE | DOWORK+9~, DOWORK+17~, DOWORK+20*, DOWORK+23 |
| MSGIEN | DOWORK+3~, DOWORK+6*, DOWORK+8*, DOWORK+11, DOWORK+15, DOWORK+19, DOWORK+21~, DEQUE~, DEQUE+2, DEQUE+3* , DEQUE+4*, DEQUE+6, DEQUE+8, DEQUE+9, DEQUE+16, DEQUE+17, DEQUE+19, ERROR2+8, ERROR2+12, ERROR2+14 , ERROR2+15, ERROR2+18, ERROR2+24, ERROR2+28~ |
| NODE | DOWORK+9~, DOWORK+11*, DOWORK+12, DOWORK+13, DOWORK+14, DEQUE+5~, DEQUE+6*, DEQUE+7, DEQUE+9*, DEQUE+10 , DEQUE+11*, DEQUE+14, DEQUE+15*, DEQUE+16*, DEQUE+17, DEQUE+18, DEQUE+19, ERROR2+7~, ERROR2+8*, ERROR2+9 , ERROR2+10, ERROR2+11*, ERROR2+12, ERROR2+13*, ERROR2+14, ERROR2+15, ERROR2+16 |
| PURGE | DOWORK+9~, DOWORK+13*, DOWORK+15, DEQUE~, DEQUE+2, DEQUE+5~, DEQUE+7*, DEQUE+12 |
| QUE | GETWORK~, DOWORK+3~, DOWORK+4*, DOWORK+8, DOWORK+9~ |
| QUE("FROM" | GETWORK+15, GETWORK+25* |
| QUE("QUEUE" | GETWORK+15, GETWORK+25* |
| QUE("SYSTEM" | GETWORK+10, GETWORK+13*, GETWORK+14* |
| QUEUE | GETWORK+9~, GETWORK+15*, GETWORK+16, GETWORK+17, GETWORK+18*, GETWORK+19, GETWORK+20, GETWORK+21*, GETWORK+23, GETWORK+24* , GETWORK+25, GETWORK+26, DOWORK~, DOWORK+4, DOWORK+8*, ERROR2+28~ |
| QUEUE("FROM" | DOWORK+8, DOWORK+11, DEQUE+8 |
| QUEUE("QUEUE" | DOWORK+8, DOWORK+11, DEQUE+8 |
| QUEUE("SYSTEM" | DEQUE+16, ERROR2+13 |
| RAPP | ERROR2+7~, ERROR2+22*, ERROR2+23*, ERROR2+24 |
| STATUS | DEQUE+13~, DEQUE+14*, DEQUE+15*, DEQUE+16 |
| SYS | GETWORK+11~, GETWORK+12 |
| SYS("ERROR PU | RGE" , GETWORK+14 |
| SYS("NORMAL P | URGE" , GETWORK+13 |
| TIME | ERROR2+7~, ERROR2+16*, ERROR2+17, ERROR2+24 |
| X | DOWORK+21~ |
| ZTSK | DOWORK+26~, ERROR2+28~, ERROR2+32, ERROR2+33 |