Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLEVX001

HLEVX001.m

Go to the documentation of this file.
  1. HLEVX001 ;O-OIFO/LJA - Event Monitor "Mother" ;02/04/2004 14:42
  1. ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
  1. ;
  1. MOTHER ; The "Mother of All" monitors! (Monitors the Event Monitor)
  1. ;HLEVIENE,HLEVIENJ,HLEVIENM -- req
  1. D START^HLEVAPI()
  1. D MASTER
  1. D MONITOR
  1. D CHECKOUT^HLEVAPI
  1. Q
  1. ;
  1. MASTER ; Collect master job information...
  1. D LASTNEXT
  1. D MSTRUNS
  1. Q
  1. ;
  1. MSTRUNS ; Show master runs and status counts...
  1. N CT,CTM,STAT,STATM
  1. KILL ^TMP($J,"SV")
  1. D RUNS("SV")
  1. D ADD50("")
  1. D ADD50("# job runs last 24 hours",$G(^TMP($J,"SV")))
  1. D ADD50(" "_$$REPEAT^XLFSTR("-",40))
  1. S STAT=""
  1. F S STAT=$O(^TMP($J,"SV",STAT)) Q:STAT']"" D
  1. . S CT=^TMP($J,"SV",STAT)
  1. . D ADD50("#"_$$STAT2(STAT),CT)
  1. Q
  1. ;
  1. STAT2(STAT) ; Return status for 776.2 0;4...
  1. Q $S(STAT="E":"ERROR",STAT="F":"FINISHED",STAT="Q":"QUEUED",STAT="R":"RUNNING",STAT="P":"PARM STOP",STAT="S":"STOP REQUESTED",STAT="A":"JOB ABORTED",1:STAT)
  1. ;
  1. STAT2M(STAT) ; REturn status for 776.2051 0;2 & 0;6...
  1. Q $S(STAT="E":"TOO EARLY",STAT="I":"INACTIVE",STAT="M":"M-CHK-FAIL",STAT="Q":"QUEUED",STAT="R":"RUNNING",STAT="XM":"M CODE",$E(STAT)="X":"ERROR",1:STAT)
  1. ;
  1. LASTNEXT ; Show last completed run and next queued run...
  1. N IENLAST,IENNEXT
  1. S IENLAST=+$$IEN7762("F"),NODE(+IENLAST)=$G(^HLEV(776.2,+IENLAST,0))
  1. S IENNEXT=+$$IEN7762("Q"),NODE(+IENNEXT)=$G(^HLEV(776.2,+IENNEXT,0))
  1. D ADD50("Last master job run",$$FMTE^XLFDT(+NODE(+IENLAST)))
  1. D ADD50("Next master job at",$$FMTE^XLFDT(+NODE(+IENNEXT))_" Task#: "_$P(NODE(+IENNEXT),U,5))
  1. Q
  1. ;
  1. RUNS(SUB) ; Find number runs and results...
  1. N ABORT,CUT,DATA,IEN,IENM,LASTDT,RES,STAT,STATM,STATM5
  1. S CUT=$$FMADD^XLFDT($$NOW^XLFDT,-1),ABORT=0
  1. S LASTDT=":"
  1. F S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(LASTDT<CUT)!(ABORT) D
  1. . S IEN=":"
  1. . F S IEN=$O(^HLEV(776.2,"B",LASTDT,IEN),-1) Q:'IEN!(ABORT) D
  1. . . S DATA=$G(^HLEV(776.2,+IEN,0))
  1. . . S STAT=$P(DATA,U,4),STAT=$S(STAT]"":STAT,1:"?")
  1. . . S ^TMP($J,SUB)=$G(^TMP($J,SUB))+1
  1. . . S ^TMP($J,SUB,STAT)=$G(^TMP($J,SUB,STAT))+1
  1. . . S IENM=0
  1. . . F S IENM=$O(^HLEV(776.2,+IEN,51,IENM)) Q:IENM'>0 D
  1. . . . S DATA=^HLEV(776.2,+IEN,51,+IENM,0)
  1. . . . S STATM=$P(DATA,U,2),STATM=$S(STATM]"":STATM,1:"?")
  1. . . . S STATM5=$P(DATA,U,5),STATM=$$STATM5(STATM,STATM5)
  1. . . . S ^TMP($J,SUB,STAT,STATM)=$G(^TMP($J,SUB,STAT,STATM))+1
  1. Q
  1. ;
  1. STATM5(STATM,STATM5) ; Return sorting subscript RESULTS
  1. QUIT:$E(STATM5)="X" STATM5
  1. Q STATM
  1. ;
  1. ADD50(TAG,TXT) ; Add to ^HLEV(776,+HLEVIENJ,50)...
  1. ; HLEVIENJ -- req
  1. N POSX
  1. ;
  1. S TAG=$G(TAG),TXT=$G(TXT)
  1. ;
  1. ; If TXT passed & TAG not passed...
  1. I TXT]"",TAG']"" D QUIT ;->
  1. . D WPTXT^HLEVUTIL(776,+HLEVIENJ,50,776.002,TXT)
  1. ;
  1. ; If TXT not passed...
  1. I TXT']"" D ;-> Blank line...
  1. . ; If TAG not passed...
  1. . I TAG']"" D QUIT ;-> Blank line...
  1. . . D WPTXT^HLEVUTIL(776,+HLEVIENJ,50,776.002,"")
  1. . ; If TAG passed...
  1. . I TAG]"" D QUIT ;-> Separator line or something
  1. . . D WPTXT^HLEVUTIL(776,+HLEVIENJ,50,776.002,TAG)
  1. ;
  1. S TAG=$E($$REPEAT^XLFSTR(" ",40),1,30-$L(TAG))_TAG_": "
  1. S POSX=$L(TAG),TXT=TAG_TXT
  1. ;
  1. F QUIT:TXT']"" D
  1. . D WPTXT^HLEVUTIL(776,+HLEVIENJ,50,776.002,$E(TXT,1,74))
  1. . S TXT=$E(TXT,75,999) QUIT:TXT']"" ;->
  1. . S TXT=$$REPEAT^XLFSTR(" ",POSX)_TXT
  1. ;
  1. Q
  1. ;
  1. IEN7762(STAT) ;
  1. N FIEN,IEN,LASTDT
  1. S LASTDT=":",FIEN=""
  1. F S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(FIEN) D
  1. . S IEN=":"
  1. . F S IEN=$O(^HLEV(776.2,"B",+LASTDT,IEN),-1) Q:'IEN!(FIEN) D
  1. . . QUIT:$P($G(^HLEV(776.2,+IEN,0)),U,4)'=STAT ;->
  1. . . S FIEN=IEN
  1. Q FIEN
  1. ;
  1. MONITOR ; Collect monitor information...
  1. ; HLEVIENJ -- req
  1. N DATA,DATE,EVIEN,EVNM,IEN,IENJ,IOINHI,IOINORM,LASTDT,MIEN
  1. N NO,RUNNING,STAT,X
  1. ;
  1. KILL ^TMP($J,"HLRUN")
  1. ;
  1. ; Find latest 776.2 master run...
  1. S LASTDT=":",NO=0
  1. F S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(NO>3) D
  1. . S IEN=""
  1. . F S IEN=$O(^HLEV(776.2,"B",+LASTDT,IEN),-1) Q:'IEN!(NO>3) D
  1. . . S DATA(776.2)=$G(^HLEV(776.2,+IEN,0)) QUIT:DATA(776.2)']"" ;->
  1. . . S STAT=$P(DATA(776.2),U,4),STAT=$S(STAT]"":STAT,1:" ")
  1. . . S NO=NO+1
  1. . . ; Add events monitored...
  1. . . S MIEN=0
  1. . . F S MIEN=$O(^HLEV(776.2,+IEN,51,MIEN)) Q:MIEN'>0 D
  1. . . . S DATA(51)=$G(^HLEV(776.2,+IEN,51,+MIEN,0)) Q:DATA(51)']"" ;->
  1. . . . S EVIEN=+DATA(51)
  1. . . . S EVNM=$P($G(^HLEV(776.1,+EVIEN,0)),U) QUIT:EVNM']"" ;->
  1. . . . S IENJ=$P(DATA(51),U,8) QUIT:IENJ'>0 ;->
  1. . . . S DATA(776)=$G(^HLEV(776,+IENJ,0)) QUIT:DATA(776)']"" ;->
  1. . . . S ^TMP($J,"HLRUN","NO",IEN)=DATA(776.2)
  1. . . . S ^TMP($J,"HLRUN","NO",IEN,EVNM)=DATA(51)
  1. . . . S ^TMP($J,"HLRUN","NO",IEN,EVNM,IENJ)=DATA(776)
  1. . . . S ^TMP($J,"HLRUN","NM",EVNM,IEN)="" ; xref...
  1. ;
  1. QUIT:'$D(^TMP($J,"HLRUN")) ;->
  1. ;
  1. D ADD50("","Recent Event Runs")
  1. D ADD50("",$$REPEAT^XLFSTR("-",74))
  1. D ADD50("","Event-Name Run#1 Run#2 Run#3")
  1. D ADD50("",$$REPEAT^XLFSTR("-",74))
  1. S EVNM="",RUNNING=0
  1. F S EVNM=$O(^TMP($J,"HLRUN","NM",EVNM)) Q:EVNM']"" D
  1. . S TXT=$E(EVNM_$$REPEAT^XLFSTR(" ",30),1,30)_" "
  1. . S EVIEN=0
  1. . F S EVIEN=$O(^TMP($J,"HLRUN","NM",EVNM,EVIEN)) Q:EVIEN'>0 D
  1. . . S IENJ=0
  1. . . F S IENJ=$O(^TMP($J,"HLRUN","NO",+EVIEN,EVNM,IENJ)) Q:'IENJ D
  1. . . . S DATA=$G(^TMP($J,"HLRUN","NO",+EVIEN,EVNM,+IENJ)) QUIT:DATA']"" ;->
  1. . . . S STAT=$P(DATA,U,5),STAT=$S(STAT="F":1,1:0)
  1. . . . S RUNNING=RUNNING+STAT
  1. . . . S DATE=+DATA QUIT:DATE'?7N1"."1.N ;->
  1. . . . S DATE=$E("[",STAT)_$$SDT(DATE)_$E("]",STAT)
  1. . . . S TXT=TXT_$E(DATE_" ",1,15)
  1. . D ADD50("",TXT)
  1. ;
  1. I RUNNING D ADD50(""),ADD50(" (Dates in [brackets] are still running.)")
  1. ;
  1. KILL ^TMP($J,"HLRUN")
  1. ;
  1. Q
  1. ;
  1. SDT(DATE) ; Return shortened form of date...
  1. I DATE?7N QUIT $E(DATE,4,5)_"/"_$E(DATE,6,7) ;->
  1. I DATE?7N1"."1.N QUIT $E(DATE,4,5)_"/"_$E(DATE,6,7)_"@"_$E($P($$FMTE^XLFDT(DATE),"@",2),1,5)
  1. QUIT ""
  1. ;
  1. EOR ;HLEVX001 - Event Monitor "Mother" ;5/16/03 14:42