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

Package: Health Level Seven

Routine: HLEVUTI1


Information

HLEVUTI1 ;OIFO-O/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Source Information

Source file <HLEVUTI1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ENDR^%ZISS  DOLRO^%ZOSV  ($$FMADD,$$FMTE,$$HTFM,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
Health Level Seven 2 $$YN^HLCSRPT4  $$ASKIEN^HLEVREP  
VA FileMan 2 ^DIC  ^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: 1

Package Total Caller Graph
Health Level Seven 1 HLEVUTI0  

Entry Points

Name Comments DBIA/ICR reference
CTRL ;
CTRL0
CTRL1
SHOWHD(LNM,L870) ; Show summary information...
CT()
PHD(HD,DATA) ;
HD(HD) ;
LINK()
QUEUES
LNM(L870)
ASKNO(LNM,L870,WAY) ; Ask for beginning IEN to display...
ASKWAY() ; In or Out...
SEARCH(L870,WAY,NO,SKIP) ; Search for a date...
; LNM -- req
S1
SRCH1(L870,WAY,IEN) ; Show date of entry...
SDT(DATE) ; Return shortened form of date...
TEST ; Hardwire IENs and test M code in monitor (only)...
TESTRUN ; Call here from above to avoid LEVEL ERRORs with ZGo...
; MCODE,WAY -- req
COLLECT(I772) ; Collect 772 & 773 data...
COLL773(I773) ;
COLL772(I772) ;
ADD(TXT) ; Add text for report...
; SCRN -- req
DOLRO(TAG,SNO) ; Store debug data in ^XTMP("HLEVUTI1 "_DT,NO)...
EOR ;HLEVUTI1 - Event Monitor UTILITIES ;5/16/03 14:42

External References

Name Field # of Occurrence
ENDR^%ZISS CTRL+4
DOLRO^%ZOSV DOLRO+8
^DIC LINK+2
^DIR ASKNO+9, ASKWAY+4
$$YN^HLCSRPT4 TEST+20, TEST+24
$$ASKIEN^HLEVREP TEST+12
$$FMADD^XLFDT DOLRO+4
$$FMTE^XLFDT SDT+2
$$HTFM^XLFDT SRCH1+4
$$NOW^XLFDT DOLRO+4
$$CJ^XLFSTR CTRL0, CTRL1+4, CTRL1+11, CTRL1+34, TEST+3, COLLECT+2, COLLECT+8
$$REPEAT^XLFSTR CTRL0, SHOWHD+2, SHOWHD+6, QUEUES+14, TEST+4, TEST+32, ADD+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Logical Link Display",IOM),!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: CTRL0+0
Function Call: WRITE
  • Prompt: " ",LNM
  • Line Location: CTRL0+5
Function Call: WRITE
  • Prompt: !!,"What information for IN and OUT QUEUEs do you want to see?"
  • Line Location: CTRL1+1
Function Call: WRITE
  • Prompt: !!,"1 Show IENs",!,"2 Show Summary nodes",!,"3 Totals",!,"4 Dots",!,"5 Find skips",!,"6 Message date search"
  • Line Location: CTRL1+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter #: "
  • Variable: WHAT
  • Timeout: 99
  • Line Location: CTRL1+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" "_IOINHI_LNM_IOINORM_" ",IOM+$L(IOINHI)+$L(IOINORM),"=")
  • Line Location: CTRL1+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" "_$S(WAY=1:"IN",1:"OUT")_" QUEUE ",IOM,"-")
  • Line Location: CTRL1+11
Function Call: WRITE
  • Prompt: !,"Totaling..."
  • Line Location: CTRL1+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($X+$L(NO)+1)>IOM
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $X>0
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: NO
  • Line Location: CTRL1+18
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: CTRL1+20
Function Call: WRITE
  • Prompt: "."
  • Line Location: CTRL1+22
Function Call: WRITE
  • Prompt: !,+LAST,?10," ",$E($P(LAST,"~",2,999),1,IOM-$X)
  • Line Location: CTRL1+25
Function Call: WRITE
  • Prompt: !,+NO,?10," ",$E(TXT,1,69)
  • Line Location: CTRL1+26
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: CTRL1+28
Function Call: WRITE
  • Prompt: !,"--- Total = #",TOT(WAY)
  • Line Location: CTRL1+29
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" "_LNM_" ",IOM,"=")
  • Line Location: CTRL1+34
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SHOWHD+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SHOWHD+6
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: CT+1
Function Call: WRITE
  • Prompt: !,HD,"="
  • Line Location: PHD+3
Function Call: WRITE
  • Prompt: $E(DATA,1,76)
  • Line Location: PHD+6
Function Call: WRITE
  • Prompt: !!,"Links with queues"
  • Line Location: QUEUES+12
Function Call: WRITE
  • Prompt: !,"Link",?30,"IQ Totals",?45,"OQ Totals"
  • Line Location: QUEUES+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: QUEUES+14
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUES+18
Function Call: WRITE
  • Prompt: IOINHI
  • Condition for execution: LNS["Mail]"
  • Line Location: QUEUES+19
Function Call: WRITE
  • Prompt: $E(LNS_" --------------------",1,20),IOINORM
  • Line Location: QUEUES+19
Function Call: WRITE
  • Prompt: TOT
  • Line Location: QUEUES+23
Function Call: WRITE
  • Prompt: !!,"First IEN = ",FIRST
  • Line Location: ASKNO+4
Function Call: WRITE
  • Prompt: !," Last IEN = ",LAST
  • Line Location: ASKNO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNO+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !,"Just completed a search using a starting point of IEN=",NO,", and an offset"
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !,"of #",SKIP,". You may now enter a new starting IEN and offset."
  • Line Location: S1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+10
Function Call: READ
  • Formatting: !
  • Prompt: "Enter OFFSET: "
  • Variable: OFFSET
  • Timeout: 90
  • Line Location: S1+12
Function Call: WRITE
  • Prompt: $J($$SDT(DATE)_"(#"_IEN_")",18)_" "
  • Line Location: SRCH1+7
Function Call: READ
  • Variable: X
  • Timeout: 999
  • Line Location: SRCH1+9
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Monitor Test Utility",IOM)
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,"This utility sets the ^TMP(""HLEVFLAG"",$J) node to ""STOP"" to avoid any"
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !,"Event Monitor activity. This enables the debugging of M code."
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: " no M code found..."
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !!,"M code = ",MCODE
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: !!,"You may ZG ",MCODE," or D ",MCODE,"..."
  • Line Location: TEST+18
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+23
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: TEST+25
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",IOM)
  • Line Location: TEST+32
Function Call: WRITE
  • Prompt: " DOing ",MCODE,"... "
  • Line Location: TESTRUN+3
Function Call: WRITE
  • Prompt: " ZGOing ",MCODE,"... "
  • Line Location: TESTRUN+6
Function Call: WRITE
  • Prompt: !,$E(TXT,1,74)
  • Line Location: ADD+8
Routine Call
  • DIC
  • Line Location:
    • LINK+2
Routine Call
  • DIR
  • Line Location:
    • ASKNO+9
    • ASKWAY+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLCS(870 - [#870] QUEUES+3, QUEUES+5, QUEUES+7, QUEUES+8, QUEUES+9, QUEUES+10, ASKNO+2, ASKNO+3, S1+1, S1+6
, SRCH1+2, SRCH1+5
^HLEV(776.1 - [#776.1] TEST+14
^TMP("HLEVFLAG" TEST+8, TEST+27*, TEST+31!, TEST+34*
^TMP($J QUEUES+1!, QUEUES+8*, QUEUES+10*, QUEUES+17, QUEUES+21, QUEUES+25!, COLLECT+4, ADD+6, ADD+7*
^XTMP( DOLRO+4*, DOLRO+6

Label References

Name Line Occurrences
$$ASKNO CTRL1+7, S1+11
$$ASKWAY CTRL1+6
$$CT CTRL1+22
$$HD PHD+1
$$LINK CTRL0+2
$$LNM CTRL0+4, QUEUES+6
$$SDT SRCH1+7
@( TESTRUN+4
ADD COLLECT+2, COLLECT+5, COLLECT+8, COLL773+4, COLL772+6, COLL772+8, COLL772+9
COLL772 COLLECT+9
COLL773 COLLECT+6
CTRL0 CTRL1+3
CTRL1 CTRL1+8, CTRL1+36
PHD SHOWHD+5
QUEUES CTRL0+1
S1 S1+12
SEARCH CTRL1+8
SHOWHD CTRL1
SRCH1 S1+3, S1+7
TESTRUN TEST+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABRT CTRL+1~, CTRL1+5*, CTRL1+13, CTRL1+28*, CTRL1+29, CTRL1+30*, CT+2*, SEARCH+2~, S1*, S1+4
, SRCH1+9*
CONT CTRL+1~, CTRL1+5*, CTRL1+28*, SEARCH+2~, S1*, SRCH1+9*
CT CTRL+1~, CTRL1+5*, CTRL1+14*, CTRL1+21, CTRL1+28, CTRL1+30*, CT, SEARCH+2~, S1*, SRCH1+8*
, SRCH1+9, COLLECT+1~, COLLECT+3*, COLLECT+5, COLLECT+7*, COLL772+1~, COLL772+2*, COLL772+4, COLL772+5*, COLL772+6
, COLL772+9
DATA CTRL+1~, SHOWHD+4*, SHOWHD+5, PHD~, PHD+4, PHD+5, PHD+6, PHD+7*, PHD+8
DATE CTRL+1~, CTRL1+15*, CTRL1+17, SRCH1+1~, SRCH1+3*, SRCH1+4*, SRCH1+5*, SRCH1+6, SRCH1+7, SDT~
, SDT+1, SDT+2
DEL SRCH1+1~, SRCH1+3*
DIC CTRL+1~, LINK~, LINK+1*
DIC("A" LINK+1*
DIC(0 LINK+1*
DIR ASKNO+1~, ASKWAY+1~
DIR("A" ASKNO+7*, ASKWAY+3*
DIR("B" ASKNO+8*
DIR(0 ASKNO+7*, ASKWAY+2*
DIRUT ASKNO+1~, ASKNO+10, ASKWAY+1~
DT DOLRO+3, DOLRO+4
DTOUT ASKNO+1~, ASKNO+10, ASKWAY+1~
DUOUT ASKNO+1~, ASKNO+10, ASKWAY+1~
FIRST ASKNO+1~, ASKNO+2*, ASKNO+4, ASKNO+7, ASKNO+8
GBL CTRL+1~, CTRL0+3*, CTRL1+10, CTRL1+13, CTRL1+15, CTRL1+16, SHOWHD+4, LNM~, LNM+1*
HD CTRL+1~, PHD~, PHD+1*, PHD+2*, PHD+3, HD~, HD+1*, HD+2*, HD+3*, HD+4*
, HD+5
I772 COLLECT~, COLLECT+2, COLLECT+9, COLL772~, COLL772+2
I773 COLLECT+1~, COLLECT+3*, COLLECT+4*, COLLECT+6, COLL773~, COLL773+2
IEN SRCH1~, SRCH1+2, SRCH1+5, SRCH1+7, TEST+1~, TEST+10, TEST+12*, TEST+14, COLLECT+4
IOF CTRL0, TEST+3
IOINHI CTRL+1~, CTRL1+4, QUEUES+19
IOINORM CTRL+1~, CTRL1+4, QUEUES+19
IOM CTRL0, CTRL1+4, CTRL1+11, CTRL1+18, CTRL1+25, CTRL1+34, SHOWHD+2, SHOWHD+6, QUEUES+14, TEST+3
, TEST+4, TEST+32
L870 CTRL+1~, CTRL0+2*, CTRL0+3, CTRL0+4, CTRL1, CTRL1+7, CTRL1+8, SHOWHD~, LNM~, LNM+1
, LNM+2, ASKNO~, ASKNO+2, ASKNO+3, SEARCH~, S1+1, S1+3, S1+6, S1+7, S1+11
, SRCH1~, SRCH1+2, SRCH1+5
LAST CTRL+1~, CTRL1+9*, CTRL1+24, CTRL1+25, CTRL1+27*, ASKNO+1~, ASKNO+3*, ASKNO+5, ASKNO+7
LASTIN COLL772+1~, COLL772+2*, COLL772+7*, COLL772+9
LNM CTRL+2~, CTRL0+4*, CTRL0+5, CTRL1, CTRL1+4, CTRL1+7, CTRL1+34, SHOWHD~, QUEUES~, QUEUES+2*
, QUEUES+3*, QUEUES+5, ASKNO~, S1+11
LNO CTRL+2~, QUEUES~, QUEUES+4*, QUEUES+5*, QUEUES+6, QUEUES+7, QUEUES+8, QUEUES+9, QUEUES+10
LNS CTRL+2~, QUEUES+6*, QUEUES+8, QUEUES+10, QUEUES+16*, QUEUES+17*, QUEUES+19, QUEUES+21
LP COLL773+1~, COLL773+2*, COLL773+3*, COLL773+4, COLL772+1~, COLL772+2*, COLL772+3*, COLL772+4, COLL772+7, COLL772+8
MCODE TEST+1~, TEST+14*, TEST+15, TEST+16, TEST+18, TESTRUN+3, TESTRUN+4, TESTRUN+6, TESTRUN+7
MSH SRCH1+1~, SRCH1+2*, SRCH1+3
N CTRL+2~
NO CTRL+2~, CTRL1+7*, CTRL1+8, CTRL1+13*, CTRL1+15, CTRL1+16, CTRL1+18, CTRL1+24, CTRL1+26, CTRL1+27
, SEARCH~, S1+1, S1+8, S1+11*, ADD+2~, ADD+6*, ADD+7, DOLRO+1~, DOLRO+6*, DOLRO+8
NODE CTRL+2~, CTRL1+15*, CTRL1+17, SHOWHD+1~, SHOWHD+3*, SHOWHD+4, SHOWHD+5
NUM SEARCH+2~, S1+1*, S1+3, S1+4, S1+5*, S1+6*, S1+7
>> OFFSET S1+12*
POSX ADD+2~, ADD+3*, ADD+10
>> SCRN ADD+5, ADD+8
SKIP SEARCH~, SEARCH+3~, S1*, S1+5, S1+9, S1+12*
SNO DOLRO~, DOLRO+6
ST COLL773+1~, COLL773+2*, COLL773+3, COLL772+1~, COLL772+2*, COLL772+3
STATE TEST+1~, TEST+8*, TEST+34
TAG DOLRO~, DOLRO+3
TOT CTRL+2~, QUEUES+21*, QUEUES+22*, QUEUES+23
TOT( CTRL1+9*, CTRL1+21*, CTRL1+29
TXT CTRL+2~, CTRL1+16*, CTRL1+17*, CTRL1+20, CTRL1+26, CTRL1+27, ADD~, ADD+3, ADD+4, ADD+7
, ADD+8, ADD+9*, ADD+10*
U CTRL1+6, CTRL1+7, CTRL1+15, CTRL1+28, QUEUES+8, QUEUES+10, LNM+2, ASKNO+10, ASKWAY+5, ASKWAY+6
, S1+11, SRCH1+5, SRCH1+9, TEST+14, DOLRO+4
WAY CTRL+2~, CTRL1+6*, CTRL1+7, CTRL1+8, CTRL1+9, CTRL1+10, CTRL1+11, CTRL1+13, CTRL1+15, CTRL1+16
, CTRL1+21, CTRL1+29, QUEUES+20*, QUEUES+21, ASKNO~, ASKNO+2, ASKNO+3, SEARCH~, S1+1, S1+3
, S1+6, S1+7, S1+11, SRCH1~, SRCH1+2, SRCH1+5, TEST+1~, TEST+20*, TEST+21*, TESTRUN+2
, TESTRUN+5
WHAT CTRL+2~, CTRL1+3*, CTRL1+8, CTRL1+12, CTRL1+18, CTRL1+19, CTRL1+21, CTRL1+22, CTRL1+23
X CTRL+2~, CTRL+4*, CTRL1+28*, CTRL1+32*, CT+1*, LINK~, LNM~, LNM+1*, LNM+2, ASKNO+1~
, ASKWAY+1~, SRCH1+9*, DOLRO+1~, DOLRO+8*
XTMP DOLRO+1~, DOLRO+3*, DOLRO+4, DOLRO+6, DOLRO+8
Y CTRL+2~, LINK~, LINK+3, ASKNO+1~, ASKNO+11, ASKWAY+1~, ASKWAY+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All