Routine: HLEVAPI1

HLEVAPI1 ;O-OIFO/LJA - Event Monitor APIs ;02/04/2004 14:42

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995

SYSETUP ; Called by option's entry action...

 N DATA,LAST,NEXT,STAT

 ; Make sure master job is current...

 D CHECKMST^HLEVMST

 S DATA=$G(^HLEV(776.999,1,0)),LAST=$$LAST7762,NEXT=$$NEXT7762

 S STAT=$P(DATA,U,2)

 S STAT="-------- Master job status is "_$S(STAT="A":"ACTIVE",STAT="I":"INACTIVE",1:"NOT SET YET")_" --------"

 W !!!,$$CJ^XLFSTR(STAT,IOM)

 S X=$$LAST7762 I X]"" W !,$$CJ^XLFSTR(X,IOM)

 S X=$$NEXT7762 I X]"" W !,$$CJ^XLFSTR(X,IOM)

 S STAT=$P(DATA,U,6)

 W !,$$CJ^XLFSTR("-------- Event monitoring status is "_$S(STAT="A":"ACTIVE",STAT="I":"INACTIVE",1:"NOT SET YET")_" --------",IOM)

LAST7762() ; Return d/h/m/s since last master job run...

 N DATA,FIEN,IEN,LASTDT

 S LASTDT=":",FIEN=0

 F  S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(FIEN)  D

 .  S IEN=":"

 .  F  S IEN=$O(^HLEV(776.2,"B",+LASTDT,IEN),-1) Q:'IEN!(FIEN)  D

 .  .  S DATA=$G(^HLEV(776.2,+IEN,0)) QUIT:$P(DATA,U,4)'="F"  ;->

 .  .  S FIEN=IEN

 QUIT:'FIEN "Unknown last master job run time..." ;->

 QUIT $$DT7762(FIEN,0)

NEXT7762() ; Return d/h/m/s till next master job run...

 N DATA,FIEN,IEN,LASTDT

 S LASTDT=":",FIEN=0

 F  S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(FIEN)  D

 .  S IEN=":"

 .  F  S IEN=$O(^HLEV(776.2,"B",+LASTDT,IEN),-1) Q:'IEN!(FIEN)  D

 .  .  S DATA=$G(^HLEV(776.2,+IEN,0)) QUIT:$P(DATA,U,4)'="Q"  ;->

 .  .  S FIEN=IEN

 QUIT:'FIEN "Unknown next master job run time..." ;->

 Q $$DT7762(+FIEN,1)

DT7762(FIEN,NXT) ; Called by $$LAST7762 & NEXT7762...

 N DATA,DATE

 S DATA=$G(^HLEV(776.2,+FIEN,0))

 S DATE=$P(DATA,U,$S('NXT:2,1:6)) QUIT:DATE'?7N1"."1.N "" ;->

 S DATE=$$DHMSFM^HLEVUTIL(DATE,$$NOW^XLFDT,1)

 I 'NXT D  QUIT DATE ;-> Last...

 .  I DATE["[" S DATE="Unknown last master job run..." QUIT  ;->

 .  S DATE="Last master job run was "_DATE_" ago..."

 I NXT D  QUIT DATE ;-> Next...

 .  I DATE'["[" S DATE="Unknown next master job run..." QUIT  ;->

 .  S DATE="Next run "_$S($P(DATA,U,5):"[task# "_$P(DATA,U,5)_"] ",1:"")_"is "_$P($P(DATE,"[",2),"]")_" in the future..."

 Q ""

LOADALL(HLEVIENJ,SVSUB) ; Load all sections into global for mailing...

 N NO,TXT

 S SVSUB=$S($G(SVSUB)]"":SVSUB,1:"HLMAILMSG") ; Save Subscript...

 D LOADDESC(HLEVIENJ,SVSUB) ; Short description of monitor.

 D LOADCOMP(HLEVIENJ,SVSUB) ; Completed line...

 D LOADBODY^HLEVAPI2(HLEVIENJ,SVSUB) ; Start/end/Status/Status-Appl...

 S NO=0

 F  S NO=$O(HLEVTXT(NO)) Q:NO'>0  D

 .  S TXT=$G(HLEVTXT(NO)) QUIT:TXT']""  ;->

 .  S TXT=$$UP^XLFSTR($TR(TXT," ",""))

 .  I TXT="RUNDIARY" D LOADDGBL^HLEVAPI2(HLEVIENJ,50,SVSUB) QUIT  ;->

 .  I TXT="MESSAGETEXT" D LOADDGBL^HLEVAPI2(HLEVIENJ,51,SVSUB) QUIT  ;->

 .  I TXT="VARIABLEVALUE" D LOADVAR(HLEVIENJ,SVSUB) QUIT  ;->

 .  KILL X S X="W "_TXT D ^DIM Q:'$D(X)  ;->

 .  D LOADUSER(TXT,SVSUB)

LOADUSER(GBL,SVSUB) ; Load user data into Mailman message...

 N NO,TXT

 QUIT:$O(@GBL@(0))'>0  ;->

 S NO=0

 F  S NO=$O(@GBL@(NO)) Q:NO'>0  D

 .  S TXT=$G(@GBL@(NO))

 .  F  D  Q:TXT']""

 .  .  D ADD($E(TXT,1,74))

 .  .  S TXT=$E(TXT,75,999) QUIT:TXT']""  ;->

 .  .  S TXT="   "_TXT

LOADDESC(HLEVIENJ,SVSUB) ; Load description if it exists...

 N DESC,HLEVIENE

 S SVSUB=$S($G(SVSUB)]"":SVSUB,1:"HLMAILMSG")

 S HLEVIENE=$P($G(^HLEV(776,+HLEVIENJ,0)),U,3)

 S DESC=$P($G(^HLEV(776,+$G(HLEVIENE),0)),U,3) QUIT:DESC']""  ;->

 ; First line...

 D ADD("Monitor description: "_DESC)

 D ADD("")

LOADCOMP(HLEVIENJ,SVSUB) ; Load generic event monitor info into XMTEXT...

 N HLEVIENE,HLEVNM

 S SVSUB=$S($G(SVSUB)]"":SVSUB,1:"HLMAILMSG")

 S HLEVIENE=$P($G(^HLEV(776,+HLEVIENJ,0)),U,3)

 S HLEVNM=$P($G(^HLEV(776.1,+HLEVIENE,0)),U)

 ; First line...

 D ADD("The '"_HLEVNM_"' event monitor has completed.")

 D ADD("")

LOADVAR(HLEVIENJ,SVSUB) ; Load variable names...

 N CUT,MIEN,TXT,VAR

 QUIT:$O(^HLEV(776,+HLEVIENJ,52,0))'>0  ;->

 D ADD(""),ADD("Variable List"),ADD("-------------")

 S VAR=""

 F  S VAR=$O(^HLEV(776,+HLEVIENJ,52,"B",VAR)) Q:VAR']""  D

 .  S MIEN=0

 .  F  S MIEN=$O(^HLEV(776,+HLEVIENJ,52,"B",VAR,MIEN)) Q:MIEN'>0  D

 .  .  S TXT=$G(^HLEV(776,+HLEVIENJ,52,+MIEN,0)) QUIT:TXT']""  ;->

 .  .  S TXT=$P(TXT,U)_$S($P(TXT,U,2)]"":"["_$P(TXT,U,2)_"]",1:"")_"="

 .  .  S TXT(1)=$G(^HLEV(776,+HLEVIENJ,52,+MIEN,52))

 .  .  I ($L(TXT)+$L(TXT(1)))<240 S TXT=TXT_TXT(1),TXT(1)=""

 .  .  I TXT(1)]"" D

 .  .  .  S CUT(1)=$L(TXT),CUT(2)=$L(TXT(1)),CUT=240-CUT(1)

 .  .  .  S TXT=TXT_$E(TXT(1),1,CUT),TXT(1)=$E(TXT(1),CUT+1,999)

 .  .  F  D  QUIT:TXT']""

 .  .  .  D ADD($E(TXT,1,74))

 .  .  .  S TXT=$E(TXT,75,999) QUIT:TXT']""  ;->

 .  .  .  S TXT="   "_TXT

 .  .  .  QUIT:TXT(1)']""  ;->

 .  .  .

ADD(TXT) ; Add TXT to global to be mailed out...

 ; SVSUB -- req

 N NO

 S NO=$O(^TMP($J,SVSUB,":"),-1)+1

 S ^TMP($J,SVSUB,+NO)=TXT

CURR(IEN776) ; Is job running and current?

 N DATA,DIFF,STAT,TSTAMP

 S DATA=$G(^HLEV(776,+IEN776,0))

 S STAT=$P(DATA,U,4) QUIT:STAT'="R" "" ;->

 S TSTAMP=$P(DATA,U,6) QUIT:TSTAMP'?7N1"."1.N "" ;->

 S TSTAMP=$$FMTH^XLFDT(TSTAMP)

 S DIFF=$$DIFFDH^HLCSFMN1(TSTAMP,$H) ; Difference...

 I DIFF'?1.N1"^"2N1":"2N1":"2N QUIT "" ;-> DD^HH:MM:SS

 I +DIFF>0 QUIT "" ;-> 1 or more days difference!

 S DIFF=$P(DIFF,U,2) ; HH:MM:SS now...

 ; If 1 or more hrs, or >15 minutes old...

 I +DIFF!(+$P(DIFF,":",2)>15) QUIT "" ;->

Q 1

APPSTAT(STATUS) ; Fill in application status...

 ; HLEVIENJ -- req

 N DA,DIE,DR

 D DEBUG^HLEVAPI2("VARIABLE") ; Debug data created conditionally

 ; Stop all event monitoring to enable on-site debugging...

 QUIT:$G(^TMP("HLEVFLAG",$J))["STOP"  ;->

 QUIT:$G(STATUS)']""  ;->

 QUIT:$G(^HLEV(776,+$G(HLEVIENJ),0))']""  ;->

 S DA=+HLEVIENJ,DIE=776,DR="5///"_$E(STATUS,1,10)

 D ^DIE

RUNDIARY(GBL) ; Move GBL data into RUN DIARY...

 ; HLEVIENJ -- req

 D DEBUG^HLEVAPI2("VARIABLE") ; Debug data created conditionally

 ; Stop all event monitoring to enable on-site debugging...

 QUIT:$G(^TMP("HLEVFLAG",$J))["STOP"  ;->

 D GBLMOVE(+$G(HLEVIENJ),50,$G(GBL))

MSGTEXT(GBL) ; Mark event job entry to NOTIFY MAIL GROUP...

 ; HLEVIENJ -- req

 D DEBUG^HLEVAPI2("VARIABLE") ; Debug data created conditionally

 ; Stop all event monitoring to enable on-site debugging...

 QUIT:$G(^TMP("HLEVFLAG",$J))["STOP"  ;->

 D GBLMOVE(+$G(HLEVIENJ),51,$G(GBL))

GBLMOVE(HLEVIENJ,SUB,GBL) ; Move GBL data into entry's WP text...

 N CT,NO,NODE

 S SUB=$G(SUB) QUIT:SUB'=51&(SUB'=52)  ;->

 QUIT:$G(^HLEV(776,+HLEVIENJ,0))']""  ;->

 ; Add event text...

 S NODE="^776.002",NO=0

 F  S NO=$O(@GBL@(NO)) Q:NO'>0  D

 .  S CT=$O(^HLEV(776,+HLEVIENJ,SUB,":"),-1)+1

 .  S ^HLEV(776,+HLEVIENJ,SUB,CT,0)=$G(@GBL@(+NO))

 S CT=$O(^HLEV(776,+HLEVIENJ,SUB,":"),-1) QUIT:CT'>0  ;->

 S $P(NODE,U,3)=CT,$P(NODE,U,4)=CT

 S ^HLEV(776,+HLEVIENJ,SUB,0)=NODE

ONETIME ;Start a one-time run of event monitor (w/no master job)

 N HLEVIENE,QTASK

 W @IOF,$$CJ^XLFSTR("One-time Queueing of Event Monitor",IOM)

 W !,$$REPEAT^XLFSTR("=",IOM)

 W !,"Normally, the master job evaluates every event monitor and queues a background"

 W !,"job for those events ready for a new ""run.""  This option allows the running"

 W !,"of an event monitor between ""normal"" runs."

 W !!,"Do you want to start a new ""in-between"" run of a monitor?  If so, select"

 W !,"it now.  If not, press RETURN to exit..."

W !

 S HLEVIENE=$$ASKIEN^HLEVREP(776.1) I HLEVIENE'>0 D  QUIT  ;->

 .  W "   exiting..."

W !

 D ASKRUN(HLEVIENE)

ASKRUN(HLEVIENE) ; Ask if want to run a one-time...

 N DATA,QTASK,QTIME

 I $P($G(^HLEV(776.1,+$G(HLEVIENE),0)),U,2)'="A" D  QUIT  ;->

 .  QUIT:$G(^HLEV(776.1,+$G(HLEVIENE),0))']""  ;->

 .  D TELL^HLEVMST0("Event monitor is INACTIVE!!","1,2,999")

 I $$YN^HLCSRPT4("Run monitor now","No") D  QUIT  ;->

 .  D QIT($$NOW^XLFDT) W "   exiting..."

 W !!,"You may queue this monitor to run ""one-time"" in the future.  If so, enter a"

 W !,"future date/time now..."

W !

 F  S QTIME=$$ASKDATE^HLEVAPI2("Enter future run time") D  QUIT:QTIME?7N1"."1.N!(QTIME']"")

 .  QUIT:QTIME'?7N1"."1.N  ;->

 .  I QTIME>$$NOW^XLFDT D QIT(QTIME) QUIT  ;->

 .  S QTIME="REASK"

 .  W "  enter a future time..."

QIT(QTIME) ; Queue it...

 N QTASK

 S QTASK=$$Q1TIME^HLEVAPI0(+HLEVIENE,0,QTIME)

 I +QTASK>0 W !!,"   Queued task# ",+QTASK," [#",$P(QTASK,U,2),"]..."

 I +QTASK'>0 W !!,"   Error occurred.  No monitor ""run"" started..."

W !

 F  Q:($Y+3)>IOSL  W !

 S X=$$BTE^HLCSMON("Press RETURN to exit... ")

EOR ;HLEVAPI1 - Event Monitor APIs ;5/16/03 14:42

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEVAPI1   8813     printed  Feb 18, 2025@23:24:07                                                                                                                                                                                                    Page 2

HLEVAPI1  ;O-OIFO/LJA - Event Monitor APIs ;02/04/2004 14:42

 +1       ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995

 +2       ;

SYSETUP   ; Called by option's entry action...

 +1        NEW DATA,LAST,NEXT,STAT

 +2       ;

 +3       ; Make sure master job is current...

 +4        DO CHECKMST^HLEVMST

 +5       ;

 +6        SET DATA=$GET(^HLEV(776.999,1,0))

           SET LAST=$$LAST7762

           SET NEXT=$$NEXT7762

 +7       ;

 +8        SET STAT=$PIECE(DATA,U,2)

 +9        SET STAT="-------- Master job status is "_$SELECT(STAT="A":"ACTIVE",STAT="I":"INACTIVE",1:"NOT SET YET")_" --------"

 +10       WRITE !!!,$$CJ^XLFSTR(STAT,IOM)

 +11       SET X=$$LAST7762

           IF X]""

               WRITE !,$$CJ^XLFSTR(X,IOM)

 +12       SET X=$$NEXT7762

           IF X]""

               WRITE !,$$CJ^XLFSTR(X,IOM)

 +13      ;

 +14       SET STAT=$PIECE(DATA,U,6)

 +15       WRITE !,$$CJ^XLFSTR("-------- Event monitoring status is "_$SELECT(STAT="A":"ACTIVE",STAT="I":"INACTIVE",1:"NOT SET YET")_" --------",IOM)

 +16      ;

 +17       QUIT

 +18      ;

LAST7762() ; Return d/h/m/s since last master job run...

 +1        NEW DATA,FIEN,IEN,LASTDT

 +2       ;

 +3        SET LASTDT=":"

           SET FIEN=0

 +4        FOR

               SET LASTDT=$ORDER(^HLEV(776.2,"B",LASTDT),-1)

               if 'LASTDT!(FIEN)

                   QUIT

               Begin DoDot:1

 +5                SET IEN=":"

 +6                FOR

                       SET IEN=$ORDER(^HLEV(776.2,"B",+LASTDT,IEN),-1)

                       if 'IEN!(FIEN)

                           QUIT

                       Begin DoDot:2

 +7       ;->

                           SET DATA=$GET(^HLEV(776.2,+IEN,0))

                           if $PIECE(DATA,U,4)'="F"

                               QUIT

 +8                        SET FIEN=IEN

                       End DoDot:2

               End DoDot:1

 +9       ;

 +10      ;->

           if 'FIEN

               QUIT "Unknown last master job run time..."

 +11      ;

 +12       QUIT $$DT7762(FIEN,0)

 +13      ;

NEXT7762() ; Return d/h/m/s till next master job run...

 +1        NEW DATA,FIEN,IEN,LASTDT

 +2       ;

 +3        SET LASTDT=":"

           SET FIEN=0

 +4        FOR

               SET LASTDT=$ORDER(^HLEV(776.2,"B",LASTDT),-1)

               if 'LASTDT!(FIEN)

                   QUIT

               Begin DoDot:1

 +5                SET IEN=":"

 +6                FOR

                       SET IEN=$ORDER(^HLEV(776.2,"B",+LASTDT,IEN),-1)

                       if 'IEN!(FIEN)

                           QUIT

                       Begin DoDot:2

 +7       ;->

                           SET DATA=$GET(^HLEV(776.2,+IEN,0))

                           if $PIECE(DATA,U,4)'="Q"

                               QUIT

 +8                        SET FIEN=IEN

                       End DoDot:2

               End DoDot:1

 +9       ;

 +10      ;->

           if 'FIEN

               QUIT "Unknown next master job run time..."

 +11      ;

 +12       QUIT $$DT7762(+FIEN,1)

 +13      ;

DT7762(FIEN,NXT) ; Called by $$LAST7762 & NEXT7762...

 +1        NEW DATA,DATE

 +2        SET DATA=$GET(^HLEV(776.2,+FIEN,0))

 +3       ;->

           SET DATE=$PIECE(DATA,U,$SELECT('NXT:2,1:6))

           if DATE'?7N1"."1.N

               QUIT ""

 +4        SET DATE=$$DHMSFM^HLEVUTIL(DATE,$$NOW^XLFDT,1)

 +5       ;-> Last...

           IF 'NXT

               Begin DoDot:1

 +6       ;->

                   IF DATE["["

                       SET DATE="Unknown last master job run..."

                       QUIT

 +7                SET DATE="Last master job run was "_DATE_" ago..."

               End DoDot:1

               QUIT DATE

 +8       ;-> Next...

           IF NXT

               Begin DoDot:1

 +9       ;->

                   IF DATE'["["

                       SET DATE="Unknown next master job run..."

                       QUIT

 +10               SET DATE="Next run "_$SELECT($PIECE(DATA,U,5):"[task# "_$PIECE(DATA,U,5)_"] ",1:"")_"is "_$PIECE($PIECE(DATE,"[",2),"]")_" in the future..."

               End DoDot:1

               QUIT DATE

 +11       QUIT ""

 +12      ;

LOADALL(HLEVIENJ,SVSUB) ; Load all sections into global for mailing...

 +1        NEW NO,TXT

 +2       ; Save Subscript...

           SET SVSUB=$SELECT($GET(SVSUB)]"":SVSUB,1:"HLMAILMSG")

 +3       ; Short description of monitor.

           DO LOADDESC(HLEVIENJ,SVSUB)

 +4       ; Completed line...

           DO LOADCOMP(HLEVIENJ,SVSUB)

 +5       ; Start/end/Status/Status-Appl...

           DO LOADBODY^HLEVAPI2(HLEVIENJ,SVSUB)

 +6        SET NO=0

 +7        FOR

               SET NO=$ORDER(HLEVTXT(NO))

               if NO'>0

                   QUIT

               Begin DoDot:1

 +8       ;->

                   SET TXT=$GET(HLEVTXT(NO))

                   if TXT']""

                       QUIT

 +9                SET TXT=$$UP^XLFSTR($TRANSLATE(TXT," ",""))

 +10      ;->

                   IF TXT="RUNDIARY"

                       DO LOADDGBL^HLEVAPI2(HLEVIENJ,50,SVSUB)

                       QUIT

 +11      ;->

                   IF TXT="MESSAGETEXT"

                       DO LOADDGBL^HLEVAPI2(HLEVIENJ,51,SVSUB)

                       QUIT

 +12      ;->

                   IF TXT="VARIABLEVALUE"

                       DO LOADVAR(HLEVIENJ,SVSUB)

                       QUIT

 +13      ;->

                   KILL X

                   SET X="W "_TXT

                   DO ^DIM

                   if '$DATA(X)

                       QUIT

 +14               DO LOADUSER(TXT,SVSUB)

               End DoDot:1

 +15       QUIT

 +16      ;

LOADUSER(GBL,SVSUB) ; Load user data into Mailman message...

 +1        NEW NO,TXT

 +2       ;

 +3       ;->

           if $ORDER(@GBL@(0))'>0

               QUIT

 +4       ;

 +5        SET NO=0

 +6        FOR

               SET NO=$ORDER(@GBL@(NO))

               if NO'>0

                   QUIT

               Begin DoDot:1

 +7                SET TXT=$GET(@GBL@(NO))

 +8                FOR

                       Begin DoDot:2

 +9                        DO ADD($EXTRACT(TXT,1,74))

 +10      ;->

                           SET TXT=$EXTRACT(TXT,75,999)

                           if TXT']""

                               QUIT

 +11                       SET TXT="   "_TXT

                       End DoDot:2

                       if TXT']""

                           QUIT

               End DoDot:1

 +12      ;

 +13       QUIT

 +14      ;

LOADDESC(HLEVIENJ,SVSUB) ; Load description if it exists...

 +1        NEW DESC,HLEVIENE

 +2        SET SVSUB=$SELECT($GET(SVSUB)]"":SVSUB,1:"HLMAILMSG")

 +3        SET HLEVIENE=$PIECE($GET(^HLEV(776,+HLEVIENJ,0)),U,3)

 +4       ;->

           SET DESC=$PIECE($GET(^HLEV(776,+$GET(HLEVIENE),0)),U,3)

           if DESC']""

               QUIT

 +5       ; First line...

 +6        DO ADD("Monitor description: "_DESC)

 +7        DO ADD("")

 +8        QUIT

 +9       ;

LOADCOMP(HLEVIENJ,SVSUB) ; Load generic event monitor info into XMTEXT...

 +1        NEW HLEVIENE,HLEVNM

 +2        SET SVSUB=$SELECT($GET(SVSUB)]"":SVSUB,1:"HLMAILMSG")

 +3        SET HLEVIENE=$PIECE($GET(^HLEV(776,+HLEVIENJ,0)),U,3)

 +4        SET HLEVNM=$PIECE($GET(^HLEV(776.1,+HLEVIENE,0)),U)

 +5       ; First line...

 +6        DO ADD("The '"_HLEVNM_"' event monitor has completed.")

 +7        DO ADD("")

 +8        QUIT

 +9       ;

LOADVAR(HLEVIENJ,SVSUB) ; Load variable names...

 +1        NEW CUT,MIEN,TXT,VAR

 +2       ;

 +3       ;->

           if $ORDER(^HLEV(776,+HLEVIENJ,52,0))'>0

               QUIT

 +4       ;

 +5        DO ADD("")

           DO ADD("Variable List")

           DO ADD("-------------")

 +6       ;

 +7        SET VAR=""

 +8        FOR

               SET VAR=$ORDER(^HLEV(776,+HLEVIENJ,52,"B",VAR))

               if VAR']""

                   QUIT

               Begin DoDot:1

 +9                SET MIEN=0

 +10               FOR

                       SET MIEN=$ORDER(^HLEV(776,+HLEVIENJ,52,"B",VAR,MIEN))

                       if MIEN'>0

                           QUIT

                       Begin DoDot:2

 +11      ;->

                           SET TXT=$GET(^HLEV(776,+HLEVIENJ,52,+MIEN,0))

                           if TXT']""

                               QUIT

 +12                       SET TXT=$PIECE(TXT,U)_$SELECT($PIECE(TXT,U,2)]"":"["_$PIECE(TXT,U,2)_"]",1:"")_"="

 +13                       SET TXT(1)=$GET(^HLEV(776,+HLEVIENJ,52,+MIEN,52))

 +14                       IF ($LENGTH(TXT)+$LENGTH(TXT(1)))<240

                               SET TXT=TXT_TXT(1)

                               SET TXT(1)=""

 +15                       IF TXT(1)]""

                               Begin DoDot:3

 +16                               SET CUT(1)=$LENGTH(TXT)

                                   SET CUT(2)=$LENGTH(TXT(1))

                                   SET CUT=240-CUT(1)

 +17                               SET TXT=TXT_$EXTRACT(TXT(1),1,CUT)

                                   SET TXT(1)=$EXTRACT(TXT(1),CUT+1,999)

                               End DoDot:3

 +18                       FOR

                               Begin DoDot:3

 +19                               DO ADD($EXTRACT(TXT,1,74))

 +20      ;->

                                   SET TXT=$EXTRACT(TXT,75,999)

                                   if TXT']""

                                       QUIT

 +21                               SET TXT="   "_TXT

 +22      ;->

                                   if TXT(1)']""

                                       QUIT

 +23                           End DoDot:3

                               if TXT']""

                                   QUIT

                       End DoDot:2

               End DoDot:1

 +24      ;

 +25       QUIT

 +26      ;

ADD(TXT)  ; Add TXT to global to be mailed out...

 +1       ; SVSUB -- req

 +2        NEW NO

 +3        SET NO=$ORDER(^TMP($JOB,SVSUB,":"),-1)+1

 +4        SET ^TMP($JOB,SVSUB,+NO)=TXT

 +5        QUIT

 +6       ;

CURR(IEN776) ; Is job running and current?

 +1        NEW DATA,DIFF,STAT,TSTAMP

 +2        SET DATA=$GET(^HLEV(776,+IEN776,0))

 +3       ;->

           SET STAT=$PIECE(DATA,U,4)

           if STAT'="R"

               QUIT ""

 +4       ;->

           SET TSTAMP=$PIECE(DATA,U,6)

           if TSTAMP'?7N1"."1.N

               QUIT ""

 +5        SET TSTAMP=$$FMTH^XLFDT(TSTAMP)

 +6       ; Difference...

           SET DIFF=$$DIFFDH^HLCSFMN1(TSTAMP,$HOROLOG)

 +7       ;-> DD^HH:MM:SS

           IF DIFF'?1.N1"^"2N1":"2N1":"2N

               QUIT ""

 +8       ;-> 1 or more days difference!

           IF +DIFF>0

               QUIT ""

 +9       ; HH:MM:SS now...

           SET DIFF=$PIECE(DIFF,U,2)

 +10      ; If 1 or more hrs, or >15 minutes old...

 +11      ;->

           IF +DIFF!(+$PIECE(DIFF,":",2)>15)

               QUIT ""

 +12       QUIT 1

 +13      ;

APPSTAT(STATUS) ; Fill in application status...

 +1       ; HLEVIENJ -- req

 +2        NEW DA,DIE,DR

 +3       ;

 +4       ; Debug data created conditionally

           DO DEBUG^HLEVAPI2("VARIABLE")

 +5       ;

 +6       ; Stop all event monitoring to enable on-site debugging...

 +7       ;->

           if $GET(^TMP("HLEVFLAG",$JOB))["STOP"

               QUIT

 +8       ;

 +9       ;->

           if $GET(STATUS)']""

               QUIT

 +10      ;->

           if $GET(^HLEV(776,+$GET(HLEVIENJ),0))']""

               QUIT

 +11       SET DA=+HLEVIENJ

           SET DIE=776

           SET DR="5///"_$EXTRACT(STATUS,1,10)

 +12       DO ^DIE

 +13       QUIT

 +14      ;

RUNDIARY(GBL) ; Move GBL data into RUN DIARY...

 +1       ; HLEVIENJ -- req

 +2       ;

 +3       ; Debug data created conditionally

           DO DEBUG^HLEVAPI2("VARIABLE")

 +4       ;

 +5       ; Stop all event monitoring to enable on-site debugging...

 +6       ;->

           if $GET(^TMP("HLEVFLAG",$JOB))["STOP"

               QUIT

 +7       ;

 +8        DO GBLMOVE(+$GET(HLEVIENJ),50,$GET(GBL))

 +9        QUIT

 +10      ;

MSGTEXT(GBL) ; Mark event job entry to NOTIFY MAIL GROUP...

 +1       ; HLEVIENJ -- req

 +2       ;

 +3       ; Debug data created conditionally

           DO DEBUG^HLEVAPI2("VARIABLE")

 +4       ;

 +5       ; Stop all event monitoring to enable on-site debugging...

 +6       ;->

           if $GET(^TMP("HLEVFLAG",$JOB))["STOP"

               QUIT

 +7       ;

 +8        DO GBLMOVE(+$GET(HLEVIENJ),51,$GET(GBL))

 +9        QUIT

 +10      ;

GBLMOVE(HLEVIENJ,SUB,GBL) ; Move GBL data into entry's WP text...

 +1        NEW CT,NO,NODE

 +2       ;

 +3       ;->

           SET SUB=$GET(SUB)

           if SUB'=51&(SUB'=52)

               QUIT

 +4       ;->

           if $GET(^HLEV(776,+HLEVIENJ,0))']""

               QUIT

 +5       ;

 +6       ; Add event text...

 +7        SET NODE="^776.002"

           SET NO=0

 +8        FOR

               SET NO=$ORDER(@GBL@(NO))

               if NO'>0

                   QUIT

               Begin DoDot:1

 +9                SET CT=$ORDER(^HLEV(776,+HLEVIENJ,SUB,":"),-1)+1

 +10               SET ^HLEV(776,+HLEVIENJ,SUB,CT,0)=$GET(@GBL@(+NO))

               End DoDot:1

 +11      ;->

           SET CT=$ORDER(^HLEV(776,+HLEVIENJ,SUB,":"),-1)

           if CT'>0

               QUIT

 +12       SET $PIECE(NODE,U,3)=CT

           SET $PIECE(NODE,U,4)=CT

 +13       SET ^HLEV(776,+HLEVIENJ,SUB,0)=NODE

 +14      ;

 +15       QUIT

 +16      ;

ONETIME   ;Start a one-time run of event monitor (w/no master job)

 +1        NEW HLEVIENE,QTASK

 +2        WRITE @IOF,$$CJ^XLFSTR("One-time Queueing of Event Monitor",IOM)

 +3        WRITE !,$$REPEAT^XLFSTR("=",IOM)

 +4        WRITE !,"Normally, the master job evaluates every event monitor and queues a background"

 +5        WRITE !,"job for those events ready for a new ""run.""  This option allows the running"

 +6        WRITE !,"of an event monitor between ""normal"" runs."

 +7        WRITE !!,"Do you want to start a new ""in-between"" run of a monitor?  If so, select"

 +8        WRITE !,"it now.  If not, press RETURN to exit..."

 +9        WRITE !

 +10      ;

 +11      ;->

           SET HLEVIENE=$$ASKIEN^HLEVREP(776.1)

           IF HLEVIENE'>0

               Begin DoDot:1

 +12               WRITE "   exiting..."

               End DoDot:1

               QUIT

 +13      ;

 +14       WRITE !

 +15       DO ASKRUN(HLEVIENE)

 +16      ;

 +17       QUIT

 +18      ;

ASKRUN(HLEVIENE) ; Ask if want to run a one-time...

 +1        NEW DATA,QTASK,QTIME

 +2       ;

 +3       ;->

           IF $PIECE($GET(^HLEV(776.1,+$GET(HLEVIENE),0)),U,2)'="A"

               Begin DoDot:1

 +4       ;->

                   if $GET(^HLEV(776.1,+$GET(HLEVIENE),0))']""

                       QUIT

 +5                DO TELL^HLEVMST0("Event monitor is INACTIVE!!","1,2,999")

               End DoDot:1

               QUIT

 +6       ;

 +7       ;->

           IF $$YN^HLCSRPT4("Run monitor now","No")

               Begin DoDot:1

 +8                DO QIT($$NOW^XLFDT)

                   WRITE "   exiting..."

               End DoDot:1

               QUIT

 +9       ;

 +10       WRITE !!,"You may queue this monitor to run ""one-time"" in the future.  If so, enter a"

 +11       WRITE !,"future date/time now..."

 +12       WRITE !

 +13      ;

 +14       FOR

               SET QTIME=$$ASKDATE^HLEVAPI2("Enter future run time")

               Begin DoDot:1

 +15      ;->

                   if QTIME'?7N1"."1.N

                       QUIT

 +16      ;->

                   IF QTIME>$$NOW^XLFDT

                       DO QIT(QTIME)

                       QUIT

 +17               SET QTIME="REASK"

 +18               WRITE "  enter a future time..."

               End DoDot:1

               if QTIME?7N1"."1.N!(QTIME']"")

                   QUIT

 +19      ;

 +20       QUIT

 +21      ;

QIT(QTIME) ; Queue it...

 +1        NEW QTASK

 +2        SET QTASK=$$Q1TIME^HLEVAPI0(+HLEVIENE,0,QTIME)

 +3        IF +QTASK>0

               WRITE !!,"   Queued task# ",+QTASK," [#",$PIECE(QTASK,U,2),"]..."

 +4        IF +QTASK'>0

               WRITE !!,"   Error occurred.  No monitor ""run"" started..."

 +5        WRITE !

 +6        FOR

               if ($Y+3)>IOSL

                   QUIT

               WRITE !

 +7        SET X=$$BTE^HLCSMON("Press RETURN to exit... ")

 +8        QUIT

 +9       ;

EOR       ;HLEVAPI1 - Event Monitor APIs ;5/16/03 14:42

HLEVAPI1.m