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

Call Graph

Call Graph

Call Graph Total: 9

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

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