Routine: HLEVUTI2

Package	Total	Call Graph
Health Level Seven	3	$$BTE^HLCSMON $$YN^HLCSRPT4 $$SDT^HLEVX001
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	2	^DIM ^DIR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
KILLXTMP(XTMP)	; Kill one XTMP entry... (Pass TASK or full reference)
CTRL	;
QUEUE	; Queue point for the starting of all queued HLEVUTI2 jobs... ; MREQ,MRTN,MTIME -- req
SXTMPM(XTMP)	; Show individual XTMP entry... ; C2 to C5 -- req
KILLALL	; Kill ALL run data for all jobs!!!! (BE CARFUL)
NEWJOB(TIME)	; Start job... ; MREQ,MRTN,MTIME -- req
INIT	;
ASK	;
SXTMPT(XTMP)	; Show individual XTMP entry... ; C2 to C5 -- req
REQNO()	;
EOR	;HLEVUTI2 - Event Monitor UTILITIES ;5/16/03 14:42
SHOW	; Show M code job "runs"...
M
START	;
EX
P(PCE,COL)	; Print value and "tab" over to COL... ; XTMP0 -- req
BT	;
HEADER	;
XEC	;
MAILADD(T)
FTMRTN()	;
TEST	; Call here to test M code
MAIL	; All queues are done. Mail notification to DUZ...
TIME()	;
SAVE(TXT)	; Save one line of text into ^XTMP ; XTMP -- req

External References

Name	Field # of Occurrence
^%ZTLOAD	NEWJOB+7
^DIM	FTMRTN+9
^DIR	BT+5, ASK+5, FTMRTN+6, TIME+10, REQNO+6
$$BTE^HLCSMON	INIT+4, KILLALL+28
$$YN^HLCSRPT4	START+11, KILLALL+18
$$SDT^HLEVX001	P+4, MAIL+18, MAIL+19, KILLALL+13, KILLALL+14
$$FMADD^XLFDT	QUEUE+11, QUEUE+24, TIME+3, TIME+5, TIME+6
$$FMTE^XLFDT	TIME+5, TIME+6
$$NOW^XLFDT	START+14, QUEUE+4, QUEUE+35, TIME+2
$$CJ^XLFSTR	HEADER+1
$$REPEAT^XLFSTR	HEADER+2, SHOW+10, SHOW+19, MAIL+10, MAIL+13
^XMD	MAIL+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: INIT+3
Function Call: WRITE	Prompt: ! Line Location: CTRL+2
Function Call: WRITE	Prompt: ! Line Location: BT+1
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("M Code Requeue Utility",IOM) Line Location: HEADER+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$J(I,2),". ",$P(T,"~") Line Location: M+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"No M Code API run data exists..." Line Location: SHOW+4
Function Call: WRITE	Prompt: ! Line Location: SHOW+5
Function Call: WRITE	Prompt: !,"Task#",?C2,"Start",?C3,"Finish",?C4,"\|" Line Location: SHOW+8
Function Call: WRITE	Prompt: ?(C4+2),"Next task#",?C5,"Queue time" Line Location: SHOW+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",C4),"\|",$$REPEAT^XLFSTR("=",IOM-$X) Line Location: SHOW+10
Function Call: WRITE	Prompt: !!,"Task#",?C2,"Start",?C3,"Finish",?C4,"M API" Line Location: SHOW+18
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: SHOW+19
Function Call: WRITE	Prompt: ! Line Location: SXTMPM+4
Function Call: WRITE	Prompt: $P(XTMP0,U,8,9)," " Line Location: SXTMPM+6
Function Call: WRITE	Prompt: $E(XTMP0,1,IOM-$X) Line Location: SXTMPM+11
Function Call: WRITE	Prompt: ! Line Location: SXTMPT+4
Function Call: WRITE	Prompt: "\| " Line Location: SXTMPT+6
Function Call: WRITE	Prompt: DATA,?COL Line Location: P+5
Function Call: WRITE	Prompt: ! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: START+10
Function Call: WRITE	Prompt: " job not started..." Line Location: START+12
Function Call: WRITE	Prompt: !!,"Queued to task# ",ZTSK,"..." Line Location: START+15
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EX+0
Function Call: WRITE	Prompt: !,"Enter the M code API to be called by background jobs. Enter it in the format" Line Location: FTMRTN+3
Function Call: WRITE	Prompt: !,"'TAG~ROUTINE'. (Use the tilde (~) character in place of the up-arrow.)" Line Location: FTMRTN+4
Function Call: WRITE	Prompt: ! Line Location: FTMRTN+5
Function Call: WRITE	Prompt: !,"New jobs will be requeued until the date/time you enter now. You cannot queue" Line Location: TIME+7
Function Call: WRITE	Prompt: !,"jobs past seven days in the future." Line Location: TIME+8
Function Call: WRITE	Prompt: ! Line Location: TIME+9
Function Call: WRITE	Prompt: !!,"Date/time you enter must not be in the past..." Line Location: TIME+14
Function Call: WRITE	Prompt: !,"New jobs will be requeued for the number of 'requeue frequency' minutes" Line Location: REQNO+3
Function Call: WRITE	Prompt: !,"in the future you specify now." Line Location: REQNO+4
Function Call: WRITE	Prompt: ! Line Location: REQNO+5
Function Call: WRITE	Prompt: !!,"Mail message #",$G(XMZ),"..." Line Location: MAIL+26
Function Call: WRITE	Prompt: !!,"No data exists... " Line Location: KILLALL+4
Function Call: WRITE	Prompt: ! Line Location: KILLALL+5
Function Call: WRITE	Prompt: !!,"Existing M code job run data..." Line Location: KILLALL+7
Function Call: WRITE	Prompt: ! Line Location: KILLALL+9
Function Call: WRITE	Prompt: !,"Started: ",$$SDT^HLEVX001($P(DATA,U,2)) Line Location: KILLALL+13
Function Call: WRITE	Prompt: " ",$P(DATA,U,8,9),"..." Line Location: KILLALL+15
Function Call: WRITE	Prompt: ! Line Location: KILLALL+17
Function Call: WRITE	Prompt: " nothing deleted..." Line Location: KILLALL+19
Function Call: WRITE	Prompt: ! Line Location: KILLALL+21
Function Call: WRITE	Prompt: !,"Killing ^XTMP(",XTMP,")..." Line Location: KILLALL+24
Function Call: WRITE	Prompt: ! Line Location: KILLALL+27
Routine Call	DIR Line Location: BT+5 ASK+5 FTMRTN+6 TIME+10 REQNO+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	MAIL+4!, MAIL+27!, MAILADD*
^XTMP(	SHOW+13, SHOW+22, SXTMPM+3, SXTMPT+3, QUEUE+11, QUEUE+29, QUEUE+35, QUEUE+40, SAVE+4, SAVE+5 , SAVE+6*, KILLALL+11, KILLALL+12, KILLALL+23, KILLXTMP+2!
^XTMP("HLEVREQ"	SHOW+3
^XTMP("HLEVREQ-"	MAIL+20, KILLALL+3

Label References

Name	Line Occurrences
$$FTMRTN	START+4
$$NEWJOB	START+14, QUEUE+28
$$REQNO	START+8
$$TIME	START+6
@(	QUEUE+32
ASK	CTRL+4
BT	CTRL+6
CTRL	CTRL+7
EX	INIT+2
HEADER	INIT+2, CTRL+1
KILLXTMP	KILLALL+25
M	CTRL+3
MAIL	QUEUE+41
MAILADD	MAIL+6, MAIL+11, MAIL+12, MAIL+13, MAIL+22
P	SXTMPM+5, SXTMPT+5, SXTMPT+7
SAVE	TEST+1
SXTMPM	SHOW+23
SXTMPT	SHOW+14
XEC	CTRL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A7UMENU	M!
A7UMENU(	M*, ASK+6, XEC+1
A7UOK	INIT+1~, CTRL+4, CTRL+6, BT+2, BT+7, ASK+2, ASK+8
>> A7UOPT	ASK+7*, XEC+1
ANS	FTMRTN+1~, FTMRTN+8, FTMRTN+9, FTMRTN+10, TIME+1~, TIME+12, TIME+13, TIME+15, REQNO+1~
C2	SHOW+1~, SHOW+7, SHOW+8, SHOW+17, SHOW+18, SXTMPM+5, SXTMPT+5
C3	SHOW+1~, SHOW+7, SHOW+8, SHOW+17, SHOW+18, SXTMPM+5, SXTMPT+5
C4	SHOW+1~, SHOW+7, SHOW+8, SHOW+9, SHOW+10, SHOW+17, SHOW+18, SXTMPM+5, SXTMPT+5
C5	SHOW+1~, SHOW+7, SHOW+9, SHOW+17, SXTMPT+7
COL	P~, P+5
DATA	P+2~, P+3, P+4, P+5, MAIL+9~, MAIL+16, MAIL+18, MAIL+19, KILLALL+1~, KILLALL+12 , KILLALL+13, KILLALL+14, KILLALL+15
DIR	BT+3~, ASK+3~, FTMRTN+1~, TIME+1~, REQNO+1~
DIR("?"	TIME+5*
DIR("A"	BT+4, ASK+4, FTMRTN+2, TIME+4, REQNO+2*
DIR("B"	TIME+6*
DIR(0	BT+4, ASK+4, FTMRTN+2, TIME+3, REQNO+2*
DIRUT	FTMRTN+1~, FTMRTN+7, TIME+1~, TIME+11, REQNO+1~, REQNO+7
DTOUT	FTMRTN+1~, FTMRTN+7, TIME+1~, TIME+11, REQNO+1~, REQNO+7
DUOUT	FTMRTN+1~, FTMRTN+7, TIME+1~, TIME+11, REQNO+1~, REQNO+7
DUZ	MAIL+24
>> HLRUNS	QUEUE+7*, QUEUE+8, MAIL+6, MAIL+8
>> HLRUNS(	QUEUE+7, QUEUE+8!, QUEUE+35, MAIL+15, MAIL+16
I	M, ASK+4, SXTMPM+2~, SXTMPM+10, QUEUE+2~, QUEUE+8, EX~*
IOF	HEADER+1
IOM	HEADER+1, SHOW+10, SHOW+19, SXTMPM+11, SXTMPT+7
IOSL	INIT+3
LN	MAIL+9~, MAIL+10*, MAIL+17, MAIL+18, MAIL+19
MREQ	START+1~, START+8*, QUEUE+24
MRTN	START+1~, START+4*, QUEUE+11, QUEUE+32, MAIL+6
MTIME	START+1~, START+6*, QUEUE+11, QUEUE+27, QUEUE+38
NEWJOB	QUEUE+2~, QUEUE+28*, QUEUE+29
>> NEXTIME	QUEUE+24*, QUEUE+27, QUEUE+28, QUEUE+29, QUEUE+38
NO	MAIL+1~, MAIL+5, MAILADD, SAVE+2~, SAVE+5*, SAVE+6
NOW	QUEUE+2~, QUEUE+4, QUEUE+7, QUEUE+11, QUEUE+24, QUEUE+35, TIME+1~, TIME+2*, TIME+3, TIME+5 , TIME+6, TIME+13, REQNO+1~
PCE	P~, P+3
T	M, EX~, MAILADD~
TASK	MAIL+9~, MAIL+14, MAIL+15, MAIL+16, MAIL+17, MAIL+20, MAIL+21
TASKNO	QUEUE+2~, QUEUE+4*
TEXT	MAIL+1~
TIME	NEWJOB~, NEWJOB+3
TXT	MAIL+9~, MAIL+17, MAIL+18, MAIL+19, MAIL+21, MAIL+22, SAVE~, SAVE+6
U	SXTMPM+6, SXTMPM+7, P+3, QUEUE+11, QUEUE+29, QUEUE+35, QUEUE+40, FTMRTN+8, MAIL+6, MAIL+19 , KILLALL+13, KILLALL+14, KILLALL+15
X	XEC+1, SHOW+1~, FTMRTN+1~, FTMRTN+9, TIME+1~, REQNO+1~, KILLALL+28*
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+3*
>> XMY(	MAIL+24*
XMZ	MAIL+1~, MAIL+26
XTMP	SHOW+1~, SHOW+12, SHOW+13, SHOW+14, SHOW+21, SHOW+22, SHOW+23, SXTMPM~, SXTMPM+3, SXTMPT~ , SXTMPT+3, QUEUE+2~, QUEUE+10, QUEUE+11, QUEUE+29, QUEUE+35, QUEUE+40, SAVE+3, SAVE+4, SAVE+5 , SAVE+6, KILLALL+1~, KILLALL+10, KILLALL+11, KILLALL+12, KILLALL+22, KILLALL+23, KILLALL+24, KILLALL+25, KILLXTMP~ , KILLXTMP+1, KILLXTMP+2
XTMP0	SXTMPM+2~, SXTMPM+3, SXTMPM+6, SXTMPM+7, SXTMPM+8, SXTMPM+9, SXTMPM+10, SXTMPM+11, SXTMPT+2~, SXTMPT+3 , P+3
Y	BT+6, ASK+6, ASK+7, SHOW+1~, FTMRTN+1~, FTMRTN+8, TIME+1~, TIME+12, REQNO+1~, REQNO+8
ZTDESC	NEWJOB+2~, NEWJOB+3*
ZTDTH	NEWJOB+2~, NEWJOB+3*
ZTIO	NEWJOB+2~, NEWJOB+3*
>> ZTQUEUED	MAIL+26
>> ZTREQ	QUEUE+4*
ZTRTN	NEWJOB+2~, NEWJOB+4*
>> ZTSAVE("HLRUNS*"	NEWJOB+6*
>> ZTSAVE("MREQ"	NEWJOB+5*
>> ZTSAVE("MRTN"	NEWJOB+5*
>> ZTSAVE("MTIME"	NEWJOB+5*
ZTSK	START+1~, START+14*, START+15, NEWJOB+2~, NEWJOB+8, QUEUE+4, QUEUE+7, QUEUE+10, QUEUE+11, QUEUE+35

Marked Items

Name	Field # of Occurrence
$T(@XTMP0	SXTMPM+8
$T(EX+I	EX
$T(M+I	M

Customize PDF page

Package: Health Level Seven

Routine: HLEVUTI2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items