HLEVREP ;O-OIFO/LJA - Event Monitor REPORTS ;02/04/2004 14:42
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
;
SHOWONE ; Show entry in any Event Monitoring file...
;
;
CTRL ;
;
D HD
D EX
F Q:(IOSL-$Y)<4 W !
QUIT:$$BTE^HLCSMON("Press RETURN to continue, '^' to exit... ") ;->
CTRL1 D HD
W !!,"You must now select one of the following files..."
S FILE=$$FILE QUIT:FILE'>0 ;->
W !
D @("SHOW"_FILE)
G CTRL1 ;->
;
;
;
SHOW7761 ; Show HL7 Monitor (#776.1) entries...
N DIC,IEN
D HDR("View 'HL7 Monitor file (#776.1)' Entries")
;
S7761 KILL DIC,IEN
W !
S IEN=$$ASKIEN(776.1) QUIT:IEN'>0 ;->
W !!,"Loading report..."
D LOAD7761(IEN)
D BROWSE^DDBR($NA(^TMP($J,"HL7761")),"N","View 'HL7 Monitor file (#776.1)' Entries")
KILL ^TMP($J,"HL7761")
G S7761 ;->
;
LOAD7761(IEN) ; Load browswer global...
KILL ^TMP($J,"HL7761")
D BODY7761(IEN)
D RUNS7761(IEN)
Q
;
RUNS7761(EVIEN) ;
N DATA,IEN,LASTDT,RUNS
;
KILL ^TMP($J,"HLRUNS")
;
; Loop thru master job runs looking for event monitor checks...
S LASTDT=":",RUNS=0
F S LASTDT=$O(^HLEV(776.2,"B",LASTDT),-1) Q:'LASTDT!(RUNS>6) D
. S IEN=":"
. F S IEN=$O(^HLEV(776.2,"B",+LASTDT,IEN),-1) Q:'IEN!(RUNS>6) D
. . S MIEN=$O(^HLEV(776.2,+IEN,51,"B",EVIEN,0)) QUIT:MIEN'>0 ;->
. . S DATA=$G(^HLEV(776.2,+IEN,51,MIEN,0))
. . S ^TMP($J,"HLRUNS",IEN)=$P(DATA,U,2)_U_$P(DATA,U,3) ; STATUS^TIME
. . S RUNS=RUNS+1
;
; If none found...
QUIT:'$D(^TMP($J,"HLRUNS")) ;->
;
; Recent master job checks of monitor...
D ADD7761(""),ADD7761("Recent Master Job Checks of this Monitor")
D ADD7761($$REPEAT^XLFSTR("-",74))
S IEN=0
F S IEN=$O(^TMP($J,"HLRUNS",IEN)) Q:'IEN D
. S DATA=^TMP($J,"HLRUNS",IEN)
. D ADD7761($E($$SDT^HLEVX001($P(DATA,U,2))_$$REPEAT^XLFSTR(" ",17),1,17)_" "_$$STAT2M^HLEVX001($P(DATA,U)))
;
Q
;
BODY7761(IEN) ; Actual display code for entry...
N NODE,P1,P2,P3,P4,P5,P6,PAR,PCE
;
S NODE=$G(^HLEV(776.1,+IEN,0))
F PCE=1:1:6 S @("P"_PCE)=$P(NODE,U,PCE)
;
; Store under field number...
F PCE=1:1:8 S PAR(PCE)=$P($G(^HLEV(776.1,+IEN,40)),U,PCE)
;
D SH7761("Monitor",$S(P1]"":P1,1:"---"))
D SH7761("Description",$S(P3]"":P3,1:"---"))
D SH7761("Status",$S(P2="A":"ACTIVE",1:"INACTIVE"))
D SH7761("Requeue minutes",$S(P4:P4_"min",P4=0:"0 [Immediate Run]",1:"---"))
D SH7761("M startup",$S(P6]"":P6,1:"---"))
D XMYS(+IEN)
W !,$$CJ^XLFSTR(" Parameter ""Variable"" Descriptors ",IOM,"-")
F PCE=1:1:8 I PAR(PCE)]"" D
. W !,?25,"Parameter - "_PCE_" = ",PAR(PCE)
;
D SHWP(776.1,IEN,41,"Parameter Notes")
D SHWP(776.1,IEN,50,"Event Description")
;
Q
;
XMYS(HLEVIENE) ; Add XMYs from monitor...
N REC,TAG,XMY
D ADDXMYS^HLEVAPI2(+HLEVIENE) QUIT:'$D(XMY) ;->
S VAL=""
F S VAL=$O(XMY(VAL)) Q:VAL']"" D
. I VAL["@" S REC(VAL)="" QUIT ;->
. I VAL=+VAL S VAL=$P($G(^VA(200,+VAL,0)),U) S:VAL]"" REC(VAL)="" QUIT ;->
. I $E(VAL,1,2)="G." S REC(VAL)=""
KILL XMY
QUIT:'$D(REC) ;->
S VAL=""
S TAG=$E(" Recipients: ",1,35)
F S VAL=$O(REC(VAL)) Q:VAL']"" D
. S TAG=TAG_VAL
. D ADD7761(TAG)
. S TAG=$$REPEAT^XLFSTR(" ",35)
Q
;
SHWP(FILE,IEN,HLN,TAG) ;
N MIEN,TXT
QUIT:$O(^HLEV(FILE,+IEN,HLN,0))'>0 ;-> No data...
S TXT=$$CJ^XLFSTR(" "_TAG_" ",IOM,"-")
D ADD7761(TXT)
S MIEN=0
F S MIEN=$O(^HLEV(FILE,+IEN,HLN,MIEN)) Q:MIEN'>0 D
. D ADD7761(^HLEV(FILE,+IEN,HLN,MIEN,0))
Q
;
SH7761(TAG,VAL) ;
N TXT
S TXT=$E($$REPEAT^XLFSTR(" ",80),1,(32-$L(TAG)-2))_TAG_":"
S TXT=$E(TXT_$$REPEAT^XLFSTR(" ",45),1,35)_VAL
D ADD7761(TXT)
Q
;
ADD7761(TXT) ; Add TXT to browser global...
N NO
S NO=$O(^TMP($J,"HL7761",":"),-1)+1
S ^TMP($J,"HL7761",+NO)=TXT
Q
;
SHOW776 ; Show HL7 Monitor Job (#776) entries...
N DIC,IEN
S776 KILL DIC,IEN
S IEN=$$ASKIEN(776) QUIT:IEN'>0 ;->
D VIEW776(+IEN)
W !,$$REPEAT^XLFSTR("-",IOM)
G S776 ;->
;
VIEW776(IEN) ; Actual display code for entry...
;
W !!,"View Code to be placed here..."
Q
;
;
SHOW7762 ; Show HL7 Monitor Master Job (#776.2) entries...
N DIC,IEN
S7762 KILL DIC,IEN
S IEN=$$ASKIEN(776.2) QUIT:IEN'>0 ;->
D VIEW7762(+IEN)
W !,$$REPEAT^XLFSTR("-",IOM)
G S7762 ;->
;
VIEW7762 ; Actual display code for entry...
;
W !!,"View Code to be placed here..."
Q
;
;
SHOW7769 ; Show HL7 Monitor Parameters (#776.999) entries...
D VIEW7769(1)
W !,$$REPEAT^XLFSTR("-",IOM)
Q
;
VIEW7769(BT) ; Actual display code for entry...
N DATA,NODE,P1,P2,P3,P4,P5,P6,PCE,TAG,VAL
;
S NODE=$G(^HLEV(776.999,1,0)) I NODE']"" D QUIT ;->
. W !,"No system entry exists..."
;
F PCE=1:1:6 S @("P"_PCE)=$P(NODE,U,PCE)
;
S NODE(1)=P1_U_"Name"
S NODE(2)=$S(P2="A":"ACTIVE",1:"INACTIVE")_U_"Status - MASTER"
S NODE(3)=P3_"min"_U_"Requeue minutes - MASTER"
S NODE(4)=P4_"hr"_U_"Purge hours - RUNTIME DATA"
S NODE(6)=$S(P6="A":"ACTIVE",1:"INACTIVE")_U_"Status - EVENT"
;
W @IOF,$$CJ^XLFSTR("System Parameters",IOM)
W !,$$REPEAT^XLFSTR("=",IOM)
;
F PCE=1,"Status Fields",2,6,"Requeue Frequency for Master Job",3,"Purge Parameters (""Cutoff"" hours)",4 D
. I PCE'=+PCE D QUIT ;->
. . W !!,$$CJ^XLFSTR(PCE,IOM)
. . W !,$$CJ^XLFSTR($$REPEAT^XLFSTR("-",$L(PCE)+20),IOM)
. S DATA=NODE(PCE),VAL=$P(DATA,U),TAG=$P(DATA,U,2)
. S DATA=TAG_": "_VAL
. W !,$$CJ^XLFSTR(DATA,IOM)
;
I $G(BT) D TELL^HLEVMST0("","0^0^999")
;
Q
;
;
ASKIEN(FILE,HLAYGO) ; Generic DIC lookup...
N DIC,X,Y
S DIC=FILE,DIC(0)="AEMQN"_$G(HLAYGO)
S DIC("A")="Select "_$S(FILE=776:"EVENT ""RUN"" ENTRY",FILE=776.1:"EVENT MONITOR ENTRY",FILE=776.2:"MASTER JOB ""RUN"" ENTRY",FILE=776.999:"PARAMETER ENTRY",1:"??")_": "
D ^DIC
Q $S(+Y>0:+Y,1:"")
;
FILE() ; Get from user file to display information...
N ANS,DIR,DIRUT,DTOUT,DUOUT,X,Y
S DIR(0)="SO^1:HL7 Monitor file (#776.1);2:HL7 Monitor Parameters file (#776.999);3:HL7 Monitor Job file (#776);4:HL7 Monitor Master Job file (#776.2);5:Exit this option"
S DIR("A")="Select OPTION"
D ^DIR
S ANS=+Y\1,ANS=$S(ANS>0&(ANS<5):+ANS,1:"")
S ANS=$S(ANS:$P("7761^7769^776^7762",U,+ANS),1:"")
Q ANS
;
HD W @IOF,$$CJ^XLFSTR("Display Event Monitoring Entries",IOM)
W !,$$REPEAT^XLFSTR("=",IOM)
QUIT
;
EX N I,T F I=1:1 S T=$T(EX+I) QUIT:T'[";;" W !,$P(T,";;",2,99)
;; This option displays entries from the following files:
;;
;; SETUP-RELATED FILES
;; ----------------------------------------------------
;; HL7 Monitor file (#776.1)
;; HL7 Monitor Parameters file (#776.999)
;;
;; RUNTIME-RELATED FILES
;; ----------------------------------------------------
;; HL7 Monitor Job file (#776)
;; HL7 Monitor Master Job file (#776.2)
Q
;
HDR(TXT,IEN) W @IOF,$$CJ^XLFSTR(TXT,IOM)
N IOINHI,IOINORM,NAME,X,Y
I $G(IEN) D
. S X="IOINHI;IOINORM" D ENDR^%ZISS
. S NAME=$P($G(^HLEV(776.1,+IEN,0)),U)
. W !,$$CJ^XLFSTR(IOINHI_NAME_" [#"_IEN_"]"_IOINORM,IOM)
W !,$$REPEAT^XLFSTR("=",IOM)
Q
;
EOR ;HLEVREP - Event Monitor REPORTS ;5/16/03 14:42
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEVREP 7242 printed Dec 13, 2024@01:57:48 Page 2
HLEVREP ;O-OIFO/LJA - Event Monitor REPORTS ;02/04/2004 14:42
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
+2 ;
SHOWONE ; Show entry in any Event Monitoring file...
+1 ;
+2 ;
CTRL ;
+1 ;
+2 DO HD
+3 DO EX
+4 FOR
if (IOSL-$Y)<4
QUIT
WRITE !
+5 ;->
if $$BTE^HLCSMON("Press RETURN to continue, '^' to exit... ")
QUIT
CTRL1 DO HD
+1 WRITE !!,"You must now select one of the following files..."
+2 ;->
SET FILE=$$FILE
if FILE'>0
QUIT
+3 WRITE !
+4 DO @("SHOW"_FILE)
+5 ;->
GOTO CTRL1
+6 ;
+7 ;
+8 ;
SHOW7761 ; Show HL7 Monitor (#776.1) entries...
+1 NEW DIC,IEN
+2 DO HDR("View 'HL7 Monitor file (#776.1)' Entries")
+3 ;
S7761 KILL DIC,IEN
+1 WRITE !
+2 ;->
SET IEN=$$ASKIEN(776.1)
if IEN'>0
QUIT
+3 WRITE !!,"Loading report..."
+4 DO LOAD7761(IEN)
+5 DO BROWSE^DDBR($NAME(^TMP($JOB,"HL7761")),"N","View 'HL7 Monitor file (#776.1)' Entries")
+6 KILL ^TMP($JOB,"HL7761")
+7 ;->
GOTO S7761
+8 ;
LOAD7761(IEN) ; Load browswer global...
+1 KILL ^TMP($JOB,"HL7761")
+2 DO BODY7761(IEN)
+3 DO RUNS7761(IEN)
+4 QUIT
+5 ;
RUNS7761(EVIEN) ;
+1 NEW DATA,IEN,LASTDT,RUNS
+2 ;
+3 KILL ^TMP($JOB,"HLRUNS")
+4 ;
+5 ; Loop thru master job runs looking for event monitor checks...
+6 SET LASTDT=":"
SET RUNS=0
+7 FOR
SET LASTDT=$ORDER(^HLEV(776.2,"B",LASTDT),-1)
if 'LASTDT!(RUNS>6)
QUIT
Begin DoDot:1
+8 SET IEN=":"
+9 FOR
SET IEN=$ORDER(^HLEV(776.2,"B",+LASTDT,IEN),-1)
if 'IEN!(RUNS>6)
QUIT
Begin DoDot:2
+10 ;->
SET MIEN=$ORDER(^HLEV(776.2,+IEN,51,"B",EVIEN,0))
if MIEN'>0
QUIT
+11 SET DATA=$GET(^HLEV(776.2,+IEN,51,MIEN,0))
+12 ; STATUS^TIME
SET ^TMP($JOB,"HLRUNS",IEN)=$PIECE(DATA,U,2)_U_$PIECE(DATA,U,3)
+13 SET RUNS=RUNS+1
End DoDot:2
End DoDot:1
+14 ;
+15 ; If none found...
+16 ;->
if '$DATA(^TMP($JOB,"HLRUNS"))
QUIT
+17 ;
+18 ; Recent master job checks of monitor...
+19 DO ADD7761("")
DO ADD7761("Recent Master Job Checks of this Monitor")
+20 DO ADD7761($$REPEAT^XLFSTR("-",74))
+21 SET IEN=0
+22 FOR
SET IEN=$ORDER(^TMP($JOB,"HLRUNS",IEN))
if 'IEN
QUIT
Begin DoDot:1
+23 SET DATA=^TMP($JOB,"HLRUNS",IEN)
+24 DO ADD7761($EXTRACT($$SDT^HLEVX001($PIECE(DATA,U,2))_$$REPEAT^XLFSTR(" ",17),1,17)_" "_$$STAT2M^HLEVX001($PIECE(DATA,U)))
End DoDot:1
+25 ;
+26 QUIT
+27 ;
BODY7761(IEN) ; Actual display code for entry...
+1 NEW NODE,P1,P2,P3,P4,P5,P6,PAR,PCE
+2 ;
+3 SET NODE=$GET(^HLEV(776.1,+IEN,0))
+4 FOR PCE=1:1:6
SET @("P"_PCE)=$PIECE(NODE,U,PCE)
+5 ;
+6 ; Store under field number...
+7 FOR PCE=1:1:8
SET PAR(PCE)=$PIECE($GET(^HLEV(776.1,+IEN,40)),U,PCE)
+8 ;
+9 DO SH7761("Monitor",$SELECT(P1]"":P1,1:"---"))
+10 DO SH7761("Description",$SELECT(P3]"":P3,1:"---"))
+11 DO SH7761("Status",$SELECT(P2="A":"ACTIVE",1:"INACTIVE"))
+12 DO SH7761("Requeue minutes",$SELECT(P4:P4_"min",P4=0:"0 [Immediate Run]",1:"---"))
+13 DO SH7761("M startup",$SELECT(P6]"":P6,1:"---"))
+14 DO XMYS(+IEN)
+15 WRITE !,$$CJ^XLFSTR(" Parameter ""Variable"" Descriptors ",IOM,"-")
+16 FOR PCE=1:1:8
IF PAR(PCE)]""
Begin DoDot:1
+17 WRITE !,?25,"Parameter - "_PCE_" = ",PAR(PCE)
End DoDot:1
+18 ;
+19 DO SHWP(776.1,IEN,41,"Parameter Notes")
+20 DO SHWP(776.1,IEN,50,"Event Description")
+21 ;
+22 QUIT
+23 ;
XMYS(HLEVIENE) ; Add XMYs from monitor...
+1 NEW REC,TAG,XMY
+2 ;->
DO ADDXMYS^HLEVAPI2(+HLEVIENE)
if '$DATA(XMY)
QUIT
+3 SET VAL=""
+4 FOR
SET VAL=$ORDER(XMY(VAL))
if VAL']""
QUIT
Begin DoDot:1
+5 ;->
IF VAL["@"
SET REC(VAL)=""
QUIT
+6 ;->
IF VAL=+VAL
SET VAL=$PIECE($GET(^VA(200,+VAL,0)),U)
if VAL]""
SET REC(VAL)=""
QUIT
+7 IF $EXTRACT(VAL,1,2)="G."
SET REC(VAL)=""
End DoDot:1
+8 KILL XMY
+9 ;->
if '$DATA(REC)
QUIT
+10 SET VAL=""
+11 SET TAG=$EXTRACT(" Recipients: ",1,35)
+12 FOR
SET VAL=$ORDER(REC(VAL))
if VAL']""
QUIT
Begin DoDot:1
+13 SET TAG=TAG_VAL
+14 DO ADD7761(TAG)
+15 SET TAG=$$REPEAT^XLFSTR(" ",35)
End DoDot:1
+16 QUIT
+17 ;
SHWP(FILE,IEN,HLN,TAG) ;
+1 NEW MIEN,TXT
+2 ;-> No data...
if $ORDER(^HLEV(FILE,+IEN,HLN,0))'>0
QUIT
+3 SET TXT=$$CJ^XLFSTR(" "_TAG_" ",IOM,"-")
+4 DO ADD7761(TXT)
+5 SET MIEN=0
+6 FOR
SET MIEN=$ORDER(^HLEV(FILE,+IEN,HLN,MIEN))
if MIEN'>0
QUIT
Begin DoDot:1
+7 DO ADD7761(^HLEV(FILE,+IEN,HLN,MIEN,0))
End DoDot:1
+8 QUIT
+9 ;
SH7761(TAG,VAL) ;
+1 NEW TXT
+2 SET TXT=$EXTRACT($$REPEAT^XLFSTR(" ",80),1,(32-$LENGTH(TAG)-2))_TAG_":"
+3 SET TXT=$EXTRACT(TXT_$$REPEAT^XLFSTR(" ",45),1,35)_VAL
+4 DO ADD7761(TXT)
+5 QUIT
+6 ;
ADD7761(TXT) ; Add TXT to browser global...
+1 NEW NO
+2 SET NO=$ORDER(^TMP($JOB,"HL7761",":"),-1)+1
+3 SET ^TMP($JOB,"HL7761",+NO)=TXT
+4 QUIT
+5 ;
SHOW776 ; Show HL7 Monitor Job (#776) entries...
+1 NEW DIC,IEN
S776 KILL DIC,IEN
+1 ;->
SET IEN=$$ASKIEN(776)
if IEN'>0
QUIT
+2 DO VIEW776(+IEN)
+3 WRITE !,$$REPEAT^XLFSTR("-",IOM)
+4 ;->
GOTO S776
+5 ;
VIEW776(IEN) ; Actual display code for entry...
+1 ;
+2 WRITE !!,"View Code to be placed here..."
+3 QUIT
+4 ;
+5 ;
SHOW7762 ; Show HL7 Monitor Master Job (#776.2) entries...
+1 NEW DIC,IEN
S7762 KILL DIC,IEN
+1 ;->
SET IEN=$$ASKIEN(776.2)
if IEN'>0
QUIT
+2 DO VIEW7762(+IEN)
+3 WRITE !,$$REPEAT^XLFSTR("-",IOM)
+4 ;->
GOTO S7762
+5 ;
VIEW7762 ; Actual display code for entry...
+1 ;
+2 WRITE !!,"View Code to be placed here..."
+3 QUIT
+4 ;
+5 ;
SHOW7769 ; Show HL7 Monitor Parameters (#776.999) entries...
+1 DO VIEW7769(1)
+2 WRITE !,$$REPEAT^XLFSTR("-",IOM)
+3 QUIT
+4 ;
VIEW7769(BT) ; Actual display code for entry...
+1 NEW DATA,NODE,P1,P2,P3,P4,P5,P6,PCE,TAG,VAL
+2 ;
+3 ;->
SET NODE=$GET(^HLEV(776.999,1,0))
IF NODE']""
Begin DoDot:1
+4 WRITE !,"No system entry exists..."
End DoDot:1
QUIT
+5 ;
+6 FOR PCE=1:1:6
SET @("P"_PCE)=$PIECE(NODE,U,PCE)
+7 ;
+8 SET NODE(1)=P1_U_"Name"
+9 SET NODE(2)=$SELECT(P2="A":"ACTIVE",1:"INACTIVE")_U_"Status - MASTER"
+10 SET NODE(3)=P3_"min"_U_"Requeue minutes - MASTER"
+11 SET NODE(4)=P4_"hr"_U_"Purge hours - RUNTIME DATA"
+12 SET NODE(6)=$SELECT(P6="A":"ACTIVE",1:"INACTIVE")_U_"Status - EVENT"
+13 ;
+14 WRITE @IOF,$$CJ^XLFSTR("System Parameters",IOM)
+15 WRITE !,$$REPEAT^XLFSTR("=",IOM)
+16 ;
+17 FOR PCE=1,"Status Fields",2,6,"Requeue Frequency for Master Job",3,"Purge Parameters (""Cutoff"" hours)",4
Begin DoDot:1
+18 ;->
IF PCE'=+PCE
Begin DoDot:2
+19 WRITE !!,$$CJ^XLFSTR(PCE,IOM)
+20 WRITE !,$$CJ^XLFSTR($$REPEAT^XLFSTR("-",$LENGTH(PCE)+20),IOM)
End DoDot:2
QUIT
+21 SET DATA=NODE(PCE)
SET VAL=$PIECE(DATA,U)
SET TAG=$PIECE(DATA,U,2)
+22 SET DATA=TAG_": "_VAL
+23 WRITE !,$$CJ^XLFSTR(DATA,IOM)
End DoDot:1
+24 ;
+25 IF $GET(BT)
DO TELL^HLEVMST0("","0^0^999")
+26 ;
+27 QUIT
+28 ;
+29 ;
ASKIEN(FILE,HLAYGO) ; Generic DIC lookup...
+1 NEW DIC,X,Y
+2 SET DIC=FILE
SET DIC(0)="AEMQN"_$GET(HLAYGO)
+3 SET DIC("A")="Select "_$SELECT(FILE=776:"EVENT ""RUN"" ENTRY",FILE=776.1:"EVENT MONITOR ENTRY",FILE=776.2:"MASTER JOB ""RUN"" ENTRY",FILE=776.999:"PARAMETER ENTRY",1:"??")_": "
+4 DO ^DIC
+5 QUIT $SELECT(+Y>0:+Y,1:"")
+6 ;
FILE() ; Get from user file to display information...
+1 NEW ANS,DIR,DIRUT,DTOUT,DUOUT,X,Y
+2 SET DIR(0)="SO^1:HL7 Monitor file (#776.1);2:HL7 Monitor Parameters file (#776.999);3:HL7 Monitor Job file (#776);4:HL7 Monitor Master Job file (#776.2);5:Exit this option"
+3 SET DIR("A")="Select OPTION"
+4 DO ^DIR
+5 SET ANS=+Y\1
SET ANS=$SELECT(ANS>0&(ANS<5):+ANS,1:"")
+6 SET ANS=$SELECT(ANS:$PIECE("7761^7769^776^7762",U,+ANS),1:"")
+7 QUIT ANS
+8 ;
HD WRITE @IOF,$$CJ^XLFSTR("Display Event Monitoring Entries",IOM)
+1 WRITE !,$$REPEAT^XLFSTR("=",IOM)
+2 QUIT
+3 ;
EX NEW I,T
FOR I=1:1
SET T=$TEXT(EX+I)
if T'[";;"
QUIT
WRITE !,$PIECE(T,";;",2,99)
+1 ;; This option displays entries from the following files:
+2 ;;
+3 ;; SETUP-RELATED FILES
+4 ;; ----------------------------------------------------
+5 ;; HL7 Monitor file (#776.1)
+6 ;; HL7 Monitor Parameters file (#776.999)
+7 ;;
+8 ;; RUNTIME-RELATED FILES
+9 ;; ----------------------------------------------------
+10 ;; HL7 Monitor Job file (#776)
+11 ;; HL7 Monitor Master Job file (#776.2)
+12 QUIT
+13 ;
HDR(TXT,IEN) WRITE @IOF,$$CJ^XLFSTR(TXT,IOM)
+1 NEW IOINHI,IOINORM,NAME,X,Y
+2 IF $GET(IEN)
Begin DoDot:1
+3 SET X="IOINHI;IOINORM"
DO ENDR^%ZISS
+4 SET NAME=$PIECE($GET(^HLEV(776.1,+IEN,0)),U)
+5 WRITE !,$$CJ^XLFSTR(IOINHI_NAME_" [#"_IEN_"]"_IOINORM,IOM)
End DoDot:1
+6 WRITE !,$$REPEAT^XLFSTR("=",IOM)
+7 QUIT
+8 ;
EOR ;HLEVREP - Event Monitor REPORTS ;5/16/03 14:42
