Changeset 623 for WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSGTM.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSGTM.m (modified) (1 diff)

WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSGTM.m

@@ -1 @@
-HLCSGTM ;OIFO-O/RWF - (TCP/IP) GT.M Linux ;08/13/2007
-        ;;1.6;HEALTH LEVEL SEVEN;**122**;Oct 13, 1995;Build 14
-        ;Per VHA Directive 2004-038, this routine should not be modified.
-        ;
-        ; 1. port number is input from VMS COM file, such as HLSxxxxDSM.COM,
-        ;    HLSxxxxCACHE.COM, or HLSxxxxGTM.COM file, where xxxx is port
-        ;    number.
-        ; 2. find the ien of #870(logical link file) for the multi-listener
-        Q
-        ;
-IEN(HLPORT)     ;
-        ; HLIEN870: ien in #870 (logical link file)
-        ; HLPRTS: port number in entry to be tested
-        ;
-        N HLPRTS,HLIEN870
-        I '$G(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
-        ;
-        Q HLIEN870
-        ;
-GTMLNX  ; From Linux xinetd script
-        ;Get port from ZSHOW "D"
-        S U="^",$ZT="",$ET="D ^%ZTER HALT" ;Setup the error trap
-        ; GTM specific code
-        S IO=$P X "U IO:(nowrap:nodelimiter:IOERROR=""TRAP"")" ;Setup device
-        S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
-        K ^TMP($J) ZSHOW "D":^TMP($J)
-        F %=1:1 Q:'$D(^TMP($J,"D",%))  S X=^(%) Q:X["LOCAL"
-        S IO("IP")=$P($P(X,"REMOTE=",2),"@"),IO("PORT")=+$P($P(X,"LOCAL=",2),"@",2)
-        S %=$P($ZTRNLNM("SSH_CLIENT")," ") S:%="" %=$ZTRNLNM("REMOTEHOST")
-        S HLDP=$$IEN(IO("PORT"))
-        ;
-        D LISTEN^HLCSTCP
-        Q
-        ;
-        ;Sample Linux script
-        ;#!/bin/bash
-        ;#HL7 Listener
-        ;cd /home/vista/dev/
-        ;. ./gtmprofile
-        ;#env > hl7log.txt
-        ;$gtm_dist/mumps -r GTMLNX^HLCSGTM
-        ;exit 0
-        ;
-        ;Sample xinetd config file
-        ;service hl7tcp
-        ;{
-        ;        socket_type     = stream
-        ;        user            = gtmuser
-        ;        wait            = no
-        ;        disable         = no
-        ;        server          = /bin/bash
-        ;        server_args     = -l /home/vista/dev/hl7tcp.sh
-        ;        passenv         = REMOTE_HOST
-        ;}
+HLCSGTM ;OIFO-O/RWF - (TCP/IP) GT.M Linux ;08/13/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**122**;Oct 13, 1995;Build 4;WorldVistA 30-Jan-08
+ ;Per VHA Directive 2004-038, this routine should not be modified.
+ ;
+ ; 1. port number is input from VMS COM file, such as HLSxxxxDSM.COM,
+ ;    HLSxxxxCACHE.COM, or HLSxxxxGTM.COM file, where xxxx is port
+ ;    number.
+ ; 2. find the ien of #870(logical link file) for the multi-listener
+ ;Modified from FOIA VISTA,
+ ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ Q
+ ;
+IEN(HLPORT) ;
+ ; HLIEN870: ien in #870 (logical link file)
+ ; HLPRTS: port number in entry to be tested
+ ;
+ N HLPRTS,HLIEN870
+ I '$G(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
+ ;
+ Q HLIEN870
+ ;
+GTMLNX ; From Linux xinetd script
+ ;Get port from ZSHOW "D"
+ S U="^",$ZT="",$ET="D ^%ZTER HALT" ;Setup the error trap
+ ; GTM specific code
+ S IO=$P X "U IO:(nowrap:nodelimiter:IOERROR=""TRAP"")" ;Setup device
+ S @("$ZINTERRUPT=""I $$JOBEXAM^ZU($ZPOSITION)""")
+ K ^TMP($J) ZSHOW "D":^TMP($J)
+ F %=1:1 Q:'$D(^TMP($J,"D",%))  S X=^(%) Q:X["LOCAL"
+ S IO("IP")=$P($P(X,"REMOTE=",2),"@"),IO("PORT")=+$P($P(X,"LOCAL=",2),"@",2)
+ S %=$P($ZTRNLNM("SSH_CLIENT")," ") S:%="" %=$ZTRNLNM("REMOTEHOST")
+ S HLDP=$$IEN(IO("PORT"))
+ ;
+ D LISTEN^HLCSTCP
+ Q
+ ;
+ ;Sample Linux script
+ ;#!/bin/bash
+ ;#HL7 Listener
+ ;cd /home/vista/dev/
+ ;. ./gtmprofile
+ ;#env > hl7log.txt
+ ;$gtm_dist/mumps -r GTMLNX^HLCSGTM
+ ;exit 0
+ ;
+ ;Sample xinetd config file
+ ;service hl7tcp
+ ;{
+ ;        socket_type     = stream
+ ;        user            = gtmuser
+ ;        wait            = no
+ ;        disable         = no
+ ;        server          = /bin/bash
+ ;        server_args     = -l /home/vista/dev/hl7tcp.sh
+ ;        passenv         = REMOTE_HOST
+ ;}