Last change
on this file since 1147 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
1.1 KB
|
Line | |
---|
1 | HLCSTCPA ;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
|
---|
11 | PORT ;
|
---|
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.