HLCSTCP4.m

HLCSTCP4 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;11/17/2003  09:40

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 ;

 ; RDERR & ERROR moved from HLCSTCP2 on 12/2/2003 - LJA

 ;

RDERR ; Error during read process, decrement counter

 D LLCNT^HLCSTCP(HLDP,4,1)

ERROR ; Error trap

 ; OPEN ERROR-retry.

 ; WRITE ERROR (SERVER DISCONNECT)-close channel, retry

 ;

 ;**109**

 ;I $G(HLMSG) L -^HLMA(HLMSG)

 ;

 S $ETRAP="D UNWIND^%ZTER"

 I $$EC^%ZOSV["OPENERR"!($$EC^%ZOSV["NOTOPEN")!($$EC^%ZOSV["DEVNOTOPN") D CC^HLCSTCP2("Op-err") S:$G(HLPRIO)="I" HLERROR="15^Open Related Error" D UNWIND^%ZTER Q

 I $$EC^%ZOSV["WRITE" D  Q  ;HL*1.6*77 modifications start here

 .  D CC^HLCSTCP2("Wr-err")

 .  S:$G(HLPRIO)="I" HLERROR="108^Write Error"

 .  D UNWIND^%ZTER ;HL*1.6*77 modifications end here

 I $$EC^%ZOSV["READ" D CC^HLCSTCP2("Rd-err") S:$G(HLPRIO)="I" HLERROR="108^Read Error" D UNWIND^%ZTER Q

 S HLCSOUT=1 D ^%ZTER,CC^HLCSTCP2("Error"),SDFLD^HLCSTCP

 S:$G(HLPRIO)="I" HLERROR="9^Error"

 D UNWIND^%ZTER

 Q

 ;

HLCSTCP4  ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;11/17/2003  09:40

 +1       ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 +2       ;

 +3       ; RDERR & ERROR moved from HLCSTCP2 on 12/2/2003 - LJA

 +4       ;

RDERR     ; Error during read process, decrement counter

 +1        DO LLCNT^HLCSTCP(HLDP,4,1)

ERROR     ; Error trap

 +1       ; OPEN ERROR-retry.

 +2       ; WRITE ERROR (SERVER DISCONNECT)-close channel, retry

 +3       ;

 +4       ;**109**

 +5       ;I $G(HLMSG) L -^HLMA(HLMSG)

 +6       ;

 +7        SET $ETRAP="D UNWIND^%ZTER"

 +8        IF $$EC^%ZOSV["OPENERR"!($$EC^%ZOSV["NOTOPEN")!($$EC^%ZOSV["DEVNOTOPN")

               DO CC^HLCSTCP2("Op-err")

               IF $GET(HLPRIO)="I"

                   SET HLERROR="15^Open Related Error"

               DO UNWIND^%ZTER

               QUIT 

 +9       ;HL*1.6*77 modifications start here

           IF $$EC^%ZOSV["WRITE"

               Begin DoDot:1

 +10               DO CC^HLCSTCP2("Wr-err")

 +11               IF $GET(HLPRIO)="I"

                       SET HLERROR="108^Write Error"

 +12      ;HL*1.6*77 modifications end here

                   DO UNWIND^%ZTER

               End DoDot:1

               QUIT 

 +13       IF $$EC^%ZOSV["READ"

               DO CC^HLCSTCP2("Rd-err")

               IF $GET(HLPRIO)="I"

                   SET HLERROR="108^Read Error"

               DO UNWIND^%ZTER

               QUIT 

 +14       SET HLCSOUT=1

           DO ^%ZTER

           DO CC^HLCSTCP2("Error")

           DO SDFLD^HLCSTCP

 +15       IF $GET(HLPRIO)="I"

               SET HLERROR="9^Error"

 +16       DO UNWIND^%ZTER

 +17       QUIT 

 +18      ;