Routine: HLCSTCPA

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

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

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

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

 ; $ 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

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

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

HLCSTCPA.m