|
Last change
on this file since 1746 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.
