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

Package: Health Level Seven

Routine: HLOTRACE


Information

HLOTRACE ;OIFO-OAK/PIJ/CJM - HLO CLIENT TRACE Tool ; 03/07/2011

Source Information

Source file <HLOTRACE.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Health Level Seven 6 DOWORK^HLOCLNT  CLOSE^HLOT  (WRITE,WRITE2,WRITE3)^HLOTRACE  $$ASKLINK^HLOUSR  $$ASKYESNO^HLOUSR2  $$ASKPORT^HLOUSRA  
Kernel 4 $$VERSION^%ZOSV  ^%ZTER  $$NOW^XLFDT  OWNSKEY^XUSRB  
VA FileMan 1 ^DIR  

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 HLO CLIENT TRACE  HLOSTRAC  HLOTRACE  HLOUSR7  

Entry Points

Name Comments DBIA/ICR reference
START ;
SETBREAKS ;
WRITE(MSG) ;
WRITE2(MSG,VALUE) ;
WRITE3(MSG) ;
ZB3 ;
ZB4 ;
ZB2 ;
ZB8 ;
ZB9 ;
ZB10 ;
ZB11 ;
ZB12 ;
ZB13
ZB14 ;
ZB15
ZB16 ;
ZB17
ZB18 ;
ZB19
ZB20 ;
ZB21 ;
ZB22 ;
ZB23 ;
ZB24 ;S HLOCSTATE("CONNECTED")=1
ZB32
ASKQUE(SUB) ;
ASKCOUNT() ;
ASKPORT(LINK) ;

External References

Name Field # of Occurrence
$$VERSION^%ZOSV START+7
^%ZTER ZB3+7
^DIR ASKQUE+15, ASKCOUNT+7
DOWORK^HLOCLNT START+27
CLOSE^HLOT START+28
WRITE^HLOTRACE ZB3+4, ZB8+1, ZB9+2, ZB9+4, ZB10+1, ZB11+2, ZB12+1, ZB13+1, ZB15, ZB17
, ZB18+1, ZB19, ZB20+1, ZB21+1, ZB22+1, ZB23+1, ZB32, ZB32+4
WRITE2^HLOTRACE ZB11+1, ZB13, ZB14+1, ZB16+1
WRITE3^HLOTRACE ZB3+6, ZB32+1, ZB32+2, ZB32+3
$$ASKLINK^HLOUSR START+10
$$ASKYESNO^HLOUSR2 ZB4+10, ZB4+14
$$ASKPORT^HLOUSRA ASKPORT+9
$$NOW^XLFDT WRITE+4, WRITE2+4
OWNSKEY^XUSRB START+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ must be set!"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!," Sorry, you are not authorized to use this tool.",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"That queue is currently being processed. You need to either stop that link,",!,"stop that queue, or totally stop HLO so that this tool can be used."
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !,"There are no messages pending on that queue!"
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,"DONE!"
  • Line Location: START+33
Function Call: WRITE
  • Prompt: !,?5,"Time: ",$$NOW^XLFDT," ",MSG
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,?5,"Time: ",$$NOW^XLFDT," ",MSG
  • Line Location: WRITE2+4
Function Call: WRITE
  • Prompt: VALUE(I)
  • Line Location: WRITE2+7
Function Call: WRITE
  • Prompt: !,MSG
  • Line Location: WRITE3+4
Function Call: WRITE
  • Prompt: !!,"Looking for the next message to transmit..."
  • Line Location: ZB4+4
Function Call: WRITE
  • Prompt: !!,"No more messages pending on that queue!"
  • Line Location: ZB4+5
Function Call: WRITE
  • Prompt: !,"There are no outgoing messages queued to that link!",!
  • Line Location: ASKQUE+3
Routine Call
  • DIR
  • Line Location:
    • ASKQUE+15
    • ASKCOUNT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLB("QUEUE" START+18, START+21, START+31, ASKQUE+2, ASKQUE+4, ASKQUE+7, ASKPORT+3, ASKPORT+7

Label References

Name Line Occurrences
$$ASKCOUNT START+23
$$ASKPORT START+12
$$ASKQUE START+15
SETBREAKS START+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUF ZB32+2, ZB32+4
CON ZB3+1~, ZB3+2*, ZB3+5
CONF START+1~, START+3
CONF(0 START+4
DIR ASKQUE+1~, ASKCOUNT+1~
DIR("?" ASKQUE+13*, ASKQUE+14*, ASKCOUNT+5*, ASKCOUNT+6*
DIR("A" ASKQUE+12*, ASKCOUNT+3*
DIR("B" ASKQUE+6*, ASKQUE+8*, ASKQUE+10*, ASKCOUNT+4*
DIR(0 ASKQUE+11*, ASKCOUNT+2*
>> DIRUT ASKQUE+16
>> DTOUT ASKCOUNT+8
>> DUOUT ASKCOUNT+8
DUZ START+2, START+3
>> HDR ZB11+1, ZB16+1
HLCSTATE START+9~, START+28
HLCSTATE("CONNECTED" START+28, ZB2+1
HLCSTATE("LINK" ZB24+1*
HLCSTATE("MES SAGE ENDED" , ZB13+1
HLMSTATE START+9~
I WRITE2+1~, WRITE2+5*, WRITE2+7*
LINK START+9~, START+10*, START+11, START+12, START+14, ASKPORT~, ASKPORT+1, ASKPORT+3, ASKPORT+4, ASKPORT+8
, ASKPORT+9
MAXTRACE START+9~, START+23*, START+24, ZB4+7, ZB4+9
MSG WRITE~, WRITE+4, WRITE2~, WRITE2+4, WRITE3~, WRITE3+4, ZB3+1~, ZB3+3*, ZB3+4, ZB3+5*
, ZB3+6
>> MSGIEN ZB4+5, ZB4+8, ZB4+14
OLD START+9~, WRITE+1~, WRITE+2*, WRITE+5, WRITE2+1~, WRITE2+2*, WRITE2+8, WRITE3+1~, WRITE3+2*, WRITE3+5
, ZB4+1~, ZB4+2*, ZB4+15
PORT START+9~, START+12*, START+13, START+14, ASKPORT+2~, ASKPORT+5*, ASKPORT+6, ASKPORT+8, ASKPORT+9*, ASKPORT+10
Q1 ASKQUE+1~, ASKQUE+2*, ASKQUE+3, ASKQUE+4, ASKQUE+6, ASKQUE+10
Q2 ASKQUE+1~, ASKQUE+4*, ASKQUE+5
QUE START+9~, START+15*, START+16, START+18, START+21, START+25, START+31
QUEUE ASKPORT+2~, ASKPORT+3*, ASKPORT+4, ASKPORT+5, ASKPORT+7*, ASKPORT+8
>> RETURN ZB13+1, ZB15, ZB19, ZB32, ZB32+1, ZB32+2, ZB32+3, ZB32+4
>> SEG ZB13, ZB14+1
SUB START+9~, START+14*, START+15, START+18, START+21, START+25, START+31, ASKQUE~, ASKQUE+2, ASKQUE+4
, ASKQUE+7
>> SUCCESS ZB4+5*, ZB4+10*, ZB4+11*, ZB4+12*, ZB4+14*, ZB9+1, ZB11+2, ZB17
TRACECNT START+9~, START+22*, ZB4+6*, ZB4+9, ZB4+10*
VALUE WRITE2~
VALUE( WRITE2+7
VALUE(0 WRITE2+6
WORK START+9~, START+27
WORK("LINK" START+25*
WORK("QUEUE" START+25*
>> X ASKCOUNT+9
>> Y ASKQUE+16, ASKQUE+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All