HLCSTCPA ;OI&T-OAKLAND/RJH TCP/IP FOR VMS/LINUX(UNIX) ;08/02/2011 16:31
;;1.6;HEALTH LEVEL SEVEN;**84,122,157**;Oct 13, 1995;Build 8
;Per VHA Directive 2004-038, this routine should not be modified.
;
; 1. port number is input from VMS COM file, or Linux/UNIX xinetd service file.
; example: (file: /etc/xinetd.d/fey_hlot)
; #default: on
; #description: VA HL7 Listener for DEVFEY - port 5000
; #
; service fey_hlst
; {
; type = UNLISTED
; disable = no
; flags = REUSE
; socket_type = stream
; protocol = tcp
; port = 5000
; wait = no
; user = feytcpip
; env = TZ=/usr/share/zoneinfo/US/Eastern
; env += port=5000
; server = /usr/local/cachesys/devfey/bin/csession
; server_args = devfey -ci -U DEVFEY PORT^HLCSTCPA
; instances = UNLIMITED
; per_source = UNLIMITED
; }
; #end
;
; 2. find the ien of #870(logical link file) for the multi-listener
Q
;
GTMPORT(%) ; From tcpip ZFOO for GT.M
; %: device^port number
N HLPORT
S HLPORT=$P($G(%),"^",2)
I $G(^%ZOSF("OS"))'["GT.M" D ^%ZTER Q
D IEN
Q
;
PORT ;
; HLPORT: port number of multi-listener
; input of DSM: % = device^port number of multi-listener
; input of Cache: port number of TCPIP
;
N HLPORT
S HLPORT=0
; patch HL*1.6*157 start, supports both OpenVMS/TCPIP and Linux/xinetd
; I ^%ZOSF("OS")["OpenM" D
N HLOSYS
S HLOSYS=$$OS^%ZOSV
I HLOSYS["UNIX" D G IEN
. ; Cache system call
. S HLPORT=$System.Util.GetEnviron("port")
. Q:HLPORT
. I 'HLPORT S HLPORT=$System.Util.GetEnviron("PORT")
. Q:HLPORT
. S ^XTMP("HL7-LINUX: No port from O.S.",0)=$$FMADD^XLFDT($$NOW^XLFDT,30)_"^"_$$NOW^XLFDT
;
I HLOSYS["VMS" D G IEN
. S HLPORT=$ZF("GETSYM","PORT")
; patch HL*1.6*157 end
;
I ^%ZOSF("OS")["DSM" D
. S HLPORT=$P(%,"^",2)
;
IEN ;
; HLIEN870: ien in #870 (logical link file)
; HLPRTS: port number in entry to be tested
;
N HLIEN870
I 'HLPORT D ^%ZTER Q
S HLIEN870=0
F S HLIEN870=$O(^HLCS(870,"E","M",HLIEN870)) Q:'HLIEN870 D Q:(HLPRTS=HLPORT)
. S HLPRTS=$P(^HLCS(870,HLIEN870,400),"^",2)
;
I 'HLIEN870 D ^%ZTER Q
;
K HLPORT,HLPRTS
; patch 122
S U="^"
;
; patch HL*1.6*157 start, supports both OpenVMS/TCPIP and Linux/xinetd
; I ^%ZOSF("OS")["OpenM" D Q
I $G(HLOSYS)="" S HLOSYS=""
I (HLOSYS["UNIX") D Q
. D LINUX(HLIEN870)
I (HLOSYS["VMS") D Q
. D CACHEVMS(HLIEN870)
; patch HL*1.6*157 end
;
;for DSM
I ^%ZOSF("OS")["DSM" D Q
. S $P(%,"^",2)=HLIEN870 ;set % = device^ien of #870
. K HLIEN870
. D EN
;
;for GT.M
I ^%ZOSF("OS")["GT.M" D Q
. S HLDP=HLIEN870 ;set HLDP = ien of #870
. K HLIEN870
. D GTMUCX
;
D ^%ZTER
Q
GTMUCX ; GT.M /VMS tcpip
;listener, % = device^port
S U="^",IO=$P(%,U)
; S IO(0)=$P O IO(0) ;Setup null device
; GTM specific code
S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
X "O IO:(RECORDSIZE=512)"
D LISTEN^HLCSTCP
C IO
Q
;
; $ x=f$trnlnm("sys$net") !This is our MBX device
; $!
; $! for GT.M
; $ assign 'f$trnlnm("SYS$NET")' SYS$NET
; $! Depending on how your command files are set up, you may need to
; $! run the GT.M profile file.
; $ @<user$:[gtmmgr]>gtmprofile.com
; $ forfoo="$" + f$parse("user$:[gtmmgr.r]ZFOO.exe")
; $ PORT=5000
; $ data="''x'^''PORT'"
; $ forfoo GTMPORT^HLCSTCPA("''data'")
;
CACHEVMS(%) ;Cache'/VMS tcpip
;listener, % = HLDP
I $G(%)="" D ^%ZTER Q
; patch 133
S IO="SYS$NET",U="^",HLDP=%
S IO(0)="_NLA0:" O IO(0) ;Setup null device
; **Cache'/VMS specific code**
O IO::5 E D MON^HLCSTCP("Openfail") Q
X "U IO:(::""-M"")" ;Packet mode like DSM
D LISTEN^HLCSTCP
C IO
Q
;
LINUX(%) ;
; patch HL*1.6*157, Cache/UNIX for Linux
; listener, % = HLDP
I $G(%)="" D ^%ZTER Q
S IO=$P,U="^",HLDP=%
S IO(0)="/dev/null" O IO(0) ;Setup null device
;
O IO::5 E D MON^HLCSTCP("Openfail") Q
X "U IO:(::""-M"")" ;Packet mode like DSM
D LISTEN^HLCSTCP
C IO
Q
;
EN ; DSM/VMS tcpip
;listener, % = device^HLDP
I $G(%)="" D ^%ZTER Q
; patch 122
; S IO="SYS$NET",U="^",HLDP=$P(%,U,2)
S U="^",IO=$P(%,U),HLDP=$P(%,U,2)
; patch 133
S IO(0)="_NLA0:" O IO(0) ;Setup null device
; **VMS specific code, need to share device**
O IO:(TCPDEV):60 E D MON^HLCSTCP("Openfail") Q
; patch 122
D LISTEN^HLCSTCP
C IO
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSTCPA 4468 printed Dec 13, 2024@01:57:10 Page 2
HLCSTCPA ;OI&T-OAKLAND/RJH TCP/IP FOR VMS/LINUX(UNIX) ;08/02/2011 16:31
+1 ;;1.6;HEALTH LEVEL SEVEN;**84,122,157**;Oct 13, 1995;Build 8
+2 ;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; 1. port number is input from VMS COM file, or Linux/UNIX xinetd service file.
+5 ; example: (file: /etc/xinetd.d/fey_hlot)
+6 ; #default: on
+7 ; #description: VA HL7 Listener for DEVFEY - port 5000
+8 ; #
+9 ; service fey_hlst
+10 ; {
+11 ; type = UNLISTED
+12 ; disable = no
+13 ; flags = REUSE
+14 ; socket_type = stream
+15 ; protocol = tcp
+16 ; port = 5000
+17 ; wait = no
+18 ; user = feytcpip
+19 ; env = TZ=/usr/share/zoneinfo/US/Eastern
+20 ; env += port=5000
+21 ; server = /usr/local/cachesys/devfey/bin/csession
+22 ; server_args = devfey -ci -U DEVFEY PORT^HLCSTCPA
+23 ; instances = UNLIMITED
+24 ; per_source = UNLIMITED
+25 ; }
+26 ; #end
+27 ;
+28 ; 2. find the ien of #870(logical link file) for the multi-listener
+29 QUIT
+30 ;
GTMPORT(%) ; From tcpip ZFOO for GT.M
+1 ; %: device^port number
+2 NEW HLPORT
+3 SET HLPORT=$PIECE($GET(%),"^",2)
+4 IF $GET(^%ZOSF("OS"))'["GT.M"
DO ^%ZTER
QUIT
+5 DO IEN
+6 QUIT
+7 ;
PORT ;
+1 ; HLPORT: port number of multi-listener
+2 ; input of DSM: % = device^port number of multi-listener
+3 ; input of Cache: port number of TCPIP
+4 ;
+5 NEW HLPORT
+6 SET HLPORT=0
+7 ; patch HL*1.6*157 start, supports both OpenVMS/TCPIP and Linux/xinetd
+8 ; I ^%ZOSF("OS")["OpenM" D
+9 NEW HLOSYS
+10 SET HLOSYS=$$OS^%ZOSV
+11 IF HLOSYS["UNIX"
Begin DoDot:1
+12 ; Cache system call
+13
*** ERROR ***
SET HLPORT=$System.Util.GetEnviron("port")
+14 if HLPORT
QUIT
+15 IF 'HLPORT
