Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: HLCSUTL

Package: Health Level Seven

Routine: HLCSUTL


Information

HLCSUTL ;ALB/MTC - CS Utility Routines ;06/03/2008 11:57

Source Information

Source file <HLCSUTL.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
IFCAP 8 PRCHAAC2  PRCPHLP  PRCPHLQ  PRCPHLU  PRCVIMF  PRCVPOSD  PRCVRCG  PRCVVMF  
Health Level Seven 5 HLCSDL1  HLCSDL2  HLCSDR1  HLCSDR2  ^HLMA  
Clinical Information Resource Network 1 RGADTP  
Radiology Nuclear Medicine 1 RAHLACK  
Registration 1 DG53P951  

Entry Points

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
  • ICR #3099
    • Status: Active
    • Usage: Supported
    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
  • ICR #5548
    • Status: Active
    • Usage: Private
    MSG(HLMID,HLREST) ;return the message text in the reference HLREST
  • ICR #3099
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X#HLDBSIZE
    • Timeout: HLDHANG
    • Line Location: READ+13

    Global Variables Directly Accessed

    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+34, HLNEXT+36, HLNEXT+37, HLNEXT+38, 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

    Label References

    Name Line Occurrences
    READQ READ+13

    Naked Globals

    Name Field # of Occurrence
    ^( MSGSIZE+8, MSGSIZE+12, MSG+17, MSG+20
    ^(0 NEXTLINE+25, MSGSIZE+5

    Local Variables

    Legend:

    >> 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+36, HLNEXT+37*
    HLDONE1 HLNEXT+15, HLNEXT+18*, HLNEXT+20*, HLNEXT+24*, HLNEXT+43!
    HLI APPEND+7~, APPEND+9*, APPEND+10*, APPEND+11*, APPEND+12, APPEND+13*, APPEND+14*, APPEND+17, HLNEXT+9~, HLNEXT+25*
    , HLNEXT+28*, HLNEXT+34*, HLNEXT+38*, 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+34, HLNEXT+36, HLNEXT+37, HLNEXT+38
    HLNODE HLNEXT+8!, HLNEXT+10*, HLNEXT+25*, HLNEXT+34*
    HLNODE( HLNEXT+28*, HLNEXT+38*
    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+34, HLNEXT+36*, HLNEXT+37, HLNEXT+38, HLNEXT+40*
    HLQUIT2 HLNEXT+33~, HLNEXT+36*, HLNEXT+40
    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
    Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All