| 1 | HLPAT76 ;OAKCIOFO/AC POSTINIT ;08/06/2001 21:14
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**76**;JUL 17, 1995
|
|---|
| 3 | ENTER ; Check for incomplete messages as a result of READ ERRORS
|
|---|
| 4 | ; encountered by the DIRECT CONNECT API.
|
|---|
| 5 | D BMES^XPDUTL("Post-init will identify all incomplete messages associated with TCP links")
|
|---|
| 6 | D BMES^XPDUTL("These incomplete messages were a result of Network errors")
|
|---|
| 7 | D BMES^XPDUTL("encountered by the DIRECT CONNECT API.")
|
|---|
| 8 | D BMES^XPDUTL("These messages will be removed from the outbound TCP queue.")
|
|---|
| 9 | D BMES^XPDUTL("Scanning for incomplete messages...")
|
|---|
| 10 | EN1 ;ENTRY POINT ONE
|
|---|
| 11 | N HLDA,HLFIRST,HLL,HLLAST,HLTCP,XPDIDTOT
|
|---|
| 12 | S HLTCP=""
|
|---|
| 13 | S HLFIRST=+$O(^HLMA("AC","O",0))
|
|---|
| 14 | I 'HLFIRST D BMES^XPDUTL("No messages in the outbound TCP queue.") Q
|
|---|
| 15 | S HLLAST=+$O(^HLMA("AC","O","@"),-1)
|
|---|
| 16 | S XPDIDTOT=HLLAST-HLFIRST+1
|
|---|
| 17 | F HLL=0:0 S HLL=$O(^HLMA("AC","O",HLL)) Q:HLL'>0 D
|
|---|
| 18 | .D UPDATE^XPDID(XPDIDTOT-(HLLAST-HLL+1))
|
|---|
| 19 | .F HLDA=0:0 S HLDA=$O(^HLMA("AC","O",HLL,HLDA)) Q:HLDA'>0 D
|
|---|
| 20 | ..F L +^HLMA(HLDA):1 Q:$T H 1
|
|---|
| 21 | ..I '$D(^HLMA(HLDA,"P")) D STATUS^HLTF0(HLDA,3,,,1)
|
|---|
| 22 | ..L -^HLMA(HLDA)
|
|---|
| 23 | Q
|
|---|
