source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTCPA.m@ 1259

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

revised back to 6/30/08 version

File size: 1.1 KB
Line 
1HLCSTCPA ;OIFO-O/RJH - (TCP/IP) VMS ;07/10/2003 10:12
2 ;;1.6;HEALTH LEVEL SEVEN;**84**;Oct 13, 1995
3 ;
4 ; 1. port number is input from VMS HLSxxxxDSM.COM or HLSxxxxCACHE.COM
5 ; file, where xxxx is port number.
6 ; 2. find the ien of #870(logical link file) for the HL7 multi-listener
7 ; 3. call the appropriate entry:
8 ; for Cache: CACHEVMS^HLCSTCP(ien of #870)
9 ; for DSM: EN^HLCSTCP
10 Q
11PORT ;
12 ;HLIEN870: ien in #870 (logical link file)
13 ;HLPORT: port number of multi-listener
14 ;HLPRTS: port number in entry to be tested
15 ;input of DSM: % = device^port number of multi-listener
16 ;input of Cache: port number of TCPIP
17 ;
18 I ^%ZOSF("OS")["OpenM" D
19 . S HLPORT=$ZF("GETSYM","PORT")
20 I ^%ZOSF("OS")["DSM" D
21 . S HLPORT=$P(%,"^",2)
22 I 'HLPORT D ^%ZTER Q
23 S HLIEN870=0
24 F S HLIEN870=$O(^HLCS(870,"E","M",HLIEN870)) Q:'HLIEN870 D Q:(HLPRTS=HLPORT)
25 . S HLPRTS=$P(^HLCS(870,HLIEN870,400),"^",2)
26 I 'HLIEN870 D ^%ZTER Q
27 ;
28 K HLPORT,HLPRTS
29 ;
30 ;for Cache/VMS
31 I ^%ZOSF("OS")["OpenM" D Q
32 .D CACHEVMS^HLCSTCP(HLIEN870)
33 ;
34 ;for DSM
35 I ^%ZOSF("OS")["DSM" D Q
36 . S $P(%,"^",2)=HLIEN870 ;set % = device^ien of #870
37 . K HLIEN870
38 . D EN^HLCSTCP
39 ;
40 D ^%ZTER
41 Q
Note: See TracBrowser for help on using the repository browser.