HLCSUTL ;ALB/MTC - CS Utility Routines ;06/03/2008 11:57
Source file <HLCSUTL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
IFCAP | 8 | PRCHAAC2 PRCPHLP PRCPHLQ PRCPHLU PRCVIMF PRCVPOSD PRCVRCG PRCVVMF |
Clinical Information Resource Network | 1 | RGADTP |
Radiology Nuclear Medicine | 1 | RAHLACK |
Registration | 1 | DG53P951 |
Name | Comments | DBIA/ICR reference |
---|---|---|
READ(HLDHANG,HLDBSIZE,HLTRM) | ; This function will perform a read on the device and
; return the characters read and the termination character. |
|
READQ | ||
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 |
|
FLD(NODE,FLD) | ;This function will return the value for the field
|
|
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. |
|
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. |
|
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 |
|
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. |
|
MSGLINE(HLMID) | ;return the number of lines in a message, TCP type only
|
|
MSGSIZE(HLIENS) | ;return the number of characters in a message, TCP type only
|
|
MSG(HLMID,HLREST) | ;return the message text in the reference HLREST
|
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|