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

Package: Health Level Seven

Routine: HLCSDR2


Information

HLCSDR2 ;ALB/RJS - HYBRID LOWER LAYER PROTOCOL UTILITIES 2.2 - ;08/22/2001 11:23

Source Information

Source file <HLCSDR2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Health Level Seven 2 ($$CHKSUM,$$NEXTLINE)^HLCSUTL  FILE^HLDIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Health Level Seven 8 HLCSDL  HLCSDL1  HLCSDR1  HLCSIN  HLCSMM1  HLCSOUT  HLCSTCP4  HLTP01  

Entry Points

Name Comments DBIA/ICR reference
RJ(HLC,LENGTH) ;Function to stuff leading zeroes for checksums
TRACE ;When HLTRACE is instantiated this subroutine simply writes out the
SETNODE(HLD0,HLD1,CR) ;
CHKSUM1 ;
DUMP ;
TRANS(HLTOUT,HLTRANS) ; This function returns the state of the read operation.
; INPUT : HLTOUT - Data returned from read (Will contain TIMEOUT)
; HLTRANS - Variable passed by reference containing how
; the read was terminated.
; OUTPUT: HLTRANS - Translation of read termination.
CHKSUM ;
NAK(HLTRANS) ; Send NAK
ACK ; Send ACK
INITIZE ;Initialize Line counter and Checksum variables
SETNODE2 ;
WRITE(HLDOUT0,HLDOUT1) ; This function writes a message from the Logical
; Link file (#870) to the specified device in the following format:
; <Start Block><Data Block><End Block>
; The data block is the complete HL7 message terminated by a <CR>.
; INPUT : HLDOUT0 - IFN of file 870
; HLDOUT1 - IFN of Out Queue Multiple
; OUTPUT: None
MONITOR(VALUE,PIECE,HLD0,HLD1,QUEUE) ;
VALID1(FLAG,CHK,HLIND0,HLIND1) ;
FORMAT(HLC,LENGTH) ;Function to stuff leading zeroes for checksums

External References

Name Field # of Occurrence
$$CHKSUM^HLCSUTL WRITE+19
$$NEXTLINE^HLCSUTL WRITE+18
FILE^HLDIE MONITOR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: $G(HLCLN(I))
  • Line Location: WRITE+23
Function Call: WRITE
  • Prompt: X
  • Line Location: WRITE+35
Function Call: WRITE
  • Prompt: !,"HLTRANS=",HLTRANS
  • Line Location: TRANS+6
Function Call: WRITE
  • Prompt: X
  • Line Location: NAK+10
Function Call: WRITE
  • Prompt: X
  • Line Location: ACK+10
Function Call: WRITE
  • Prompt: !,"DUMP"
  • Line Location: DUMP+3
Function Call: WRITE
  • Prompt: !,"HLC1=",HLC1," ","HLBLOCK=",HLBLOCK
  • Line Location: DUMP+8
Function Call: WRITE
  • Prompt: !,"HLC2=",HLC2," ","HLXOR=",HLXOR
  • Line Location: DUMP+9
Function Call: WRITE
  • Prompt: !,"IN STATE ",HLNXST
  • Line Location: TRACE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LPC" CHKSUM+1, CHKSUM1+1
^HLCS(870 - [#870] SETNODE+1*, SETNODE+2*, MONITOR+3, MONITOR+4*, MONITOR+9*
^TMP("HLCSDR1" SETNODE2+1*

Label References

Name Line Occurrences
$$RJ WRITE+30, WRITE+31, NAK+6, NAK+7, ACK+6, ACK+7, VALID1+18
CHKSUM WRITE+13, NAK+5, ACK+5, VALID1+13, VALID1+14
CHKSUM1 WRITE+26, NAK+5, ACK+5, CHKSUM+2, VALID1+17
DUMP VALID1+17
INITIZE WRITE+10, NAK+2, ACK+2
MONITOR WRITE+28, VALID1+19
SETNODE VALID1+13
SETNODE2 VALID1+14, VALID1+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHK VALID1~, VALID1+16, VALID1+18
CR SETNODE~, SETNODE+2
FLAG VALID1~, VALID1+13, VALID1+14, VALID1+19, VALID1+20
HLBLOCK DUMP+6*, DUMP+8, VALID1+11~, VALID1+16*, VALID1+19, VALID1+22, VALID1+23
HLC FORMAT~, FORMAT+2, RJ~, RJ+4
>> HLC1 WRITE+20*, WRITE+28, WRITE+30*, WRITE+34, INITIZE+1*, NAK+6*, NAK+9, ACK+6*, ACK+9, DUMP+4*
, DUMP+8, CHKSUM+1*, VALID1+18, VALID1+19, VALID1+22, VALID1+23
>> HLC2 WRITE+20*, WRITE+28, WRITE+31*, WRITE+34, INITIZE+1*, NAK+7*, NAK+9, ACK+7*, ACK+9, DUMP+5*
, DUMP+9, CHKSUM+1*, CHKSUM+2, CHKSUM1+1*, VALID1+18, VALID1+19, VALID1+22, VALID1+24
HLCHK WRITE+9~, WRITE+19*, WRITE+20, WRITE+24!
HLCLN WRITE+9~, WRITE+24!
HLCLN( WRITE+23
HLCLN(1 WRITE+21
HLD0 SETNODE~, SETNODE+1, SETNODE+2, MONITOR~, MONITOR+3, MONITOR+4, MONITOR+7, MONITOR+9
HLD1 SETNODE~, SETNODE+1, SETNODE+2, MONITOR~, MONITOR+4, MONITOR+7, MONITOR+9
HLDATA NAK+1~, NAK+4*, NAK+9, ACK+1~, ACK+4*, ACK+9
>> HLDEND WRITE+34, TRANS+5, NAK+9, ACK+9
HLDOUT0 WRITE~, WRITE+7, WRITE+18
HLDOUT1 WRITE~, WRITE+7, WRITE+18, WRITE+28
>> HLDP WRITE+28, SETNODE2+1, VALID1+19
>> HLDSTRT WRITE+13, TRANS+5, NAK+4, ACK+4
>> HLDVER WRITE+13, NAK+4, ACK+4
HLIND0 VALID1~, VALID1+13
HLIND1 VALID1~, VALID1+13, VALID1+19
HLJ MONITOR+6~
HLJ( MONITOR+7*
>> HLLINE WRITE+18*, SETNODE+1*, SETNODE+2*, SETNODE2+1*, INITIZE+1*
>> HLNXST TRACE+3
HLTOUT TRANS~, TRANS+5
>> HLTRACE TRANS+6, DUMP+1, TRACE+2
HLTRANS TRANS~, TRANS+5*, TRANS+6, NAK~, NAK+4, VALID1+13
>> HLWFLG WRITE+16*, WRITE+21*
HLXOR DUMP+7*, DUMP+9, VALID1+11~, VALID1+16*, VALID1+19, VALID1+21, VALID1+22, VALID1+24
I WRITE+9~, WRITE+23*
IO WRITE+14, WRITE+35, NAK+10, ACK+10
IO(0 TRANS+6, DUMP+2, TRACE+3
LENGTH FORMAT~, FORMAT+2, RJ~, RJ+4
PIECE MONITOR~, MONITOR+4, MONITOR+5, MONITOR+9
QUEUE MONITOR~, MONITOR+5, MONITOR+9
U WRITE+20, MONITOR+4, MONITOR+9
VALUE MONITOR~, MONITOR+4, MONITOR+7, MONITOR+9
X WRITE+9~, WRITE+13*, WRITE+14, WRITE+34*, WRITE+35, SETNODE+1, SETNODE2+1, NAK+4*, NAK+9*, NAK+10
, ACK+4*, ACK+9*, ACK+10, CHKSUM+1, CHKSUM1+1*, VALID1+13, VALID1+14, VALID1+18*
>> Y CHKSUM+1, CHKSUM1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All