HLPAT76.m

HLPAT76 ;OAKCIOFO/AC POSTINIT ;08/06/2001  21:14 [ 04/02/2003   8:38 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;;1.6;HEALTH LEVEL SEVEN;**76**;JUL 17, 1995

ENTER ; Check for incomplete messages as a result of READ ERRORS

 ; encountered by the DIRECT CONNECT API.

 D BMES^XPDUTL("Post-init will identify all incomplete messages associated with TCP links")

 D BMES^XPDUTL("These incomplete messages were a result of Network errors")

 D BMES^XPDUTL("encountered by the DIRECT CONNECT API.")

 D BMES^XPDUTL("These messages will be removed from the outbound TCP queue.")

 D BMES^XPDUTL("Scanning for incomplete messages...")

EN1 ;ENTRY POINT ONE

 N HLDA,HLFIRST,HLL,HLLAST,HLTCP,XPDIDTOT

 S HLTCP=""

 S HLFIRST=+$O(^HLMA("AC","O",0))

 I 'HLFIRST D BMES^XPDUTL("No messages in the outbound TCP queue.") Q

 S HLLAST=+$O(^HLMA("AC","O","@"),-1)

 S XPDIDTOT=HLLAST-HLFIRST+1

 F HLL=0:0 S HLL=$O(^HLMA("AC","O",HLL)) Q:HLL'>0  D

 .D UPDATE^XPDID(XPDIDTOT-(HLLAST-HLL+1))

 .F HLDA=0:0 S HLDA=$O(^HLMA("AC","O",HLL,HLDA)) Q:HLDA'>0  D

 ..F  L +^HLMA(HLDA):1 Q:$T  H 1

 ..I '$D(^HLMA(HLDA,"P")) D STATUS^HLTF0(HLDA,3,,,1)

 ..L -^HLMA(HLDA)

 Q

HLPAT76   ;OAKCIOFO/AC POSTINIT ;08/06/2001  21:14 [ 04/02/2003   8:38 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;1.6;HEALTH LEVEL SEVEN;**76**;JUL 17, 1995

ENTER     ; Check for incomplete messages as a result of READ ERRORS

 +1       ; encountered by the DIRECT CONNECT API.

 +2        DO BMES^XPDUTL("Post-init will identify all incomplete messages associated with TCP links")

 +3        DO BMES^XPDUTL("These incomplete messages were a result of Network errors")

 +4        DO BMES^XPDUTL("encountered by the DIRECT CONNECT API.")

 +5        DO BMES^XPDUTL("These messages will be removed from the outbound TCP queue.")

 +6        DO BMES^XPDUTL("Scanning for incomplete messages...")

EN1       ;ENTRY POINT ONE

 +1        NEW HLDA,HLFIRST,HLL,HLLAST,HLTCP,XPDIDTOT

 +2        SET HLTCP=""

 +3        SET HLFIRST=+$ORDER(^HLMA("AC","O",0))

 +4        IF 'HLFIRST

               DO BMES^XPDUTL("No messages in the outbound TCP queue.")

               QUIT 

 +5        SET HLLAST=+$ORDER(^HLMA("AC","O","@"),-1)

 +6        SET XPDIDTOT=HLLAST-HLFIRST+1

 +7        FOR HLL=0:0

               SET HLL=$ORDER(^HLMA("AC","O",HLL))

               IF HLL'>0

                   QUIT 

               Begin DoDot:1

 +8                DO UPDATE^XPDID(XPDIDTOT-(HLLAST-HLL+1))

 +9                FOR HLDA=0:0

                       SET HLDA=$ORDER(^HLMA("AC","O",HLL,HLDA))

                       IF HLDA'>0

                           QUIT 

                       Begin DoDot:2

 +10                       FOR 

                               LOCK +^HLMA(HLDA):1

                               IF $TEST

                                   QUIT 

                               HANG 1

 +11                       IF '$DATA(^HLMA(HLDA,"P"))

                               DO STATUS^HLTF0(HLDA,3,,,1)

 +12                       LOCK -^HLMA(HLDA)

                       End DoDot:2

               End DoDot:1

 +13       QUIT