©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
HLCSUTL ;ALB/MTC - CS Utility Routines ;05/31/2000 13:34 [ 04/02/2003 8:38 AM ]
Source file <HLCSUTL.m>
| Package | Total | Caller Graph |
|---|---|---|
| Health Level Seven | 5 | ^HLMA HLCSDL1 HLCSDL2 HLCSDR1 HLCSDR2 |
| Radiology Nuclear Medicine | 1 | RAHLACK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FLD(NODE,FLD) | ;This function will return the value for the field
|
|
| READ(HLDHANG,HLDBSIZE,HLTRM) | ; This function will perform a read on the device and
; return the characters read and the termination character. |
|
| CHKSUM2(HLTEXT) | ; *** Add in <CR> *** This function will return the checksum for the segment
; contained in the array ARR. If no checksum can be calculated an -1 ; will be returned. |
|
| MSGSIZE(HLIENS) | ;return the number of characters in a message, TCP type only
|
|
| READQ | ||
| HLNEXT | ;-- This routine is used to return the next segment from file 772
; during processing of an inbound message. The following variables ; are used for the processing. ; HLMTIEN - Entry in 772 where message is ; HLQUIT - Curent ien of "IN" wp field ; HLNODE - Data is returned in HLNODE=Segment and HLNODE(n) if ; segmemt is greater than 245 chars. |
|
| APPEND(HLTEXT,LL0,LL1) | ; This function will append the data contained in
; the HLTEXT array into the IN queue multiple (LL1) of the Logical ; Link (LL0) file 870. ; INPUT : HLTEXT - Array containing text to append ; LL0 - IEN of File 870 ; LL1 - IEN of IN queue multiple |
|
| CHKSUM(HLTEXT) | ; This function will return the checksum for the segment
; contained in the array ARR. If no checksum can be calculated an -1 ; will be returned. |
|
| MSGLINE(HLMID) | ;return the number of lines in a message, TCP type only
|
|
| MSG(HLMID,HLREST) | ;return the message text in the reference HLREST
|
|
| NEXTLINE(LL0,LL1,LINE,ARR,QUE) | ; This function will return the next line from the
; Logical Link file #870 specified by LL0 and the position in the queue ; specified by QUE at the position LL1. This function will return the ; line in the array specifed by ARR. And the position in the WP ; field where the last part of the segment was found. ; Lastly a <CR> will be appended to the end of the segment |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("LPC" | CHKSUM+12, CHKSUM+14, CHKSUM+16, CHKSUM2+12, CHKSUM2+15, CHKSUM2+18 |
| ^%ZOSF("TRMRD" | READ+14 |
| ^HL(772 - [#772] | HLNEXT+30, HLNEXT+32, HLNEXT+33, HLNEXT+34, HLNEXT+35, MSGLINE+7, MSGSIZE+12, MSG+20 |
| ^HLCS(870 - [#870] | NEXTLINE+24, NEXTLINE+25, APPEND+9, APPEND+11*, APPEND+12*, APPEND+13*, APPEND+14*, APPEND+17* |
| ^HLMA - [#773] | HLNEXT+22, HLNEXT+25, HLNEXT+26, HLNEXT+27, HLNEXT+28, MSGLINE+6, MSGLINE+7, MSGSIZE+5, MSGSIZE+8, MSG+9 , MSG+17 |
| ^HLMA("B" | HLNEXT+16 |
| ^HLMA("C" | MSGLINE+5, MSG+8 |
| Name | Line Occurrences |
|---|---|
| READQ | READ+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MSGSIZE+8, MSGSIZE+12, MSG+17, MSG+20 |
| ^(0 | NEXTLINE+25, MSGSIZE+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | NEXTLINE~, NEXTLINE+24, NEXTLINE+25 |
| DT | APPEND+17 |
| FLD | FLD~, FLD+5, FLD+10, FLD+12 |
| >> HL("FS" | FLD+5, FLD+10, FLD+12 |
| HLCNT | MSGLINE+3~, MSGLINE+7*, MSGLINE+8, MSGSIZE+3~, MSGSIZE+6*, MSGSIZE+8*, MSGSIZE+10*, MSGSIZE+12*, MSGSIZE+13, MSG+6~ , MSG+15*, MSG+17*, MSG+18*, MSG+20* |
| HLDBSIZE | READ~, READ+13 |
| HLDHANG | READ~, READ+13 |
| HLDONE | HLNEXT+9~, HLNEXT+10*, HLNEXT+26, HLNEXT+27*, HLNEXT+33, HLNEXT+34* |
| HLDONE1 | HLNEXT+15, HLNEXT+18*, HLNEXT+20*, HLNEXT+24*, HLNEXT+37! |
| HLI | APPEND+7~, APPEND+9*, APPEND+10*, APPEND+11*, APPEND+12, APPEND+13*, APPEND+14*, APPEND+17, HLNEXT+9~, HLNEXT+25* , HLNEXT+28*, HLNEXT+32*, HLNEXT+35*, MSGSIZE+3~, MSGSIZE+6*, MSGSIZE+8*, MSGSIZE+12*, MSG+6~, MSG+15*, MSG+17* , MSG+20* |
| HLIEN | MSGLINE+3~, MSGLINE+6*, MSGLINE+7, MSGSIZE+3~, MSGSIZE+5*, MSGSIZE+12, MSG+6~, MSG+9*, MSG+20 |
| HLIENS | MSGLINE+3~, MSGLINE+5*, MSGLINE+6, MSGLINE+7, MSGSIZE~, MSGSIZE+2, MSGSIZE+5, MSGSIZE+8, MSG+6~, MSG+8* , MSG+9, MSG+17 |
| HLMID | MSGLINE~, MSGLINE+2, MSGLINE+5, MSG~, MSG+5, MSG+8 |
| >> HLMTIEN | HLNEXT+13, HLNEXT+16, HLNEXT+30, HLNEXT+32, HLNEXT+33, HLNEXT+34, HLNEXT+35 |
| HLNODE | HLNEXT+8!, HLNEXT+10*, HLNEXT+25*, HLNEXT+32* |
| HLNODE( | HLNEXT+28*, HLNEXT+35* |
| HLQUE | NEXTLINE+21~, NEXTLINE+22*, NEXTLINE+24, NEXTLINE+25 |
| >> HLQUIT | HLNEXT+11*, HLNEXT+13*, HLNEXT+15, HLNEXT+20*, HLNEXT+22*, HLNEXT+24*, HLNEXT+25, HLNEXT+26*, HLNEXT+27, HLNEXT+28 , HLNEXT+29*, HLNEXT+30*, HLNEXT+31, HLNEXT+32, HLNEXT+33*, HLNEXT+34, HLNEXT+35 |
| HLREST | MSG~, MSG+5, MSG+11, MSG+12, MSG+13, MSG+14!, MSG+17*, MSG+18, MSG+20 |
| HLTEXT | CHKSUM~, CHKSUM+11, CHKSUM+13, CHKSUM+14, CHKSUM2~, CHKSUM2+11, CHKSUM2+14, CHKSUM2+15, CHKSUM2+16, APPEND~ , APPEND+11, APPEND+12, APPEND+13 |
| HLTOUT | READ+11! |
| HLTRM | READ~, READ+14* |
| HLX | HLNEXT+9~, HLNEXT+16*, HLNEXT+18, HLNEXT+22, HLNEXT+25, HLNEXT+26, HLNEXT+27, HLNEXT+28 |
| HLZ | MSGSIZE+3~, MSGSIZE+6*, MSGSIZE+8*, MSGSIZE+10, MSGSIZE+12*, MSG+6~, MSG+15*, MSG+17*, MSG+18 |
| I | NEXTLINE+21~, NEXTLINE+24*, NEXTLINE+25*, FLD+6~, FLD+10*, FLD+12, CHKSUM+8~, CHKSUM2+8~ |
| IO | READ+13 |
| L | FLD+6~, FLD+7*, FLD+10*, FLD+12, FLD+13 |
| L1 | FLD+6~, FLD+10* |
| LEN | CHKSUM+8~, CHKSUM+9*, CHKSUM+11*, CHKSUM+14*, CHKSUM+17, CHKSUM2+8~, CHKSUM2+9*, CHKSUM2+11*, CHKSUM2+13*, CHKSUM2+15* , CHKSUM2+16*, CHKSUM2+19 |
| LINE | NEXTLINE~, NEXTLINE+24 |
| LL0 | NEXTLINE~, NEXTLINE+24, NEXTLINE+25, APPEND~, APPEND+9, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17 |
| LL1 | NEXTLINE~, NEXTLINE+24, NEXTLINE+25, APPEND~, APPEND+9, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17 |
| NODE | FLD~, FLD+5, FLD+7 |
| NODE( | FLD+10, FLD+12 |
| NODE(0 | FLD+7*, FLD+14! |
| QUE | NEXTLINE~, NEXTLINE+22 |
| RESULT | READ+9~, READ+13*, READ+15*, READQ, NEXTLINE+21~, NEXTLINE+22*, NEXTLINE+24*, NEXTLINE+27, CHKSUM+8~, CHKSUM+9* , CHKSUM+12*, CHKSUM+14*, CHKSUM+16*, CHKSUM+17, CHKSUM2+8~, CHKSUM2+9*, CHKSUM2+12*, CHKSUM2+13*, CHKSUM2+15*, CHKSUM2+16* , CHKSUM2+18*, CHKSUM2+19 |
| U | APPEND+9, MSGLINE+7 |
| X | READ+9~, READ+13*, READ+15, NEXTLINE+21~, NEXTLINE+24*, NEXTLINE+25, FLD+6~, FLD+7*, FLD+12*, FLD+15 , CHKSUM+8~, CHKSUM+11*, CHKSUM+14*, CHKSUM+16*, CHKSUM2+8~, CHKSUM2+11*, CHKSUM2+15*, CHKSUM2+18*, APPEND+7~, APPEND+8* , APPEND+11*, APPEND+12, APPEND+13 |
| X1 | CHKSUM+8~, CHKSUM+9*, CHKSUM+11*, CHKSUM+13, CHKSUM+14, CHKSUM2+8~, CHKSUM2+9*, CHKSUM2+11*, CHKSUM2+14, CHKSUM2+15 , CHKSUM2+16, APPEND+7~ |
| X2 | CHKSUM+8~, CHKSUM+11*, CHKSUM+13, CHKSUM2+8~, CHKSUM2+11*, CHKSUM2+13, CHKSUM2+14, APPEND+7~, APPEND+11*, APPEND+12 |
| X3 | CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM2+8~, CHKSUM2+14*, CHKSUM2+15, CHKSUM2+16, APPEND+7~, APPEND+12*, APPEND+13 |
| Y | READ+9~, READ+14, FLD+6~, FLD+7*, FLD+10, FLD+12, FLD+13*, CHKSUM+8~, CHKSUM+12, CHKSUM+14 , CHKSUM+16, CHKSUM2+8~, CHKSUM2+12, CHKSUM2+15, CHKSUM2+18 |