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

HLOUSR.m

Go to the documentation of this file. 
  1. HLOUSR ;ALB/CJM -ListManager Screen for viewing system status;12 JUN 1997 10:00 am
  1.  ;;1.6;HEALTH LEVEL SEVEN;**126,130**;Oct 13, 1995;Build 10
  1.  ;
  1. EN ;
  1.  ;
  1.  N HLSCREEN,TESTOPEN,HLRFRSH
  1.  D WAIT^DICD
  1.  D EN^VALM("HLO SYSTEM MONITOR")
  1.  Q
  1.  ;
  1. BRIEF ;Init variables and list array
  1.  N COUNT,LINK,QUE,FROM,TIME,STATUS,TEMP,DIR,TODAY,LIST
  1.  S HLRFRSH="BRIEF^HLOUSR"
  1.  S (HLSCREEN,VALMSG)="Brief System Status"
  1.  S VALMCNT=8
  1.  ;K @VALMAR
  1.  D CLEAN^VALM10
  1.  S VALMBG=1
  1.  S VALMBCK="R"
  1.  K VALMDDF("COL 2"),VALMDDF("COL 3"),VALMDDF("COL 4"),VALMDDF("COL 5")
  1.  D CHGCAP^VALM("COL 1","Brief Operational Overview")
  1.  S @VALMAR@(1,0)="SYSTEM STATUS:             "_$S($$CHKSTOP^HLOPROC:"STOPPED",1:"RUNNING")
  1.  S @VALMAR@(2,0)="PROCESS MANAGER:           "_$S($$RUNNING:"RUNNING",1:"STOPPED")
  1.  ;
  1.  S TIME=$P($G(TESTOPEN("LISTENER")),"^",2)
  1.  I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D
  1.  .S STATUS=+TESTOPEN("LISTENER")
  1.  E  D
  1.  .S STATUS=0
  1.  .S LINK=$P($G(^HLD(779.1,1,0)),"^",10)
  1.  .I LINK S LINK=$P($G(^HLCS(870,LINK,0)),"^") Q:'$L(LINK)  S STATUS=$$IFOPEN^HLOUSR1(LINK)
  1.  .S TESTOPEN("LISTENER")=STATUS_"^"_$$NOW^XLFDT
  1.  ;
  1.  S @VALMAR@(3,0)="STANDARD LISTENER:         "_$S(STATUS:"OPERATIONAL",1:"NOT OPERATIONAL")
  1.  ;
  1.  S TIME=$P($G(TESTOPEN("IE")),"^",2)
  1.  I TIME,$$FMDIFF^XLFDT($$NOW^XLFDT,TIME,2)<300 D
  1.  .S STATUS=+TESTOPEN("IE")
  1.  E  D
  1.  .S STATUS=$$IFOPEN^HLOUSR1("VA-VIE")
  1.  .S TESTOPEN("IE")=STATUS_"^"_$$NOW^XLFDT
  1.  S @VALMAR@(4,0)="INTERFACE ENGINE:          "_$S(STATUS:"OPERATIONAL",1:"NOT OPERATIONAL")
  1.  S @VALMAR@(5,0)="TASKMAN:                   "_$S($$TM^%ZTLOAD:"RUNNING",1:"NOT RUNNING")
  1.  ;
  1.  S (LIST,LINK)=""
  1.  F  S LINK=$O(^HLTMP("FAILING LINKS",LINK)) Q:LINK=""  D  I $L(LIST)>60 S LIST=LIST_",..." Q
  1.  .N TIME,QUE,LINKARY
  1.  .I $$GETLINK^HLOTLNK($P(LINK,":"),.LINKARY)
  1.  .S TIME=$G(^HLTMP("FAILING LINKS",LINK)) Q:TIME=""
  1.  .I '$G(LINKARY("SHUTDOWN")),TIME="" Q
  1.  .I '$G(LINKARY("SHUTDOWN")),($$HDIFF^XLFDT($H,TIME,2)<300) Q
  1.  .S LIST=LIST_$S($L(LIST):", ",1:"")_$P(LINK,":")
  1.  S @VALMAR@(6,0)="DOWN LINKS: "_LIST
  1.  S @VALMAR@(7,0)="CLIENT LINK PROCESSES:     "_+$G(^HLC("HL7 PROCESS COUNTS","RUNNING","OUTGOING CLIENT LINK"))
  1.  S @VALMAR@(8,0)="IN-FILER PROCESSES:        "_+$G(^HLC("HL7 PROCESS COUNTS","RUNNING","INCOMING QUEUES"))
  1.  S COUNT=0,LINK=""
  1.  F  S LINK=$O(^HLC("QUEUECOUNT","OUT",LINK)) Q:LINK=""  S QUE=""  F  S QUE=$O(^(LINK,QUE)) Q:QUE=""  S COUNT=COUNT+$G(^(QUE))
  1.  S @VALMAR@(9,0)="MESSAGES PENDING TRANSMISSION:      "_+COUNT
  1.  S TEMP="STOPPED OUTGOING QUEUES: "
  1.  S COUNT=0,QUE=""
  1.  F  S QUE=$O(^HLTMP("STOPPED QUEUES","OUT",QUE)) Q:QUE=""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:"23"[COUNT TEMP=TEMP_"; "_QUE S:COUNT=4 TEMP=TEMP_" ..."
  1.  S @VALMAR@(10,0)=TEMP
  1.  S COUNT=0,QUE=""
  1.  F  S QUE=$O(^HLC("QUEUECOUNT","IN",QUE)) Q:QUE=""  S FROM=""  F  S FROM=$O(^(QUE,FROM)) Q:FROM=""  S COUNT=COUNT+$G(^(FROM))
  1.  S @VALMAR@(11,0)="MESSAGES PENDING ON APPLICATIONS:   "_+COUNT
  1.  S TEMP="STOPPED INCOMING QUEUES: "
  1.  S COUNT=0,QUE=""
  1.  F  S QUE=$O(^HLTMP("STOPPED QUEUES","IN",QUE)) Q:QUE=""  S COUNT=COUNT+1 Q:COUNT>4  S:COUNT=1 TEMP=TEMP_QUE S:"23"[COUNT TEMP=TEMP_"; "_QUE S:COUNT=4 TEMP=TEMP_" ..."
  1.  S @VALMAR@(12,0)=TEMP
  1.  S @VALMAR@(13,0)="FILE 777 RECORD COUNT:         "_$$RJ($P($G(^HLTMP("FILE 777 RECORD COUNT")),"^"),10)_"     --> as of "_$$FMTE^XLFDT($P($G(^HLTMP("FILE 777 RECORD COUNT")),"^",2))
  1.  S @VALMAR@(14,0)="FILE 778 RECORD COUNT:         "_$$RJ($P($G(^HLTMP("FILE 778 RECORD COUNT")),"^"),10)_"     --> as of "_$$FMTE^XLFDT($P($G(^HLTMP("FILE 778 RECORD COUNT")),"^",2))
  1.  S TODAY=$$DT^XLFDT
  1.  F DIR="IN","OUT" D
  1.  .N RAP,SAP,TIME,TOTAL
  1.  .S TOTAL=0
  1.  .S TIME=TODAY-.0001
  1.  .F  S TIME=$O(^HLSTATS(DIR,"HOURLY",TIME)) Q:'TIME  Q:((TIME\1)>TODAY)  D
  1.  ..S SAP=""
  1.  ..F  S SAP=$O(^HLSTATS(DIR,"HOURLY",TIME,SAP)) Q:SAP=""  D
  1.  ...Q:SAP="ACCEPT ACK"
  1.  ...S RAP=""
  1.  ...F  S RAP=$O(^HLSTATS(DIR,"HOURLY",TIME,SAP,RAP)) Q:RAP=""  D
  1.  ....S TYPE=""
  1.  ....F  S TYPE=$O(^HLSTATS(DIR,"HOURLY",TIME,SAP,RAP,TYPE)) Q:TYPE=""  D
  1.  .....S TOTAL=TOTAL+$G(^HLSTATS(DIR,"HOURLY",TIME,SAP,RAP,TYPE))
  1.  .S:DIR="OUT" @VALMAR@(15,0)="MESSAGES SENT TODAY:           "_$$RJ(TOTAL,10)
  1.  .S:DIR'="OUT" @VALMAR@(16,0)="MESSAGES RECEIVED TODAY:       "_$$RJ(TOTAL,10)
  1.  Q
  1.  ;
  1. HELP ;Help code
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1. EXIT ;Exit code
  1.  D CLEAN^VALM10
  1.  D CLEAR^VALM1
  1.  ;
  1.  Q
  1.  ;
  1. EXPND ;Expand code
  1.  Q
  1.  ;
  1. PROCS ;
  1.  S HLRFRSH="PROCS^HLOUSR"
  1.  ;K @VALMAR
  1.  D CLEAN^VALM10
  1.  S VALMCNT=0
  1.  S VALMBCK="R"
  1.  S VALMDDF("COL 2")="COL 2^35^10^MIN^H"
  1.  S VALMDDF("COL 3")="COL 3^47^10^MAX^H"
  1.  S VALMDDF("COL 4")="COL 4^59^10^#RUNNING^H"
  1.  S VALMDDF("COL 5")="COL 5^71^10^#QUEUED^IOBON"
  1.  D CHGCAP^VALM("COL 1","Process Type")
  1.  N IEN
  1.  S IEN=0
  1.  F  S IEN=$O(^HLD(779.3,"C",1,IEN)) Q:'IEN  D
  1.  .N PROC
  1.  .Q:'$$GETPROC^HLOPROC1(IEN,.PROC)
  1.  .Q:PROC("NAME")="VMS TCP LISTENER"
  1.  .S VALMCNT=VALMCNT+1
  1.  .S @VALMAR@(VALMCNT,0)=$$LJ(PROC("NAME"),30)_$$RJ(PROC("MINIMUM"),6)_$$RJ(PROC("MAXIMUM"),12)_$$RJ(+$G(^HLC("HL7 PROCESS COUNTS","RUNNING",PROC("NAME"))),14)_$$RJ(+$G(^HLC("HL7 PROCESS COUNTS","QUEUED",PROC("NAME"))),12)
  1.  S VALMCNT=VALMCNT+1,@VALMAR@(VALMCNT,0)=""
  1.  S IEN=""
  1.  F  S IEN=$O(^HLTMP("HL7 RUNNING PROCESSES",IEN)) Q:IEN=""  D
  1.  .N NODE
  1.  .S NODE=$G(^HLTMP("HL7 RUNNING PROCESSES",IEN))
  1.  .Q:NODE=""
  1.  .S VALMCNT=VALMCNT+1
  1.  .S @VALMAR@(VALMCNT,0)="$J: "_$$LJ(IEN,9)_" ->"_$$CJ($P(NODE,"^",3),28)_"<- started at "_$$HTE^XLFDT($P(NODE,"^"))
  1.  Q
  1.  ;
  1. OUTQUEUE ;
  1.  N LINK
  1.  D CLEAN^VALM10
  1.  ;K @VALMAR
  1.  S HLRFRSH="OUTQUEUE^HLOUSR"
  1.  S (HLSCREEN,VALMSG)="Outgoing Queues *down links !stopped queues"
  1.  S VALMCNT=0
  1.  S VALMBCK="R"
  1.  S VALMDDF("COL 1")="COL 1^2^20^ Link^H"
  1.  S VALMDDF("COL 2")="COL 2^28^20^Queue^H"
  1.  S VALMDDF("COL 3")="COL 3^50^20^Count^H"
  1.  K VALMDDF("COL 4"),VALMDDF("COL 5")
  1.  D CHGCAP^VALM("COL 1"," Link")
  1.  S LINK=""
  1.  F  S LINK=$O(^HLC("QUEUECOUNT","OUT",LINK)) Q:LINK=""  D
  1.  .N COUNT,QUE,SHOW
  1.  .S SHOW=LINK
  1.  .I $D(^HLTMP("FAILING LINKS",SHOW)) S SHOW="*"_SHOW
  1.  .S QUE=""
  1.  .F  S QUE=$O(^HLC("QUEUECOUNT","OUT",LINK,QUE)) Q:QUE=""  D
  1.  ..S COUNT=$G(^HLC("QUEUECOUNT","OUT",LINK,QUE))
  1.  ..Q:'COUNT
  1.  ..S VALMCNT=VALMCNT+1
  1.  ..I $E(SHOW)="*" D
  1.  ...S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE("OUT",QUE):"!",1:"")_QUE,21)_"   "_$$RJ(COUNT,10),SHOW=""
  1.  ...D CNTRL^VALM10(VALMCNT,1,1,IOBON,IOBOFF)
  1.  ..E  S @VALMAR@(VALMCNT,0)=$$LJ(SHOW,20)_$$CJ($S($$STOPPED^HLOQUE("OUT",QUE):"!",1:"")_QUE,21)_"   "_$$RJ(COUNT,10),SHOW=""
  1.  Q
  1.  ;
  1. INQUEUE ;
  1.  N FROM
  1.  D CLEAN^VALM10
  1.  ;K @VALMAR
  1.  S HLRFRSH="INQUEUE^HLOUSR"
  1.  S (HLSCREEN,VALMSG)="Incoming Queues ('!' = stopped queues)"
  1.  S VALMCNT=0
  1.  S VALMBCK="R"
  1.  S VALMDDF("COL 1")="COL 1^1^40^ From^H"
  1.  S VALMDDF("COL 2")="COL 2^45^20^Queue^H"
  1.  S VALMDDF("COL 3")="COL 3^70^10^Count^H"
  1.  K VALMDDF("COL 4"),VALMDDF("COL 5")
  1.  D CHGCAP^VALM("COL 1"," From")
  1.  S FROM=""
  1.  F  S FROM=$O(^HLC("QUEUECOUNT","IN",FROM)) Q:FROM=""  D
  1.  .N COUNT,QUE,SHOW
  1.  .S SHOW=$$LJ(FROM,40)_"  "
  1.  .S QUE=""
  1.  .F  S QUE=$O(^HLC("QUEUECOUNT","IN",FROM,QUE)) Q:QUE=""  D
  1.  ..S COUNT=$G(^HLC("QUEUECOUNT","IN",FROM,QUE))
  1.  ..Q:'COUNT
  1.  ..S VALMCNT=VALMCNT+1
  1.  ..S @VALMAR@(VALMCNT,0)=SHOW_$$LJ($S($$STOPPED^HLOQUE("IN",QUE):"!",1:"")_QUE,21)_" "_$$RJ(COUNT,10)
  1.  ..S SHOW=$$LJ("",40)_"  "
  1.  Q
  1.  N C,QUIT,LINK,LINKARY
  1.  S (QUIT,C,LINK)=""
  1.  S VALMBCK="R"
  1.  ;
  1.  ;currently HL7 (Optimized) only does TCP, when serial added a change is needed here
  1.  S LINK=$$ASKLINK
  1.  Q:LINK=""
  1.  Q:'$$GETLINK^HLOTLNK(LINK,.LINKARY)
  1.  S LINK=LINK_":"_LINKARY("PORT")
  1.  W !,"Hit any key to stop...",!
  1.  F  D  Q:QUIT
  1.  .N COUNT,QUE
  1.  .S (COUNT,QUE)=""
  1.  .F  S QUE=$O(^HLC("QUEUECOUNT","OUT",LINK,QUE)) Q:QUE=""  S COUNT=COUNT+$G(^(QUE))
  1.  .W $C(13),"                             ",$C(13),"MESSAGES PENDING TRANSMISSION: ",IOBON,$$RJ(+COUNT,10),IOBOFF
  1.  .R *C:1 I $T S QUIT=1
  1.  Q
  1.  ;
  1. CJ(STRING,LEN) ;
  1.  Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)
  1. LJ(STRING,LEN) ;
  1.  Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)
  1. RJ(STRING,LEN) ;
  1.  Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)
  1.  ;
  1. RUNNING() ;Is the Process Manager running?
  1.  N RUNNING
  1.  L +^HLTMP("PROCESS MANAGER"):0
  1.  S RUNNING='$T
  1.  I 'RUNNING L -^HLTMP("PROCESS MANAGER")
  1.  Q RUNNING
  1.  ;
  1.  N LINK,LINKNAME,OK
  1.  S VALMBCK="R"
  1.  S LINKNAME=$$ASKLINK
  1.  Q:LINKNAME=""
  1.  S OK=$$IFOPEN^HLOUSR1(LINKNAME)
  1.  I OK W !,LINKNAME_" IS operational..."
  1.  E  W !,LINKNAME_" is NOT operational..."
  1.  W !,"Hit any key to continue..."
  1.  R *C:DTIME
  1.  Q
  1.  ;
  1.  N DIC,TCP,X,Y,DTOUT,DUOUT
  1.  S DIC=870
  1.  S DIC(0)="AENQ"
  1.  S TCP=$O(^HLCS(869.1,"B","TCP",0))
  1.  S DIC("A")="Select a TCP link:"
  1.  S DIC("S")="I $P(^(0),U,3)=TCP"
  1.  D FULL^VALM1
  1.  D ^DIC
  1.  I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,"^",2)
  1.  Q ""
  1.  ;
  1. STOP ;
  1.  I '$$ASKYESNO^HLOUSR2("Are you SURE that you want to stop sending and receiving messages","NO") S VALMBCK="" Q
  1.  ;
  1.  D STOPHL7^HLOPROC1
  1.  S VALMBCK="R",VALMSG="HL7 (Optimized) has been stopped...."
  1.  H 5
  1.  D:HLSCREEN="Brief System Status" BRIEF^HLOUSR
  1.  D:HLSCREEN="Running Processes" PROCS^HLOUSR
  1.  Q
  1.  ;
  1. UPDMODE ;update mode
  1.  Q:'$L(HLRFRSH)
  1.  N QUIT,NEW,TOP,BOTTOM,DX,DY,IOTM,IOBM,I
  1.  W !!,IOINHI,"Hit any key to escape realtime display mode...",IOINORM
  1.  S IOTM=3,IOBM=23
  1.  W @IOSTBM
  1.  S DX=1,DY=$S(VALMCNT<17:VALMCNT+1,1:17) X IOXY
  1.  I VALMCNT>16 F I=17:1:$S(VALMCNT<22:VALMCNT,1:21) W !,@VALMAR@(I,0)
  1.  S QUIT=0
  1.  S TOP=VALMBG
  1.  S BOTTOM=TOP+23
  1.  S OLD=VALMAR
  1.  S VALMAR="NEW"
  1.  S VALMCNT=0
  1.  F  D  Q:QUIT
  1.  .N LINE
  1.  .R *C:3 I $T S QUIT=1
  1.  .S (VALMCNT,I)=0
  1.  .D @HLRFRSH
  1.  .F LINE=TOP:1:BOTTOM IF $G(@OLD@(LINE,0))'=$G(@VALMAR@(LINE,0)) D WRITE^VALM10(LINE)
  1.  K @OLD M @OLD=@VALMAR S VALMAR=OLD
  1.  S VALMBCK="R"
  1.  Q