Routine: HLEVMST0

Package	Total	Call Graph
Health Level Seven	5	$$BTE^HLCSMON $$YN^HLCSRPT4 STARTJOB^HLEVMST UNQ^HLEVUTIL $$SDT^HLEVX001
Kernel	4	ENDR^%ZISS REQ^%ZTLOAD ($$FMTE,$$HTFM)^XLFDT ($$CJ,$$REPEAT)^XLFSTR

Package	Total	Caller Graph
Health Level Seven	11	HLEV MASTER JOB NOW HLEV MASTER JOB START HLEV MASTER JOB STOP HLEVAPI1 HLEVMST HLEVREP HLEVREP0 HLEVREP1 HLEVREP3 HLEVSRV2 HLEVUTIL

Entry Points

Name	Comments	DBIA/ICR reference
UNQUEUE	; Unqueue master job...
HDU
TELL(TXTINFO,ACT,TXTBT)	; Print TXTINFO, FF to bottom, and $$BTE(TXTBT)...
SECTHORO(SEC)	; Convert seconds to $H...
EOR	;HLEVMST0 - Event Monitor MASTER JOB ;5/16/03 14:42
EXU
EX
MSTNOW	; Start queued master job now!
SEC(HORO)	; Convert $H to seconds...
STARTMST	; Start brand new master job now (interactively)!
HD

External References

Name	Field # of Occurrence
ENDR^%ZISS	UNQUEUE+4, STARTMST+15
REQ^%ZTLOAD	MSTNOW+44
$$BTE^HLCSMON	TELL+53
$$YN^HLCSRPT4	UNQUEUE+21, MSTNOW+40, STARTMST+31
STARTJOB^HLEVMST	STARTMST+13, STARTMST+34
UNQ^HLEVUTIL	UNQUEUE+27, STARTMST+12
$$SDT^HLEVX001	MSTNOW+36
$$FMTE^XLFDT	UNQUEUE+18, STARTMST+28
$$HTFM^XLFDT	MSTNOW+36
$$CJ^XLFSTR	HDU, MSTNOW+3, HD
$$REPEAT^XLFSTR	HDU+1, MSTNOW+4, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: UNQUEUE+9
Function Call: WRITE	Prompt: !,"The current master job is task# ",$P(LAST0,U,5),", queued for " Line Location: UNQUEUE+17
Function Call: WRITE	Prompt: $$FMTE^XLFDT(+$P(LAST0,U,6)),"." Line Location: UNQUEUE+18
Function Call: WRITE	Prompt: ! Line Location: UNQUEUE+20
Function Call: WRITE	Prompt: " no action taken..." Line Location: UNQUEUE+22
Function Call: WRITE	Prompt: " Master job stopped..." Line Location: UNQUEUE+24
Function Call: WRITE	Prompt: !!,IOINHI,"Important!!",IOINORM," You must remember to start a new master job!!" Line Location: UNQUEUE+25
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Unqueue Master Job",IOM) Line Location: HDU+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HDU+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXU+0
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Master Job ""Run Now"" Utility",IOM) Line Location: MSTNOW+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: MSTNOW+4
Function Call: WRITE	Prompt: ! Line Location: MSTNOW+5
Function Call: WRITE	Prompt: !,"Couldn't find last master job entry..." Line Location: MSTNOW+10
Function Call: WRITE	Prompt: !,"Couldn't find task",$S(TASKNO:"# "_TASKNO_"...",1:".") Line Location: MSTNOW+13
Function Call: WRITE	Prompt: !,"Couldn't find task# ",TASKNO,"'S zero node..." Line Location: MSTNOW+16
Function Call: WRITE	Prompt: !,"Invalid future queue time ($H)..." Line Location: MSTNOW+19
Function Call: WRITE	Prompt: !,"Master job will start any moment!" Line Location: MSTNOW+26
Function Call: WRITE	Prompt: !,"Master job will start on its own in ",DIFF," seconds..." Line Location: MSTNOW+27
Function Call: WRITE	Prompt: !,"Couldn't find ^%ZTSK(SEC,ZTSK) node..." Line Location: MSTNOW+30
Function Call: WRITE	Prompt: !,"This utility allows you to run the master job ahead of it's currently" Line Location: MSTNOW+32
Function Call: WRITE	Prompt: !,"scheduled time to run." Line Location: MSTNOW+33
Function Call: WRITE	Prompt: !!,"Master task# ",TASKNO," is queued to " Line Location: MSTNOW+35
Function Call: WRITE	Prompt: $$SDT^HLEVX001($$HTFM^XLFDT(NEXTH)) Line Location: MSTNOW+36
Function Call: WRITE	Prompt: " and it will be started now..." Line Location: MSTNOW+37
Function Call: WRITE	Prompt: ! Line Location: MSTNOW+39
Function Call: WRITE	Prompt: " no action taken..." Line Location: MSTNOW+41
Function Call: WRITE	Prompt: !!,"Master job requeued to 'now'..." Line Location: MSTNOW+46
Function Call: WRITE	Prompt: ! Line Location: STARTMST+20
Function Call: WRITE	Prompt: !!,"The ",IOINHI,"last",IOINORM Line Location: STARTMST+26
Function Call: WRITE	Prompt: " master job was task# ",$P(LAST0,U,5),", queued " Line Location: STARTMST+27
Function Call: WRITE	Prompt: $$FMTE^XLFDT(+LAST0),"." Line Location: STARTMST+28
Function Call: WRITE	Prompt: ! Line Location: STARTMST+30
Function Call: WRITE	Prompt: " no action taken..." Line Location: STARTMST+32
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Master Job Start",IOM) Line Location: HD+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EX+0
Function Call: WRITE	Prompt: TXTINFO Line Location: TELL+43
Function Call: WRITE	Prompt: TXTINFO Line Location: TELL+44
Function Call: WRITE	Prompt: ! Line Location: TELL+49
Function Call: WRITE	Prompt: ! Line Location: TELL+51

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH(	MSTNOW+29
^%ZTSK - [#14.4]	MSTNOW+12, MSTNOW+15
^HLEV(776.2 - [#776.2]	UNQUEUE+11, UNQUEUE+12, UNQUEUE+13, MSTNOW+7, MSTNOW+8, MSTNOW+9, STARTMST+4, STARTMST+5, STARTMST+6
^VA(200 - [#200]	UNQUEUE+27

Label References

Name	Line Occurrences
$$SEC	MSTNOW+21, MSTNOW+22
EX	STARTMST+18
EXU	UNQUEUE+7
HD	STARTMST+17
HDU	UNQUEUE+6
TELL	UNQUEUE+14, UNQUEUE+29, STARTMST+23, STARTMST+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	TELL~, TELL+28, TELL+32, TELL+35, TELL+38, TELL+41, TELL+43, TELL+44, TELL+46, TELL+49* , TELL+51
DAYS	SECTHORO+1~, SECTHORO+3*, SECTHORO+4
DIFF	UNQUEUE+1~, MSTNOW+1~, MSTNOW+24*, MSTNOW+25, MSTNOW+26, MSTNOW+27, STARTMST+1~
DUZ	UNQUEUE+27
HORO	SEC~, SEC+1, SEC+2
I	EXU~, EX~, TELL+26~, TELL+51*
IOF	HDU, MSTNOW+3, HD
IOINHI	UNQUEUE+1~, UNQUEUE+25, STARTMST+1~, STARTMST+26, STARTMST+31
IOINORM	UNQUEUE+1~, UNQUEUE+25, STARTMST+1~, STARTMST+26, STARTMST+31
IOM	HDU, HDU+1, MSTNOW+3, MSTNOW+4, HD, HD+1
IOSL	TELL+51
LAST0	UNQUEUE+1~, UNQUEUE+13, UNQUEUE+16, UNQUEUE+17, UNQUEUE+18, MSTNOW+1~, MSTNOW+9, MSTNOW+12, STARTMST+1~, STARTMST+6* , STARTMST+7, STARTMST+22, STARTMST+23, STARTMST+25, STARTMST+27, STARTMST+28
LASTDT	UNQUEUE+1~, UNQUEUE+11, UNQUEUE+12, MSTNOW+1~, MSTNOW+7, MSTNOW+8, STARTMST+1~, STARTMST+4*, STARTMST+5
LASTIEN	UNQUEUE+1~, UNQUEUE+12, UNQUEUE+13, UNQUEUE+27, MSTNOW+1~, MSTNOW+8, MSTNOW+9, STARTMST+1~, STARTMST+5*, STARTMST+6 , STARTMST+12
>> LASTSK	UNQUEUE+16*, UNQUEUE+27
NEXTH	UNQUEUE+1~, MSTNOW+1~, MSTNOW+18*, MSTNOW+21, MSTNOW+36, STARTMST+1~
SEC	SECTHORO~, SECTHORO+2, SECTHORO+3
SECH	SECTHORO+1~, SECTHORO+3*, SECTHORO+4
SECNEXT	UNQUEUE+1~, MSTNOW+1~, MSTNOW+21*, MSTNOW+24, MSTNOW+29, STARTMST+1~
SECNOW	UNQUEUE+2~, MSTNOW+1~, MSTNOW+22*, MSTNOW+24, STARTMST+2~
T	EXU~, EX~
>> TASK0	MSTNOW+15*, MSTNOW+18
TASKNO	UNQUEUE+2~, MSTNOW+1~, MSTNOW+12, MSTNOW+13, MSTNOW+15, MSTNOW+16, MSTNOW+29, MSTNOW+35, MSTNOW+43, STARTMST+2~ , STARTMST+7, STARTMST+12
TXTBT	TELL~, TELL+29*, TELL+53
TXTINFO	TELL~, TELL+28*, TELL+43, TELL+44
U	UNQUEUE+13, UNQUEUE+16, UNQUEUE+17, UNQUEUE+18, UNQUEUE+27, MSTNOW+12, MSTNOW+18, STARTMST+7, STARTMST+22, STARTMST+23 , STARTMST+25, STARTMST+27, TELL+32, TELL+35, TELL+38, TELL+41, TELL+46, TELL+49, TELL+51
X	UNQUEUE+4, STARTMST+15, TELL+26~, TELL+53*
ZTDTH	UNQUEUE+2~, MSTNOW+1~, MSTNOW+43*, STARTMST+2~
>> ZTQUEUED	STARTMST+11
ZTSK	UNQUEUE+2~, MSTNOW+1~, MSTNOW+43*, STARTMST+2~

Marked Items

Name	Field # of Occurrence
$T(EX+I	EX
$T(EXU+I	EXU

Customize PDF page

Package: Health Level Seven

Routine: HLEVMST0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items