©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
HLCSQUE ;ALB/MFK HL7 UTILITY FUNCTIONS - 10/4/94 11AM ;05/08/2000 11:07 [ 04/02/2003 8:38 AM ]
Source file <HLCSQUE.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | ($$DELMSG,DELETE)^HLCSQUE1 |
| VA Fileman | 1 | FILE^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PUSHQ | ||
| EXIT1 | ; Unlock and return results
|
|
| ENQUEUE(IEN,HLDIR) | ;Assign a message for queue entry
; INPUT: IEN - Internal Entry Number for file 870 - HL7 QUEUE ; HLDIR - Direction of queue (IN/OUT) ; OUTPUT: BEG - Location in the queue to stuff the message ; -1 - Error ; NOTE: All the locks have been commented out. |
|
| EXIT2 | ;
|
|
| DEQUEUE(IEN,HLDIR) | ;Release the next message from the queue
|
|
| CLEARQUE(IEN,HLDIR) | ;Empty an entire queue
; IEN - Entry number for queue - can be name from "B" X-ref ; HLDIR - Can be "IN", "OUT", 1 or 2. ; output: 0 for success ; -1^error for error |
|
| PUSH(HLDOUT0,HLDOUT1) | ;-- Place message back on queue
; INPUT - HLDOUT0 IEN of file 870 ; HLDOUT1 IEN of Out Multiple ; OUTPUT- NONE |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(870 | ENQUEUE+27 |
| ^HLCS(870 - [#870] | ENQUEUE+11, ENQUEUE+18, ENQUEUE+19, ENQUEUE+20, ENQUEUE+22, ENQUEUE+23, ENQUEUE+31, ENQUEUE+36*, ENQUEUE+37*, EXIT1+1 , EXIT1+2, DEQUEUE+4, DEQUEUE+11, DEQUEUE+12, DEQUEUE+13, DEQUEUE+16, DEQUEUE+17, DEQUEUE+18, DEQUEUE+20*, EXIT2+1 , EXIT2+2, CLEARQUE+11, CLEARQUE+23, CLEARQUE+27*, CLEARQUE+28*, PUSH+8, PUSH+9* |
| Name | Line Occurrences |
|---|---|
| EXIT2 | DEQUEUE+17, DEQUEUE+18 |
| PUSHQ | PUSH+6, PUSH+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BACK | ENQUEUE+6~, ENQUEUE+23*, ENQUEUE+28, ENQUEUE+37, DEQUEUE+1~ |
| BP | ENQUEUE+6~, CLEARQUE+5~, CLEARQUE+18*, CLEARQUE+19*, CLEARQUE+28 |
| BPOINTER | ENQUEUE+6~, ENQUEUE+16*, ENQUEUE+17*, ENQUEUE+22, ENQUEUE+23, ENQUEUE+37, EXIT1+2 |
| DA | ENQUEUE+6~ |
| DA(1 | ENQUEUE+27* |
| DD | ENQUEUE+30! |
| DIC | ENQUEUE+6~, ENQUEUE+25* |
| DIC("P" | ENQUEUE+27* |
| DIC(0 | ENQUEUE+27* |
| DINUM | ENQUEUE+6~, ENQUEUE+28* |
| DO | ENQUEUE+30! |
| ENTRY | ENQUEUE+6~, ENQUEUE+26*, ENQUEUE+27 |
| ERR | CLEARQUE+5~, CLEARQUE+24*, CLEARQUE+25 |
| FP | ENQUEUE+6~, DEQUEUE+1~, CLEARQUE+5~, CLEARQUE+18*, CLEARQUE+19*, CLEARQUE+27 |
| FPOINTER | ENQUEUE+7~, ENQUEUE+16*, ENQUEUE+17*, ENQUEUE+18, ENQUEUE+19, ENQUEUE+20 |
| FRONT | ENQUEUE+6~, ENQUEUE+19*, ENQUEUE+21, DEQUEUE+1~, DEQUEUE+12*, DEQUEUE+14, DEQUEUE+16, DEQUEUE+17, DEQUEUE+18, DEQUEUE+20 , DEQUEUE+21, EXIT2+1 |
| HLCNT | ENQUEUE+7~, ENQUEUE+32* |
| HLDIR | ENQUEUE~, ENQUEUE+13*, ENQUEUE+14*, ENQUEUE+15, ENQUEUE+16*, ENQUEUE+17*, ENQUEUE+21, ENQUEUE+25, ENQUEUE+26, ENQUEUE+31 , ENQUEUE+36, EXIT1+1, EXIT1+3!, DEQUEUE~, DEQUEUE+6*, DEQUEUE+7*, DEQUEUE+8, DEQUEUE+9*, DEQUEUE+10*, DEQUEUE+14 , DEQUEUE+16, DEQUEUE+17, DEQUEUE+18, EXIT2+1, CLEARQUE~, CLEARQUE+14*, CLEARQUE+15, CLEARQUE+16*, CLEARQUE+18, CLEARQUE+19 , CLEARQUE+23, CLEARQUE+24 |
| HLDOUT0 | PUSH~, PUSH+6, PUSH+8, PUSH+9 |
| HLDOUT1 | PUSH~, PUSH+6, PUSH+9 |
| IEN | ENQUEUE~, ENQUEUE+9*, ENQUEUE+10, ENQUEUE+11*, ENQUEUE+12, ENQUEUE+18, ENQUEUE+19, ENQUEUE+20, ENQUEUE+21, ENQUEUE+22 , ENQUEUE+23, ENQUEUE+25, ENQUEUE+27, ENQUEUE+31, ENQUEUE+36, ENQUEUE+37, ENQUEUE+39, EXIT1+1, EXIT1+2, EXIT1+3! , DEQUEUE~, DEQUEUE+2*, DEQUEUE+3, DEQUEUE+4*, DEQUEUE+5, DEQUEUE+11, DEQUEUE+12, DEQUEUE+13, DEQUEUE+14, DEQUEUE+16 , DEQUEUE+17, DEQUEUE+18, DEQUEUE+20, DEQUEUE+21, EXIT2+1, EXIT2+2, CLEARQUE~, CLEARQUE+9*, CLEARQUE+10, CLEARQUE+11* , CLEARQUE+12, CLEARQUE+23, CLEARQUE+24, CLEARQUE+27, CLEARQUE+28 |
| MSG | DEQUEUE+1~, CLEARQUE+5~, CLEARQUE+20*, CLEARQUE+23*, CLEARQUE+24 |
| POINTER | DEQUEUE+1~, DEQUEUE+9*, DEQUEUE+10*, DEQUEUE+11, DEQUEUE+12, DEQUEUE+13, DEQUEUE+20, EXIT2+2 |
| REC | ENQUEUE+6~, ENQUEUE+34*, ENQUEUE+36, ENQUEUE+39 |
| RETURN | ENQUEUE+6~, ENQUEUE+39*, EXIT1+4, DEQUEUE+1~, DEQUEUE+17*, DEQUEUE+18*, DEQUEUE+21*, EXIT2+3 |
| X | ENQUEUE+6~, ENQUEUE+28*, CLEARQUE+5~ |
| Y | ENQUEUE+6~, ENQUEUE+32, ENQUEUE+34 |