Routine: HLEVUTI1

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

Package	Total	Caller Graph
Health Level Seven	1	HLEVUTI0

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

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

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

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

Customize PDF page

Package: Health Level Seven

Routine: HLEVUTI1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: