Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls