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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: HLCSTCP4

Package: Health Level Seven

Routine: HLCSTCP4


Information

HLCSTCP4 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/03/2011 13:29

Source Information

Source file <HLCSTCP4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Health Level Seven 5 MONITOR^HLCSDR2  ($$STOP,EXITM,LLCNT,MON)^HLCSTCP  (CC,CLEAN,SAVE)^HLCSTCP1  CC^HLCSTCP2  ($$MAID,TCP)^HLTF  
Kernel 4 ($$EC,$$OS)^%ZOSV  (,UNWIND)^%ZTER  DUZ^XUP  (H2,KILL)^XUSCLEAN  

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

Package Total Caller Graph
Health Level Seven 4 HLCSIN  HLCSTCP1  HLCSTCP2  HLPAT122  

Entry Points

Name Comments DBIA/ICR reference
RDERR ; Error during read process, decrement counter
ERROR ; Error trap
; OPEN ERROR-retry.
; WRITE ERROR (SERVER DISCONNECT)-close channel, retry
PROXY ; set DUZ for application proxy user
HLDUZ ; compare DUZ and set DUZ to application proxy user
HLDUZ2 ; compare DUZ and HLDUZ
CLEANVAR ; clean variables for server, called from HLCSTCP1
MIEN ; sets HLIND1=ien in 773^ien in 772 for message
PMSH(MSH,P) ;get piece P from MSH array (passed by ref.)
ERROR1 ;
; moved from ERROR^HLCSTCP1
; Error trap for disconnect error and return back to the read loop.
; patch HL*1.6*122 start
; patch HL*1.6*140
; S $ETRAP="D HALT^ZU" ;RWF
CLRMCNTR ;
; clear the counter to set as "0 server" for multi-listener
; HL*1.6*122 start
CREATUSR ;
; patch HL*1.6*122 TEST v2: DUZ code removed
; create application proxy users for listeners and incoming filer

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+26, ERROR+28, ERROR+36, ERROR+53, ERROR1+19, ERROR1+27, ERROR1+31, ERROR1+37
$$OS^%ZOSV ERROR+17, ERROR1+9
^%ZTER ERROR+44, ERROR+46, ERROR+61, ERROR+63, ERROR+70, ERROR1+50
UNWIND^%ZTER ERROR+33, ERROR+41, ERROR+49, ERROR+58, ERROR+66, ERROR+74, ERROR1+30, ERROR1+34, ERROR1+40, ERROR1+46
, ERROR1+55
MONITOR^HLCSDR2 MIEN+28
$$STOP^HLCSTCP ERROR+10
EXITM^HLCSTCP ERROR1+21
LLCNT^HLCSTCP RDERR+1
MON^HLCSTCP MIEN+28
CC^HLCSTCP1 ERROR1+29, ERROR1+33, ERROR1+39, ERROR1+45, ERROR1+52
CLEAN^HLCSTCP1 MIEN+26
SAVE^HLCSTCP1 MIEN+19, MIEN+33
CC^HLCSTCP2 ERROR+29, ERROR+32, ERROR+40, ERROR+44, ERROR+46, ERROR+48, ERROR+57, ERROR+61, ERROR+63, ERROR+65
, ERROR+73, ERROR+77, ERROR+80
$$MAID^HLTF MIEN+18
TCP^HLTF MIEN+21
DUZ^XUP HLDUZ2+3
H2^XUSCLEAN ERROR+28, ERROR+36, ERROR+53, ERROR+78, ERROR+82, ERROR1+23
KILL^XUSCLEAN CLEANVAR+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] MIEN+4, MIEN+17
^HLCS(870 - [#870] ERROR1+21, ERROR1+29, ERROR1+33, ERROR1+39, ERROR1+45, ERROR1+52, CLRMCNTR+4, CLRMCNTR+5*, CLRMCNTR+6*
^HLMA - [#773] MIEN+3, MIEN+13, MIEN+14!, MIEN+15, MIEN+30

Label References

Name Line Occurrences
$$PMSH MIEN+6

Naked Globals

Name Field # of Occurrence
^("IN" MIEN+17!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLEANVAR+14~
DUZ HLDUZ2+1, HLDUZ2+2*, HLDUZ2+3, CLEANVAR+19~
FS PMSH+1~, PMSH+2*, PMSH+3, PMSH+5
HLASTMSG CLEANVAR+17~
>> HLBUFF("HLIND1" MIEN+31*
>> HLBUFF("IEN773" MIEN+22*
HLCSFAIL CLEANVAR+6~
HLCSOUT CLEANVAR+5~, ERROR1+49*
HLDBACK CLEANVAR+5~
HLDBSIZE CLEANVAR+5~
HLDP RDERR+1, ERROR+10, CLEANVAR+4~, MIEN+28, ERROR1+21, ERROR1+29, ERROR1+33, ERROR1+39, ERROR1+45, ERROR1+52
, CLRMCNTR+3, CLRMCNTR+4, CLRMCNTR+5, CLRMCNTR+6
HLDREAD CLEANVAR+5~
HLDRETR CLEANVAR+5~
>> HLDT MIEN+21
HLDUZ HLDUZ2+1, HLDUZ2+2, CLEANVAR+19~
HLDWAIT CLEANVAR+5~
>> HLERROR ERROR+30*, ERROR+39*, ERROR+56*, ERROR+72*
>> HLIND1 MIEN+2, MIEN+3*, MIEN+4*, MIEN+9, MIEN+13, MIEN+14, MIEN+15, MIEN+17, MIEN+18, MIEN+19
, MIEN+20*, MIEN+30*, MIEN+31, MIEN+33
HLLSTN CLEANVAR+11~, MIEN+26!
HLMID MIEN+1~, MIEN+6*, MIEN+18, MIEN+21
HLMIEN CLEANVAR+17~
>> HLMSG MIEN+6, MIEN+19, MIEN+33
>> HLMSG(1 MIEN+6
HLOS CLEANVAR+5~
HLOSYS ERROR+16~, ERROR+17*, ERROR+19, ERROR1+8~, ERROR1+9*, ERROR1+11
>> HLPRIO ERROR+30, ERROR+38, ERROR+55, ERROR+71
HLRETRA CLEANVAR+5~
>> HLTCP("$ZA" ERROR+21*, ERROR1+13*
>> HLTCP("$ZA\8192#2" ERROR+13*, ERROR+24*, ERROR+36, ERROR+46, ERROR+53, ERROR+63, ERROR1+16*, ERROR1+19
HLTCPADD CLEANVAR+6~
HLTCPCS CLEANVAR+6~
>> HLTCPERR("ERR-$ZE" ERROR+26*
HLTCPLNK CLEANVAR+6~
HLTCPORT CLEANVAR+6~
HLTCPRET CLEANVAR+6~
HLTMBUF CLEANVAR+18~
HLZRULE CLEANVAR+6~
I PMSH+1~, PMSH+3*, PMSH+5
L PMSH+1~, PMSH+3*, PMSH+4*, PMSH+5, PMSH+6
L1 PMSH+1~, PMSH+3*, PMSH+4
L2 PMSH+1~, PMSH+2*, PMSH+5, PMSH+6*
MSH PMSH~
MSH( PMSH+3, PMSH+5
MSH(1 PMSH+2
P PMSH~, PMSH+5
STOP ERROR+8~, ERROR+9*, ERROR+10*, ERROR+28, ERROR+31, ERROR+33, ERROR+36, ERROR+43, ERROR+53, ERROR+60
, ERROR+76
U MIEN+4, MIEN+17, MIEN+20, MIEN+30, CLRMCNTR+6
X MIEN+1~, MIEN+6*, MIEN+18*, MIEN+21, MIEN+22, MIEN+23, MIEN+30, PMSH+1~, PMSH+2*, PMSH+3
, PMSH+5*, PMSH+7
Y PMSH+1~, PMSH+2*, PMSH+3, PMSH+5, PMSH+6*
ZISOS CLEANVAR+21~
ZRULE CLEANVAR+21~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All