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 |  Marked Items |  All
Print Page as PDF
Routine: HLEVMST0

Package: Health Level Seven

Routine: HLEVMST0


Information

HLEVMST0 ;O-OIFO/LJA - Event Monitor MASTER JOB ;02/04/2004 14:42

Source Information

Source file <HLEVMST0.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 11

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All