source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLPAT76.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1HLPAT76 ;OAKCIOFO/AC POSTINIT ;08/06/2001 21:14
2 ;;1.6;HEALTH LEVEL SEVEN;**76**;JUL 17, 1995
3ENTER ; 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...")
10EN1 ;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
Note: See TracBrowser for help on using the repository browser.