Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOUSR.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOUSR.m
r628 r636 1 HLOUSR ;ALB/CJM -ListManager Screen for viewing system status;12 JUN 1997 10:00 am ;0 7/30/20072 ;;1.6;HEALTH LEVEL SEVEN;**126,130,134 ,137**;Oct 13, 1995;Build 211 HLOUSR ;ALB/CJM -ListManager Screen for viewing system status;12 JUN 1997 10:00 am ;02/07/2007 2 ;;1.6;HEALTH LEVEL SEVEN;**126,130,134**;Oct 13, 1995;Build 30 3 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; 5 5 EN ; 6 6 ; 7 N HLSCREEN,TESTOPEN,HLRFRSH ,HLPARMS7 N HLSCREEN,TESTOPEN,HLRFRSH 8 8 D WAIT^DICD 9 9 D EN^VALM("HLO SYSTEM MONITOR") 10 10 Q 11 11 ; 12 BRIEF ; 12 BRIEF ;Init variables and list array 13 13 N COUNT,LINK,QUE,FROM,TIME,STATUS,TEMP,DIR,TODAY,LIST 14 14 S HLRFRSH="BRIEF^HLOUSR" 15 15 S (HLSCREEN,VALMSG)="Brief System Status" 16 S VALMCNT= 1616 S VALMCNT=8 17 17 ;K @VALMAR 18 18 D CLEAN^VALM10 19 19 S VALMBG=1 20 20 S VALMBCK="R" 21 S VALMDDF("COL 1")="COL1^1^80^"22 21 K VALMDDF("COL 2"),VALMDDF("COL 3"),VALMDDF("COL 4"),VALMDDF("COL 5") 23 D CHGCAP^VALM("COL 1"," 22 D CHGCAP^VALM("COL 1","Brief Operational Overview") 24 23 S @VALMAR@(1,0)="SYSTEM STATUS: "_$S($$CHKSTOP^HLOPROC:"STOPPED",1:"RUNNING") 25 24 S @VALMAR@(2,0)="PROCESS MANAGER: "_$S($$RUNNING:"RUNNING",1:"STOPPED") … … 55 54 ..S TEMP=$G(^HLC("QUEUECOUNT","OUT",LINK,QUE)) 56 55 ..S:TEMP>0 COUNT=COUNT+TEMP 57 S @VALMAR@(8,0)="MESSAGES PENDING ON OUT QUEUES: "_$$RJ(+COUNT,7)_" ON SEQUENCE QUEUES: "_$$RJ(+$G(^HLC("QUEUECOUNT","SEQUENCE")),7)56 S @VALMAR@(8,0)="MESSAGES PENDING TRANSMISSION: "_+COUNT 58 57 S TEMP="STOPPED OUTGOING QUEUES: " 59 58 S COUNT=0,QUE="" … … 66 65 ..S TEMP=$G(^HLC("QUEUECOUNT","IN",QUE,FROM)) 67 66 ..S:TEMP>0 COUNT=COUNT+TEMP 68 S @VALMAR@(10,0)="MESSAGES PENDING ON APPLICATIONS: "_$$RJ(+COUNT,7)67 S @VALMAR@(10,0)="MESSAGES PENDING ON APPLICATIONS: "_+COUNT 69 68 S TEMP="STOPPED INCOMING QUEUES: " 70 69 S COUNT=0,QUE="" … … 93 92 Q TOTAL 94 93 ; 95 HELP ; 94 HELP ;Help code 96 95 S X="?" D DISP^XQORM1 W !! 97 96 Q 98 97 ; 99 EXIT ; 98 EXIT ;Exit code 100 99 D CLEAN^VALM10 101 100 D CLEAR^VALM1 102 Q 103 ; 104 EXPND ; 101 ; 102 Q 103 ; 104 EXPND ;Expand code 105 105 Q 106 106 ; … … 111 111 S VALMCNT=0 112 112 S VALMBCK="R" 113 S VALMDDF("COL 1")="COL1^1^34^"114 113 S VALMDDF("COL 2")="COL 2^35^10^MIN^H" 115 114 S VALMDDF("COL 3")="COL 3^47^10^MAX^H" … … 194 193 S VALMBCK="R" 195 194 ; 196 ;currently HL7 (Optimized) only does TCP 195 ;currently HL7 (Optimized) only does TCP, when serial added a change is needed here 197 196 S LINK=$$ASKLINK 198 197 Q:LINK="" … … 215 214 Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN) 216 215 ; 217 RUNNING() ; Process Manager running?216 RUNNING() ;Is the Process Manager running? 218 217 N RUNNING 219 218 L +^HLTMP("PROCESS MANAGER"):0 … … 257 256 Q 258 257 ; 259 UPDMODE ; realtime258 UPDMODE ;update mode 260 259 Q:'$L(HLRFRSH) 261 N TOP,BOTTOM,DX,DY,IOTM,IOBM,LINE,OLD,OLDCNT 262 S OLDCNT=VALMCNT 263 W !!!!!,IOINHI,"Hit any key to escape realtime display mode...",IOINORM 264 S IOTM=20,IOBM=23 W @IOSTBM 260 N QUIT,NEW,TOP,BOTTOM,DX,DY,IOTM,IOBM,I 261 W !!,IOINHI,"Hit any key to escape realtime display mode...",IOINORM 262 S IOTM=3,IOBM=23 263 W @IOSTBM 264 S DX=1,DY=$S(VALMCNT<17:VALMCNT+1,1:17) X IOXY 265 I VALMCNT>16 F I=17:1:$S(VALMCNT<22:VALMCNT,1:21) W !,@VALMAR@(I,0) 266 S QUIT=0 265 267 S TOP=VALMBG 266 S BOTTOM=TOP+20 267 F LINE=TOP:1:BOTTOM D 268 .I LINE>VALMCNT S @VALMAR@(LINE,0)=$$LJ(" ",80) Q 269 .S @VALMAR@(LINE,0)=$$LJ(@VALMAR@(LINE,0),80) 270 F LINE=TOP:1:BOTTOM D 271 .S OLD(LINE)=@VALMAR@(LINE,0) 272 F LINE=17:1:BOTTOM D 273 .S DX=50,DY=22 X IOXY W ! 274 .D WRITE^VALM10(LINE) 275 D F R *C:4 Q:$T D 268 S BOTTOM=TOP+23 269 S OLD=VALMAR 270 S VALMAR="NEW" 271 S VALMCNT=0 272 F D Q:QUIT 273 .N LINE 274 .R *C:3 I $T S QUIT=1 275 .S (VALMCNT,I)=0 276 276 .D @HLRFRSH 277 .F LINE=TOP:1:BOTTOM D 278 ..I LINE>VALMCNT S @VALMAR@(LINE,0)=$$LJ(" ",80) Q 279 ..S @VALMAR@(LINE,0)=$$LJ(@VALMAR@(LINE,0),80) 280 .S VALMCNT=BOTTOM 281 .F LINE=TOP:1:BOTTOM IF OLD(LINE)'=@VALMAR@(LINE,0) D 282 ..S OLD(LINE)=@VALMAR@(LINE,0) 283 ..S DX=50,DY=22 X IOXY W ! 277 .F LINE=TOP:1:BOTTOM IF $G(@OLD@(LINE,0))'=$G(@VALMAR@(LINE,0)) D 278 ..S:'$D(@VALMAR@(LINE,0)) @VALMAR@(LINE,0)=" " 284 279 ..D WRITE^VALM10(LINE) 285 S VALMCNT=OLDCNT286 S VALMBCK="R" 287 Q 280 K @OLD M @OLD=@VALMAR S VALMAR=OLD 281 S VALMBCK="R" 282 Q
Note:
See TracChangeset
for help on using the changeset viewer.