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: HLEVUTI2

Package: Health Level Seven

Routine: HLEVUTI2


Information

HLEVUTI2 ;O-OIFO/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Source Information

Source file <HLEVUTI2.m>

Entry Points

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

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