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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLEVMST

Package: Health Level Seven

Routine: HLEVMST


Information

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

Source Information

Source file <HLEVMST.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 4 ($$RUNEV,EVENTCHK)^HLEVAPI0  MARKERR^HLEVAPI3  $$SEC^HLEVMST0  (DELETE,PURGEALL,PURGEME)^HLEVUTIL  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMTH,$$HTFM,$$NOW)^XLFDT  
VA Fileman 2 FILE^DICN  ^DIE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Health Level Seven 5 HLCSLM  HLEVAPI1  HLEVMST0  HLEVUTIL  HLP109  

Entry Points

Name Comments DBIA/ICR reference
UPDFLDM(HLEVIENM,FLD,VAL) ; Update a specific piece in 776.2...
PURGEM(HLEVIENM) ; Purge master job entries...
CHECKMST ; Called from outside Event Monitoring, from the Link Manager,
; to see if the master job needs to be started. (See ^HLCSLM.)
; When the Link Manager calls here, two actions potentially occur:
TIMECHK() ; Every loop in the Link Manager code in HLCSLM results in one
; call being made to CHECKMST^HLEVMST. The CHECKMST subroutine in turn
; calls here to ensure that the Event Monitor's master job is running
; properly. However, the CHECKMST subroutine should be run by HLCSLM
; only once every four hours. The code in this subroutine uses
; HLEVLCHK(#) variables to ensure that this every four hour rule is
; followed. (HLEVLCHK is newed at the top of HLCSLM.)
NEWMSTR(FUTURE,SILENT) ; Create a new master job...
;
; If FUTURE=0, then master job will be queued for NOW...
; If FUTURE=1, then master job will be q'd for CUTMIN in future...
STARTJOB ; Start a new job with optional display to screen...
STAMPM(HLEVIENM) ; Update TIMESTAMP field in event..
EOR ;HLEVMST - Event Monitor MASTER JOB ;5/16/03 14:42
MASTER ; Whenever a master job starts, here's where it's queued...
; HLEVIENM - req
MSTENV ; Display environment to user...
SHOWQUIT(TXT)

External References

Name Field # of Occurrence
^%ZTLOAD NEWMSTR+33
FILE^DICN NEWMSTR+18
^DIE NEWMSTR+38, UPDFLDM+20, STAMPM+4
$$RUNEV^HLEVAPI0 CHECKMST+34
EVENTCHK^HLEVAPI0 MASTER+35
MARKERR^HLEVAPI3 MASTER+41
$$SEC^HLEVMST0 CHECKMST+16, TIMECHK+9
DELETE^HLEVUTIL PURGEM+22
PURGEALL^HLEVUTIL MASTER+38
PURGEME^HLEVUTIL PURGEM+21
$$FMADD^XLFDT NEWMSTR+29, PURGEM+14
$$FMTH^XLFDT NEWMSTR+29
$$HTFM^XLFDT NEWMSTR+37
$$NOW^XLFDT MASTER+5, MASTER+30, MASTER+44, MASTER+46, NEWMSTR+17, NEWMSTR+29, STAMPM+3, PURGEM+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,TXT,!
  • Line Location: SHOWQUIT+1
Function Call: WRITE
  • Prompt: !!,"New master job queued to task# ",+JOBS,"..."
  • Line Location: STARTJOB+3
Function Call: WRITE
  • Prompt: !,"Entry #",$P(JOBS,U,2)," created in HL7 Monitor Master Job file..."
  • Line Location: STARTJOB+4
Function Call: WRITE
  • Prompt: !!,"Exiting! Master job not started. Parameter turned off..."
  • Line Location: NEWMSTR+13
Function Call: WRITE
  • Prompt: !!,"Exiting! Master job not started. Stub record creation failed..."
  • Line Location: NEWMSTR+21
Function Call: WRITE
  • Prompt: !!,"Master job created. Task# ",ZTSK,", and Event# ",HLEVIENM,"..."
  • Line Location: NEWMSTR+41
Routine Call
  • DIE
  • Line Location:
    • NEWMSTR+38
    • UPDFLDM+20
    • STAMPM+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLEV(776.2 - [#776.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLEV(776.2 - [#776.2] CHECKMST+27, CHECKMST+28, CHECKMST+31, MASTER+9, MASTER+23, UPDFLDM+3, UPDFLDM+9, UPDFLDM+11, UPDFLDM+13*, UPDFLDM+14*
, STAMPM+2, PURGEM+16, PURGEM+18
^HLEV(776.999 - [#776.999] CHECKMST+19, MASTER+12, NEWMSTR+11, NEWMSTR+27, PURGEM+4, PURGEM+9, PURGEM+10

Label References

Name Line Occurrences
$$NEWMSTR STARTJOB+2, MASTER+20
$$TIMECHK CHECKMST+13
SHOWQUIT CHECKMST+21, CHECKMST+25, CHECKMST+36
STARTJOB CHECKMST+30, CHECKMST+32, CHECKMST+35
UPDFLDM MASTER+13, MASTER+14, MASTER+24, MASTER+25, MASTER+28, MASTER+29, MASTER+30, MASTER+44, MASTER+45, MASTER+46
, MASTER+47, MASTER+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CT UPDFLDM+11*, UPDFLDM+12, UPDFLDM+14
CUTIME PURGEM+1~, PURGEM+14*, PURGEM+16*, PURGEM+18
CUTMIN NEWMSTR+5~, NEWMSTR+25*, NEWMSTR+27*, NEWMSTR+28*, NEWMSTR+29*, NEWMSTR+30, NEWMSTR+37
D MASTER+3~, UPDFLDM+1~, STAMPM+1~
D0 MASTER+3~, UPDFLDM+1~, STAMPM+1~
DA MASTER+3~, NEWMSTR+5~, NEWMSTR+36!, NEWMSTR+37*, UPDFLDM+1~, UPDFLDM+19*, STAMPM+1~, STAMPM+3*
DD NEWMSTR+5~, NEWMSTR+36!
DI UPDFLDM+1~, STAMPM+1~
DIC NEWMSTR+5~, NEWMSTR+17*, NEWMSTR+36!
DIC(0 NEWMSTR+17*
DIE MASTER+3~, NEWMSTR+5~, NEWMSTR+37*, UPDFLDM+1~, UPDFLDM+19*, STAMPM+1~, STAMPM+3*
DO NEWMSTR+5~, NEWMSTR+36!
DR MASTER+3~, NEWMSTR+5~, NEWMSTR+37*, UPDFLDM+1~, UPDFLDM+19*, STAMPM+1~, STAMPM+3*
DUZ NEWMSTR+37
FLD MASTER+3~, MASTER+13*, MASTER+24*, MASTER+29*, UPDFLDM~, UPDFLDM+8, UPDFLDM+16, UPDFLDM+19
FUTURE NEWMSTR~, NEWMSTR+26
HLEVIENM MASTER+9, MASTER+13, MASTER+14, MASTER+23, MASTER+24, MASTER+25, MASTER+28, MASTER+29, MASTER+30, MASTER+35
, MASTER+38, MASTER+44, MASTER+45, MASTER+46, MASTER+47, MASTER+53, NEWMSTR+5~, NEWMSTR+19*, NEWMSTR+37, NEWMSTR+41
, NEWMSTR+44, UPDFLDM~, UPDFLDM+3, UPDFLDM+9, UPDFLDM+11, UPDFLDM+13, UPDFLDM+14, UPDFLDM+19, STAMPM~, STAMPM+2
, STAMPM+3, PURGEM~, PURGEM+19
>> HLEVLCHK(0 TIMECHK+9*, TIMECHK+18
>> HLEVLCHK(1 CHECKMST+16*, TIMECHK+12*, TIMECHK+15, TIMECHK+18
>> HLEVLCHK(3 TIMECHK+18*, TIMECHK+21
>> IEN PURGEM+17*, PURGEM+18*, PURGEM+19, PURGEM+21, PURGEM+22
IENM PURGEM+1~
JOBS STARTJOB+1~, STARTJOB+2*, STARTJOB+3, STARTJOB+4
LAPSE CHECKMST+11~, CHECKMST+24*, CHECKMST+34
LASTDT CHECKMST+11~, CHECKMST+27*, CHECKMST+28
LASTIEN CHECKMST+11~, CHECKMST+28*, CHECKMST+30, CHECKMST+31
LOOPTM PURGEM+1~
>> NEWJOB MASTER+20*
NODE CHECKMST+11~, CHECKMST+31*, CHECKMST+32, CHECKMST+33, UPDFLDM+9*, UPDFLDM+10*, UPDFLDM+12*, UPDFLDM+13
NOEVCHK MASTER+3~, MASTER+33!, MASTER+34*, MASTER+47
NOEVCHK( MASTER+49, MASTER+52
NOPURG MASTER+3~, PURGEM+1~, PURGEM+6*, PURGEM+20*, PURGEM+24
NOW MASTER+3~, MASTER+5*, MASTER+13, MASTER+24, MASTER+29
PAR0 CHECKMST+11~, CHECKMST+19*, CHECKMST+20, CHECKMST+24
RES MASTER+3~, MASTER+48*, MASTER+49*, MASTER+50, MASTER+51, MASTER+52
RES(1 MASTER+50*, MASTER+51*, MASTER+52*, MASTER+53
RETHRM PURGEM+1~, PURGEM+9*, PURGEM+10*, PURGEM+11*, PURGEM+14
RUNOW CHECKMST+11~, CHECKMST+34*, CHECKMST+35
RUNTIME CHECKMST+11~, CHECKMST+33*, CHECKMST+34
SILENT NEWMSTR~, NEWMSTR+8*, NEWMSTR+12, NEWMSTR+20, NEWMSTR+40
TXT SHOWQUIT~, SHOWQUIT+1
U CHECKMST+20, CHECKMST+24, CHECKMST+32, CHECKMST+33, STARTJOB+4, MASTER+12, MASTER+23, NEWMSTR+11, NEWMSTR+27, NEWMSTR+44
, UPDFLDM+12, PURGEM+4, PURGEM+10
VAL UPDFLDM~, UPDFLDM+3, UPDFLDM+14, UPDFLDM+19
X CHECKMST+11~, CHECKMST+32*, NEWMSTR+5~, NEWMSTR+17*, NEWMSTR+36!
Y NEWMSTR+5~, NEWMSTR+19, NEWMSTR+36!
ZTDESC NEWMSTR+5~, NEWMSTR+30*
ZTDTH NEWMSTR+5~, NEWMSTR+30*
ZTIO NEWMSTR+5~, NEWMSTR+30*
>> ZTQUEUED SHOWQUIT, STARTJOB+2, NEWMSTR+12, NEWMSTR+20, NEWMSTR+40
>> ZTREQ MASTER+5*
ZTRTN NEWMSTR+5~, NEWMSTR+31*
>> ZTSAVE("HLEVIENM" NEWMSTR+32*
ZTSK MASTER+7, NEWMSTR+5~, NEWMSTR+37, NEWMSTR+41, NEWMSTR+44
ZTSKMST MASTER+3~, MASTER+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All