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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: HLCSTCP2

Package: Health Level Seven

Routine: HLCSTCP2


Information

HLCSTCP2 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/04/2011 16:27

Source Information

Source file <HLCSTCP2.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Health Level Seven 10 $$PARAM^HLCS2  DEQUE^HLCSREP  ($$STOP,LLCNT,MON)^HLCSTCP  $$READ^HLCSTCP1  OPENA^HLCSTCP3  (ERROR,RDERR)^HLCSTCP4  STATUS^HLTF0  $$MSA^HLTP3  
$$RSP^HLTP31  $$P^HLTPCK2  
Kernel 4 CLOSE^%ZISTCP  $$OS^%ZOSV  ($$HTE,$$NOW)^XLFDT  SETUP^XQALERT  

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: 5

Package Total Caller Graph
Health Level Seven 5 HLCSTCP  HLCSTCP3  HLCSTCP4  HLMA2  HLTP3  

Entry Points

Name Comments DBIA/ICR reference
CC(X) ;cleanup and close
CHKMSG(HLI) ;check status of message and update if not cancelled
DONE(ST,ERR,ERRMSG) ;set status to complete
OPEN() ; -- Open TCP/IP device (Client)
WRITE(HLDA) ; write message in HL7 format
; HLDA - ien of message in 773
; - start block $C(11)
; - end block $C(28)
; - record separator $C(13)
QUE ; -- Check "OUT" queue for processing IF there is a message do it
; and then check the link if it open or not
RDERR
ERROR
EXIT
DCSEND ;direct connect
; Set up error trap

External References

Name Field # of Occurrence
CLOSE^%ZISTCP HLCSTCP2+34, QUE+104, DCSEND+31, CC+2
$$OS^%ZOSV HLCSTCP2+16
$$PARAM^HLCS2 QUE+41
DEQUE^HLCSREP DONE+4, CHKMSG+10
$$STOP^HLCSTCP HLCSTCP2+20, HLCSTCP2+21, HLCSTCP2+29, HLCSTCP2+31
LLCNT^HLCSTCP QUE+17, QUE+29, QUE+63, QUE+79, QUE+101, DCSEND+12, DCSEND+16
MON^HLCSTCP HLCSTCP2+23, HLCSTCP2+26, HLCSTCP2+32, QUE+4, QUE+35, QUE+52, DCSEND+28, CC+1
$$READ^HLCSTCP1 QUE+98, DCSEND+21
OPENA^HLCSTCP3 OPEN+10
ERROR^HLCSTCP4 ERROR
RDERR^HLCSTCP4 RDERR
STATUS^HLTF0 QUE+50, DCSEND+11, DONE+2, CHKMSG+8, CHKMSG+21
$$MSA^HLTP3 QUE+73
$$RSP^HLTP31 QUE+106
$$P^HLTPCK2 QUE+69, QUE+71, QUE+75
$$HTE^XLFDT QUE+42
$$NOW^XLFDT QUE+56, QUE+60, QUE+112, DCSEND+9, DCSEND+15, DCSEND+25
SETUP^XQALERT QUE+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: WRITE+23
Function Call: WRITE
  • Prompt: X,!
  • Line Location: WRITE+28
Function Call: WRITE
  • Prompt: X1,@IOF
  • Line Location: WRITE+42
Function Call: WRITE
  • Prompt: X1,@HLTCPLNK("IOF")
  • Line Location: WRITE+43
Function Call: WRITE
  • Prompt: X,@HLTCPLNK("IOF")
  • Line Location: WRITE+47
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: WRITE+49
Function Call: WRITE
  • Prompt: @HLTCPLNK("IOF")
  • Line Location: WRITE+51
Function Call: WRITE
  • Prompt: X,!
  • Line Location: WRITE+55
Function Call: WRITE
  • Prompt: X,@HLTCPLNK("IOF")
  • Line Location: WRITE+56

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" HLCSTCP2+15, HLCSTCP2+16, OPEN+8
^HL(772 - [#772] QUE+23, QUE+25
^HLCS(870 - [#870] QUE+42, QUE+49*
^HLMA - [#773] QUE+8, QUE+23, QUE+31, QUE+56*, QUE+60*, QUE+65*, QUE+67, QUE+73, QUE+77, QUE+112*
, DCSEND+9*, DCSEND+15*, DCSEND+25*, CHKMSG+6, CHKMSG+18, WRITE+14, WRITE+16, WRITE+19
^HLMA("AC" HLCSTCP2+29, QUE+6, QUE+14, QUE+15!, QUE+16, DONE+7
^ORD(101 - [#101] QUE+77

Label References

Name Line Occurrences
$$CHKMSG QUE+29, QUE+63
$$OPEN HLCSTCP2+20, QUE+51
$$WRITE QUE+57, DCSEND+10
DONE QUE+82, QUE+116, QUE+119, QUE+123, QUE+127, DCSEND+26
EXIT HLCSTCP2+20
QUE HLCSTCP2+21

Naked Globals

Name Field # of Occurrence
^( WRITE+24
^("MSH" QUE+8
^("P" QUE+65

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HLCSTCP2+27~, HLCSTCP2+29*
COUNT QUE+24~, QUE+25*
CRCOUNT WRITE+8~, WRITE+9*, WRITE+47*, WRITE+49*, WRITE+51*
ERR DONE~, DONE+2
ERRMSG DONE~, DONE+2
HL QUE+2~
HLAR WRITE+8~, WRITE+21*, WRITE+23*, WRITE+24
HLARR QUE+2~
>> HLCSOUT HLCSTCP2+21, HLCSTCP2+30*, QUE+47*
HLDA WRITE~, WRITE+14, WRITE+16, WRITE+19
HLDA2 WRITE+8~, WRITE+16*
HLDBACK QUE+95~*, DCSEND+6~*
HLDOM OPEN+9~
>> HLDP HLCSTCP2+10, HLCSTCP2+29, QUE+6, QUE+14, QUE+15, QUE+16, QUE+17, QUE+29, QUE+42, QUE+49
, QUE+63, QUE+79, QUE+101, DCSEND+12, DCSEND+16, DONE+4, DONE+7, CHKMSG+10
>> HLDRETR QUE+34
>> HLDRETR("CLOSE" QUE+104
>> HLDWAIT QUE+85
>> HLERROR DCSEND+10, DCSEND+11, DCSEND+26, DCSEND+27, DCSEND+29*, CHKMSG+7*, CHKMSG+8, WRITE+15*
HLHDR QUE+2~
HLI QUE+2~, QUE+8*, QUE+13, QUE+23, QUE+25, CHKMSG~, CHKMSG+21, WRITE+8~, WRITE+21*, WRITE+23*
, WRITE+24*, OPEN+9~
HLIP OPEN+9~
HLJ QUE+2~, QUE+8*, QUE+13, QUE+67!*, QUE+69, QUE+71, QUE+75
HLJ(1 QUE+75
HLMSA QUE+2~
HLMSG HLCSTCP2+8~, HLCSTCP2+10*, HLCSTCP2+21, QUE+6*, QUE+8, QUE+14, QUE+15, QUE+16, QUE+18*, QUE+23
, QUE+29*, QUE+31, QUE+50, QUE+56, QUE+57, QUE+60, QUE+61, QUE+63*, QUE+65, QUE+67
, QUE+73, QUE+77, QUE+112, DCSEND+9, DCSEND+10, DCSEND+11, DCSEND+15, DCSEND+25, DONE+2, DONE+4
, DONE+7*, CHKMSG+6, CHKMSG+8, CHKMSG+10, CHKMSG+18, CHKMSG+21
HLN QUE+2~, QUE+106
HLN("ACAT" QUE+71*, QUE+73*, QUE+75*, QUE+81
HLN("ACKTIME" QUE+65*, QUE+95
HLN("APAT" QUE+71*, QUE+73*, QUE+75*, QUE+81, QUE+115
HLN("ECH" QUE+69*
HLN("EID" QUE+77*
HLN("MID" QUE+71*, QUE+75*
HLN("SAN" QUE+69*
HLN("TYPE" QUE+71*, QUE+75
>> HLOS OPEN+8
>> HLP("ACKTIME" DCSEND+6
HLPORT HLCSTCP2+8~, HLCSTCP2+34!, QUE+104!, DCSEND+31!, OPEN+3, CC+2!
HLPORTA OPEN+9~
>> HLPRIO DONE+7
HLREREAD QUE+2~, QUE+92, QUE+93*, QUE+102*, QUE+113*, QUE+125*, QUE+127*
HLRESLT QUE+2~, QUE+123
HLRESP QUE+2~, QUE+98*, QUE+100, QUE+106, DCSEND+21*, DCSEND+26, DCSEND+29
HLRETMG HLCSTCP2+8~, HLCSTCP2+10*, QUE+37, QUE+41*
>> HLRETRA QUE+34, QUE+37, QUE+42, QUE+45, QUE+49
HLRETRM QUE+2~, QUE+31*, QUE+61*, QUE+65
HLRETRY HLCSTCP2+8~, HLCSTCP2+10*, QUE+6*, QUE+34, QUE+61*, DONE+7*
HLTCP QUE+2~, QUE+8*, QUE+61*
HLTCPI QUE+2~, QUE+61*
>> HLTCPLNK HLCSTCP2+20, HLCSTCP2+25
>> HLTCPLNK("IOF" WRITE+43, WRITE+47, WRITE+51, WRITE+56
HLTCPO HLCSTCP2+8~, HLCSTCP2+10*
>> HLTCPRET HLCSTCP2+29
HLTMBUF QUE+3~, DCSEND+4~
IO WRITE+22, WRITE+56, WRITE+58, OPEN+3*, OPEN+4
IO(0 HLCSTCP2+16*, HLCSTCP2+17, WRITE+58
LENGTH WRITE+29~, WRITE+30*, WRITE+34, WRITE+37, WRITE+40*
LINENO WRITE+8~, WRITE+21*, WRITE+26, WRITE+52*
POP HLCSTCP2+8~
ST DONE~, DONE+2
U QUE+31, QUE+41, QUE+42, QUE+49, QUE+65, QUE+77, QUE+123, CHKMSG+8
X QUE+2~, QUE+75*, QUE+77*, QUE+106*, QUE+108, QUE+113, QUE+122, CHKMSG+3~, CHKMSG+18*, CHKMSG+21
, WRITE+8~, WRITE+24*, WRITE+26*, WRITE+30, WRITE+39*, WRITE+40, WRITE+47, WRITE+49, WRITE+54*, WRITE+56
, CC~, CC+1
X1 WRITE+35~, WRITE+39*, WRITE+43
XQA QUE+39~
XQA("G." QUE+42*
XQAID QUE+39~
XQAMSG QUE+39~, QUE+42*
XQAOPT QUE+39~
XQAROU QUE+39~
Z QUE+2~, QUE+39~, QUE+41*, QUE+42, QUE+73*, QUE+75*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All