Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOTCP.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/HLOTCP.m (modified) (3 diffs)

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

@@ -1 @@
-HLOTCP ;ALB/CJM- TCP/IP I/O - 10/4/94 1pm ;07/10/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,131,134,137**;Oct 13, 1995;Build 21
+HLOTCP ;ALB/CJM- TCP/IP I/O - 10/4/94 1pm ;03/22/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**126,131,134**;Oct 13, 1995;Build 30
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -129 +129 @@
  ..S LINE=HLCSTATE("BUFFER",SEGMENT,I)
  ..F  Q:'(J+$L(LINE)>MAX)  D
- ...W $E(LINE,1,MAX-J),@HLCSTATE("FLUSH") S HLCSTATE("FLUSHED")=1
+ ...W $E(LINE,1,MAX-J),@HLCSTATE("FLUSH")
  ...S LINE=$E(LINE,(MAX-J)+1,99999)
  ...S J=0
- ..I (LINE]"") W LINE S HLCSTATE("FLUSHED")=0
+ ..W:(LINE]"") LINE
  K HLCSTATE("BUFFER")
  S HLCSTATE("BUFFER","SEGMENT COUNT")=1
@@ -203 +203 @@
  .D FLUSH
  .U HLCSTATE("DEVICE")
- .I ('$G(HLCSTATE("FLUSHED")))!$X W @HLCSTATE("FLUSH") S HLCSTATE("FLUSHED")=1
+ .W:$X @HLCSTATE("FLUSH")
  Q 0