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

HLEVREP.m

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