Routine: HLCSDR2

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

Package

Total

Call Graph

Health Level Seven

($$CHKSUM,$$NEXTLINE)^HLCSUTL FILE^HLDIE

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

Package

Total

Caller Graph

Health Level Seven

HLCSDL HLCSDL1 HLCSDR1 HLCSIN HLCSMM1 HLCSOUT HLCSTCP1 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

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

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

Customize PDF page

Package: Health Level Seven

Routine: HLCSDR2

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: