Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLCSMON1.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• HEALTH_LEVEL_SEVEN-HL/HLCSMON1.m (modified) (4 diffs)

FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLCSMON1.m

@@ -1 @@
-HLCSMON1 ;SF-Utilities for Driver Program  ;07/17/2007  17:05
- ;;1.6;HEALTH LEVEL SEVEN;**15,40,49,65,109,122**;Oct 13, 1995;Build 14
- ;Per VHA Directive 2004-038, this routine should not be modified.
+HLCSMON1 ;SF-Utilities for Driver Program  ;02/04/2004  10:25
+ ;;1.6;HEALTH LEVEL SEVEN;**15,40,49,65,109**;Oct 13, 1995
  ;
  ;This routine contains several entry points called from HLCSMON
@@ -12 +11 @@
  F  S HLXX=$O(HLARYD(HLXX)) Q:(HLXX'>0)  D WLINE(HLXX)
  ;DISPLAY INCOMING FILER STATUS
- ; patch HL*1.6*122
- S HLXX=$P(HLRUNCNT,"^",1)
- ; S HLXX=$$CNTFLR^HLCSUTL2("IN")
- I (+HLXX)=-1 S HLXX=$$CNTFLR^HLCSUTL2("IN")
- ;
+ S HLXX=$$CNTFLR^HLCSUTL2("IN")
  ;ONLY UPDATE SCREEN IF COUNT HAS CHANGED
  I (HLXX'=+HLRUNCNT) D
@@ -24 +19 @@
  .S $P(HLRUNCNT,"^",1)=HLXX
  ;DISPLAY OUTGOING FILER STATUS
- ; patch HL*1.6*122
- S HLXX=$P(HLRUNCNT,"^",2)
- ; S HLXX=$$CNTFLR^HLCSUTL2("OUT") 
- I (+HLXX)=-1 S HLXX=$$CNTFLR^HLCSUTL2("OUT")
- ;
+ S HLXX=$$CNTFLR^HLCSUTL2("OUT")
  ;ONLY UPDATE SCREEN IF COUNT HAS CHANGED
  I (HLXX'=+$P(HLRUNCNT,"^",2)) D
@@ -56 +47 @@
  I HLARYD(HLXX)]"",HLARYD(HLXX)=$G(HLARYO(HLXX)) Q
  S HLARYO(HLXX)=HLARYD(HLXX),HLERR=$P(HLARYD(HLXX),U,8),DX=1
- ; patch HL*1.6*122
- ; F X=1:1:7 S @$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_"        ",1,8)
- F X=1,7 S @$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_"        ",1,10)
- F X=2:1:5 S @$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_"        ",1,8)
- S X=6,@$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_"        ",1,7)
- ;
+ F X=1:1:7 S @$P("HLNODE^HLREC^HLPROC^HLSEND^HLSENT^HLDEV^HLSTAT",U,X)=$E($P(HLARYD(HLXX),U,X)_"        ",1,8)
  ;if link is in error, write node in rev. video
  I HLERR]"" D WDATA(5,HLXX,IOBON_IORVON,IOBOFF_IORVOFF,HLNODE,8) S DX=14
  ;Turn off terminal line wrap & inform O/S where cursor is located
  S DY=HLXX X IOXY,^%ZOSF("XY")
- ; patch HL*1.6*122
- W:HLERR="" ?4,HLNODE
- W ?16,HLREC,?26,HLPROC,?37,HLSEND,?47,HLSENT,?58,HLDEV,?63,HLSTAT
- ;
+ W:HLERR="" ?5,HLNODE
+ W ?16,HLREC,?26,HLPROC,?37,HLSEND,?47,HLSENT,?58,HLDEV,?64,HLSTAT
  Q
  ;