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

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

@@ -1 @@
-HLCSTCP1 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;10/17/2007  12:59
- ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,64,71,133,132,122**;OCT 13,1995;Build 14
+HLCSTCP1 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;7/28/07  08:58
+ ;;1.6;HEALTH LEVEL SEVEN;**19,43,57,64,71,133,132,122**;OCT 13,1995;Build 4
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;Receiver
@@ -12 +12 @@
  ; variable to replace ^TMP
  N HLTMBUF
- ;
  ; for HL7 application proxy user
- ;; N HLDUZ,DUZ  ; patch HL*1.6*122 TEST v2: DUZ code removed
- N HLDUZ
- S HLDUZ=+$G(DUZ)
- ;
+ N HLDUZ,DUZ
  D MON^HLCSTCP("Open")
  ; K ^TMP("HLCSTCP",$J,0)
  S HLMIEN=0,HLASTMSG=""
- ;
- ; patch HL*1.6*122 TEST v2: DUZ code removed
  ; set DUZ for application proxy user
- ;; D PROXY^HLCSTCP4
- ;
+ D PROXY^HLCSTCP4
  F  D  Q:$$STOP^HLCSTCP  I 'HLMIEN D MON^HLCSTCP("Idle") H 3
  . ; clean variables
@@ -31 +24 @@
  . S HLMIEN=$$READ
  . Q:'HLMIEN
- . ;
- . ; patch HL*1.6*122 TEST v2: DUZ code removed
  . ; DUZ comparison/reset for application proxy user
- . ;; D HLDUZ^HLCSTCP4
- . D HLDUZ2^HLCSTCP4
+ . D HLDUZ^HLCSTCP4
  . ; protect HLDUZ 
  . N HLDUZ
@@ -112 +102 @@
  . I HLBUFF[HLDEND,(HLBUFF("END")=0) S HLBUFF("END")=1
  ; detect disconnect for GT.M
- I $G(^%ZOSF("OS"))["GT.M",$DEVICE S $ECODE=",UREAD,"
+ I $G(^%ZOSF("OS"))["GT.M",$DEVICE S $ECODE=""
  ; timedout, <clean up>, quit
  ;I '$T,X="",HLX="" S HLACKWT=HLACKWT-HLDREAD D:HLACKWT<0&'HLHDR CLEAN Q
@@ -244 +234 @@
 SAVE(SRC,DEST) ;save into global & set top node
  ;SRC=source array (passed by ref.), DEST=destination global
- ;
- ; patch HL*1.6*122: MPI-client/server
- I DEST["HLMA" D
- . F  L +^HLMA(+HLIND1):10 Q:$T  H 1
- E  D
- . F  L +^HL(772,+$P(HLIND1,U,2)):10 Q:$T  H 1
- ;
  M @DEST=SRC
  S @DEST@(0)="^^"_HLINE_"^"_HLINE_"^"_DT_"^"
- ;
- I DEST["HLMA" L -^HLMA(+HLIND1)
- E  L -^HL(772,+$P(HLIND1,U,2))
- ;
  Q
  ;
@@ -277 +256 @@
  ;
 ERROR ; Error trap for disconnect error and return back to the read loop.
- ; patch HL*1.6*122
- ; move to routine HLCSTCP4 (splitted-size over 10000)
- D ERROR1^HLCSTCP4
+ S $ETRAP="D UNWIND^%ZTER"
+ I $$EC^%ZOSV["IOEOF" D UNWIND^%ZTER Q  ;VOE change for GT.M
+ I $$EC^%ZOSV["READ"!($$EC^%ZOSV["NOTOPEN")!($$EC^%ZOSV["DEVNOTOPN") D UNWIND^%ZTER Q
+ I $$EC^%ZOSV["WRITE" D CC("Wr-err") D UNWIND^%ZTER Q
+ I $ECODE["UREAD" D UNWIND^%ZTER Q  ; HL*1.6*122 GT.M
+ S HLCSOUT=1 D ^%ZTER,CC("Error")
+ D UNWIND^%ZTER
  Q
  ;