Changeset 623 for WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLCSTCPA.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/HLCSTCPA.m (modified) (1 diff)

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

@@ -1 @@
-HLCSTCPA        ;OIFO-O/RJH - (TCP/IP) VMS ;07/26/2007  10:29
-        ;;1.6;HEALTH LEVEL SEVEN;**84,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
-        ;
-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
-        I ^%ZOSF("OS")["OpenM" D
-        . S HLPORT=$ZF("GETSYM","PORT")
-        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="^"
-        ;
-        ;for Cache/VMS
-        I ^%ZOSF("OS")["OpenM" D  Q
-        . D CACHEVMS(HLIEN870)
-        ;
-        ;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
-        ;
-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
+HLCSTCPA ;OIFO-O/RJH - (TCP/IP) VMS ;07/10/2003  10:12
+ ;;1.6;HEALTH LEVEL SEVEN;**84**;Oct 13, 1995
+ ;
+ ; 1. port number is input from VMS HLSxxxxDSM.COM or HLSxxxxCACHE.COM
+ ;    file, where xxxx is port number.
+ ; 2. find the ien of #870(logical link file) for the HL7 multi-listener
+ ; 3. call the appropriate entry:
+ ;    for Cache: CACHEVMS^HLCSTCP(ien of #870)
+ ;    for DSM:   EN^HLCSTCP
+ Q
+PORT ;
+ ;HLIEN870: ien in #870 (logical link file)
+ ;HLPORT: port number of multi-listener
+ ;HLPRTS: port number in entry to be tested
+ ;input of DSM: % = device^port number of multi-listener
+ ;input of Cache: port number of TCPIP
+ ;
+ I ^%ZOSF("OS")["OpenM" D
+ . S HLPORT=$ZF("GETSYM","PORT")
+ I ^%ZOSF("OS")["DSM" D
+ . S HLPORT=$P(%,"^",2)
+ 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
+ ;
+ ;for Cache/VMS
+ I ^%ZOSF("OS")["OpenM" D  Q
+ .D CACHEVMS^HLCSTCP(HLIEN870)
+ ;
+ ;for DSM
+ I ^%ZOSF("OS")["DSM" D  Q
+ . S $P(%,"^",2)=HLIEN870   ;set % = device^ien of #870
+ . K HLIEN870
+ . D EN^HLCSTCP
+ ;
+ D ^%ZTER
+ Q